From b3e443af986a597a5b6be88c4d270bac58e422a7 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 21 Dec 2010 10:14:11 +0000
Subject: [PATCH] raiseExceptionHelper: update tso->stackobj->sp before
 calling threadStackOverflow (#4845)

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

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c115d2b..621aef2 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2220,6 +2220,7 @@ raiseExceptionHelper (StgRegTable *reg, StgTSO *tso, StgClosure *exception)
             return CATCH_STM_FRAME;
 	    
         case UNDERFLOW_FRAME:
+            tso->stackobj->sp = p;
             threadStackUnderflow(cap,tso);
             p = tso->stackobj->sp;
             continue;
-- 
1.7.10.4