diff options
| author | Pierre-Marie Pédrot | 2019-12-18 15:55:23 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-12-22 14:04:53 +0100 |
| commit | acba2419a4cebb2b55bad2aefa2062640ffe8828 (patch) | |
| tree | 44231e66a98a36360041c9d48123507ca894ca79 /lib/flags.mli | |
| parent | 9c75b6a6582620e2fb9a39c1ea1aa46a321af6a7 (diff) | |
Centralize the flag handling native compilation.
Instead of relying on the Coq_config immutable flag, we introduce an
initialization-only flag to govern the use of the native compiler. This
allows to make coqc passed with "-native-compiler no" behave as if it had
been configured without native compilation.
Diffstat (limited to 'lib/flags.mli')
| -rw-r--r-- | lib/flags.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/flags.mli b/lib/flags.mli index 86a922847f..0e438e2358 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 |