diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-04-15 20:35:45 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-04-15 20:35:45 +0200 |
commit | 898ef1b4e181e4bf46c045f6e56fb70ef8e5b04d (patch) | |
tree | 538bf4273bbc089a3178e5c12c6d66ecfd78a02a /src | |
parent | 88830edd0ac769f04e18e2a0d6fe0d5e23cf203f (diff) | |
download | ghdl-898ef1b4e181e4bf46c045f6e56fb70ef8e5b04d.tar.gz ghdl-898ef1b4e181e4bf46c045f6e56fb70ef8e5b04d.tar.bz2 ghdl-898ef1b4e181e4bf46c045f6e56fb70ef8e5b04d.zip |
vhdl: fix crash on access subtype. Fix #797
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 8e51f0731..e594ec45a 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3785,7 +3785,8 @@ package body Trans.Chap7 is function Bounds_Acc_To_Fat_Pointer (Ptr : O_Dnode; Acc_Type : Iir) return Mnode is - D_Type : constant Iir := Get_Designated_Type (Acc_Type); + D_Type : constant Iir := + Get_Designated_Type (Get_Base_Type (Acc_Type)); D_Info : constant Type_Info_Acc := Get_Info (D_Type); Res : Mnode; begin |