X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSanity.c;fp=rts%2FSanity.c;h=4430c4b6bd4661acd491bd28815713939fcfb58a;hb=c5cafbcca54c4b1117bc43b31d86afa583fb7f62;hp=49bbff72c2ba014d862105121756d1b8e9ef9afd;hpb=0dffc568e18d34eeb6d1899ea767a3814d6be167;p=ghc-hetmet.git

diff --git a/rts/Sanity.c b/rts/Sanity.c
index 49bbff7..4430c4b 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -581,7 +581,7 @@ checkGlobalTSOList (rtsBool checkTSOs)
           // If this TSO is dirty and in an old generation, it better
           // be on the mutable list.
           if (tso->what_next == ThreadRelocated) continue;
-          if (tso->flags & (TSO_DIRTY|TSO_LINK_DIRTY)) {
+          if (tso->dirty || (tso->flags & TSO_LINK_DIRTY)) {
               ASSERT(Bdescr((P_)tso)->gen_no == 0 || (tso->flags & TSO_MARKED));
               tso->flags &= ~TSO_MARKED;
           }