Fixes

ocaml-wasm · Sep 20, 2024 · 9dc0a47 · 9dc0a47
1 parent 785564b
commit 9dc0a47
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git 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
@@ -341,6 +341,10 @@ let constant_identical a b =
   | _, Float_array _
   | Int64 _, _
   | _, Int64 _
+  | Int32 _, _
+  | _, Int32 _
+  | NativeInt _, _
+  | _, NativeInt _
   | Tuple _, _
   | _, Tuple _ -> false