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/netlists-disp_vhdl.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/netlists-disp_vhdl.adb')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index a2c751ad1..6bf6701a5 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -145,7 +145,7 @@ package body Netlists.Disp_Vhdl is end if; declare - Inst : constant Instance := Get_Parent (N); + Inst : constant Instance := Get_Net_Parent (N); Idx : constant Port_Idx := Get_Port_Idx (N); Inst_Name : Sname; Port_Name : Sname; @@ -429,7 +429,7 @@ package body Netlists.Disp_Vhdl is return; end if; - Net_Inst := Get_Parent (N); + Net_Inst := Get_Net_Parent (N); if Flag_Merge_Lit and then Is_Const_Module (Get_Id (Net_Inst)) and then not Need_Name (Inst) @@ -679,7 +679,8 @@ package body Netlists.Disp_Vhdl is Put (" process ("); First := True; for I in Iarr'Range loop - if Get_Id (Get_Parent (Iarr (I))) not in Constant_Module_Id + if (Get_Id (Get_Net_Parent (Iarr (I))) + not in Constant_Module_Id) then if First then First := False; @@ -955,7 +956,7 @@ package body Netlists.Disp_Vhdl is when Id_Idff => Put (" := "); Disp_Constant_Inline - (Get_Parent (Get_Input_Net (Inst, 2))); + (Get_Net_Parent (Get_Input_Net (Inst, 2))); when Constant_Module_Id => Put (" := "); Disp_Constant_Inline (Inst); |