X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Futils.ml;h=38329987ca4a36bb61eca4c43e0d4a27ed6477b1;hb=cb728132e1c5cb0a171ee09e9b3ced16da08f796;hp=23f3e91b5c39390a2925b521ea396a5689845679;hpb=7e27afe6fa006ad355237ccc0695c6493ea57929;p=SXSI%2Fxpathcomp.git

diff --git a/src/utils.ml b/src/utils.ml
index 23f3e91..3832998 100644
--- a/src/utils.ml
+++ b/src/utils.ml
@@ -54,31 +54,6 @@ struct
 
 end
 
-let time f ?(count=1) ?(msg="") x =
-  if not !Config.verbose then f x
-  else
-  let rec loop i =
-    Gc.compact();
-    let oldmem = System.status () in
-    let t1 = Unix.gettimeofday () in
-    let r = f x in
-    let t2 = Unix.gettimeofday () in
-    let newmem = System.status () in
-    let t = (1000. *. (t2 -. t1)) in
-    Logger.verbose Format.err_formatter "@[%s: [" msg;
-    if (count != 1) then Logger.verbose Format.err_formatter "run %i/%i,  "  i count;
-    begin
-      Format.pp_open_vbox Format.err_formatter (2 + String.length msg);
-      Logger.verbose
-        Format.err_formatter
-        "@\n| Time: %fms@\n| Memory before: %a@\n| Memory after:  %a@\n]@]@]@\n" t System.pr_mem_status oldmem System.pr_mem_status newmem;
-    end;
-    if i >= count then r
-    else loop (i+1)
-  in
-  loop 1
-;;
-
 module Timing =
   struct
     let _timings = Hashtbl.create 43