d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

In scanf, round according to the current rounding mode.

Browse Source
This commit is contained in:
David Schultz 2007-12-03 07:17:33 +00:00
parent 7c103000b6
commit 9c90f85a6b
7 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/libc/amd64/Makefile.inc
View File

@ -4,6 +4,6 @@
#
# Long double is 80 bits
GDTOASRCS+=strtopx.c
GDTOASRCS+=strtorx.c
MDSRCS+=machdep_ldisx.c
SYM_MAPS+=${.CURDIR}/amd64/Symbol.map

12
lib/libc/gdtoa/_ldtoa.c
View File

@ -46,11 +46,11 @@ char *
__ldtoa(long double *ld, int mode, int ndigits, int *decpt, int *sign,
char **rve)
{
static FPI fpi = {
FPI fpi = {
LDBL_MANT_DIG, /* nbits */
LDBL_MIN_EXP - LDBL_MANT_DIG, /* emin */
LDBL_MAX_EXP - LDBL_MANT_DIG, /* emax */
FPI_Round_near, /* rounding */
FLT_ROUNDS, /* rounding */
#ifdef Sudden_Underflow /* unused, but correct anyway */
1
#else
@ -64,7 +64,15 @@ __ldtoa(long double *ld, int mode, int ndigits, int *decpt, int *sign,
void *vbits = bits;
u.e = *ld;
/*
* gdtoa doesn't know anything about the sign of the number, so
* if the number is negative, we need to swap rounding modes of
* 2 (upwards) and 3 (downwards).
*/
*sign = u.bits.sign;
fpi.rounding ^= (fpi.rounding >> 1) & u.bits.sign;
be = u.bits.exp - (LDBL_MAX_EXP - 1) - (LDBL_MANT_DIG - 1);
LDBL_TO_ARRAY32(u, bits);

4
lib/libc/gdtoa/machdep_ldisQ.c
View File

@ -33,6 +33,8 @@
#include <sys/cdefs.h>
__FBSDID("$FreeBSD$");
#include <float.h>
#include "gdtoaimp.h"
long double
@ -40,6 +42,6 @@ strtold(const char * __restrict s, char ** __restrict sp)
{
long double result;
strtopQ(s, sp, &result);
strtorQ(s, sp, FLT_ROUNDS, &result);
return result;
}

4
lib/libc/gdtoa/machdep_ldisx.c
View File

@ -33,6 +33,8 @@
#include <sys/cdefs.h>
__FBSDID("$FreeBSD$");
#include <float.h>
#include "gdtoaimp.h"
long double
@ -40,6 +42,6 @@ strtold(const char * __restrict s, char ** __restrict sp)
{
long double result;
strtopx(s, sp, &result);
strtorx(s, sp, FLT_ROUNDS, &result);
return result;
}

2
lib/libc/i386/Makefile.inc
View File

@ -1,6 +1,6 @@
# $FreeBSD$
# Long double is 80 bits
GDTOASRCS+=strtopx.c
GDTOASRCS+=strtorx.c
MDSRCS+=machdep_ldisx.c
SYM_MAPS+=${.CURDIR}/i386/Symbol.map

2
lib/libc/ia64/Makefile.inc
View File

@ -4,6 +4,6 @@
#
# Long double is 80 bits
GDTOASRCS+=strtopx.c
GDTOASRCS+=strtorx.c
MDSRCS+=machdep_ldisx.c
SYM_MAPS+=${.CURDIR}/ia64/Symbol.map

2
lib/libc/sparc64/Makefile.inc
View File

@ -6,6 +6,6 @@
.include "fpu/Makefile.inc"
# Long double is quad precision
GDTOASRCS+=strtopQ.c
GDTOASRCS+=strtorQ.c
MDSRCS+=machdep_ldisQ.c
SYM_MAPS+=${.CURDIR}/sparc64/Symbol.map