Skip to content
Snippets Groups Projects
Commit 2ccb1c9f authored by Andre Maroneze's avatar Andre Maroneze
Browse files

[Kernel] do not emit warnings-as-feedback when verbosity is 0

parent c9b21909
No related branches found
No related tags found
No related merge requests found
......@@ -1133,7 +1133,13 @@ struct
?current ?source
?echo ?append text =
let status = get_warn_status wkey in
if status <> Winactive then
let kind =
match status with
| Wfeedback | Wfeedback_once -> Feedback
| (Wactive | Werror | Wabort | Wonce | Werror_once | Winactive) ->
Warning
in
if status <> Winactive && (kind <> Feedback || verbose_atleast 1) then
begin
let action, once_suffix =
match status with
......@@ -1157,12 +1163,6 @@ struct
| Some e, None | None, Some e -> Some e
| Some e1, Some e2 -> Some (fun evt -> e1 evt; e2 evt)
in
let kind =
match status with
| Wfeedback | Wfeedback_once -> Feedback
| (Wactive | Werror | Wabort | Wonce | Werror_once | Winactive) ->
Warning
in
let category = if wkey = "" then None else Some wkey in
let append_once_suffix = (fun fmt ->
Format.fprintf fmt
......
......@@ -2,6 +2,3 @@
[e-acsl] translation done in project "e-acsl".
[kernel:annot:missing-spec] hidden_malloc.c:11: Warning:
Neither code nor specification for function realpath, generating default assigns from the prototype
[eva:invalid-assigns] hidden_malloc.c:11:
Completely invalid destination for assigns clause *(resolved_name + (0 ..)).
Ignoring.
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