mirror of
https://git.code.sf.net/p/mingw-w64/mingw-w64
synced 2025-04-18 17:44:18 +03:00
8a67ab4541
Also replace 'This file is a part of' by 'This file is part of' for consistency git-svn-id: svn+ssh://svn.code.sf.net/p/mingw-w64/code/trunk@5147 4407c894-4637-0410-b4f5-ada5f102cad1
34 lines
884 B
C
34 lines
884 B
C
/**
|
|
* This file has no copyright assigned and is placed in the Public Domain.
|
|
* This file is part of the mingw-w64 runtime package.
|
|
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
|
|
*/
|
|
#include <math.h>
|
|
#include <errno.h>
|
|
#include "fastmath.h"
|
|
|
|
/* asinh(x) = copysign(log(fabs(x) + sqrt(x * x + 1.0)), x) */
|
|
long double asinhl(long double x)
|
|
{
|
|
long double z;
|
|
if (!isfinite (x))
|
|
return x;
|
|
|
|
z = fabsl (x);
|
|
|
|
/* Avoid setting FPU underflow exception flag in x * x. */
|
|
#if 0
|
|
if ( z < 0x1p-32)
|
|
return x;
|
|
#endif
|
|
|
|
/* Use log1p to avoid cancellation with small x. Put
|
|
x * x in denom, so overflow is harmless.
|
|
asinh(x) = log1p (x + sqrt (x * x + 1.0) - 1.0)
|
|
= log1p (x + x * x / (sqrt (x * x + 1.0) + 1.0)) */
|
|
|
|
z = __fast_log1pl (z + z * z / (__fast_sqrtl (z * z + 1.0L) + 1.0L));
|
|
|
|
return ( x > 0.0 ? z : -z);
|
|
}
|