diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-03 04:10:55 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-03 04:10:55 +0100 |
| commit | 27dde16b6a7e5ba415af918dc1591880bd2e6040 (patch) | |
| tree | 56dcc8cb66c182cf90dc062d2417ec257d3f4748 /src/vhdl/translate/trans-chap3.adb | |
| parent | 89551a8e7e3c004f1fec71c877ebccbea11e083f (diff) | |
| download | ghdl-27dde16b6a7e5ba415af918dc1591880bd2e6040.tar.gz ghdl-27dde16b6a7e5ba415af918dc1591880bd2e6040.tar.bz2 ghdl-27dde16b6a7e5ba415af918dc1591880bd2e6040.zip | |
translate: handle unbounded aggregate for signal target.
Fix for #676.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 2d7a126a2..e10e2c2f2 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -3044,7 +3044,7 @@ package body Trans.Chap3 is function Slice_Base (Base : Mnode; Atype : Iir; Index : O_Enode) return Mnode is - T_Info : constant Type_Info_Acc := Get_Info (Atype); + T_Info : constant Type_Info_Acc := Get_Info (Atype); El_Type : constant Iir := Get_Element_Subtype (Atype); El_Tinfo : constant Type_Info_Acc := Get_Info (El_Type); Kind : constant Object_Kind_Type := Get_Object_Kind (Base); |