From a3326f7439515f192ec798ad8f1ceb2b29565345 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 12 Sep 2021 09:59:03 +0200 Subject: vhdl-canon: recurse for default block configuration of a vunit. --- src/synth/synth-vhdl_stmts.adb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src/synth') diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 4e7c6963f..687be6510 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -3570,9 +3570,7 @@ package body Synth.Vhdl_Stmts is if Cond = No_Valtyp or else Read_Discrete (Cond) = 1 then Bod := Get_Generate_Statement_Body (Gen); Config := Get_Generate_Block_Configuration (Bod); - if Config /= Null_Node then - Apply_Block_Configuration (Config, Bod); - end if; + Apply_Block_Configuration (Config, Bod); Synth_Generate_Statement_Body (Syn_Inst, Bod, Name); exit; end if; @@ -3620,10 +3618,7 @@ package body Synth.Vhdl_Stmts is end case; Config := Get_Prev_Block_Configuration (Config); end loop; - -- There is no block configuration in vunits (yet). - if Config /= Null_Node then - Apply_Block_Configuration (Config, Bod); - end if; + Apply_Block_Configuration (Config, Bod); end; -- FIXME: get position ? -- cgit v1.2.3