diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-14 12:42:04 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-14 12:42:04 +0200 |
commit | 33879a1d19fe0156a66c55be17b3ca94a0343fb9 (patch) | |
tree | ff63a89f837b2f8c822eead3ccfd06ed998f3e05 /stm | |
parent | ad3d0ce65ea4debacc98b50f58a96338c7bffc5d (diff) | |
parent | d46e4bc63587c1b628cc80b3eac7a132a58d534d (diff) |
Merge remote-tracking branch 'origin/pr/182' into trunk
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 75d2e070a..358ff89b9 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1875,9 +1875,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); |