ocaml 3.09 transition

[helm.git] / helm / ocaml / cic / cicUtil.ml

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index 7269e1f843dcdba470e4af8b4ee66cd45b8f8b27..81834251577822662c5121c70ea0cf98a11aaf5f 100644 (file)
--- a/helm/ocaml/cic/cicUtil.ml
+++ b/helm/ocaml/cic/cicUtil.ml
@@ -209,22 +209,6 @@ let rec mk_rels howmany from =
   | 0 -> []
   | _ -> (Cic.Rel (howmany + from)) :: (mk_rels (howmany-1) from)
 
-let profile =
- function s ->
-  let total = ref 0.0 in
-  let profile f x =
-   let before = Unix.gettimeofday () in
-   let res = f x in
-   let after = Unix.gettimeofday () in
-    total := !total +. (after -. before);
-    res
-  in
-  at_exit
-   (fun () ->
-     print_endline
-      ("!! TOTAL TIME SPENT IN " ^ s ^ ": " ^ string_of_float !total));
-  profile
-
 let id_of_annterm =
   function
   | Cic.ARel (id,_,_,_)
@@ -243,7 +227,3 @@ let id_of_annterm =
   | Cic.AMutCase (id,_,_,_,_,_)
   | Cic.AFix (id,_,_)
   | Cic.ACoFix (id,_,_) -> id
-
-  (** WARNING: COMMENT THIS TO ENABLE PROFILING **)
-let profile _ = let profile f x = f x in profile
-