diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2022-05-04 13:31:07 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-06-01 08:43:17 +0000 |
| commit | fdb2f2e696250fafc13635ac8c026d82e05f7738 (patch) | |
| tree | 50de60bf19aad1049e96a95c1e61ed6e9ebbcad5 /gcc | |
| parent | 343928a04430715ce24ee12fc10ab4b1123601f1 (diff) | |
| download | gcc-fdb2f2e696250fafc13635ac8c026d82e05f7738.zip gcc-fdb2f2e696250fafc13635ac8c026d82e05f7738.tar.gz gcc-fdb2f2e696250fafc13635ac8c026d82e05f7738.tar.bz2 | |
[Ada] Fix "formal parameter & is not referenced" not being properly tagged
gcc/ada/
* sem_warn.adb (Warn_On_Unreferenced_Entity): Fix warning tag.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 3dd8cd0..b23be72 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -4414,9 +4414,10 @@ package body Sem_Warn is if (No (S) or else not Is_Dispatching_Operation (S)) and then not Is_Trivial_Subprogram (Scope (E)) + and then Check_Unreferenced_Formals then Error_Msg_NE -- CODEFIX - ("?u?formal parameter & is not referenced!", + ("?f?formal parameter & is not referenced!", E, Spec_E); end if; end; |