Commit e6218fe7 authored by Simon Marlow's avatar Simon Marlow
Browse files

forkProcess(): watch out for ThreadRelocated

parent df85c4b4
......@@ -2149,12 +2149,16 @@ forkProcess(HsStablePtr *entry
// now gone.
for (t = all_threads; t != END_TSO_QUEUE; t = next) {
if (t->what_next == ThreadRelocated) {
next = t->link;
} else {
next = t->global_link;
// don't allow threads to catch the ThreadKilled
// exception, but we do want to raiseAsync() because these
// threads may be evaluating thunks that we need later.
// Empty the run queue. It seems tempting to let all the
// killed threads stay on the run queue as zombies to be
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