diff options
author | Viljar Indus <indus@adacore.com> | 2024-04-09 12:35:40 +0300 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-13 15:30:32 +0200 |
commit | 0a406917be8d6a299abab0c67b74ba70a8bd9aa9 (patch) | |
tree | 52e8622755acb9478772d102cfb6cddb059fd4ac /gcc | |
parent | 73dbf51a8bc514f22670e2d5c82d5fdc5252118d (diff) | |
download | gcc-0a406917be8d6a299abab0c67b74ba70a8bd9aa9.zip gcc-0a406917be8d6a299abab0c67b74ba70a8bd9aa9.tar.gz gcc-0a406917be8d6a299abab0c67b74ba70a8bd9aa9.tar.bz2 |
ada: Convert an info message to a continuation
The info message about the freeze point should be considered
a continuation of the error message about the change of visibility
after the freeze point. This improves the error layout for formatted
error messages with the -gnatdF switch.
gcc/ada/
* sem_ch13.adb (Check_Aspect_At_End_Of_Declarations): change the
info message to a continuation message.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/sem_ch13.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 32b3333..e585336 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -11150,9 +11150,10 @@ package body Sem_Ch13 is Error_Msg_NE ("!visibility of aspect for& changes after freeze point", ASN, Ent); + Error_Msg_Sloc := Sloc (Freeze_Node (Ent)); Error_Msg_NE - ("info: & is frozen here, (RM 13.1.1 (13/3))??", - Freeze_Node (Ent), Ent); + ("\& is frozen #, (RM 13.1.1 (13/3))", + ASN, Ent); end if; end Check_Aspect_At_End_Of_Declarations; |