Commit 49add1a0 authored by Ben Gamari's avatar Ben Gamari 🐢

Revert "NonMovingScav: Account for new allocations"

This reverts commit ce36fd89.
parent a8716159
......@@ -373,12 +373,13 @@ scavengeNonmovingSegment (struct NonmovingSegment *seg)
ASSERT(seg_block->u.scan >= (P_)nonmovingSegmentGetBlock(seg, 0));
ASSERT(seg_block->u.scan <= (P_)nonmovingSegmentGetBlock(seg, seg->next_free));
nonmoving_block_idx p_idx = nonmovingGetBlockIdx(seg_block->u.scan);
if (p_idx == seg->next_free)
StgPtr scan_end = (P_)nonmovingSegmentGetBlock(seg, seg->next_free);
if (seg_block->u.scan == scan_end)
return;
trace_dump_note("scavenging segment");
while (p_idx < seg->next_free) {
nonmoving_block_idx p_idx = nonmovingGetBlockIdx(seg_block->u.scan);
while (seg_block->u.scan < scan_end) {
StgClosure *p = (StgClosure*)seg_block->u.scan;
trace_dump_set_source_closure(p);
......
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