Temporary commit.

[SXSI/xpathcomp.git] / src / tracer.ml

diff --git a/src/tracer.ml b/src/tracer.ml
index eae76a5..9eae547 100644 (file)
--- a/src/tracer.ml
+++ b/src/tracer.ml
@@ -3,7 +3,7 @@ open Format
 type tracer = string
 type level = int
 
-let tracers = [ "top-down-run"; "top-down-approx"; "result-set" ]
+let tracers = [ "top-down-run"; "top-down-approx"; "result-set"; "level2-jit"; "res-jit" ]
 let active_tracers : (tracer, int) Hashtbl.t = Hashtbl.create 17
 
 let available () = tracers
@@ -21,5 +21,5 @@ let trace t l s =
   if l <= level t
   then begin
     fprintf !tracer_output "%s: " t;
-    fprintf !tracer_output "%s" s
+    fprintf !tracer_output "%s%!" s
   end