D/ldc
1
0
Fork 0
mirror of https://github.com/xomboverlord/ldc.git synced 2026-01-17 21:33:13 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix issues with gradual underflow and strtof, strtod on Mac.

Browse Source
This commit is contained in:
Christian Kamm
2008-10-13 14:01:18 +02:00
parent ee8dd42c1d
commit cdeaefa63c
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
dmd/lexer.c
View File

@@ -2425,6 +2425,8 @@ done:
t->float80value = strtold((char *)stringbuffer.data, NULL);
#endif
errno = 0;
float strtofres;
double strtodres;
switch (*p)
{
case 'F':
@@ -2432,7 +2434,11 @@ done:
#ifdef IN_GCC
real_t::parse((char *)stringbuffer.data, real_t::Float);
#else
strtof((char *)stringbuffer.data, NULL);
strtofres = strtof((char *)stringbuffer.data, NULL);
// LDC change: don't error on gradual underflow
if (errno == ERANGE &&
strtofres != 0 && strtofres != HUGE_VALF && strtofres != -HUGE_VALF)
errno = 0;
#endif
result = TOKfloat32v;
p++;
@@ -2442,7 +2448,11 @@ done:
#ifdef IN_GCC
real_t::parse((char *)stringbuffer.data, real_t::Double);
#else
strtod((char *)stringbuffer.data, NULL);
strtodres = strtod((char *)stringbuffer.data, NULL);
// LDC change: don't error on gradual underflow
if (errno == ERANGE &&
strtodres != 0 && strtodres != HUGE_VAL && strtodres != -HUGE_VAL)
errno = 0;
#endif
result = TOKfloat64v;
break;