diff options
| author | Enrico Tassi | 2014-07-23 11:54:36 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-08-05 18:24:50 +0200 |
| commit | 4e724634839726aa11534f16e4bfb95cd81232a4 (patch) | |
| tree | 2114ba0a78c4df764d78ad260e30f5fa6854df95 /lib/flags.ml | |
| parent | 95e97b68744eeb8bf20811c3938d78912eb3e918 (diff) | |
STM: code restructured to reuse task queue for tactics
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 |