diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 9291bd38b..f09601066 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1180,6 +1180,10 @@ package body Trans.Chap3 is if Info.Type_Locally_Constrained then Arr := Arr_Def; else + -- If the element has been constrained, there is no ortho array + -- with the constrained element. So use the base type as a fall + -- back (if the element cannot be constrained, it is the same as the + -- base type element). Arr := Get_Base_Type (Arr_Def); end if; return Get_Element_Subtype (Arr); |