Commit 48a5a534 authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix crash with +RTS -xc (occasional cgrun057(profthreaded) failure)

Don't try to print a stack trace from raiseAsync() when there's no
exception - we might just be deleting the thread, or suspending
duplicate work.
parent 155ce292
...@@ -737,7 +737,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, ...@@ -737,7 +737,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception,
* See also Exception.cmm:stg_raisezh. * See also Exception.cmm:stg_raisezh.
* This wasn't done for asynchronous exceptions originally; see #1450 * This wasn't done for asynchronous exceptions originally; see #1450
*/ */
if (RtsFlags.ProfFlags.showCCSOnException) if (RtsFlags.ProfFlags.showCCSOnException && exception != NULL)
{ {
fprintCCS_stderr(tso->prof.cccs,exception,tso); fprintCCS_stderr(tso->prof.cccs,exception,tso);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment