From 6d43356887b4a1e605715248d17195ba8f8ebc9f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Feb 2020 18:23:44 +0100
Subject: vhdl-sem_expr: avoid a crash on invalid input.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index a4deece67..d7197cba4 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -1529,6 +1529,11 @@ package body Vhdl.Sem_Expr is
       Inter : Iir;
    begin
       Name := Get_Prefix (Call);
+      if Name = Null_Iir then
+         pragma Assert (Flags.Flag_Force_Analysis);
+         return;
+      end if;
+
       --  FIXME: check for denoting name.
       Sem_Name (Name);
 
-- 
cgit v1.2.3