diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-28 18:41:43 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-11-28 18:41:43 +0100 |
commit | 5d3f5c210aad8d73b007936e65694c401e66c7d0 (patch) | |
tree | 2ec57168c42d7557ba27136722415e5288c7abd9 /stm/vcs.mli | |
parent | 9f4546a103607e0f2283897c094ce05ffa2d5c21 (diff) |
STM: if a-p-always-delegate fetch states from parked worker on edit-at
If the async-proofs-always-delegate is passed, workers are killed
only when the proof they computed is obsolete. If one jumps back
to a state that was computed by the worker (and not the master) instead
of (re)computing such state in the master ask the worker to send it
back.
Diffstat (limited to 'stm/vcs.mli')
-rw-r--r-- | stm/vcs.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stm/vcs.mli b/stm/vcs.mli index 6c3571a08..7241ae461 100644 --- a/stm/vcs.mli +++ b/stm/vcs.mli @@ -79,11 +79,11 @@ module type S = sig (* read only dag *) module Dag : Dag.S with type node = id - val dag : ('kind,'diff,'info) t -> ('diff,'info,id) Dag.t + val dag : ('kind,'diff,'info) t -> ('diff,'info,id * id) Dag.t - val create_cluster : ('k,'e,'i) t -> id list -> id -> ('k,'e,'i) t - val cluster_of : ('k,'e,'i) t -> id -> id Dag.Cluster.t option - val delete_cluster : ('k,'e,'i) t -> id Dag.Cluster.t -> ('k,'e,'i) t + val create_cluster : ('k,'e,'i) t -> id list -> (id * id) -> ('k,'e,'i) t + val cluster_of : ('k,'e,'i) t -> id -> (id * id) Dag.Cluster.t option + val delete_cluster : ('k,'e,'i) t -> (id * id) Dag.Cluster.t -> ('k,'e,'i) t end |