diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-03 11:59:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-03 11:59:43 +0100 |
| commit | 3fea917ef9a145d448ab2dd5d83d7ac7de280602 (patch) | |
| tree | a83cb707f28c353b6bedde63b500dc1562d8adf3 /src/vhdl/sem_decls.adb | |
| parent | 4e27c73749284b46b899851f3b1ef00fe5187b47 (diff) | |
| download | ghdl-3fea917ef9a145d448ab2dd5d83d7ac7de280602.tar.gz ghdl-3fea917ef9a145d448ab2dd5d83d7ac7de280602.tar.bz2 ghdl-3fea917ef9a145d448ab2dd5d83d7ac7de280602.zip | |
Initial rework for vhdl 2008 generate statements.
Diffstat (limited to 'src/vhdl/sem_decls.adb')
| -rw-r--r-- | src/vhdl/sem_decls.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb index 64fd897e6..da7b1b2be 100644 --- a/src/vhdl/sem_decls.adb +++ b/src/vhdl/sem_decls.adb @@ -1702,7 +1702,7 @@ package body Sem_Decls is | Iir_Kind_Package_Declaration | Iir_Kind_Package_Body | Iir_Kind_Block_Statement - | Iir_Kind_Generate_Statement => + | Iir_Kind_Generate_Statement_Body => if not Get_Shared_Flag (Decl) then Error_Msg_Sem ("non shared variable declaration not allowed here", @@ -2890,11 +2890,13 @@ package body Sem_Decls is -- May be used in architecture. null; when Iir_Kind_Architecture_Body - | Iir_Kind_Block_Statement - | Iir_Kind_Generate_Statement => + | Iir_Kind_Block_Statement => -- Might be used in a configuration. -- FIXME: create a second level of warning. null; + when Iir_Kind_Generate_Statement_Body => + -- Might be used in a configuration. + null; when Iir_Kind_Package_Body | Iir_Kind_Protected_Type_Body => -- Check only for declarations of the body. |