X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=utils.ml;h=2e02bc50de76931c4c6934d4e36231d616d733f4;hb=cf6d366b25132eea7b0f1966c11d034d748af0fa;hp=76c0432347be839dc317ba0e124f4ade49b48bec;hpb=be1caa5c46009c13241cc48ed34a36ee2936ef87;p=SXSI%2Fxpathcomp.git diff --git a/utils.ml b/utils.ml index 76c0432..2e02bc5 100644 --- a/utils.ml +++ b/utils.ml @@ -80,7 +80,7 @@ let time_mem f x = l:= t::!l; Printf.eprintf " %fms\n%!" t ; Printf.eprintf "Mem use before: %s\n%!" s1; - Printf.eprintf "Mem use after: %s\n\n\n%!" s2; + Printf.eprintf "Final Mem: %s\n\n\n%!" s2; r ;; let time f x =