diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-03-22 07:51:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-03-22 07:51:11 +0100 |
| commit | fcbb91ec194d154d2bc9825a25e06361a90fd603 (patch) | |
| tree | ba6b0c06d48457833bec3b46fa51d2ba84136742 /src | |
| parent | 9c96c560b0227c0473cad2760de514de72d5b613 (diff) | |
| download | ghdl-fcbb91ec194d154d2bc9825a25e06361a90fd603.tar.gz ghdl-fcbb91ec194d154d2bc9825a25e06361a90fd603.tar.bz2 ghdl-fcbb91ec194d154d2bc9825a25e06361a90fd603.zip | |
sem_hdl_expr: handle function call without parameters.
Fix #544
Diffstat (limited to 'src')
| -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); |