diff options
author | Arnaud Charlet <charlet@adacore.com> | 2023-01-19 08:43:47 +0000 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-16 10:30:57 +0200 |
commit | b54fd57a1b3429542286c3bea7c38cce931064f7 (patch) | |
tree | 0a528f921767472cb0c2cb31c279c5bf4bcd593a /gcc/ada/par-util.adb | |
parent | 387e147cf513e4aa703e9c2f4eb417af986f16ba (diff) | |
download | gcc-b54fd57a1b3429542286c3bea7c38cce931064f7.zip gcc-b54fd57a1b3429542286c3bea7c38cce931064f7.tar.gz gcc-b54fd57a1b3429542286c3bea7c38cce931064f7.tar.bz2 |
ada: Add tags on style messages
Similar to tags on warnings [-gnatwx], we add tags on style messages
[-gnatyx] when -gnatw.d is enabled.
gcc/ada/
* errout.ads: Update comment.
* errout.adb (Skip_Msg_Insertion_Warning): Update to take e.g.
-gnatyM into account.
* erroutc.adb (Get_Warning_Option, Get_Warning_Tag)
(Prescan_Message): Add support for Style tags.
* par-ch5.adb, par-ch6.adb, par-ch7.adb, par-endh.adb,
par-util.adb, style.adb, styleg.adb: Set tag on all style
messages.
Diffstat (limited to 'gcc/ada/par-util.adb')
-rw-r--r-- | gcc/ada/par-util.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index b1085c8..fc44ddf 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -165,7 +165,7 @@ package body Util is and then Start_Column <= Scopes (Scope.Last).Ecol then Error_Msg_BC -- CODEFIX - ("(style) incorrect layout"); + ("(style) incorrect layout?l?"); end if; end Check_Bad_Layout; @@ -713,7 +713,7 @@ package body Util is and then Scope.Last = Style_Max_Nesting_Level + 1 then Error_Msg - ("(style) maximum nesting level exceeded", + ("(style) maximum nesting level exceeded?L?", First_Non_Blank_Location); end if; |