summaryrefslogtreecommitdiff
path: root/rts/Sparks.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Sparks.c')
-rw-r--r--rts/Sparks.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c
index 93f641757e..7e2556d976 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++;