[MLton-commit] r7052

[Matthew Fluet]

Use mark-compact when heap size with maps exceeds ram.
----------------------------------------------------------------------

U   mlton/trunk/runtime/gc/garbage-collection.c

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

Modified: mlton/trunk/runtime/gc/garbage-collection.c
===================================================================
--- mlton/trunk/runtime/gc/garbage-collection.c	2009-04-08 12:31:31 UTC (rev 7051)
+++ mlton/trunk/runtime/gc/garbage-collection.c	2009-04-08 12:31:35 UTC (rev 7052)
@@ -27,7 +27,7 @@
     sizeofHeapDesired (s, s->lastMajorStatistics.bytesLive + bytesRequested, 0);
   if (not FORCE_MARK_COMPACT
       and not s->hashConsDuringGC // only markCompact can hash cons
-      and s->heap.size < s->sysvals.ram
+      and s->heap.withMapsSize < s->sysvals.ram
       and (not isHeapInit (&s->secondaryHeap)
            or createHeapSecondary (s, desiredSize)))
     majorCheneyCopyGC (s);