Commit 81eaf1a1 authored by Julien Signoles's avatar Julien Signoles

[e-acsl] lint

parent 0acbebae
...@@ -200,16 +200,16 @@ let dup_global loc actions spec bhv sound_verdict_vi kf vi new_vi = ...@@ -200,16 +200,16 @@ let dup_global loc actions spec bhv sound_verdict_vi kf vi new_vi =
let new_kf = { fundec = fct; spec = new_spec } in let new_kf = { fundec = fct; spec = new_spec } in
Queue.add Queue.add
(fun () -> (fun () ->
Kernel_function.Hashtbl.add fct_tbl new_kf (); Kernel_function.Hashtbl.add fct_tbl new_kf ();
Globals.Functions.register new_kf; Globals.Functions.register new_kf;
Globals.Functions.replace_by_definition new_spec fundec loc; Globals.Functions.replace_by_definition new_spec fundec loc;
Annotations.register_funspec new_kf; Annotations.register_funspec new_kf;
if new_vi.vname = "main" then begin if new_vi.vname = "main" then begin
(* recompute the info about the old main since its name has changed; (* recompute the info about the old main since its name has changed;
see the corresponding part in the main visitor *) see the corresponding part in the main visitor *)
Globals.Functions.remove vi; Globals.Functions.remove vi;
Globals.Functions.register kf Globals.Functions.register kf
end) end)
actions; actions;
Options.feedback ~dkey ~level:2 "function %s" name; Options.feedback ~dkey ~level:2 "function %s" name;
(* remove the specs attached to the previous kf iff it is a definition: (* remove the specs attached to the previous kf iff it is a definition:
...@@ -274,7 +274,7 @@ let sufficiently_aligned vi algn = ...@@ -274,7 +274,7 @@ let sufficiently_aligned vi algn =
Continuing with this value." Continuing with this value."
Printer.pp_varinfo vi Printer.pp_varinfo vi
algn; algn;
algn algn
end else end else
alignment alignment
| Attr("align", _) -> | Attr("align", _) ->
...@@ -543,8 +543,8 @@ class prepare_visitor = object (self) ...@@ -543,8 +543,8 @@ class prepare_visitor = object (self)
(* or: *) (* or: *)
((* it has a function contract *) ((* it has a function contract *)
not (Cil.is_empty_funspec not (Cil.is_empty_funspec
(Annotations.funspec ~populate:false (Annotations.funspec ~populate:false
(Extlib.the self#current_kf))) (Extlib.the self#current_kf)))
&& (* its annotations must be monitored *) && (* its annotations must be monitored *)
Functions.check kf)) Functions.check kf))
-> ->
......
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