diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-15 06:38:42 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-15 06:38:42 +0100 |
| commit | bf4e65cf230e7c07cab9cf81591b91f509121f76 (patch) | |
| tree | 765eeb100511a15f5e9b4352727bfba90835cc8f /src | |
| parent | b3cb6b9c638e9a45afec449a1cf1a5ea4c34756d (diff) | |
| download | ghdl-bf4e65cf230e7c07cab9cf81591b91f509121f76.tar.gz ghdl-bf4e65cf230e7c07cab9cf81591b91f509121f76.tar.bz2 ghdl-bf4e65cf230e7c07cab9cf81591b91f509121f76.zip | |
synth-insts: clear before applying block configuration. Fix #1095
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-insts.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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 |