diff options
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 |