xref: /freebsd/lib/msun/src/e_lgammal.c (revision 0dd5a5603e7a33d976f8e6015620bbc79839c609) 
1*f7efd14dSSteve Kargl /*
2*f7efd14dSSteve Kargl  * ====================================================
3*f7efd14dSSteve Kargl  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
4*f7efd14dSSteve Kargl  *
5*f7efd14dSSteve Kargl  * Developed at SunSoft, a Sun Microsystems, Inc. business.
6*f7efd14dSSteve Kargl  * Permission to use, copy, modify, and distribute this
7*f7efd14dSSteve Kargl  * software is freely granted, provided that this notice
8*f7efd14dSSteve Kargl  * is preserved.
9*f7efd14dSSteve Kargl  * ====================================================
10*f7efd14dSSteve Kargl  */
11*f7efd14dSSteve Kargl 
12*f7efd14dSSteve Kargl #include "math.h"
13*f7efd14dSSteve Kargl #include "math_private.h"
14*f7efd14dSSteve Kargl 
15*f7efd14dSSteve Kargl extern int signgam;
16*f7efd14dSSteve Kargl 
17*f7efd14dSSteve Kargl long double
lgammal(long double x)18*f7efd14dSSteve Kargl lgammal(long double x)
19*f7efd14dSSteve Kargl {
20*f7efd14dSSteve Kargl 	return lgammal_r(x,&signgam);
21*f7efd14dSSteve Kargl }
22