Safety commit before clean-up

[SXSI/xpathcomp.git] / main.ml

diff --git a/main.ml b/main.ml
index 76f8089..3192810 100644 (file)
--- 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