source:
asp3_tinet_ecnl_arm/trunk/musl-1.1.18/src/math/fabsl.c
Last change on this file was 352, checked in by , 6 years ago | |
---|---|
|
|
File size: 298 bytes |
Line | |
---|---|
1 | #include "libm.h" |
2 | #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
3 | long double fabsl(long double x) |
4 | { |
5 | return fabs(x); |
6 | } |
7 | #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384 |
8 | long double fabsl(long double x) |
9 | { |
10 | union ldshape u = {x}; |
11 | |
12 | u.i.se &= 0x7fff; |
13 | return u.f; |
14 | } |
15 | #endif |
Note:
See TracBrowser
for help on using the repository browser.