[MLton-commit] r6574

[Matthew Fluet]

Wrong base size for shrinking

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

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

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

Modified: mlton/trunk/runtime/gc/stack.c
===================================================================
--- mlton/trunk/runtime/gc/stack.c	2008-04-07 18:56:12 UTC (rev 6573)
+++ mlton/trunk/runtime/gc/stack.c	2008-04-07 18:56:14 UTC (rev 6574)
@@ -171,7 +171,7 @@
         reservedShrink =
           (stack->reserved <= reservedPermit)
           ? stack->reserved
-          : (size_t)(s->controls.ratios.stackCurrentShrink * stack->used);
+          : (size_t)(s->controls.ratios.stackCurrentShrink * stack->reserved);
         reservedMin = sizeofStackMinimumReserved (s, stack);
       } else {
         /* Shrink paused stacks. */