[MLton-commit] r6600

[Matthew Fluet]

Fixed bug in code to page the heap to disk when unable to grow the heap to a desired size.  Thanks to Nicolas Bertolotti for the patch.

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

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

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

Modified: mlton/trunk/doc/changelog
===================================================================
--- mlton/trunk/doc/changelog	2008-04-21 11:27:24 UTC (rev 6599)
+++ mlton/trunk/doc/changelog	2008-04-22 16:42:19 UTC (rev 6600)
@@ -3,7 +3,7 @@
 * 2008-04-20
    - Fixed bug in code to page the heap to disk when unable to grow
      the heap to a desired size.
-     Thanks to Nicolas Bertolotti for the bug report.
+     Thanks to Nicolas Bertolotti for the bug report and patch.
 
 * 2008-04-07
    - More flexible active/paused stack resizing policy.

Modified: mlton/trunk/runtime/gc/heap.c
===================================================================
--- mlton/trunk/runtime/gc/heap.c	2008-04-21 11:27:24 UTC (rev 6599)
+++ mlton/trunk/runtime/gc/heap.c	2008-04-22 16:42:19 UTC (rev 6600)
@@ -346,6 +346,7 @@
       }
       GC_diskBack_read (data, curHeapp->start, size);
       GC_diskBack_close (data);
+      curHeapp->oldGenSize = size;
     } else {
       GC_diskBack_close (data);
       if (s->controls.messages)