diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-02-25 16:25:20 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-02-25 16:43:06 +0100 |
| commit | f17fa1daa613a4f86e6bdbf51ed7e758f158f938 (patch) | |
| tree | f434ba79a967404a9f753d0a6a253ff95840527b /library | |
| parent | 3a291d75ad2d4836d7c62792771f9c9b5f980412 (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.ml | 1 | ||||
| -rw-r--r-- | library/states.mli | 1 |
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 } *) |