Merge PR #11306: Centralize the flag handling native compilation.

Ack-by: SkySkimmer
Reviewed-by: maximedenes

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/flags.ml b/lib/flags.ml
index 2832ddd27a..1d9d6d49bc 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -82,3 +82,11 @@ let get_inline_level () = !inline_level
 
 let profile_ltac = ref false
 let profile_ltac_cutoff = ref 2.0
+
+let native_compiler = ref None
+let get_native_compiler () = match !native_compiler with
+| None -> assert false
+| Some b -> b
+let set_native_compiler b =
+  let () = assert (!native_compiler == None) in
+  native_compiler := Some b