diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 17:19:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 17:19:19 +0000 |
| commit | d016e0b5c7d0f728f669665428cd8120f6620b59 (patch) | |
| tree | c29a9485008dc37a0ce489ce23a01cd8ba7dbd48 /gcc/ada/s-imgwch.ads | |
| parent | 81f0d4b13c712877d3d87823587a3be610cf98e7 (diff) | |
| download | gcc-d016e0b5c7d0f728f669665428cd8120f6620b59.tar.gz | |
2005-12-05 Robert Dewar <dewar@adacore.com>
* exp_imgv.adb (Expand_Image_Attribute): Generate extra boolean
parameter in call to Image_Wide_Character.
* s-imgwch.ads, s-imgwch.adb (Image_Wide_Character): Add boolean
parameter Ada_2005 to deal with annoying FFFE/FFFF inconsistency.
(Image_Wide_Character): Add boolean parameter Ada_2005 to deal with
annoying FFFE/FFFF inconsistency.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108293 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-imgwch.ads')
| -rw-r--r-- | gcc/ada/s-imgwch.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/s-imgwch.ads b/gcc/ada/s-imgwch.ads index 61f4441f53a..b827b803b92 100644 --- a/gcc/ada/s-imgwch.ads +++ b/gcc/ada/s-imgwch.ads @@ -36,8 +36,12 @@ package System.Img_WChar is pragma Pure; - function Image_Wide_Character (V : Wide_Character) return String; - -- Computes Wide_Character'Image (V) and returns the computed result + function Image_Wide_Character + (V : Wide_Character; + Ada_2005 : Boolean) return String; + -- Computes Wide_Character'Image (V) and returns the computed result. The + -- parameter Ada_2005 is True if operating in Ada 2005 mode (or beyond). + -- This is needed for the annoying FFFE/FFFF incompatibility. function Image_Wide_Wide_Character (V : Wide_Wide_Character) return String; -- Computes Wide_Wide_Character'Image (V) and returns the computed result |