--- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -73,7 +73,7 @@ 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) +#if defined(__sgi) && defined(_COMPILER_VERSION) #include #endif /* @@ -2166,7 +2166,7 @@ TclInitDoubleConversion(void) } bitwhack; #endif -#if defined(__mips) +#if defined(__sgi) && defined(_COMPILER_VERSION) union fpc_csr mipsCR; mipsCR.fc_word = get_fpc_csr();