diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/flags.ml | 3 | ||||
-rw-r--r-- | lib/flags.mli | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 5d94270f4..92824c9f5 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -51,9 +51,10 @@ let compilation_mode = ref BuildVo type async_proofs = APoff | APonLazy | APonParallel of int let async_proofs_mode = ref APoff let async_proofs_n_workers = ref 1 -let async_proofs_worker_flags = ref None +let async_proofs_private_flags = ref None let async_proofs_always_delegate = ref false let async_proofs_never_reopen_branch = ref false +let async_proofs_flags_for_workers = ref [] let async_proofs_is_worker () = match !async_proofs_mode with diff --git a/lib/flags.mli b/lib/flags.mli index 53284c699..7f2b749b7 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -18,11 +18,11 @@ val compilation_mode : compilation_mode ref type async_proofs = APoff | APonLazy | APonParallel of int val async_proofs_mode : async_proofs ref val async_proofs_n_workers : int ref -val async_proofs_worker_flags : string option ref - +val async_proofs_private_flags : string option ref val async_proofs_is_worker : unit -> bool val async_proofs_always_delegate : bool ref val async_proofs_never_reopen_branch : bool ref +val async_proofs_flags_for_workers : string list ref val debug : bool ref |