mirror of
git://sourceware.org/git/newlib-cygwin.git
synced 2025-01-17 20:09:21 +08:00
c156098271
Based on code from https://github.com/ARM-software/optimized-routines/ This patch adds a highly optimized generic implementation of expf, exp2f, logf, log2f and powf. The new functions are not only faster (6x for powf!), but are also smaller and more accurate. In order to achieve this, the algorithm uses double precision arithmetic for accuracy, avoids divisions and uses small table lookups to minimize the polynomials. Special cases are handled inline to avoid the unnecessary overhead of wrapper functions and set errno to POSIX requirements. The new functions are added under newlib/libm/common, but the old implementations are kept (in newlib/libm/math) for non-IEEE or pre-C99 systems. Targets can enable the new math code by defining __OBSOLETE_MATH_DEFAULT to 0 in newlib/libc/include/machine/ieeefp.h, users can override the default by defining __OBSOLETE_MATH. Currently the new code is enabled for AArch64 and AArch32 with VFP. Targets with a single precision FPU may still prefer the old implementation. libm.a size changes: arm: -1692 arm/thumb/v7-a/nofp: -878 arm/thumb/v7-a+fp/hard: -864 arm/thumb/v7-a+fp/softfp: -908 aarch64: -1476
106 lines
2.2 KiB
C
106 lines
2.2 KiB
C
/* wf_exp.c -- float version of w_exp.c.
|
|
* Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
|
|
*/
|
|
|
|
/*
|
|
* ====================================================
|
|
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
|
*
|
|
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
|
* Permission to use, copy, modify, and distribute this
|
|
* software is freely granted, provided that this notice
|
|
* is preserved.
|
|
* ====================================================
|
|
*/
|
|
|
|
/*
|
|
* wrapper expf(x)
|
|
*/
|
|
|
|
#include "fdlibm.h"
|
|
#if __OBSOLETE_MATH
|
|
#include <errno.h>
|
|
|
|
#ifdef __STDC__
|
|
static const float
|
|
#else
|
|
static float
|
|
#endif
|
|
o_threshold= 8.8721679688e+01, /* 0x42b17180 */
|
|
u_threshold= -1.0397208405e+02; /* 0xc2cff1b5 */
|
|
|
|
#ifdef __STDC__
|
|
float expf(float x) /* wrapper expf */
|
|
#else
|
|
float expf(x) /* wrapper expf */
|
|
float x;
|
|
#endif
|
|
{
|
|
#ifdef _IEEE_LIBM
|
|
return __ieee754_expf(x);
|
|
#else
|
|
float z;
|
|
struct exception exc;
|
|
z = __ieee754_expf(x);
|
|
if(_LIB_VERSION == _IEEE_) return z;
|
|
if(finitef(x)) {
|
|
if(x>o_threshold) {
|
|
/* expf(finite) overflow */
|
|
#ifndef HUGE_VAL
|
|
#define HUGE_VAL inf
|
|
double inf = 0.0;
|
|
|
|
SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */
|
|
#endif
|
|
exc.type = OVERFLOW;
|
|
exc.name = "expf";
|
|
exc.err = 0;
|
|
exc.arg1 = exc.arg2 = (double)x;
|
|
if (_LIB_VERSION == _SVID_)
|
|
exc.retval = HUGE;
|
|
else
|
|
exc.retval = HUGE_VAL;
|
|
if (_LIB_VERSION == _POSIX_)
|
|
errno = ERANGE;
|
|
else if (!matherr(&exc)) {
|
|
errno = ERANGE;
|
|
}
|
|
if (exc.err != 0)
|
|
errno = exc.err;
|
|
return exc.retval;
|
|
} else if(x<u_threshold) {
|
|
/* expf(finite) underflow */
|
|
exc.type = UNDERFLOW;
|
|
exc.name = "expf";
|
|
exc.err = 0;
|
|
exc.arg1 = exc.arg2 = (double)x;
|
|
exc.retval = 0.0;
|
|
if (_LIB_VERSION == _POSIX_)
|
|
errno = ERANGE;
|
|
else if (!matherr(&exc)) {
|
|
errno = ERANGE;
|
|
}
|
|
if (exc.err != 0)
|
|
errno = exc.err;
|
|
return exc.retval;
|
|
}
|
|
}
|
|
return z;
|
|
#endif
|
|
}
|
|
|
|
#ifdef _DOUBLE_IS_32BITS
|
|
|
|
#ifdef __STDC__
|
|
double exp(double x)
|
|
#else
|
|
double exp(x)
|
|
double x;
|
|
#endif
|
|
{
|
|
return (double) expf((float) x);
|
|
}
|
|
|
|
#endif /* defined(_DOUBLE_IS_32BITS) */
|
|
#endif /* __OBSOLETE_MATH */
|