Attachment "2819200.patch" to
ticket [2902010fff]
added by
dgp
2009-11-26 02:01:21.
Index: generic/tclStrToD.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclStrToD.c,v
retrieving revision 1.33.2.2
diff -u -r1.33.2.2 tclStrToD.c
--- generic/tclStrToD.c 16 Jul 2009 20:50:54 -0000 1.33.2.2
+++ generic/tclStrToD.c 25 Nov 2009 19:00:15 -0000
@@ -71,9 +71,10 @@
/*
* MIPS floating-point units need special settings in control registers
- * to use gradual underflow as we expect.
+ * to use gradual underflow as we expect. This fix is for the MIPSpro
+ * compiler.
*/
-#if defined(__mips)
+#if defined(__sgi) && defined(_COMPILER_VERSION)
#include <sys/fpu.h>
#endif
/*
@@ -2166,7 +2167,7 @@
} bitwhack;
#endif
-#if defined(__mips)
+#if defined(__sgi) && defined(_COMPILER_VERSION)
union fpc_csr mipsCR;
mipsCR.fc_word = get_fpc_csr();