| OLD | NEW |
| 1 #ifndef _TGMATH_H | 1 #ifndef _TGMATH_H |
| 2 #define _TGMATH_H | 2 #define _TGMATH_H |
| 3 | 3 |
| 4 /* | 4 /* |
| 5 the return types are only correct with gcc (__GNUC__) | 5 the return types are only correct with gcc (__GNUC__) |
| 6 otherwise they are long double or long double complex | 6 otherwise they are long double or long double complex |
| 7 | 7 |
| 8 the long double version of a function is never chosen when | 8 the long double version of a function is never chosen when |
| 9 sizeof(double) == sizeof(long double) | 9 sizeof(double) == sizeof(long double) |
| 10 (but the return type is set correctly with gcc) | 10 (but the return type is set correctly with gcc) |
| 11 */ | 11 */ |
| 12 | 12 |
| 13 #include <math.h> | 13 #include <math.h> |
| 14 #include <complex.h> | 14 #include <complex.h> |
| 15 | 15 |
| 16 #define __IS_FP(x) (sizeof((x)+1ULL) == sizeof((x)+1.0f)) | 16 #define __IS_FP(x) (sizeof((x) + 1ULL) == sizeof((x) + 1.0f)) |
| 17 #define __IS_CX(x) (__IS_FP(x) && sizeof(x) == sizeof((x)+I)) | 17 #define __IS_CX(x) (__IS_FP(x) && sizeof(x) == sizeof((x) + I)) |
| 18 #define __IS_REAL(x) (__IS_FP(x) && 2*sizeof(x) == sizeof((x)+I)) | 18 #define __IS_REAL(x) (__IS_FP(x) && 2 * sizeof(x) == sizeof((x) + I)) |
| 19 | 19 |
| 20 #define __FLT(x) (__IS_REAL(x) && sizeof(x) == sizeof(float)) | 20 #define __FLT(x) (__IS_REAL(x) && sizeof(x) == sizeof(float)) |
| 21 #define __LDBL(x) (__IS_REAL(x) && sizeof(x) == sizeof(long double) && sizeof(lo
ng double) != sizeof(double)) | 21 #define __LDBL(x) \ |
| 22 (__IS_REAL(x) && sizeof(x) == sizeof(long double) && \ |
| 23 sizeof(long double) != sizeof(double)) |
| 22 | 24 |
| 23 #define __FLTCX(x) (__IS_CX(x) && sizeof(x) == sizeof(float complex)) | 25 #define __FLTCX(x) (__IS_CX(x) && sizeof(x) == sizeof(float complex)) |
| 24 #define __DBLCX(x) (__IS_CX(x) && sizeof(x) == sizeof(double complex)) | 26 #define __DBLCX(x) (__IS_CX(x) && sizeof(x) == sizeof(double complex)) |
| 25 #define __LDBLCX(x) (__IS_CX(x) && sizeof(x) == sizeof(long double complex) && s
izeof(long double) != sizeof(double)) | 27 #define __LDBLCX(x) \ |
| 28 (__IS_CX(x) && sizeof(x) == sizeof(long double complex) && \ |
| 29 sizeof(long double) != sizeof(double)) |
| 26 | 30 |
| 27 /* return type */ | 31 /* return type */ |
| 28 | 32 |
| 29 #ifdef __GNUC__ | 33 #ifdef __GNUC__ |
| 30 /* | 34 /* |
| 31 the result must be casted to the right type | 35 the result must be casted to the right type |
| 32 (otherwise the result type is determined by the conversion | 36 (otherwise the result type is determined by the conversion |
| 33 rules applied to all the function return types so it is long | 37 rules applied to all the function return types so it is long |
| 34 double or long double complex except for integral functions) | 38 double or long double complex except for integral functions) |
| 35 | 39 |
| 36 this cannot be done in c99, so the typeof gcc extension is | 40 this cannot be done in c99, so the typeof gcc extension is |
| 37 used and that the type of ?: depends on wether an operand is | 41 used and that the type of ?: depends on wether an operand is |
| 38 a null pointer constant or not | 42 a null pointer constant or not |
| 39 (in c11 _Generic can be used) | 43 (in c11 _Generic can be used) |
| 40 | 44 |
| 41 the c arguments below must be integer constant expressions | 45 the c arguments below must be integer constant expressions |
| 42 so they can be in null pointer constants | 46 so they can be in null pointer constants |
| 43 (__IS_FP above was carefully chosen this way) | 47 (__IS_FP above was carefully chosen this way) |
| 44 */ | 48 */ |
| 45 /* if c then t else void */ | 49 /* if c then t else void */ |
| 46 #define __type1(c,t) __typeof__(*(0?(t*)0:(void*)!(c))) | 50 #define __type1(c, t) __typeof__(*(0 ? (t*)0 : (void*)!(c))) |
| 47 /* if c then t1 else t2 */ | 51 /* if c then t1 else t2 */ |
| 48 #define __type2(c,t1,t2) __typeof__(*(0?(__type1(c,t1)*)0:(__type1(!(c),t2)*)0)) | 52 #define __type2(c, t1, t2) \ |
| 53 __typeof__(*(0 ? (__type1(c, t1)*)0 : (__type1(!(c), t2)*)0)) |
| 49 /* cast to double when x is integral, otherwise use typeof(x) */ | 54 /* cast to double when x is integral, otherwise use typeof(x) */ |
| 50 #define __RETCAST(x) ( \ | 55 #define __RETCAST(x) (__type2(__IS_FP(x), __typeof__(x), double)) |
| 51 » __type2(__IS_FP(x), __typeof__(x), double)) | |
| 52 /* 2 args case, should work for complex types (cpow) */ | 56 /* 2 args case, should work for complex types (cpow) */ |
| 53 #define __RETCAST_2(x, y) ( \ | 57 #define __RETCAST_2(x, y) \ |
| 54 » __type2(__IS_FP(x) && __IS_FP(y), \ | 58 (__type2(__IS_FP(x) && __IS_FP(y), __typeof__((x) + (y)), \ |
| 55 » » __typeof__((x)+(y)), \ | 59 __typeof__((x) + (y) + 1.0))) |
| 56 » » __typeof__((x)+(y)+1.0))) | |
| 57 /* 3 args case (fma only) */ | 60 /* 3 args case (fma only) */ |
| 58 #define __RETCAST_3(x, y, z) ( \ | 61 #define __RETCAST_3(x, y, z) \ |
| 59 » __type2(__IS_FP(x) && __IS_FP(y) && __IS_FP(z), \ | 62 (__type2(__IS_FP(x) && __IS_FP(y) && __IS_FP(z), \ |
| 60 » » __typeof__((x)+(y)+(z)), \ | 63 __typeof__((x) + (y) + (z)), __typeof__((x) + (y) + (z) + 1.0))) |
| 61 » » __typeof__((x)+(y)+(z)+1.0))) | |
| 62 /* drop complex from the type of x */ | 64 /* drop complex from the type of x */ |
| 63 /* TODO: wrong when sizeof(long double)==sizeof(double) */ | 65 /* TODO: wrong when sizeof(long double)==sizeof(double) */ |
| 64 #define __RETCAST_REAL(x) ( \ | 66 #define __RETCAST_REAL(x) \ |
| 65 » __type2(__IS_FP(x) && sizeof((x)+I) == sizeof(float complex), float, \ | 67 (__type2(__IS_FP(x) && sizeof((x) + I) == sizeof(float complex), float, \ |
| 66 » __type2(sizeof((x)+1.0+I) == sizeof(double complex), double, \ | 68 __type2(sizeof((x) + 1.0 + I) == sizeof(double complex), double, \ |
| 67 » » long double))) | 69 long double))) |
| 68 /* add complex to the type of x */ | 70 /* add complex to the type of x */ |
| 69 #define __RETCAST_CX(x) (__typeof__(__RETCAST(x)0+I)) | 71 #define __RETCAST_CX(x) (__typeof__(__RETCAST(x) 0 + I)) |
| 70 #else | 72 #else |
| 71 #define __RETCAST(x) | 73 #define __RETCAST(x) |
| 72 #define __RETCAST_2(x, y) | 74 #define __RETCAST_2(x, y) |
| 73 #define __RETCAST_3(x, y, z) | 75 #define __RETCAST_3(x, y, z) |
| 74 #define __RETCAST_REAL(x) | 76 #define __RETCAST_REAL(x) |
| 75 #define __RETCAST_CX(x) | 77 #define __RETCAST_CX(x) |
| 76 #endif | 78 #endif |
| 77 | 79 |
| 78 /* function selection */ | 80 /* function selection */ |
| 79 | 81 |
| 80 #define __tg_real_nocast(fun, x) ( \ | 82 #define __tg_real_nocast(fun, x) \ |
| 81 » __FLT(x) ? fun ## f (x) : \ | 83 (__FLT(x) ? fun##f(x) : __LDBL(x) ? fun##l(x) : fun(x)) |
| 82 » __LDBL(x) ? fun ## l (x) : \ | |
| 83 » fun(x) ) | |
| 84 | 84 |
| 85 #define __tg_real(fun, x) (__RETCAST(x)__tg_real_nocast(fun, x)) | 85 #define __tg_real(fun, x) (__RETCAST(x) __tg_real_nocast(fun, x)) |
| 86 | 86 |
| 87 #define __tg_real_2_1(fun, x, y) (__RETCAST(x)( \ | 87 #define __tg_real_2_1(fun, x, y) \ |
| 88 » __FLT(x) ? fun ## f (x, y) : \ | 88 (__RETCAST(x)(__FLT(x) ? fun##f(x, y) : __LDBL(x) ? fun##l(x, y) : fun(x, y))) |
| 89 » __LDBL(x) ? fun ## l (x, y) : \ | |
| 90 » fun(x, y) )) | |
| 91 | 89 |
| 92 #define __tg_real_2(fun, x, y) (__RETCAST_2(x, y)( \ | 90 #define __tg_real_2(fun, x, y) \ |
| 93 » __FLT(x) && __FLT(y) ? fun ## f (x, y) : \ | 91 (__RETCAST_2(x, y)(__FLT(x) && __FLT(y) ? fun##f(x, y) : __LDBL((x) + (y)) \ |
| 94 » __LDBL((x)+(y)) ? fun ## l (x, y) : \ | 92 ? fun##l(x, y) \ |
| 95 » fun(x, y) )) | 93 : fun(x, y))) |
| 96 | 94 |
| 97 #define __tg_complex(fun, x) (__RETCAST_CX(x)( \ | 95 #define __tg_complex(fun, x) \ |
| 98 » __FLTCX((x)+I) && __IS_FP(x) ? fun ## f (x) : \ | 96 (__RETCAST_CX(x)(__FLTCX((x) + I) && __IS_FP(x) \ |
| 99 » __LDBLCX((x)+I) ? fun ## l (x) : \ | 97 ? fun##f(x) \ |
| 100 » fun(x) )) | 98 : __LDBLCX((x) + I) ? fun##l(x) : fun(x))) |
| 101 | 99 |
| 102 #define __tg_complex_retreal(fun, x) (__RETCAST_REAL(x)( \ | 100 #define __tg_complex_retreal(fun, x) \ |
| 103 » __FLTCX((x)+I) && __IS_FP(x) ? fun ## f (x) : \ | 101 (__RETCAST_REAL(x)(__FLTCX((x) + I) && __IS_FP(x) \ |
| 104 » __LDBLCX((x)+I) ? fun ## l (x) : \ | 102 ? fun##f(x) \ |
| 105 » fun(x) )) | 103 : __LDBLCX((x) + I) ? fun##l(x) : fun(x))) |
| 106 | 104 |
| 107 #define __tg_real_complex(fun, x) (__RETCAST(x)( \ | 105 #define __tg_real_complex(fun, x) \ |
| 108 » __FLTCX(x) ? c ## fun ## f (x) : \ | 106 (__RETCAST(x)( \ |
| 109 » __DBLCX(x) ? c ## fun (x) : \ | 107 __FLTCX(x) ? c##fun##f(x) \ |
| 110 » __LDBLCX(x) ? c ## fun ## l (x) : \ | 108 : __DBLCX(x) ? c##fun(x) \ |
| 111 » __FLT(x) ? fun ## f (x) : \ | 109 : __LDBLCX(x) ? c##fun##l(x) \ |
| 112 » __LDBL(x) ? fun ## l (x) : \ | 110 : __FLT(x) ? fun##f(x) \ |
| 113 » fun(x) )) | 111 : __LDBL(x) ? fun##l(x) \ |
| 112 : fun(x))) |
| 114 | 113 |
| 115 /* special cases */ | 114 /* special cases */ |
| 116 | 115 |
| 117 #define __tg_real_remquo(x, y, z) (__RETCAST_2(x, y)( \ | 116 #define __tg_real_remquo(x, y, z) \ |
| 118 » __FLT(x) && __FLT(y) ? remquof(x, y, z) : \ | 117 (__RETCAST_2( \ |
| 119 » __LDBL((x)+(y)) ? remquol(x, y, z) : \ | 118 x, y)(__FLT(x) && __FLT(y) ? remquof(x, y, z) : __LDBL((x) + (y)) \ |
| 120 » remquo(x, y, z) )) | 119 ? remquol(x, y, z) \ |
| 120 : remquo(x, y, z))) |
| 121 | 121 |
| 122 #define __tg_real_fma(x, y, z) (__RETCAST_3(x, y, z)( \ | 122 #define __tg_real_fma(x, y, z) \ |
| 123 » __FLT(x) && __FLT(y) && __FLT(z) ? fmaf(x, y, z) : \ | 123 (__RETCAST_3( \ |
| 124 » __LDBL((x)+(y)+(z)) ? fmal(x, y, z) : \ | 124 x, y, z)(__FLT(x) && __FLT(y) && __FLT(z) \ |
| 125 » fma(x, y, z) )) | 125 ? fmaf(x, y, z) \ |
| 126 : __LDBL((x) + (y) + (z)) ? fmal(x, y, z) : fma(x, y, z))) |
| 126 | 127 |
| 127 #define __tg_real_complex_pow(x, y) (__RETCAST_2(x, y)( \ | 128 #define __tg_real_complex_pow(x, y) \ |
| 128 » __FLTCX((x)+(y)) && __IS_FP(x) && __IS_FP(y) ? cpowf(x, y) : \ | 129 (__RETCAST_2(x, y)(__FLTCX((x) + (y)) && __IS_FP(x) && __IS_FP(y) \ |
| 129 » __FLTCX((x)+(y)) ? cpow(x, y) : \ | 130 ? cpowf(x, y) \ |
| 130 » __DBLCX((x)+(y)) ? cpow(x, y) : \ | 131 : __FLTCX((x) + (y)) \ |
| 131 » __LDBLCX((x)+(y)) ? cpowl(x, y) : \ | 132 ? cpow(x, y) \ |
| 132 » __FLT(x) && __FLT(y) ? powf(x, y) : \ | 133 : __DBLCX((x) + (y)) \ |
| 133 » __LDBL((x)+(y)) ? powl(x, y) : \ | 134 ? cpow(x, y) \ |
| 134 » pow(x, y) )) | 135 : __LDBLCX((x) + (y)) \ |
| 136 ? cpowl(x, y) \ |
| 137 : __FLT(x) && __FLT(y) \ |
| 138 ? powf(x, y) \ |
| 139 : __LDBL((x) + (y)) \ |
| 140 ? powl(x, y) \ |
| 141 : pow(x, y))) |
| 135 | 142 |
| 136 #define __tg_real_complex_fabs(x) (__RETCAST_REAL(x)( \ | 143 #define __tg_real_complex_fabs(x) \ |
| 137 » __FLTCX(x) ? cabsf(x) : \ | 144 (__RETCAST_REAL(x)( \ |
| 138 » __DBLCX(x) ? cabs(x) : \ | 145 __FLTCX(x) ? cabsf(x) \ |
| 139 » __LDBLCX(x) ? cabsl(x) : \ | 146 : __DBLCX(x) ? cabs(x) \ |
| 140 » __FLT(x) ? fabsf(x) : \ | 147 : __LDBLCX(x) ? cabsl(x) \ |
| 141 » __LDBL(x) ? fabsl(x) : \ | 148 : __FLT(x) ? fabsf(x) \ |
| 142 » fabs(x) )) | 149 : __LDBL(x) ? fabsl(x) \ |
| 150 : fabs(x))) |
| 143 | 151 |
| 144 /* suppress any macros in math.h or complex.h */ | 152 /* suppress any macros in math.h or complex.h */ |
| 145 | 153 |
| 146 #undef acos | 154 #undef acos |
| 147 #undef acosh | 155 #undef acosh |
| 148 #undef asin | 156 #undef asin |
| 149 #undef asinh | 157 #undef asinh |
| 150 #undef atan | 158 #undef atan |
| 151 #undef atan2 | 159 #undef atan2 |
| 152 #undef atanh | 160 #undef atanh |
| (...skipping 46 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 199 #undef sin | 207 #undef sin |
| 200 #undef sinh | 208 #undef sinh |
| 201 #undef sqrt | 209 #undef sqrt |
| 202 #undef tan | 210 #undef tan |
| 203 #undef tanh | 211 #undef tanh |
| 204 #undef tgamma | 212 #undef tgamma |
| 205 #undef trunc | 213 #undef trunc |
| 206 | 214 |
| 207 /* tg functions */ | 215 /* tg functions */ |
| 208 | 216 |
| 209 #define acos(x) __tg_real_complex(acos, (x)) | 217 #define acos(x) __tg_real_complex(acos, (x)) |
| 210 #define acosh(x) __tg_real_complex(acosh, (x)) | 218 #define acosh(x) __tg_real_complex(acosh, (x)) |
| 211 #define asin(x) __tg_real_complex(asin, (x)) | 219 #define asin(x) __tg_real_complex(asin, (x)) |
| 212 #define asinh(x) __tg_real_complex(asinh, (x)) | 220 #define asinh(x) __tg_real_complex(asinh, (x)) |
| 213 #define atan(x) __tg_real_complex(atan, (x)) | 221 #define atan(x) __tg_real_complex(atan, (x)) |
| 214 #define atan2(x,y) __tg_real_2(atan2, (x), (y)) | 222 #define atan2(x, y) __tg_real_2(atan2, (x), (y)) |
| 215 #define atanh(x) __tg_real_complex(atanh, (x)) | 223 #define atanh(x) __tg_real_complex(atanh, (x)) |
| 216 #define carg(x) __tg_complex_retreal(carg, (x)) | 224 #define carg(x) __tg_complex_retreal(carg, (x)) |
| 217 #define cbrt(x) __tg_real(cbrt, (x)) | 225 #define cbrt(x) __tg_real(cbrt, (x)) |
| 218 #define ceil(x) __tg_real(ceil, (x)) | 226 #define ceil(x) __tg_real(ceil, (x)) |
| 219 #define cimag(x) __tg_complex_retreal(cimag, (x)) | 227 #define cimag(x) __tg_complex_retreal(cimag, (x)) |
| 220 #define conj(x) __tg_complex(conj, (x)) | 228 #define conj(x) __tg_complex(conj, (x)) |
| 221 #define copysign(x,y) __tg_real_2(copysign, (x), (y)) | 229 #define copysign(x, y) __tg_real_2(copysign, (x), (y)) |
| 222 #define cos(x) __tg_real_complex(cos, (x)) | 230 #define cos(x) __tg_real_complex(cos, (x)) |
| 223 #define cosh(x) __tg_real_complex(cosh, (x)) | 231 #define cosh(x) __tg_real_complex(cosh, (x)) |
| 224 #define cproj(x) __tg_complex(cproj, (x)) | 232 #define cproj(x) __tg_complex(cproj, (x)) |
| 225 #define creal(x) __tg_complex_retreal(creal, (x)) | 233 #define creal(x) __tg_complex_retreal(creal, (x)) |
| 226 #define erf(x) __tg_real(erf, (x)) | 234 #define erf(x) __tg_real(erf, (x)) |
| 227 #define erfc(x) __tg_real(erfc, (x)) | 235 #define erfc(x) __tg_real(erfc, (x)) |
| 228 #define exp(x) __tg_real_complex(exp, (x)) | 236 #define exp(x) __tg_real_complex(exp, (x)) |
| 229 #define exp2(x) __tg_real(exp2, (x)) | 237 #define exp2(x) __tg_real(exp2, (x)) |
| 230 #define expm1(x) __tg_real(expm1, (x)) | 238 #define expm1(x) __tg_real(expm1, (x)) |
| 231 #define fabs(x) __tg_real_complex_fabs(x) | 239 #define fabs(x) __tg_real_complex_fabs(x) |
| 232 #define fdim(x,y) __tg_real_2(fdim, (x), (y)) | 240 #define fdim(x, y) __tg_real_2(fdim, (x), (y)) |
| 233 #define floor(x) __tg_real(floor, (x)) | 241 #define floor(x) __tg_real(floor, (x)) |
| 234 #define fma(x,y,z) __tg_real_fma((x), (y), (z)) | 242 #define fma(x, y, z) __tg_real_fma((x), (y), (z)) |
| 235 #define fmax(x,y) __tg_real_2(fmax, (x), (y)) | 243 #define fmax(x, y) __tg_real_2(fmax, (x), (y)) |
| 236 #define fmin(x,y) __tg_real_2(fmin, (x), (y)) | 244 #define fmin(x, y) __tg_real_2(fmin, (x), (y)) |
| 237 #define fmod(x,y) __tg_real_2(fmod, (x), (y)) | 245 #define fmod(x, y) __tg_real_2(fmod, (x), (y)) |
| 238 #define frexp(x,y) __tg_real_2_1(frexp, (x), (y)) | 246 #define frexp(x, y) __tg_real_2_1(frexp, (x), (y)) |
| 239 #define hypot(x,y) __tg_real_2(hypot, (x), (y)) | 247 #define hypot(x, y) __tg_real_2(hypot, (x), (y)) |
| 240 #define ilogb(x) __tg_real_nocast(ilogb, (x)) | 248 #define ilogb(x) __tg_real_nocast(ilogb, (x)) |
| 241 #define ldexp(x,y) __tg_real_2_1(ldexp, (x), (y)) | 249 #define ldexp(x, y) __tg_real_2_1(ldexp, (x), (y)) |
| 242 #define lgamma(x) __tg_real(lgamma, (x)) | 250 #define lgamma(x) __tg_real(lgamma, (x)) |
| 243 #define llrint(x) __tg_real_nocast(llrint, (x)) | 251 #define llrint(x) __tg_real_nocast(llrint, (x)) |
| 244 #define llround(x) __tg_real_nocast(llround, (x)) | 252 #define llround(x) __tg_real_nocast(llround, (x)) |
| 245 #define log(x) __tg_real_complex(log, (x)) | 253 #define log(x) __tg_real_complex(log, (x)) |
| 246 #define log10(x) __tg_real(log10, (x)) | 254 #define log10(x) __tg_real(log10, (x)) |
| 247 #define log1p(x) __tg_real(log1p, (x)) | 255 #define log1p(x) __tg_real(log1p, (x)) |
| 248 #define log2(x) __tg_real(log2, (x)) | 256 #define log2(x) __tg_real(log2, (x)) |
| 249 #define logb(x) __tg_real(logb, (x)) | 257 #define logb(x) __tg_real(logb, (x)) |
| 250 #define lrint(x) __tg_real_nocast(lrint, (x)) | 258 #define lrint(x) __tg_real_nocast(lrint, (x)) |
| 251 #define lround(x) __tg_real_nocast(lround, (x)) | 259 #define lround(x) __tg_real_nocast(lround, (x)) |
| 252 #define nearbyint(x) __tg_real(nearbyint, (x)) | 260 #define nearbyint(x) __tg_real(nearbyint, (x)) |
| 253 #define nextafter(x,y) __tg_real_2(nextafter, (x), (y)) | 261 #define nextafter(x, y) __tg_real_2(nextafter, (x), (y)) |
| 254 #define nexttoward(x,y) __tg_real_2(nexttoward, (x), (y)) | 262 #define nexttoward(x, y) __tg_real_2(nexttoward, (x), (y)) |
| 255 #define pow(x,y) __tg_real_complex_pow((x), (y)) | 263 #define pow(x, y) __tg_real_complex_pow((x), (y)) |
| 256 #define remainder(x,y) __tg_real_2(remainder, (x), (y)) | 264 #define remainder(x, y) __tg_real_2(remainder, (x), (y)) |
| 257 #define remquo(x,y,z) __tg_real_remquo((x), (y), (z)) | 265 #define remquo(x, y, z) __tg_real_remquo((x), (y), (z)) |
| 258 #define rint(x) __tg_real(rint, (x)) | 266 #define rint(x) __tg_real(rint, (x)) |
| 259 #define round(x) __tg_real(round, (x)) | 267 #define round(x) __tg_real(round, (x)) |
| 260 #define scalbln(x,y) __tg_real_2_1(scalbln, (x), (y)) | 268 #define scalbln(x, y) __tg_real_2_1(scalbln, (x), (y)) |
| 261 #define scalbn(x,y) __tg_real_2_1(scalbn, (x), (y)) | 269 #define scalbn(x, y) __tg_real_2_1(scalbn, (x), (y)) |
| 262 #define sin(x) __tg_real_complex(sin, (x)) | 270 #define sin(x) __tg_real_complex(sin, (x)) |
| 263 #define sinh(x) __tg_real_complex(sinh, (x)) | 271 #define sinh(x) __tg_real_complex(sinh, (x)) |
| 264 #define sqrt(x) __tg_real_complex(sqrt, (x)) | 272 #define sqrt(x) __tg_real_complex(sqrt, (x)) |
| 265 #define tan(x) __tg_real_complex(tan, (x)) | 273 #define tan(x) __tg_real_complex(tan, (x)) |
| 266 #define tanh(x) __tg_real_complex(tanh, (x)) | 274 #define tanh(x) __tg_real_complex(tanh, (x)) |
| 267 #define tgamma(x) __tg_real(tgamma, (x)) | 275 #define tgamma(x) __tg_real(tgamma, (x)) |
| 268 #define trunc(x) __tg_real(trunc, (x)) | 276 #define trunc(x) __tg_real(trunc, (x)) |
| 269 | 277 |
| 270 #endif | 278 #endif |
| OLD | NEW |