diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-01-04 17:52:47 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-01-06 18:20:27 +0100 |
commit | 727f3514973a5ec8b7fc86bd8db6611585bd9217 (patch) | |
tree | df8a43e84add4956b2162b602d75860b8483a2f6 /src/vhdl/translate/trans-chap3.adb | |
parent | 9b1191a6c717ae033a6bb8558e444ac1083d8100 (diff) | |
download | ghdl-727f3514973a5ec8b7fc86bd8db6611585bd9217.tar.gz ghdl-727f3514973a5ec8b7fc86bd8db6611585bd9217.tar.bz2 ghdl-727f3514973a5ec8b7fc86bd8db6611585bd9217.zip |
vhdl/translate: handle more partially constrained array subtypes. For #1038
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index c09203252..64e658629 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -950,6 +950,9 @@ package body Trans.Chap3 is -- Declare the types. Finish_Unbounded_Type_Base (Info); else + -- The element type is not static (like an array sub-type with + -- bounds that were computed). So an array cannot be created in + -- ortho. if El_Tinfo.Type_Mode in Type_Mode_Arrays then Info.B.Base_Type := El_Tinfo.B.Base_Ptr_Type; Info.B.Base_Ptr_Type := El_Tinfo.B.Base_Ptr_Type; |