From 25cee57f889ecf1d97c64cd278c6a1e60b7d77bd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 20 Oct 2019 08:08:51 +0200
Subject: synth: add more locations.

---
 src/synth/synth-expr.adb  | 1 +
 src/synth/synth-insts.adb | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 8c051fd00..e4e12f6e5 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -960,6 +960,7 @@ package body Synth.Expr is
          Voff := Dyn_Index_To_Offset (Bnd, Idx_Val, Name);
          Voff := Build_Memidx (Get_Build (Syn_Inst), Voff, W, Bnd.Len,
                                Width (Clog2 (Uns64 (W * Bnd.Len))));
+         Set_Location (Voff, Name);
          Off := 0;
       end if;
    end Synth_Indexed_Name;
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index 2f6842eb4..055d9b015 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -877,6 +877,7 @@ package body Synth.Insts is
 
       Set_Instance_Module (Syn_Inst, Inst.M);
       Self_Inst := Get_Self_Instance (Inst.M);
+      Set_Location (Self_Inst, Entity);
 
       --  Create wires for inputs and outputs.
       Inter := Get_Port_Chain (Entity);
-- 
cgit v1.2.3