summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--hmatrix.cabal5
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c4
2 files changed, 6 insertions, 3 deletions
diff --git a/hmatrix.cabal b/hmatrix.cabal
index 51444af..deb05f7 100644
--- a/hmatrix.cabal
+++ b/hmatrix.cabal
@@ -171,7 +171,10 @@ library
171 if impl(ghc < 6.10.2) 171 if impl(ghc < 6.10.2)
172 cpp-options: -DFINIT 172 cpp-options: -DFINIT
173 173
174 if impl(ghc >= 7.0.1) 174 if impl(ghc == 7.0.1)
175 cpp-options: -DFINIT
176
177 if impl(ghc == 7.0.2)
175 cpp-options: -DFINIT 178 cpp-options: -DFINIT
176 179
177 if flag(finit) 180 if flag(finit)
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