fix counting bug found by @stedolan

ocaml · Apr 28, 2021 · cad273a · cad273a
1 parent a069ed3
commit cad273a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/runtime/major_gc.c b/runtime/major_gc.c
@@ -382,9 +382,9 @@ static void start_cycle (void)
   CAMLassert (Caml_state->mark_stack->count == 0);
   CAMLassert (redarken_first_chunk == NULL);
   caml_gc_message (0x01, "Starting new major GC cycle\n");
+  marked_words = 0;
   caml_darken_all_roots_start ();
   caml_gc_phase = Phase_mark;
-  marked_words = 0;
   heap_wsz_at_cycle_start = Caml_state->stat_heap_wsz;
   caml_gc_subphase = Subphase_mark_roots;
   ephe_list_pure = 1;