From 43eb56c2d912837de39d2d19a2254877117d6679 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 30 Mar 2011 08:03:09 +0000
Subject: ghc-7.0.3 tested

---
 hmatrix.cabal                                 | 5 ++++-
 lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 4 ++--
 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
 
-- 
cgit v1.2.3