diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-08-23 21:39:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-08-24 06:26:33 +0200 |
| commit | 8dce98079531f7b222340fb53373cd43c9939ff1 (patch) | |
| tree | fbc268689a822a978c874830528a5801ae9a8110 /src/vhdl/vhdl-prints.adb | |
| parent | 839ac8635cca825618163cadcb9a7734e43172b9 (diff) | |
| download | ghdl-8dce98079531f7b222340fb53373cd43c9939ff1.tar.gz ghdl-8dce98079531f7b222340fb53373cd43c9939ff1.tar.bz2 ghdl-8dce98079531f7b222340fb53373cd43c9939ff1.zip | |
vhdl: remove iir_kind_anonymous_signal_declaration (now unused)
Diffstat (limited to 'src/vhdl/vhdl-prints.adb')
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index c0abf532e..361cbe18b 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -234,7 +234,6 @@ package body Vhdl.Prints is | Iir_Kind_Constant_Declaration | Iir_Kind_Signal_Declaration | Iir_Kind_Guard_Signal_Declaration - | Iir_Kind_Anonymous_Signal_Declaration | Iir_Kind_Variable_Declaration | Iir_Kind_File_Declaration | Iir_Kind_Type_Declaration @@ -2485,15 +2484,6 @@ package body Vhdl.Prints is Disp_Attribute_Specification (Ctxt, Decl); when Iir_Kind_Signal_Attribute_Declaration => null; - when Iir_Kind_Anonymous_Signal_Declaration => - if False then - -- Disabled as it is not part of the sources. - Start_Hbox (Ctxt); - Disp_Token (Ctxt, Tok_Signal); - Disp_Ident (Ctxt, Get_Identifier (Decl)); - Disp_Token (Ctxt, Tok_Semi_Colon); - Close_Hbox (Ctxt); - end if; when Iir_Kind_Group_Template_Declaration => Disp_Group_Template_Declaration (Ctxt, Decl); when Iir_Kind_Group_Declaration => @@ -4743,21 +4733,6 @@ package body Vhdl.Prints is when Iir_Kind_Implicit_Dereference => Print (Ctxt, Get_Prefix (Expr)); - when Iir_Kind_Anonymous_Signal_Declaration => - declare - Act : constant Iir := Get_Expression (Expr); - begin - if Act /= Null_Iir then - -- There is still an expression, so the anonymous signal - -- was not yet declared. - Print (Ctxt, Act); - else - -- Cannot use Disp_Identifier as the identifier is not in - -- the sources. - Disp_Ident (Ctxt, Get_Identifier (Expr)); - end if; - end; - when Iir_Kind_Left_Type_Attribute => Disp_Name_Attribute (Ctxt, Expr, Name_Left); when Iir_Kind_Right_Type_Attribute => |