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-insts.adb | 1 +
 1 file changed, 1 insertion(+)

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

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