]>
Commit | Line | Data |
---|---|---|
1 | --- gdtoa-strtord.c.orig 2005-01-20 20:12:37.000000000 -0800 | |
2 | +++ gdtoa-strtord.c 2005-02-17 13:06:38.000000000 -0800 | |
3 | @@ -67,27 +67,3 @@ | |
4 | if (k & STRTOG_Neg) | |
5 | L[_0] |= 0x80000000L; | |
6 | } | |
7 | - | |
8 | - int | |
9 | -#ifdef KR_headers | |
10 | -strtord(s, sp, rounding, d) CONST char *s; char **sp; int rounding; double *d; | |
11 | -#else | |
12 | -strtord(CONST char *s, char **sp, int rounding, double *d) | |
13 | -#endif | |
14 | -{ | |
15 | - static FPI fpi0 = { 53, 1-1023-53+1, 2046-1023-53+1, 1, SI }; | |
16 | - FPI *fpi, fpi1; | |
17 | - ULong bits[2]; | |
18 | - Long exp; | |
19 | - int k; | |
20 | - | |
21 | - fpi = &fpi0; | |
22 | - if (rounding != FPI_Round_near) { | |
23 | - fpi1 = fpi0; | |
24 | - fpi1.rounding = rounding; | |
25 | - fpi = &fpi1; | |
26 | - } | |
27 | - k = strtodg(s, sp, fpi, &exp, bits); | |
28 | - ULtod((ULong*)d, bits, exp, k); | |
29 | - return k; | |
30 | - } |