diff --git a/boot/ocamlc b/boot/ocamlc index 005242566..a8d45cf3d 100755 Binary files a/boot/ocamlc and b/boot/ocamlc differ diff --git a/boot/ocamldep b/boot/ocamldep index f7fcd04c8..89aaaca2a 100755 Binary files a/boot/ocamldep and b/boot/ocamldep differ diff --git a/boot/ocamllex b/boot/ocamllex index be670df38..084339c62 100755 Binary files a/boot/ocamllex and b/boot/ocamllex differ diff --git a/byterun/ints.c b/byterun/ints.c index 25dd17ccf..4ba7e82f1 100644 --- a/byterun/ints.c +++ b/byterun/ints.c @@ -114,7 +114,7 @@ intnat caml_safe_mod(intnat p, intnat q) } #endif -CAMLprim value caml_bswap16_direct(value x) +value caml_bswap16_direct(value x) { return ((((x & 0x00FF) << 8) | ((x & 0xFF00) >> 8))); @@ -317,7 +317,7 @@ static int32 swap32(int32 x) ((x & 0xFF000000) >> 24)); } -CAMLprim value caml_int32_direct_bswap(value v) +value caml_int32_direct_bswap(value v) { return swap32(v); } CAMLprim value caml_int32_bswap(value v) @@ -785,7 +785,7 @@ CAMLprim value caml_nativeint_shift_right(value v1, value v2) CAMLprim value caml_nativeint_shift_right_unsigned(value v1, value v2) { return caml_copy_nativeint((uintnat)Nativeint_val(v1) >> Int_val(v2)); } -CAMLprim value caml_nativeint_direct_bswap(value v) +value caml_nativeint_direct_bswap(value v) { #ifdef ARCH_SIXTYFOUR return swap64(v);