From 77f0a1479c06b6193ce9c4e2e2fc04a367847c38 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 6 Jun 2017 07:59:45 +0200 Subject: Correctly reject user attribute of attribute. Fix #367 --- src/vhdl/sem_names.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src') diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 13e96c4e7..7751e8f0b 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2830,6 +2830,10 @@ package body Sem_Names is Error_Msg_Sem (+Attr, "prefix of user defined attribute cannot be " & "an anonymous object"); return Error_Mark; + when Iir_Kind_Attribute_Declaration => + Error_Msg_Sem (+Attr, "prefix of user defined attribute cannot be " + & "an attribute"); + return Error_Mark; when Iir_Kinds_Object_Declaration | Iir_Kind_Type_Declaration | Iir_Kind_Subtype_Declaration -- cgit v1.2.3