diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-24 18:19:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-24 18:19:33 +0200 |
commit | 5c5987d671ed390b0965c95f5744d86356a02ddf (patch) | |
tree | 1fbc0182827b1ed826fb8d015501a463d12050a0 /src/psl/psl-nodes.adb.in | |
parent | bfa8052b491367f8d10f98878343a7002f26f0cc (diff) | |
download | ghdl-5c5987d671ed390b0965c95f5744d86356a02ddf.tar.gz ghdl-5c5987d671ed390b0965c95f5744d86356a02ddf.tar.bz2 ghdl-5c5987d671ed390b0965c95f5744d86356a02ddf.zip |
psl: can keep parenthesis during parse.
Diffstat (limited to 'src/psl/psl-nodes.adb.in')
-rw-r--r-- | src/psl/psl-nodes.adb.in | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/psl/psl-nodes.adb.in b/src/psl/psl-nodes.adb.in index 220ffee71..3c7888800 100644 --- a/src/psl/psl-nodes.adb.in +++ b/src/psl/psl-nodes.adb.in @@ -325,6 +325,7 @@ package body PSL.Nodes is case Get_Kind (N) is when N_And_Prop | N_Or_Prop + | N_Paren_Prop | N_Log_Imp_Prop | N_Always | N_Never @@ -372,7 +373,8 @@ package body PSL.Nodes is | N_Imp_Bool | N_False | N_True - | N_Boolean_Parameter => + | N_Boolean_Parameter + | N_Paren_Bool => return Type_Boolean; when N_Number | N_Const_Parameter => |