From 9f9f0594c08c3555040fff73a16d3b837420d3c3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 5 Dec 2019 22:27:18 +0100
Subject: synth: add set_location_maybe (for roms).

---
 src/synth/synth-source.adb | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'src/synth/synth-source.adb')

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;
-- 
cgit v1.2.3