summaryrefslogtreecommitdiffstats
path: root/byterun
diff options
context:
space:
mode:
authorAlain Frisch <alain@frisch.fr>2012-12-17 17:15:04 +0000
committerAlain Frisch <alain@frisch.fr>2012-12-17 17:15:04 +0000
commite174901c934dce873ef9329c62a454bebb13f07f (patch)
tree69f50668a476c749b9e65fb860d9acb699a9b8ef /byterun
parent82a5220524ced2e50cf09a7072b53f1d290f9c4f (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.c6
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);