From a6c1ed4716cf02626ea035beb6dd4a921642ba80 Mon Sep 17 00:00:00 2001 From: PikalaxALT Date: Wed, 3 Jan 2018 17:39:24 -0700 Subject: Use libc from agbcc instead of standalone newlib\nYou must have AGBCC commit 80d029caec189587f8b9294b6c8a5a489b8f5f88 in order to compile pmd_red.gba --- newlib/libm/mathfp/s_pow.c | 146 --------------------------------------------- 1 file changed, 146 deletions(-) delete mode 100644 newlib/libm/mathfp/s_pow.c (limited to 'newlib/libm/mathfp/s_pow.c') diff --git a/newlib/libm/mathfp/s_pow.c b/newlib/libm/mathfp/s_pow.c deleted file mode 100644 index 7c0a38a..0000000 --- a/newlib/libm/mathfp/s_pow.c +++ /dev/null @@ -1,146 +0,0 @@ - -/* @(#)z_pow.c 1.0 98/08/13 */ - -/* -FUNCTION - <>, <>---x to the power y -INDEX - pow -INDEX - powf - - -ANSI_SYNOPSIS - #include - double pow(double <[x]>, double <[y]>); - float pow(float <[x]>, float <[y]>); - -TRAD_SYNOPSIS - #include - double pow(<[x]>, <[y]>); - double <[x]>, <[y]>; - - float pow(<[x]>, <[y]>); - float <[x]>, <[y]>; - -DESCRIPTION - <> and <> calculate <[x]> raised to the exp1.0nt <[y]>. - @tex - (That is, $x^y$.) - @end tex - -RETURNS - On success, <> and <> return the value calculated. - - When the argument values would produce overflow, <> - returns <> and set <> to <>. If the - argument <[x]> passed to <> or <> is a negative - noninteger, and <[y]> is also not an integer, then <> - is set to <>. If <[x]> and <[y]> are both 0, then - <> and <> return <<1>>. - - You can modify error handling for these functions using <>. - -PORTABILITY - <> is ANSI C. <> is an extension. */ - -#include -#include "fdlibm.h" -#include "zmath.h" - -#ifndef _DOUBLE_IS_32BITS - -double pow (double x, double y) -{ - double d, t, r = 1.0; - int n, k, sign = 0; - __uint32_t px; - - GET_HIGH_WORD (px, x); - - k = modf (y, &d); - if (k == 0.0) - { - if (modf (ldexp (y, -1), &t)) - sign = 0; - else - sign = 1; - } - - if (x == 0.0 && y <= 0.0) - errno = EDOM; - - else if ((t = y * log (fabs (x))) >= BIGX) - { - errno = ERANGE; - if (px & 0x80000000) - { - if (!k) - { - errno = EDOM; - x = 0.0; - } - else if (sign) - x = -z_infinity.d; - else - x = z_infinity.d; - } - - else - x = z_infinity.d; - } - - else if (t < SMALLX) - { - errno = ERANGE; - x = 0.0; - } - - else - { - if ( k && fabs(d) <= 32767 ) - { - n = (int) d; - - if (sign = (n < 0)) - n = -n; - - while ( n > 0 ) - { - if ((unsigned int) n % 2) - r *= x; - x *= x; - n = (unsigned int) n / 2; - } - - if (sign) - r = 1.0 / r; - - return r; - } - - else - { - if ( px & 0x80000000 ) - { - if ( !k ) - { - errno = EDOM; - return 0.0; - } - } - - x = exp (t); - - if ( sign ) - { - px ^= 0x80000000; - SET_HIGH_WORD (x, px); - } - } - } - - return x; -} - -#endif _DOUBLE_IS_32BITS -- cgit v1.2.3