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 /kernel/safe_typing.ml | |
| 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 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 779e05ee0c..4b64cc6d11 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -198,6 +198,14 @@ let set_share_reduction b senv = let flags = Environ.typing_flags senv.env in set_typing_flags { flags with share_reduction = b } senv +let set_VM b senv = + let flags = Environ.typing_flags senv.env in + set_typing_flags { flags with enable_VM = b } senv + +let set_native_compiler b senv = + let flags = Environ.typing_flags senv.env in + set_typing_flags { flags with enable_native_compiler = b } senv + (** Check that the engagement [c] expected by a library matches the current (initial) one *) let check_engagement env expected_impredicative_set = |