Implement atomicReadMVar, fixing #4001.
[ghc.git] / rts / sm / Scav.c
index 6137f6d..e0cc688 100644 (file)
@@ -71,6 +71,7 @@ scavengeTSO (StgTSO *tso)
 
     evacuate((StgClosure **)&tso->_link);
     if (   tso->why_blocked == BlockedOnMVar
+        || tso->why_blocked == BlockedOnMVarRead
        || tso->why_blocked == BlockedOnBlackHole
        || tso->why_blocked == BlockedOnMsgThrowTo
         || tso->why_blocked == NotBlocked