Author: dim Date: Fri Jul 20 18:27:30 2018 New Revision: 336563 URL: https://svnweb.freebsd.org/changeset/base/336563
Log: Recommit r336497: Fix powl, cpow, cpowf, and cpowl imports from OpenBSD This is a follow-up to r336299. * lib/msun/Makefile: . Remove polevll.c * lib/msun/ld80/e_powl.c: . Copy contents of polevll.c to here. This is the only consumer of these functions. Make functions 'static inline'. . Make reducl a 'static inline' function. * lib/msun/man/exp.3: . Remove BUGS section that no longer applies. * lib/msun/src/math_private.h: . Remove prototypes of __p1evll() and __polevll() * lib/msun/src/s_cpow.c: * lib/msun/src/s_cpowf.c: * lib/msun/src/s_cpowl.c . Include math_private.h. . Use the CMPLX macro from either C99 or math_private.h (depends on compiler support) instead of the problematic use of complex I. Submitted by: Steve Kargl <s...@troutmask.apl.washington.edu> PR: 229876 MFC after: 1 week Deleted: head/lib/msun/src/polevll.c Modified: head/lib/msun/Makefile head/lib/msun/ld80/e_powl.c head/lib/msun/man/exp.3 head/lib/msun/src/math_private.h head/lib/msun/src/s_cpow.c head/lib/msun/src/s_cpowf.c head/lib/msun/src/s_cpowl.c Modified: head/lib/msun/Makefile ============================================================================== --- head/lib/msun/Makefile Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/Makefile Fri Jul 20 18:27:30 2018 (r336563) @@ -56,7 +56,6 @@ COMMON_SRCS= b_exp.c b_log.c b_tgamma.c \ imprecise.c \ k_cos.c k_cosf.c k_exp.c k_expf.c k_rem_pio2.c k_sin.c k_sinf.c \ k_tan.c k_tanf.c \ - polevll.c \ s_asinh.c s_asinhf.c s_atan.c s_atanf.c s_carg.c s_cargf.c s_cargl.c \ s_cbrt.c s_cbrtf.c s_ceil.c s_ceilf.c s_clog.c s_clogf.c \ s_copysign.c s_copysignf.c s_cos.c s_cosf.c \ Modified: head/lib/msun/ld80/e_powl.c ============================================================================== --- head/lib/msun/ld80/e_powl.c Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/ld80/e_powl.c Fri Jul 20 18:27:30 2018 (r336563) @@ -14,6 +14,52 @@ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <math.h> + +#include "math_private.h" + +/* + * Polynomial evaluator: + * P[0] x^n + P[1] x^(n-1) + ... + P[n] + */ +static inline long double +__polevll(long double x, long double *PP, int n) +{ + long double y; + long double *P; + + P = PP; + y = *P++; + do { + y = y * x + *P++; + } while (--n); + + return (y); +} + +/* + * Polynomial evaluator: + * x^n + P[0] x^(n-1) + P[1] x^(n-2) + ... + P[n] + */ +static inline long double +__p1evll(long double x, long double *PP, int n) +{ + long double y; + long double *P; + + P = PP; + n -= 1; + y = x + *P++; + do { + y = y * x + *P++; + } while (--n); + + return (y); +} + /* powl.c * * Power function, long double precision @@ -467,7 +513,7 @@ return( z ); /* Find a multiple of 1/NXT that is within 1/NXT of x. */ -static long double +static inline long double reducl(long double x) { long double t; Modified: head/lib/msun/man/exp.3 ============================================================================== --- head/lib/msun/man/exp.3 Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/man/exp.3 Fri Jul 20 18:27:30 2018 (r336563) @@ -180,16 +180,9 @@ If 0**0 = 1, then then \*(Na**0 = 1 too because x**0 = 1 for all finite and infinite x, i.e., independently of x. .El -.Sh BUGS -To conform with newer C/C++ standards, a stub implementation for -.Nm powl -was committed to the math library, where -.Nm powl -is mapped to -.Nm pow . -Thus, the numerical accuracy is at most that of the 53-bit double -precision implementation. .Sh SEE ALSO +.Xr clog 3 +.Xr cpow 3 .Xr fenv 3 , .Xr ldexp 3 , .Xr log 3 , Modified: head/lib/msun/src/math_private.h ============================================================================== --- head/lib/msun/src/math_private.h Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/src/math_private.h Fri Jul 20 18:27:30 2018 (r336563) @@ -914,7 +914,4 @@ long double __kernel_sinl(long double, long double, in long double __kernel_cosl(long double, long double); long double __kernel_tanl(long double, long double, int); -long double __p1evll(long double, void *, int); -long double __polevll(long double, void *, int); - #endif /* !_MATH_PRIVATE_H_ */ Modified: head/lib/msun/src/s_cpow.c ============================================================================== --- head/lib/msun/src/s_cpow.c Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/src/s_cpow.c Fri Jul 20 18:27:30 2018 (r336563) @@ -49,6 +49,7 @@ __FBSDID("$FreeBSD$"); #include <complex.h> #include <float.h> #include <math.h> +#include "math_private.h" double complex cpow(double complex a, double complex z) @@ -60,7 +61,7 @@ cpow(double complex a, double complex z) y = cimag (z); absa = cabs (a); if (absa == 0.0) { - return (0.0 + 0.0 * I); + return (CMPLX(0.0, 0.0)); } arga = carg (a); r = pow (absa, x); @@ -69,6 +70,6 @@ cpow(double complex a, double complex z) r = r * exp (-y * arga); theta = theta + y * log (absa); } - w = r * cos (theta) + (r * sin (theta)) * I; + w = CMPLX(r * cos (theta), r * sin (theta)); return (w); } Modified: head/lib/msun/src/s_cpowf.c ============================================================================== --- head/lib/msun/src/s_cpowf.c Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/src/s_cpowf.c Fri Jul 20 18:27:30 2018 (r336563) @@ -48,6 +48,7 @@ __FBSDID("$FreeBSD$"); #include <complex.h> #include <math.h> +#include "math_private.h" float complex cpowf(float complex a, float complex z) @@ -59,7 +60,7 @@ cpowf(float complex a, float complex z) y = cimagf(z); absa = cabsf (a); if (absa == 0.0f) { - return (0.0f + 0.0f * I); + return (CMPLXF(0.0f, 0.0f)); } arga = cargf (a); r = powf (absa, x); @@ -68,6 +69,6 @@ cpowf(float complex a, float complex z) r = r * expf (-y * arga); theta = theta + y * logf (absa); } - w = r * cosf (theta) + (r * sinf (theta)) * I; + w = CMPLXF(r * cosf (theta), r * sinf (theta)); return (w); } Modified: head/lib/msun/src/s_cpowl.c ============================================================================== --- head/lib/msun/src/s_cpowl.c Fri Jul 20 18:02:52 2018 (r336562) +++ head/lib/msun/src/s_cpowl.c Fri Jul 20 18:27:30 2018 (r336563) @@ -48,6 +48,7 @@ __FBSDID("$FreeBSD$"); #include <complex.h> #include <math.h> +#include "math_private.h" long double complex cpowl(long double complex a, long double complex z) @@ -59,7 +60,7 @@ cpowl(long double complex a, long double complex z) y = cimagl(z); absa = cabsl(a); if (absa == 0.0L) { - return (0.0L + 0.0L * I); + return (CMPLXL(0.0L, 0.0L)); } arga = cargl(a); r = powl(absa, x); @@ -68,6 +69,6 @@ cpowl(long double complex a, long double complex z) r = r * expl(-y * arga); theta = theta + y * logl(absa); } - w = r * cosl(theta) + (r * sinl(theta)) * I; + w = CMPLXL(r * cosl(theta), r * sinl(theta)); return (w); } _______________________________________________ svn-src-head@freebsd.org mailing list https://lists.freebsd.org/mailman/listinfo/svn-src-head To unsubscribe, send any mail to "svn-src-head-unsubscr...@freebsd.org"