| /* Wrapper to set errno for lgamma_r. |
| Copyright (C) 2017-2018 Free Software Foundation, Inc. |
| This file is part of the GNU C Library. |
| |
| The GNU C Library is free software; you can redistribute it and/or |
| modify it under the terms of the GNU Lesser General Public |
| License as published by the Free Software Foundation; either |
| version 2.1 of the License, or (at your option) any later version. |
| |
| The GNU C Library is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public |
| License along with the GNU C Library; if not, see |
| <http://www.gnu.org/licenses/>. */ |
| |
| /* Only build wrappers from the templates for the types that define the macro |
| below. This macro is set in math-type-macros-<type>.h in sysdeps/generic |
| for each floating-point type. */ |
| #if __USE_WRAPPER_TEMPLATE |
| |
| # include <errno.h> |
| # include <fenv.h> |
| # include <math.h> |
| # include <math_private.h> |
| |
| #define M_DECL_FUNC_R_X(x) x ## _r |
| #define M_DECL_FUNC_R_S(x) M_DECL_FUNC_R_X (x) |
| #define M_DECL_FUNC_R(x) M_DECL_FUNC_R_S (M_SUF (x)) |
| |
| #define M_CALL_FUNC_R_X(x) x ## _r |
| #define M_CALL_FUNC_R_S(x) M_CALL_FUNC_R_X (x) |
| #define M_CALL_FUNC_R(x) M_CALL_FUNC_R_S (M_SUF (x)) |
| |
| FLOAT |
| M_DECL_FUNC_R (__lgamma) (FLOAT x, int *signgamp) |
| { |
| FLOAT y = M_CALL_FUNC_R (__ieee754_lgamma) (x, signgamp); |
| if (__glibc_unlikely (!isfinite (y)) && isfinite (x)) |
| /* Pole error: lgamma_r(integer x<0). Or overflow. */ |
| __set_errno (ERANGE); |
| return y; |
| } |
| declare_mgen_alias_r (__lgamma, lgamma) |
| |
| #endif /* __USE_WRAPPER_TEMPLATE. */ |
