From 2c7024f1845bab48157b49eccb3660c2af156f5b Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 8 Aug 2019 04:40:56 +0200 Subject: vhdl: remove -Whides warnings for processes without a label. --- src/vhdl/vhdl-sem_scopes.adb | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src') diff --git a/src/vhdl/vhdl-sem_scopes.adb b/src/vhdl/vhdl-sem_scopes.adb index 85e46000c..ac97bbeb0 100644 --- a/src/vhdl/vhdl-sem_scopes.adb +++ b/src/vhdl/vhdl-sem_scopes.adb @@ -427,6 +427,15 @@ package body Vhdl.Sem_Scopes is return; end if; + if Name_Table.Get_Name_Ptr (Get_Identifier (Decl))(1) = 'P' then + -- Do not warn for labels starting with 'P'. These are canonicalized + -- process labels which are scoped. + -- This can happen as an architecture is canonicalized during + -- analysis and then its declarations are 'imported' by a + -- configuration. + return; + end if; + Warning_Msg_Sem (Warnid_Hide, +Decl, "declaration of %i hides %n", (+Decl, +Prev_Decl)); end Warning_Hide; -- cgit v1.2.3