try something

src/filters/filters.ml

@@ -452,6 +452,10 @@ let run tctx ectx main before_destruction =
 	] in
 	List.iter (run_expression_filters tctx detail_times filters) new_types;
 
+	let alarm = Gc.create_alarm (fun () ->
+		print_endline "BAD MAJOR";
+	) in
+
 	let filters = [
 		"local_statics",LocalStatic.run;
 		"fix_return_dynamic_from_void_function",SafeFilters.fix_return_dynamic_from_void_function;
@@ -464,6 +468,9 @@ let run tctx ectx main before_destruction =
 			Parallel.ParallelArray.iter pool (SafeCom.run_expression_filters_safe scom detail_times filters) new_types_array
 		);
 	);
+
+	Gc.delete_alarm alarm;
+
 	let filters = [
 		"reduce_expression",Optimizer.reduce_expression;
 		"inline_constructors",InlineConstructors.inline_constructors;
@@ -475,6 +482,9 @@ let run tctx ectx main before_destruction =
 	let filters = [
 		"captured_vars",(fun scom -> CapturedVars.captured_vars scom cv_wrapper_impl);
 	] in
+	let alarm = Gc.create_alarm (fun () ->
+		print_endline "BAD MAJOR";
+	) in
 	let locals = Parallel.run_in_new_pool (fun pool ->
 		run_parallel_safe com scom pool (fun () ->
 			Parallel.ParallelArray.iter pool (SafeCom.run_expression_filters_safe scom detail_times filters) new_types_array
@@ -498,6 +508,7 @@ let run tctx ectx main before_destruction =
 		);
 		locals
 	) in
+	Gc.delete_alarm alarm;
 	with_timer tctx.com.timer_ctx detail_times "callbacks" None (fun () ->
 		com.callbacks#run com.error_ext com.callbacks#get_before_save;
 	);