diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-06-17 19:44:40 +0200 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-08 09:34:59 +0100 |
commit | c2596d4533389b8898516b444f8464a1720711af (patch) | |
tree | 2ac6ed1559db1940265052bdaf2d006ef14d7e46 /gcc/ada/exp_put_image.ads | |
parent | 7857d873293d2333e1cc8e67ff9bb963fc8b4d1f (diff) | |
download | gcc-c2596d4533389b8898516b444f8464a1720711af.zip gcc-c2596d4533389b8898516b444f8464a1720711af.tar.gz gcc-c2596d4533389b8898516b444f8464a1720711af.tar.bz2 |
ada: Fix expansion of 'Wide_Image and 'Wide_Wide_Image on composite types
Attributes Wide_Image and Wide_Wide_Image applied to composite types are
now expanded just like attribute Image.
gcc/ada/
* exp_imgv.adb
(Expand_Wide_Image_Attribute): Handle just like attribute Image.
(Expand_Wide_Wide_Image_Attribute): Likewise.
* exp_put_image.adb
(Build_Image_Call): Adapt to also work for Wide and Wide_Wide
attributes.
* exp_put_image.ads
(Build_Image_Call): Update comment.
* rtsfind.ads
(RE_Id): Support wide variants of Get.
(RE_Unit_Table): Likewise.
Diffstat (limited to 'gcc/ada/exp_put_image.ads')
-rw-r--r-- | gcc/ada/exp_put_image.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_put_image.ads b/gcc/ada/exp_put_image.ads index b2b65aa..d4055d1 100644 --- a/gcc/ada/exp_put_image.ads +++ b/gcc/ada/exp_put_image.ads @@ -91,9 +91,9 @@ package Exp_Put_Image is -- T'Image. function Build_Image_Call (N : Node_Id) return Node_Id; - -- N is a call to T'Image, and this translates it into the appropriate code - -- to call T'Put_Image into a buffer and then extract the string from the - -- buffer. + -- N is a call to T'[[Wide_]Wide_]Image, and this translates it into the + -- appropriate code to call T'Put_Image into a buffer and then extract the + -- [[wide] wide] string from the buffer. procedure Preload_Root_Buffer_Type (Compilation_Unit : Node_Id); -- Call RTE (RE_Root_Buffer_Type) if necessary, to load the packages |