gdtoa/FreeBSD/gdtoa-strtord.c.patch

   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 -       }