diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-02-17 06:55:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-02-17 22:09:54 +0100 |
| commit | 6ca409f3359d31ddd2815f5bf42973901923c59d (patch) | |
| tree | b2e6a14b0c1cbeebec04848909f75355f74769f4 /src/vhdl/translate/trans-foreach_non_composite.adb | |
| parent | d5b802ac3d13375378c3ef66ea178a803d5e33b3 (diff) | |
| download | ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.tar.gz ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.tar.bz2 ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.zip | |
vhdl08: unbounded records - WIP
Diffstat (limited to 'src/vhdl/translate/trans-foreach_non_composite.adb')
| -rw-r--r-- | src/vhdl/translate/trans-foreach_non_composite.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-foreach_non_composite.adb b/src/vhdl/translate/trans-foreach_non_composite.adb index 15a21a059..91e90fb5e 100644 --- a/src/vhdl/translate/trans-foreach_non_composite.adb +++ b/src/vhdl/translate/trans-foreach_non_composite.adb @@ -26,9 +26,8 @@ procedure Trans.Foreach_Non_Composite (Targ : Mnode; is use Trans.Helpers; - Type_Info : Type_Info_Acc; + Type_Info : constant Type_Info_Acc := Get_Info (Targ_Type); begin - Type_Info := Get_Info (Targ_Type); case Type_Info.Type_Mode is when Type_Mode_Scalar => Do_Non_Composite (Targ, Targ_Type, Data); @@ -89,13 +88,11 @@ begin Var_Record := Stabilize (Targ); Composite_Data := Prepare_Data_Record (Var_Record, Targ_Type, Data); - List := Get_Elements_Declaration_List - (Get_Base_Type (Targ_Type)); + List := Get_Elements_Declaration_List (Targ_Type); for I in Natural loop El := Get_Nth_Element (List, I); exit when El = Null_Iir; - Sub_Data := Update_Data_Record - (Composite_Data, Targ_Type, El); + Sub_Data := Update_Data_Record (Composite_Data, Targ_Type, El); Foreach_Non_Composite (Chap6.Translate_Selected_Element (Var_Record, El), Get_Type (El), |