[project @ 2005-10-27 01:39:40 by sof]

[ghc-hetmet.git] / ghc / rts / FrontPanel.c

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index 85faeeb..a09c8cc 100644 (file)
--- a/ghc/rts/FrontPanel.c
+++ b/ghc/rts/FrontPanel.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: FrontPanel.c,v 1.9 2004/08/13 13:09:49 simonmar Exp $
  *
  * (c) The GHC Team 2000
  *
@@ -102,7 +101,7 @@ configure_event( GtkWidget *widget, GdkEventConfigure *event STG_UNUSED,
                      widget->allocation.width,
                      widget->allocation.height);
 
-  fprintf(stderr, "configure!\n");
+  debugBelch("configure!\n");
   updateFrontPanel();
   return TRUE;
 }
@@ -401,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 {
@@ -701,7 +700,6 @@ residencyCensus( void )
                        break;
                        
                    case WEAK:
-                   case FOREIGN:
                    case STABLE_NAME:
                    case MVAR:
                    case MUT_VAR: