X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=debug.ml;h=39b4fcfb79d499ef7b476ea72495e592609bf1b2;hb=b82be3bb29963ce00218ccc59e1622e284145351;hp=1a1b3b33170bdb90e1cd0f9151281edf8cc43edf;hpb=3623eefccfb5fc69e19ad975a3669f51a2a8b276;p=SXSI%2Fxpathcomp.git

diff --git a/debug.ml b/debug.ml
index 1a1b3b3..39b4fcf 100644
--- a/debug.ml
+++ b/debug.ml
@@ -17,23 +17,12 @@ IFDEF DEBUG
 THEN 
 module Loc = Camlp4.PreCast.Loc
 
-
-DEFINE D(x) = ignore(x);
-
-DEFINE MM(v,l) = Memory.register v (Loc.to_string (l))
-let () = Memory.schedule_stats ()
-
+DEFINE D_IGNORE_(e1,e2) = (let () = e1 in ();e2)
 
 ELSE
+DEFINE D_IGNORE_(e1,e2) = (e2)
 
-DEFINE D(x) = ();
-DEFINE MM(v,l) = ()
-
-END (* IFDEF DEBUG *)
 
-IFDEF PROFILE
-THEN DEFINE P(x) = ignore(x);
-ELSE DEFINE P(x) = ();
 END (* IFDEF DEBUG *)