[gcc/devel/c++-modules] [Ada] Change local object from variable to constant

[Nathan Sidwell]

https://gcc.gnu.org/g:845c49360bca4553676d5a33603d5099e7cf6d85

commit 845c49360bca4553676d5a33603d5099e7cf6d85
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Sun May 10 21:56:42 2020 +0200

    [Ada] Change local object from variable to constant
    
    gcc/ada/
    
            * sem_aggr.adb (Resolve_Delta_Array_Aggregate): Make Index_Type
            a constant.

Diff:
---
 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