aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-10-12 07:08:09 +0200
committerTristan Gingold <tgingold@free.fr>2019-10-13 18:54:23 +0200
commita8560bb08e6c065871e6e5f5f7825cd1a2db62e4 (patch)
tree9dd5f972107bc4ce8d81a03b21f524a2738c894f
parentb513a6170db4fe14eb6e885e859445d763633266 (diff)
downloadghdl-a8560bb08e6c065871e6e5f5f7825cd1a2db62e4.tar.gz
ghdl-a8560bb08e6c065871e6e5f5f7825cd1a2db62e4.tar.bz2
ghdl-a8560bb08e6c065871e6e5f5f7825cd1a2db62e4.zip
vhdl-annotations: handle list of record elements declaration.
-rw-r--r--src/vhdl/vhdl-annotations.adb6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index b61547018..fb24402c8 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -416,8 +416,10 @@ package body Vhdl.Annotations is
begin
for I in Flist_First .. Flist_Last (List) loop
El := Get_Nth_Element (List, I);
- Annotate_Anonymous_Type_Definition
- (Block_Info, Get_Type (El));
+ if Get_Subtype_Indication (El) /= Null_Iir then
+ Annotate_Anonymous_Type_Definition
+ (Block_Info, Get_Type (El));
+ end if;
end loop;
end;
if Flag_Synthesis then