diff options
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 |