summaryrefslogtreecommitdiff
path: root/rts/RaiseAsync.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/RaiseAsync.c')
-rw-r--r--rts/RaiseAsync.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index d3400d791d..d411c41101 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -1017,6 +1017,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception,
// Not stop_at_atomically... fall through and abort the
// transaction.
+ case CATCH_STM_FRAME:
case CATCH_RETRY_FRAME:
// IF we find an ATOMICALLY_FRAME then we abort the
// current transaction and propagate the exception. In