Further improve the jit.

[tatoo.git] / src / tatoo.ml

diff --git a/src/tatoo.ml b/src/tatoo.ml
index 5e8144d..2b901d4 100644 (file)
--- a/src/tatoo.ml
+++ b/src/tatoo.ml
@@ -72,6 +72,14 @@ let main () =
       Gc.compact();
       Gc.set (tuned_gc)
   in
+  let () =
+    let rec loop node = if node == Runtime.Tree.nil then () else
+        let i = Runtime.Tree.preorder doc node in
+        let () = loop (Runtime.Tree.first_child doc node) in
+        loop (Runtime.Tree.next_sibling doc node)
+    in
+    time loop (Runtime.Tree.root doc) "calibrating full traversal"
+  in
   let queries =
     time
       (fun l ->