From: Simon Marlow Date: Fri, 26 Sep 2008 23:28:06 +0000 (+0000) Subject: Fix #2411: missing case for CATCH_STM_FRAME in raiseAsync() X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=45c92e91085250724bfc350ae8e78cfe93515235;p=ghc-hetmet.git Fix #2411: missing case for CATCH_STM_FRAME in raiseAsync() --- diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index d3400d7..d411c41 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