From 3d35074b10658634d0e1a280575fa6af0b08730f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 6 Oct 2019 13:08:09 +0200 Subject: netlists: remove renaming of Get_Parent for Net. --- src/synth/netlists-locations.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/synth/netlists-locations.adb') 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 -- cgit v1.2.3