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

[Ada] Tune inconsistent message about fixed-lower-bound and -gnatX

Browse Source 
gcc/ada/

	* par-ch3.adb (P_Array_Type_Definition): Use
	Error_Msg_GNAT_Extension.
This commit is contained in:
Piotr Trojanek 2022-01-03 17:50:44 +01:00 committed by Pierre-Marie de Rodat
parent a115e497e6
commit a4c26e697b
1 changed files with 3 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gcc/ada/par-ch3.adb
View File

@ -2788,12 +2788,7 @@ package body Ch3 is
else
P_Index_Subtype_Def_With_Fixed_Lower_Bound (Subtype_Mark_Node);
if not Extensions_Allowed then
Error_Msg_N
("fixed-lower-bound array is an extension feature; "
& "use -gnatX",
Token_Node);
end if;
Error_Msg_GNAT_Extension ("fixed-lower-bound array");
end if;
exit when Token = Tok_Right_Paren or else Token = Tok_Of;
@ -2862,12 +2857,7 @@ package body Ch3 is
P_Index_Subtype_Def_With_Fixed_Lower_Bound
(Subtype_Mark_Node);
if not Extensions_Allowed then
Error_Msg_N
("fixed-lower-bound array is an extension feature; "
& "use -gnatX",
Token_Node);
end if;
Error_Msg_GNAT_Extension ("fixed-lower-bound array");
end if;
exit when Token = Tok_Right_Paren or else Token = Tok_Of;
@ -3369,12 +3359,7 @@ package body Ch3 is
-- later during analysis), and scan to the next token.
if Token = Tok_Box then
if not Extensions_Allowed then
Error_Msg_N
("fixed-lower-bound array is an extension feature; "
& "use -gnatX",
Expr_Node);
end if;
Error_Msg_GNAT_Extension ("fixed-lower-bound array");
Expr_Node := Empty;
Scan;