X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FScav.c;h=466b9b44f7fb6b93f8d63c1f2669bd5bab827151;hp=a2ee1ced2756b118091f9d0422a6563203cec3fc;hb=ce7bf1839d868fd829f0224b226da54612ac0e88;hpb=b7a8d2059f982599d31d14395c6628a049ec5179

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index a2ee1ce..466b9b4 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -1490,9 +1490,11 @@ scavenge_mutable_list(bdescr *bd, generation *gen)
 	    case TSO: {
 		StgTSO *tso = (StgTSO *)p;
 		if (tso->dirty == 0) {
-                    // Must be on the mutable list because its link
-                    // field is dirty.
-                    ASSERT(tso->flags & TSO_LINK_DIRTY);
+                    // Should be on the mutable list because its link
+                    // field is dirty.  However, in parallel GC we may
+                    // have a thread on multiple mutable lists, so
+                    // this assertion would be invalid:
+                    // ASSERT(tso->flags & TSO_LINK_DIRTY);
 
                     scavenge_TSO_link(tso);
                     if (gct->failed_to_evac) {