newlib/libm/ld/e_lgammal.c

   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 #include <sys/cdefs.h>
  14 __FBSDID("$FreeBSD$");
  15
  16 #include "math.h"
  17 #include "math_private.h"
  18
  19 long double lgammal_r(long double x, int *signp);
  20
  21 extern int signgam;
  22
  23 long double
  24 lgammal(long double x)
  25 {
  26         return lgammal_r(x,&signgam);
  27 }