X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2Fsm%2FEvac.c;h=2ea4c28ff8635f41aedbc165284db85b69ed8197;hb=d58a96766aea255bb39730511191588373e1445e;hp=1c0a2d803b180f5454cb70e50b700dd5abd8e64e;hpb=e24f61c8731d7d95a6466fa556acbf712c11b9c4;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 1c0a2d8..2ea4c28 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -170,7 +170,7 @@ unchain_thunk_selectors(StgSelector *p, StgClosure *val)
         ASSERT(p->header.info == &stg_BLACKHOLE_info);
 #endif
         // val must be in to-space.
-        ASSERT(Bdescr((P_)val)->gen_no > N || (Bdescr((P_)val)->flags & BF_EVACUATED));
+        ASSERT(!HEAP_ALLOCED(val) || Bdescr((P_)val)->gen_no > N || (Bdescr((P_)val)->flags & BF_EVACUATED));
 
         prev = (StgSelector*)((StgClosure *)p)->payload[0];