summaryrefslogtreecommitdiff
path: root/Test/og/ticket.bpl
diff options
context:
space:
mode:
Diffstat (limited to 'Test/og/ticket.bpl')
-rw-r--r--Test/og/ticket.bpl5
1 files changed, 2 insertions, 3 deletions
diff --git a/Test/og/ticket.bpl b/Test/og/ticket.bpl
index d532c5a2..02341e91 100644
--- a/Test/og/ticket.bpl
+++ b/Test/og/ticket.bpl
@@ -52,12 +52,11 @@ requires {:phase 3} xls' == mapconstbool(true);
invariant {:phase 1} Inv1(T, t);
invariant {:phase 2} Inv2(T, s, cs);
{
- par Yield1() | Yield2() | Yield();
call xls, tid := Allocate(xls);
async call Customer(tid);
par Yield1() | Yield2() | Yield();
-
}
+ par Yield1() | Yield2() | Yield();
}
procedure {:yields} {:phase 3} Customer({:linear "tid"} tid': X)
@@ -73,12 +72,12 @@ requires {:phase 3} true;
invariant {:phase 1} Inv1(T, t);
invariant {:phase 2} tid != nil && Inv2(T, s, cs);
{
- par Yield1() | Yield2() | Yield();
call tid := Enter(tid);
par Yield1() | Yield2();
call tid := Leave(tid);
par Yield1() | Yield2() | Yield();
}
+ par Yield1() | Yield2() | Yield();
}
procedure {:yields} {:phase 2,3} Enter({:linear "tid"} tid': X) returns ({:linear "tid"} tid: X)