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