From d46e4bc63587c1b628cc80b3eac7a132a58d534d Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Tue, 31 May 2016 14:42:49 +0200
Subject: 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.
---
 lib/flags.ml  | 1 +
 lib/flags.mli | 1 +
 2 files changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index c1ec9738ca..7de4fe8548 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 24780f0dcc..5aef2d5cf2 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
-- 
cgit v1.2.3