diff options
author | Paul E. Murphy <murphyp@linux.vnet.ibm.com> | 2016-07-01 10:55:27 -0500 |
---|---|---|
committer | Paul E. Murphy <murphyp@linux.vnet.ibm.com> | 2016-08-19 16:12:36 -0500 |
commit | ffb84f5e197aaa9d46a35df84689c75d689d73cb (patch) | |
tree | bf042c5c45738def34881b33863ba78f0ae901d2 /math/s_casin_template.c | |
parent | a6f20b6763c972c05c497c6028d412d6d1717971 (diff) | |
download | glibc-ffb84f5e197aaa9d46a35df84689c75d689d73cb.tar.gz glibc-ffb84f5e197aaa9d46a35df84689c75d689d73cb.tar.xz glibc-ffb84f5e197aaa9d46a35df84689c75d689d73cb.zip |
Prepare to convert _Complex sine functions
This patch has no function changes, except to ensure the git history correctly tracks the changes to convert the double version of these functions into a templated version.
Diffstat (limited to 'math/s_casin_template.c')
-rw-r--r-- | math/s_casin_template.c | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/math/s_casin_template.c b/math/s_casin_template.c new file mode 100644 index 0000000000..a37933b597 --- /dev/null +++ b/math/s_casin_template.c @@ -0,0 +1,66 @@ +/* Return arc sine of complex double value. + Copyright (C) 1997-2016 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. + + 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/>. */ + +#include <complex.h> +#include <math.h> +#include <math_private.h> + + +__complex__ double +__casin (__complex__ double x) +{ + __complex__ double res; + + if (isnan (__real__ x) || isnan (__imag__ x)) + { + if (__real__ x == 0.0) + { + res = x; + } + else if (isinf (__real__ x) || isinf (__imag__ x)) + { + __real__ res = __nan (""); + __imag__ res = __copysign (HUGE_VAL, __imag__ x); + } + else + { + __real__ res = __nan (""); + __imag__ res = __nan (""); + } + } + else + { + __complex__ double y; + + __real__ y = -__imag__ x; + __imag__ y = __real__ x; + + y = __casinh (y); + + __real__ res = __imag__ y; + __imag__ res = -__real__ y; + } + + return res; +} +weak_alias (__casin, casin) +#ifdef NO_LONG_DOUBLE +strong_alias (__casin, __casinl) +weak_alias (__casin, casinl) +#endif |