w_lgammal.c 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839
  1. /* w_lgammal.c -- long double version of w_lgamma.c.
  2. * Conversion to long double by Ulrich Drepper,
  3. * Cygnus Support, drepper@cygnus.com.
  4. */
  5. /*
  6. * ====================================================
  7. * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
  8. *
  9. * Developed at SunPro, a Sun Microsystems, Inc. business.
  10. * Permission to use, copy, modify, and distribute this
  11. * software is freely granted, provided that this notice
  12. * is preserved.
  13. * ====================================================
  14. */
  15. /* long double lgammal(long double x)
  16. * Return the logarithm of the Gamma function of x.
  17. *
  18. * Method: call __ieee754_lgammal_r
  19. */
  20. #include <math.h>
  21. #include "math_private.h"
  22. #if !defined __NO_LONG_DOUBLE_MATH
  23. long double lgammal(long double x)
  24. {
  25. return lgammal_r(x, &signgam);
  26. }
  27. /* NB: gamma function is an old name for lgamma.
  28. * It is deprecated.
  29. * Some C math libraries redefine it as a "true gamma", i.e.,
  30. * not a ln(|Gamma(x)|) but just Gamma(x), but standards
  31. * introduced tgamma name for that.
  32. */
  33. strong_alias(lgammal, gammal)
  34. #endif