From: charlet Date: Tue, 15 Mar 2005 16:18:42 +0000 (+0000) Subject: 2005-03-08 Gary Dismukes X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8940184097da7b5a231a503644d2ae234d5cc12d;p=thirdparty%2Fgcc.git 2005-03-08 Gary Dismukes * 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 --- diff --git a/gcc/ada/s-imgwch.adb b/gcc/ada/s-imgwch.adb index 09d4e5844c4d..3ca5cccbe2ce 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