diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-15 18:40:15 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-15 18:40:15 +0200 |
| commit | 86286af396045c10b2452276dc46013bc00f2cc3 (patch) | |
| tree | 707179013d8dbdec8986ec874d26145541fe055d | |
| parent | f6fde5424ad9585ef61149403cd695b465addd8b (diff) | |
| download | ghdl-86286af396045c10b2452276dc46013bc00f2cc3.tar.gz ghdl-86286af396045c10b2452276dc46013bc00f2cc3.tar.bz2 ghdl-86286af396045c10b2452276dc46013bc00f2cc3.zip | |
synth: handle instantiation within generate statement.
| -rw-r--r-- | src/synth/synth-stmts.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |