Skip to content
Snippets Groups Projects
Commit 519d68c0 authored by Thibault Martin's avatar Thibault Martin Committed by Allan Blanchard
Browse files

Ignore warnings for fc_stdlib

parent 3c5ab1d9
No related branches found
No related tags found
No related merge requests found
...@@ -98,6 +98,9 @@ let compare_it it1 it2 = ...@@ -98,6 +98,9 @@ let compare_it it1 it2 =
let is_frama_c_builtin kf = let is_frama_c_builtin kf =
Kernel_function.get_name kf |> Ast_info.is_frama_c_builtin Kernel_function.get_name kf |> Ast_info.is_frama_c_builtin
let is_frama_c_stdlib kf =
(Kernel_function.get_vi kf).vattr |> Cil.is_in_libc
module type Generator = module type Generator =
sig sig
...@@ -141,7 +144,8 @@ struct ...@@ -141,7 +144,8 @@ struct
let warn ~combined ~warned ~empty kf name = let warn ~combined ~warned ~empty kf name =
let has_body = Kernel_function.has_definition kf in let has_body = Kernel_function.has_definition kf in
let is_builtin = is_frama_c_builtin kf in let is_builtin = is_frama_c_builtin kf in
if not has_body && not is_builtin then let is_fc_stdlib = is_frama_c_stdlib kf in
if not has_body && not is_builtin && not is_fc_stdlib then
if combined then if combined then
Kernel.warning ~once:true ~current:true ~wkey:Kernel.wkey_missing_spec Kernel.warning ~once:true ~current:true ~wkey:Kernel.wkey_missing_spec
"Missing %s in default behavior of prototype %a,@, \ "Missing %s in default behavior of prototype %a,@, \
...@@ -677,7 +681,9 @@ let populate_funspec ~force kf spec = ...@@ -677,7 +681,9 @@ let populate_funspec ~force kf spec =
then false then false
else begin else begin
let warned = let warned =
if not @@ is_frama_c_builtin kf && is_proto && is_empty_spec let is_builtin = is_frama_c_builtin kf in
let is_stdlib = is_frama_c_stdlib kf in
if not is_builtin && not is_stdlib && is_proto && is_empty_spec
then warn_empty kf then warn_empty kf
else false else false
in in
......
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