Fix bug in the handling of TSOs in the compacting GC (#5644)
authorSimon Marlow <marlowsd@gmail.com>
Fri, 18 Nov 2011 17:05:44 +0000 (17:05 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 21 Nov 2011 11:05:24 +0000 (11:05 +0000)
rts/sm/Compact.c

index 1b57c53..4f71026 100644 (file)
@@ -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);