blob: 95eceecf71c9de87fa5281f6b8761d45d38f2ba7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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.
|
