1
0

patch-generic_tclStrToD_c 865 B

123456789101112131415161718192021222324252627282930
  1. --- tcl8.5.8.orig/generic/tclStrToD.c 2009-07-16 22:50:54.000000000 +0200
  2. +++ tcl8.5.8/generic/tclStrToD.c 2010-01-14 20:44:55.000000000 +0100
  3. @@ -73,9 +73,11 @@ typedef unsigned int fpu_control_t __att
  4. * MIPS floating-point units need special settings in control registers
  5. * to use gradual underflow as we expect.
  6. */
  7. +/*
  8. #if defined(__mips)
  9. #include <sys/fpu.h>
  10. #endif
  11. +*/
  12. /*
  13. * HP's PA_RISC architecture uses 7ff4000000000000 to represent a quiet NaN.
  14. * Everyone else uses 7ff8000000000000. (Why, HP, why?)
  15. @@ -2166,6 +2168,7 @@ TclInitDoubleConversion(void)
  16. } bitwhack;
  17. #endif
  18. +/*
  19. #if defined(__mips)
  20. union fpc_csr mipsCR;
  21. @@ -2173,6 +2176,7 @@ TclInitDoubleConversion(void)
  22. mipsCR.fc_struct.flush = 0;
  23. set_fpc_csr(mipsCR.fc_word);
  24. #endif
  25. +*/
  26. /*
  27. * Initialize table of powers of 10 expressed as wide integers.