X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCAux.c;h=66806f4d3fe43f701eb3d3f378a9a9f7a4e2cb77;hb=f48b8ba55be1f05a0a8e0cc3348ba44ca86c554c;hp=48179f7920e4b5a443634a677d6076306fd0dba3;hpb=5b726bda032c2015a34131c41d1d338cc759736f;p=ghc-hetmet.git

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 48179f7..66806f4 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -71,7 +71,7 @@ isAlive(StgClosure *p)
     }
 
     // check the mark bit for compacted steps
-    if ((bd->flags & BF_COMPACTED) && is_marked((P_)q,bd)) {
+    if ((bd->flags & BF_MARKED) && is_marked((P_)q,bd)) {
 	return p;
     }