diff options
Diffstat (limited to 'src/synth/synth-vhdl_insts.adb')
| -rw-r--r-- | src/synth/synth-vhdl_insts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb index dbecfe0ab..46f2983a2 100644 --- a/src/synth/synth-vhdl_insts.adb +++ b/src/synth/synth-vhdl_insts.adb @@ -382,6 +382,7 @@ package body Synth.Vhdl_Insts is | Type_Vector | Type_Unbounded_Vector | Type_Array + | Type_Array_Unbounded | Type_Unbounded_Array => return 1; when Type_Record @@ -425,6 +426,7 @@ package body Synth.Vhdl_Insts is | Type_Vector | Type_Unbounded_Vector | Type_Array + | Type_Array_Unbounded | Type_Unbounded_Array => Idx := Idx + 1; Descs (Idx) := (Name => Port_Sname, @@ -904,6 +906,7 @@ package body Synth.Vhdl_Insts is | Type_Vector | Type_Unbounded_Vector | Type_Array + | Type_Array_Unbounded | Type_Unbounded_Array => if N /= No_Net then Connect (Get_Input (Inst, Port), N); @@ -942,6 +945,7 @@ package body Synth.Vhdl_Insts is | Type_Vector | Type_Unbounded_Vector | Type_Array + | Type_Array_Unbounded | Type_Unbounded_Array => N := Get_Output (Inst, Idx); Idx := Idx + 1; |