From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Dec 2009 13:40:41 +0000 (+0000)
Subject: fix to sanity checking for ThreadRelocated TSOs
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8e832951c495e060e8dc70f7192ef737a127e888

fix to sanity checking for ThreadRelocated TSOs
---

diff --git a/rts/Sanity.c b/rts/Sanity.c
index 4430c4b..4149d64 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -578,9 +578,12 @@ checkGlobalTSOList (rtsBool checkTSOs)
           if (checkTSOs)
               checkTSO(tso);
 
+          while (tso->what_next == ThreadRelocated) {
+              tso = tso->_link;
+          }
+
           // 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->dirty || (tso->flags & TSO_LINK_DIRTY)) {
               ASSERT(Bdescr((P_)tso)->gen_no == 0 || (tso->flags & TSO_MARKED));
               tso->flags &= ~TSO_MARKED;