diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-09-08 18:08:26 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-09-08 18:08:26 +0200 |
| commit | 604d6b287ec456f83826d7b2062876ad2298ebdc (patch) | |
| tree | 8b5fe27082b7c30ed5e4217e2e88e94eecfd6f2d | |
| parent | 5a09c3b571749808a8aee26f71aaa963f78cf094 (diff) | |
| download | ghdl-604d6b287ec456f83826d7b2062876ad2298ebdc.tar.gz ghdl-604d6b287ec456f83826d7b2062876ad2298ebdc.tar.bz2 ghdl-604d6b287ec456f83826d7b2062876ad2298ebdc.zip | |
vhdl: allow constants in vunit declarations. Fix #1856
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-annotations.adb | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index d827311e2..25e37be8f 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -3836,6 +3836,7 @@ package body Synth.Vhdl_Stmts is when Iir_Kind_Psl_Cover_Directive => Synth_Psl_Cover_Directive (Unit_Inst, Item); when Iir_Kind_Signal_Declaration + | Iir_Kind_Constant_Declaration | Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration | Iir_Kind_Function_Body @@ -3876,6 +3877,7 @@ package body Synth.Vhdl_Stmts is | Iir_Kind_Component_Instantiation_Statement => null; when Iir_Kind_Signal_Declaration + | Iir_Kind_Constant_Declaration | Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration | Iir_Kind_Function_Body diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb index f31b50be2..36a61238e 100644 --- a/src/vhdl/vhdl-annotations.adb +++ b/src/vhdl/vhdl-annotations.adb @@ -1146,6 +1146,7 @@ package body Vhdl.Annotations is | Iir_Kind_Psl_Restrict_Directive => null; when Iir_Kind_Signal_Declaration + | Iir_Kind_Constant_Declaration | Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration | Iir_Kind_Function_Body |