From 57cbee4a5c089bc9bf1583e8e0b9a34c65236d02 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 2 May 2022 18:24:32 +0200
Subject: vhdl-sem_assocs: avoid a crash after forced analysis

---
 src/vhdl/vhdl-sem_assocs.adb | 5 +++++
 1 file changed, 5 insertions(+)

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);
-- 
cgit v1.2.3