diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-09-07 15:01:16 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-07 09:36:29 +0100 |
| commit | c7dc111e9d8e2eb83e45870a98c193f2fd681313 (patch) | |
| tree | ae965e26f1fcd165253721bd440da787865eb828 /gcc | |
| parent | f74a049a5371d421c5f4637dfae1ce0afc8a01ff (diff) | |
| download | gcc-c7dc111e9d8e2eb83e45870a98c193f2fd681313.zip gcc-c7dc111e9d8e2eb83e45870a98c193f2fd681313.tar.gz gcc-c7dc111e9d8e2eb83e45870a98c193f2fd681313.tar.bz2 | |
ada: Fix missing tag for with of an obsolescent function
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 77d5821..83b9b20 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 |