X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=OCamlDriver.cpp;h=21e5398577dc8dc3d2d843cb651d836709bb93f2;hb=8e1b9299e0c8e1731db61955ef756fa92ed8c615;hp=8f841945b40c9c91d03b85a164fc9ce145e95ffb;hpb=1ff2494510cb02d136cbde3a064c0c8c94ec4216;p=SXSI%2Fxpathcomp.git

diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp
index 8f84194..21e5398 100644
--- a/OCamlDriver.cpp
+++ b/OCamlDriver.cpp
@@ -790,24 +790,16 @@ int iterfcns(XMLTree* tree, treeNode node){
   if (node == NULLT)
     return 0;
   else {
-    return /*1+ iterfcns(tree,tree->FirstChild(node)) +*/
-     iterfcns(tree,tree->NextSibling(node));    
+    return 1+ iterfcns(tree,tree->NextSibling(node)) + iterfcns(tree,tree->FirstChild(node));    
   };
 }
-/*
+
 extern "C" value caml_benchmark_fcns(value tree){
   int i = iterfcns(XMLTREE(tree),0);
   return Val_unit;
-
+		    
 }
-*/
-extern "C" value caml_benchmark_fcns(value tree){
-   treeNode root = XMLTREE(tree)->FirstChild(0);
-  root = XMLTREE(tree)->FirstChild(root);
-  iterfcns(XMLTREE(tree),root);
-  return Val_unit;
 
-}
 int iterlcps(XMLTree* tree, treeNode node){
   if (node == NULLT)
     return 0;
@@ -869,7 +861,7 @@ extern "C" {
     if (n == NULL)
       return 0;
     else {
-      return (1+ iter_tree(n->first) + iter_tree(n->next));
+      return (1+ iter_tree(n->next)+ iter_tree(n->first) );
     };
   }