diff options
| author | Bob Duff <duff@adacore.com> | 2020-06-18 09:10:33 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-27 04:05:20 -0400 |
| commit | 116e8b669eddc96b0294c6cf114372a0d346072e (patch) | |
| tree | 8d64e9f782c1226e867bccfdf3347b57115d695b /gcc | |
| parent | f35bd40944ebf835459b7666abc22c92590e6129 (diff) | |
| download | gcc-116e8b669eddc96b0294c6cf114372a0d346072e.zip gcc-116e8b669eddc96b0294c6cf114372a0d346072e.tar.gz gcc-116e8b669eddc96b0294c6cf114372a0d346072e.tar.bz2 | |
[Ada] Bug in Enum_Subtype'Image in Ada 2020 mode
gcc/ada/
* exp_imgv.adb (Expand_Image_Attribute): Add Root_Type, so
constrained subtypes work.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 8cad102..41e4b1b 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -483,7 +483,7 @@ package body Exp_Imgv is -- underlying type. if Ada_Version >= Ada_2020 then - Rtyp := Underlying_Type (Ptyp); + Rtyp := Underlying_Type (Root_Type (Ptyp)); else Rtyp := Root_Type (Ptyp); end if; |