From de633f9ea2524d7a1e1339ea27bf09be6abdddec Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 9 Oct 2019 20:24:42 +0200
Subject: synth: set location on instances.

---
 src/synth/synth-insts.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index f29ecea07..c0d40a2ea 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -404,6 +404,7 @@ package body Synth.Insts is
       Inst := New_Instance (Get_Instance_Module (Syn_Inst),
                             Inst_Obj.M,
                             New_Sname_User (Get_Identifier (Stmt)));
+      Set_Location (Inst, Stmt);
 
       Synth_Instantiate_Module
         (Syn_Inst, Inst, Inst_Obj, Get_Port_Map_Aspect_Chain (Stmt));
-- 
cgit v1.2.3