fluencelabs/musl
1
0
Fork 0
mirror of https://github.com/fluencelabs/musl synced 2025-06-30 15:11:55 +00:00
Code Issues Projects Releases Wiki Activity

code cleanup of named constants

Browse Source 
zero, one, two, half are replaced by const literals
The policy was to use the f suffix for float consts (1.0f),
but don't use suffix for long double consts (these consts
can be exactly represented as double).
This commit is contained in:
nsz
2012-03-19 23:41:19 +01:00
parent b03255af77
commit 0cbb654791
73 changed files with 513 additions and 623 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/math/tanh.c
View File

@ -35,7 +35,7 @@
#include "libm.h"
static const double one = 1.0, two = 2.0, tiny = 1.0e-300, huge = 1.0e300;
static const double tiny = 1.0e-300, huge = 1.0e300;
double tanh(double x)
{
@ -48,26 +48,26 @@ double tanh(double x)
/* x is INF or NaN */
if (ix >= 0x7ff00000) {
if (jx >= 0)
return one/x + one; /* tanh(+-inf)=+-1 */
return 1.0f/x + 1.0f; /* tanh(+-inf)=+-1 */
else
return one/x - one; /* tanh(NaN) = NaN */
return 1.0f/x - 1.0f; /* tanh(NaN) = NaN */
}
if (ix < 0x40360000) { /* |x| < 22 */
if (ix < 0x3e300000) { /* |x| < 2**-28 */
/* tanh(tiny) = tiny with inexact */
if (huge+x > one)
if (huge+x > 1.0f)
return x;
}
if (ix >= 0x3ff00000) { /* |x| >= 1 */
t = expm1(two*fabs(x));
z = one - two/(t+two);
t = expm1(2.0f*fabs(x));
z = 1.0f - 2.0f/(t+2.0f);
} else {
t = expm1(-two*fabs(x));
z= -t/(t+two);
t = expm1(-2.0f*fabs(x));
z= -t/(t+2.0f);
}
} else { /* |x| >= 22, return +-1 */
z = one - tiny; /* raise inexact */
z = 1.0f - tiny; /* raise inexact */
}
return jx >= 0 ? z : -z;
}