diff options
author | Alain Frisch <alain@frisch.fr> | 2012-12-17 17:15:04 +0000 |
---|---|---|
committer | Alain Frisch <alain@frisch.fr> | 2012-12-17 17:15:04 +0000 |
commit | e174901c934dce873ef9329c62a454bebb13f07f (patch) | |
tree | 69f50668a476c749b9e65fb860d9acb699a9b8ef /byterun | |
parent | 82a5220524ced2e50cf09a7072b53f1d290f9c4f (diff) |
#5744: remove other primitives.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13136 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun')
-rw-r--r-- | byterun/ints.c | 6 |
1 files changed, 3 insertions, 3 deletions
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); |