Don't lose linked list tail

[ghc-hetmet.git] / rts / MBlock.c

diff --git a/rts/MBlock.c b/rts/MBlock.c
index edde679..c886fd5 100644 (file)
--- a/rts/MBlock.c
+++ b/rts/MBlock.c
@@ -408,7 +408,7 @@ findFreeBlocks(nat n) {
         if( (((unsigned long)it->base) & MBLOCK_MASK) == 0) { /* MBlock aligned */
             ret = (void*)it->base;
             if(it->size==required_size) {
-                prev->next=0;
+                prev->next=it->next;
                 stgFree(it);
             } else {
                 it->base += required_size;