Commit a1e3ab18 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

rename "parameter" to "val"

parent 33f61172
......@@ -6,7 +6,7 @@ module M
x := 1;
y := 2
parameter r : ref int
val r : ref int
let test () =
foo r r
......
......@@ -3,6 +3,6 @@ module M
use import module ref.Ref
parameter f : x:int -> {} unit writes a.contents {}
val f : x:int -> {} unit writes a.contents {}
end
......@@ -3,6 +3,6 @@ module M
use import module ref.Ref
parameter f : x:int -> {} unit writes x.contents {}
val f : x:int -> {} unit writes x.contents {}
end
......@@ -3,8 +3,8 @@ module M
use import module ref.Ref
parameter a : int
val a : int
parameter f : x:int -> {} unit writes a.contents {}
val f : x:int -> {} unit writes a.contents {}
end
......@@ -3,8 +3,8 @@ module M
use import module ref.Ref
parameter foo : int -> int
val foo : int -> int
parameter f : x:int -> {} unit writes foo.contents {}
val f : x:int -> {} unit writes foo.contents {}
end
module M
parameter f : x:int -> {} unit writes 1 {}
val f : x:int -> {} unit writes 1 {}
end
module M
parameter f : x:int -> {} unit writes x {}
val f : x:int -> {} unit writes x {}
end
......@@ -3,6 +3,6 @@ module M
type t = {| mutable a : int; mutable b : int |}
parameter f : x:t -> {} unit writes x {}
val f : x:t -> {} unit writes x {}
end
......@@ -2,6 +2,6 @@ module M
use import module stdlib.Ref
parameter r : ref 'a
val r : ref 'a
end
......@@ -3,6 +3,6 @@ module M
use import module stdlib.Ref
use import list.List
parameter r : ref (list 'a)
val r : ref (list 'a)
end
......@@ -3,13 +3,13 @@ module M
use import int.Int
use import module ref.Ref
parameter incr : x:ref int -> { } unit writes x { !x = old !x + 1 }
val incr : x:ref int -> { } unit writes x { !x = old !x + 1 }
parameter x : ref int
val x : ref int
parameter id_not_0 : x:int -> { x <> 0 } int { result = x }
val id_not_0 : x:int -> { x <> 0 } int { result = x }
parameter id : x:int -> { } int { result = x }
val id : x:int -> { } int { result = x }
let test_and_1 () =
{ }
......@@ -50,10 +50,10 @@ let test_all_1 () =
function d : int
parameter vx : ref int
parameter vy : ref int
val vx : ref int
val vy : ref int
parameter sq : x:int -> {} int { result = x*x }
val sq : x:int -> {} int { result = x*x }
let test_cd3d () =
{ true }
......
......@@ -2,12 +2,12 @@ module M
exception Exception
parameter f0 : tt:unit ->
val f0 : tt:unit ->
{ }
unit
{ true }
parameter f1 : tt:unit ->
val f1 : tt:unit ->
{ }
unit
raises Exception
......
......@@ -4,9 +4,9 @@ exception Exception int
use import module ref.Ref
parameter t : ref int
val t : ref int
parameter m : a:int -> b:int ->
val m : a:int -> b:int ->
{ }
unit reads t raises Exception
{ true } | Exception -> { true }
......
......@@ -45,7 +45,7 @@ let p6 () =
use import module ref.Ref
parameter x : ref int
val x : ref int
let p7 () =
{} begin x := 1; raise E; x := 2 end { false } | E -> { !x = 1 }
......
......@@ -5,7 +5,7 @@ use import module ref.Ref
(** 1. A loop increasing [i] up to 10. *)
parameter i : ref int
val i : ref int
let loop1 (u:unit) =
{ !i <= 10 }
......@@ -18,7 +18,7 @@ let loop1 (u:unit) =
(** 2. The same loop, followed by a function call. *)
parameter x: ref int
val x: ref int
let negate (u:unit) = {} x := - !x { !x = - (old !x) }
......
......@@ -4,9 +4,9 @@ module M
predicate q1 int int int
parameter r : ref int
val r : ref int
parameter f1 : y:int ->
val f1 : y:int ->
{} unit writes r { q1 !r (old !r) y }
let g1 () = {} f1 !r { q1 !r (old !r) (old !r) }
......@@ -14,7 +14,7 @@ module M
function foo int : int
predicate q int int int
parameter f : t:ref int -> x:int ->
val f : t:ref int -> x:int ->
{} unit writes t { q !t (old !t) x }
let g (t:ref int) =
......
......@@ -5,7 +5,7 @@ use import module ref.Ref
(* Tests for proof obligations. *)
parameter x : ref int
val x : ref int
predicate q int
......@@ -39,7 +39,7 @@ let p9a () = {} begin x := 1; 1 end + 1 { result = 2 /\ !x = 1 }
(* function with a post-condition *)
parameter fsucc : x:int -> { } int { result = x + 1 }
val fsucc : x:int -> { } int { result = x + 1 }
let p10 () = {} fsucc 0 { result = 1 }
......@@ -49,7 +49,7 @@ let p11a () = {} let a = (fsucc 1) in a + a { result = 4 }
(* function with a post-condition and side-effects *)
parameter incrx : unit -> { } unit writes x { !x = (old !x) + 1 }
val incrx : unit -> { } unit writes x { !x = (old !x) + 1 }
let p12 () = { !x = 0 } incrx () { !x = 1 }
......@@ -59,7 +59,7 @@ let p13a () = {} incrx (incrx ()) { !x = (old !x) + 2 }
(* function with side-effects, result and post-condition *)
parameter incrx2 : unit -> { } int writes x { !x = old !x + 1 /\ result = !x }
val incrx2 : unit -> { } int writes x { !x = old !x + 1 /\ result = !x }
let p14 () = { !x = 0 } incrx2 () { result = 1 }
......
......@@ -12,7 +12,7 @@ module M
(** 2. With effects but no argument *)
parameter x : ref int
val x : ref int
let rec f2 (u:unit) : unit variant { !x } =
{ !x >= 0 } (if !x > 0 then begin x := !x - 1; f2 () end) { !x = 0 }
......
......@@ -11,7 +11,7 @@ module LocalFunctions
f 2;
assert { !x = 2 }
parameter r: ref int
val r: ref int
(* recursive function accessing a global reference *)
let rec test2 () =
......
......@@ -5,9 +5,9 @@ use import module ref.Ref
(* Side effect in expressions (Bart Jacobs' tricky example) *)
parameter b : ref int
parameter b1 : ref int
parameter b2 : ref int
val b : ref int
val b1 : ref int
val b2 : ref int
let f () =
{} b := 1 - !b; !b { result = !b /\ !b = 1 - old !b }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment