diff options
Diffstat (limited to '')
-rw-r--r-- | src/Expressions.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/Expressions.ml b/src/Expressions.ml index 6e2b20d0..816870cd 100644 --- a/src/Expressions.ml +++ b/src/Expressions.ml @@ -47,6 +47,26 @@ type binop = | Shr [@@deriving show, ord] +let all_binops = + [ + BitXor; + BitAnd; + BitOr; + Eq; + Lt; + Le; + Ne; + Ge; + Gt; + Div; + Rem; + Add; + Sub; + Mul; + Shl; + Shr; + ] + (** Constant value for an operand It is a bit annoying, but rustc treats some ADT and tuple instances as |