Avoid caml_copy_int{32,64} segfault on large uints

andrenth · Feb 29, 2012 · e3f8b24 · e3f8b24
1 parent 9559a76
commit e3f8b24
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/uint32_stubs.c b/lib/uint32_stubs.c
@@ -172,7 +172,7 @@ CAMLprim value
 uint32_to_int32(value v)
 {
     CAMLparam1(v);
-    CAMLreturn (caml_copy_int32(Uint32_val(v)));
+    CAMLreturn (caml_copy_int32((int32)Uint32_val(v)));
 }
 
 CAMLprim value

diff --git a/lib/uint64_stubs.c b/lib/uint64_stubs.c
@@ -186,7 +186,7 @@ CAMLprim value
 uint64_to_int64(value v)
 {
     CAMLparam1(v);
-    CAMLreturn (caml_copy_int64(Uint64_val(v)));
+    CAMLreturn (caml_copy_int64((int64)Uint64_val(v)));
 }
 
 CAMLprim value