Mercurial > hg > CbC > CbC_gcc
comparison libquadmath/math/casinq.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 561a7518be6b |
children |
comparison
equal
deleted
inserted
replaced
131:84e7813d76e9 | 145:1830386684a0 |
---|---|
1 /* Return arc sine of complex __float128 value. | 1 /* Return arc sine of a complex float type. |
2 Copyright (C) 1997 Free Software Foundation, Inc. | 2 Copyright (C) 1997-2018 Free Software Foundation, Inc. |
3 This file is part of the GNU C Library. | 3 This file is part of the GNU C Library. |
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. | 4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. |
5 | 5 |
6 The GNU C Library is free software; you can redistribute it and/or | 6 The GNU C Library is free software; you can redistribute it and/or |
7 modify it under the terms of the GNU Lesser General Public | 7 modify it under the terms of the GNU Lesser General Public |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
14 Lesser General Public License for more details. | 14 Lesser General Public License for more details. |
15 | 15 |
16 You should have received a copy of the GNU Lesser General Public | 16 You should have received a copy of the GNU Lesser General Public |
17 License along with the GNU C Library; if not, write to the Free | 17 License along with the GNU C Library; if not, see |
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA | 18 <http://www.gnu.org/licenses/>. */ |
19 02111-1307 USA. */ | |
20 | 19 |
21 #include "quadmath-imp.h" | 20 #include "quadmath-imp.h" |
22 | |
23 | 21 |
24 __complex128 | 22 __complex128 |
25 casinq (__complex128 x) | 23 casinq (__complex128 x) |
26 { | 24 { |
27 __complex128 res; | 25 __complex128 res; |
28 | 26 |
29 if (isnanq (__real__ x) || isnanq (__imag__ x)) | 27 if (isnanq (__real__ x) || isnanq (__imag__ x)) |
30 { | 28 { |
31 if (__real__ x == 0.0) | 29 if (__real__ x == 0) |
32 { | 30 { |
33 res = x; | 31 res = x; |
34 } | 32 } |
35 else if (isinfq (__real__ x) || isinfq (__imag__ x)) | 33 else if (isinfq (__real__ x) || isinfq (__imag__ x)) |
36 { | 34 { |