Fix build before 4.12

ocsigen · Sep 13, 2024 · 0a92618 · 0a92618
1 parent 6b27984
commit 0a92618
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/lib/ocaml_compiler.ml b/compiler/lib/ocaml_compiler.ml
@@ -42,7 +42,7 @@ let rec constant_of_const ~target c : Code.constant =
       Int
         (match target with
         | `JavaScript -> Int32.of_int_warning_on_overflow i
-        | `Wasm -> Int31.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 ~target c)) in
       Tuple (tag, l, Unknown)