Commit bfa8a6dd authored by Julien Signoles's avatar Julien Signoles
Browse files

[e-acsl:archi] lint

parent c09be769
...@@ -47,11 +47,11 @@ let kind_to_string loc k = ...@@ -47,11 +47,11 @@ let kind_to_string loc k =
Cil.mkString Cil.mkString
~loc ~loc
(match k with (match k with
| Assertion -> "Assertion" | Assertion -> "Assertion"
| Precondition -> "Precondition" | Precondition -> "Precondition"
| Postcondition -> "Postcondition" | Postcondition -> "Postcondition"
| Invariant -> "Invariant" | Invariant -> "Invariant"
| RTE -> "RTE") | RTE -> "RTE")
let mk_block stmt b = match b.bstmts with let mk_block stmt b = match b.bstmts with
| [] -> | [] ->
...@@ -72,13 +72,13 @@ let mk_lib_call ~loc ?result fname args = ...@@ -72,13 +72,13 @@ let mk_lib_call ~loc ?result fname args =
let make_args args ty_params = let make_args args ty_params =
List.map2 List.map2
(fun (_, ty, _) arg -> (fun (_, ty, _) arg ->
let e = let e =
match ty, Cil.unrollType (Cil.typeOf arg), arg.enode with match ty, Cil.unrollType (Cil.typeOf arg), arg.enode with
| TPtr _, TArray _, Lval lv -> Cil.new_exp ~loc (StartOf lv) | TPtr _, TArray _, Lval lv -> Cil.new_exp ~loc (StartOf lv)
| TPtr _, TArray _, _ -> assert false | TPtr _, TArray _, _ -> assert false
| _, _, _ -> arg | _, _, _ -> arg
in in
Cil.mkCast ~force:false ~newt:ty ~e) Cil.mkCast ~force:false ~newt:ty ~e)
ty_params ty_params
args args
in in
......
Markdown is supported
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