diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-16 22:04:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-16 22:04:04 +0100 |
| commit | 0b3a977fbfcff450637953735b3cb4c4abad5f66 (patch) | |
| tree | 593708a89b3625e035e1b200eb35e1a4065c3449 /src/vhdl | |
| parent | 7feacb916efb1059b45e6297337fbf5beb67e0c2 (diff) | |
| download | ghdl-0b3a977fbfcff450637953735b3cb4c4abad5f66.tar.gz ghdl-0b3a977fbfcff450637953735b3cb4c4abad5f66.tar.bz2 ghdl-0b3a977fbfcff450637953735b3cb4c4abad5f66.zip | |
canon: fix after previous change (do not generate default config for for-gen)
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/canon.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index c4fd69969..18aa05956 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -2579,7 +2579,7 @@ package body Canon is else Blk_Spec := Strip_Denoting_Name (Get_Block_Specification (Blk_Config)); - if Get_Kind (Blk_Spec) /= Iir_Kind_For_Generate_Statement + if Get_Kind (Blk_Spec) /= Iir_Kind_Generate_Statement_Body then -- There are generate specification with range or -- expression. Create a default block configuration |