diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-04-24 12:17:51 -0400 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:14:04 -0300 |
| commit | 74838990f4c28f95da05c89dda8758503820ae28 (patch) | |
| tree | e5e3e2ea7b760fe1bb95c3693f8a4ff73d049404 | |
| parent | 8cc4eb12e0ca8fa5cf463accd4734acfc1c87bbe (diff) | |
| download | gcc-74838990f4c28f95da05c89dda8758503820ae28.zip gcc-74838990f4c28f95da05c89dda8758503820ae28.tar.gz gcc-74838990f4c28f95da05c89dda8758503820ae28.tar.bz2 | |
[Ada] Add missing warning tag for some overlapping actuals warnings
2020-06-19 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* sem_warn.adb (Warn_On_Overlapping_Actuals): Add missing
warning tag.
| -rw-r--r-- | gcc/ada/sem_warn.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 5e9c616..fe9c467 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3854,7 +3854,7 @@ package body Sem_Warn is then if Act1 = First_Actual (N) then Error_Msg_FE - ("<<`IN OUT` prefix overlaps with " + ("<I<`IN OUT` prefix overlaps with " & "actual for&", Act1, Form2); else @@ -3862,7 +3862,7 @@ package body Sem_Warn is Error_Msg_Node_2 := Form2; Error_Msg_FE - ("<<writable actual for & overlaps with " + ("<I<writable actual for & overlaps with " & "actual for&", Act1, Form2); end if; @@ -3874,7 +3874,7 @@ package body Sem_Warn is -- This is one of the messages Error_Msg_FE - ("<<writable actual for & overlaps with " + ("<I<writable actual for & overlaps with " & "actual for&", Act1, Form1); end if; end if; |