flambda-backend: Update GC phase assertion (#2358)

ocaml-flambda · Apr 2, 2024 · fa8acc9 · fa8acc9
1 parent 8f12f05
commit fa8acc9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/runtime/major_gc.c b/runtime/major_gc.c
@@ -266,7 +266,8 @@ static caml_plat_mutex orphaned_lock = CAML_PLAT_MUTEX_INITIALIZER;
 
 void caml_add_orphaned_finalisers (struct caml_final_info* f)
 {
-  CAMLassert (caml_gc_phase == Phase_sweep_main);
+  CAMLassert (caml_gc_phase == Phase_sweep_main ||
+              caml_gc_phase == Phase_sweep_and_mark_main);
   CAMLassert (!f->updated_first);
   CAMLassert (!f->updated_last);