diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index cd02cf600..0b700189f 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -456,11 +456,12 @@ package body Trans.Chap5 is if Get_Kind (Formal_Type) in Iir_Kinds_Array_Type_Definition then -- Check length matches. + -- FIXME: records ? Stabilize (Formal_Sig); Stabilize (Actual_Sig); - Chap3.Check_Array_Match (Formal_Type, Formal_Sig, - Actual_Type, Actual_Sig, - Assoc); + Chap3.Check_Composite_Match (Formal_Type, Formal_Sig, + Actual_Type, Actual_Sig, + Assoc); end if; Data := (Actual_Sig => Actual_Sig, |