From b863729ecec4169add1ba9e9e37bb9bd4737de26 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 12 Dec 2022 07:51:45 +0100 Subject: vhdl: minor refactoring --- src/vhdl/vhdl-sem_stmts.adb | 8 +++++--- 1 file changed, 5 insertions(+), 3 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 ad0a4bccc..74409ccab 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -1970,8 +1970,9 @@ package body Vhdl.Sem_Stmts is return; end if; - -- The association - Sem_Generic_Port_Association_Chain (Decl, Stmt); + -- The associations + Sem_Generic_Association_Chain (Decl, Stmt); + Sem_Port_Association_Chain (Decl, Stmt); -- FIXME: add sources for signals, in order to detect multiple sources -- to unresolved signals. @@ -2094,7 +2095,8 @@ package body Vhdl.Sem_Stmts is Set_Is_Within_Flag (Stmt, False); Close_Declarative_Region; - Sem_Generic_Port_Association_Chain (Header, Header); + Sem_Generic_Association_Chain (Header, Header); + Sem_Port_Association_Chain (Header, Header); -- ... and reopen-it. Open_Declarative_Region; -- cgit v1.2.3