mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-23 17:53:37 +08:00
[BZ #2749]
* sysdeps/ieee754/ldbl-128ibm/s_copysignl.c: Include <math_ldbl_opt.h>. Remove weak_alias. Use long_double_symbol macro. (__copysignl): Use signbit() for comparison. * sysdeps/ieee754/ldbl-128ibm/s_fabsl.c (__fabsl): Correct parms for SET_LDOUBLE_WORDS64. [BZ #2423, #2749] * sysdeps/ieee754/ldbl-128ibm/s_ceill.c: Don't include <fenv_libc.h>. (__ceill): Remove calls to fegetround(), fesetround(). * sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise. * sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise. * sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise. 2007-01-12 Steven Munroe <sjmunroe@us.ibm.com> Joe Kerian <jkerian@us.us.ibm.com> [BZ #2749] * sysdeps/ieee754/ldbl-128ibm/s_copysignl.c: Include <math_ldbl_opt.h>. Remove weak_alias. Use long_double_symbol macro. (__copysignl): Use signbit() for comparison. * sysdeps/ieee754/ldbl-128ibm/s_fabsl.c (__fabsl): Correct parms for SET_LDOUBLE_WORDS64. [BZ #2423, #2749] * sysdeps/ieee754/ldbl-128ibm/s_ceill.c: Don't include <fenv_libc.h>. (__ceill): Remove calls to fegetround(), fesetround(). * sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise. * sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise. * sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
This commit is contained in:
Jakub Jelinek
parent
4a2e03c66c
commit
cd8127cc70
17
ChangeLog
17
ChangeLog
@ -1,3 +1,20 @@
|
||||
2007-01-12 Steven Munroe <sjmunroe@us.ibm.com>
|
||||
Joe Kerian <jkerian@us.us.ibm.com>
|
||||
|
||||
[BZ #2749]
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_copysignl.c: Include
|
||||
<math_ldbl_opt.h>. Remove weak_alias. Use long_double_symbol macro.
|
||||
(__copysignl): Use signbit() for comparison.
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_fabsl.c (__fabsl): Correct parms for
|
||||
SET_LDOUBLE_WORDS64.
|
||||
|
||||
[BZ #2423, #2749]
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c: Don't include <fenv_libc.h>.
|
||||
(__ceill): Remove calls to fegetround(), fesetround().
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
|
||||
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
|
||||
|
||||
2007-01-17 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* nscd/nscd_getserv_r.c (nscd_getserv_r): Fix pastos.
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
/* Ceil (round to +inf) long double floating-point values.
|
||||
IBM extended format long double version.
|
||||
Copyright (C) 2006 Free Software Foundation, Inc.
|
||||
Copyright (C) 2006, 2007 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
@ -19,7 +19,6 @@
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <math.h>
|
||||
#include <fenv_libc.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
#include <float.h>
|
||||
#include <ieee754.h>
|
||||
@ -44,11 +43,9 @@ __ceill (x)
|
||||
__builtin_inf ()), 1))
|
||||
{
|
||||
double orig_xh;
|
||||
int save_round = fegetround ();
|
||||
|
||||
/* Long double arithmetic, including the canonicalisation below,
|
||||
only works in round-to-nearest mode. */
|
||||
fesetround (FE_TONEAREST);
|
||||
|
||||
/* Convert the high double to integer. */
|
||||
orig_xh = xh;
|
||||
@ -81,8 +78,6 @@ __ceill (x)
|
||||
/* Ensure we return -0 rather than +0 when appropriate. */
|
||||
if (orig_xh < 0.0)
|
||||
xh = -__builtin_fabs (xh);
|
||||
|
||||
fesetround (save_round);
|
||||
}
|
||||
|
||||
return ldbl_pack (xh, xl);
|
||||
|
||||
@ -25,6 +25,7 @@ static char rcsid[] = "$NetBSD: $";
|
||||
|
||||
#include "math.h"
|
||||
#include "math_private.h"
|
||||
#include <math_ldbl_opt.h>
|
||||
|
||||
#ifdef __STDC__
|
||||
long double __copysignl(long double x, long double y)
|
||||
@ -33,13 +34,13 @@ static char rcsid[] = "$NetBSD: $";
|
||||
long double x,y;
|
||||
#endif
|
||||
{
|
||||
if (y < 0.0)
|
||||
{
|
||||
if (x >= 0.0)
|
||||
x = -x;
|
||||
}
|
||||
else if (x < 0.0)
|
||||
if (signbit (x) != signbit (y))
|
||||
x = -x;
|
||||
return x;
|
||||
}
|
||||
weak_alias (__copysignl, copysignl)
|
||||
|
||||
#ifdef IS_IN_libm
|
||||
long_double_symbol (libm, __copysignl, copysignl);
|
||||
#else
|
||||
long_double_symbol (libc, __copysignl, copysignl);
|
||||
#endif
|
||||
|
||||
@ -37,7 +37,7 @@ static char rcsid[] = "$NetBSD: $";
|
||||
GET_LDOUBLE_WORDS64(hx,lx,x);
|
||||
lx = lx ^ ( hx & 0x8000000000000000LL );
|
||||
hx = hx & 0x7fffffffffffffffLL;
|
||||
SET_LDOUBLE_WORDS64(hx,lx,x);
|
||||
return x;
|
||||
SET_LDOUBLE_WORDS64(x,hx,lx);
|
||||
return x;
|
||||
}
|
||||
long_double_symbol (libm, __fabsl, fabsl);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
/* Round to int long double floating-point values.
|
||||
IBM extended format long double version.
|
||||
Copyright (C) 2006 Free Software Foundation, Inc.
|
||||
Copyright (C) 2006, 2007 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
@ -19,7 +19,6 @@
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <math.h>
|
||||
#include <fenv_libc.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
#include <float.h>
|
||||
#include <ieee754.h>
|
||||
@ -43,11 +42,8 @@ __floorl (x)
|
||||
&& __builtin_isless (__builtin_fabs (xh),
|
||||
__builtin_inf ()), 1))
|
||||
{
|
||||
int save_round = fegetround ();
|
||||
|
||||
/* Long double arithmetic, including the canonicalisation below,
|
||||
only works in round-to-nearest mode. */
|
||||
fesetround (FE_TONEAREST);
|
||||
|
||||
/* Convert the high double to integer. */
|
||||
hi = ldbl_nearbyint (xh);
|
||||
@ -75,8 +71,6 @@ __floorl (x)
|
||||
xh = hi;
|
||||
xl = lo;
|
||||
ldbl_canonicalize (&xh, &xl);
|
||||
|
||||
fesetround (save_round);
|
||||
}
|
||||
|
||||
return ldbl_pack (xh, xl);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
/* Round to int long double floating-point values.
|
||||
IBM extended format long double version.
|
||||
Copyright (C) 2006 Free Software Foundation, Inc.
|
||||
Copyright (C) 2006, 2007 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
@ -22,7 +22,6 @@
|
||||
when it's coded in C. */
|
||||
|
||||
#include <math.h>
|
||||
#include <fenv_libc.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
#include <float.h>
|
||||
#include <ieee754.h>
|
||||
@ -47,11 +46,9 @@ __roundl (x)
|
||||
__builtin_inf ()), 1))
|
||||
{
|
||||
double orig_xh;
|
||||
int save_round = fegetround ();
|
||||
|
||||
/* Long double arithmetic, including the canonicalisation below,
|
||||
only works in round-to-nearest mode. */
|
||||
fesetround (FE_TONEAREST);
|
||||
|
||||
/* Convert the high double to integer. */
|
||||
orig_xh = xh;
|
||||
@ -88,8 +85,6 @@ __roundl (x)
|
||||
xh = hi;
|
||||
xl = lo;
|
||||
ldbl_canonicalize (&xh, &xl);
|
||||
|
||||
fesetround (save_round);
|
||||
}
|
||||
|
||||
return ldbl_pack (xh, xl);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
/* Truncate (toward zero) long double floating-point values.
|
||||
IBM extended format long double version.
|
||||
Copyright (C) 2006 Free Software Foundation, Inc.
|
||||
Copyright (C) 2006, 2007 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
@ -22,7 +22,6 @@
|
||||
when it's coded in C. */
|
||||
|
||||
#include <math.h>
|
||||
#include <fenv_libc.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
#include <float.h>
|
||||
#include <ieee754.h>
|
||||
@ -47,11 +46,9 @@ __truncl (x)
|
||||
__builtin_inf ()), 1))
|
||||
{
|
||||
double orig_xh;
|
||||
int save_round = fegetround ();
|
||||
|
||||
/* Long double arithmetic, including the canonicalisation below,
|
||||
only works in round-to-nearest mode. */
|
||||
fesetround (FE_TONEAREST);
|
||||
|
||||
/* Convert the high double to integer. */
|
||||
orig_xh = xh;
|
||||
@ -92,8 +89,6 @@ __truncl (x)
|
||||
/* Ensure we return -0 rather than +0 when appropriate. */
|
||||
if (orig_xh < 0.0)
|
||||
xh = -__builtin_fabs (xh);
|
||||
|
||||
fesetround (save_round);
|
||||
}
|
||||
|
||||
return ldbl_pack (xh, xl);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user