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-dump.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-dump.adb')
| -rw-r--r-- | src/synth/netlists-dump.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 385d72f22..7b7c6615c 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -100,7 +100,7 @@ package body Netlists.Dump is procedure Dump_Net_Name (N : Net; With_Id : Boolean := False) is - Inst : constant Instance := Get_Parent (N); + Inst : constant Instance := Get_Net_Parent (N); Idx : constant Port_Idx := Get_Port_Idx (N); begin Dump_Name (Get_Instance_Name (Inst)); @@ -285,7 +285,7 @@ package body Netlists.Dump is Put ("?"); else declare - Inst : constant Instance := Get_Parent (N); + Inst : constant Instance := Get_Net_Parent (N); Idx : constant Port_Idx := Get_Port_Idx (N); begin if Is_Self_Instance (Inst) then @@ -335,7 +335,7 @@ package body Netlists.Dump is if Drv = No_Net then Put ('?'); else - Drv_Inst := Get_Parent (Drv); + Drv_Inst := Get_Net_Parent (Drv); if Flag_Disp_Inline and then Can_Inline (Drv_Inst) then Disp_Instance (Drv_Inst, False); else @@ -350,7 +350,7 @@ package body Netlists.Dump is if N = No_Net then Put ('?'); else - Disp_Instance (Get_Parent (N), False); + Disp_Instance (Get_Net_Parent (N), False); end if; New_Line; end Debug_Net; |