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-locations.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-locations.adb')
-rw-r--r-- | src/synth/netlists-locations.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/netlists-locations.adb b/src/synth/netlists-locations.adb index ecc1d42fd..c651fc752 100644 --- a/src/synth/netlists-locations.adb +++ b/src/synth/netlists-locations.adb @@ -67,12 +67,13 @@ package body Netlists.Locations is procedure Copy_Location1 (Dest : Net; Src : Instance) is begin - Set_Location (Get_Parent (Dest), Get_Location (Src)); + Set_Location (Get_Net_Parent (Dest), Get_Location (Src)); end Copy_Location1; procedure Copy_Location1 (Dest : Net; Src : Net) is begin - Set_Location (Get_Parent (Dest), Get_Location (Get_Parent (Src))); + Set_Location (Get_Net_Parent (Dest), + Get_Location (Get_Net_Parent (Src))); end Copy_Location1; procedure Copy_Location (Dest : Net; Src : Net) is |