From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 9 Dec 2020 13:44:00 +0000 (+0100)
Subject: [Ada] Consistent diagnostic on missing -gnat2020 switch for aspects
X-Git-Tag: basepoints/gcc-13~8110
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=88fd22e721c32580610d1756701cef892e713ad8;p=thirdparty%2Fgcc.git

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

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.
---

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 25e3bd76c68b..6af32386b94a 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -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