From 844089aa1ab3fa52a0dc363bdd9cd48e3082655a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 30 Nov 2022 21:26:43 +0100 Subject: vhdl: fix use clause of a package with interface subprograms. Fix #2250 --- src/vhdl/vhdl-sem_stmts.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/vhdl/vhdl-sem_stmts.adb') diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index c06c3e097..ad0a4bccc 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -2099,8 +2099,8 @@ package body Vhdl.Sem_Stmts is -- ... and reopen-it. Open_Declarative_Region; Set_Is_Within_Flag (Stmt, True); - Add_Declarations_From_Interface_Chain (Generic_Chain); - Add_Declarations_From_Interface_Chain (Port_Chain); + Add_Declarations_From_Interface_Chain (Generic_Chain, False); + Add_Declarations_From_Interface_Chain (Port_Chain, False); end if; -- LRM93 9.1 -- cgit v1.2.3