From f475ff49f316c373eab6579bb058508927534db9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 17 Aug 2019 21:40:50 +0200 Subject: synth: fix tgingold/ghdlsynth#34 (association). --- src/synth/synth-insts.adb | 3 +-- 1 file changed, 1 insertion(+), 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 => -- cgit v1.2.3