diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-06-11 16:04:13 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:32 +0000 |
commit | 0c5c46a9576daa60e6104cb6457b487484133b3d (patch) | |
tree | 1e548f1231c973d78e00208a61065f917cdc9031 /gcc/ada/exp_aggr.adb | |
parent | 3450ded1eddb35b7f9030c5545d1e542cef5f8b2 (diff) | |
download | gcc-0c5c46a9576daa60e6104cb6457b487484133b3d.zip gcc-0c5c46a9576daa60e6104cb6457b487484133b3d.tar.gz gcc-0c5c46a9576daa60e6104cb6457b487484133b3d.tar.bz2 |
[Ada] Refine types of local constants that store Etype results
gcc/ada/
* exp_aggr.adb, exp_ch4.adb, exp_ch5.adb, sprint.adb: Refine
types of local constants.
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
-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 1b08436..00bd8c0 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -4003,7 +4003,7 @@ package body Exp_Aggr is and then Present (First_Index (Etype (Expr_Q))) then declare - Expr_Q_Type : constant Node_Id := Etype (Expr_Q); + Expr_Q_Type : constant Entity_Id := Etype (Expr_Q); begin Append_List_To (L, Build_Array_Aggr_Code |