diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2005-06-16 10:45:45 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:45:45 +0200 |
| commit | 4875fbba522250df604c97432853faa273468088 (patch) | |
| tree | 5be5ebdd36a6e2285e13e4a7d639c6d0ac44bab3 /gcc | |
| parent | bc49df98e8b97ae433a903486a987bd33f44d1f2 (diff) | |
| download | gcc-4875fbba522250df604c97432853faa273468088.zip gcc-4875fbba522250df604c97432853faa273468088.tar.gz gcc-4875fbba522250df604c97432853faa273468088.tar.bz2 | |
sem_case.adb (Expand_Others_Choice): Improve warning.
2005-06-14 Ed Schonberg <schonberg@adacore.com>
* sem_case.adb (Expand_Others_Choice): Improve warning.
From-SVN: r101058
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_case.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index a113ac9..90d6482 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -524,7 +524,8 @@ package body Sem_Case is and then Comes_From_Source (Others_Choice) and then Is_Empty_List (Choice_List) then - Error_Msg_N ("?others choice is empty", Others_Choice); + Error_Msg_N ("?OTHERS choice is redundant", Others_Choice); + Error_Msg_N ("\previous choices cover all values", Others_Choice); end if; end Expand_Others_Choice; |