dev-lang/tcl/files/tcl-8.5-mips-fpu.h.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

--- generic/tclStrToD.c.orig	2010-07-18 00:57:28.000000000 +0800
+++ generic/tclStrToD.c	2010-07-18 00:57:58.000000000 +0800
@@ -73,7 +73,7 @@
  * MIPS floating-point units need special settings in control registers
  * to use gradual underflow as we expect.
  */
-#if defined(__mips)
+#if defined(__mips) && defined(IRIX)
 #include <sys/fpu.h>
 #endif
 /*
@@ -2166,7 +2166,7 @@
     } bitwhack;
 #endif
 
-#if defined(__mips)
+#if defined(__mips) && defined(IRIX)
     union fpc_csr mipsCR;
 
     mipsCR.fc_word = get_fpc_csr();