diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-05-10 21:12:33 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-07 05:26:54 -0400 |
| commit | c78efe921c1fab590293476ae9910e1bb5b090c4 (patch) | |
| tree | c4e454e22d9a39a6b6e25bef5e3844ca3e02aa06 | |
| parent | dab6432039b8a92acd2bf4490771c9f5b347c005 (diff) | |
| download | gcc-c78efe921c1fab590293476ae9910e1bb5b090c4.zip gcc-c78efe921c1fab590293476ae9910e1bb5b090c4.tar.gz gcc-c78efe921c1fab590293476ae9910e1bb5b090c4.tar.bz2 | |
[Ada] Fix expansion of delta aggregates with slices
gcc/ada/
* exp_aggr.adb (Expand_N_Delta_Aggregate): Use type of the delta
base expression for the anonymous object of the delta aggregate.
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 6832d40..884c0ee 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -6845,7 +6845,7 @@ package body Exp_Aggr is procedure Expand_N_Delta_Aggregate (N : Node_Id) is Loc : constant Source_Ptr := Sloc (N); - Typ : constant Entity_Id := Etype (N); + Typ : constant Entity_Id := Etype (Expression (N)); Decl : Node_Id; begin |