version 1.4, 2008/03/21 23:13:48 |
version 1.5, 2013/04/18 21:54:11 |
Line 73 ULtod(ULong *L, ULong *bits, Long expt, |
|
Line 73 ULtod(ULong *L, ULong *bits, Long expt, |
|
} |
} |
|
|
int |
int |
#ifdef KR_headers |
strtord(CONST char *s, char **sp, int rounding, double *d, locale_t loc) |
strtord(s, sp, rounding, d) CONST char *s; char **sp; int rounding; double *d; |
|
#else |
|
strtord(CONST char *s, char **sp, int rounding, double *d) |
|
#endif |
|
{ |
{ |
static CONST FPI fpi0 = { 53, 1-1023-53+1, 2046-1023-53+1, 1, SI }; |
static CONST FPI fpi0 = { 53, 1-1023-53+1, 2046-1023-53+1, 1, SI }; |
CONST FPI *fpi; |
CONST FPI *fpi; |
Line 92 strtord(CONST char *s, char **sp, int ro |
|
Line 88 strtord(CONST char *s, char **sp, int ro |
|
fpi1.rounding = rounding; |
fpi1.rounding = rounding; |
fpi = &fpi1; |
fpi = &fpi1; |
} |
} |
k = strtodg(s, sp, fpi, &expt, bits); |
k = strtodg(s, sp, fpi, &expt, bits, loc); |
if (k == STRTOG_NoMemory) |
if (k == STRTOG_NoMemory) |
return k; |
return k; |
ULtod((/* LINTED */(U*)d)->L, bits, expt, k); |
ULtod((/* LINTED */(U*)d)->L, bits, expt, k); |