diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 8f383a099..0e2474085 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1140,7 +1140,7 @@ package body Trans.Chap3 is Set_Info (El_Type, Get_Info (Parent_El_Type)); end if; - if Get_Index_Constraint_Flag (Def) then + if Get_Constraint_State (Def) = Fully_Constrained then -- Index constrained. Translate_Bounded_Array_Subtype_Definition (Def, Parent_Type); else |