From a5e4aabe3bb21577770280e79694ef5ef90a7876 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 15 Oct 2017 07:34:43 +0200 Subject: Relaxed rules: only warns on attribute specifications that don't apply. --- src/vhdl/sem_specs.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb index 1a9f3f52d..bd8cfcc2f 100644 --- a/src/vhdl/sem_specs.adb +++ b/src/vhdl/sem_specs.adb @@ -797,8 +797,9 @@ package body Sem_Specs is -- It is an error if the class of those names is not the -- same as that denoted by entity class. if not Sem_Named_Entities (Scope, El, Spec, True, True) then - Error_Msg_Sem - (+El, "no named entities %i in declarative part", +El); + Error_Msg_Sem_Relaxed + (El, Warnid_Specs, + "no %i for attribute specification", (1 => +El)); end if; end if; end loop; -- cgit v1.2.3