From f17fa1daa613a4f86e6bdbf51ed7e758f158f938 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Wed, 25 Feb 2015 16:25:20 +0100 Subject: 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. --- library/states.ml | 1 + library/states.mli | 1 + 2 files changed, 2 insertions(+) (limited to 'library') 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 } *) -- cgit v1.2.3