From ff05c28132ceb188d0f01b37992cf1b4009ffc38 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 12 Sep 2005 16:00:43 +0000
Subject: [PATCH] [project @ 2005-09-12 16:00:43 by simonmar] raiseAsync_:
 raise_info closure is header + MIN_UPD_SIZE, not header + 1
 words.  (MIN_UPD_SIZE is 1 in the HEAD so this has no
 effect, but it'll make a difference on STABLE).

---
 ghc/rts/Schedule.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 2f94cf0..a496c3d 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -3816,7 +3816,7 @@ raiseAsync_(StgTSO *tso, StgClosure *exception, rtsBool stop_at_atomically)
 	    // we've got an exception to raise, so let's pass it to the
 	    // handler in this frame.
 	    //
-	    raise = (StgThunk *)allocate(sizeofW(StgThunk)+1);
+	    raise = (StgThunk *)allocate(sizeofW(StgThunk)+MIN_UPD_SIZE);
 	    TICK_ALLOC_SE_THK(1,0);
 	    SET_HDR(raise,&stg_raise_info,cf->header.prof.ccs);
 	    raise->payload[0] = exception;
-- 
1.7.10.4