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/linear-set.bpl b/Test/og/linear-set.bpl
index 73849250..8752d402 100644
--- a/Test/og/linear-set.bpl
+++ b/Test/og/linear-set.bpl
@@ -23,10 +23,10 @@ function {:inline} {:linear "x"} XCollector(xs: [X]bool) : [X]bool
 var {:layer 0,1} x: int;

 var {:layer 0,1} l: [X]bool;

 

-procedure Split({:linear_in "x"} xls: [X]bool) returns ({:linear "x"} xls1: [X]bool, {:linear "x"} xls2: [X]bool);

-ensures xls == MapOr(xls1, xls2) && xls1 != None() && xls2 != None();

+procedure {:yields} {:layer 1} Split({:linear_in "x"} xls: [X]bool) returns ({:linear "x"} xls1: [X]bool, {:linear "x"} xls2: [X]bool);

+ensures {:layer 1} xls == MapOr(xls1, xls2) && xls1 != None() && xls2 != None();

 

-procedure Allocate() returns ({:linear "tid"} xls: [X]bool);

+procedure {:yields} {:layer 1} Allocate() returns ({:linear "tid"} xls: [X]bool);

 

 procedure {:yields} {:layer 0,1} Set(v: int);

 ensures {:atomic} |{A: x := v; return true; }|;