X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fauto%2Fata.ml;h=6f74455462db3cbf4614e3ba3a6fb5822005e511;hb=7e8fa6a1fcb2f6ea9e3639e8a3f0d199836796a5;hp=2710465df716c0033e5e51b88a74071837c70200;hpb=3d06334f6539fb3376427b7cf063d2b330142b87;p=tatoo.git

diff --git a/src/auto/ata.ml b/src/auto/ata.ml
index 2710465..6f74455 100644
--- a/src/auto/ata.ml
+++ b/src/auto/ata.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-16 07:38:04 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-17 20:26:59 CET by Kim Nguyen>
 *)
 
 INCLUDE "utils.ml"
@@ -193,7 +193,12 @@ let create s ss =
     Cache.N2.iteri (fun _ _ _ b -> if b then incr n2) auto.cache2;
     Cache.N6.iteri (fun _ _ _ _ _ _ _ b -> if b then incr n6) auto.cache6;
     Format.eprintf "INFO: automaton %i, cache2: %i entries, cache6: %i entries\n%!"
-      (auto.id :> int) !n2 !n6
+      (auto.id :> int) !n2 !n6;
+    let c2l, c2u = Cache.N2.stats auto.cache2 in
+    let c6l, c6u = Cache.N6.stats auto.cache6 in
+    Format.eprintf "INFO: cache2: length: %i, used: %i, occupation: %f\n%!" c2l c2u (float c2u /. float c2l);
+    Format.eprintf "INFO: cache6: length: %i, used: %i, occupation: %f\n%!" c6l c6u (float c6u /. float c6l)
+
   );
   auto