diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-08-04 06:59:25 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-08-04 17:02:16 +0200 |
commit | afa72384251e121988501ac22f16d0110bd2305f (patch) | |
tree | 4d6a5568d8d4995565f7e08268832ed670d9520c /src/ghdldrv | |
parent | 919206e884d423925170c3735421b9b5e35cd183 (diff) | |
download | ghdl-afa72384251e121988501ac22f16d0110bd2305f.tar.gz ghdl-afa72384251e121988501ac22f16d0110bd2305f.tar.bz2 ghdl-afa72384251e121988501ac22f16d0110bd2305f.zip |
rework parse_expression to add parse_binary_expression.
This is needed to complete PSL expression parsing.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index f95e266ee..531d6125a 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -378,23 +378,11 @@ package body Ghdlprint is Disp_Text; Put ("</tt>"); end case; - when Tok_Access .. Tok_Elsif - | Tok_Entity .. Tok_With - | Tok_Mod .. Tok_Rem - | Tok_And .. Tok_Not => - Disp_Reserved; - when Tok_End => + when Tok_Mod .. Tok_Parameter => Disp_Reserved; when Tok_Semi_Colon => Disp_Spaces; Disp_Text; - when Tok_Xnor .. Tok_Ror => - Disp_Reserved; - when Tok_Protected => - Disp_Reserved; - when Tok_Context - | Tok_Parameter => - Disp_Reserved; when Tok_Across .. Tok_Tolerance => Disp_Reserved; when Tok_Psl_Default |