diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-27 08:53:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-31 13:54:49 +0100 |
| commit | b7a9e4b9b5ac2c195da6f3549dd06b5c6e999a0f (patch) | |
| tree | ab341f364e81544b1445d262708df16300198aa8 /src/synth/elab-vhdl_stmts.adb | |
| parent | d6343a0bf74d25973c5ed170b8e037b42bd08a7f (diff) | |
| download | ghdl-b7a9e4b9b5ac2c195da6f3549dd06b5c6e999a0f.tar.gz ghdl-b7a9e4b9b5ac2c195da6f3549dd06b5c6e999a0f.tar.bz2 ghdl-b7a9e4b9b5ac2c195da6f3549dd06b5c6e999a0f.zip | |
synth: add statement in context, adjust path/instance name attributes
Diffstat (limited to 'src/synth/elab-vhdl_stmts.adb')
| -rw-r--r-- | src/synth/elab-vhdl_stmts.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/elab-vhdl_stmts.adb b/src/synth/elab-vhdl_stmts.adb index def7e9218..7d6b6f01d 100644 --- a/src/synth/elab-vhdl_stmts.adb +++ b/src/synth/elab-vhdl_stmts.adb @@ -40,7 +40,7 @@ package body Elab.Vhdl_Stmts is Decls_Chain : constant Node := Get_Declaration_Chain (Bod); Bod_Inst : Synth_Instance_Acc; begin - Bod_Inst := Make_Elab_Instance (Syn_Inst, Bod, Config); + Bod_Inst := Make_Elab_Instance (Syn_Inst, Bod, Bod, Config); if Iterator /= Null_Node then -- Add the iterator (for for-generate). @@ -205,7 +205,7 @@ package body Elab.Vhdl_Stmts is Apply_Block_Configuration (Get_Block_Block_Configuration (Blk), Blk); - Blk_Inst := Make_Elab_Instance (Syn_Inst, Blk, Null_Iir); + Blk_Inst := Make_Elab_Instance (Syn_Inst, Blk, Blk, Null_Iir); Create_Sub_Instance (Syn_Inst, Blk, Blk_Inst); if Guard /= Null_Node then |