From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 18 Jan 2008 16:09:10 +0000 (+0000)
Subject: fix an assertion
X-Git-Tag: Before_cabalised-GHC~256
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d58a96766aea255bb39730511191588373e1445e

fix an assertion
---

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];