diff options
author | 2014-07-15 19:47:44 -0700 | |
---|---|---|
committer | 2014-07-15 19:47:44 -0700 | |
commit | 9c1c28a5e28f76af29805e6dd8b4b34c99fbe1b4 (patch) | |
tree | 9e02ec556858d05124bb3547da664db838382a3a /Test/linear/typecheck.bpl | |
parent | 74090e6fc892db326c6f98b8adb790f1f09fba41 (diff) |
updated the linear type system based on Chris' design with linear, linear_in, linear_out
Diffstat (limited to 'Test/linear/typecheck.bpl')
-rw-r--r-- | Test/linear/typecheck.bpl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Test/linear/typecheck.bpl b/Test/linear/typecheck.bpl index a3980a3e..057718cf 100644 --- a/Test/linear/typecheck.bpl +++ b/Test/linear/typecheck.bpl @@ -65,12 +65,12 @@ procedure {:yields} {:phase 1} D() yield;
}
-procedure E({:linear "D"} a: X, {:linear "D"} b: X) returns ({:linear "D"} c: X, {:linear "D"} d: X)
+procedure E({:linear_in "D"} a: X, {:linear_in "D"} b: X) returns ({:linear "D"} c: X, {:linear "D"} d: X)
{
c := a;
}
-procedure {:yields} {:phase 0} F({:linear "D"} a: X) returns ({:linear "D"} c: X);
+procedure {:yields} {:phase 0} F({:linear_in "D"} a: X) returns ({:linear "D"} c: X);
var {:linear "x"} g:int;
@@ -85,7 +85,7 @@ modifies g; g := r;
}
-procedure {:yields} {:phase 0} I({:linear ""} x:int) returns({:linear ""} x':int)
+procedure {:yields} {:phase 0} I({:linear_in ""} x:int) returns({:linear ""} x':int)
{
x' := x;
}
@@ -94,7 +94,7 @@ procedure {:yields} {:phase 0} J() {
}
-procedure {:yields} {:phase 1} P1({:linear ""} x:int) returns({:linear ""} x':int)
+procedure {:yields} {:phase 1} P1({:linear_in ""} x:int) returns({:linear ""} x':int)
{
yield;
par x' := I(x) | J();
@@ -103,7 +103,7 @@ procedure {:yields} {:phase 1} P1({:linear ""} x:int) returns({:linear ""} x':in yield;
}
-procedure {:yields} {:phase 1} P2({:linear ""} x:int) returns({:linear ""} x':int)
+procedure {:yields} {:phase 1} P2({:linear_in ""} x:int) returns({:linear ""} x':int)
{
yield;
call x' := I(x);
|