[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/common/co...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    05/12/19 00:11:56

Modified files:
        distrib        : ChangeLog 
        src/daemon/common: commonOptions.ml 

Log message:
        patch #4726

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.630&tr2=1.631&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/common/commonOptions.ml.diff?tr1=1.108&tr2=1.109&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.630 mldonkey/distrib/ChangeLog:1.631
--- mldonkey/distrib/ChangeLog:1.630    Mon Dec 19 00:09:46 2005
+++ mldonkey/distrib/ChangeLog  Mon Dec 19 00:11:56 2005
@@ -12,6 +12,7 @@
 http://mldonkey.berlios.de/modules.php?name=Wiki&pagename=Windows
 
 2005/12/19
+4726: New option space_overhead to adjust garbage collection (bogeyman)
 4724: Windows: 10 seconds pause when core start fails
       to make error messages readable
 
Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.108 
mldonkey/src/daemon/common/commonOptions.ml:1.109
--- mldonkey/src/daemon/common/commonOptions.ml:1.108   Mon Dec 19 00:10:14 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Mon Dec 19 00:11:56 2005
@@ -1404,6 +1404,15 @@
     "The percentage of free memory before a compaction is triggered"
     int_option 25
 
+let space_overhead = define_expert_option current_section
+    ["space_overhead"]
+    "The major GC speed is computed from this parameter. This is the memory
+    that will be \"wasted\" because the GC does not immediatly collect 
+    unreachable blocks. It is expressed as a percentage of the memory used
+    for live data. The GC will work more (use more CPU time and collect 
+    blocks more eagerly) if space_overhead is smaller."
+    int_option 80
+
 let max_displayed_results = define_expert_option current_section
     ["max_displayed_results"]
     "Maximal number of results displayed for a search"
@@ -1587,6 +1596,10 @@
       let gc_control = Gc.get () in
       Gc.set { gc_control with Gc.max_overhead = !!compaction_overhead };
   );
+  option_hook space_overhead (fun _ ->
+      let gc_control = Gc.get () in
+      Gc.set { gc_control with Gc.space_overhead = !!space_overhead };
+  );
   option_hook web_infos (fun _ ->
       List.iter (fun remove ->
           if List.mem remove !!web_infos then