Commit 844f6050 authored by Julien Signoles's avatar Julien Signoles
Browse files

[e-acsl] lint

parent 5492c6c5
......@@ -90,22 +90,22 @@ let init_set ~loc lv ev e =
with
| Longlong IULongLong ->
(match e.enode with
| Lval elv ->
assert (Gmp_types.Z.is_t (Cil.typeOf ev));
let call =
Constructor.mk_lib_call ~loc
"__gmpz_import"
[ ev;
Cil.one ~loc;
Cil.one ~loc;
Cil.sizeOf ~loc (TInt(IULongLong, []));
Cil.zero ~loc;
Cil.zero ~loc;
Cil.mkAddrOf ~loc elv ]
in
Cil.mkStmt ~valid_sid:true (Block (Cil.mkBlock [ init ~loc ev; call ]))
| _ ->
Error.not_yet "unsigned long long expression requiring GMP")
| Lval elv ->
assert (Gmp_types.Z.is_t (Cil.typeOf ev));
let call =
Constructor.mk_lib_call ~loc
"__gmpz_import"
[ ev;
Cil.one ~loc;
Cil.one ~loc;
Cil.sizeOf ~loc (TInt(IULongLong, []));
Cil.zero ~loc;
Cil.zero ~loc;
Cil.mkAddrOf ~loc elv ]
in
Cil.mkStmt ~valid_sid:true (Block (Cil.mkBlock [ init ~loc ev; call ]))
| _ ->
Error.not_yet "unsigned long long expression requiring GMP")
| Longlong ILongLong ->
Error.not_yet "long long requiring GMP"
......
......@@ -50,10 +50,10 @@ let is_fc_or_compiler_builtin vi =
Cil.is_builtin vi
||
(let prefix_length = 10 (* number of characters in "__builtin_" *) in
String.length vi.vname > prefix_length
&&
let prefix = String.sub vi.vname 0 prefix_length in
Datatype.String.equal prefix "__builtin_")
String.length vi.vname > prefix_length
&&
let prefix = String.sub vi.vname 0 prefix_length in
Datatype.String.equal prefix "__builtin_")
(* ************************************************************************** *)
(** {2 Builders} *)
......
......@@ -68,7 +68,7 @@ let pretty_kind fmt k =
(* information attached to every kernel_function containing an annotation *)
type kf_info =
{ mutable cpt: int
(* counter building the relationship between [push] and [must_translate] *);
(* counter building the relationship between [push] and [must_translate] *);
mutable statuses: (kind * bool) Datatype.Int.Map.t
(* map associating a property as an integer to its kind and status
([true] = proved) *) }
......
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