diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-12-13 19:01:32 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-12-13 19:05:16 +0100 |
| commit | 98358ffe7135e62a38168234619347d4aa159cd8 (patch) | |
| tree | 4fa82d05135a89a0cf146250bc5e8b5bed2b87d7 | |
| parent | f7b6325cb2b4ba5f722b5dceb3b36737a94fba47 (diff) | |
| download | ghdl-98358ffe7135e62a38168234619347d4aa159cd8.tar.gz ghdl-98358ffe7135e62a38168234619347d4aa159cd8.tar.bz2 ghdl-98358ffe7135e62a38168234619347d4aa159cd8.zip | |
vhdl-sem_expr.adb: avoid a crash after forced analysis
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 21e7b2237..04a73071c 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -4767,7 +4767,8 @@ package body Vhdl.Sem_Expr is Obj := Get_Named_Entity (Obj); when Iir_Kinds_Psl_Builtin => return; - when Iir_Kind_Error => + when Iir_Kind_Parenthesis_Name + | Iir_Kind_Error => return; when others => Error_Kind ("check_read", Obj); |