X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FFrontPanel.c;h=e6126c15de663327a0a86d9b735d8b0456b38f1a;hb=76f8c7b81808c5f5b3ead108b3a451a21e1ce09c;hp=c2635205e0e90f3e76f596e60438d596b3aadf13;hpb=94e06463420582cc2d336b39a297e82af39e4cc4;p=ghc-hetmet.git

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index c263520..e6126c1 100644
--- a/ghc/rts/FrontPanel.c
+++ b/ghc/rts/FrontPanel.c
@@ -400,7 +400,7 @@ updateFrontPanel( void )
 	    for (; a <= LAST_BLOCK(m); (char *)a += BLOCK_SIZE) {
 		bd = Bdescr((P_)a);
 		ASSERT(bd->start == a);
-		if (bd->free == (void *)-1) {
+                if (bd->flags & BF_FREE) {
 		    colorBlock( a, &free_color, 
 				block_width, block_height, blocks_per_line );
 		} else {