newlib-cygwin/newlib/libc/machine/i386/f_powf.c

48 lines
1.4 KiB
C
Raw Normal View History

2000-02-18 03:39:52 +08:00
/*
* ====================================================
2002-12-20 Jeff Johnston <jjohnstn@redhat.com> * libc/machine/i386/f_atan2.S: Change copyright from Cygnus Solutions to Red Hat Inc. * libc/machine/i386/f_atan2f.S: Ditto. * libc/machine/i386/f_exp.c: Ditto. * libc/machine/i386/f_expf.c: Ditto. * libc/machine/i386/f_frexp.S: Ditto. * libc/machine/i386/f_frexpf.S: Ditto. * libc/machine/i386/f_ldexp.S: Ditto. * libc/machine/i386/f_ldexpf.S: Ditto. * libc/machine/i386/f_log.S: Ditto. * libc/machine/i386/f_log10.S: Ditto. * libc/machine/i386/f_log10f.S: Ditto. * libc/machine/i386/f_logf.S: Ditto. * libc/machine/i386/f_pow.c: Ditto. * libc/machine/i386/f_powf.c: Ditto. * libc/machine/i386/f_tan.S: Ditto. * libc/machine/i386/f_tanf.S: Ditto. * libc/machine/i386/memchr.S: Ditto. * libc/machine/i386/memcmp.S: Ditto. * libc/machine/i386/memcpy.S: Ditto. * libc/machine/i386/memmove.S: Ditto. * libc/machine/i386/memset.S: Ditto. * libc/machine/i386/strchr.S: Ditto. * libc/machine/i386/strlen.S: Ditto. * libm/machine/i386/f_atan2.S: Ditto. * libm/machine/i386/f_atan2f.S: Ditto. * libm/machine/i386/f_exp.c: Ditto. * libm/machine/i386/f_expf.c: Ditto. * libm/machine/i386/f_frexp.S: Ditto. * libm/machine/i386/f_frexpf.S: Ditto. * libm/machine/i386/f_ldexp.S: Ditto. * libm/machine/i386/f_ldexpf.S: Ditto. * libm/machine/i386/f_log.S: Ditto. * libm/machine/i386/f_log10.S: Ditto. * libm/machine/i386/f_log10f.S: Ditto. * libm/machine/i386/f_logf.S: Ditto. * libm/machine/i386/f_pow.c: Ditto. * libm/machine/i386/f_powf.c: Ditto. * libm/machine/i386/f_tan.S: Ditto. * libm/machine/i386/f_tanf.S: Ditto.
2002-12-21 05:31:20 +08:00
* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.
2000-02-18 03:39:52 +08:00
*
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* is preserved.
* ====================================================
*/
#if !defined(_SOFT_FLOAT)
2000-02-18 03:39:52 +08:00
/*
Fast version of pow using Intel float instructions.
float _f_powf (float x, float 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 powf() function which will
set errno as normal.
*/
#include <math.h>
#include <ieeefp.h>
#include "f_math.h"
float _f_powf (float x, float y)
{
/* following sequence handles the majority of cases for pow() */
if (x > 0.0 && check_finitef(y))
{
float 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 ("flds 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 powf (x,y);
}
#endif