aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-07-24 20:41:18 +0200
committerTristan Gingold <tgingold@free.fr>2019-07-24 20:41:18 +0200
commit6c883b77fb62969bacd8d16abc43d30bcbda3b23 (patch)
tree3c521f89cca86cf3b6b7cb39e3e1b2c812f26276 /src
parenta458b0b9bde7d3152adf9b78c5d0a56c5d45915f (diff)
downloadghdl-6c883b77fb62969bacd8d16abc43d30bcbda3b23.tar.gz
ghdl-6c883b77fb62969bacd8d16abc43d30bcbda3b23.tar.bz2
ghdl-6c883b77fb62969bacd8d16abc43d30bcbda3b23.zip
vhdl annotations: fix annotation of type in interface list.
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/vhdl-annotations.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index f45827edb..af6c3dc64 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -487,6 +487,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
then
Annotate_Anonymous_Type_Definition (Block_Info, Get_Type (Decl));
end if;