diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-02 18:24:32 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-02 18:24:32 +0200 |
| commit | 57cbee4a5c089bc9bf1583e8e0b9a34c65236d02 (patch) | |
| tree | 745a3b72c46b36fa4f3b8af2f1b947a159421697 /src/vhdl | |
| parent | 01c330faaed81ecd4a38bfcdc4838ea0f518e5d7 (diff) | |
| download | ghdl-57cbee4a5c089bc9bf1583e8e0b9a34c65236d02.tar.gz ghdl-57cbee4a5c089bc9bf1583e8e0b9a34c65236d02.tar.bz2 ghdl-57cbee4a5c089bc9bf1583e8e0b9a34c65236d02.zip | |
vhdl-sem_assocs: avoid a crash after forced analysis
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/vhdl-sem_assocs.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb index 4652eca1a..a667345a2 100644 --- a/src/vhdl/vhdl-sem_assocs.adb +++ b/src/vhdl/vhdl-sem_assocs.adb @@ -245,6 +245,11 @@ package body Vhdl.Sem_Assocs is Prefix : Iir; Object : Iir; begin + if Actual = Null_Iir then + -- Skip in case of errors. + return; + end if; + Object := Name_To_Object (Actual); if Object /= Null_Iir then Prefix := Get_Object_Prefix (Object); |