summaryrefslogtreecommitdiff
path: root/package/tcl
diff options
context:
space:
mode:
Diffstat (limited to 'package/tcl')
-rw-r--r--package/tcl/patches/patch-generic_tclStrToD_c30
1 files changed, 30 insertions, 0 deletions
diff --git a/package/tcl/patches/patch-generic_tclStrToD_c b/package/tcl/patches/patch-generic_tclStrToD_c
new file mode 100644
index 000000000..95eceecf7
--- /dev/null
+++ b/package/tcl/patches/patch-generic_tclStrToD_c
@@ -0,0 +1,30 @@
+--- tcl8.5.8.orig/generic/tclStrToD.c 2009-07-16 22:50:54.000000000 +0200
++++ tcl8.5.8/generic/tclStrToD.c 2010-01-14 20:44:55.000000000 +0100
+@@ -73,9 +73,11 @@ typedef unsigned int fpu_control_t __att
+ * MIPS floating-point units need special settings in control registers
+ * to use gradual underflow as we expect.
+ */
++/*
+ #if defined(__mips)
+ #include <sys/fpu.h>
+ #endif
++*/
+ /*
+ * HP's PA_RISC architecture uses 7ff4000000000000 to represent a quiet NaN.
+ * Everyone else uses 7ff8000000000000. (Why, HP, why?)
+@@ -2166,6 +2168,7 @@ TclInitDoubleConversion(void)
+ } bitwhack;
+ #endif
+
++/*
+ #if defined(__mips)
+ union fpc_csr mipsCR;
+
+@@ -2173,6 +2176,7 @@ TclInitDoubleConversion(void)
+ mipsCR.fc_struct.flush = 0;
+ set_fpc_csr(mipsCR.fc_word);
+ #endif
++*/
+
+ /*
+ * Initialize table of powers of 10 expressed as wide integers.