diff options
| author | Pierre-Marie Pédrot | 2018-11-05 14:25:10 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-05 14:25:10 +0100 |
| commit | ea678521c9eda7acde3a0276e0cec0931dbc6416 (patch) | |
| tree | cbc2baf5777992a7e81e24a662dfce5db311d6a2 /library | |
| parent | afc3e334c02cbbbe395387ff7110a296dce6c9f6 (diff) | |
| parent | e2e7fea91f3af5dcf62052078da65489b796e9e2 (diff) | |
Merge PR #8870: Pass native and VM flags to the kernel through environment
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 |