1 /* Declarations for sinl, cosl, tanl internal functions. -*- coding: utf-8 -*- 2 Contributed by Paolo Bonzini 3 4 Copyright 2002-2003, 2009-2021 Free Software Foundation, Inc. 5 6 This file is part of gnulib. 7 8 This file is free software: you can redistribute it and/or modify 9 it under the terms of the GNU Lesser General Public License as 10 published by the Free Software Foundation; either version 3 of the 11 License, or (at your option) any later version. 12 13 This file is distributed in the hope that it will be useful, 14 but WITHOUT ANY WARRANTY; without even the implied warranty of 15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 GNU Lesser General Public License for more details. 17 18 You should have received a copy of the GNU Lesser General Public License 19 along with this program. If not, see <https://www.gnu.org/licenses/>. */ 20 21 /* Decompose x into x = k * π/2 + r 22 where k is an integer and abs(r) <= π/4. 23 Store r in y[0] and y[1] (main part in y[0], small additional part in 24 y[1], r = y[0] + y[1]). 25 Return k. */ 26 extern int ieee754_rem_pio2l (long double x, long double *y); 27 28 /* Compute and return sinl (x + y), where x is the main part and y is the 29 small additional part of a floating-point number. 30 iy is 0 when y is known to be 0.0, otherwise iy is 1. */ 31 extern long double kernel_sinl (long double x, long double y, int iy); 32 33 /* Compute and return cosl (x + y), where x is the main part and y is the 34 small additional part of a floating-point number. */ 35 extern long double kernel_cosl (long double x, long double y);