mirror of
git://sourceware.org/git/newlib-cygwin.git
synced 2025-01-15 19:09:58 +08:00
348c5e06c2
* libc/include/sys/unistd.h: Prototype chroot() for RTEMS.
2001-08-29 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
* libc/machine/i386/f_atan2.S, libc/machine/i386/f_atan2f.S,
libc/machine/i386/f_exp.c, libc/machine/i386/f_expf.c,
libc/machine/i386/f_frexp.S, libc/machine/i386/f_frexpf.S,
libc/machine/i386/f_ldexp.S, libc/machine/i386/f_ldexpf.S,
libc/machine/i386/f_log.S, libc/machine/i386/f_log10.S,
libc/machine/i386/f_log10f.S, libc/machine/i386/f_logf.S,
libc/machine/i386/f_pow.c, libc/machine/i386/f_powf.c,
libc/machine/i386/f_tan.S, libc/machine/i386/f_tanf.S:
Add conditional compilation to avoid HW FPU instructions
when compiled for soft-float.
48 lines
1.4 KiB
C
48 lines
1.4 KiB
C
/*
|
|
* ====================================================
|
|
* Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
|
|
*
|
|
* Permission to use, copy, modify, and distribute this
|
|
* software is freely granted, provided that this notice
|
|
* is preserved.
|
|
* ====================================================
|
|
*/
|
|
|
|
#if !defined(_SOFT_FLOAT)
|
|
|
|
/*
|
|
Fast version of pow using Intel float instructions.
|
|
|
|
double _f_pow (double x, double y);
|
|
|
|
Function calculates x to power of y.
|
|
The function optimizes the case where x is >0.0 and y is finite.
|
|
In such a case, there is no error checking or setting of errno.
|
|
All other cases defer to normal pow() function which will
|
|
set errno as normal.
|
|
*/
|
|
|
|
#include <math.h>
|
|
#include <ieeefp.h>
|
|
#include "f_math.h"
|
|
|
|
double _f_pow (double x, double y)
|
|
{
|
|
/* following sequence handles the majority of cases for pow() */
|
|
if (x > 0.0 && check_finite(y))
|
|
{
|
|
double result;
|
|
/* calculate x ** y as 2 ** (y log2(x)). On Intel, can only
|
|
raise 2 to an integer or a small fraction, thus, we have
|
|
to perform two steps 2**integer portion * 2**fraction. */
|
|
asm ("fldl 8(%%ebp); fyl2x; fld %%st; frndint; fsub %%st,%%st(1);" \
|
|
"fxch; fchs; f2xm1; fld1; faddp; fxch; fld1; fscale; fstp %%st(1);"\
|
|
"fmulp" : "=t" (result) : "0" (y));
|
|
return result;
|
|
}
|
|
else /* all other strange cases, defer to normal pow() */
|
|
return pow (x,y);
|
|
}
|
|
|
|
#endif
|