[Ada] Handle subtype_indication in 'Update for arrays
gcc/ada/ * exp_attr.adb (Expand_Update_Attribute): Handle subtype_indication just like in Expand_Delta_Array_Aggregate.
This commit is contained in:
parent
a7d153ab84
commit
3b01ce303b
@ -8164,6 +8164,9 @@ package body Exp_Attr is
|
||||
while Present (Comp) loop
|
||||
if Nkind (Comp) = N_Range then
|
||||
Process_Range_Update (Temp, Comp, Expr, Typ);
|
||||
elsif Nkind (Comp) = N_Subtype_Indication then
|
||||
Process_Range_Update
|
||||
(Temp, Range_Expression (Constraint (Comp)), Expr, Typ);
|
||||
else
|
||||
Process_Component_Or_Element_Update (Temp, Comp, Expr, Typ);
|
||||
end if;
|
||||
|
Loading…
x
Reference in New Issue
Block a user