/* w_gammaf.c -- float version of w_gamma.c.
- * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
*/
/*
#include <math.h>
#include <math_private.h>
#include <math-svid-compat.h>
+#include <libm-alias-float.h>
+#if LIBM_SVID_COMPAT
float
__tgammaf(float x)
{
if (x == (float)0.0)
/* tgammaf pole */
return __kernel_standard_f(x, x, 150);
- else if(__floorf(x)==x&&x<0.0f)
+ else if(floorf(x)==x&&x<0.0f)
/* tgammaf domain */
return __kernel_standard_f(x, x, 141);
else if (y == 0)
}
return local_signgam < 0 ? - y : y;
}
-weak_alias (__tgammaf, tgammaf)
+libm_alias_float (__tgamma, tgamma)
+#endif