aboutsummaryrefslogtreecommitdiffhomepage
path: root/library
diff options
context:
space:
mode:
authorGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2015-02-25 16:25:20 +0100
committerGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2015-02-25 16:43:06 +0100
commitf17fa1daa613a4f86e6bdbf51ed7e758f158f938 (patch)
treef434ba79a967404a9f753d0a6a253ff95840527b /library
parent3a291d75ad2d4836d7c62792771f9c9b5f980412 (diff)
STM: proof state also includes meta counters
Workers send back incomplete system states (only the proof part). Such part must include the meta/evar counter.
Diffstat (limited to 'library')
-rw-r--r--library/states.ml1
-rw-r--r--library/states.mli1
2 files changed, 2 insertions, 0 deletions
diff --git a/library/states.ml b/library/states.ml
index a1c2a095d..96a487b16 100644
--- a/library/states.ml
+++ b/library/states.ml
@@ -12,6 +12,7 @@ open System
type state = Lib.frozen * Summary.frozen
let summary_of_state = snd
+let replace_summary (lib,_) s = lib, s
let freeze ~marshallable =
(Lib.freeze ~marshallable, Summary.freeze_summaries ~marshallable)
diff --git a/library/states.mli b/library/states.mli
index 66de14909..4d5d63e03 100644
--- a/library/states.mli
+++ b/library/states.mli
@@ -21,6 +21,7 @@ val freeze : marshallable:Summary.marshallable -> state
val unfreeze : state -> unit
val summary_of_state : state -> Summary.frozen
+val replace_summary : state -> Summary.frozen -> state
(** {6 Rollback } *)