raiseExceptionHelper: update tso->stackobj->sp before calling threadStackOverflow...

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c115d2b..621aef2 100644 (file)
--- 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:
             return CATCH_STM_FRAME;
            
         case UNDERFLOW_FRAME:

+            tso->stackobj->sp = p;

             threadStackUnderflow(cap,tso);
             p = tso->stackobj->sp;
             continue;
             threadStackUnderflow(cap,tso);
             p = tso->stackobj->sp;
             continue;