OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Gary Dismukes 2005-03-15 17:18:42 +01:00 committed by Arnaud Charlet
parent 4275704c44
commit d08160311a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/s-imgwch.adb
View File

@ -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