From 3c6cad26ae5e78d70aa5d5ae743407c5c9c1b9e8 Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Mon, 16 Oct 2000 18:17:25 +0000 Subject: Update. * sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc. 2000-10-16 Jakub Jelinek * math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase precision. (acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test, sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also to parameters. (acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test, cacosh_test, cacos_test, casinh_test, casin_test, catanh_test, catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test, csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test, erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test, j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test, log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test, nextafter_test, nexttoward_test, pow_test, round_test, scalb_test, sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test, y1_test, yn_test): Add L suffixes also to parameters. * sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask. * sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise. * soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit. 2000-10-16 Ulrich Drepper --- sysdeps/i386/fpu/libm-test-ulps | 16 ++++++++-------- sysdeps/ieee754/ldbl-128/s_ceill.c | 2 +- sysdeps/ieee754/ldbl-128/s_floorl.c | 2 +- 3 files changed, 10 insertions(+), 10 deletions(-) (limited to 'sysdeps') diff --git a/sysdeps/i386/fpu/libm-test-ulps b/sysdeps/i386/fpu/libm-test-ulps index fc49e168cd..bd6dc44000 100644 --- a/sysdeps/i386/fpu/libm-test-ulps +++ b/sysdeps/i386/fpu/libm-test-ulps @@ -11,7 +11,7 @@ ldouble: 1 ildouble: 1 # asin -Test "asin (0.7) == 0.7753974966107530637": +Test "asin (0.7) == 0.77539749661075306374035335271498708": double: 1 ildouble: 1147 ldouble: 1147 @@ -246,7 +246,7 @@ ldouble: 4 Test "Imaginary part of: cexp (-2.0 - 3.0 i) == -0.1339809149295426134 - 0.0190985162611351964 i": ildouble: 18 ldouble: 18 -Test "Real part of: cexp (0.7 + 1.2 i) == 0.7296989091503236012 + 1.8768962328348102821 i": +Test "Real part of: cexp (0.7 + 1.2 i) == 0.72969890915032360123451688642930727 + 1.8768962328348102821139467908203072 i": float: 1 ifloat: 1 ildouble: 940 @@ -370,7 +370,7 @@ idouble: 1 ifloat: 1 # cos -Test "cos (0.7) == 0.7648421872844884262": +Test "cos (0.7) == 0.76484218728448842625585999019186495": double: 1 idouble: 1 ildouble: 529 @@ -543,7 +543,7 @@ ldouble: 412 Test "exp10 (-1) == 0.1": ildouble: 818 ldouble: 818 -Test "exp10 (0.7) == 5.0118723362727228500": +Test "exp10 (0.7) == 5.0118723362727228500155418688494574": double: 1 idouble: 1 ildouble: 1182 @@ -795,15 +795,15 @@ ildouble: 725 ldouble: 725 # sin -Test "sin (0.7) == 0.64421768723769105367": +Test "sin (0.7) == 0.64421768723769105367261435139872014": ildouble: 627 ldouble: 627 # sincos -Test "sincos (0.7, &sin_res, &cos_res) puts 0.64421768723769105367 in sin_res": +Test "sincos (0.7, &sin_res, &cos_res) puts 0.64421768723769105367261435139872014 in sin_res": ildouble: 627 ldouble: 627 -Test "sincos (0.7, &sin_res, &cos_res) puts 0.76484218728448842626 in cos_res": +Test "sincos (0.7, &sin_res, &cos_res) puts 0.76484218728448842625585999019186495 in cos_res": double: 1 idouble: 1 ildouble: 528 @@ -813,7 +813,7 @@ double: 1 float: 0.5 idouble: 1 ifloat: 0.5 -Test "sincos (M_PI_6l*2.0, &sin_res, &cos_res) puts 0.866025403784438646764 in sin_res": +Test "sincos (M_PI_6l*2.0, &sin_res, &cos_res) puts 0.86602540378443864676372317075293616 in sin_res": double: 1 float: 1 idouble: 1 diff --git a/sysdeps/ieee754/ldbl-128/s_ceill.c b/sysdeps/ieee754/ldbl-128/s_ceill.c index f241554042..76bda9fc0b 100644 --- a/sysdeps/ieee754/ldbl-128/s_ceill.c +++ b/sysdeps/ieee754/ldbl-128/s_ceill.c @@ -53,7 +53,7 @@ static long double huge = 1.0e4930; else if((i0|i1)!=0) { i0=0x3fff000000000000ULL;i1=0;} } } else { - i = (0x7fffffffffffffffULL)>>j0; + i = (0x0000ffffffffffffULL)>>j0; if(((i0&i)|i1)==0) return x; /* x is integral */ if(huge+x>0.0) { /* raise inexact flag */ if(i0>0) i0 += (0x0001000000000000LL)>>j0; diff --git a/sysdeps/ieee754/ldbl-128/s_floorl.c b/sysdeps/ieee754/ldbl-128/s_floorl.c index c9b8b70dbf..ff5b98da9d 100644 --- a/sysdeps/ieee754/ldbl-128/s_floorl.c +++ b/sysdeps/ieee754/ldbl-128/s_floorl.c @@ -54,7 +54,7 @@ static long double huge = 1.0e4930; { i0=0xbfff000000000000ULL;i1=0;} } } else { - i = (0x7fffffffffffffffULL)>>j0; + i = (0x0000ffffffffffffULL)>>j0; if(((i0&i)|i1)==0) return x; /* x is integral */ if(huge+x>0.0) { /* raise inexact flag */ if(i0<0) i0 += (0x0001000000000000LL)>>j0; -- cgit 1.4.1