diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-09-26 23:28:06 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-09-26 23:28:06 +0000 |
| commit | 45c92e91085250724bfc350ae8e78cfe93515235 (patch) | |
| tree | 69be12319daf94dd13e80466496ea5946ed5366f /rts/RaiseAsync.c | |
| parent | 4f65e5525bb4eb5788d86de3ce6fb6fc82e38f6c (diff) | |
| download | haskell-45c92e91085250724bfc350ae8e78cfe93515235.tar.gz | |
Fix #2411: missing case for CATCH_STM_FRAME in raiseAsync()
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 1 |
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 |