Commit d58a9676 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix an assertion

parent e24f61c8
......@@ -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];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment