diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-05-31 14:42:49 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-05-31 14:42:49 +0200 |
| commit | d46e4bc63587c1b628cc80b3eac7a132a58d534d (patch) | |
| tree | 00ae2ded7013e15fcf5c98223fe20e64e0fd6454 /lib | |
| parent | b3485ddc8c4f98743426bb58c8d49b76edd43d61 (diff) | |
STM delegation policy can be customized
The command line option is named:
- async-proofs-delegation-threshold
Values are of type float, default 1.0 (seconds).
Proofs taking less that the threshold are not delegated to
a worker.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 1 | ||||
| -rw-r--r-- | lib/flags.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index c1ec9738c..7de4fe854 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -73,6 +73,7 @@ let async_proofs_is_worker () = !async_proofs_worker_id <> "master" let async_proofs_is_master () = !async_proofs_mode = APon && !async_proofs_worker_id = "master" +let async_proofs_delegation_threshold = ref 1.0 let debug = ref false let in_debugger = ref false diff --git a/lib/flags.mli b/lib/flags.mli index 24780f0dc..5aef2d5cf 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -34,6 +34,7 @@ type priority = Low | High val async_proofs_worker_priority : priority ref val string_of_priority : priority -> string val priority_of_string : string -> priority +val async_proofs_delegation_threshold : float ref val debug : bool ref val in_debugger : bool ref |