[Ada] Adjust previous change to Expand_Subtype_From_Expr
commit347dec125b662bdeb6d426ead3449e1209c2ce28
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 13 Jul 2022 23:25:25 +0000 (14 01:25 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 2 Sep 2022 07:34:07 +0000 (2 09:34 +0200)
treec0288bdc79a54813fab993ea73981add55f42dc9
parent34d054d126f0fa870e36e37709199db84a5e1bd8
[Ada] Adjust previous change to Expand_Subtype_From_Expr

An aggregate may have been rewritten before being seen by the procedure.

gcc/ada/

* exp_util.adb (Expand_Subtype_From_Expr): Be prepared for
rewritten aggregates as expressions.
gcc/ada/exp_util.adb