Преглед на файлове

[compilation server] run gc compaction every 10 runs

Caue Waneck преди 12 години
родител
ревизия
234fa0aa88
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      main.ml

+ 1 - 1
main.ml

@@ -725,7 +725,7 @@ and wait_loop boot_com host port =
 		Unix.close sin;
 		(* prevent too much fragmentation by doing some compactions every X run *)
 		incr run_count;
-		if !run_count mod 1 = 50 then begin
+		if !run_count mod 10 = 0 then begin
 			let t0 = get_time() in
 			Gc.compact();
 			if verbose then begin