1 (******************************************************************************)
2 (* SXSI : XPath evaluator *)
3 (* Kim Nguyen (Kim.Nguyen@nicta.com.au) *)
4 (* Copyright NICTA 2008 *)
5 (* Distributed under the terms of the LGPL (see LICENCE) *)
6 (******************************************************************************)
8 (* This file should not be compiled but included with INCLUDE. This requires
9 pa_macro.cmo to be loaded (see Makefile)
18 module Loc = Camlp4.PreCast.Loc
21 DEFINE D(x) = ignore(x);
22 DEFINE MM(v,l) = (let ____x = v in (Memory.register ____x (Loc.to_string (l)));____x)
23 let () = Memory.schedule_stats ()
34 THEN DEFINE P(x) = ignore(x);
35 ELSE DEFINE P(x) = ();
40 END (* IFNDEF DEBUG__ML__ *)