diff options
| -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); |