diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-25 15:58:12 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-25 15:58:12 +0000 |
| commit | 9b6f3526d92778afe6d96d3b6d87f270ea443ac1 (patch) | |
| tree | 1b426a769974e5f375995a914b97beeb4bea64e4 /rts | |
| parent | 9de55417c7e397c7293df4bd6c2f60307acb3611 (diff) | |
| download | haskell-9b6f3526d92778afe6d96d3b6d87f270ea443ac1.tar.gz | |
fix warning
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Sparks.c | 2 |
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++; |