Commit 8d750a5c authored by simonmar's avatar simonmar
Browse files

[project @ 2004-12-08 10:29:01 by simonmar]

deleteThread: don't attempt to delete threads blocked in foreign calls.
parent 5ece0e43
......@@ -3013,7 +3013,10 @@ unblockThread(StgTSO *tso)
void
deleteThread(StgTSO *tso)
{
raiseAsync(tso,NULL);
if (tso->why_blocked != BlockedOnCCall &&
tso->why_blocked != BlockedOnCCall_NoUnblockExc) {
raiseAsync(tso,NULL);
}
}
#ifdef FORKPROCESS_PRIMOP_SUPPORTED
......
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