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, 9 insertions, 1 deletions

diff --git a/Test/og/parallel4.bpl b/Test/og/parallel4.bpl
index 5340c4c8..f06ff4b8 100644
--- a/Test/og/parallel4.bpl
+++ b/Test/og/parallel4.bpl
@@ -2,7 +2,12 @@
 // RUN: %diff "%s.expect" "%t"

 var {:layer 0,1} a:int;

 

-procedure {:yields} {:layer 1} Allocate() returns ({:linear "tid"} xls: int);

+procedure {:yields} {:layer 1} Allocate() returns ({:linear "tid"} tid: int)

+{

+    yield;

+    call tid := AllocateLow();

+    yield;

+}

 

 function {:builtin "MapConst"} MapConstBool(bool) : [int]bool;

 function {:inline} {:linear "tid"} TidCollector(x: int) : [int]bool

@@ -35,3 +40,6 @@ procedure {:yields} {:layer 1} Yield()
 {

   yield;

 }

+

+procedure {:yields} {:layer 0,1} AllocateLow() returns ({:linear "tid"} tid: int);

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