diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-24 20:41:18 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-24 20:41:18 +0200 |
| commit | 6c883b77fb62969bacd8d16abc43d30bcbda3b23 (patch) | |
| tree | 3c521f89cca86cf3b6b7cb39e3e1b2c812f26276 /src | |
| parent | a458b0b9bde7d3152adf9b78c5d0a56c5d45915f (diff) | |
| download | ghdl-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.adb | 1 |
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; |