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

diff --git a/gcc/ada/s-imgwch.adb b/gcc/ada/s-imgwch.adb
index 09d4e5844c4df86e066bda7efd3035f3c2134f27..3ca5cccbe2ce8e6b17a096eea9cc2c8405d824eb 100644 (file)
--- 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