projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix return value of ungetc when argument is outside unsigned char range
[musl]
/
src
/
math
/
acoshf.c
diff --git
a/src/math/acoshf.c
b/src/math/acoshf.c
index
4596085
..
8a4ec4d
100644
(file)
--- a/
src/math/acoshf.c
+++ b/
src/math/acoshf.c
@@
-1,16
+1,25
@@
#include "libm.h"
#include "libm.h"
+#if FLT_EVAL_METHOD==2
+#undef sqrtf
+#define sqrtf sqrtl
+#elif FLT_EVAL_METHOD==1
+#undef sqrtf
+#define sqrtf sqrt
+#endif
+
/* acosh(x) = log(x + sqrt(x*x-1)) */
float acoshf(float x)
{
/* acosh(x) = log(x + sqrt(x*x-1)) */
float acoshf(float x)
{
- union {float f; int32_t i;} u = {.f = x};
+ union {float f; uint32_t i;} u = {x};
+ uint32_t a = u.i & 0x7fffffff;
- if (
u.i
< 0x3f800000+(1<<23))
- /*
x
< 2, invalid if x < 1 or nan */
+ if (
a
< 0x3f800000+(1<<23))
+ /*
|x|
< 2, invalid if x < 1 or nan */
/* up to 2ulp error in [1,1.125] */
return log1pf(x-1 + sqrtf((x-1)*(x-1)+2*(x-1)));
/* up to 2ulp error in [1,1.125] */
return log1pf(x-1 + sqrtf((x-1)*(x-1)+2*(x-1)));
- if (
u.i
< 0x3f800000+(12<<23))
- /*
x
< 0x1p12 */
+ if (
a
< 0x3f800000+(12<<23))
+ /*
|x|
< 0x1p12 */
return logf(2*x - 1/(x+sqrtf(x*x-1)));
/* x >= 0x1p12 */
return logf(x) + 0.693147180559945309417232121458176568f;
return logf(2*x - 1/(x+sqrtf(x*x-1)));
/* x >= 0x1p12 */
return logf(x) + 0.693147180559945309417232121458176568f;