diff options
Diffstat (limited to 'src/synth/synth-source.adb')
-rw-r--r-- | src/synth/synth-source.adb | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/synth/synth-source.adb b/src/synth/synth-source.adb index 4f6230723..e5d38e85c 100644 --- a/src/synth/synth-source.adb +++ b/src/synth/synth-source.adb @@ -47,4 +47,31 @@ package body Synth.Source is Set_Location2 (Inst, Src); end if; end Set_Location; + + procedure Set_Location_Maybe2 (Inst : Netlists.Instance; Src : Syn_Src) is + begin + if Get_Location (Inst) /= No_Location then + return; + end if; + Set_Location2 (Inst, Src); + end Set_Location_Maybe2; + + procedure Set_Location_Maybe (Inst : Netlists.Instance; Src : Syn_Src) is + begin + if Flag_Locations then + Set_Location_Maybe2 (Inst, Src); + end if; + end Set_Location_Maybe; + + procedure Set_Location_Maybe2 (N : Netlists.Net; Src : Syn_Src) is + begin + Set_Location_Maybe2 (Get_Net_Parent (N), Src); + end Set_Location_Maybe2; + + procedure Set_Location_Maybe (N : Netlists.Net; Src : Syn_Src) is + begin + if Flag_Locations then + Set_Location_Maybe2 (N, Src); + end if; + end Set_Location_Maybe; end Synth.Source; |