summaryrefslogtreecommitdiff
path: root/rts/PrimOps.cmm
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2017-09-21 18:04:03 -0400
committerBen Gamari <ben@smart-cactus.org>2017-09-21 20:12:51 -0400
commit760b9a363cd4e9287a05b23c74357db0e815bdf3 (patch)
treead9a0848e00b36470a5b7b9f29b36a7fa289ceaa /rts/PrimOps.cmm
parentfeac0a3bc69fd376231aa3c83d031c131156ddb9 (diff)
downloadhaskell-760b9a363cd4e9287a05b23c74357db0e815bdf3.tar.gz
rts: Set unwind information for remaining stack frames
Reviewers: austin, erikd, simonmar Reviewed By: simonmar Subscribers: rwbarton, thomie Differential Revision: https://phabricator.haskell.org/D3985
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r--rts/PrimOps.cmm1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 3d4bea433d..6047b49aca 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1004,6 +1004,7 @@ INFO_TABLE_RET(stg_catch_retry_frame, CATCH_RETRY_FRAME,
alt_code))
return (P_ ret)
{
+ unwind Sp = Sp + SIZEOF_StgCatchRetryFrame;
W_ r;
gcptr trec, outer, arg;