From 89a4f10e21459614c0b52829d8bc3156c7280f8c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Mar 2023 04:35:13 +0100
Subject: vhdl-sem_scopes: avoid duplicate hidden warning
---
src/vhdl/vhdl-sem_scopes.adb | 5 +++++
1 file changed, 5 insertions(+)
(limited to 'src')
diff --git a/src/vhdl/vhdl-sem_scopes.adb b/src/vhdl/vhdl-sem_scopes.adb
index 4a4f65f64..1a5b1b5b2 100644
--- a/src/vhdl/vhdl-sem_scopes.adb
+++ b/src/vhdl/vhdl-sem_scopes.adb
@@ -1333,8 +1333,11 @@ package body Vhdl.Sem_Scopes is
procedure Add_Package_Declarations
(Decl: Iir_Package_Declaration; Potentially : Boolean)
is
+ Prev_Hide : constant Boolean := Is_Warning_Enabled (Warnid_Hide);
Header : constant Iir := Get_Package_Header (Decl);
begin
+ Enable_Warning (Warnid_Hide, False);
+
-- LRM08 12.1 Declarative region
-- d) A package declaration together with the corresponding body
--
@@ -1347,6 +1350,8 @@ package body Vhdl.Sem_Scopes is
end if;
Add_Declarations (Get_Declaration_Chain (Decl), Potentially);
+
+ Enable_Warning (Warnid_Hide, Prev_Hide);
end Add_Package_Declarations;
procedure Add_Package_Instantiation_Declarations
--
cgit v1.2.3