diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-12 21:15:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-13 20:12:40 +0100 |
| commit | 15cc8103e06050484e357a3928dedcc691c59535 (patch) | |
| tree | 04714993b4077f64f6d171a3446281fb713f8114 /src/vhdl/translate | |
| parent | 36b5b63ef90d7311c483e6adcbf22adf3e31174c (diff) | |
| download | ghdl-15cc8103e06050484e357a3928dedcc691c59535.tar.gz ghdl-15cc8103e06050484e357a3928dedcc691c59535.tar.bz2 ghdl-15cc8103e06050484e357a3928dedcc691c59535.zip | |
select_name: consider subtype.
For #191
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index e9f2987dd..d1375c728 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -816,8 +816,9 @@ package body Trans.Chap6 is function Translate_Selected_Element (Prefix : Mnode; El : Iir_Element_Declaration) return Mnode is - El_Info : constant Field_Info_Acc := Get_Info (El); - El_Type : constant Iir := Get_Type (El); + Base_El : constant Iir := Get_Base_Element_Declaration (El); + El_Info : constant Field_Info_Acc := Get_Info (Base_El); + El_Type : constant Iir := Get_Type (Base_El); El_Tinfo : constant Type_Info_Acc := Get_Info (El_Type); Kind : constant Object_Kind_Type := Get_Object_Kind (Prefix); Stable_Prefix : Mnode; |