| /* Wrapper to set errno for j1 and y1. |
| 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> |
| |
| FLOAT |
| M_DECL_FUNC (__j1) (FLOAT x) |
| { |
| return M_SUF (__ieee754_j1) (x); |
| } |
| declare_mgen_alias (__j1, j1) |
| |
| FLOAT |
| M_DECL_FUNC (__y1) (FLOAT x) |
| { |
| if (__glibc_unlikely (islessequal (x, M_LIT (0.0)))) |
| { |
| if (x < 0) |
| /* Domain error: y1(x<0). */ |
| __set_errno (EDOM); |
| else if (x == 0) |
| /* Pole error: y1(0). */ |
| __set_errno (ERANGE); |
| } |
| return M_SUF (__ieee754_y1) (x); |
| } |
| declare_mgen_alias (__y1, y1) |
| |
| #endif /* __USE_WRAPPER_TEMPLATE. */ |
