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/new1.bpl b/Test/og/new1.bpl
index ccddb25e..537a5f4b 100644
--- a/Test/og/new1.bpl
+++ b/Test/og/new1.bpl
@@ -9,11 +9,11 @@ function {:inline} {:linear "Perm"} SetCollectorPerm(x: [int]bool) : [int]bool
   x

 }

 

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

+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} {:phase 1} PB({:linear "Perm"} permVar_in:[int]bool)

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

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

 {

   var {:linear "Perm"} permVar_out: [int]bool;

@@ -30,7 +30,7 @@ requires {:phase 1} permVar_in[0] && g == 0;
   assert {:phase 1} g == 1;

 }

 

-procedure {:yields} {:phase 1} Main({:linear "Perm"} Permissions: [int]bool)

+procedure {:yields} {:phase 1} Main({:linear_in "Perm"} Permissions: [int]bool)

 requires {:phase 0,1} Permissions == mapconstbool(true);

 {

   var {:linear "Perm"} permVar_out: [int]bool;