version 1.1, 2006/01/25 15:18:53 |
version 1.2, 2008/03/21 23:13:48 |
Line 53 strtod(CONST char *s, char **sp) |
|
Line 53 strtod(CONST char *s, char **sp) |
|
union { ULong L[2]; double d; } u; |
union { ULong L[2]; double d; } u; |
|
|
k = strtodg(s, sp, &fpi, &exp, bits); |
k = strtodg(s, sp, &fpi, &exp, bits); |
|
if (k == STRTOG_NoMemory) { |
|
errno = ERANGE; |
|
u.L[0] = Big0; |
|
u.L[1] = Big1; |
|
return u.d; |
|
} |
switch(k & STRTOG_Retmask) { |
switch(k & STRTOG_Retmask) { |
case STRTOG_NoNumber: |
case STRTOG_NoNumber: |
case STRTOG_Zero: |
case STRTOG_Zero: |