From d69e4db4db55c0d5eb549a6554ae0ab6840fcde2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 23 Mar 2020 07:29:12 +0100
Subject: synth-stmts: apply configuration to block statements.  Fix #1170

---
 src/synth/synth-stmts.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

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);
-- 
cgit v1.2.3