diff options
Diffstat (limited to 'gcc/ada/s-widenu.adb')
| -rw-r--r-- | gcc/ada/s-widenu.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/s-widenu.adb b/gcc/ada/s-widenu.adb index 80a255ebf46..375664f344d 100644 --- a/gcc/ada/s-widenu.adb +++ b/gcc/ada/s-widenu.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.9 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2001 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- -- @@ -47,6 +47,8 @@ package body System.Wid_Enum is Lo, Hi : Natural) return Natural is + pragma Warnings (Off, Names); + W : Natural; type Natural_8 is range 0 .. 2 ** 7 - 1; @@ -78,6 +80,8 @@ package body System.Wid_Enum is Lo, Hi : Natural) return Natural is + pragma Warnings (Off, Names); + W : Natural; type Natural_16 is range 0 .. 2 ** 15 - 1; @@ -109,6 +113,8 @@ package body System.Wid_Enum is Lo, Hi : Natural) return Natural is + pragma Warnings (Off, Names); + W : Natural; type Natural_32 is range 0 .. 2 ** 31 - 1; |