diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2022-04-23 12:28:28 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-30 08:29:02 +0000 |
commit | 567bf44932542b8f861dc7880dba3273fb5838ce (patch) | |
tree | 7589a33afa115dfedb033469f9ca3d869a979dce /gcc/ada/sem_ch13.adb | |
parent | 878ded4f9a974bbcf90346d746daa5eeebdd7bd6 (diff) | |
download | gcc-567bf44932542b8f861dc7880dba3273fb5838ce.tar.gz |
[Ada] Fix expansion of aggregate for discriminated limited extension
The presence of the discriminants prevents the values associated with the
components of the parent type from being put into the sub-aggregate built
for the _Parent component.
gcc/ada/
* exp_aggr.adb (Expand_Record_Aggregate.Build_Back_End_Aggregate):
Skip the discriminants at the start of the component list before
looking for the components inherited from the parent in the case
of a tagged extension.
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
0 files changed, 0 insertions, 0 deletions