[MLton-commit] r7058

[Matthew Fluet]

Share out-of-memory error message.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/runtime/gc/heap.c
===================================================================
--- mlton/trunk/runtime/gc/heap.c	2009-04-08 12:31:49 UTC (rev 7057)
+++ mlton/trunk/runtime/gc/heap.c	2009-04-08 12:31:52 UTC (rev 7058)
@@ -481,12 +481,10 @@
       curHeapp->oldGenSize = liveSize;
     } else {
       GC_diskBack_close (data);
-      if (s->controls.messages)
-        GC_displayMem ();
-      die ("Out of memory.  Unable to allocate heap with %s bytes.\n",
-           uintmaxToCommaString(minSize));
+      goto oom;
     }
   } else {
+oom:
     if (s->controls.messages)
       GC_displayMem ();
     die ("Out of memory.  Unable to allocate heap with %s bytes.\n",