diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-12-26 06:13:54 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-12-26 06:13:54 +0100 |
| commit | a24642ace5f43509c40b5a94927a1cff865f2ece (patch) | |
| tree | eeab50ece0e78ae70a43aa53bf20f2790a8a83e2 | |
| parent | d2a787b2b64396dc270ae0f7a03b446efd4f9c4a (diff) | |
| download | ghdl-a24642ace5f43509c40b5a94927a1cff865f2ece.tar.gz ghdl-a24642ace5f43509c40b5a94927a1cff865f2ece.tar.bz2 ghdl-a24642ace5f43509c40b5a94927a1cff865f2ece.zip | |
vhdl-prints: subtype indication is optional in object alias.
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index f71978ba8..d64ea2b96 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -1351,14 +1351,13 @@ package body Vhdl.Prints is (Ctxt : in out Ctxt_Class; Decl: Iir_Object_Alias_Declaration) is St_Ind : constant Iir := Get_Subtype_Indication (Decl); - Atype : constant Iir := Get_Type (Decl); begin Start_Hbox (Ctxt); Disp_Token (Ctxt, Tok_Alias); Disp_Function_Name (Ctxt, Decl); - if St_Ind /= Null_Iir or else Atype /= Null_Iir then + if St_Ind /= Null_Iir then Disp_Token (Ctxt, Tok_Colon); - Disp_Subtype_Indication (Ctxt, Or_Else (St_Ind, Atype)); + Disp_Subtype_Indication (Ctxt, St_Ind); end if; Disp_Token (Ctxt, Tok_Is); Print (Ctxt, Get_Name (Decl)); |