From e90e022474b15f4db7b3732ff9cb5110fb44562b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 6 Mar 2020 20:35:56 +0100
Subject: vhdl: avoid a crash on extra string.

---
 src/vhdl/vhdl-sem_expr.adb | 5 ++++-
 1 file changed, 4 insertions(+), 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 8303a58f9..f990d02ff 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -1529,7 +1529,10 @@ package body Vhdl.Sem_Expr is
       Inter : Iir;
    begin
       Name := Get_Prefix (Call);
-      if Name = Null_Iir or else Is_Error (Name) then
+      if Name = Null_Iir
+        or else Is_Error (Name)
+        or else Get_Kind (Name) = Iir_Kind_String_Literal8
+      then
          pragma Assert (Flags.Flag_Force_Analysis);
          return;
       end if;
-- 
cgit v1.2.3