synth: add set_location_maybe (for roms).

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;