diff options
Diffstat (limited to 'rts/sm/Scav.c')
-rw-r--r-- | rts/sm/Scav.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 732ad15927..34096d489b 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -1372,7 +1372,7 @@ scavenge_one(StgPtr p) * evacuated, so we perform that check here. */ StgClosure *q = ((StgInd *)p)->indirectee; - if (HEAP_ALLOCED(q) && Bdescr((StgPtr)q)->flags & BF_EVACUATED) { + if (HEAP_ALLOCED_GC(q) && Bdescr((StgPtr)q)->flags & BF_EVACUATED) { break; } evacuate(&((StgInd *)p)->indirectee); |