aboutsummaryrefslogtreecommitdiff
path: root/math/bits
diff options
context:
space:
mode:
Diffstat (limited to 'math/bits')
-rw-r--r--math/bits/math-finite.h34
1 files changed, 14 insertions, 20 deletions
diff --git a/math/bits/math-finite.h b/math/bits/math-finite.h
index 4c8295842c..de57b504bd 100644
--- a/math/bits/math-finite.h
+++ b/math/bits/math-finite.h
@@ -20,30 +20,26 @@
# error "Never use <bits/math-finite.h> directly; include <math.h> instead."
#endif
-#define __REDIRFROM_X(function, reentrant, suffix) \
- function ## suffix ## reentrant
#define __REDIRFROM(...) __REDIRFROM_X(__VA_ARGS__)
-#define __REDIRTO_X(function, reentrant, suffix) \
- __ ## function ## suffix ## reentrant ## _finite
#define __REDIRTO(...) __REDIRTO_X(__VA_ARGS__)
#define __MATH_REDIRCALL_X(from, args, to) \
extern _Mdouble_ __REDIRECT_NTH (from, args, to)
#define __MATH_REDIRCALL(function, reentrant, args) \
__MATH_REDIRCALL_X \
- (__REDIRFROM (function, reentrant, _MSUF_), args, \
- __REDIRTO (function, reentrant, _MSUFTO_))
+ (__REDIRFROM (function, reentrant), args, \
+ __REDIRTO (function, reentrant))
#define __MATH_REDIRCALL_2(from, reentrant, args, to) \
__MATH_REDIRCALL_X \
- (__REDIRFROM (from, reentrant, _MSUF_), args, \
- __REDIRTO (to, reentrant, _MSUFTO_))
+ (__REDIRFROM (from, reentrant), args, \
+ __REDIRTO (to, reentrant))
#define __MATH_REDIRCALL_INTERNAL(function, reentrant, args) \
__MATH_REDIRCALL_X \
(__REDIRFROM (__CONCAT (__, function), \
- __CONCAT (reentrant, _finite), _MSUF_), \
- args, __REDIRTO (function, _r, _MSUFTO_))
+ __CONCAT (reentrant, _finite)), \
+ args, __REDIRTO (function, _r))
/* acos. */
@@ -129,13 +125,13 @@ __MATH_REDIRCALL_INTERNAL (lgamma, _r, (_Mdouble_, int *));
&& defined __extern_always_inline)
/* lgamma. */
__extern_always_inline _Mdouble_
-__NTH (__REDIRFROM (lgamma, , _MSUF_) (_Mdouble_ __d))
+__NTH (__REDIRFROM (lgamma, ) (_Mdouble_ __d))
{
# if defined __USE_MISC || defined __USE_XOPEN
- return __REDIRTO (lgamma, _r, _MSUFTO_) (__d, &signgam);
+ return __REDIRTO (lgamma, _r) (__d, &signgam);
# else
int __local_signgam = 0;
- return __REDIRTO (lgamma, _r, _MSUFTO_) (__d, &__local_signgam);
+ return __REDIRTO (lgamma, _r) (__d, &__local_signgam);
# endif
}
#endif
@@ -144,9 +140,9 @@ __NTH (__REDIRFROM (lgamma, , _MSUF_) (_Mdouble_ __d))
&& defined __extern_always_inline) && !__MATH_DECLARING_FLOATN
/* gamma. */
__extern_always_inline _Mdouble_
-__NTH (__REDIRFROM (gamma, , _MSUF_) (_Mdouble_ __d))
+__NTH (__REDIRFROM (gamma, ) (_Mdouble_ __d))
{
- return __REDIRTO (lgamma, _r, _MSUFTO_) (__d, &signgam);
+ return __REDIRTO (lgamma, _r) (__d, &signgam);
}
#endif
@@ -187,21 +183,19 @@ __MATH_REDIRCALL (sqrt, , (_Mdouble_));
#if defined __USE_ISOC99 && defined __extern_always_inline
/* tgamma. */
extern _Mdouble_
-__REDIRFROM (__gamma, _r_finite, _MSUF_) (_Mdouble_, int *);
+__REDIRFROM (__gamma, _r_finite) (_Mdouble_, int *);
__extern_always_inline _Mdouble_
-__NTH (__REDIRFROM (tgamma, , _MSUF_) (_Mdouble_ __d))
+__NTH (__REDIRFROM (tgamma, ) (_Mdouble_ __d))
{
int __local_signgam = 0;
- _Mdouble_ __res = __REDIRTO (gamma, _r, _MSUFTO_) (__d, &__local_signgam);
+ _Mdouble_ __res = __REDIRTO (gamma, _r) (__d, &__local_signgam);
return __local_signgam < 0 ? -__res : __res;
}
#endif
#undef __REDIRFROM
-#undef __REDIRFROM_X
#undef __REDIRTO
-#undef __REDIRTO_X
#undef __MATH_REDIRCALL
#undef __MATH_REDIRCALL_2
#undef __MATH_REDIRCALL_INTERNAL