diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-12-12 07:51:45 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-12-12 07:51:45 +0100 |
commit | b863729ecec4169add1ba9e9e37bb9bd4737de26 (patch) | |
tree | c6081e12c2d080bd502d92a10f73ed5d7b83e0ac /src/vhdl/vhdl-sem_stmts.adb | |
parent | 285b0484c261a3b46f44d750b11019d3e7604ae4 (diff) | |
download | ghdl-b863729ecec4169add1ba9e9e37bb9bd4737de26.tar.gz ghdl-b863729ecec4169add1ba9e9e37bb9bd4737de26.tar.bz2 ghdl-b863729ecec4169add1ba9e9e37bb9bd4737de26.zip |
vhdl: minor refactoring
Diffstat (limited to 'src/vhdl/vhdl-sem_stmts.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 8 |
1 files changed, 5 insertions, 3 deletions
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; |