From f89b598d9d023eb4a33d26cd4d2c446ace25bef1 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 3 Jan 2008 11:27:17 +0000 Subject: [PATCH] FIX #1898: add a missing UNTAG_CLOSURE() in checkBlackHoles --- rts/Schedule.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/Schedule.c b/rts/Schedule.c index cb2f7f3..3a45495 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -2949,7 +2949,7 @@ checkBlackHoles (Capability *cap) t = blackhole_queue; while (t != END_TSO_QUEUE) { ASSERT(t->why_blocked == BlockedOnBlackHole); - type = get_itbl(t->block_info.closure)->type; + type = get_itbl(UNTAG_CLOSURE(t->block_info.closure))->type; if (type != BLACKHOLE && type != CAF_BLACKHOLE) { IF_DEBUG(sanity,checkTSO(t)); t = unblockOne(cap, t); -- 1.7.10.4