From a24642ace5f43509c40b5a94927a1cff865f2ece Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 26 Dec 2019 06:13:54 +0100
Subject: vhdl-prints: subtype indication is optional in object alias.

---
 src/vhdl/vhdl-prints.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

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));
-- 
cgit v1.2.3