Commit 96ba1726 authored by Guy Watson's avatar Guy Watson
Browse files

Properly classify 'shl', 'shr_s/u', 'rotr', and 'rotl' as binops

parent e73dec39
......@@ -75,6 +75,11 @@
[And Binop ()]
[Or Binop ()]
[Xor Binop ()]
[ShiftLeft Binop ()]
[ShiftRightSigned Binop ()]
[ShiftRightUnsigned Binop ()]
[RotateLeft Binop ()]
[RotateRight Binop ()]
[Unop Expr ([expr : Expr])
#:prop choice-weight 20
#:prop may-be-generated #f]
......@@ -82,11 +87,6 @@
[CountLeadingZero Unop ()]
[CountTrailingZero Unop ()]
[NonZeroBits Unop ()]
[ShiftLeft Unop ()]
[ShiftRightSigned Unop ()]
[ShiftRightUnsigned Unop ()]
[RotateLeft Unop ()]
[RotateRight Unop ()]
[IfElse Expr ([cond : Expr]
[then : Expr]
[else : Expr])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment