1  /* w_lgammal_r.c -- long double version of w_lgamma_r.c.
       2   */
       3  
       4  /*
       5   * ====================================================
       6   * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
       7   *
       8   * Developed at SunPro, a Sun Microsystems, Inc. business.
       9   * Permission to use, copy, modify, and distribute this
      10   * software is freely granted, provided that this notice
      11   * is preserved.
      12   * ====================================================
      13   */
      14  
      15  /*
      16   * wrapper long double lgammal_r(long double x, int *signgamp)
      17   */
      18  
      19  #include <math.h>
      20  #include <math_private.h>
      21  #include <math-svid-compat.h>
      22  #include <libm-alias-ldouble.h>
      23  
      24  
      25  #if LIBM_SVID_COMPAT
      26  long double
      27  __lgammal_r(long double x, int *signgamp)
      28  {
      29  	long double y = __ieee754_lgammal_r(x,signgamp);
      30  	if(__builtin_expect(!isfinite(y), 0)
      31  	   && isfinite(x) && _LIB_VERSION != _IEEE_)
      32  		return __kernel_standard(x, x,
      33  					 floorl(x)==x&&x<=0.0
      34  					 ? 215 /* lgamma pole */
      35  					 : 214); /* lgamma overflow */
      36  
      37  	return y;
      38  }
      39  libm_alias_ldouble_r (__lgamma, lgamma, _r)
      40  #endif