Clear stats at the beginning of compilation

HaxeFoundation · Mar 19, 2024 · ec2ecc9 · ec2ecc9
1 parent 9b3937c
commit ec2ecc9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/src/codegen/codegen.ml b/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
 
 (*

diff --git a/src/compiler/compilationCache.ml b/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 =

diff --git a/src/compiler/serverCompilationContext.ml b/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()