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