X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2FcicUtil.ml;h=81834251577822662c5121c70ea0cf98a11aaf5f;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=aa1ed1ba0ec745e30d169dba355703127e7c9629;hpb=2d4c0e3f1bd4b142c3187d5a4d51f0ea5745d90b;p=helm.git

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index aa1ed1ba0..818342515 100644
--- a/helm/ocaml/cic/cicUtil.ml
+++ b/helm/ocaml/cic/cicUtil.ml
@@ -209,27 +209,6 @@ let rec mk_rels howmany from =
   | 0 -> []
   | _ -> (Cic.Rel (howmany + from)) :: (mk_rels (howmany-1) from)
 
-let profiling_enabled = false
-
-let profile =
- if profiling_enabled then
-  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
- else
-  function _ -> fun f x -> f x
-
 let id_of_annterm =
   function
   | Cic.ARel (id,_,_,_)