diff options
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 92824c9f53..4b323f611b 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -48,18 +48,19 @@ let batch_mode = ref false type compilation_mode = BuildVo | BuildVi | Vi2Vo let compilation_mode = ref BuildVo -type async_proofs = APoff | APonLazy | APonParallel of int +type async_proofs = APoff | APonLazy | APon let async_proofs_mode = ref APoff let async_proofs_n_workers = ref 1 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_worker_id = ref "master" let async_proofs_is_worker () = - match !async_proofs_mode with - | APonParallel n -> n > 0 - | _ -> false + !async_proofs_worker_id <> "master" +let async_proofs_is_master () = + !async_proofs_mode = APon && !async_proofs_worker_id = "master" let debug = ref false |