From 845c49360bca4553676d5a33603d5099e7cf6d85 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Sun, 10 May 2020 21:56:42 +0200 Subject: [PATCH] [Ada] Change local object from variable to constant gcc/ada/ * sem_aggr.adb (Resolve_Delta_Array_Aggregate): Make Index_Type a constant. --- gcc/ada/sem_aggr.adb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index a17f156ee67..9e2801adfcb 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -2660,15 +2660,13 @@ package body Sem_Aggr is ----------------------------------- procedure Resolve_Delta_Array_Aggregate (N : Node_Id; Typ : Entity_Id) is - Deltas : constant List_Id := Component_Associations (N); + Deltas : constant List_Id := Component_Associations (N); + Index_Type : constant Entity_Id := Etype (First_Index (Typ)); - Assoc : Node_Id; - Choice : Node_Id; - Index_Type : Entity_Id; + Assoc : Node_Id; + Choice : Node_Id; begin - Index_Type := Etype (First_Index (Typ)); - Assoc := First (Deltas); while Present (Assoc) loop if Nkind (Assoc) = N_Iterated_Component_Association then -- 2.30.2