Fixup: more merge artifacts

ocaml-wasm · Oct 2, 2024 · 33d448c · 33d448c
1 parent 4de12c1
commit 33d448c
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 11 deletions.
diff --git a/compiler/lib/code.ml b/compiler/lib/code.ml
@@ -322,11 +322,6 @@ module Native_string = struct
     | Utf _, Byte _ | Byte _, Utf _ -> false
 end
 
-type int_kind =
-  | Regular
-  | Int32
-  | Native
-
 type constant =
   | String of string
   | NativeString of Native_string.t

diff --git a/compiler/lib/code.mli b/compiler/lib/code.mli
@@ -168,11 +168,6 @@ module Native_string : sig
   val equal : t -> t -> bool
 end
 
-type int_kind =
-  | Regular
-  | Int32
-  | Native
-
 type constant =
   | String of string
   | NativeString of Native_string.t

diff --git a/compiler/lib/ocaml_compiler.ml b/compiler/lib/ocaml_compiler.ml
@@ -51,7 +51,7 @@ let rec constant_of_const c : Code.constant =
         | `JavaScript -> Int32.of_int_warning_on_overflow i
         | `Wasm -> Int31.(of_int_warning_on_overflow i |> to_int32))
   | Const_block (tag, l) ->
-      let l = Array.of_list (List.map l ~f:(fun c -> constant_of_const c)) in
+      let l = Array.of_list (List.map l ~f:constant_of_const) in
       Tuple (tag, l, Unknown)
 
 let rec find_loc_in_summary ident' = function