123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345 |
- /*
- * Wrapper functions implementing all the long double math functions
- * defined by SuSv3 by actually calling the double version of
- * each function and then casting the result back to a long double
- * to return to the user.
- *
- * Copyright (C) 2005 by Erik Andersen <andersen@uclibc.org>
- *
- * Licensed under the LGPL v2.1, see the file COPYING.LIB in this tarball.
- */
- #include <features.h>
- /* Prevent math.h from defining colliding inlines */
- #undef __USE_EXTERN_INLINES
- #include "math.h"
- #include <complex.h>
- #if !defined __NO_LONG_DOUBLE_MATH
- # define WRAPPER1(func) \
- long double func##l(long double x) \
- { \
- return (long double) func((double) x); \
- }
- # define WRAPPER2(func) \
- long double func##l(long double x, long double y) \
- { \
- return (long double) func((double) x, (double) y); \
- }
- # define int_WRAPPER1(func) \
- int func##l(long double x) \
- { \
- return func((double) x); \
- }
- # define long_WRAPPER1(func) \
- long func##l(long double x) \
- { \
- return func((double) x); \
- }
- # define long_long_WRAPPER1(func) \
- long long func##l(long double x) \
- { \
- return func((double) x); \
- }
- /* Implement the following, as defined by SuSv3 */
- #if 0
- long double asinhl(long double);
- long double atanl(long double);
- long double cargl(long double complex);
- long double cbrtl(long double);
- long double ceill(long double);
- long double copysignl(long double, long double);
- long double cosl(long double);
- long double erfcl(long double);
- long double erfl(long double);
- long double expm1l(long double);
- long double fabsl(long double);
- long double fdiml(long double, long double);
- long double floorl(long double);
- long double fmal(long double, long double, long double);
- long double fmaxl(long double, long double);
- long double fminl(long double, long double);
- long double frexpl(long double value, int *);
- int ilogbl(long double);
- long double ldexpl(long double, int);
- long long llrintl(long double);
- long long llroundl(long double);
- long double log1pl(long double);
- long double logbl(long double);
- long lrintl(long double);
- long lroundl(long double);
- long double modfl(long double, long double *);
- long double nearbyintl(long double);
- long double nextafterl(long double, long double);
- long double nexttowardl(long double, long double);
- long double remquol(long double, long double, int *);
- long double rintl(long double);
- long double roundl(long double);
- long double scalblnl(long double, long);
- long double scalbnl(long double, int);
- long double sinl(long double);
- long double tanhl(long double);
- long double tanl(long double);
- long double truncl(long double);
- #endif
- /* The following functions implemented as wrappers
- * in separate files (w_funcl.c)
- */
- #if 0
- long double acosl(long double);
- long double acoshl(long double);
- long double asinl(long double);
- long double atan2l(long double, long double);
- long double atanhl(long double);
- long double coshl(long double);
- long double exp2l(long double);
- long double expl(long double);
- long double fmodl(long double, long double);
- long double hypotl(long double, long double);
- long double lgammal(long double);
- long double log10l(long double);
- long double log2l(long double);
- long double logl(long double);
- long double powl(long double, long double);
- long double remainderl(long double, long double);
- long double sinhl(long double);
- long double sqrtl(long double);
- long double j0l(long double x);
- long double j1l(long double x);
- long double jnl(int n, long double x);
- long double y0l(long double x);
- long double y1l(long double x);
- long double ynl(int n, long double x);
- long double tgammal(long double x);
- long double scalbl(long double x, long double fn);
- long double gammal(long double x);
- long double scalbl(long double x, long double fn);
- #endif
- #ifdef L_asinhl
- WRAPPER1(asinh)
- #endif
- #ifdef L_atanl
- WRAPPER1(atan)
- #endif
- #ifdef L_cargl
- long double cargl (long double complex x)
- {
- return (long double) carg( (double complex)x );
- }
- #endif
- #ifdef L_cbrtl
- WRAPPER1(cbrt)
- #endif
- #ifdef L_ceill
- WRAPPER1(ceil)
- #endif
- #ifdef L_copysignl
- WRAPPER2(copysign)
- #endif
- #ifdef L_cosl
- WRAPPER1(cos)
- libm_hidden_def(cosl)
- #endif
- #ifdef L_erfcl
- WRAPPER1(erfc)
- #endif
- #ifdef L_erfl
- WRAPPER1(erf)
- #endif
- #ifdef L_expm1l
- WRAPPER1(expm1)
- #endif
- #ifdef L_fabsl
- WRAPPER1(fabs)
- #endif
- #ifdef L_fdiml
- WRAPPER2(fdim)
- #endif
- #ifdef L_floorl
- WRAPPER1(floor)
- #endif
- #ifdef L_fmal
- long double fmal (long double x, long double y, long double z)
- {
- return (long double) fma( (double)x, (double)y, (double)z );
- }
- #endif
- #ifdef L_fmaxl
- WRAPPER2(fmax)
- #endif
- #ifdef L_fminl
- WRAPPER2(fmin)
- #endif
- #ifdef L_frexpl
- long double frexpl (long double x, int *ex)
- {
- return (long double) frexp( (double)x, ex );
- }
- #endif
- #ifdef L_ilogbl
- int_WRAPPER1(ilogb)
- #endif
- #ifdef L_ldexpl
- long double ldexpl (long double x, int ex)
- {
- return (long double) ldexp( (double)x, ex );
- }
- #endif
- #ifdef L_llrintl
- long_long_WRAPPER1(llrint)
- #endif
- #ifdef L_llroundl
- long_long_WRAPPER1(llround)
- #endif
- #ifdef L_log1pl
- WRAPPER1(log1p)
- #endif
- #ifdef L_logbl
- WRAPPER1(logb)
- #endif
- #ifdef L_lrintl
- long_WRAPPER1(lrint)
- #endif
- #ifdef L_lroundl
- long_WRAPPER1(lround)
- #endif
- #ifdef L_modfl
- long double modfl (long double x, long double *iptr)
- {
- double y, result;
- result = modf ( x, &y );
- *iptr = (long double)y;
- return (long double) result;
- }
- #endif
- #ifdef L_nearbyintl
- WRAPPER1(nearbyint)
- #endif
- #ifdef L_nextafterl
- WRAPPER2(nextafter)
- libm_hidden_def(nextafterl)
- #endif
- #ifdef L_nexttowardl
- # if 0 /* TODO */
- strong_alias(nextafterl, nexttowardl)
- # else
- long double nexttowardl(long double x, long double y)
- {
- return nextafterl(x, y);
- }
- #endif
- #endif
- #ifdef L_remquol
- long double remquol (long double x, long double y, int *quo)
- {
- return (long double) remquo( (double)x, (double)y, quo );
- }
- #endif
- #ifdef L_rintl
- WRAPPER1(rint)
- #endif
- #ifdef L_roundl
- WRAPPER1(round)
- #endif
- #ifdef L_scalblnl
- long double scalblnl (long double x, long ex)
- {
- return (long double) scalbln( (double)x, ex );
- }
- #endif
- #ifdef L_scalbnl
- long double scalbnl (long double x, int ex)
- {
- return (long double) scalbn( (double)x, ex );
- }
- #endif
- #ifdef L_sinl
- WRAPPER1(sin)
- libm_hidden_def(sinl)
- #endif
- #ifdef L_tanhl
- WRAPPER1(tanh)
- #endif
- #ifdef L_tanl
- WRAPPER1(tan)
- #endif
- #ifdef L_truncl
- WRAPPER1(trunc)
- #endif
- #ifdef L_significandl
- WRAPPER1(significand)
- #endif
- #if defined __DO_C99_MATH__ && !defined __NO_LONG_DOUBLE_MATH
- # ifdef L___fpclassifyl
- int_WRAPPER1(__fpclassify)
- libm_hidden_def(__fpclassifyl)
- # endif
- # ifdef L___finitel
- int_WRAPPER1(__finite)
- libm_hidden_def(__finitel)
- # endif
- # ifdef L___signbitl
- int_WRAPPER1(__signbit)
- libm_hidden_def(__signbitl)
- # endif
- # ifdef L___isnanl
- int_WRAPPER1(__isnan)
- libm_hidden_def(__isnanl)
- # endif
- # ifdef L___isinfl
- int_WRAPPER1(__isinf)
- libm_hidden_def(__isinfl)
- # endif
- #endif /* __DO_C99_MATH__ */
- #endif /* __NO_LONG_DOUBLE_MATH */
|