diff options
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/elab-vhdl_decls.adb | 7 | ||||
| -rw-r--r-- | src/synth/synth-vhdl_decls.adb | 5 |
2 files changed, 12 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_decls.adb b/src/synth/elab-vhdl_decls.adb index eeffc90fd..c1bac611a 100644 --- a/src/synth/elab-vhdl_decls.adb +++ b/src/synth/elab-vhdl_decls.adb @@ -351,6 +351,13 @@ package body Elab.Vhdl_Decls is when Iir_Kinds_Signal_Attribute => -- Not supported by synthesis. null; + when Iir_Kind_Disconnection_Specification => + null; + + when Iir_Kind_Group_Template_Declaration + | Iir_Kind_Group_Declaration => + null; + when others => Vhdl.Errors.Error_Kind ("elab_declaration", Decl); end case; diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb index 7bccf96cf..091af79dd 100644 --- a/src/synth/synth-vhdl_decls.adb +++ b/src/synth/synth-vhdl_decls.adb @@ -707,6 +707,10 @@ package body Synth.Vhdl_Decls is when Iir_Kind_Attribute_Implicit_Declaration => -- Not supported by synthesis. null; + when Iir_Kind_Group_Template_Declaration + | Iir_Kind_Group_Declaration => + null; + when Iir_Kind_Suspend_State_Declaration => declare Val : Valtyp; @@ -718,6 +722,7 @@ package body Synth.Vhdl_Decls is Current_Pool := Expr_Pool'Access; Create_Object (Syn_Inst, Decl, Val); end; + when others => Vhdl.Errors.Error_Kind ("synth_declaration", Decl); end case; |