From d58a96766aea255bb39730511191588373e1445e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 18 Jan 2008 16:09:10 +0000 Subject: [PATCH] fix an assertion --- rts/sm/Evac.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]; -- 1.7.10.4