diff options
Diffstat (limited to '')
-rw-r--r-- | compiler/ExpressionsUtils.ml | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/compiler/ExpressionsUtils.ml b/compiler/ExpressionsUtils.ml index c3ccfb15..7dfef101 100644 --- a/compiler/ExpressionsUtils.ml +++ b/compiler/ExpressionsUtils.ml @@ -1,10 +1 @@ -module E = Expressions - -let unop_can_fail (unop : E.unop) : bool = - match unop with Neg | Cast _ -> true | Not -> false - -let binop_can_fail (binop : E.binop) : bool = - match binop with - | BitXor | BitAnd | BitOr | Eq | Lt | Le | Ne | Ge | Gt -> false - | Div | Rem | Add | Sub | Mul -> true - | Shl | Shr -> raise Errors.Unimplemented +include Charon.ExpressionsUtils |