diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-28 06:12:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-28 06:12:11 +0100 |
| commit | fb6930072c61baa1dd5d64af2b5c37c7b53347bf (patch) | |
| tree | 5a58e7069753917770b144f71da8fa936a42da77 /src/vhdl/sem_names.adb | |
| parent | 7d95eb2ad556102dbb3514ef17299fcc3c3b57b4 (diff) | |
| download | ghdl-fb6930072c61baa1dd5d64af2b5c37c7b53347bf.tar.gz ghdl-fb6930072c61baa1dd5d64af2b5c37c7b53347bf.tar.bz2 ghdl-fb6930072c61baa1dd5d64af2b5c37c7b53347bf.zip | |
Avoid crash on non-allowed declarations in protected types.
Fix #470.
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 0190ee1a4..b96e357c7 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2017,7 +2017,9 @@ package body Sem_Names is | Iir_Kind_Use_Clause => null; when others => - Error_Kind ("sem_as_protected_item", Method); + -- Declarations not allowed in protected types. + -- Just ignore them. + null; end case; Method := Get_Chain (Method); end loop; |