1 /* @(#)e_lgamma.c 1.3 95/01/18 */
2 /*
3  * ====================================================
4  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5  *
6  * Developed at SunSoft, a Sun Microsystems, Inc. business.
7  * Permission to use, copy, modify, and distribute this
8  * software is freely granted, provided that this notice
9  * is preserved.
10  * ====================================================
11  *
12  */
13 
14 long double
lgammal(long double x)15 lgammal(long double x)
16 {
17 	return (lgammal_r(x, &signgam));
18 }
19 
20 #  ifdef _HAVE_ALIAS_ATTRIBUTE
21 #ifdef __GNUC__
22 #pragma GCC diagnostic ignored "-Wpragmas"
23 #pragma GCC diagnostic ignored "-Wunknown-warning-option"
24 #pragma GCC diagnostic ignored "-Wattribute-alias="
25 #pragma GCC diagnostic ignored "-Wmissing-attributes"
26 #endif
27 __strong_reference(lgammal, gammal);
28 #else
29 long double
gammal(long double x)30 gammal(long double x)
31 {
32     return lgammal(x);
33 }
34 #endif
35