aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-canon.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-06-12 07:47:46 +0200
committerTristan Gingold <tgingold@free.fr>2020-06-12 07:47:46 +0200
commitdb9c1fd3700995155b2d8a32d929b3d0dc9689e2 (patch)
treedf1d9c6510ba70e6c755f6428c6b902c40fe7b1a /src/vhdl/vhdl-canon.adb
parent967047f328ba8e5a2172ab24200dc6481aa48927 (diff)
downloadghdl-db9c1fd3700995155b2d8a32d929b3d0dc9689e2.tar.gz
ghdl-db9c1fd3700995155b2d8a32d929b3d0dc9689e2.tar.bz2
ghdl-db9c1fd3700995155b2d8a32d929b3d0dc9689e2.zip
vhdl: analyze and synth concurrent statements in vunit. Fix #1366
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
-rw-r--r--src/vhdl/vhdl-canon.adb19
1 files changed, 12 insertions, 7 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb
index 90ef9cac6..319a329a6 100644
--- a/src/vhdl/vhdl-canon.adb
+++ b/src/vhdl/vhdl-canon.adb
@@ -3435,14 +3435,19 @@ package body Vhdl.Canon is
when Iir_Kind_Psl_Cover_Directive =>
Canon_Psl_Cover_Directive (Item);
when Iir_Kind_Signal_Declaration
- | Iir_Kind_Function_Declaration
- | Iir_Kind_Procedure_Declaration
- | Iir_Kind_Function_Body
- | Iir_Kind_Procedure_Body
- | Iir_Kind_Attribute_Declaration
- | Iir_Kind_Attribute_Specification =>
+ | Iir_Kind_Function_Declaration
+ | Iir_Kind_Procedure_Declaration
+ | Iir_Kind_Function_Body
+ | Iir_Kind_Procedure_Body
+ | Iir_Kind_Attribute_Declaration
+ | Iir_Kind_Attribute_Specification =>
Item := Canon_Declaration (Unit, Item, Null_Iir);
- when Iir_Kind_Concurrent_Simple_Signal_Assignment =>
+ when Iir_Kinds_Concurrent_Signal_Assignment
+ | Iir_Kinds_Process_Statement
+ | Iir_Kinds_Generate_Statement
+ | Iir_Kind_Block_Statement
+ | Iir_Kind_Concurrent_Procedure_Call_Statement
+ | Iir_Kind_Component_Instantiation_Statement =>
Canon_Concurrent_Label (Item, Proc_Num);
Canon_Concurrent_Statement (Item, Unit);
when others =>