From 0506cb7ec75321eaacc6c279d01d82368d2ca125 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 26 Mar 2009 14:03:43 +0000 Subject: [PATCH] check for ThreadRelocated in checkBlackHoles() --- rts/Schedule.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rts/Schedule.c b/rts/Schedule.c index 636b517..141c973 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -2544,6 +2544,10 @@ checkBlackHoles (Capability *cap) prev = &blackhole_queue; t = blackhole_queue; while (t != END_TSO_QUEUE) { + if (t->what_next == ThreadRelocated) { + t = t->_link; + continue; + } ASSERT(t->why_blocked == BlockedOnBlackHole); type = get_itbl(UNTAG_CLOSURE(t->block_info.closure))->type; if (type != BLACKHOLE && type != CAF_BLACKHOLE) { -- 1.7.10.4