recipes/tcltk/tcl-8.5.8/mips-tclstrtod.patch

   1 http://sourceforge.net/tracker/index.php?func=detail&aid=2902010&group_id=10894&atid=110894
   2
   3 --- ../generic/tclStrToD.c.orig
   4 +++ ../generic/tclStrToD.c
   5 @@ -71,9 +71,10 @@
   6
   7  /*
   8   * MIPS floating-point units need special settings in control registers
   9 - * to use gradual underflow as we expect.
  10 + * to use gradual underflow as we expect.  This fix is for the MIPSpro
  11 + * compiler.
  12   */
  13 -#if defined(__mips)
  14 +#if defined(__sgi) && defined(_COMPILER_VERSION)
  15  #include <sys/fpu.h>
  16  #endif
  17  /*
  18 @@ -2166,7 +2167,7 @@
  19      } bitwhack;
  20  #endif
  21
  22 -#if defined(__mips)
  23 +#if defined(__sgi) && defined(_COMPILER_VERSION)
  24      union fpc_csr mipsCR;
  25
  26      mipsCR.fc_word = get_fpc_csr();