diff options
| -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; |