Explorar o código

[server] reset run counter so we don't compact like crazy

see https://github.com/vshaxe/vshaxe/issues/251
Simon Krajewski %!s(int64=7) %!d(string=hai) anos
pai
achega
cb04d49ea7
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      src/compiler/server.ml

+ 1 - 0
src/compiler/server.ml

@@ -498,6 +498,7 @@ let rec wait_loop process_params verbose accept =
 		(* prevent too much fragmentation by doing some compactions every X run *)
 		if !was_compilation then incr run_count;
 		if !run_count mod 10 = 0 then begin
+			run_count := 0;
 			let t0 = get_time() in
 			Gc.compact();
 			ServerMessage.gc_stats (get_time() -. t0);