From 21af50dafb4f0fa27a6d8757e3953f310d0e3e8f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 1 Jun 2020 10:21:43 +0200 Subject: vhdl: parse PSL prev/stable/rose/fell builtin calls. For #662 --- src/ghdldrv/ghdlprint.adb | 62 +++++++++++++++++++++++++---------------------- 1 file changed, 33 insertions(+), 29 deletions(-) (limited to 'src/ghdldrv') diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 58186948c..38c70699a 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -391,38 +391,42 @@ package body Ghdlprint is when Tok_Across .. Tok_Tolerance => Disp_Reserved; when Tok_Psl_Clock - | Tok_Psl_Endpoint - | Tok_Psl_Boolean - | Tok_Psl_Const - | Tok_Inf - | Tok_Within - | Tok_Abort - | Tok_Before - | Tok_Before_Em - | Tok_Before_Un - | Tok_Before_Em_Un - | Tok_Until_Em - | Tok_Until_Un - | Tok_Until_Em_Un - | Tok_Always - | Tok_Never - | Tok_Eventually_Em - | Tok_Next_Em - | Tok_Next_A - | Tok_Next_A_Em - | Tok_Next_E - | Tok_Next_E_Em - | Tok_Next_Event - | Tok_Next_Event_Em - | Tok_Next_Event_A - | Tok_Next_Event_A_Em - | Tok_Next_Event_E_Em - | Tok_Next_Event_E => + | Tok_Psl_Endpoint + | Tok_Psl_Boolean + | Tok_Psl_Const + | Tok_Inf + | Tok_Within + | Tok_Abort + | Tok_Before + | Tok_Before_Em + | Tok_Before_Un + | Tok_Before_Em_Un + | Tok_Until_Em + | Tok_Until_Un + | Tok_Until_Em_Un + | Tok_Always + | Tok_Never + | Tok_Eventually_Em + | Tok_Next_Em + | Tok_Next_A + | Tok_Next_A_Em + | Tok_Next_E + | Tok_Next_E_Em + | Tok_Next_Event + | Tok_Next_Event_Em + | Tok_Next_Event_A + | Tok_Next_Event_A_Em + | Tok_Next_Event_E_Em + | Tok_Next_Event_E + | Tok_Prev + | Tok_Stable + | Tok_Rose + | Tok_Fell => Disp_Spaces; Disp_Text; when Tok_String - | Tok_Bit_String - | Tok_Character => + | Tok_Bit_String + | Tok_Character => Disp_Spaces; case Html_Format is when Html_2 => -- cgit v1.2.3