From d08160311ad5400889b51c5789cbc547790cfa57 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Tue, 15 Mar 2005 17:18:42 +0100 Subject: [PATCH] s-imgwch.adb: Add with and use of Interfaces. 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. From-SVN: r96509 --- gcc/ada/s-imgwch.adb | 6 ++++-- 1 file 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