Fixed bug in NextElement, improved caching

[SXSI/xpathcomp.git] / main.ml

diff --git a/main.ml b/main.ml
index ee14b34..b30eff2 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -49,12 +49,12 @@ let main v query_string output =
       with
          Ulexer.Loc.Exc_located ((x,y),e) -> Printf.eprintf "character %i-%i %s\n" x y (Printexc.to_string e);exit 1
       in
-      let _ = Printf.eprintf "Timing //keyword :" in
+(*      let _ = Printf.eprintf "Timing //keyword :" in
       let r = time (test_loop v) (Tag.tag "keyword") in
       let _ = Printf.eprintf "Count is %i\n%!" r in
       let _ = Printf.eprintf "Timing //keyword 2:" in
       let r = time (test_loop2 v) (Tag.tag "keyword") in
-      let _ = Printf.eprintf "Count is %i\n%!" r in
+      let _ = Printf.eprintf "Count is %i\n%!" r in *)
       XPath.Ast.print Format.err_formatter query;
       Format.fprintf Format.err_formatter "\n%!";
       Printf.eprintf "Compiling query : ";