vm: record compaction events correctly
parent
47087480a9
commit
4c268f2600
|
@ -127,7 +127,11 @@ void factor_vm::collect_full(bool trace_contexts_p)
|
||||||
collect_mark_impl(trace_contexts_p);
|
collect_mark_impl(trace_contexts_p);
|
||||||
collect_sweep_impl();
|
collect_sweep_impl();
|
||||||
if(data->low_memory_p())
|
if(data->low_memory_p())
|
||||||
|
{
|
||||||
|
current_gc->op = collect_compact_op;
|
||||||
|
current_gc->event->op = collect_compact_op;
|
||||||
collect_compact_impl(trace_contexts_p);
|
collect_compact_impl(trace_contexts_p);
|
||||||
|
}
|
||||||
else
|
else
|
||||||
update_code_heap_words_and_literals();
|
update_code_heap_words_and_literals();
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue