[gcc r15-1277] ada: Convert an info message to a continuation
Marc Poulhi?s
dkm@gcc.gnu.org
Thu Jun 13 13:35:06 GMT 2024
https://gcc.gnu.org/g:0a406917be8d6a299abab0c67b74ba70a8bd9aa9
commit r15-1277-g0a406917be8d6a299abab0c67b74ba70a8bd9aa9
Author: Viljar Indus <indus@adacore.com>
Date: Tue Apr 9 12:35:40 2024 +0300
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.
Diff:
---
gcc/ada/sem_ch13.adb | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 32b3333c1570..e585336ab0ee 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;
More information about the Gcc-cvs
mailing list