mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-22 21:32:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Get libc/tinymath/ compiling on aarch64

Browse source
This commit is contained in:
Justine Tunney 2023-05-02 18:35:25 -07:00
parent 2b73e72d59
commit 135080fd3e
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
243 changed files with 7773 additions and 4027 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libc/tinymath/sinhl.c
View file

@ -42,8 +42,10 @@ asm(".include \"libc/disclaimer.inc\"");
* = (exp(x)-1 + (exp(x)-1)/exp(x))/2
* = x + x^3/6 + o(x^5)
*/
long double sinhl(long double x)
{
long double sinhl(long double x) {
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
return sinh(x);
#elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384
union ldshape u = {x};
unsigned ex = u.i.se & 0x7fff;
long double h, t, absx;
@ -69,4 +71,8 @@ long double sinhl(long double x)
/* |x| > log(LDBL_MAX) or nan */
t = expl(0.5*absx);
return h*t*t;
#elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
// TODO: broken implementation to make things compile
return sinh(x);
#endif
}