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

---
 lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Numeric/LinearAlgebra')

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