From 4e2016ef3a6759fce78f2da761843832806fcd66 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 4 Nov 2017 21:09:03 +0100
Subject: trans-foreach_non_composite: constify.
---
src/vhdl/translate/trans-foreach_non_composite.adb | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/vhdl/translate/trans-foreach_non_composite.adb b/src/vhdl/translate/trans-foreach_non_composite.adb
index 3ae044eeb..53ac3a51b 100644
--- a/src/vhdl/translate/trans-foreach_non_composite.adb
+++ b/src/vhdl/translate/trans-foreach_non_composite.adb
@@ -79,17 +79,17 @@ begin
when Type_Mode_Record
| Type_Mode_Unbounded_Record =>
declare
+ List : constant Iir_List :=
+ Get_Elements_Declaration_List (Targ_Type);
Var_Record : Mnode;
Sub_Data : Data_Type;
Composite_Data : Composite_Data_Type;
- List : Iir_List;
El : Iir_Element_Declaration;
begin
Open_Temp;
Var_Record := Stabilize (Targ);
Composite_Data :=
Prepare_Data_Record (Var_Record, Targ_Type, Data);
- List := Get_Elements_Declaration_List (Targ_Type);
for I in Natural loop
El := Get_Nth_Element (List, I);
exit when El = Null_Iir;
--
cgit v1.2.3