diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-01-12 08:11:08 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-01-12 08:11:08 +0100 |
| commit | 955bfac884bfe67a2e065abc299e471d98ec8db9 (patch) | |
| tree | 9ef35fc9b0ecfa10ed11f9ea2bbf65e0be05a32c | |
| parent | ac3c67cd0aa67f1e01a05821c5088ae70815fc6d (diff) | |
| download | ghdl-955bfac884bfe67a2e065abc299e471d98ec8db9.tar.gz ghdl-955bfac884bfe67a2e065abc299e471d98ec8db9.tar.bz2 ghdl-955bfac884bfe67a2e065abc299e471d98ec8db9.zip | |
trans-chap3: save base type for constrained arrays.
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |