diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2005-03-15 17:18:42 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-15 17:18:42 +0100 |
| commit | d08160311ad5400889b51c5789cbc547790cfa57 (patch) | |
| tree | efdd6999e703dbc11d9283c0766374c27cb01d72 | |
| parent | 4275704c44aa427b1d8b84650bdfa0195d5efb41 (diff) | |
| download | gcc-d08160311ad5400889b51c5789cbc547790cfa57.zip gcc-d08160311ad5400889b51c5789cbc547790cfa57.tar.gz gcc-d08160311ad5400889b51c5789cbc547790cfa57.tar.bz2 | |
s-imgwch.adb: Add with and use of Interfaces.
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.
From-SVN: r96509
| -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 09d4e58..3ca5ccc 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 |