diff options
author | Tristan Gingold <tgingold@free.fr> | 2013-12-29 14:42:30 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2013-12-29 14:42:30 +0100 |
commit | c3aaf322e299e5c4f9611446c5184eb9d4f6938c (patch) | |
tree | d16181c6331f67ad26790de833508d26f0afc7b5 /sem_decls.adb | |
parent | 2c70ace5754bc18a151e7b4d4bde7018dd64c2af (diff) | |
download | ghdl-c3aaf322e299e5c4f9611446c5184eb9d4f6938c.tar.gz ghdl-c3aaf322e299e5c4f9611446c5184eb9d4f6938c.tar.bz2 ghdl-c3aaf322e299e5c4f9611446c5184eb9d4f6938c.zip |
Fix two crashes (bug18810 and bug15933).
Diffstat (limited to 'sem_decls.adb')
-rw-r--r-- | sem_decls.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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 |