diff options
Diffstat (limited to 'gcc/ada/sem_case.adb')
| -rw-r--r-- | gcc/ada/sem_case.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index 8b5f6a4ff49..d15bd1e71a4 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -8,7 +8,7 @@ -- -- -- $Revision$ -- -- --- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -331,6 +331,8 @@ package body Sem_Case is ----------- procedure No_OP (C : Node_Id) is + pragma Warnings (Off, C); + begin null; end No_OP; @@ -577,12 +579,14 @@ package body Sem_Case is else if Is_Out_Of_Range (L, E) then Apply_Compile_Time_Constraint_Error - (L, "static value out of range"); + (L, "static value out of range", + CE_Range_Check_Failed); end if; if Is_Out_Of_Range (H, E) then Apply_Compile_Time_Constraint_Error - (H, "static value out of range"); + (H, "static value out of range", + CE_Range_Check_Failed); end if; end if; end if; |