Implement atomicReadMVar, fixing #4001.
[ghc.git] / rts / sm / Compact.c
index 9c98dc9..247f1a0 100644 (file)
@@ -442,6 +442,7 @@ thread_TSO (StgTSO *tso)
     thread_(&tso->global_link);
 
     if (   tso->why_blocked == BlockedOnMVar
+        || tso->why_blocked == BlockedOnMVarRead
        || tso->why_blocked == BlockedOnBlackHole
        || tso->why_blocked == BlockedOnMsgThrowTo
         || tso->why_blocked == NotBlocked