From 5c1bfbbdd17fa628a1809520be3b1f276e18c02d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 20 Apr 2020 08:17:28 +0200
Subject: vhdl: allow attribute specifications in protected types.  For #1252

---
 src/vhdl/translate/trans-chap3.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/vhdl/translate/trans-chap3.adb')

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;
-- 
cgit v1.2.3