From bf4e65cf230e7c07cab9cf81591b91f509121f76 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 15 Jan 2020 06:38:42 +0100
Subject: synth-insts: clear before applying block configuration.  Fix #1095

---
 src/synth/synth-insts.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index c5ed77f4d..9e15e04cc 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -1282,6 +1282,8 @@ package body Synth.Insts is
       pragma Assert (Get_Block_From_Block_Specification
                        (Get_Block_Specification (Cfg)) = Blk);
 
+      Clear_Instantiation_Configuration (Blk);
+
       Item := Get_Configuration_Item_Chain (Cfg);
       while Item /= Null_Node loop
          case Get_Kind (Item) is
-- 
cgit v1.2.3