X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FEvac.c-inc;h=7e1045273c1994d1d6758ae350d7d21d391c65ab;hp=477c06147908b003f36349b0c12a46fdb05c6e5f;hb=9b06d03f0dda22ee7f4c0a3a99844ed0ad81e213;hpb=0488ced8e92c06d6404159c00599c44db6b51dc8

diff --git a/rts/sm/Evac.c-inc b/rts/sm/Evac.c-inc
index 477c061..7e10452 100644
--- a/rts/sm/Evac.c-inc
+++ b/rts/sm/Evac.c-inc
@@ -482,7 +482,7 @@ loop:
       StgClosure *e = ((StgEvacuated*)q)->evacuee;
       *p = e;
       if (stp < gct->evac_step) {  // optimisation 
-	  if (HEAP_ALLOCED(e) && Bdescr((P_)e)->step < gct->evac_step) {
+	  if (Bdescr((P_)e)->step < gct->evac_step) {
 	      gct->failed_to_evac = rtsTrue;
 	      TICK_GC_FAILED_PROMOTION();
 	  }