diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-21 10:14:11 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-21 10:14:11 +0000 |
| commit | b3e443af986a597a5b6be88c4d270bac58e422a7 (patch) | |
| tree | 0779b72717bc6330f495be99580a309239c27007 /rts/Schedule.c | |
| parent | 5ff15f3ab29762b6e3ce9b3a1e1b199e7bca45da (diff) | |
| download | haskell-b3e443af986a597a5b6be88c4d270bac58e422a7.tar.gz | |
raiseExceptionHelper: update tso->stackobj->sp before calling threadStackOverflow (#4845)
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index c115d2bde6..621aef2ab7 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; |