diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-04-30 09:25:44 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-04-30 09:25:44 +0200 |
commit | 8c3d9eb165b456fc83753624efe6708832e9b52f (patch) | |
tree | f0c7050b1b2fcaa63167e8830c535d1dde982f35 /vernac | |
parent | 14226761af6525c9848f3626cd86b0d4e47dad4d (diff) | |
parent | ce9b17821a3be3dee7fa7e49c35edaefc658b965 (diff) |
Merge PR #6958: [lib] Move global options to their proper place.
Diffstat (limited to 'vernac')
-rw-r--r-- | vernac/vernacentries.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 19658806c..8c48490ff 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1465,22 +1465,22 @@ let _ = optkey = ["Printing";"Universes"]; optread = (fun () -> !Constrextern.print_universes); optwrite = (fun b -> Constrextern.print_universes:=b) } - + let _ = declare_bool_option { optdepr = false; optname = "dumping bytecode after compilation"; optkey = ["Dump";"Bytecode"]; - optread = Flags.get_dump_bytecode; - optwrite = Flags.set_dump_bytecode } + optread = (fun () -> !Cbytegen.dump_bytecode); + optwrite = (:=) Cbytegen.dump_bytecode } let _ = declare_bool_option { optdepr = false; optname = "dumping VM lambda code after compilation"; optkey = ["Dump";"Lambda"]; - optread = Flags.get_dump_lambda; - optwrite = Flags.set_dump_lambda } + optread = (fun () -> !Clambda.dump_lambda); + optwrite = (:=) Clambda.dump_lambda } let _ = declare_bool_option |