diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml index 75d655bbb..6ecb48fae 100644 --- a/compiler/lib/eval.ml +++ b/compiler/lib/eval.ml @@ -272,6 +272,10 @@ let constant_js_equal a b = | _, Float_array _ | Int64 _, _ | _, Int64 _ + | Int32 _, _ + | _, Int32 _ + | NativeInt _, _ + | _, NativeInt _ | Tuple _, _ | _, Tuple _ -> None diff --git a/compiler/lib/flow.ml b/compiler/lib/flow.ml index 1212e56f0..95aa383a2 100644 --- a/compiler/lib/flow.ml +++ b/compiler/lib/flow.ml @@ -341,6 +341,10 @@ let constant_identical a b = | _, Float_array _ | Int64 _, _ | _, Int64 _ + | Int32 _, _ + | _, Int32 _ + | NativeInt _, _ + | _, NativeInt _ | Tuple _, _ | _, Tuple _ -> false