diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:18:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:18:42 +0000 |
| commit | 8940184097da7b5a231a503644d2ae234d5cc12d (patch) | |
| tree | efdd6999e703dbc11d9283c0766374c27cb01d72 /gcc/ada/s-imgwch.adb | |
| parent | a6419052cd9791c5dc4b56b8aac26ea9dbe28810 (diff) | |
| download | gcc-8940184097da7b5a231a503644d2ae234d5cc12d.tar.gz | |
2005-03-08 Gary Dismukes <dismukes@adacore.com>
* s-imgwch.adb: Add with and use of Interfaces.
(Img_Wide_Character): Change type of Val to Unsigned_16.
(Img_Wide_Wide_Character): Change type of Val to Unsigned_32.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96509 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-imgwch.adb')
| -rw-r--r-- | gcc/ada/s-imgwch.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/s-imgwch.adb b/gcc/ada/s-imgwch.adb index 09d4e5844c4..3ca5cccbe2c 100644 --- a/gcc/ada/s-imgwch.adb +++ b/gcc/ada/s-imgwch.adb @@ -31,6 +31,8 @@ -- -- ------------------------------------------------------------------------------ +with Interfaces; use Interfaces; + with System.Img_Char; use System.Img_Char; with System.WCh_Con; use System.WCh_Con; with System.WCh_WtS; use System.WCh_WtS; @@ -45,7 +47,7 @@ package body System.Img_WChar is (V : Wide_Character; EM : WC_Encoding_Method) return String is - Val : constant Natural := Wide_Character'Pos (V); + Val : constant Unsigned_16 := Wide_Character'Pos (V); WS : Wide_String (1 .. 3); begin @@ -88,7 +90,7 @@ package body System.Img_WChar is (V : Wide_Wide_Character; EM : WC_Encoding_Method) return String is - Val : constant Natural := Wide_Wide_Character'Pos (V); + Val : constant Unsigned_32 := Wide_Wide_Character'Pos (V); WS : Wide_Wide_String (1 .. 3); begin |