mirrors/musl
1
0
Fork 0
mirror of https://git.musl-libc.org/git/musl synced 2025-02-24 06:04:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

math: excess precision fix modf, modff, scalbn, scalbnf

Browse Source 
old code was correct only if the result was stored (without the
excess precision) or musl was compiled with -ffloat-store.
now we use STRICT_ASSIGN to work around the issue.
(see note 160 in c11 section 6.8.6.4)
This commit is contained in:
Szabolcs Nagy 2012-11-13 10:55:35 +01:00
parent 666271c105
commit c4359e0130
4 changed files with 18 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/math/modf.c
View File

@ -1,5 +1,4 @@
#include <math.h>
#include <stdint.h>
#include "libm.h"
double modf(double x, double *iptr)
{
@ -33,5 +32,6 @@ double modf(double x, double *iptr)
}
u.n &= ~mask;
*iptr = u.x;
return x - *iptr;
STRICT_ASSIGN(double, x, x - *iptr);
return x;
}

6
src/math/modff.c
View File

@ -1,5 +1,4 @@
#include <math.h>
#include <stdint.h>
#include "libm.h"
float modff(float x, float *iptr)
{
@ -33,5 +32,6 @@ float modff(float x, float *iptr)
}
u.n &= ~mask;
*iptr = u.x;
return x - *iptr;
STRICT_ASSIGN(float, x, x - *iptr);
return x;
}

14
src/math/scalbn.c
View File

@ -2,8 +2,6 @@
double scalbn(double x, int n)
{
/* make sure result is stored as double on overflow or underflow */
volatile double z;
double scale;
if (n > 1023) {
@ -13,8 +11,8 @@ double scalbn(double x, int n)
x *= 0x1p1023;
n -= 1023;
if (n > 1023) {
z = x * 0x1p1023;
return z;
STRICT_ASSIGN(double, x, x * 0x1p1023);
return x;
}
}
} else if (n < -1022) {
@ -24,12 +22,12 @@ double scalbn(double x, int n)
x *= 0x1p-1022;
n += 1022;
if (n < -1022) {
z = x * 0x1p-1022;
return z;
STRICT_ASSIGN(double, x, x * 0x1p-1022);
return x;
}
}
}
INSERT_WORDS(scale, (uint32_t)(0x3ff+n)<<20, 0);
z = x * scale;
return z;
STRICT_ASSIGN(double, x, x * scale);
return x;
}

14
src/math/scalbnf.c
View File

@ -2,8 +2,6 @@
float scalbnf(float x, int n)
{
/* make sure result is stored as double on overflow or underflow */
volatile float z;
float scale;
if (n > 127) {
@ -13,8 +11,8 @@ float scalbnf(float x, int n)
x *= 0x1p127f;
n -= 127;
if (n > 127) {
z = x * 0x1p127f;
return z;
STRICT_ASSIGN(float, x, x * 0x1p127f);
return x;
}
}
} else if (n < -126) {
@ -24,12 +22,12 @@ float scalbnf(float x, int n)
x *= 0x1p-126f;
n += 126;
if (n < -126) {
z = x * 0x1p-126f;
return z;
STRICT_ASSIGN(float, x, x * 0x1p-126f);
return x;
}
}
}
SET_FLOAT_WORD(scale, (uint32_t)(0x7f+n)<<23);
z = x * scale;
return z;
STRICT_ASSIGN(float, x, x * scale);
return x;
}