* [Ada] Add "option" field to GNAT's -fdiagnostics-format=json output
@ 2022-05-30 8:33 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-30 8:33 UTC (permalink / raw)
To: gcc-patches; +Cc: Ghjuvan Lacambre
[-- Attachment #1: Type: text/plain, Size: 408 bytes --]
This enables better integration with tools that handle GNAT's output.
Tested on x86_64-pc-linux-gnu, committed on trunk
gcc/ada/
* erroutc.ads (Get_Warning_Option): New function returning the
option responsible for a warning if it exists.
* erroutc.adb (Get_Warning_Option): Likewise.
(Get_Warning_Tag): Rely on Get_Warning_Option when possible.
* errout.adb (Output_JSON_Message): Emit option field.
[-- Attachment #2: patch.diff --]
[-- Type: text/x-diff, Size: 3524 bytes --]
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -2170,6 +2170,9 @@ package body Errout is
-- Do not print continuations messages as children of the current
-- message if the current message is a continuation message.
+ Option : constant String := Get_Warning_Option (E);
+ -- The option that triggered this message.
+
-- Start of processing for Output_JSON_Message
begin
@@ -2197,9 +2200,16 @@ package body Errout is
Write_Str ("}");
end if;
+ Write_Str ("]");
+
+ -- Print message option, if there is one
+ if Option /= "" then
+ Write_Str (",""option"":""" & Option & """");
+ end if;
+
-- Print message content
- Write_Str ("],""message"":""");
+ Write_Str (",""message"":""");
Write_JSON_Escaped_String (Errors.Table (E).Text);
Write_Str ("""");
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -359,6 +359,26 @@ package body Erroutc is
return Cur_Msg;
end Get_Msg_Id;
+ ------------------------
+ -- Get_Warning_Option --
+ ------------------------
+
+ function Get_Warning_Option (Id : Error_Msg_Id) return String is
+ Warn : constant Boolean := Errors.Table (Id).Warn;
+ Warn_Chr : constant String (1 .. 2) := Errors.Table (Id).Warn_Chr;
+ begin
+ if Warn and then Warn_Chr /= " " then
+ if Warn_Chr = "$ " then
+ return "-gnatel";
+ elsif Warn_Chr (2) = ' ' then
+ return "-gnatw" & Warn_Chr (1);
+ else
+ return "-gnatw" & Warn_Chr;
+ end if;
+ end if;
+ return "";
+ end Get_Warning_Option;
+
---------------------
-- Get_Warning_Tag --
---------------------
@@ -366,22 +386,19 @@ package body Erroutc is
function Get_Warning_Tag (Id : Error_Msg_Id) return String is
Warn : constant Boolean := Errors.Table (Id).Warn;
Warn_Chr : constant String (1 .. 2) := Errors.Table (Id).Warn_Chr;
+ Option : constant String := Get_Warning_Option (Id);
begin
- if Warn and then Warn_Chr /= " " then
+ if Warn then
if Warn_Chr = "? " then
return "[enabled by default]";
elsif Warn_Chr = "* " then
return "[restriction warning]";
- elsif Warn_Chr = "$ " then
- return "[-gnatel]";
- elsif Warn_Chr (2) = ' ' then
- return "[-gnatw" & Warn_Chr (1) & ']';
- else
- return "[-gnatw" & Warn_Chr & ']';
+ elsif Option /= "" then
+ return "[" & Option & "]";
end if;
- else
- return "";
end if;
+
+ return "";
end Get_Warning_Tag;
-------------
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads
--- a/gcc/ada/erroutc.ads
+++ b/gcc/ada/erroutc.ads
@@ -493,6 +493,10 @@ package Erroutc is
-- Returns the number of warnings in the Errors table that were triggered
-- by a Compile_Time_Warning pragma.
+ function Get_Warning_Option (Id : Error_Msg_Id) return String;
+ -- Returns the warning switch causing this warning message or an empty
+ -- string is there is none..
+
function Get_Warning_Tag (Id : Error_Msg_Id) return String;
-- Given an error message ID, return tag showing warning message class, or
-- the null string if this option is not enabled or this is not a warning.
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-05-30 8:33 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-30 8:33 [Ada] Add "option" field to GNAT's -fdiagnostics-format=json output Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).