diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-18 18:43:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-18 18:43:01 +0100 |
| commit | cdf30c5a375bf3dd9bb8882407370f75a2c26aab (patch) | |
| tree | f7c609ec78108ed2c92ba8facd77d15d47d233ec /src/synth/synth-insts.adb | |
| parent | 939221749e7f1228ed959d1007a3fd3e3b4b9146 (diff) | |
| download | ghdl-cdf30c5a375bf3dd9bb8882407370f75a2c26aab.tar.gz ghdl-cdf30c5a375bf3dd9bb8882407370f75a2c26aab.tar.bz2 ghdl-cdf30c5a375bf3dd9bb8882407370f75a2c26aab.zip | |
synth-expr: handle anonymous signal declarations.
Diffstat (limited to 'src/synth/synth-insts.adb')
| -rw-r--r-- | src/synth/synth-insts.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 3e2fd6b3d..953caf5ab 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -564,6 +564,7 @@ package body Synth.Insts is Actual : Node; Formal_Typ : Type_Acc; Act_Inst : Synth_Instance_Acc; + Act : Value_Acc; begin case Iir_Kinds_Association_Element_Parameters (Get_Kind (Assoc)) is when Iir_Kind_Association_Element_Open => @@ -587,9 +588,8 @@ package body Synth.Insts is Formal_Typ := Get_Value_Type (Inter_Inst, Get_Type (Inter)); - Connect (Inp, - Get_Net (Synth_Expression_With_Type - (Act_Inst, Actual, Formal_Typ))); + Act := Synth_Expression_With_Type (Act_Inst, Actual, Formal_Typ); + Connect (Inp, Get_Net (Act)); end Synth_Input_Assoc; procedure Synth_Individual_Output_Assoc (Outp : Net; @@ -1041,7 +1041,7 @@ package body Synth.Insts is raise Internal_Error; end if; - -- Elaborate generic + map aspect + -- Elaborate generic + map aspect for the entity instance. Sub_Inst := Make_Instance (Comp_Inst, Ent, New_Sname_User (Get_Identifier (Ent), No_Sname)); Synth_Generics_Association (Sub_Inst, Comp_Inst, |