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

[Ada] Consistent diagnostic on missing -gnat2020 switch for aspects

Browse Source 
gcc/ada/

	* sem_ch13.adb (Analyze_Aspect_Static): Reuse
	Error_Msg_Ada_2020_Feature for aspect Static.
	(Analyze_One_Aspect): Likewise for aspect Full_Access.
This commit is contained in:
Piotr Trojanek 2020-12-09 14:44:00 +01:00 committed by Pierre-Marie de Rodat
parent 189c58042d
commit 88fd22e721
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/sem_ch13.adb
View File

@ -2500,10 +2500,7 @@ package body Sem_Ch13 is
begin
if Ada_Version < Ada_2020 then
Error_Msg_N
("aspect % is an Ada 202x feature", Aspect);
Error_Msg_N ("\compile with -gnat2020", Aspect);
Error_Msg_Ada_2020_Feature ("aspect %", Sloc (Aspect));
return;
end if;
@ -4575,11 +4572,7 @@ package body Sem_Ch13 is
-- Ada 202x (AI12-0363): Full_Access_Only
elsif A_Id = Aspect_Full_Access_Only then
if Ada_Version < Ada_2020 then
Error_Msg_N
("aspect % is an Ada 202x feature", Aspect);
Error_Msg_N ("\compile with -gnat2020", Aspect);
end if;
Error_Msg_Ada_2020_Feature ("aspect %", Sloc (Aspect));
-- Ada 202x (AI12-0075): static expression functions