diff options
| -rw-r--r-- | src/vhdl/sem_psl.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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); |