diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-23 07:29:12 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-23 07:29:12 +0100 |
| commit | d69e4db4db55c0d5eb549a6554ae0ab6840fcde2 (patch) | |
| tree | 771708e057b421eb9b4aa0ea75cca685ba44914e | |
| parent | f4e8faae688d96a9bf072b95d9e29dce84bd3271 (diff) | |
| download | ghdl-d69e4db4db55c0d5eb549a6554ae0ab6840fcde2.tar.gz ghdl-d69e4db4db55c0d5eb549a6554ae0ab6840fcde2.tar.bz2 ghdl-d69e4db4db55c0d5eb549a6554ae0ab6840fcde2.zip | |
synth-stmts: apply configuration to block statements. Fix #1170
| -rw-r--r-- | src/synth/synth-stmts.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index d43fdc10a..92010c413 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -2672,6 +2672,9 @@ package body Synth.Stmts is raise Internal_Error; end if; + Apply_Block_Configuration + (Get_Block_Block_Configuration (Blk), Blk); + Blk_Sname := New_Sname_User (Get_Identifier (Blk), Get_Sname (Syn_Inst)); Blk_Inst := Make_Instance (Syn_Inst, Blk, Blk_Sname); Mark (M, Proc_Pool); |