Commit a668cd2e authored by simonmar@microsoft.com's avatar simonmar@microsoft.com
Browse files

comment out a bogus assertion

parent 06f9b7c3
......@@ -169,8 +169,11 @@ unchain_thunk_selectors(StgSelector *p, StgClosure *val)
#else
ASSERT(p->header.info == &stg_BLACKHOLE_info);
#endif
// val must be in to-space.
ASSERT(!HEAP_ALLOCED(val) || Bdescr((P_)val)->gen_no > N || (Bdescr((P_)val)->flags & BF_EVACUATED));
// val must be in to-space. Not always: when we recursively
// invoke eval_thunk_selector(), the recursive calls will not
// evacuate the value (because we want to select on the value,
// not evacuate it), so in this case val is in from-space.
// 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