111
|
1 /* Copyright (C) 2004-2017 Free Software Foundation, Inc.
|
0
|
2 Contributed by Apple, Inc.
|
|
3
|
|
4 This file is part of GCC.
|
|
5
|
|
6 GCC is free software; you can redistribute it and/or modify
|
|
7 it under the terms of the GNU General Public License as published by
|
|
8 the Free Software Foundation; either version 3, or (at your option)
|
|
9 any later version.
|
|
10
|
|
11 GCC is distributed in the hope that it will be useful,
|
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
14 GNU General Public License for more details.
|
|
15
|
|
16 Under Section 7 of GPL version 3, you are granted additional
|
|
17 permissions described in the GCC Runtime Library Exception, version
|
|
18 3.1, as published by the Free Software Foundation.
|
|
19
|
|
20 You should have received a copy of the GNU General Public License and
|
|
21 a copy of the GCC Runtime Library Exception along with this program;
|
|
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
23 <http://www.gnu.org/licenses/>. */
|
|
24
|
|
25 /*
|
|
26 * ISO C Standard: 7.22 Type-generic math <tgmath.h>
|
|
27 */
|
|
28
|
|
29 #ifndef _TGMATH_H
|
|
30 #define _TGMATH_H
|
|
31
|
|
32 #include <math.h>
|
|
33
|
|
34 #ifndef __cplusplus
|
|
35 #include <complex.h>
|
|
36
|
|
37 /* Naming convention: generic macros are defining using
|
|
38 __TGMATH_CPLX*, __TGMATH_REAL*, and __TGMATH_CPLX_ONLY. _CPLX
|
|
39 means the generic argument(s) may be real or complex, _REAL means
|
|
40 real only, _CPLX means complex only. If there is no suffix, we are
|
|
41 defining a function of one generic argument. If the suffix is _n
|
|
42 it is a function of n generic arguments. If the suffix is _m_n it
|
|
43 is a function of n arguments, the first m of which are generic. We
|
|
44 only define these macros for values of n and/or m that are needed. */
|
|
45
|
|
46 /* The general rules for generic macros are given in 7.22 paragraphs 1 and 2.
|
|
47 If any generic parameter is complex, we use a complex version. Otherwise
|
|
48 we use a real version. If the real part of any generic parameter is long
|
|
49 double, we use the long double version. Otherwise if the real part of any
|
|
50 generic parameter is double or of integer type, we use the double version.
|
|
51 Otherwise we use the float version. */
|
|
52
|
|
53 #define __tg_cplx(expr) \
|
|
54 __builtin_classify_type(expr) == 9
|
|
55
|
|
56 #define __tg_ldbl(expr) \
|
|
57 __builtin_types_compatible_p(__typeof__(expr), long double)
|
|
58
|
|
59 #define __tg_dbl(expr) \
|
|
60 (__builtin_types_compatible_p(__typeof__(expr), double) \
|
|
61 || __builtin_classify_type(expr) == 1)
|
|
62
|
|
63 #define __tg_choose(x,f,d,l) \
|
|
64 __builtin_choose_expr(__tg_ldbl(x), l, \
|
|
65 __builtin_choose_expr(__tg_dbl(x), d, \
|
|
66 f))
|
|
67
|
|
68 #define __tg_choose_2(x,y,f,d,l) \
|
|
69 __builtin_choose_expr(__tg_ldbl(x) || __tg_ldbl(y), l, \
|
|
70 __builtin_choose_expr(__tg_dbl(x) || __tg_dbl(y), d, \
|
|
71 f))
|
|
72
|
|
73 #define __tg_choose_3(x,y,z,f,d,l) \
|
|
74 __builtin_choose_expr(__tg_ldbl(x) || __tg_ldbl(y) || __tg_ldbl(z), l, \
|
|
75 __builtin_choose_expr(__tg_dbl(x) || __tg_dbl(y) \
|
|
76 || __tg_dbl(z), d, \
|
|
77 f))
|
|
78
|
|
79 #define __TGMATH_CPLX(z,R,C) \
|
|
80 __builtin_choose_expr (__tg_cplx(z), \
|
|
81 __tg_choose (__real__(z), C##f(z), (C)(z), C##l(z)), \
|
|
82 __tg_choose (z, R##f(z), (R)(z), R##l(z)))
|
|
83
|
|
84 #define __TGMATH_CPLX_2(z1,z2,R,C) \
|
|
85 __builtin_choose_expr (__tg_cplx(z1) || __tg_cplx(z2), \
|
|
86 __tg_choose_2 (__real__(z1), __real__(z2), \
|
|
87 C##f(z1,z2), (C)(z1,z2), C##l(z1,z2)), \
|
|
88 __tg_choose_2 (z1, z2, \
|
|
89 R##f(z1,z2), (R)(z1,z2), R##l(z1,z2)))
|
|
90
|
|
91 #define __TGMATH_REAL(x,R) \
|
|
92 __tg_choose (x, R##f(x), (R)(x), R##l(x))
|
|
93 #define __TGMATH_REAL_2(x,y,R) \
|
|
94 __tg_choose_2 (x, y, R##f(x,y), (R)(x,y), R##l(x,y))
|
|
95 #define __TGMATH_REAL_3(x,y,z,R) \
|
|
96 __tg_choose_3 (x, y, z, R##f(x,y,z), (R)(x,y,z), R##l(x,y,z))
|
|
97 #define __TGMATH_REAL_1_2(x,y,R) \
|
|
98 __tg_choose (x, R##f(x,y), (R)(x,y), R##l(x,y))
|
|
99 #define __TGMATH_REAL_2_3(x,y,z,R) \
|
|
100 __tg_choose_2 (x, y, R##f(x,y,z), (R)(x,y,z), R##l(x,y,z))
|
|
101 #define __TGMATH_CPLX_ONLY(z,C) \
|
|
102 __tg_choose (__real__(z), C##f(z), (C)(z), C##l(z))
|
|
103
|
|
104 /* Functions defined in both <math.h> and <complex.h> (7.22p4) */
|
|
105 #define acos(z) __TGMATH_CPLX(z, acos, cacos)
|
|
106 #define asin(z) __TGMATH_CPLX(z, asin, casin)
|
|
107 #define atan(z) __TGMATH_CPLX(z, atan, catan)
|
|
108 #define acosh(z) __TGMATH_CPLX(z, acosh, cacosh)
|
|
109 #define asinh(z) __TGMATH_CPLX(z, asinh, casinh)
|
|
110 #define atanh(z) __TGMATH_CPLX(z, atanh, catanh)
|
|
111 #define cos(z) __TGMATH_CPLX(z, cos, ccos)
|
|
112 #define sin(z) __TGMATH_CPLX(z, sin, csin)
|
|
113 #define tan(z) __TGMATH_CPLX(z, tan, ctan)
|
|
114 #define cosh(z) __TGMATH_CPLX(z, cosh, ccosh)
|
|
115 #define sinh(z) __TGMATH_CPLX(z, sinh, csinh)
|
|
116 #define tanh(z) __TGMATH_CPLX(z, tanh, ctanh)
|
|
117 #define exp(z) __TGMATH_CPLX(z, exp, cexp)
|
|
118 #define log(z) __TGMATH_CPLX(z, log, clog)
|
|
119 #define pow(z1,z2) __TGMATH_CPLX_2(z1, z2, pow, cpow)
|
|
120 #define sqrt(z) __TGMATH_CPLX(z, sqrt, csqrt)
|
|
121 #define fabs(z) __TGMATH_CPLX(z, fabs, cabs)
|
|
122
|
|
123 /* Functions defined in <math.h> only (7.22p5) */
|
|
124 #define atan2(x,y) __TGMATH_REAL_2(x, y, atan2)
|
|
125 #define cbrt(x) __TGMATH_REAL(x, cbrt)
|
|
126 #define ceil(x) __TGMATH_REAL(x, ceil)
|
|
127 #define copysign(x,y) __TGMATH_REAL_2(x, y, copysign)
|
|
128 #define erf(x) __TGMATH_REAL(x, erf)
|
|
129 #define erfc(x) __TGMATH_REAL(x, erfc)
|
|
130 #define exp2(x) __TGMATH_REAL(x, exp2)
|
|
131 #define expm1(x) __TGMATH_REAL(x, expm1)
|
|
132 #define fdim(x,y) __TGMATH_REAL_2(x, y, fdim)
|
|
133 #define floor(x) __TGMATH_REAL(x, floor)
|
|
134 #define fma(x,y,z) __TGMATH_REAL_3(x, y, z, fma)
|
|
135 #define fmax(x,y) __TGMATH_REAL_2(x, y, fmax)
|
|
136 #define fmin(x,y) __TGMATH_REAL_2(x, y, fmin)
|
|
137 #define fmod(x,y) __TGMATH_REAL_2(x, y, fmod)
|
|
138 #define frexp(x,y) __TGMATH_REAL_1_2(x, y, frexp)
|
|
139 #define hypot(x,y) __TGMATH_REAL_2(x, y, hypot)
|
|
140 #define ilogb(x) __TGMATH_REAL(x, ilogb)
|
|
141 #define ldexp(x,y) __TGMATH_REAL_1_2(x, y, ldexp)
|
|
142 #define lgamma(x) __TGMATH_REAL(x, lgamma)
|
|
143 #define llrint(x) __TGMATH_REAL(x, llrint)
|
|
144 #define llround(x) __TGMATH_REAL(x, llround)
|
|
145 #define log10(x) __TGMATH_REAL(x, log10)
|
|
146 #define log1p(x) __TGMATH_REAL(x, log1p)
|
|
147 #define log2(x) __TGMATH_REAL(x, log2)
|
|
148 #define logb(x) __TGMATH_REAL(x, logb)
|
|
149 #define lrint(x) __TGMATH_REAL(x, lrint)
|
|
150 #define lround(x) __TGMATH_REAL(x, lround)
|
|
151 #define nearbyint(x) __TGMATH_REAL(x, nearbyint)
|
|
152 #define nextafter(x,y) __TGMATH_REAL_2(x, y, nextafter)
|
|
153 #define nexttoward(x,y) __TGMATH_REAL_1_2(x, y, nexttoward)
|
|
154 #define remainder(x,y) __TGMATH_REAL_2(x, y, remainder)
|
|
155 #define remquo(x,y,z) __TGMATH_REAL_2_3(x, y, z, remquo)
|
|
156 #define rint(x) __TGMATH_REAL(x, rint)
|
|
157 #define round(x) __TGMATH_REAL(x, round)
|
|
158 #define scalbn(x,y) __TGMATH_REAL_1_2(x, y, scalbn)
|
|
159 #define scalbln(x,y) __TGMATH_REAL_1_2(x, y, scalbln)
|
|
160 #define tgamma(x) __TGMATH_REAL(x, tgamma)
|
|
161 #define trunc(x) __TGMATH_REAL(x, trunc)
|
|
162
|
|
163 /* Functions defined in <complex.h> only (7.22p6) */
|
|
164 #define carg(z) __TGMATH_CPLX_ONLY(z, carg)
|
|
165 #define cimag(z) __TGMATH_CPLX_ONLY(z, cimag)
|
|
166 #define conj(z) __TGMATH_CPLX_ONLY(z, conj)
|
|
167 #define cproj(z) __TGMATH_CPLX_ONLY(z, cproj)
|
|
168 #define creal(z) __TGMATH_CPLX_ONLY(z, creal)
|
|
169
|
|
170 #endif /* __cplusplus */
|
|
171 #endif /* _TGMATH_H */
|