From aedbcc715e099335d28e1e06934e75263bd335e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 30 Jun 2020 18:41:32 +0200
Subject: vhdl-nodes: make Subtype_Indication Maybe_Ref.  For #641

---
 src/vhdl/vhdl-annotations.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/vhdl-annotations.adb')

diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index 20cfe9737..10905c879 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -478,7 +478,7 @@ package body Vhdl.Annotations is
       while Decl /= Null_Iir loop
          if With_Types
            and then Get_Kind (Decl) in Iir_Kinds_Interface_Object_Declaration
-           and then Get_Subtype_Indication (Decl) /= Null_Iir
+           and then not Get_Is_Ref (Decl)
          then
             Annotate_Anonymous_Type_Definition (Block_Info, Get_Type (Decl));
          end if;
-- 
cgit v1.2.3