diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2023-03-08 20:39:45 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-25 09:44:18 +0200 |
| commit | ec48b99c24a422bf97af91e82203d23b69094e7c (patch) | |
| tree | 9860c77ff9bb40254f566c6b9e6b6f44634921fc | |
| parent | 14bf9f7bb7fe6176532414093f9a5084bbd41428 (diff) | |
| download | gcc-ec48b99c24a422bf97af91e82203d23b69094e7c.zip gcc-ec48b99c24a422bf97af91e82203d23b69094e7c.tar.gz gcc-ec48b99c24a422bf97af91e82203d23b69094e7c.tar.bz2 | |
ada: Fix error message for Aggregate aspect
The error message was wrongly using % instead of & in the format string,
causing the displayed message to refer to incorrect names in some cases.
gcc/ada/
* sem_ch13.adb (Check_Aspect_At_Freeze_Point): fix format string,
use existing local Ident.
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 6f9fe73..593e6f8 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -11224,8 +11224,8 @@ package body Sem_Ch13 is when Aspect_Aggregate => if Is_Array_Type (Entity (ASN)) then Error_Msg_N - ("aspect% can only be applied to non-array type", - Identifier (ASN)); + ("aspect& can only be applied to non-array type", + Ident); end if; Resolve_Aspect_Aggregate (Entity (ASN), Expression (ASN)); return; |