From a6a05531716a001b369e018c9d2c87ce532ef163 Mon Sep 17 00:00:00 2001
From: kim <kim@3cdefd35-fc62-479d-8e8d-bae585ffb9ca>
Date: Mon, 7 Feb 2011 13:23:24 +0000
Subject: [PATCH] .

git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@947 3cdefd35-fc62-479d-8e8d-bae585ffb9ca
---
 OCamlDriver.cpp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp
index b2c7627..3994970 100644
--- a/OCamlDriver.cpp
+++ b/OCamlDriver.cpp
@@ -791,15 +791,16 @@ int iterfcns(XMLTree* tree, treeNode node){
   if (node == NULLT)
     return 0;
   else {
-    int tmp = iterfcns(tree,tree->FirstElement(node));
+    int tmp = 1;
+    tmp += iterfcns(tree,tree->FirstElement(node));
     tmp += iterfcns(tree,tree->NextElement(node));
-    return tmp+1;    
+    return tmp;    
   };
 }
 
 extern "C" value caml_benchmark_fcns(value tree){
   int i = iterfcns(XMLTREE(tree),0);
-  return Val_unit;
+  return Val_int(i);
 		    
 }
 
-- 
2.17.1