1141296Sdas 2141296Sdas/* @(#)e_lgamma.c 1.3 95/01/18 */ 32116Sjkh/* 42116Sjkh * ==================================================== 52116Sjkh * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 62116Sjkh * 7141296Sdas * Developed at SunSoft, a Sun Microsystems, Inc. business. 82116Sjkh * Permission to use, copy, modify, and distribute this 9141296Sdas * software is freely granted, provided that this notice 102116Sjkh * is preserved. 112116Sjkh * ==================================================== 12141296Sdas * 132116Sjkh */ 142116Sjkh 15176451Sdas#include <sys/cdefs.h> 16176451Sdas__FBSDID("$FreeBSD$"); 172116Sjkh 182116Sjkh/* __ieee754_lgamma(x) 192116Sjkh * Return the logarithm of the Gamma function of x. 202116Sjkh * 212116Sjkh * Method: call __ieee754_lgamma_r 222116Sjkh */ 232116Sjkh 24271651Skargl#include <float.h> 25271651Skargl 262116Sjkh#include "math.h" 272116Sjkh#include "math_private.h" 282116Sjkh 292116Sjkhextern int signgam; 302116Sjkh 3197413Salfreddouble 3297413Salfred__ieee754_lgamma(double x) 332116Sjkh{ 342116Sjkh return __ieee754_lgamma_r(x,&signgam); 352116Sjkh} 36271651Skargl 37271651Skargl#if (LDBL_MANT_DIG == 53) 38271651Skargl__weak_reference(lgamma, lgammal); 39271651Skargl#endif 40