From 8e832951c495e060e8dc70f7192ef737a127e888 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 2 Dec 2009 13:40:41 +0000 Subject: [PATCH] fix to sanity checking for ThreadRelocated TSOs --- rts/Sanity.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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; -- 1.7.10.4