mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-21 12:30:06 +00:00
* math/divtc3.c: New file.
* math/multc3.c: New file. * sysdeps/unix/sysv/linux/sparc/sparc32/Makefile [$(subdir) = math] (libm-routines): Add multc3, divtc3. * sysdeps/unix/sysv/linux/sparc/sparc32/fpu/Implies: New file. * sysdeps/sparc/sparc32/fpu/s_fabsl.c: Include math.h and math_ldbl_opt.h. (fabsl): Use long_double_symbol instead of weak_alias. * sysdeps/sparc/sparc32/fpu/s_fabs.c: Include math.h and math_ldbl_opt.h. [LONG_DOUBLE_COMPAT] (fabsl): Add compat_symbol. 2006-01-31 Martin Schwidefsky <schwidefsky@de.ibm.com> Jakub Jelinek <jakub@redhat.com> * sysdeps/unix/sysv/linux/s390/Implies: New file. * sysdeps/unix/sysv/linux/s390/fpu/Implies: New file. * sysdeps/unix/sysv/linux/s390/nldbl-abi.h: New file. * sysdeps/s390/fpu/bits/mathinline.h (signbitl, sqrtl): New inlines. * sysdeps/s390/bits/mathdef.h: New file. * sysdeps/s390/fpu/e_sqrtl.c: New file. * sysdeps/s390/s390-32/bits/wordsize.h (__LONG_DOUBLE_MATH_OPTIONAL, __NO_LONG_DOUBLE_MATH): Define. * sysdeps/s390/s390-64/bits/wordsize.h: Likewise. * sysdeps/s390/Implies: Add ieee754/ldbl-128. * sysdeps/s390/ldbl2mpn.c: File removed. * sysdeps/s390/fpu/libm-test-ulps: Updated. 2006-01-31 Roland McGrath <roland@redhat.com> * sysdeps/alpha/fpu/bits/mathdef.h: Moved to ... * sysdeps/alpha/bits/mathdef.h: ... here. * sysdeps/i386/fpu/bits/mathdef.h: Moved to ... * sysdeps/i386/bits/mathdef.h: ... here. * sysdeps/mips/fpu/bits/mathdef.h: Moved to ... * sysdeps/mips/bits/mathdef.h: ... here. * sysdeps/m68k/fpu/bits/mathdef.h: Moved to ... * sysdeps/m68k/bits/mathdef.h: ... here. * sysdeps/powerpc/fpu/bits/mathdef.h: Moved to ... * sysdeps/powerpc/bits/mathdef.h: ... here. * sysdeps/sparc/fpu/bits/mathdef.h: Moved to ... * sysdeps/sparc/bits/mathdef.h: ... here. * sysdeps/ia64/fpu/bits/mathdef.h: Moved to ... * sysdeps/ia64/bits/mathdef.h: ... here. * sysdeps/sh/sh4/fpu/bits/mathdef.h: Moved to ... * sysdeps/sh/sh4/bits/mathdef.h: ... here. * sysdeps/x86_64/fpu/bits/mathdef.h: Moved to ... * sysdeps/x86_64/bits/mathdef.h: ... here. 2006-01-31 Jakub Jelinek <jakub@redhat.com>
This commit is contained in:
parent
d224299090
commit
fea3f995bd
52
ChangeLog
52
ChangeLog
@ -1,3 +1,55 @@
|
||||
2006-01-31 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* math/divtc3.c: New file.
|
||||
* math/multc3.c: New file.
|
||||
* sysdeps/unix/sysv/linux/sparc/sparc32/Makefile
|
||||
[$(subdir) = math] (libm-routines): Add multc3, divtc3.
|
||||
|
||||
* sysdeps/unix/sysv/linux/sparc/sparc32/fpu/Implies: New file.
|
||||
* sysdeps/sparc/sparc32/fpu/s_fabsl.c: Include math.h and
|
||||
math_ldbl_opt.h.
|
||||
(fabsl): Use long_double_symbol instead of weak_alias.
|
||||
* sysdeps/sparc/sparc32/fpu/s_fabs.c: Include math.h and
|
||||
math_ldbl_opt.h.
|
||||
[LONG_DOUBLE_COMPAT] (fabsl): Add compat_symbol.
|
||||
|
||||
2006-01-31 Martin Schwidefsky <schwidefsky@de.ibm.com>
|
||||
Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* sysdeps/unix/sysv/linux/s390/Implies: New file.
|
||||
* sysdeps/unix/sysv/linux/s390/fpu/Implies: New file.
|
||||
* sysdeps/unix/sysv/linux/s390/nldbl-abi.h: New file.
|
||||
* sysdeps/s390/fpu/bits/mathinline.h (signbitl, sqrtl): New inlines.
|
||||
* sysdeps/s390/bits/mathdef.h: New file.
|
||||
* sysdeps/s390/fpu/e_sqrtl.c: New file.
|
||||
* sysdeps/s390/s390-32/bits/wordsize.h (__LONG_DOUBLE_MATH_OPTIONAL,
|
||||
__NO_LONG_DOUBLE_MATH): Define.
|
||||
* sysdeps/s390/s390-64/bits/wordsize.h: Likewise.
|
||||
* sysdeps/s390/Implies: Add ieee754/ldbl-128.
|
||||
* sysdeps/s390/ldbl2mpn.c: File removed.
|
||||
* sysdeps/s390/fpu/libm-test-ulps: Updated.
|
||||
|
||||
2006-01-31 Roland McGrath <roland@redhat.com>
|
||||
|
||||
* sysdeps/alpha/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/alpha/bits/mathdef.h: ... here.
|
||||
* sysdeps/i386/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/i386/bits/mathdef.h: ... here.
|
||||
* sysdeps/mips/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/mips/bits/mathdef.h: ... here.
|
||||
* sysdeps/m68k/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/m68k/bits/mathdef.h: ... here.
|
||||
* sysdeps/powerpc/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/powerpc/bits/mathdef.h: ... here.
|
||||
* sysdeps/sparc/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/sparc/bits/mathdef.h: ... here.
|
||||
* sysdeps/ia64/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/ia64/bits/mathdef.h: ... here.
|
||||
* sysdeps/sh/sh4/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/sh/sh4/bits/mathdef.h: ... here.
|
||||
* sysdeps/x86_64/fpu/bits/mathdef.h: Moved to ...
|
||||
* sysdeps/x86_64/bits/mathdef.h: ... here.
|
||||
|
||||
2006-01-31 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* sysdeps/unix/sysv/linux/i386/fxstatat.c [XSTAT_IS_STAT64]
|
||||
|
75
math/divtc3.c
Normal file
75
math/divtc3.c
Normal file
@ -0,0 +1,75 @@
|
||||
/* Copyright (C) 2005, 2006 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
Contributed by Richard Henderson <rth@redhat.com>, 2005.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <stdbool.h>
|
||||
#include <math.h>
|
||||
#include <complex.h>
|
||||
|
||||
attribute_hidden
|
||||
long double _Complex
|
||||
__divtc3 (long double a, long double b, long double c, long double d)
|
||||
{
|
||||
long double denom, ratio, x, y;
|
||||
|
||||
/* ??? We can get better behavior from logarithmic scaling instead of
|
||||
the division. But that would mean starting to link libgcc against
|
||||
libm. We could implement something akin to ldexp/frexp as gcc builtins
|
||||
fairly easily... */
|
||||
if (fabsl (c) < fabsl (d))
|
||||
{
|
||||
ratio = c / d;
|
||||
denom = (c * ratio) + d;
|
||||
x = ((a * ratio) + b) / denom;
|
||||
y = ((b * ratio) - a) / denom;
|
||||
}
|
||||
else
|
||||
{
|
||||
ratio = d / c;
|
||||
denom = (d * ratio) + c;
|
||||
x = ((b * ratio) + a) / denom;
|
||||
y = (b - (a * ratio)) / denom;
|
||||
}
|
||||
|
||||
/* Recover infinities and zeros that computed as NaN+iNaN; the only cases
|
||||
are nonzero/zero, infinite/finite, and finite/infinite. */
|
||||
if (isnan (x) && isnan (y))
|
||||
{
|
||||
if (denom == 0.0 && (!isnan (a) || !isnan (b)))
|
||||
{
|
||||
x = __copysignl (INFINITY, c) * a;
|
||||
y = __copysignl (INFINITY, c) * b;
|
||||
}
|
||||
else if ((isinf (a) || isinf (b)) && isfinite (c) && isfinite (d))
|
||||
{
|
||||
a = __copysignl (isinf (a) ? 1 : 0, a);
|
||||
b = __copysignl (isinf (b) ? 1 : 0, b);
|
||||
x = INFINITY * (a * c + b * d);
|
||||
y = INFINITY * (b * c - a * d);
|
||||
}
|
||||
else if ((isinf (c) || isinf (d)) && isfinite (a) && isfinite (b))
|
||||
{
|
||||
c = __copysignl (isinf (c) ? 1 : 0, c);
|
||||
d = __copysignl (isinf (d) ? 1 : 0, d);
|
||||
x = 0.0 * (a * c + b * d);
|
||||
y = 0.0 * (b * c - a * d);
|
||||
}
|
||||
}
|
||||
|
||||
return x + I * y;
|
||||
}
|
80
math/multc3.c
Normal file
80
math/multc3.c
Normal file
@ -0,0 +1,80 @@
|
||||
/* Copyright (C) 2005, 2006 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
Contributed by Richard Henderson <rth@redhat.com>, 2005.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <stdbool.h>
|
||||
#include <math.h>
|
||||
#include <complex.h>
|
||||
|
||||
attribute_hidden
|
||||
long double _Complex
|
||||
__multc3 (long double a, long double b, long double c, long double d)
|
||||
{
|
||||
long double ac, bd, ad, bc, x, y;
|
||||
|
||||
ac = a * c;
|
||||
bd = b * d;
|
||||
ad = a * d;
|
||||
bc = b * c;
|
||||
|
||||
x = ac - bd;
|
||||
y = ad + bc;
|
||||
|
||||
if (isnan (x) && isnan (y))
|
||||
{
|
||||
/* Recover infinities that computed as NaN + iNaN. */
|
||||
bool recalc = 0;
|
||||
if (isinf (a) || isinf (b))
|
||||
{
|
||||
/* z is infinite. "Box" the infinity and change NaNs in
|
||||
the other factor to 0. */
|
||||
a = __copysignl (isinf (a) ? 1 : 0, a);
|
||||
b = __copysignl (isinf (b) ? 1 : 0, b);
|
||||
if (isnan (c)) c = __copysignl (0, c);
|
||||
if (isnan (d)) d = __copysignl (0, d);
|
||||
recalc = 1;
|
||||
}
|
||||
if (isinf (c) || isinf (d))
|
||||
{
|
||||
/* w is infinite. "Box" the infinity and change NaNs in
|
||||
the other factor to 0. */
|
||||
c = __copysignl (isinf (c) ? 1 : 0, c);
|
||||
d = __copysignl (isinf (d) ? 1 : 0, d);
|
||||
if (isnan (a)) a = __copysignl (0, a);
|
||||
if (isnan (b)) b = __copysignl (0, b);
|
||||
recalc = 1;
|
||||
}
|
||||
if (!recalc
|
||||
&& (isinf (ac) || isinf (bd) || isinf (ad) || isinf (bc)))
|
||||
{
|
||||
/* Recover infinities from overflow by changing NaNs to 0. */
|
||||
if (isnan (a)) a = __copysignl (0, a);
|
||||
if (isnan (b)) b = __copysignl (0, b);
|
||||
if (isnan (c)) c = __copysignl (0, c);
|
||||
if (isnan (d)) d = __copysignl (0, d);
|
||||
recalc = 1;
|
||||
}
|
||||
if (recalc)
|
||||
{
|
||||
x = INFINITY * (a * c - b * d);
|
||||
y = INFINITY * (a * d + b * c);
|
||||
}
|
||||
}
|
||||
|
||||
return x + I * y;
|
||||
}
|
@ -1,2 +1,3 @@
|
||||
ieee754/ldbl-128
|
||||
ieee754/dbl-64
|
||||
ieee754/flt-32
|
||||
|
38
sysdeps/s390/bits/mathdef.h
Normal file
38
sysdeps/s390/bits/mathdef.h
Normal file
@ -0,0 +1,38 @@
|
||||
/* Copyright (C) 1997, 1998, 1999, 2000, 2004, 2006
|
||||
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
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#if !defined _MATH_H && !defined _COMPLEX_H
|
||||
# error "Never use <bits/mathdef.h> directly; include <math.h> instead"
|
||||
#endif
|
||||
|
||||
#if defined __USE_ISOC99 && defined _MATH_H && !defined _MATH_H_MATHDEF
|
||||
# define _MATH_H_MATHDEF 1
|
||||
|
||||
/* Normally, there is no long double type and the `float' and `double'
|
||||
expressions are evaluated as `double'. */
|
||||
typedef double float_t; /* `float' expressions are evaluated as
|
||||
`double'. */
|
||||
typedef double double_t; /* `double' expressions are evaluated as
|
||||
`double'. */
|
||||
|
||||
/* The values returned by `ilogb' for 0 and NaN respectively. */
|
||||
# define FP_ILOGB0 (-2147483647)
|
||||
# define FP_ILOGBNAN 2147483647
|
||||
|
||||
#endif /* ISO C99 */
|
@ -47,6 +47,21 @@ __NTH (__signbit (double __x))
|
||||
return __u.__i < 0;
|
||||
}
|
||||
|
||||
# ifndef __NO_LONG_DOUBLE_MATH
|
||||
__MATH_INLINE int
|
||||
__NTH (__signbitl (long double __x))
|
||||
{
|
||||
__extension__ union { long double __l; int __i[4]; } __u = { __l: __x };
|
||||
return __u.__i[0] < 0;
|
||||
}
|
||||
# else
|
||||
__MATH_INLINE int
|
||||
__NTH (__signbitl (long double __x))
|
||||
{
|
||||
return __signbit ((double) __x);
|
||||
}
|
||||
# endif
|
||||
|
||||
#endif /* C99 */
|
||||
|
||||
/* This code is used internally in the GNU libc. */
|
||||
@ -70,6 +85,17 @@ __NTH (__ieee754_sqrtf (float x))
|
||||
return res;
|
||||
}
|
||||
|
||||
# if !defined __NO_LONG_DOUBLE_MATH
|
||||
__MATH_INLINE long double
|
||||
__NTH (sqrtl (long double __x))
|
||||
{
|
||||
long double res;
|
||||
|
||||
asm ( "sqxbr %0,%1" : "=f" (res) : "f" (__x) );
|
||||
return res;
|
||||
}
|
||||
# endif /* !__NO_LONG_DOUBLE_MATH */
|
||||
|
||||
#endif /* __LIBC_INTERNAL_MATH_INLINES */
|
||||
|
||||
#endif /* __NO_MATH_INLINES */
|
||||
|
30
sysdeps/s390/fpu/e_sqrtl.c
Normal file
30
sysdeps/s390/fpu/e_sqrtl.c
Normal file
@ -0,0 +1,30 @@
|
||||
/* Square root. S/390 FPU version.
|
||||
Copyright (C) 2004, 2006 Free Software Foundation, Inc.
|
||||
Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <math_private.h>
|
||||
|
||||
long double
|
||||
__ieee754_sqrtl (long double x)
|
||||
{
|
||||
long double res;
|
||||
|
||||
asm ( "sqxbr %0,%1" : "=f" (res) : "f" (x) );
|
||||
return res;
|
||||
}
|
File diff suppressed because it is too large
Load Diff
@ -1,101 +0,0 @@
|
||||
/* Copyright (C) 1995, 1996, 1997 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
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#include "gmp.h"
|
||||
#include "gmp-impl.h"
|
||||
#include "longlong.h"
|
||||
#include "ieee754.h"
|
||||
#include <float.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
/* Convert a `long double' in IEEE854 standard double-precision format to a
|
||||
multi-precision integer representing the significand scaled up by its
|
||||
number of bits (64 for long double) and an integral power of two
|
||||
(MPN frexpl). */
|
||||
|
||||
mp_size_t
|
||||
__mpn_extract_long_double (mp_ptr res_ptr, mp_size_t size,
|
||||
int *expt, int *is_neg,
|
||||
long double value)
|
||||
{
|
||||
union ieee854_long_double u;
|
||||
u.d = value;
|
||||
|
||||
*is_neg = u.ieee.negative;
|
||||
*expt = (int) u.ieee.exponent - IEEE854_LONG_DOUBLE_BIAS;
|
||||
|
||||
#if BITS_PER_MP_LIMB == 32
|
||||
res_ptr[0] = u.ieee.mantissa1; /* Low-order 32 bits of fraction. */
|
||||
res_ptr[1] = u.ieee.mantissa0; /* High-order 32 bits. */
|
||||
#define N 2
|
||||
#elif BITS_PER_MP_LIMB == 64
|
||||
/* Hopefully the compiler will combine the two bitfield extracts
|
||||
and this composition into just the original quadword extract. */
|
||||
res_ptr[0] = ((unsigned long int) u.ieee.mantissa0 << 32) | u.ieee.mantissa1;
|
||||
#define N 1
|
||||
#else
|
||||
#error "mp_limb size " BITS_PER_MP_LIMB "not accounted for"
|
||||
#endif
|
||||
|
||||
if (u.ieee.exponent == 0)
|
||||
{
|
||||
/* A biased exponent of zero is a special case.
|
||||
Either it is a zero or it is a denormal number. */
|
||||
if (res_ptr[0] == 0 && res_ptr[N - 1] == 0) /* Assumes N<=2. */
|
||||
/* It's zero. */
|
||||
*expt = 0;
|
||||
else
|
||||
{
|
||||
/* It is a denormal number, meaning it has no implicit leading
|
||||
one bit, and its exponent is in fact the format minimum. */
|
||||
int cnt;
|
||||
|
||||
/* One problem with Intel's 80-bit format is that the explicit
|
||||
leading one in the normalized representation has to be zero
|
||||
for denormalized number. If it is one, the number is according
|
||||
to Intel's specification an invalid number. We make the
|
||||
representation unique by explicitly clearing this bit. */
|
||||
res_ptr[N - 1] &= ~(1L << ((LDBL_MANT_DIG - 1) % BITS_PER_MP_LIMB));
|
||||
|
||||
if (res_ptr[N - 1] != 0)
|
||||
{
|
||||
count_leading_zeros (cnt, res_ptr[N - 1]);
|
||||
if (cnt != 0)
|
||||
{
|
||||
#if N == 2
|
||||
res_ptr[N - 1] = res_ptr[N - 1] << cnt
|
||||
| (res_ptr[0] >> (BITS_PER_MP_LIMB - cnt));
|
||||
res_ptr[0] <<= cnt;
|
||||
#else
|
||||
res_ptr[N - 1] <<= cnt;
|
||||
#endif
|
||||
}
|
||||
*expt = LDBL_MIN_EXP - 1 - cnt;
|
||||
}
|
||||
else
|
||||
{
|
||||
count_leading_zeros (cnt, res_ptr[0]);
|
||||
res_ptr[N - 1] = res_ptr[0] << cnt;
|
||||
res_ptr[0] = 0;
|
||||
*expt = LDBL_MIN_EXP - 1 - BITS_PER_MP_LIMB - cnt;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return N;
|
||||
}
|
@ -5,3 +5,14 @@
|
||||
#else
|
||||
# define __WORDSIZE 32
|
||||
#endif
|
||||
|
||||
#if !defined __NO_LONG_DOUBLE_MATH && !defined __LONG_DOUBLE_MATH_OPTIONAL
|
||||
|
||||
/* Signal that we didn't used to have a `long double'. The changes all
|
||||
the `long double' function variants to be redirects to the double
|
||||
functions. */
|
||||
# define __LONG_DOUBLE_MATH_OPTIONAL 1
|
||||
# ifndef __LONG_DOUBLE_128__
|
||||
# define __NO_LONG_DOUBLE_MATH 1
|
||||
# endif
|
||||
#endif
|
||||
|
@ -5,3 +5,14 @@
|
||||
#else
|
||||
# define __WORDSIZE 32
|
||||
#endif
|
||||
|
||||
#if !defined __NO_LONG_DOUBLE_MATH && !defined __LONG_DOUBLE_MATH_OPTIONAL
|
||||
|
||||
/* Signal that we didn't used to have a `long double'. The changes all
|
||||
the `long double' function variants to be redirects to the double
|
||||
functions. */
|
||||
# define __LONG_DOUBLE_MATH_OPTIONAL 1
|
||||
# ifndef __LONG_DOUBLE_128__
|
||||
# define __NO_LONG_DOUBLE_MATH 1
|
||||
# endif
|
||||
#endif
|
||||
|
@ -1,5 +1,11 @@
|
||||
#include <math.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
|
||||
double __fabs (double x)
|
||||
{
|
||||
return __builtin_fabs (x);
|
||||
}
|
||||
weak_alias (__fabs, fabs)
|
||||
#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
|
||||
compat_symbol (libm, __fabs, fabsl, GLIBC_2_0);
|
||||
#endif
|
||||
|
@ -1,5 +1,8 @@
|
||||
#include <math.h>
|
||||
#include <math_ldbl_opt.h>
|
||||
|
||||
long double __fabsl (long double x)
|
||||
{
|
||||
return __builtin_fabsl (x);
|
||||
}
|
||||
weak_alias (__fabsl, fabsl)
|
||||
long_double_symbol (libm, __fabsl, fabsl);
|
||||
|
3
sysdeps/unix/sysv/linux/s390/Implies
Normal file
3
sysdeps/unix/sysv/linux/s390/Implies
Normal file
@ -0,0 +1,3 @@
|
||||
# These supply the ABI compatibility for when long double was double.
|
||||
ieee754/ldbl-64-128
|
||||
ieee754/ldbl-opt
|
2
sysdeps/unix/sysv/linux/s390/fpu/Implies
Normal file
2
sysdeps/unix/sysv/linux/s390/fpu/Implies
Normal file
@ -0,0 +1,2 @@
|
||||
# Override ldbl-opt with s390 specific routines.
|
||||
s390/fpu
|
8
sysdeps/unix/sysv/linux/s390/nldbl-abi.h
Normal file
8
sysdeps/unix/sysv/linux/s390/nldbl-abi.h
Normal file
@ -0,0 +1,8 @@
|
||||
/* ABI version for long double switch.
|
||||
This is used by the Versions and math_ldbl_opt.h files in
|
||||
sysdeps/ieee754/ldbl-opt/. It gives the ABI version where
|
||||
long double == double was replaced with proper long double
|
||||
for libm *l functions and libc functions using long double. */
|
||||
|
||||
#define NLDBL_VERSION GLIBC_2.4
|
||||
#define LONG_DOUBLE_COMPAT_VERSION GLIBC_2_4
|
@ -9,3 +9,13 @@ CFLAGS-rtld.c += -mcpu=v8
|
||||
sysdep-others += lddlibc4
|
||||
install-bin += lddlibc4
|
||||
endif # elf
|
||||
|
||||
ifeq ($(subdir),math)
|
||||
# These 2 routines are normally in libgcc{.a,_s.so.1}.
|
||||
# However, sparc32 -mlong-double-128 libgcc relies on
|
||||
# glibc providing _Q_* routines and without these files
|
||||
# glibc relies on __multc3/__divtc3 only provided
|
||||
# by libgcc if configured with -mlong-double-128.
|
||||
# Provide these routines here as well.
|
||||
libm-routines += multc3 divtc3
|
||||
endif # math
|
||||
|
2
sysdeps/unix/sysv/linux/sparc/sparc32/fpu/Implies
Normal file
2
sysdeps/unix/sysv/linux/sparc/sparc32/fpu/Implies
Normal file
@ -0,0 +1,2 @@
|
||||
# We must list this here to move it ahead of the ldbl-opt code.
|
||||
sparc/sparc32/fpu
|
Loading…
Reference in New Issue
Block a user