diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-20 08:17:28 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-20 12:19:49 +0200 |
commit | 5c1bfbbdd17fa628a1809520be3b1f276e18c02d (patch) | |
tree | 0b896bb3cef5f5beb4082f075a65cadd5194b43c /src/vhdl/translate | |
parent | cb72a1834f160d95d026b7e466886fd95fd82146 (diff) | |
download | ghdl-5c1bfbbdd17fa628a1809520be3b1f276e18c02d.tar.gz ghdl-5c1bfbbdd17fa628a1809520be3b1f276e18c02d.tar.bz2 ghdl-5c1bfbbdd17fa628a1809520be3b1f276e18c02d.zip |
vhdl: allow attribute specifications in protected types. For #1252
Diffstat (limited to 'src/vhdl/translate')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index ad6207658..5583ee7b9 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1749,8 +1749,10 @@ package body Trans.Chap3 is if Get_Info (El) /= null then Chap2.Translate_Subprogram_Declaration (El); end if; + when Iir_Kind_Attribute_Specification => + null; when others => - Error_Kind ("translate_protected_type_subprograms", El); + Error_Kind ("translate_protected_type_subprograms_spec", El); end case; El := Get_Chain (El); end loop; |