#5744: remove other primitives.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13136 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2012-12-17 17:15:04 +00:00
parent 82a5220524
commit e174901c93
4 changed files with 3 additions and 3 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -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);