From b8ea7696f5e7fee31fb39c13e08a241514caecd4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 1 Mar 2020 11:47:31 +0100
Subject: vhdl: a function call is not an object.  Fix #1138.

Report a warning (or an error if not relaxed) when a non-object name
is used for an array attribute.
Also consider subtype attribute as a type name.
---
 src/errorout.ads | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/errorout.ads')

diff --git a/src/errorout.ads b/src/errorout.ads
index 0ec341514..763a8344b 100644
--- a/src/errorout.ads
+++ b/src/errorout.ads
@@ -108,6 +108,9 @@ package Errorout is
       --  Assertion during analysis.
       Warnid_Analyze_Assert,
 
+      --  Incorrect use of attributes (like non-object prefix).
+      Warnid_Attribute,
+
       --  Violation of staticness rules
       Warnid_Static,
 
@@ -298,7 +301,7 @@ private
    Default_Warnings : constant Warnings_Setting :=
      (Warnid_Library | Warnid_Binding | Warnid_Port | Warnid_Shared
         | Warnid_Runtime_Error | Warnid_Pure | Warnid_Specs | Warnid_Hide
-        | Warnid_Pragma | Warnid_Analyze_Assert
+        | Warnid_Pragma | Warnid_Analyze_Assert | Warnid_Attribute
         | Msgid_Warning  => (Enabled => True, Error => False),
       others             => (Enabled => False, Error => False));
 
-- 
cgit v1.2.3