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 ->