diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-12-16 10:35:05 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-16 10:35:05 +0000 |
| commit | 1cbd208038a63b4edaadd6b375ec5cdca5d90968 (patch) | |
| tree | 6b4fd8ab8718fea0dbc1190505d259e622a40e23 /gcc | |
| parent | 08611be2545ec4a84357ad343aaec71da92f2ce6 (diff) | |
| download | gcc-1cbd208038a63b4edaadd6b375ec5cdca5d90968.zip gcc-1cbd208038a63b4edaadd6b375ec5cdca5d90968.tar.gz gcc-1cbd208038a63b4edaadd6b375ec5cdca5d90968.tar.bz2 | |
[Ada] Do not set a bogus Esize on subtype built for Component_Size clause
2019-12-16 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): Set only
the RM_Size on the subtype built for a Component_Size clause
when the component type is a biased integer type.
From-SVN: r279437
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 13f7799..e47c838 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2019-12-16 Eric Botcazou <ebotcazou@adacore.com> + + * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Set only + the RM_Size on the subtype built for a Component_Size clause + when the component type is a biased integer type. + 2019-12-16 Arnaud Charlet <charlet@adacore.com> * socket.c: Shutdown warning. diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index bbdb065..8ca731d 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -5476,7 +5476,7 @@ package body Sem_Ch13 is Analyze (Decl, Suppress => All_Checks); Set_Has_Delayed_Freeze (New_Ctyp, False); - Set_Esize (New_Ctyp, Csize); + Init_Esize (New_Ctyp); Set_RM_Size (New_Ctyp, Csize); Init_Alignment (New_Ctyp); Set_Is_Itype (New_Ctyp, True); |