strengthened type checking

cleaned up the generation of mover checks (based on example from Chris)
added two examples from Chris to regressions

1 files changed, 28 insertions, 0 deletions

diff --git a/Test/og/chris.bpl b/Test/og/chris.bpl
new file mode 100644
index 00000000..b54292ef
--- /dev/null
+++ b/Test/og/chris.bpl
@@ -0,0 +1,28 @@
+// RUN: %boogie -noinfer -typeEncoding:m -useArrayTheory "%s" > "%t"

+// RUN: %diff "%s.expect" "%t"

+var{:layer 1} x:int;

+

+procedure{:yields}{:layer 2} Havoc()

+  ensures{:atomic} |{ A: return true; }|;

+{

+  yield;

+}

+

+procedure{:yields}{:layer 1} Recover()

+  ensures{:atomic} |{ A: assert x == 5; return true; }|;

+{

+  yield;

+}

+

+procedure{:yields}{:layer 3} P()

+  ensures{:atomic} |{ A: return true; }|;

+  requires{:layer 2,3} x == 5;

+  ensures {:layer 2,3} x == 5;

+{

+

+  yield; assert{:layer 2,3} x == 5;

+  call Havoc();

+  yield; assert{:layer 3} x == 5;

+  call Recover();

+  yield; assert{:layer 2,3} x == 5;

+}