diff options
Diffstat (limited to 'src/synth/elab-vhdl_objtypes.adb')
-rw-r--r-- | src/synth/elab-vhdl_objtypes.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb index b8c154ed2..c00f73478 100644 --- a/src/synth/elab-vhdl_objtypes.adb +++ b/src/synth/elab-vhdl_objtypes.adb @@ -526,8 +526,9 @@ package body Elab.Vhdl_Objtypes is function Get_Array_Bound (Typ : Type_Acc) return Bound_Type is begin - case Typ.Kind is + case Type_Vectors_Arrays (Typ.Kind) is when Type_Vector + | Type_Array_Unbounded | Type_Array => return Typ.Abound; when others => @@ -723,10 +724,11 @@ package body Elab.Vhdl_Objtypes is function Get_Array_Flat_Length (Typ : Type_Acc) return Iir_Index32 is begin - case Typ.Kind is + case Type_Vectors_Arrays (Typ.Kind) is when Type_Vector => return Iir_Index32 (Typ.Abound.Len); - when Type_Array => + when Type_Array + | Type_Array_Unbounded => declare Len : Uns32; T : Type_Acc; |