diff options
author | 2016-05-31 14:42:49 +0200 | |
---|---|---|
committer | 2016-05-31 14:42:49 +0200 | |
commit | d46e4bc63587c1b628cc80b3eac7a132a58d534d (patch) | |
tree | 00ae2ded7013e15fcf5c98223fe20e64e0fd6454 /stm | |
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 'stm')
-rw-r--r-- | stm/stm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 8f11875b6..4eb2c4b2d 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1676,9 +1676,9 @@ let async_policy () = (!compilation_mode = BuildVio || !async_proofs_mode <> APoff) let delegate name = - let time = get_hint_bp_time name in - time >= 1.0 || !Flags.compilation_mode = Flags.BuildVio - || !Flags.async_proofs_full + get_hint_bp_time name >= !Flags.async_proofs_delegation_threshold + || !Flags.compilation_mode = Flags.BuildVio + || !Flags.async_proofs_full let collect_proof keep cur hd brkind id = prerr_endline (fun () -> "Collecting proof ending at "^Stateid.to_string id); |