Skip to content
Snippets Groups Projects
Commit 6c9b9f99 authored by Loïc Correnson's avatar Loïc Correnson Committed by David Bühler
Browse files

[eva] warning for non-analyzed functions

parent 663b963b
No related branches found
No related tags found
No related merge requests found
...@@ -331,12 +331,16 @@ let main () = ...@@ -331,12 +331,16 @@ let main () =
Parameters.Annot.iter Parameters.Annot.iter
begin fun kf -> begin fun kf ->
if Kernel_function.has_definition kf then if Kernel_function.has_definition kf then
let fundec = Kernel_function.get_definition kf in if Results.are_available kf then
Self.feedback "Annotate %a" Kernel_function.pretty kf ; let fundec = Kernel_function.get_definition kf in
ignore @@ Visitor.visitFramacFunction generator fundec Self.feedback "Annotate %a" Kernel_function.pretty kf ;
ignore @@ Visitor.visitFramacFunction generator fundec
else
Self.warning "Can not annotate %a (no available results)"
Kernel_function.pretty kf
else else
Self.warning "Can not annotate %a (no definition)" Self.warning "Can not annotate %a (no definition)"
Kernel_function.pretty kf ; Kernel_function.pretty kf
end end
let () = Boot.Main.extend main let () = Boot.Main.extend main
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment