From 4875fbba522250df604c97432853faa273468088 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Thu, 16 Jun 2005 10:45:45 +0200 Subject: [PATCH] sem_case.adb (Expand_Others_Choice): Improve warning. 2005-06-14 Ed Schonberg * sem_case.adb (Expand_Others_Choice): Improve warning. From-SVN: r101058 --- gcc/ada/sem_case.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- 2.47.2