From 86286af396045c10b2452276dc46013bc00f2cc3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 15 Jul 2019 18:40:15 +0200
Subject: synth: handle instantiation within generate statement.

---
 src/synth/synth-stmts.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 8f169a492..3e80ea63e 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1066,6 +1066,8 @@ package body Synth.Stmts is
       M : Areapools.Mark_Type;
    begin
       Bod_Inst := Make_Instance (Syn_Inst, Info);
+      --  Same module.
+      Bod_Inst.M := Syn_Inst.M;
       Mark (M, Proc_Pool);
       Instance_Pool := Proc_Pool'Access;
 
-- 
cgit v1.2.3