summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2011-03-30 08:03:09 +0000
committerAlberto Ruiz <aruiz@um.es>2011-03-30 08:03:09 +0000
commit43eb56c2d912837de39d2d19a2254877117d6679 (patch)
treedbab9f85cea58653f1b90559faa4ec364d4ee50f /lib/Numeric/LinearAlgebra
parenta5a7d08b73223a9bd6022aebfcd32dfd42f6633a (diff)
ghc-7.0.3 tested
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c4
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