projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.
[SXSI/xpathcomp.git]
/
OCamlDriver.cpp
diff --git
a/OCamlDriver.cpp
b/OCamlDriver.cpp
index
b2c7627
..
3994970
100644
(file)
--- a/
OCamlDriver.cpp
+++ b/
OCamlDriver.cpp
@@
-791,15
+791,16
@@
int iterfcns(XMLTree* tree, treeNode node){
if (node == NULLT)
return 0;
else {
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));
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);
};
}
extern "C" value caml_benchmark_fcns(value tree){
int i = iterfcns(XMLTREE(tree),0);
- return Val_
unit
;
+ return Val_
int(i)
;
}
}