updated the linear type system based on Chris' design with linear, linear_in, linear_out

1 files changed, 3 insertions, 3 deletions

diff --git a/Test/og/Program4.bpl b/Test/og/Program4.bpl
index c936cab7..d189ee44 100644
--- a/Test/og/Program4.bpl
+++ b/Test/og/Program4.bpl
@@ -31,7 +31,7 @@ procedure {:yields} {:phase 1} main() {
     yield;

 }

 

-procedure {:yields} {:phase 1} P({:cnst "tid"} tid: Tid) 

+procedure {:yields} {:phase 1} P({:linear "tid"} tid: Tid) 

 ensures {:phase 1} a[tid] == old(a)[tid] + 1; 

 { 

     var t:int;

@@ -46,13 +46,13 @@ ensures {:phase 1} a[tid] == old(a)[tid] + 1;
     assert {:phase 1} a[tid] == t + 1; 

 }

 

-procedure {:yields} {:phase 0,1} Read({:cnst "tid"} tid: Tid) returns (val: int);

+procedure {:yields} {:phase 0,1} Read({:linear "tid"} tid: Tid) returns (val: int);

 ensures {:atomic}

 |{A:

   val := a[tid]; return true;

 }|;

 

-procedure {:yields} {:phase 0,1} Write({:cnst "tid"} tid: Tid, val: int);

+procedure {:yields} {:phase 0,1} Write({:linear "tid"} tid: Tid, val: int);

 ensures {:atomic}

 |{A:

   a[tid] := val; return true;