vm: record compaction events correctly

db4
Slava Pestov 2009-11-13 09:29:21 -06:00
parent 47087480a9
commit 4c268f2600
1 changed files with 4 additions and 0 deletions

View File

@ -127,7 +127,11 @@ void factor_vm::collect_full(bool trace_contexts_p)
collect_mark_impl(trace_contexts_p);
collect_sweep_impl();
if(data->low_memory_p())
{
current_gc->op = collect_compact_op;
current_gc->event->op = collect_compact_op;
collect_compact_impl(trace_contexts_p);
}
else
update_code_heap_words_and_literals();
}