Use Config.poll_insertion to set the default for the compile flag

ocaml-flambda · Dec 1, 2022 · 5f3b231 · 5f3b231
1 parent fa566f2
commit 5f3b231
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/driver/flambda_backend_flags.ml b/driver/flambda_backend_flags.ml
@@ -27,7 +27,8 @@ let heap_reduction_threshold = ref default_heap_reduction_threshold (* -heap-red
 let alloc_check = ref false             (* -alloc-check *)
 let dump_checkmach = ref false          (* -dcheckmach *)
 
-let disable_poll_insertion = ref true   (* -disable-poll-insertion *)
+let disable_poll_insertion = ref (not Config.poll_insertion)
+                                        (* -disable-poll-insertion *)
 let allow_long_frames = ref true        (* -no-long-frames *)
 (* Keep the value of [max_long_frames_threshold] in sync with LONG_FRAME_MARKER
    in ocaml/runtime/roots_nat.c *)