From 8b2278144ed90af6e5ce99401ea8af51e0b0deff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Nov 2018 21:01:40 +0100
Subject: sem_psl: do not crash on selected element.

---
 src/vhdl/sem_psl.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_psl.adb b/src/vhdl/sem_psl.adb
index cc2512e60..61cbe4d3a 100644
--- a/src/vhdl/sem_psl.adb
+++ b/src/vhdl/sem_psl.adb
@@ -197,7 +197,8 @@ package body Sem_Psl is
                   Free_Iir (Name);
                end if;
                return Res;
-            when Iir_Kind_Function_Call =>
+            when Iir_Kind_Function_Call
+              | Iir_Kind_Selected_Element =>
                Expr := Name;
             when others =>
                Expr := Name_To_Expression (Expr, Null_Iir);
-- 
cgit v1.2.3