diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-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; |