From 12e67086ad2777e1f583124f15210ee0323533c3 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 9 Dec 2020 14:34:45 +0100 Subject: [PATCH] [Ada] More precise error about aspects conflicting with Static gcc/ada/ * sem_ch13.adb (Analyze_Aspect_Static): Use aspect name in the error message. --- gcc/ada/sem_ch13.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)); -- 2.47.2