projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update compilation flag:
[SXSI/xpathcomp.git]
/
src
/
tracer.ml
diff --git
a/src/tracer.ml
b/src/tracer.ml
index
eae76a5
..
aaa38d3
100644
(file)
--- a/
src/tracer.ml
+++ b/
src/tracer.ml
@@
-3,7
+3,7
@@
open Format
type tracer = string
type level = int
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"; "grammar"
]
let active_tracers : (tracer, int) Hashtbl.t = Hashtbl.create 17
let available () = tracers
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;
if l <= level t
then begin
fprintf !tracer_output "%s: " t;
- fprintf !tracer_output "%s" s
+ fprintf !tracer_output "%s
%!
" s
end
end