From 677a9b8e62893416ac195e316473a4bd421a1d79 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 11 Jul 2014 11:08:06 +0200 Subject: STM: let toploop plugins specify the flags for STM workers --- lib/flags.ml | 3 ++- lib/flags.mli | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'lib') 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 -- cgit v1.2.3