@@ -467,8 +467,7 @@ module Dump = struct
Buffer.add_string buf (String.make (String.length header) '-' ^ "\n");
loop entries 0;
end;
- close();
- Hashtbl.clear stats
+ close()
end
(*
@@ -152,6 +152,9 @@ class cache = object(self)
Hashtbl.clear native_libs;
tasks <- PriorityQueue.Empty
+ method clear_stats =
+ Hashtbl.iter (fun _ cc -> Hashtbl.clear cc#get_invalidation_stats) contexts
+
(* contexts *)
method get_context sign =
@@ -53,6 +53,7 @@ let reset sctx =
stats.s_classes_built := 0;
stats.s_methods_typed := 0;
stats.s_macros_called := 0;
+ sctx.cs#clear_stats;
Hashtbl.clear Timer.htimers;
Helper.start_time := get_time()