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 | |
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')
-rw-r--r-- | src/psl/psl-nodes.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/psl/psl-nodes.adb b/src/psl/psl-nodes.adb index d7de320a8..99b449d22 100644 --- a/src/psl/psl-nodes.adb +++ b/src/psl/psl-nodes.adb @@ -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 => @@ -439,6 +441,7 @@ package body PSL.Nodes is | N_Before | N_Or_Prop | N_And_Prop + | N_Paren_Prop | N_Braced_SERE | N_Concat_SERE | N_Fusion_SERE @@ -451,6 +454,7 @@ package body PSL.Nodes is | N_Goto_Repeat_Seq | N_Plus_Repeat_Seq | N_Equal_Repeat_Seq + | N_Paren_Bool | N_Not_Bool | N_And_Bool | N_Or_Bool |