From 9b6f3526d92778afe6d96d3b6d87f270ea443ac1 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 25 May 2010 15:58:12 +0000 Subject: [PATCH] fix warning --- rts/Sparks.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/Sparks.c b/rts/Sparks.c index 93f6417..7e2556d 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -209,7 +209,7 @@ pruneSparkQueue (Capability *cap) cap->sparks_pruned++; } } else if (HEAP_ALLOCED(spark) && - (Bdescr(spark)->flags & BF_EVACUATED)) { + (Bdescr((P_)spark)->flags & BF_EVACUATED)) { if (closure_SHOULD_SPARK(spark)) { elements[botInd] = spark; // keep entry (new address) botInd++; -- 1.7.10.4