diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-20 18:37:13 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-20 18:37:13 +0200 |
| commit | 3d9fe666d21340a27ce3310efb0509e4305090f4 (patch) | |
| tree | d1f654cfaed1c4b35a586ed790010c7a8f4a3b4a /src/synth/synth-insts.adb | |
| parent | 466156df1f0ab01b434c39405fef5eb7ba62f927 (diff) | |
| download | ghdl-3d9fe666d21340a27ce3310efb0509e4305090f4.tar.gz ghdl-3d9fe666d21340a27ce3310efb0509e4305090f4.tar.bz2 ghdl-3d9fe666d21340a27ce3310efb0509e4305090f4.zip | |
synth: add Get_Build (WIP).
Diffstat (limited to 'src/synth/synth-insts.adb')
| -rw-r--r-- | src/synth/synth-insts.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 2eacb96e3..793717764 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -307,7 +307,7 @@ package body Synth.Insts is | Port_Inout => if Actual /= Null_Iir then Port := Get_Output (Inst, Nbr_Outputs); - Port := Builders.Build_Port (Build_Context, Port); + Port := Builders.Build_Port (Get_Build (Syn_Inst), Port); O := Create_Value_Net (Port, Get_Value_Type (Inst_Obj.Syn_Inst, Get_Type (Inter))); @@ -583,7 +583,7 @@ package body Synth.Insts is when Port_Out | Port_Inout => Port := Get_Output (Inst, Nbr_Outputs); - Port := Builders.Build_Port (Build_Context, Port); + Port := Builders.Build_Port (Get_Build (Syn_Inst), Port); O := Create_Value_Net (Port, Get_Value_Type (Syn_Inst, Get_Type (Inter))); Synth_Assignment (Syn_Inst, Actual, O, Assoc); @@ -775,7 +775,8 @@ package body Synth.Insts is end if; Self_Inst := Create_Self_Instance (Get_Instance_Module (Syn_Inst)); - Builders.Set_Parent (Build_Context, Get_Instance_Module (Syn_Inst)); + Builders.Set_Parent (Get_Build (Syn_Inst), + Get_Instance_Module (Syn_Inst)); -- Create wires for inputs and outputs. Inter := Get_Port_Chain (Entity); @@ -810,7 +811,7 @@ package body Synth.Insts is Synth_Verification_Units (Syn_Inst, Entity); Synth_Verification_Units (Syn_Inst, Arch); - Finalize_Assignments (Build_Context); + Finalize_Assignments (Get_Build (Syn_Inst)); -- Remove unused gates. This is not only an optimization but also -- a correctness point: there might be some unsynthesizable gates, like |