From 2f908c242e41693b466d6dbd45a60c063523f661 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 10 Apr 2021 21:07:28 +0200
Subject: vhdl-sem_names.adb: fix check for object prefix of subtype attribute.
  Fix #1717

---
 src/vhdl/vhdl-sem_names.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index 4548c8175..cb03d4690 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -3708,9 +3708,7 @@ package body Vhdl.Sem_Names is
       --  LRM08 16.2 Predefined attributes
       --  Prefix: Any prefix O that is appropriate for an object, or an alias
       --  thereof
-      if (Get_Kind (Get_Base_Name (Prefix_Name))
-          not in Iir_Kinds_Object_Declaration)
-      then
+      if not Is_Object_Name (Prefix_Name) then
          Error_Msg_Sem (+Attr, "prefix must denote an object");
          return Error_Mark;
       end if;
-- 
cgit v1.2.3