diff options
| author | Hugo Herbelin | 2019-05-10 11:24:51 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-07-08 02:31:27 +0200 |
| commit | 2bdfddc39d1fd6200042ddb95ded98b44e14b8e5 (patch) | |
| tree | b3d7191233a2e8b8c2a7fa564e7bdeb8bf95594b /toplevel | |
| parent | c41f747f7df49bc26983d41096519672f05b793a (diff) | |
Passing command-line option async_proofs_worker_priority functionally.
We lose track of it at some time in "known_state" and assume that the
reference cur_opt has not been modified in between the time it was set
(in "new_doc") and "known_state".
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqargs.ml | 5 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 | ||||
| -rw-r--r-- | toplevel/workerLoop.ml | 3 |
3 files changed, 5 insertions, 5 deletions
diff --git a/toplevel/coqargs.ml b/toplevel/coqargs.ml index b1f823cd1a..d05bf6378a 100644 --- a/toplevel/coqargs.ml +++ b/toplevel/coqargs.ml @@ -386,8 +386,9 @@ let parse_args ~help ~init arglist : t * string list = }}} |"-async-proofs-worker-priority" -> - CoqworkmgrApi.async_proofs_worker_priority := get_priority opt (next ()); - oval + { oval with config = { oval.config with stm_flags = { oval.config.stm_flags with + Stm.AsyncOpts.async_proofs_worker_priority = get_priority opt (next ()) + }}} |"-async-proofs-private-flags" -> { oval with config = { oval.config with stm_flags = { oval.config.stm_flags with diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 79b9d5d501..560ba35a42 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -233,6 +233,7 @@ let init_execution opts custom_init = let top_lp = Coqinit.toplevel_init_load_path () in List.iter Loadpath.add_coq_path top_lp; custom_init ~opts; + CoqworkmgrApi.(init opts.config.stm_flags.Stm.AsyncOpts.async_proofs_worker_priority); Mltop.init_known_plugins (); (* Configuration *) Global.set_engagement opts.config.logic.impredicative_set; @@ -315,7 +316,6 @@ let start_coq custom = let coqtop_init ~opts = init_color opts.config; - CoqworkmgrApi.(init !async_proofs_worker_priority); Flags.if_verbose print_header () let coqtop_parse_extra ~opts extras = diff --git a/toplevel/workerLoop.ml b/toplevel/workerLoop.ml index 1fcc106348..c2bd8213b0 100644 --- a/toplevel/workerLoop.ml +++ b/toplevel/workerLoop.ml @@ -18,8 +18,7 @@ let worker_parse_extra ~opts extra_args = let worker_init init ~opts = Flags.quiet := true; - init (); - CoqworkmgrApi.(init !async_proofs_worker_priority) + init () let start ~init ~loop = let open Coqtop in |