diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-25 06:40:28 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-25 11:43:30 +0200 |
| commit | 0213ad6ff1d00457ae26aea87d629d7e61fcb109 (patch) | |
| tree | cbd6e2ec01eb1aeb2bd5a3d3c9a95d2d9ec822ce /src | |
| parent | d9b490f155b7a18184ba8e851832faca042acb4a (diff) | |
| download | ghdl-0213ad6ff1d00457ae26aea87d629d7e61fcb109.tar.gz ghdl-0213ad6ff1d00457ae26aea87d629d7e61fcb109.tar.bz2 ghdl-0213ad6ff1d00457ae26aea87d629d7e61fcb109.zip | |
vhdl-sem_names: handle architecture bodies in sem_denoting_name
Fix #2198
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index 6962072df..0a6b58921 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -5041,7 +5041,8 @@ package body Vhdl.Sem_Names is | Iir_Kind_Library_Declaration | Iir_Kind_Foreign_Module | Iir_Kinds_Subprogram_Declaration - | Iir_Kind_Component_Declaration => + | Iir_Kind_Component_Declaration + | Iir_Kind_Architecture_Body => Res := Finish_Sem_Name (Name, Res); pragma Assert (Get_Kind (Res) in Iir_Kinds_Denoting_Name); return Res; |