2
0
Эх сурвалжийг харах

Clear stats at the beginning of compilation

Rudy Ges 1 жил өмнө
parent
commit
ec2ecc91a0

+ 1 - 2
src/codegen/codegen.ml

@@ -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
 
 (*

+ 3 - 0
src/compiler/compilationCache.ml

@@ -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 =

+ 1 - 0
src/compiler/serverCompilationContext.ml

@@ -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()