From: Ed Schonberg <schonberg@adacore.com>
Date: Thu, 16 Jun 2005 08:45:45 +0000 (+0200)
Subject: sem_case.adb (Expand_Others_Choice): Improve warning.
X-Git-Tag: misc/cutover-cvs2svn~2333
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4875fbba522250df604c97432853faa273468088;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index a113ac91e196..90d64820398d 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;