diff options
Diffstat (limited to 'gcc/ada/types.adb')
-rw-r--r-- | gcc/ada/types.adb | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb index 69b019ed086..9334c311a65 100644 --- a/gcc/ada/types.adb +++ b/gcc/ada/types.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -153,6 +153,16 @@ package body Types is end Get_Hex_String; ------------------------ + -- Get_Wide_Character -- + ------------------------ + + function Get_Wide_Character (C : Char_Code) return Wide_Character is + begin + pragma Assert (C <= 65535); + return Wide_Character'Val (C); + end Get_Wide_Character; + + ------------------------ -- In_Character_Range -- ------------------------ @@ -161,6 +171,15 @@ package body Types is return (C <= 255); end In_Character_Range; + ----------------------------- + -- In_Wide_Character_Range -- + ----------------------------- + + function In_Wide_Character_Range (C : Char_Code) return Boolean is + begin + return (C <= 65535); + end In_Wide_Character_Range; + --------------------- -- Make_Time_Stamp -- --------------------- |