allow repeat shorthand in patterns

1e35ba26 · Zachary Snow · fea5ff44 · 1e35ba26
Commit 1e35ba26 authored Oct 11, 2019 by Zachary Snow
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

src/Language/SystemVerilog/Parser/Parse.y
+5 -1

No files found.
--- a/src/Language/SystemVerilog/Parser/Parse.y
+++ b/src/Language/SystemVerilog/Parser/Parse.y
@@ -1175,7 +1175,11 @@ PatternNamedItem :: { (Identifier, Expr) }
  : Identifier ":" Expr { ($1, $3) }
  | "default"  ":" Expr { (tokenString $1, $3) }
 PatternUnnamedItems :: { [Expr] }
-  : Exprs { $1 }
+  :                         PatternUnnamedItem { [$1] }
+  | PatternUnnamedItems "," PatternUnnamedItem { $1 ++ [$3] }
+PatternUnnamedItem :: { Expr }
+  : Expr        { $1 }
+  | Expr Concat { Repeat $1 $2 }
 Concat :: { [Expr] }
  : "{" Exprs "}" { $2 }