diff options
Diffstat (limited to 'libc/sysdeps')
29 files changed, 3 insertions, 282 deletions
diff --git a/libc/sysdeps/ieee754/dbl-wrap/dbl-wrap.h b/libc/sysdeps/ieee754/dbl-wrap/dbl-wrap.h deleted file mode 100644 index b3818281c..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/dbl-wrap.h +++ /dev/null @@ -1,2 +0,0 @@ -typedef float wrap_type_t; -#define WRAP_FUNC(func) func ## f diff --git a/libc/sysdeps/ieee754/dbl-wrap/dosincos.c b/libc/sysdeps/ieee754/dbl-wrap/dosincos.c deleted file mode 100644 index 40a8c178f..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/dosincos.c +++ /dev/null @@ -1 +0,0 @@ -/* empty */ diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_asin.c b/libc/sysdeps/ieee754/dbl-wrap/e_asin.c deleted file mode 100644 index 86416b332..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_asin.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_asin) (wrap_type_t); - -double -__ieee754_asin (double x) -{ - return (double) WRAP_FUNC (__ieee754_asin) ((wrap_type_t) x); -} - -wrap_type_t WRAP_FUNC (__ieee754_acos) (wrap_type_t); - -double -__ieee754_acos (double x) -{ - return (double) WRAP_FUNC (__ieee754_acos) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_atan2.c b/libc/sysdeps/ieee754/dbl-wrap/e_atan2.c deleted file mode 100644 index 4bcb05862..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_atan2.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_atan2) (wrap_type_t, wrap_type_t); - -double -__ieee754_atan2 (double y, double x) -{ - return (double) WRAP_FUNC (__ieee754_atan2) ((wrap_type_t) y, (wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_exp.c b/libc/sysdeps/ieee754/dbl-wrap/e_exp.c deleted file mode 100644 index df3447e8c..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_exp.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_exp) (wrap_type_t); - -double -__ieee754_exp (double x) -{ - return (double) WRAP_FUNC (__ieee754_exp) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_exp2.c b/libc/sysdeps/ieee754/dbl-wrap/e_exp2.c deleted file mode 100644 index 121c29727..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_exp2.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_exp2) (wrap_type_t); - -double -__ieee754_exp2 (double x) -{ - return (double) WRAP_FUNC (__ieee754_exp2) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_log.c b/libc/sysdeps/ieee754/dbl-wrap/e_log.c deleted file mode 100644 index 557775f02..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_log.c +++ /dev/null @@ -1,8 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_log) (wrap_type_t); - -double __ieee754_log (double x) -{ - return (double) WRAP_FUNC (__ieee754_log) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/e_pow.c b/libc/sysdeps/ieee754/dbl-wrap/e_pow.c deleted file mode 100644 index 0f74d5107..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/e_pow.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_pow) (wrap_type_t, wrap_type_t); - -double -__ieee754_pow (double x, double y) -{ - return (double) WRAP_FUNC (__ieee754_pow) ((wrap_type_t) x, (wrap_type_t) y); -} diff --git a/libc/sysdeps/ieee754/dbl-wrap/s_atan.c b/libc/sysdeps/ieee754/dbl-wrap/s_atan.c deleted file mode 100644 index 5099dd6c5..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/s_atan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (atan) (wrap_type_t); - -double -atan (double x) -{ - return (double) WRAP_FUNC (atan) ((wrap_type_t) x); -} - -#ifdef NO_LONG_DOUBLE -weak_alias (atan, atanl) -#endif diff --git a/libc/sysdeps/ieee754/dbl-wrap/s_sin.c b/libc/sysdeps/ieee754/dbl-wrap/s_sin.c deleted file mode 100644 index fbe2a972b..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/s_sin.c +++ /dev/null @@ -1,27 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (__sin) (wrap_type_t); - -double -__sin (double x) -{ - return (double) WRAP_FUNC (__sin) ((wrap_type_t) x); -} - -wrap_type_t WRAP_FUNC (__cos) (wrap_type_t); - -double -__cos (double x) -{ - return (double) WRAP_FUNC (__cos) ((wrap_type_t) x); -} - -weak_alias (__cos, cos) -weak_alias (__sin, sin) - -#ifdef NO_LONG_DOUBLE -strong_alias (__sin, __sinl) -weak_alias (__sin, sinl) -strong_alias (__cos, __cosl) -weak_alias (__cos, cosl) -#endif diff --git a/libc/sysdeps/ieee754/dbl-wrap/s_tan.c b/libc/sysdeps/ieee754/dbl-wrap/s_tan.c deleted file mode 100644 index ddc99affd..000000000 --- a/libc/sysdeps/ieee754/dbl-wrap/s_tan.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "dbl-wrap.h" - -wrap_type_t WRAP_FUNC (tan) (wrap_type_t); - -double -tan (double x) -{ - return (double) WRAP_FUNC (tan) ((wrap_type_t) x); -} - -#ifdef NO_LONG_DOUBLE -weak_alias (tan, tanl) -#endif diff --git a/libc/sysdeps/ieee754/ldbl-128/s_erfl.c b/libc/sysdeps/ieee754/ldbl-128/s_erfl.c index 2d0243384..85c635637 100644 --- a/libc/sysdeps/ieee754/ldbl-128/s_erfl.c +++ b/libc/sysdeps/ieee754/ldbl-128/s_erfl.c @@ -98,9 +98,6 @@ #include <math.h> #include <math_private.h> -#include <gnu/option-groups.h> - -#if __OPTION_EGLIBC_LIBM_BIG /* Evaluate P[n] x^n + P[n-1] x^(n-1) + ... + P[0] */ @@ -934,9 +931,4 @@ __erfcl (long double x) } } -#else /* !__OPTION_EGLIBC_LIBM_BIG */ -# include <sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c> -weak_alias (__erfl, erfl) -#endif /* __OPTION_EGLIBC_LIBM_BIG */ - weak_alias (__erfcl, erfcl) diff --git a/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c b/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c index 3b9c7573f..fad18e9da 100644 --- a/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c +++ b/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c @@ -55,9 +55,6 @@ #include <math.h> #include <math_private.h> -#include <gnu/option-groups.h> - -#if __OPTION_EGLIBC_LIBM_BIG /* Coefficients for log(1+x) = x - x^2 / 2 + x^3 P(x)/Q(x) * 1/sqrt(2) <= 1+x < sqrt(2) @@ -254,8 +251,4 @@ __log1pl (long double xm1) return (z); } -#else /* !__OPTION_EGLIBC_LIBM_BIG */ -# include <sysdeps/ieee754/ldbl-wrap/s_log1pl-wrap.c> -#endif /* __OPTION_EGLIBC_LIBM_BIG */ - weak_alias (__log1pl, log1pl) diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c index 05e65af7d..6a4475ed6 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c @@ -104,9 +104,6 @@ #include <math.h> #include <math_private.h> #include <math_ldbl_opt.h> -#include <gnu/option-groups.h> - -#if __OPTION_EGLIBC_LIBM_BIG /* Evaluate P[n] x^n + P[n-1] x^(n-1) + ... + P[0] */ @@ -957,9 +954,4 @@ __erfcl (long double x) } } -#else /* !__OPTION_EGLIBC_LIBM_BIG */ -# include <sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c> -long_double_symbol (libm, __erfl, erfl); -#endif /* __OPTION_EGLIBC_LIBM_BIG */ - long_double_symbol (libm, __erfcl, erfcl); diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_log1pl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_log1pl.c index 1d9e8ae07..77c4fdea8 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_log1pl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_log1pl.c @@ -56,9 +56,6 @@ #include <math.h> #include <math_private.h> #include <math_ldbl_opt.h> -#include <gnu/option-groups.h> - -#if __OPTION_EGLIBC_LIBM_BIG /* Coefficients for log(1+x) = x - x^2 / 2 + x^3 P(x)/Q(x) * 1/sqrt(2) <= 1+x < sqrt(2) @@ -251,8 +248,4 @@ __log1pl (long double xm1) return (z); } -#else /* !__OPTION_EGLIBC_LIBM_BIG */ -# include <sysdeps/ieee754/ldbl-wrap/s_log1pl-wrap.c> -#endif /* __OPTION_EGLIBC_LIBM_BIG */ - long_double_symbol (libm, __log1pl, log1pl); diff --git a/libc/sysdeps/ieee754/ldbl-96/s_erfl.c b/libc/sysdeps/ieee754/ldbl-96/s_erfl.c index 574b061ad..b49a49be9 100644 --- a/libc/sysdeps/ieee754/ldbl-96/s_erfl.c +++ b/libc/sysdeps/ieee754/ldbl-96/s_erfl.c @@ -106,9 +106,6 @@ #include <math.h> #include <math_private.h> -#include <gnu/option-groups.h> - -#if __OPTION_EGLIBC_LIBM_BIG static const long double tiny = 1e-4931L, @@ -438,9 +435,4 @@ __erfcl (long double x) } } -#else /* !__OPTION_EGLIBC_LIBM_BIG */ -# include <sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c> -weak_alias (__erfl, erfl) -#endif /* __OPTION_EGLIBC_LIBM_BIG */ - weak_alias (__erfcl, erfcl) diff --git a/libc/sysdeps/ieee754/ldbl-opt/s_atan.c b/libc/sysdeps/ieee754/ldbl-opt/s_atan.c index 81d325e3d..5fbd5e62d 100644 --- a/libc/sysdeps/ieee754/ldbl-opt/s_atan.c +++ b/libc/sysdeps/ieee754/ldbl-opt/s_atan.c @@ -1,10 +1,5 @@ #include <math_ldbl_opt.h> -#include <gnu/option-groups.h> -#if __OPTION_EGLIBC_LIBM_BIG -# include <sysdeps/ieee754/dbl-64/s_atan.c> -#else -# include <sysdeps/ieee754/dbl-wrap/s_atan.c> -#endif +#include <sysdeps/ieee754/dbl-64/s_atan.c> #if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0) compat_symbol (libm, atan, atanl, GLIBC_2_0); #endif diff --git a/libc/sysdeps/ieee754/ldbl-opt/s_sin.c b/libc/sysdeps/ieee754/ldbl-opt/s_sin.c index 381d24d24..a11d5a33d 100644 --- a/libc/sysdeps/ieee754/ldbl-opt/s_sin.c +++ b/libc/sysdeps/ieee754/ldbl-opt/s_sin.c @@ -1,14 +1,9 @@ /* dbl-64/s_sin.c uses NAN and sincos identifiers internally. */ #define sincos sincos_disable #include <math_ldbl_opt.h> -#include <gnu/option-groups.h> #undef NAN #undef sincos -#if __OPTION_EGLIBC_LIBM_BIG -# include <sysdeps/ieee754/dbl-64/s_sin.c> -#else -# include <sysdeps/ieee754/dbl-wrap/s_sin.c> -#endif +#include <sysdeps/ieee754/dbl-64/s_sin.c> #if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0) compat_symbol (libm, __sin, sinl, GLIBC_2_0); compat_symbol (libm, __cos, cosl, GLIBC_2_0); diff --git a/libc/sysdeps/ieee754/ldbl-opt/s_tan.c b/libc/sysdeps/ieee754/ldbl-opt/s_tan.c index 23b45ad28..6b0fec006 100644 --- a/libc/sysdeps/ieee754/ldbl-opt/s_tan.c +++ b/libc/sysdeps/ieee754/ldbl-opt/s_tan.c @@ -1,10 +1,5 @@ #include <math_ldbl_opt.h> -#include <gnu/option-groups.h> -#if __OPTION_EGLIBC_LIBM_BIG -# include <sysdeps/ieee754/dbl-64/s_tan.c> -#else -# include <sysdeps/ieee754/dbl-wrap/s_tan.c> -#endif +#include <sysdeps/ieee754/dbl-64/s_tan.c> #if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0) compat_symbol (libm, tan, tanl, GLIBC_2_0); #endif diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_acosl.c b/libc/sysdeps/ieee754/ldbl-wrap/e_acosl.c deleted file mode 100644 index ab0c879b2..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_acosl.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_acos) (wrap_type_t); - -long double -__ieee754_acosl (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_acos) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_asinl.c b/libc/sysdeps/ieee754/ldbl-wrap/e_asinl.c deleted file mode 100644 index 71ee4f95f..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_asinl.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_asin) (wrap_type_t); - -long double -__ieee754_asinl (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_asin) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_expl.c b/libc/sysdeps/ieee754/ldbl-wrap/e_expl.c deleted file mode 100644 index 75a5343ca..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_expl.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_exp) (wrap_type_t); - -long double -__ieee754_expl (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_exp) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_j0l.c b/libc/sysdeps/ieee754/ldbl-wrap/e_j0l.c deleted file mode 100644 index a213d7077..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_j0l.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_j0) (wrap_type_t); - -long double -__ieee754_j0l (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_j0) ((wrap_type_t) x); -} - -wrap_type_t WRAP_FUNC (__ieee754_y0) (wrap_type_t); - -long double -__ieee754_y0l (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_y0) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_j1l.c b/libc/sysdeps/ieee754/ldbl-wrap/e_j1l.c deleted file mode 100644 index b2c7de111..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_j1l.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_j1) (wrap_type_t); - -long double -__ieee754_j1l (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_j1) ((wrap_type_t) x); -} - -wrap_type_t WRAP_FUNC (__ieee754_y1) (wrap_type_t); - -long double -__ieee754_y1l (long double x) -{ - return (long double) WRAP_FUNC (__ieee754_y1) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_lgammal_r.c b/libc/sysdeps/ieee754/ldbl-wrap/e_lgammal_r.c deleted file mode 100644 index 80d615312..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_lgammal_r.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC2 (__ieee754_lgamma, _r) (wrap_type_t, int *); - -long double -__ieee754_lgammal_r (long double x, int *s) -{ - return (long double) WRAP_FUNC2 (__ieee754_lgamma, _r) ((wrap_type_t) x, s); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/e_powl.c b/libc/sysdeps/ieee754/ldbl-wrap/e_powl.c deleted file mode 100644 index ef779ceaf..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/e_powl.c +++ /dev/null @@ -1,10 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__ieee754_pow) (wrap_type_t, wrap_type_t); - -long double -__ieee754_powl (long double x, long double y) -{ - return (long double) WRAP_FUNC (__ieee754_pow) ((wrap_type_t) x, - (wrap_type_t) y); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/ldbl-wrap.h b/libc/sysdeps/ieee754/ldbl-wrap/ldbl-wrap.h deleted file mode 100644 index 36aeffe02..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/ldbl-wrap.h +++ /dev/null @@ -1,3 +0,0 @@ -typedef float wrap_type_t; -#define WRAP_FUNC(func) func ## f -#define WRAP_FUNC2(func, suffix) func ## f ## suffix diff --git a/libc/sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c b/libc/sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c deleted file mode 100644 index 837f97b2d..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/s_erfl-wrap.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__erf) (wrap_type_t); - -long double -__erfl (long double x) -{ - return (long double) WRAP_FUNC (__erf) ((wrap_type_t) x); -} - -wrap_type_t WRAP_FUNC (__erfc) (wrap_type_t); - -long double -__erfcl (long double x) -{ - return (long double) WRAP_FUNC (__erfc) ((wrap_type_t) x); -} diff --git a/libc/sysdeps/ieee754/ldbl-wrap/s_log1pl-wrap.c b/libc/sysdeps/ieee754/ldbl-wrap/s_log1pl-wrap.c deleted file mode 100644 index d53185386..000000000 --- a/libc/sysdeps/ieee754/ldbl-wrap/s_log1pl-wrap.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "ldbl-wrap.h" - -wrap_type_t WRAP_FUNC (__log1p) (wrap_type_t); - -long double -__log1pl (long double x) -{ - return (long double) WRAP_FUNC (__log1p) ((wrap_type_t) x); -} |