CAMLprim value caml_copysign_float(value f, value g)
{
return caml_copy_double(caml_copysign(Double_val(f), Double_val(g)));
}
CAMLprim value caml_copysign_float_r(CAML_R, value f, value g)
{
return caml_copy_double_r(ctx, caml_copysign(Double_val(f), Double_val(g)));
}