projects
/
SXSI
/
xpathcomp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added callback for PrevSibling
[SXSI/xpathcomp.git]
/
debug.ml
diff --git
a/debug.ml
b/debug.ml
index
1a1b3b3
..
de10dd0
100644
(file)
--- a/
debug.ml
+++ b/
debug.ml
@@
-20,14
+20,14
@@
module Loc = Camlp4.PreCast.Loc
DEFINE D(x) = ignore(x);
DEFINE D(x) = ignore(x);
-DEFINE MM(v,l) =
Memory.register v (Loc.to_string (l)
)
+DEFINE MM(v,l) =
(let ____x = v in (Memory.register ____x (Loc.to_string (l)));____x
)
let () = Memory.schedule_stats ()
ELSE
DEFINE D(x) = ();
let () = Memory.schedule_stats ()
ELSE
DEFINE D(x) = ();
-DEFINE MM(v,l) = ()
+DEFINE MM(v,l) = (
v
)
END (* IFDEF DEBUG *)
END (* IFDEF DEBUG *)