From: Viljar Indus <indus@adacore.com>
Date: Tue, 13 Aug 2024 08:37:31 +0000 (+0300)
Subject: ada: Display actual line length in line length check
X-Git-Tag: basepoints/gcc-16~6261
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6a3ff84a7790ae008e5f557d74c83bcf196c2162;p=thirdparty%2Fgcc.git

ada: Display actual line length in line length check

gcc/ada/

	* styleg.adb (Check_Line_Max_Length): Add the actual line length
	to the diagnostic message.
---

diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb
index c405dec2b33..74b629c34b3 100644
--- a/gcc/ada/styleg.adb
+++ b/gcc/ada/styleg.adb
@@ -38,6 +38,7 @@ with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Stylesw;        use Stylesw;
+with Uintp;          use Uintp;
 
 package body Styleg is
 
@@ -672,8 +673,9 @@ package body Styleg is
    begin
       if Style_Check_Max_Line_Length then
          if Len > Style_Max_Line_Length then
+            Error_Msg_Uint_1 := UI_From_Int (Len);
             Error_Msg
-              ("(style) this line is too long?M?",
+              ("(style) this line is too long: ^?M?",
                Current_Line_Start + Source_Ptr (Style_Max_Line_Length));
          end if;
       end if;