diff options
Diffstat (limited to 'src/synth/netlists-locations.adb')
| -rw-r--r-- | src/synth/netlists-locations.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/synth/netlists-locations.adb b/src/synth/netlists-locations.adb index c651fc752..4db65c85a 100644 --- a/src/synth/netlists-locations.adb +++ b/src/synth/netlists-locations.adb @@ -40,6 +40,11 @@ package body Netlists.Locations is Loc_Table.Table (Inst) := Loc; end Set_Location1; + procedure Set_Location2 (N : Net; Loc : Location_Type) is + begin + Set_Location (Get_Net_Parent (N), Loc); + end Set_Location2; + procedure Set_Location (Inst : Instance; Loc : Location_Type) is begin if Flag_Locations then @@ -47,6 +52,13 @@ package body Netlists.Locations is end if; end Set_Location; + procedure Set_Location (Dest : Net; Loc : Location_Type) is + begin + if Flag_Locations then + Set_Location2 (Dest, Loc); + end if; + end Set_Location; + function Get_Location1 (Inst : Instance) return Location_Type is begin if Inst > Loc_Table.Last then |