builtin-convert-1.c [plain text]
#include "../builtins-config.h"
#ifdef HAVE_C99_RUNTIME
#define C99CODE(CODE) (CODE)
#define MAYBEC99(CODE, C99) (CODE)
#else
#define C99CODE(CODE) 0
#define MAYBEC99(CODE, C99) (!(C99) && (CODE))
#endif
void test(double d1, float f1, long double ld1)
{
#define OUTER_CAST1(MATHFN, C99) \
extern void link_failure_outer_##MATHFN##l_##MATHFN##_1(void); \
extern void link_failure_outer_##MATHFN##l_##MATHFN##_2(void); \
extern void link_failure_outer_##MATHFN##l_##MATHFN##f_1(void); \
extern void link_failure_outer_##MATHFN##l_##MATHFN##f_2(void); \
extern void link_failure_outer_##MATHFN##_##MATHFN##f_1(void); \
extern void link_failure_outer_##MATHFN##_##MATHFN##f_2(void); \
if (sizeof (long double) > sizeof (double) \
&& MAYBEC99 ((double) __builtin_##MATHFN##l((double)ld1) != __builtin_##MATHFN(ld1), C99)) \
link_failure_outer_##MATHFN##l_##MATHFN##_1(); \
if (sizeof (long double) > sizeof (double) \
&& MAYBEC99 ((double) __builtin_##MATHFN##l(d1) != __builtin_##MATHFN(d1), C99)) \
link_failure_outer_##MATHFN##l_##MATHFN##_1(); \
if (sizeof (long double) > sizeof (double) \
&& MAYBEC99 ((double) __builtin_##MATHFN##l(f1) != __builtin_##MATHFN(f1), C99)) \
link_failure_outer_##MATHFN##l_##MATHFN##_2(); \
if (sizeof (long double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN##l((float) ld1) != __builtin_##MATHFN##f(ld1))) \
link_failure_outer_##MATHFN##l_##MATHFN##f_1(); \
if (sizeof (long double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN##l((float) d1) != __builtin_##MATHFN##f(d1))) \
link_failure_outer_##MATHFN##l_##MATHFN##f_1(); \
if (sizeof (long double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN##l(f1) != __builtin_##MATHFN##f(f1))) \
link_failure_outer_##MATHFN##l_##MATHFN##f_2(); \
if (sizeof (double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN((float) ld1) != __builtin_##MATHFN##f(ld1))) \
link_failure_outer_##MATHFN##_##MATHFN##f_1(); \
if (sizeof (double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN((float) d1) != __builtin_##MATHFN##f(d1))) \
link_failure_outer_##MATHFN##_##MATHFN##f_1(); \
if (sizeof (double) > sizeof (float) \
&& C99CODE ((float) __builtin_##MATHFN(f1) != __builtin_##MATHFN##f(f1))) \
link_failure_outer_##MATHFN##_##MATHFN##f_2()
#define INNER_CAST1(MATHFN, C99) \
extern void link_failure_inner_##MATHFN##l_##MATHFN(void); \
extern void link_failure_inner_##MATHFN##l_##MATHFN##f(void); \
extern void link_failure_inner_##MATHFN##_##MATHFN##f(void); \
if (sizeof (long double) > sizeof (double) \
&& MAYBEC99 (__builtin_##MATHFN##l(d1) != (long double) __builtin_##MATHFN(d1), C99)) \
link_failure_inner_##MATHFN##l_##MATHFN(); \
if (sizeof (long double) > sizeof (float) \
&& C99CODE (__builtin_##MATHFN##l(f1) != (long double) __builtin_##MATHFN##f(f1))) \
link_failure_inner_##MATHFN##l_##MATHFN##f(); \
if (sizeof (long double) > sizeof (float) \
&& C99CODE (__builtin_##MATHFN##l((double)f1) != (long double) __builtin_##MATHFN##f(f1))) \
link_failure_inner_##MATHFN##l_##MATHFN##f(); \
if (sizeof (double) > sizeof (float) \
&& C99CODE (__builtin_##MATHFN(f1) != (double) __builtin_##MATHFN##f(f1))) \
link_failure_inner_##MATHFN##_##MATHFN##f()
#ifdef __OPTIMIZE__
OUTER_CAST1 (acos, 0);
OUTER_CAST1 (acosh, 1);
OUTER_CAST1 (asin, 1);
OUTER_CAST1 (asinh, 1);
OUTER_CAST1 (atan, 0);
OUTER_CAST1 (atanh, 1);
OUTER_CAST1 (cbrt, 1);
OUTER_CAST1 (cos, 0);
OUTER_CAST1 (cosh, 0);
OUTER_CAST1 (erf, 1);
OUTER_CAST1 (erfc, 1);
OUTER_CAST1 (exp, 0);
OUTER_CAST1 (exp2, 1);
OUTER_CAST1 (expm1, 1);
OUTER_CAST1 (fabs, 0);
OUTER_CAST1 (log, 0);
OUTER_CAST1 (log10, 0);
OUTER_CAST1 (log1p, 1);
OUTER_CAST1 (log2, 1);
OUTER_CAST1 (logb, 1);
OUTER_CAST1 (sin, 0);
OUTER_CAST1 (sinh, 0);
OUTER_CAST1 (sqrt, 0);
OUTER_CAST1 (tan, 0);
OUTER_CAST1 (tanh, 0);
OUTER_CAST1 (tgamma, 1);
INNER_CAST1 (ceil, 0);
OUTER_CAST1 (ceil, 0);
INNER_CAST1 (floor, 0);
OUTER_CAST1 (floor, 0);
INNER_CAST1 (lceil, 1);
OUTER_CAST1 (lceil, 1);
INNER_CAST1 (lfloor, 1);
OUTER_CAST1 (lfloor, 1);
INNER_CAST1 (lrint, 1);
OUTER_CAST1 (lrint, 1);
INNER_CAST1 (lround, 1);
OUTER_CAST1 (lround, 1);
INNER_CAST1 (llceil, 1);
OUTER_CAST1 (llceil, 1);
INNER_CAST1 (llfloor, 1);
OUTER_CAST1 (llfloor, 1);
INNER_CAST1 (llrint, 1);
OUTER_CAST1 (llrint, 1);
INNER_CAST1 (llround, 1);
OUTER_CAST1 (llround, 1);
INNER_CAST1 (nearbyint, 1);
OUTER_CAST1 (nearbyint, 1);
INNER_CAST1 (rint, 1);
OUTER_CAST1 (rint, 1);
INNER_CAST1 (round, 1);
OUTER_CAST1 (round, 1);
INNER_CAST1 (trunc, 1);
OUTER_CAST1 (trunc, 1);
#endif
}
int main (void)
{
return 0;
}