From 9c1c28a5e28f76af29805e6dd8b4b34c99fbe1b4 Mon Sep 17 00:00:00 2001 From: qadeer Date: Tue, 15 Jul 2014 19:47:44 -0700 Subject: updated the linear type system based on Chris' design with linear, linear_in, linear_out --- Test/og/t1.bpl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Test/og/t1.bpl') diff --git a/Test/og/t1.bpl b/Test/og/t1.bpl index 02db387c..3730d490 100644 --- a/Test/og/t1.bpl +++ b/Test/og/t1.bpl @@ -36,7 +36,7 @@ ensures {:atomic} |{A: g := val; return true; }|; procedure {:yields} {:phase 0,1} SetH(val:int); ensures {:atomic} |{A: h := val; return true; }|; -procedure {:yields} {:phase 1} A({:linear "tid"} tid_in: int) returns ({:linear "tid"} tid_out: int) +procedure {:yields} {:phase 1} A({:linear_in "tid"} tid_in: int) returns ({:linear "tid"} tid_out: int) { var {:linear "1"} x: [int]bool; var {:linear "2"} y: [int]bool; @@ -72,7 +72,7 @@ procedure {:yields} {:phase 1} A({:linear "tid"} tid_in: int) returns ({:linear yield; } -procedure {:yields} {:phase 1} B({:linear "tid"} tid_in: int, {:linear "1"} x_in: [int]bool) +procedure {:yields} {:phase 1} B({:linear_in "tid"} tid_in: int, {:linear_in "1"} x_in: [int]bool) requires {:phase 1} x_in != mapconstbool(false); { var {:linear "tid"} tid_out: int; @@ -85,7 +85,7 @@ requires {:phase 1} x_in != mapconstbool(false); yield; } -procedure {:yields} {:phase 1} C({:linear "tid"} tid_in: int, {:linear "2"} y_in: [int]bool) +procedure {:yields} {:phase 1} C({:linear_in "tid"} tid_in: int, {:linear_in "2"} y_in: [int]bool) requires {:phase 1} y_in != mapconstbool(false); { var {:linear "tid"} tid_out: int; -- cgit v1.2.3