diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-03 06:37:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-03 06:39:47 +0200 |
| commit | 722ea848fd2b382d9d14dcaf49e4bd95182b56f9 (patch) | |
| tree | c3e0ac57196d6dbc82b2a6be444acba538fd613b /src/vhdl/translate/trans-chap5.adb | |
| parent | 9224975c3893f69c8e5a5758d0762909a90f25a6 (diff) | |
| download | ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.tar.gz ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.tar.bz2 ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.zip | |
vhdl/translate: check_composite_match: rename and handle records.
Fix #807
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, |