From 54fe7a440247fbd0f853d07da23d48b50a229a00 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 9 Jun 2008 17:16:17 +0000 Subject: [PATCH] threadStackUnderflow: fix up the bd->free pointers in the split blocks --- rts/Schedule.c | 2 ++ 1 file changed, 2 insertions(+) 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); -- 1.7.10.4