Experiment: replace Gc.compact in 'cleanup' with Gc.full_major

ocaml-multicore · Dec 21, 2024 · 0374c67 · 0374c67
1 parent f375e25
commit 0374c67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gc/stm_tests_spec.ml b/src/gc/stm_tests_spec.ml
@@ -281,7 +281,7 @@ let cleanup sut =
     sut.lists <- [| |];
     sut.bigarrays <- [| |];
     Gc.set init_state;
-    Gc.compact ()
+    Gc.full_major ()
   end
 
 let precond _n _s = true