diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-01-18 16:09:10 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-01-18 16:09:10 +0000 |
| commit | d58a96766aea255bb39730511191588373e1445e (patch) | |
| tree | 8e717f83546e6dcf512eb52b09cddf012c00ba0e /rts | |
| parent | e24f61c8731d7d95a6466fa556acbf712c11b9c4 (diff) | |
| download | haskell-d58a96766aea255bb39730511191588373e1445e.tar.gz | |
fix an assertion
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Evac.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 1c0a2d803b..2ea4c28ff8 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]; |