changed type checking of yield procedures so that they can only call other yielding procedures

1 files changed, 3 insertions, 3 deletions

diff --git a/Test/og/new1.bpl b/Test/og/new1.bpl
index a6b50215..74b738d6 100644
--- a/Test/og/new1.bpl
+++ b/Test/og/new1.bpl
@@ -9,9 +9,9 @@ function {:inline} {:linear "Perm"} SetCollectorPerm(x: [int]bool) : [int]bool
   x

 }

 

-procedure Allocate_Perm({:linear_in "Perm"} Permissions: [int]bool) returns ({:linear "Perm"} xls: [int]bool);

-requires Permissions == mapconstbool(true);

-ensures xls == mapconstbool(true);

+procedure {:yields} {:layer 1} Allocate_Perm({:linear_in "Perm"} Permissions: [int]bool) returns ({:linear "Perm"} xls: [int]bool);

+requires {:layer 1} Permissions == mapconstbool(true);

+ensures {:layer 1} xls == mapconstbool(true);

 

 procedure {:yields} {:layer 1} PB({:linear_in "Perm"} permVar_in:[int]bool)

 requires {:layer 1} permVar_in[0] && g == 0;