Fix handling of native int constants

They were wrongly truncated to 31 bits.
ocaml-wasm · Nov 27, 2023 · d67c215 · d67c215
1 parent 0e36628
commit d67c215
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
@@ -468,11 +468,7 @@ end = struct
         | Some name when same_ident name ident_32 -> Int (Int32, (Obj.magic x : int32))
         | Some name when same_ident name ident_native ->
             let i : nativeint = Obj.magic x in
-            Int
-              ( Native
-              , match target with
-                | `JavaScript -> Int32.of_nativeint_warning_on_overflow i
-                | `Wasm -> Int31.of_nativeint_warning_on_overflow i )
+            Int (Native, Int32.of_nativeint_warning_on_overflow i)
         | Some name when same_ident name ident_64 -> Int64 (Obj.magic x : int64)
         | Some name ->
             failwith