From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 9 Jun 2008 17:16:17 +0000 (+0000)
Subject: threadStackUnderflow: fix up the bd->free pointers in the split blocks
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=54fe7a440247fbd0f853d07da23d48b50a229a00

threadStackUnderflow: fix up the bd->free pointers in the split blocks
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c07b21a..715517e 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2819,6 +2819,8 @@ threadStackUnderflow (Task *task STG_UNUSED, StgTSO *tso)
 
     bd = Bdescr((StgPtr)tso);
     new_bd = splitLargeBlock(bd, new_tso_size_w / BLOCK_SIZE_W);
+    new_bd->free = bd->free;
+    bd->free = bd->start + TSO_STRUCT_SIZEW;
 
     new_tso = (StgTSO *)new_bd->start;
     memcpy(new_tso,tso,TSO_STRUCT_SIZE);