[MLton-commit] r6601

[Matthew Fluet]

Use GC_displayMem on any OOM

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

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

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

Modified: mlton/trunk/runtime/gc/heap.c
===================================================================
--- mlton/trunk/runtime/gc/heap.c	2008-04-22 16:42:19 UTC (rev 6600)
+++ mlton/trunk/runtime/gc/heap.c	2008-04-22 16:42:27 UTC (rev 6601)
@@ -355,6 +355,8 @@
            uintmaxToCommaString(minSize));
     }
   } else {
+    if (s->controls.messages)
+      GC_displayMem ();
     die ("Out of memory.  Unable to allocate heap with %s bytes.\n",
          uintmaxToCommaString(minSize));
   }