[commits] r9673 - in /fsf/trunk/libc: ./ sysdeps/ieee754/ldbl-128/

[eglibc@xxxxxxxxxx]

Author: eglibc
Date: Sun Jan 17 00:02:56 2010
New Revision: 9673

Log:
Import glibc-mainline for 2010-01-17

Modified:
    fsf/trunk/libc/ChangeLog
    fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_ceill.c
    fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_expm1l.c
    fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_floorl.c
    fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c
    fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_nexttowardf.c

Modified: fsf/trunk/libc/ChangeLog
==============================================================================
--- fsf/trunk/libc/ChangeLog (original)
+++ fsf/trunk/libc/ChangeLog Sun Jan 17 00:02:56 2010
@@ -1,3 +1,15 @@
+2010-01-16  Jakub Jelinek  <jakub@xxxxxxxxxx>
+
+	* sysdeps/ieee754/ldbl-128/s_ceill.c (huge): Add L suffix to the
+	constant.
+	* sysdeps/ieee754/ldbl-128/s_floorl.c (huge): Likewise.
+	* sysdeps/ieee754/ldbl-128/s_expm1l.c (big): Decrease to avoid
+	overflow.
+	* sysdeps/ieee754/ldbl-128/s_log1pl.c (big): Remove unused variable.
+
+	* sysdeps/ieee754/ldbl-128/s_nexttowardf.c (__nexttowardf): Use
+	math_opt_barrier and math_force_eval macros.
+
 2010-01-15  Ulrich Drepper  <drepper@xxxxxxxxxx>
 
 	* posix/regcomp.c: Fix a few more cases of ignored return values.

Modified: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_ceill.c
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_ceill.c (original)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_ceill.c Sun Jan 17 00:02:56 2010
@@ -30,9 +30,9 @@
 #include "math_private.h"
 
 #ifdef __STDC__
-static const long double huge = 1.0e4930;
+static const long double huge = 1.0e4930L;
 #else
-static long double huge = 1.0e4930;
+static long double huge = 1.0e4930L;
 #endif
 
 #ifdef __STDC__

Modified: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_expm1l.c
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_expm1l.c (original)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_expm1l.c Sun Jan 17 00:02:56 2010
@@ -86,7 +86,7 @@
 /* ln (2^16384 * (1 - 2^-113)) */
   maxlog = 1.1356523406294143949491931077970764891253E4L,
 /* ln 2^-114 */
-  minarg = -7.9018778583833765273564461846232128760607E1L, big = 2e4932L;
+  minarg = -7.9018778583833765273564461846232128760607E1L, big = 1e4932L;
 
 
 long double

Modified: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_floorl.c
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_floorl.c (original)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_floorl.c Sun Jan 17 00:02:56 2010
@@ -30,9 +30,9 @@
 #include "math_private.h"
 
 #ifdef __STDC__
-static const long double huge = 1.0e4930;
+static const long double huge = 1.0e4930L;
 #else
-static long double huge = 1.0e4930;
+static long double huge = 1.0e4930L;
 #endif
 
 #ifdef __STDC__

Modified: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c (original)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_log1pl.c Sun Jan 17 00:02:56 2010
@@ -117,7 +117,6 @@
 static const long double sqrth = 0.7071067811865475244008443621048490392848L;
 /* ln (2^16384 * (1 - 2^-113)) */
 static const long double maxlog = 1.1356523406294143949491931077970764891253E4L;
-static const long double big = 2e4932L;
 static const long double zero = 0.0L;
 
 long double

Modified: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_nexttowardf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_nexttowardf.c (original)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/s_nexttowardf.c Sun Jan 17 00:02:56 2010
@@ -44,10 +44,12 @@
 	   return x+y;
 	if((long double) x==y) return y;	/* x=y, return y */
 	if(ix==0) {				/* x == 0 */
-	    float x2;
+	    float u;
 	    SET_FLOAT_WORD(x,(u_int32_t)((hy>>32)&0x80000000)|1);/* return +-minsub*/
-	    x2 = x*x;
-	    if(x2==x) return x2; else return x;	/* raise underflow flag */
+	    u = math_opt_barrier (x);
+	    u = u * u;
+	    math_force_eval (u);		/* raise underflow flag */
+	    return x;
 	}
 	if(hx>=0) {				/* x > 0 */
 	    if(hy<0||(ix>>23)>(iy>>48)-0x3f80
@@ -68,12 +70,9 @@
 	}
 	hy = hx&0x7f800000;
 	if(hy>=0x7f800000) return x+x;	/* overflow  */
-	if(hy<0x00800000) {		/* underflow */
-	    float x2 = x*x;
-	    if(x2!=x) {		/* raise underflow flag */
-	        SET_FLOAT_WORD(x2,hx);
-		return x2;
-	    }
+	if(hy<0x00800000) {
+	    float u = x*x;		/* underflow */
+	    math_force_eval (u);	/* raise underflow flag */
 	}
 	SET_FLOAT_WORD(x,hx);
 	return x;