diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-04-24 12:17:51 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-19 04:17:07 -0400 |
| commit | 75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1 (patch) | |
| tree | 00300c277e183e4ddcce00dd13a6025d8dfb353f | |
| parent | aae80e833d2826fc0afe7ff1704d2ab0f4607c5a (diff) | |
| download | gcc-75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1.zip gcc-75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1.tar.gz gcc-75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1.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; |