diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-30 18:41:32 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-30 19:34:50 +0200 |
commit | aedbcc715e099335d28e1e06934e75263bd335e9 (patch) | |
tree | e360d3edab22d7fe2ab0ed8fe2bdef06bfe1e979 /src/vhdl/vhdl-annotations.adb | |
parent | e2d751d624eb1319e654d9504b36d43eff65c8fb (diff) | |
download | ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.gz ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.bz2 ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.zip |
vhdl-nodes: make Subtype_Indication Maybe_Ref. For #641
Diffstat (limited to 'src/vhdl/vhdl-annotations.adb')
-rw-r--r-- | src/vhdl/vhdl-annotations.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |