From: Esa Ilari Vuokko <ei@vuokko.info>
Date: Thu, 31 Aug 2006 22:33:15 +0000 (+0000)
Subject: Don't lose linked list tail
X-Git-Tag: Before_FC_branch_merge~90
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4f8a5d3cffccf92f7e93e9d5fd73121b41d1240a

Don't lose linked list tail
---

diff --git a/rts/MBlock.c b/rts/MBlock.c
index edde679..c886fd5 100644
--- 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;