New module 'unicase/u16-is-lowercase'.

[pspp] / lib / sincosl.c

diff --git a/lib/sincosl.c b/lib/sincosl.c
index 9fa8be9fc9aca68aa2650f57e31b01a94b66d04b..1de04569ecdb5c488fc74d9ff5e2e56bac40f936 100644 (file)
--- a/lib/sincosl.c
+++ b/lib/sincosl.c
@@ -1,27 +1,27 @@
 /* Quad-precision floating point trigonometric functions on <-pi/4,pi/4>.
-   Copyright (C) 1999 Free Software Foundation, Inc.
+   Copyright (C) 1999, 2006, 2007 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by 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.
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
 
-   The GNU C Library is distributed in the hope that it will be useful,
+   This program 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.
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU 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.  */
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
+#include <config.h>
+
+/* Specification.  */
 #include <math.h>
-#include <float.h>
 
-#include "mathl.h"
+#include <float.h>
 
 static const long double sin_c[] = {
 #define ONE sin_c[0]
@@ -114,7 +114,7 @@ kernel_sinl (long double x, long double y, int iy)
       sign = -1;
     }
 
-  if (x < 0.148375L)           /* |x| < 0.1484375 */
+  if (x < 0.1484375L)          /* |x| < 0.1484375 */
     {
       /* Argument is small enough to approximate it by a Chebyshev
          polynomial of degree 17.  */
@@ -229,7 +229,7 @@ kernel_cosl (long double x, long double y)
    Computed using gmp.
  */
 
-const long double sincosl_table[] = {
+static const long double sincosl_table[] = {
 
 /* x =  1.48437500000000000000000000000000000e-01L 3ffc3000000000000000000000000000 */
 /* cos(x) = 0.fd2f5320e1b790209b4dda2f98f79caaa7b873aff1014b0fbc5243766d03cb006bc837c4358 */