From fcbb91ec194d154d2bc9825a25e06361a90fd603 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 22 Mar 2018 07:51:11 +0100
Subject: sem_hdl_expr: handle function call without parameters.

Fix #544
---
 src/vhdl/sem_psl.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_psl.adb b/src/vhdl/sem_psl.adb
index abdf53ffb..fbafed60e 100644
--- a/src/vhdl/sem_psl.adb
+++ b/src/vhdl/sem_psl.adb
@@ -197,8 +197,10 @@ package body Sem_Psl is
                   Free_Iir (Name);
                end if;
                return Res;
-            when others =>
+            when Iir_Kind_Function_Call =>
                Expr := Name;
+            when others =>
+               Expr := Name_To_Expression (Expr, Null_Iir);
          end case;
       else
          Expr := Sem_Expr.Sem_Expression (Expr, Null_Iir);
-- 
cgit v1.2.3