From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 9 Dec 2020 13:34:45 +0000 (+0100)
Subject: [Ada] More precise error about aspects conflicting with Static
X-Git-Tag: basepoints/gcc-13~8112
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=12e67086ad2777e1f583124f15210ee0323533c3;p=thirdparty%2Fgcc.git

[Ada] More precise error about aspects conflicting with Static

gcc/ada/

	* sem_ch13.adb (Analyze_Aspect_Static): Use aspect name in the
	error message.
---

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 07dec4c4d983..22738870a48b 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -2594,8 +2594,9 @@ package body Sem_Ch13 is
 
                   for Asp in Pre_Post_Aspects loop
                      if Has_Aspect (E, Asp) then
+                        Error_Msg_Name_1 := Aspect_Names (Asp);
                         Error_Msg_N
-                          ("this aspect is not allowed for a static "
+                          ("aspect % is not allowed for a static "
                            & "expression function",
                            Find_Aspect (E, Asp));