From c3aaf322e299e5c4f9611446c5184eb9d4f6938c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 29 Dec 2013 14:42:30 +0100
Subject: Fix two crashes (bug18810 and bug15933).

---
 sem_decls.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'sem_decls.adb')

diff --git a/sem_decls.adb b/sem_decls.adb
index 1209960e4..3636491f9 100644
--- a/sem_decls.adb
+++ b/sem_decls.adb
@@ -1369,7 +1369,8 @@ package body Sem_Decls is
                  | Iir_Kind_Architecture_Declaration
                  | Iir_Kind_Package_Declaration
                  | Iir_Kind_Package_Body
-                 | Iir_Kind_Block_Statement =>
+                 | Iir_Kind_Block_Statement
+                 | Iir_Kind_Generate_Statement =>
                   if not Get_Shared_Flag (Decl) then
                      Error_Msg_Sem
                        ("non shared variable declaration not allowed here",
@@ -1393,7 +1394,7 @@ package body Sem_Decls is
                   --  in sem_protected_type_declaration.
                   null;
                when others =>
-                  Error_Kind ("parse_declarative_part(2)", Parent);
+                  Error_Kind ("sem_object_declaration(2)", Parent);
             end case;
 
             if Flags.Vhdl_Std >= Vhdl_00 then
-- 
cgit v1.2.3