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);
}