From 0b3a977fbfcff450637953735b3cb4c4abad5f66 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Jan 2015 22:04:04 +0100
Subject: canon: fix after previous change (do not generate default config for
 for-gen)

---
 src/vhdl/canon.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

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