X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftatoo.ml;h=9fb70457824f56475cb17f1bfcf37846764aa053;hb=c6a89f390d6171f99d98f794427c1cce42fbf40c;hp=485d8e1e43eb37965aee0b8f4f60739aba76adb5;hpb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;p=tatoo.git diff --git a/src/tatoo.ml b/src/tatoo.ml index 485d8e1..9fb7045 100644 --- a/src/tatoo.ml +++ b/src/tatoo.ml @@ -123,10 +123,10 @@ let main () = let s = Naive.stats () in Run.( Logger.msg `STATS - "@[tree size: %d@\ntraversals: %d@\ncache2 hit ratio: %f@\ncache5 hit ratio: %f@]" + "@[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 ->