diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-07-15 11:11:00 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-22 15:01:42 +0000 |
| commit | 4a3cb9e31936dda905082d9a27389c1622a3c55c (patch) | |
| tree | 320b8a5e4033c15477b8e6a60e1c446daf090747 /gcc | |
| parent | 26ece6eca7c02675fcae29a1fa5285b740241d60 (diff) | |
| download | gcc-4a3cb9e31936dda905082d9a27389c1622a3c55c.zip gcc-4a3cb9e31936dda905082d9a27389c1622a3c55c.tar.gz gcc-4a3cb9e31936dda905082d9a27389c1622a3c55c.tar.bz2 | |
[Ada] Replace use of 'Image with use of Error_Msg_Uint
gcc/ada/
* sem_case.adb (Composite_Case_Ops): Replace 'Image with
Error_Msg_Uint.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_case.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index cc7e988..31f14d5 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -1717,12 +1717,12 @@ package body Sem_Case is and then List_Length (Expressions (Expr)) /= Nat (Part_Id'Last) then + Error_Msg_Uint_1 := UI_From_Int + (List_Length (Expressions (Expr))); + Error_Msg_Uint_2 := UI_From_Int (Int (Part_Id'Last)); Error_Msg_N - ("Array aggregate length" - & List_Length (Expressions (Expr))'Image - & " does not match length of" - & " statically constrained case selector" - & Part_Id'Last'Image, Expr); + ("array aggregate length ^ does not match length " & + "of statically constrained case selector ^", Expr); return; end if; @@ -1761,12 +1761,13 @@ package body Sem_Case is if not Unconstrained_Array_Case and then Strlen /= Nat (Part_Id'Last) then + Error_Msg_Uint_1 := UI_From_Int (Strlen); + Error_Msg_Uint_2 := UI_From_Int + (Int (Part_Id'Last)); Error_Msg_N - ("String literal length" - & Strlen'Image - & " does not match length of" - & " statically constrained case selector" - & Part_Id'Last'Image, Expr); + ("String literal length ^ does not match length" & + " of statically constrained case selector ^", + Expr); return; end if; |