parse alternate spacings of sense star

cd45696a · Zachary Snow · c17d8599 · cd45696a · cd45696a
Commit cd45696a authored Aug 16, 2021 by Zachary Snow
Hide whitespace changes
Inline Side-by-side

Showing with 19 additions and 0 deletions

src/Language/SystemVerilog/Parser/Parse.y
+3 -0

test/basic/sense_star.sv
+16 -0

No files found.
--- a/src/Language/SystemVerilog/Parser/Parse.y
+++ b/src/Language/SystemVerilog/Parser/Parse.y
@@ -1173,6 +1173,9 @@ CycleDelay :: { Expr }
 EventControl :: { Sense }
  : "@" "(" Senses ")" { $3 }
  | "@" "(*)"          { SenseStar }
+  | "@" "(" "*" ")"    { SenseStar }
+  | "@" "(*" ")"       { SenseStar }
+  | "@" "(" "*)"       { SenseStar }
  | "@*"               { SenseStar }
  | "@" Identifier     { Sense $ LHSIdent $2 }
 Senses :: { Sense }

--- a/test/basic/sense_star.sv
+++ b/test/basic/sense_star.sv
+module top;
+`define TEST(sense) always sense $display(`"sense %b`", x);
+    reg x, y;
+    `TEST(@*)
+    `TEST(@x)
+    `TEST(@y)
+    `TEST(@ ( * ))
+    `TEST(@ ( *))
+    `TEST(@ (* ))
+    `TEST(@ (*))
+    `TEST(@( * ))
+    `TEST(@( *))
+    `TEST(@(* ))
+    `TEST(@(*))
+    initial x = 1;
+endmodule