diff options
Diffstat (limited to 'src/vhdl/translate/trans.adb')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index d6fdbe9d4..ebedf7492 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -1415,7 +1415,8 @@ package body Trans is Free_Type_Info (Info); when Iir_Kind_Array_Subtype_Definition => if Get_Index_Constraint_Flag (I) then - Info.T := Ortho_Info_Type_Array_Init; + Info.B := Ortho_Info_Basetype_Array_Init; + Info.S := Ortho_Info_Subtype_Array_Init; Free_Type_Info (Info); end if; when Iir_Kind_Function_Declaration => |