From 75b1993a8981d4c77bda3c52356fced476ac1626 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Feb 2020 18:51:09 +0100
Subject: vhdl-sem_expr: avoid a crash on invalid attribute name.

---
 src/vhdl/vhdl-sem_expr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/vhdl-sem_expr.adb')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index d7197cba4..f8950c133 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -1529,7 +1529,7 @@ package body Vhdl.Sem_Expr is
       Inter : Iir;
    begin
       Name := Get_Prefix (Call);
-      if Name = Null_Iir then
+      if Name = Null_Iir or else Is_Error (Name) then
          pragma Assert (Flags.Flag_Force_Analysis);
          return;
       end if;
-- 
cgit v1.2.3