vm: record compaction events correctly

diff --git a/vm/full_collector.cpp b/vm/full_collector.cpp
index 4edb23cf7301eb505580b0ab87d32cf4a8f85652..188ab55efc067547cb5068d43ff323b792f478af 100644 (file)
--- a/vm/full_collector.cpp
+++ b/vm/full_collector.cpp
@@ -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();
 }