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

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 48179f7..c1ff541 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -48,7 +48,7 @@ isAlive(StgClosure *p)
     // Problem here is that we sometimes don't set the link field, eg.
     // for static closures with an empty SRT or CONSTR_STATIC_NOCAFs.
     //
-    if (!HEAP_ALLOCED(q)) {
+    if (!HEAP_ALLOCED_GC(q)) {
 	return p;
     }
 
@@ -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;
     }