diff options
author | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
---|---|---|
committer | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
commit | 554fd8c5195424bdbcabf5de30fdc183aba391bd (patch) | |
tree | 976dc5ab7fddf506dadce60ae936f43f58787092 /libquadmath/math/sincosq.c | |
download | cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2 cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz |
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.
downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.
if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
Diffstat (limited to 'libquadmath/math/sincosq.c')
-rw-r--r-- | libquadmath/math/sincosq.c | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/libquadmath/math/sincosq.c b/libquadmath/math/sincosq.c new file mode 100644 index 000000000..b7c221486 --- /dev/null +++ b/libquadmath/math/sincosq.c @@ -0,0 +1,68 @@ +/* Compute sine and cosine of argument. + Copyright (C) 1997, 1999 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997 and + Jakub Jelinek <jj@ultra.linux.cz>. + + 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, write to the Free + Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA + 02111-1307 USA. */ + +#include "quadmath-imp.h" + +void +sincosq (__float128 x, __float128 *sinx, __float128 *cosx) +{ + int64_t ix; + + /* High word of x. */ + GET_FLT128_MSW64 (ix, x); + + /* |x| ~< pi/4 */ + ix &= 0x7fffffffffffffffLL; + if (ix <= 0x3ffe921fb54442d1LL) + __quadmath_kernel_sincosq (x, 0.0Q, sinx, cosx, 0); + else if (ix >= 0x7fff000000000000LL) + { + /* sin(Inf or NaN) is NaN */ + *sinx = *cosx = x - x; + } + else + { + /* Argument reduction needed. */ + __float128 y[2]; + int n; + + n = __quadmath_rem_pio2q (x, y); + switch (n & 3) + { + case 0: + __quadmath_kernel_sincosq (y[0], y[1], sinx, cosx, 1); + break; + case 1: + __quadmath_kernel_sincosq (y[0], y[1], cosx, sinx, 1); + *cosx = -*cosx; + break; + case 2: + __quadmath_kernel_sincosq (y[0], y[1], sinx, cosx, 1); + *sinx = -*sinx; + *cosx = -*cosx; + break; + default: + __quadmath_kernel_sincosq (y[0], y[1], cosx, sinx, 1); + *sinx = -*sinx; + break; + } + } +} |