X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=main.ml;h=319281094e19331af8eb55983c1f7bc97f96cb2b;hb=bf2b1a91300ace1e7e83bd78f868a269d86498f9;hp=76f80893ed355d4e4844415bd19c83409fa180e2;hpb=861944c24f8cad360fb9478cb0a15863cb52e803;p=SXSI%2Fxpathcomp.git

diff --git a/main.ml b/main.ml
index 76f8089..3192810 100644
--- a/main.ml
+++ b/main.ml
@@ -97,8 +97,8 @@ let main v query_string output =
       let _ = Printf.eprintf "Number of nodes %i\n%!" (Tree.size v) in
 (*      let _ = test_text v in *)
 (*      let _ = Tree.stats v in *)
-(*      let _ = Printf.eprintf "Timing first_child/next_sibling %!" in  *)
-(*      let _ = time ~count:1 (Tree.benchmark_fcns)  v in  *)
+      let _ = Printf.eprintf "Timing first_child/next_sibling %!" in  
+      let _ = time ~count:3 (Tree.benchmark_fcns)  v in  
    (*   let _ = Printf.eprintf "Timing last_child/prev_sibling %!" in
       let _ = time (Tree.benchmark_lcps)  v in
       let _ = Printf.eprintf "Timing jump to a %!" in