Commit 5e5d2bae authored by Simon Marlow's avatar Simon Marlow

Fix bug in the handling of TSOs in the compacting GC (#5644)

parent 11fcb10a
......@@ -474,7 +474,8 @@ thread_TSO (StgTSO *tso)
if ( tso->why_blocked == BlockedOnMVar
|| tso->why_blocked == BlockedOnBlackHole
|| tso->why_blocked == BlockedOnMsgThrowTo
) {
|| tso->why_blocked == NotBlocked
) {
thread_(&tso->block_info.closure);
}
thread_(&tso->blocked_exceptions);
......
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