OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Replace use of 'Image with use of Error_Msg_Uint

Browse Source 
gcc/ada/

	* sem_case.adb (Composite_Case_Ops): Replace 'Image with
	Error_Msg_Uint.
This commit is contained in:
Ghjuvan Lacambre 2021-07-15 11:11:00 +02:00 committed by Pierre-Marie de Rodat
parent 26ece6eca7
commit 4a3cb9e319
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gcc/ada/sem_case.adb
View File

@ -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;