]>
Commit | Line | Data |
---|---|---|
5c2a0669 UD |
1 | #ifndef _MATH_H |
2 | ||
7c3018f9 ZW |
3 | #ifdef _ISOMAC |
4 | # undef NO_LONG_DOUBLE | |
7c3018f9 ZW |
5 | #endif |
6 | ||
28f540f4 | 7 | #include <math/math.h> |
5c2a0669 | 8 | |
31341567 | 9 | #ifndef _ISOMAC |
5c2a0669 | 10 | /* Now define the internal interfaces. */ |
d709042a JM |
11 | extern int __signgam; |
12 | ||
4f41c682 | 13 | # if IS_IN (libc) || IS_IN (libm) |
76f2646f UD |
14 | hidden_proto (__finite) |
15 | hidden_proto (__isinf) | |
16 | hidden_proto (__isnan) | |
17 | hidden_proto (__finitef) | |
18 | hidden_proto (__isinff) | |
19 | hidden_proto (__isnanf) | |
20 | ||
21 | # ifndef __NO_LONG_DOUBLE_MATH | |
22 | hidden_proto (__finitel) | |
23 | hidden_proto (__isinfl) | |
24 | hidden_proto (__isnanl) | |
25 | # endif | |
81f26b53 PM |
26 | |
27 | # if __HAVE_DISTINCT_FLOAT128 | |
28 | hidden_proto (__finitef128) | |
29 | hidden_proto (__isinff128) | |
30 | hidden_proto (__isnanf128) | |
8466ee1c | 31 | hidden_proto (__signbitf128) |
81f26b53 | 32 | # endif |
76f2646f | 33 | # endif |
a8fa4947 | 34 | |
76f2646f UD |
35 | libm_hidden_proto (__fpclassify) |
36 | libm_hidden_proto (__fpclassifyf) | |
57267616 TS |
37 | libm_hidden_proto (__issignaling) |
38 | libm_hidden_proto (__issignalingf) | |
b7805d0b AS |
39 | libm_hidden_proto (__exp) |
40 | libm_hidden_proto (__expf) | |
01f28812 | 41 | libm_hidden_proto (__roundeven) |
f83af095 | 42 | |
76f2646f UD |
43 | # ifndef __NO_LONG_DOUBLE_MATH |
44 | libm_hidden_proto (__fpclassifyl) | |
57267616 | 45 | libm_hidden_proto (__issignalingl) |
b7805d0b | 46 | libm_hidden_proto (__expl) |
76f2646f | 47 | libm_hidden_proto (__expm1l) |
6b87a564 | 48 | # endif |
6b87a564 | 49 | |
81f26b53 PM |
50 | # if __HAVE_DISTINCT_FLOAT128 |
51 | libm_hidden_proto (__fpclassifyf128) | |
52 | libm_hidden_proto (__issignalingf128) | |
53 | libm_hidden_proto (__expf128) | |
54 | libm_hidden_proto (__expm1f128) | |
55 | # endif | |
56 | ||
b9d8c474 JM |
57 | # if __HAVE_DISTINCT_FLOAT128 |
58 | ||
59 | /* __builtin_isinf_sign is broken in GCC < 7 for float128. */ | |
60 | # if ! __GNUC_PREREQ (7, 0) | |
61 | # include <ieee754_float128.h> | |
62 | extern inline int | |
63 | __isinff128 (_Float128 x) | |
64 | { | |
65 | int64_t hx, lx; | |
66 | GET_FLOAT128_WORDS64 (hx, lx, x); | |
67 | lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL; | |
68 | lx |= -lx; | |
69 | return ~(lx >> 63) & (hx >> 62); | |
70 | } | |
71 | # endif | |
72 | ||
73 | extern inline _Float128 | |
74 | fabsf128 (_Float128 x) | |
75 | { | |
76 | return __builtin_fabsf128 (x); | |
77 | } | |
78 | # endif | |
79 | ||
1294b189 WD |
80 | # if !(defined __FINITE_MATH_ONLY__ && __FINITE_MATH_ONLY__ > 0) |
81 | # ifndef NO_MATH_REDIRECT | |
e44acb20 JM |
82 | /* Declare some functions for use within GLIBC. Compilers typically |
83 | inline those functions as a single instruction. Use an asm to | |
84 | avoid use of PLTs if it doesn't. */ | |
85 | # define MATH_REDIRECT(FUNC, PREFIX, ARGS) \ | |
86 | float (FUNC ## f) (ARGS (float)) asm (PREFIX #FUNC "f"); \ | |
87 | double (FUNC) (ARGS (double)) asm (PREFIX #FUNC ); \ | |
88 | MATH_REDIRECT_LDBL (FUNC, PREFIX, ARGS) \ | |
89 | MATH_REDIRECT_F128 (FUNC, PREFIX, ARGS) | |
90 | # ifdef __NO_LONG_DOUBLE_MATH | |
91 | # define MATH_REDIRECT_LDBL(FUNC, PREFIX, ARGS) | |
92 | # else | |
93 | # define MATH_REDIRECT_LDBL(FUNC, PREFIX, ARGS) \ | |
94 | long double (FUNC ## l) (ARGS (long double)) asm (PREFIX #FUNC "l"); | |
1294b189 | 95 | # endif |
e44acb20 JM |
96 | # if __HAVE_DISTINCT_FLOAT128 |
97 | # define MATH_REDIRECT_F128(FUNC, PREFIX, ARGS) \ | |
98 | _Float128 (FUNC ## f128) (ARGS (_Float128)) asm (PREFIX #FUNC "f128"); | |
99 | # else | |
100 | # define MATH_REDIRECT_F128(FUNC, PREFIX, ARGS) | |
1294b189 | 101 | # endif |
e44acb20 | 102 | # define MATH_REDIRECT_UNARY_ARGS(TYPE) TYPE |
81dca813 | 103 | # define MATH_REDIRECT_BINARY_ARGS(TYPE) TYPE, TYPE |
e44acb20 | 104 | MATH_REDIRECT (sqrt, "__ieee754_", MATH_REDIRECT_UNARY_ARGS) |
71223ef9 | 105 | MATH_REDIRECT (ceil, "__", MATH_REDIRECT_UNARY_ARGS) |
e44acb20 | 106 | MATH_REDIRECT (floor, "__", MATH_REDIRECT_UNARY_ARGS) |
f29b6f17 | 107 | MATH_REDIRECT (rint, "__", MATH_REDIRECT_UNARY_ARGS) |
7abf97be | 108 | MATH_REDIRECT (trunc, "__", MATH_REDIRECT_UNARY_ARGS) |
9755bc46 | 109 | MATH_REDIRECT (round, "__", MATH_REDIRECT_UNARY_ARGS) |
81dca813 | 110 | MATH_REDIRECT (copysign, "__", MATH_REDIRECT_BINARY_ARGS) |
1294b189 WD |
111 | # endif |
112 | # endif | |
113 | ||
5c2a0669 | 114 | #endif |
31341567 | 115 | #endif |