remove alarms

src/filters/filters.ml

@@ -452,10 +452,6 @@ 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;
@@ -469,8 +465,6 @@ let run tctx ectx main before_destruction =
 		);
 	);
 
-	Gc.delete_alarm alarm;
-
 	let filters = [
 		"reduce_expression",Optimizer.reduce_expression;
 		"inline_constructors",InlineConstructors.inline_constructors;
@@ -482,9 +476,7 @@ 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 com.timer_ctx (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
@@ -508,7 +500,6 @@ 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;
 	);