diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-01-05 21:06:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-01-05 21:06:00 +0100 |
| commit | 850614dae6db4ec205726d5bb392571c5dc5f126 (patch) | |
| tree | 8e3df1bebe920abb4718a833a4b646b1c0e96602 | |
| parent | 02750fd9397d0723237d916d80df49fecfd40e5d (diff) | |
| download | ghdl-850614dae6db4ec205726d5bb392571c5dc5f126.tar.gz ghdl-850614dae6db4ec205726d5bb392571c5dc5f126.tar.bz2 ghdl-850614dae6db4ec205726d5bb392571c5dc5f126.zip | |
vhdl-parse_psl.adb: handle n_paren_prop in Psl_To_Vhdl
| -rw-r--r-- | src/vhdl/vhdl-parse_psl.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse_psl.adb b/src/vhdl/vhdl-parse_psl.adb index e50367648..30beb2a35 100644 --- a/src/vhdl/vhdl-parse_psl.adb +++ b/src/vhdl/vhdl-parse_psl.adb @@ -104,6 +104,10 @@ package body Vhdl.Parse_Psl is Res := Binary_Psl_Operator_To_Vhdl (N, Iir_Kind_And_Operator); when N_Or_Prop => Res := Binary_Psl_Operator_To_Vhdl (N, Iir_Kind_Or_Operator); + when N_Paren_Prop => + Res := Create_Iir (Iir_Kind_Parenthesis_Expression); + Set_Location (Res, Get_Location (N)); + Set_Expression (Res, Psl_To_Vhdl (Get_Property (N))); when others => Error_Msg_Parse (+N, "PSL construct not allowed as VHDL expression"); |