From 0c7aecb88dc696f66f49f3bed54a037361a26b8d Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Fri, 2 Jan 2004 19:23:29 +0000 Subject: depollution suite (et fin?) (PR#1914 et PR#1956) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6047 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/ints.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'byterun/ints.c') diff --git a/byterun/ints.c b/byterun/ints.c index 7e68b91bb0..2106fbd663 100644 --- a/byterun/ints.c +++ b/byterun/ints.c @@ -295,7 +295,7 @@ CAMLprim value caml_int32_of_float(value v) { return caml_copy_int32((int32)(Double_val(v))); } CAMLprim value caml_int32_to_float(value v) -{ return copy_double((double)(Int32_val(v))); } +{ return caml_copy_double((double)(Int32_val(v))); } CAMLprim value caml_int32_compare(value v1, value v2) { @@ -336,7 +336,7 @@ CAMLprim value caml_int32_float_of_bits(value vi) { union { float d; int32 i; } u; u.i = Int32_val(vi); - return copy_double(u.d); + return caml_copy_double(u.d); } /* 64-bit integers */ @@ -470,7 +470,7 @@ CAMLprim value caml_int64_of_float(value v) CAMLprim value caml_int64_to_float(value v) { int64 i = Int64_val(v); - return copy_double(I64_to_double(i)); + return caml_copy_double(I64_to_double(i)); } CAMLprim value caml_int64_of_int32(value v) @@ -558,7 +558,7 @@ CAMLprim value caml_int64_float_of_bits(value vi) { union { double d; int64 i; } u; u.i = Int64_val(vi); - return copy_double(u.d); + return caml_copy_double(u.d); } /* Native integers */ @@ -692,7 +692,7 @@ CAMLprim value caml_nativeint_of_float(value v) { return caml_copy_nativeint((long)(Double_val(v))); } CAMLprim value caml_nativeint_to_float(value v) -{ return copy_double((double)(Nativeint_val(v))); } +{ return caml_copy_double((double)(Nativeint_val(v))); } CAMLprim value caml_nativeint_of_int32(value v) { return caml_copy_nativeint(Int32_val(v)); } -- cgit v1.2.1