1 /* w_lgammaf_r.c -- float version of w_lgamma_r.c.
2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
6 * ====================================================
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
9 * Developed at SunPro, a Sun Microsystems, Inc. business.
10 * Permission to use, copy, modify, and distribute this
11 * software is freely granted, provided that this notice
13 * ====================================================
17 * wrapper float lgammaf_r(float x, int *signgamp)
21 #include <math_private.h>
22 #include <math-svid-compat.h>
26 __lgammaf_r(float x
, int *signgamp
)
28 float y
= __ieee754_lgammaf_r(x
,signgamp
);
29 if(__builtin_expect(!isfinite(y
), 0)
30 && isfinite(x
) && _LIB_VERSION
!= _IEEE_
)
31 return __kernel_standard_f(x
, x
,
32 __floorf(x
)==x
&&x
<=0.0f
33 ? 115 /* lgamma pole */
34 : 114); /* lgamma overflow */
38 weak_alias (__lgammaf_r
, lgammaf_r
)