X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftatoo.ml;h=9fb70457824f56475cb17f1bfcf37846764aa053;hb=a089738aa464521c0ae79944eb00fc147cc37ac9;hp=ca162276f8a25e2cd72442c44761551cb72d6aeb;hpb=5b19281cbcdbd1ca5f565f6cd41dcfb7e18a297a;p=tatoo.git diff --git a/src/tatoo.ml b/src/tatoo.ml index ca16227..9fb7045 100644 --- a/src/tatoo.ml +++ b/src/tatoo.ml @@ -122,10 +122,11 @@ let main () = in let s = Naive.stats () in Run.( - Logger.msg `STATS "@[tree size: %d@\ntraversals: %d@\ncache2 hit ratio: %f@\ncache5 hit ratio: %f@]" + Logger.msg `STATS + "@[tree size: %d@\ntraversals: %d@\ntransition fetch cache hit ratio: %f@\ntransition eval cache hit ratio: %f@]" s.tree_size s.run - (float s.cache2_hit /. float s.cache2_access) - (float s.cache5_hit /. float s.cache5_access)); + (float s.fetch_trans_cache_hit /. float s.fetch_trans_cache_access) + (float s.eval_trans_cache_hit /. float s.eval_trans_cache_access)); time (fun () -> let count = ref 1 in List.iter (fun results ->