| Message ID | 20221107083901.150264-1-poulhies@adacore.com |
|---|---|
| State | New |
| Headers | show |
| Series | [COMMITTED] ada: Fix missing tag for with of an obsolescent function | expand |
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 77d58211b50..83b9b20b44e 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3146,7 +3146,7 @@ package body Sem_Warn is ("?j?with of obsolescent procedure& declared#", N, E); else Error_Msg_NE - ("??with of obsolescent function& declared#", N, E); + ("?j?with of obsolescent function& declared#", N, E); end if; -- If we do not have a with clause, then ignore any reference to an
From: Piotr Trojanek <trojanek@adacore.com> Fix minor inconsistency in tags of warnings about obsolescent entities. Part of cleaning up the warnings machinery to better handle references to unset objects. gcc/ada/ * sem_warn.adb (Output_Obsolescent_Entity_Warnings): Tag warnings about obsolescent functions just like we tag similar warnings for packages and procedures. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_warn.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)