diff options
| author | Maxime Dénès | 2018-10-31 11:45:09 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-05 10:36:22 +0100 |
| commit | e2e7fea91f3af5dcf62052078da65489b796e9e2 (patch) | |
| tree | d44da683ff0159a6a722600777acb555732fb66e /library | |
| parent | eb842684456c5a965507c83e7b169ae0d0f6cc90 (diff) | |
Pass native and VM flags to the kernel through environment
The kernel no longer has to read the configure flag, its value can now
be overriden by a coqtop/coqc argument, and more generally is easier to
set from a toplevel (such as the checker).
We also add a `-bytecode-compiler` flag.
Fixes #4607
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 3 | ||||
| -rw-r--r-- | library/global.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index bfea6d3dea..4ea5969a6f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -186,3 +186,6 @@ let set_strategy k l = let set_share_reduction b = globalize0 (Safe_typing.set_share_reduction b) + +let set_VM b = globalize0 (Safe_typing.set_VM b) +let set_native_compiler b = globalize0 (Safe_typing.set_native_compiler b) diff --git a/library/global.mli b/library/global.mli index 762a3f006d..01ee695c49 100644 --- a/library/global.mli +++ b/library/global.mli @@ -154,6 +154,9 @@ val set_strategy : Constant.t Names.tableKey -> Conv_oracle.level -> unit val set_share_reduction : bool -> unit +val set_VM : bool -> unit +val set_native_compiler : bool -> unit + (* Modifies the global state, registering new universes *) val current_modpath : unit -> ModPath.t |