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

Ack-by: SkySkimmer
Reviewed-by: maximedenes

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/flags.mli b/lib/flags.mli
index a68be196d7..30d1b5b2bd 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -90,6 +90,11 @@ val without_option : bool ref -> ('a -> 'b) -> 'a -> 'b
 (** Temporarily extends the reference to a list *)
 val with_extra_values : 'c list ref -> 'c list -> ('a -> 'b) -> 'a -> 'b
 
+(** Native compilation flag *)
+val get_native_compiler : unit -> bool
+val set_native_compiler : bool -> unit
+(** Must be set exactly once at initialization time. *)
+
 (** Level of inlining during a functor application *)
 val set_inline_level : int -> unit
 val get_inline_level : unit -> int