72db1c11e9
atanh, atanhf, atanhl): Add prototypes. * mingwex/Makefile.in (MATH_OBJS): Add objects for above to list. (MATH_DISTFILES): Add sources for above and fastmath.h to list. Specify dependency on fastmath.h for new objects. * mingwex/math/fastmath.h: New file. * mingwex/math/ashinh.c: New file. * mingwex/math/asinhf.c: New file. * mingwex/math/asinhl.c: New file. * mingwex/math/acosh.c: New file. * mingwex/math/acoshf.c: New file. * mingwex/math/acoshl.c: New file. * mingwex/math/atanh.c: New file. * mingwex/math/atanhf.c: New file. * mingwex/math/atanhl.c: New file.
116 lines
2.5 KiB
C
Executable File
116 lines
2.5 KiB
C
Executable File
#ifndef _MINGWEX_FASTMATH_H_
|
|
#define _MINGWEX_FASTMATH_H_
|
|
|
|
/* Fast math inlines
|
|
No range or domain checks. No setting of errno. No tweaks to
|
|
protect precision near range limits. */
|
|
|
|
/* For now this is an internal header with just the functions that
|
|
are currently used in building libmingwex.a math components */
|
|
|
|
/* FIXME: We really should get rid of the code duplication using euther
|
|
C++ templates or tgmath-type macros. */
|
|
|
|
static __inline__ double __fast_sqrt (double x)
|
|
{
|
|
double res;
|
|
asm __volatile__ ("fsqrt" : "=t" (res) : "0" (x));
|
|
return res;
|
|
}
|
|
|
|
static __inline__ long double __fast_sqrtl (long double x)
|
|
{
|
|
long double res;
|
|
asm __volatile__ ("fsqrt" : "=t" (res) : "0" (x));
|
|
return res;
|
|
}
|
|
|
|
static __inline__ float __fast_sqrtf (float x)
|
|
{
|
|
float res;
|
|
asm __volatile__ ("fsqrt" : "=t" (res) : "0" (x));
|
|
return res;
|
|
}
|
|
|
|
|
|
static __inline__ double __fast_log (double x)
|
|
{
|
|
double res;
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2x"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
static __inline__ long double __fast_logl (long double x)
|
|
{
|
|
long double res;
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2x"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
|
|
static __inline__ float __fast_logf (float x)
|
|
{
|
|
float res;
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2x"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
static __inline__ double __fast_log1p (double x)
|
|
{
|
|
double res;
|
|
/* fyl2xp1 accurate only for |x| <= 1.0 - 0.5 * sqrt (2.0) */
|
|
if (fabs (x) >= 1.0 - 0.5 * 1.41421356237309504880)
|
|
res = __fast_log (1.0 + x);
|
|
else
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2xp1"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
static __inline__ long double __fast_log1pl (long double x)
|
|
{
|
|
long double res;
|
|
/* fyl2xp1 accurate only for |x| <= 1.0 - 0.5 * sqrt (2.0) */
|
|
if (fabsl (x) >= 1.0L - 0.5L * 1.41421356237309504880L)
|
|
res = __fast_logl (1.0L + x);
|
|
else
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2xp1"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
static __inline__ float __fast_log1pf (float x)
|
|
{
|
|
float res;
|
|
/* fyl2xp1 accurate only for |x| <= 1.0 - 0.5 * sqrt (2.0) */
|
|
if (fabsf (x) >= 1.0 - 0.5 * 1.41421356237309504880)
|
|
res = __fast_logf (1.0 + x);
|
|
else
|
|
asm __volatile__
|
|
("fldln2\n\t"
|
|
"fxch\n\t"
|
|
"fyl2xp1"
|
|
: "=t" (res) : "0" (x) : "st(1)");
|
|
return res;
|
|
}
|
|
|
|
#endif
|