[MLton-commit] r6573

Matthew Fluet fluet at mlton.org
Mon Apr 7 11:56:13 PDT 2008


Reverse conditional

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

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:10 UTC (rev 6572)
+++ mlton/trunk/runtime/gc/stack.c	2008-04-07 18:56:12 UTC (rev 6573)
@@ -169,7 +169,7 @@
         size_t reservedPermit =
           (size_t)(s->controls.ratios.stackCurrentPermitReserved * stack->used);
         reservedShrink =
-          (reservedPermit >= stack->reserved)
+          (stack->reserved <= reservedPermit)
           ? stack->reserved
           : (size_t)(s->controls.ratios.stackCurrentShrink * stack->used);
         reservedMin = sizeofStackMinimumReserved (s, stack);




More information about the MLton-commit mailing list