]> matita.cs.unibo.it Git - helm.git/commitdiff
debug prints commented
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 18 Jan 2006 15:15:39 +0000 (15:15 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 18 Jan 2006 15:15:39 +0000 (15:15 +0000)
helm/ocaml/library/librarySync.ml

index abb50f36351b3ca4c641d1440105d40f5732821b..92926464ba294eeb82d26c6a3f1e0620e9e3016d 100644 (file)
@@ -191,7 +191,16 @@ let add_single_obj uri obj ~basedir =
   if CicEnvironment.in_library uri then
     raise (AlreadyDefined uri)
   else begin
+    (*CicUniv.reset_spent_time ();
+    let before = Unix.gettimeofday () in*)
     typecheck_obj uri obj; (* 1 *)
+    (*let after = Unix.gettimeofday () in
+    let univ_time = CicUniv.get_spent_time () in
+    let total_time = after -. before in
+    prerr_endline 
+      (Printf.sprintf "QED: %%univ = %2.5f, total = %2.5f, univ = %2.5f, %s\n" 
+      (univ_time *. 100. /. total_time) (total_time) (univ_time)
+      (UriManager.name_of_uri uri));*)
     let _, ugraph, univlist = 
       CicEnvironment.get_cooked_obj_with_univlist CicUniv.empty_ugraph uri in
     try