diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2013-10-10 18:37:32 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2013-10-11 16:50:02 -0700 |
| commit | c6af06ef38813c460eaa0dec613eae98f4a57796 (patch) | |
| tree | 6906746de38a0d01079b1e6edada96b4cf9b558b /rts/RaiseAsync.c | |
| parent | 400c260f977f5cd2bf2f2f26deeeecbe37466295 (diff) | |
| download | haskell-c6af06ef38813c460eaa0dec613eae98f4a57796.tar.gz | |
If exceptions are blocked, add stack overflow to blocked exceptions list. Fixes #8303.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index edc4a91193..86a16d3e08 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -33,9 +33,6 @@ static void removeFromQueues(Capability *cap, StgTSO *tso); static void removeFromMVarBlockedQueue (StgTSO *tso); -static void blockedThrowTo (Capability *cap, - StgTSO *target, MessageThrowTo *msg); - static void throwToSendMsg (Capability *cap USED_IF_THREADS, Capability *target_cap USED_IF_THREADS, MessageThrowTo *msg USED_IF_THREADS); @@ -467,7 +464,7 @@ throwToSendMsg (Capability *cap STG_UNUSED, // Block a throwTo message on the target TSO's blocked_exceptions // queue. The current Capability must own the target TSO in order to // modify the blocked_exceptions queue. -static void +void blockedThrowTo (Capability *cap, StgTSO *target, MessageThrowTo *msg) { debugTraceCap(DEBUG_sched, cap, "throwTo: blocking on thread %lu", |