diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-07-23 18:24:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-07-23 18:24:09 +0200 |
| commit | ffa43831abc1e3f35796a83459dbd62757f2d286 (patch) | |
| tree | d794db988bb72f9de792929c4080ca869e127341 | |
| parent | 44f80dde6d0e248d850f3ca48e5167920f93ca92 (diff) | |
| download | ghdl-ffa43831abc1e3f35796a83459dbd62757f2d286.tar.gz ghdl-ffa43831abc1e3f35796a83459dbd62757f2d286.tar.bz2 ghdl-ffa43831abc1e3f35796a83459dbd62757f2d286.zip | |
vhdl-sem_stmts.adb: avoid a crash when forced analysis.
| -rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 287f54dab..771a09c3a 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -1863,6 +1863,10 @@ package body Vhdl.Sem_Stmts is Comp_Name : Iir; Comp : Iir; begin + if Is_Error (Inst) then + return Null_Iir; + end if; + if Get_Kind (Inst) in Iir_Kinds_Entity_Aspect then return Sem_Entity_Aspect (Inst); else |