X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaSync.ml;h=d3ae5fdc9deee3a8ccb4f225b99c177e97bc220c;hb=7efb15b93cf42eae8b34a12a327ee7213c1dbecc;hp=6662b7d6efeb7f410734e510af80bf3332c583d3;hpb=e64a1cf254620a3397bceabee53f2726a06ee0e7;p=helm.git

diff --git a/helm/matita/matitaSync.ml b/helm/matita/matitaSync.ml
index 6662b7d6e..d3ae5fdc9 100644
--- a/helm/matita/matitaSync.ml
+++ b/helm/matita/matitaSync.ml
@@ -43,7 +43,7 @@ let alias_diff ~from status =
     status.aliases Map.empty
 
 let alias_diff =
- let profiler = CicUtil.profile "accusato" in
+ let profiler = CicUtil.profile "alias_diff (conteggiato anche in include)" in
  fun ~from status -> profiler.CicUtil.profile (alias_diff ~from) status
 
 let set_proof_aliases status aliases =
@@ -150,13 +150,17 @@ let save_object_to_disk status uri obj =
          [bodyuri, xmlbodypath]
      | _-> assert false) 
 
+let typecheck_obj =
+ let profiler = CicUtil.profile "add_obj.typecheck_obj" in
+  fun uri obj -> profiler.CicUtil.profile (CicTypeChecker.typecheck_obj uri) obj
+
 let add_obj uri obj status =
   let dbd = MatitaDb.instance () in
   let suri = UriManager.string_of_uri uri in
   if CicEnvironment.in_library uri then
     command_error (sprintf "%s already defined" suri)
   else begin
-    CicTypeChecker.typecheck_obj uri obj; (* 1 *)
+    typecheck_obj uri obj; (* 1 *)
     try 
       MetadataDb.index_obj ~dbd ~uri; (* 2 must be in the env *)
       try