From 15b3c029dcffaf1fdc2a847ee8b32c59d4774d2b Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Sat, 12 May 2001 20:15:01 +0000 Subject: [PATCH] Update. * sysdeps/ieee754/dbl-64/s_sin.c: Include "math_private.h" for internal prototypes. * sysdeps/ieee754/dbl-64/doasin.c: Likewise. * sysdeps/ieee754/dbl-64/dosincos.c: Likewise. * sysdeps/ieee754/dbl-64/halfulp.c: Likewise. * sysdeps/ieee754/dbl-64/sincos32.c: Likewise. * sysdeps/ieee754/dbl-64/slowexp.c: Likewise. * sysdeps/ieee754/dbl-64/slowpow.c: Likewise. * math/math_private.h: Add prototypes for internal functions of the IBM Accurate Mathematical Library. * sysdeps/ieee754/dbl-64/s_atan.c: Include "math.h" for prototypes. * sysdeps/ieee754/dbl-64/s_tan.c: Likewise. --- ChangeLog | 16 ++++++++++++++++ math/math_private.h | 19 +++++++++++++++++++ sysdeps/ieee754/dbl-64/doasin.c | 2 +- sysdeps/ieee754/dbl-64/dosincos.c | 3 ++- sysdeps/ieee754/dbl-64/halfulp.c | 2 +- sysdeps/ieee754/dbl-64/s_atan.c | 1 + sysdeps/ieee754/dbl-64/s_sin.c | 1 + sysdeps/ieee754/dbl-64/s_tan.c | 2 ++ sysdeps/ieee754/dbl-64/sincos32.c | 2 +- sysdeps/ieee754/dbl-64/slowexp.c | 2 +- sysdeps/ieee754/dbl-64/slowpow.c | 2 +- 11 files changed, 46 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 93adfdf..98500bd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,21 @@ 2001-05-12 Andreas Jaeger + * sysdeps/ieee754/dbl-64/s_sin.c: Include "math_private.h" for + internal prototypes. + * sysdeps/ieee754/dbl-64/doasin.c: Likewise. + * sysdeps/ieee754/dbl-64/dosincos.c: Likewise. + * sysdeps/ieee754/dbl-64/halfulp.c: Likewise. + * sysdeps/ieee754/dbl-64/sincos32.c: Likewise. + * sysdeps/ieee754/dbl-64/slowexp.c: Likewise. + * sysdeps/ieee754/dbl-64/slowpow.c: Likewise. + + * math/math_private.h: Add prototypes for internal functions of + the IBM Accurate Mathematical Library. + + * sysdeps/ieee754/dbl-64/s_atan.c: Include "math.h" for + prototypes. + * sysdeps/ieee754/dbl-64/s_tan.c: Likewise. + * sysdeps/ieee754/dbl-64/e_asin.c: Include "math_private.h" for internal prototypes. * sysdeps/ieee754/dbl-64/s_atan.c: Likewise. diff --git a/math/math_private.h b/math/math_private.h index eea7e34..19404d0 100644 --- a/math/math_private.h +++ b/math/math_private.h @@ -292,4 +292,23 @@ extern long double fabsl (long double x); extern void __sincosl (long double, long double *, long double *); #endif +/* Prototypes for functions of the IBM Accurate Mathematical Library. */ +extern double __exp1 (double __x, double __xx, double __error); +extern double __sin (double __x); +extern double __cos (double __x); +extern int __branred (double __x, double *__a, double *__aa); +extern void __doasin (double __x, double __dx, double __v[]); +extern void __dubsin (double __x, double __dx, double __v[]); +extern void __dubcos (double __x, double __dx, double __v[]); +extern double __halfulp (double __x, double __y); +extern double __sin32 (double __x, double __res, double __res1); +extern double __cos32 (double __x, double __res, double __res1); +extern double __mpsin (double __x, double __dx); +extern double __mpcos (double __x, double __dx); +extern double __mpsin1 (double __x); +extern double __mpcos1 (double __x); +extern double __slowexp (double __x); +extern double __slowpow (double __x, double __y, double __z); +extern void __docos (double __x, double __dx, double __v[]); + #endif /* _MATH_PRIVATE_H_ */ diff --git a/sysdeps/ieee754/dbl-64/doasin.c b/sysdeps/ieee754/dbl-64/doasin.c index d3cc88b..a051ca3 100644 --- a/sysdeps/ieee754/dbl-64/doasin.c +++ b/sysdeps/ieee754/dbl-64/doasin.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -32,6 +31,7 @@ #include "endian.h" #include "mydefs.h" #include "dla.h" +#include "math_private.h" /********************************************************************/ /* Compute arcsin(x,dx,v) of double-length number (x+dx) the result */ diff --git a/sysdeps/ieee754/dbl-64/dosincos.c b/sysdeps/ieee754/dbl-64/dosincos.c index 498cc60..4a76d20 100644 --- a/sysdeps/ieee754/dbl-64/dosincos.c +++ b/sysdeps/ieee754/dbl-64/dosincos.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -38,6 +37,8 @@ #include "sincos.tbl" #include "dla.h" #include "dosincos.h" +#include "math_private.h" + /***********************************************************************/ /* Routine receive Double-Length number (x+dx) and computing sin(x+dx) */ /* as Double-Length number and store it at array v .It computes it by */ diff --git a/sysdeps/ieee754/dbl-64/halfulp.c b/sysdeps/ieee754/dbl-64/halfulp.c index 929ca91..835a8a4 100644 --- a/sysdeps/ieee754/dbl-64/halfulp.c +++ b/sysdeps/ieee754/dbl-64/halfulp.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -38,6 +37,7 @@ #include "endian.h" #include "mydefs.h" #include "dla.h" +#include "math_private.h" double __ieee754_sqrt(double x); diff --git a/sysdeps/ieee754/dbl-64/s_atan.c b/sysdeps/ieee754/dbl-64/s_atan.c index 2872c75..fa5d4c2 100644 --- a/sysdeps/ieee754/dbl-64/s_atan.c +++ b/sysdeps/ieee754/dbl-64/s_atan.c @@ -41,6 +41,7 @@ #include "MathLib.h" #include "uatan.tbl" #include "atnat.h" +#include "math.h" void __mpatan(mp_no *,mp_no *,int); /* see definition in mpatan.c */ static double atanMp(double,const int[]); diff --git a/sysdeps/ieee754/dbl-64/s_sin.c b/sysdeps/ieee754/dbl-64/s_sin.c index ff6cf01..5a95aba 100644 --- a/sysdeps/ieee754/dbl-64/s_sin.c +++ b/sysdeps/ieee754/dbl-64/s_sin.c @@ -52,6 +52,7 @@ #include "usncs.h" #include "MathLib.h" #include "sincos.tbl" +#include "math_private.h" static const double sn3 = -1.66666666666664880952546298448555E-01, diff --git a/sysdeps/ieee754/dbl-64/s_tan.c b/sysdeps/ieee754/dbl-64/s_tan.c index 7b5dc4f..88aabfd 100644 --- a/sysdeps/ieee754/dbl-64/s_tan.c +++ b/sysdeps/ieee754/dbl-64/s_tan.c @@ -36,6 +36,8 @@ #include "dla.h" #include "mpa.h" #include "MathLib.h" +#include "math.h" + static double tanMp(double); void __mptan(double, mp_no *, int); diff --git a/sysdeps/ieee754/dbl-64/sincos32.c b/sysdeps/ieee754/dbl-64/sincos32.c index 0fee643..4ee4248 100644 --- a/sysdeps/ieee754/dbl-64/sincos32.c +++ b/sysdeps/ieee754/dbl-64/sincos32.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -43,6 +42,7 @@ #include "endian.h" #include "mpa.h" #include "sincos32.h" +#include "math_private.h" /****************************************************************/ /* Compute Multi-Precision sin() function for given p. Receive */ diff --git a/sysdeps/ieee754/dbl-64/slowexp.c b/sysdeps/ieee754/dbl-64/slowexp.c index 3a3758b..80e1571 100644 --- a/sysdeps/ieee754/dbl-64/slowexp.c +++ b/sysdeps/ieee754/dbl-64/slowexp.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -29,6 +28,7 @@ /* e^x */ /**************************************************************************/ #include "mpa.h" +#include "math_private.h" void __mpexp(mp_no *x, mp_no *y, int p); diff --git a/sysdeps/ieee754/dbl-64/slowpow.c b/sysdeps/ieee754/dbl-64/slowpow.c index 3412197..1019380 100644 --- a/sysdeps/ieee754/dbl-64/slowpow.c +++ b/sysdeps/ieee754/dbl-64/slowpow.c @@ -1,4 +1,3 @@ - /* * IBM Accurate Mathematical Library * Copyright (c) International Business Machines Corp., 2001 @@ -33,6 +32,7 @@ /*************************************************************************/ #include "mpa.h" +#include "math_private.h" void __mpexp(mp_no *x, mp_no *y, int p); void __mplog(mp_no *x, mp_no *y, int p); -- 2.7.4