diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-04 21:09:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-04 21:09:03 +0100 |
| commit | 4e2016ef3a6759fce78f2da761843832806fcd66 (patch) | |
| tree | 32c24a75ee7959f19e08f2ca17d59f5b9698bebf /src | |
| parent | 5e534966512e77a05b0ebc944568c64c0c433a6b (diff) | |
| download | ghdl-4e2016ef3a6759fce78f2da761843832806fcd66.tar.gz ghdl-4e2016ef3a6759fce78f2da761843832806fcd66.tar.bz2 ghdl-4e2016ef3a6759fce78f2da761843832806fcd66.zip | |
trans-foreach_non_composite: constify.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-foreach_non_composite.adb | 4 |
1 files 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; |