FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Fix calls to Error_Msg_NE instead of Error_Msg_N

Browse source 
gcc/ada/

	* freeze.adb (Freeze_Profile): Replace Error_Msg_NE with
	Error_Msg_N; change to continuation message.
	* sem_cat.adb, sem_ch10.adb, sem_ch12.adb, sem_ch5.adb: Replace
	calls to Error_Msg_NE with calls to Error_Msg_N.
This commit is contained in:
Piotr Trojanek 2020-12-23 18:57:18 +01:00 • committed by Pierre-Marie de Rodat
parent 0bfa2f3cc2
commit 4d3106a137
5 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/freeze.adb
View file

@ -3749,8 +3749,8 @@ package body Freeze is
Error_Msg_NE ("?x?type of argument& is unconstrained array",
Warn_Node, Formal);
Error_Msg_NE ("?x?foreign caller must pass bounds explicitly",
Warn_Node, Formal);
Error_Msg_N ("\?x?foreign caller must pass bounds explicitly",
Warn_Node);
Error_Msg_Qual_Level := 0;
end if;

10
gcc/ada/sem_cat.adb
View file

@ -296,18 +296,16 @@ package body Sem_Cat is
-- Add further explanation for Pure/Preelaborate common cases
if Unit_Category = Pure then
Error_Msg_NE
("\<<pure unit cannot depend on non-pure unit",
N, Depended_Entity);
Error_Msg_N
("\<<pure unit cannot depend on non-pure unit", N);
elsif Is_Preelaborated (Unit_Entity)
and then not Is_Preelaborated (Depended_Entity)
and then not Is_Pure (Depended_Entity)
then
Error_Msg_NE
Error_Msg_N
("\<<preelaborated unit cannot depend on "
& "non-preelaborated unit",
N, Depended_Entity);
& "non-preelaborated unit", N);
end if;
end if;
end Check_Categorization_Dependencies;

4
gcc/ada/sem_ch10.adb
View file

@ -1561,9 +1561,9 @@ package body Sem_Ch10 is
Error_Msg_N
("simultaneous visibility of limited and "
& "unlimited views not allowed", Item);
Error_Msg_NE
Error_Msg_N
("\unlimited view visible through context "
& "clause #", Item, It);
& "clause #", Item);
exit;
elsif Nkind (Unit_Name) = N_Identifier then

12
gcc/ada/sem_ch12.adb
View file

@ -13828,9 +13828,9 @@ package body Sem_Ch12 is
Actual_Discr := First_Discriminant (Act_T);
while Formal_Discr /= Empty loop
if Actual_Discr = Empty then
Error_Msg_NE
Error_Msg_N
("discriminants on actual do not match formal",
Actual, Gen_T);
Actual);
Abandon_Instantiation (Actual);
end if;
@ -13851,18 +13851,18 @@ package body Sem_Ch12 is
elsif Base_Type (Formal_Subt) /=
Base_Type (Etype (Actual_Discr))
then
Error_Msg_NE
Error_Msg_N
("types of actual discriminants must match formal",
Actual, Gen_T);
Actual);
Abandon_Instantiation (Actual);
elsif not Subtypes_Statically_Match
(Formal_Subt, Etype (Actual_Discr))
and then Ada_Version >= Ada_95
then
Error_Msg_NE
Error_Msg_N
("subtypes of actual discriminants must match formal",
Actual, Gen_T);
Actual);
Abandon_Instantiation (Actual);
end if;

4
gcc/ada/sem_ch5.adb
View file

@ -2037,8 +2037,8 @@ package body Sem_Ch5 is
then
null;
else
Error_Msg_NE
("container type does not support reverse iteration", N, Typ);
Error_Msg_N
("container type does not support reverse iteration", N);
end if;
end if;
end Check_Reverse_Iteration;