[MLton-commit] r7440

[Matthew Fluet]

Adaptive backoff doesn't require significant growth.
----------------------------------------------------------------------

U   mlton/trunk/runtime/gc/heap.c

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/gc/heap.c
===================================================================
--- mlton/trunk/runtime/gc/heap.c	2010-03-17 20:57:22 UTC (rev 7439)
+++ mlton/trunk/runtime/gc/heap.c	2010-03-17 20:57:25 UTC (rev 7440)
@@ -392,8 +392,8 @@
   }
   if (minSize <= s->heap.size) {
     useCurrent = TRUE;
-    /* Demand real growth from remapHeap and/or createHeap. */
-    minSize = (desiredSize / 2) + (s->heap.size / 2);
+    /* Demand proper growth from remapHeap and/or createHeap. */
+    minSize = s->heap.size + s->sysvals.pageSize;
   } else {
     useCurrent = FALSE;
   }