patches/glibc/2.9/270-ldbl-nexttowardf.patch
author Arnaud Lacombe <lacombar@gmail.com>
Thu Aug 05 17:59:51 2010 +0200 (2010-08-05)
changeset 2069 366bd2b22675
parent 1201 c9967a6e3b25
permissions -rw-r--r--
complibs/mpc: fix MPC 0.8.1 build with MPFR 3.0.0

This is the change introduced by revision 734 of MPC repository.

Author: Paul Zimmermann <Paul.Zimmermann@loria.fr>
Revision log: [acos.c] fixed problem with GMP_RNDA (should be MPFR_RNDA, and code was wrong)

Signed-off-by: Arnaud Lacombe <lacombar@gmail.com>
yann@1201
     1
Original patch from: gentoo/src/patchsets/glibc/2.9/1073_all_glibc-ldbl-nexttowardf.patch
yann@1201
     2
yann@1201
     3
-= BEGIN original header =-
yann@1201
     4
ripped from Debian
yann@1201
     5
yann@1201
     6
this change was made to generic __nexttowardf, but not the long double version
yann@1201
     7
yann@1201
     8
2008-05-05  Aurelien Jarno  <aurelien@aurel32.net>
yann@1201
     9
yann@1201
    10
	* sysdeps/ieee754/ldbl-128/s_nexttowardf.c: Include float.h.
yann@1201
    11
	(__nexttowardf): Use math_opt_barrier and
yann@1201
    12
	math_force_eval macros.  If FLT_EVAL_METHOD is not 0, force
yann@1201
    13
	x to float using asm.
yann@1201
    14
yann@1201
    15
-= END original header =-
yann@1201
    16
yann@1201
    17
diff -durN glibc-2_9.orig/sysdeps/ieee754/ldbl-128/s_nexttowardf.c glibc-2_9/sysdeps/ieee754/ldbl-128/s_nexttowardf.c
yann@1201
    18
--- glibc-2_9.orig/sysdeps/ieee754/ldbl-128/s_nexttowardf.c	1999-07-14 02:09:42.000000000 +0200
yann@1201
    19
+++ glibc-2_9/sysdeps/ieee754/ldbl-128/s_nexttowardf.c	2009-02-02 22:00:59.000000000 +0100
yann@1201
    20
@@ -19,7 +19,8 @@
yann@1201
    21
 #endif
yann@1201
    22
 
yann@1201
    23
 #include "math.h"
yann@1201
    24
-#include "math_private.h"
yann@1201
    25
+#include <math_private.h>
yann@1201
    26
+#include <float.h>
yann@1201
    27
 
yann@1201
    28
 #ifdef __STDC__
yann@1201
    29
 	float __nexttowardf(float x, long double y)
yann@1201
    30
@@ -44,10 +45,12 @@
yann@1201
    31
 	   return x+y;
yann@1201
    32
 	if((long double) x==y) return y;	/* x=y, return y */
yann@1201
    33
 	if(ix==0) {				/* x == 0 */
yann@1201
    34
-	    float x2;
yann@1201
    35
+	    float u;
yann@1201
    36
 	    SET_FLOAT_WORD(x,(u_int32_t)((hy>>32)&0x80000000)|1);/* return +-minsub*/
yann@1201
    37
-	    x2 = x*x;
yann@1201
    38
-	    if(x2==x) return x2; else return x;	/* raise underflow flag */
yann@1201
    39
+	    u = math_opt_barrier (x);
yann@1201
    40
+	    u = u * u;
yann@1201
    41
+	    math_force_eval (u);		/* raise underflow flag */
yann@1201
    42
+	    return x;
yann@1201
    43
 	}
yann@1201
    44
 	if(hx>=0) {				/* x > 0 */
yann@1201
    45
 	    if(hy<0||(ix>>23)>(iy>>48)-0x3f80
yann@1201
    46
@@ -67,13 +70,16 @@
yann@1201
    47
 	    }
yann@1201
    48
 	}
yann@1201
    49
 	hy = hx&0x7f800000;
yann@1201
    50
-	if(hy>=0x7f800000) return x+x;	/* overflow  */
yann@1201
    51
+	if(hy>=0x7f800000) {
yann@1201
    52
+	  x = x+x;	/* overflow  */
yann@1201
    53
+	  if (FLT_EVAL_METHOD != 0)
yann@1201
    54
+	    /* Force conversion to float.  */
yann@1201
    55
+	    asm ("" : "+m"(x));
yann@1201
    56
+	  return x;
yann@1201
    57
+	}
yann@1201
    58
 	if(hy<0x00800000) {		/* underflow */
yann@1201
    59
-	    float x2 = x*x;
yann@1201
    60
-	    if(x2!=x) {		/* raise underflow flag */
yann@1201
    61
-	        SET_FLOAT_WORD(x2,hx);
yann@1201
    62
-		return x2;
yann@1201
    63
-	    }
yann@1201
    64
+	    float u = x*x;
yann@1201
    65
+	    math_force_eval (u);	/* raise underflow flag */
yann@1201
    66
 	}
yann@1201
    67
 	SET_FLOAT_WORD(x,hx);
yann@1201
    68
 	return x;