[gcc r15-3292] ada: Display actual line length in line length check

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:6a3ff84a7790ae008e5f557d74c83bcf196c2162

commit r15-3292-g6a3ff84a7790ae008e5f557d74c83bcf196c2162
Author: Viljar Indus <in...@adacore.com>
Date:   Tue Aug 13 11:37:31 2024 +0300

    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:
---
 gcc/ada/styleg.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb
index c405dec2b332..74b629c34b33 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;