ghc-7.0.3 tested

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
     if impl(ghc < 6.10.2)
         cpp-options: -DFINIT
 
-    if impl(ghc >= 7.0.1)
+    if impl(ghc == 7.0.1)
+        cpp-options: -DFINIT
+
+    if impl(ghc == 7.0.2)
         cpp-options: -DFINIT
 
     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() {
     asm("FSAVE %0":"=m" (buf));
 
     #if FPUDEBUG
-    if(buf[8]!=255 || buf[9]!=255) { 
-        printf("Warning: Nonempty FPU Stack. TAG = %x %x\n",buf[8],buf[9]);
+    if(buf[8]!=255 || buf[9]!=255) {  // print warning in red
+        printf("%c[;31mWarning: FPU TAG = %x %x\%c[0m\n",0x1B,buf[8],buf[9],0x1B);
     }
     #endif