From 898ef1b4e181e4bf46c045f6e56fb70ef8e5b04d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 15 Apr 2019 20:35:45 +0200 Subject: vhdl: fix crash on access subtype. Fix #797 --- src/vhdl/translate/trans-chap7.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3