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

Fix bug: eval_thunk_selector was calling the unlocked evacuate()

parent ddacc40c
......@@ -39,6 +39,7 @@ copy_tag(StgClosure **p, StgClosure *src, nat size, step *stp, StgWord tag)
return evacuate(p); // does the failed_to_evac stuff
}
#else
ASSERT(n_gc_threads == 1);
info = (W_)src->header.info;
src->header.info = &stg_EVACUATED_info;
#endif
......@@ -563,3 +564,8 @@ loop:
barf("evacuate");
}
#undef copy
#undef copy_tag
#undef copyPart
#undef evacuate
......@@ -20,6 +20,7 @@
#else
#undef scavenge_block
#undef evacuate
#undef recordMutableGen_GC
#endif
static void scavenge_block (bdescr *bd, StgPtr scan);
......
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