diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-09-21 18:04:24 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-21 20:13:01 -0400 |
| commit | a9d417dab21e0b677f13c2ba99244162a8fffe3e (patch) | |
| tree | fd8b0a0ba40e5e855c3567b5c9456c2e125fcb81 /rts/Exception.cmm | |
| parent | 760b9a363cd4e9287a05b23c74357db0e815bdf3 (diff) | |
| download | haskell-a9d417dab21e0b677f13c2ba99244162a8fffe3e.tar.gz | |
rts: Set unwind information for catch_frame
Reviewers: austin, erikd, simonmar
Reviewed By: simonmar
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3937
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 4970aa25e4..9661c23217 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -370,6 +370,7 @@ INFO_TABLE_RET(stg_catch_frame, CATCH_FRAME, exceptions_blocked,handler)) return (P_ ret) { + unwind Sp = Sp + SIZEOF_StgCatchFrame; return (ret); } |