From 7059373425a274869b5be2b9042578f410b12fe4 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 15 Jul 2019 04:07:05 +0200 Subject: synth: apply block configuration to for-generate statements. --- src/synth/synth-insts.adb | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 74c4247c3..cdee1d7e7 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -732,8 +732,21 @@ package body Synth.Insts is end loop; end; when Iir_Kind_Block_Configuration => - -- TODO - raise Internal_Error; + declare + Sub_Blk : constant Node := Get_Block_From_Block_Specification + (Get_Block_Specification (Item)); + begin + case Get_Kind (Sub_Blk) is + when Iir_Kind_Generate_Statement_Body => + -- Linked chain. + Set_Prev_Block_Configuration + (Item, Get_Generate_Block_Configuration (Sub_Blk)); + Set_Generate_Block_Configuration (Sub_Blk, Item); + when others => + Vhdl.Errors.Error_Kind + ("apply_block_configuration(blk)", Sub_Blk); + end case; + end; when others => Vhdl.Errors.Error_Kind ("apply_block_configuration", Item); end case; -- cgit v1.2.3