浏览代码

[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;
 		Unix.close sin;
 		(* prevent too much fragmentation by doing some compactions every X run *)
 		(* prevent too much fragmentation by doing some compactions every X run *)
 		incr run_count;
 		incr run_count;
-		if !run_count mod 1 = 50 then begin
+		if !run_count mod 10 = 0 then begin
 			let t0 = get_time() in
 			let t0 = get_time() in
 			Gc.compact();
 			Gc.compact();
 			if verbose then begin
 			if verbose then begin