From 955bfac884bfe67a2e065abc299e471d98ec8db9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 12 Jan 2019 08:11:08 +0100 Subject: trans-chap3: save base type for constrained arrays. --- src/vhdl/translate/trans-chap3.adb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 49cf89ec7..a7985f6cd 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1090,6 +1090,8 @@ package body Trans.Chap3 is -- Element has been constrained by this subtype, so create the -- base array (and the pointer). Create_Array_For_Array_Subtype (Def, Base, Info.Ortho_Ptr_Type); + Info.B.Base_Type := Base; + Info.B.Base_Ptr_Type := Info.Ortho_Ptr_Type; else Base := Pinfo.B.Base_Type; Info.Ortho_Ptr_Type := Pinfo.B.Base_Ptr_Type; -- cgit v1.2.3