diff options
| author | Alberto Ruiz <aruiz@um.es> | 2011-03-30 08:03:09 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2011-03-30 08:03:09 +0000 |
| commit | 43eb56c2d912837de39d2d19a2254877117d6679 (patch) | |
| tree | dbab9f85cea58653f1b90559faa4ec364d4ee50f /lib/Numeric | |
| parent | a5a7d08b73223a9bd6022aebfcd32dfd42f6633a (diff) | |
ghc-7.0.3 tested
Diffstat (limited to 'lib/Numeric')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c index 4bf29b7..8cf73e9 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | |||
| @@ -54,8 +54,8 @@ void asm_finit() { | |||
| 54 | asm("FSAVE %0":"=m" (buf)); | 54 | asm("FSAVE %0":"=m" (buf)); |
| 55 | 55 | ||
| 56 | #if FPUDEBUG | 56 | #if FPUDEBUG |
| 57 | if(buf[8]!=255 || buf[9]!=255) { | 57 | if(buf[8]!=255 || buf[9]!=255) { // print warning in red |
| 58 | printf("Warning: Nonempty FPU Stack. TAG = %x %x\n",buf[8],buf[9]); | 58 | printf("%c[;31mWarning: FPU TAG = %x %x\%c[0m\n",0x1B,buf[8],buf[9],0x1B); |
| 59 | } | 59 | } |
| 60 | #endif | 60 | #endif |
| 61 | 61 | ||