diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-08-17 21:40:50 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-08-17 21:40:50 +0200 |
| commit | f475ff49f316c373eab6579bb058508927534db9 (patch) | |
| tree | aee6be5de4631de324a5e5b1d2a4016906ad505c | |
| parent | 7d034fc52f6b15e743ca91e7b1a4314bf31623b9 (diff) | |
| download | ghdl-f475ff49f316c373eab6579bb058508927534db9.tar.gz ghdl-f475ff49f316c373eab6579bb058508927534db9.tar.bz2 ghdl-f475ff49f316c373eab6579bb058508927534db9.zip | |
synth: fix tgingold/ghdlsynth#34 (association).
| -rw-r--r-- | src/synth/synth-insts.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 725ac2b22..a2268394e 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -299,8 +299,7 @@ package body Synth.Insts is when Port_In => Connect (Get_Input (Inst, Nbr_Inputs), - Get_Net (Synth_Expression_With_Type - (Syn_Inst, Actual, Get_Type (Assoc_Inter)))); + Get_Net (Synth_Expression (Syn_Inst, Actual))); Nbr_Inputs := Nbr_Inputs + 1; when Port_Out | Port_Inout => |