diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:08:09 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:08:09 +0200 |
commit | 3d35074b10658634d0e1a280575fa6af0b08730f (patch) | |
tree | 6e8ec3eac749da9855c98740b02746f0fd87f7e0 /src/synth/synth-environment.adb | |
parent | d44e7227610913a14029ce050aceee887da914dd (diff) | |
download | ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.tar.gz ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.tar.bz2 ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.zip |
netlists: remove renaming of Get_Parent for Net.
Diffstat (limited to 'src/synth/synth-environment.adb')
-rw-r--r-- | src/synth/synth-environment.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index 20b3441cd..2785d9b08 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -292,7 +292,7 @@ package body Synth.Environment is | Wire_Variable => -- Check output is not already assigned. pragma Assert - (Get_Input_Net (Get_Parent (Outport), 0) = No_Net); + (Get_Input_Net (Get_Net_Parent (Outport), 0) = No_Net); when others => raise Internal_Error; @@ -468,7 +468,7 @@ package body Synth.Environment is else Value := Build_Concatn (Ctxt, Last_Off, Uns32 (Nbr_Assign)); declare - Inst : constant Instance := Get_Parent (Value); + Inst : constant Instance := Get_Net_Parent (Value); begin Asgn := First_Assign; for I in reverse 0 .. Nbr_Assign - 1 loop @@ -483,7 +483,7 @@ package body Synth.Environment is (Ctxt : Builders.Context_Acc; Wire_Rec : Wire_Id_Record) is use Vhdl.Nodes; - Gate_Inst : constant Instance := Get_Parent (Wire_Rec.Gate); + Gate_Inst : constant Instance := Get_Net_Parent (Wire_Rec.Gate); Inp : constant Input := Get_Input (Gate_Inst, 0); Value : Net; begin |