diff options
author | tmeissner <programming@goodcleanfun.de> | 2021-10-25 11:56:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-11-02 19:31:25 +0100 |
commit | f911b6b97b379415eb5620d29d4579541bb5facd (patch) | |
tree | 18e0f1ef8277c844657086aa2b5bdf4cf56f2fff /src/synth/synth-vhdl_stmts.adb | |
parent | 86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b (diff) | |
download | ghdl-f911b6b97b379415eb5620d29d4579541bb5facd.tar.gz ghdl-f911b6b97b379415eb5620d29d4579541bb5facd.tar.bz2 ghdl-f911b6b97b379415eb5620d29d4579541bb5facd.zip |
synth: Support alias declarations in vunit
Diffstat (limited to 'src/synth/synth-vhdl_stmts.adb')
-rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 989942244..d26b24f73 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -117,6 +117,7 @@ package body Synth.Vhdl_Stmts is | Iir_Kind_Constant_Declaration | Iir_Kind_File_Declaration | Iir_Kind_Interface_File_Declaration + | Iir_Kind_Non_Object_Alias_Declaration | Iir_Kind_Object_Alias_Declaration => declare Targ : constant Valtyp := Get_Value (Syn_Inst, Pfx); @@ -3785,7 +3786,9 @@ package body Synth.Vhdl_Stmts is | Iir_Kind_Function_Body | Iir_Kind_Procedure_Body | Iir_Kind_Attribute_Declaration - | Iir_Kind_Attribute_Specification => + | Iir_Kind_Attribute_Specification + | Iir_Kind_Object_Alias_Declaration + | Iir_Kind_Non_Object_Alias_Declaration => Synth_Concurrent_Declaration (Syn_Inst, Item); when Iir_Kinds_Concurrent_Signal_Assignment | Iir_Kinds_Process_Statement @@ -3827,7 +3830,9 @@ package body Synth.Vhdl_Stmts is | Iir_Kind_Function_Body | Iir_Kind_Procedure_Body | Iir_Kind_Attribute_Declaration - | Iir_Kind_Attribute_Specification => + | Iir_Kind_Attribute_Specification + | Iir_Kind_Object_Alias_Declaration + | Iir_Kind_Non_Object_Alias_Declaration => Finalize_Declaration (Syn_Inst, Item, False); when others => Error_Kind ("synth_verification_unit(2)", Item); |