diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-01-15 17:02:34 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-01-15 17:02:34 +0100 |
commit | 126333c7699f7e7e164118e4557472edf19cf61c (patch) | |
tree | 64ea2621d0b85540a13945234f44e68a8c2b6d12 /src/vhdl/vhdl-annotations.adb | |
parent | ebd058ec722554f1809de7cdc6e4d1ed951acbe1 (diff) | |
download | ghdl-126333c7699f7e7e164118e4557472edf19cf61c.tar.gz ghdl-126333c7699f7e7e164118e4557472edf19cf61c.tar.bz2 ghdl-126333c7699f7e7e164118e4557472edf19cf61c.zip |
synth: do not annotate generic types in package. Fix #1949
Diffstat (limited to 'src/vhdl/vhdl-annotations.adb')
-rw-r--r-- | src/vhdl/vhdl-annotations.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb index 71d43dfe1..630f3ef84 100644 --- a/src/vhdl/vhdl-annotations.adb +++ b/src/vhdl/vhdl-annotations.adb @@ -511,7 +511,10 @@ package body Vhdl.Annotations is when Iir_Kind_Interface_Package_Declaration => Annotate_Interface_Package_Declaration (Block_Info, Decl); when Iir_Kind_Interface_Type_Declaration => - if Flag_Synthesis then + if Flag_Synthesis + and then (Get_Kind (Get_Parent (Decl)) + = Iir_Kind_Entity_Declaration) + then -- Create an info on the interface_type_definition. -- This is needed for a generic type in an entity, as the -- nodes are not instantiated. |