From 1a4ea2e4eceee09855ae7059f7f27af6b04f2b32 Mon Sep 17 00:00:00 2001
From: chak <unknown>
Date: Thu, 16 Aug 2001 05:30:27 +0000
Subject: [PATCH] [project @ 2001-08-16 05:30:27 by chak] * Use new `gen_no'
 member in `bdescr' * Track renaming of member `to_space' in
 `step' structure

---
 ghc/rts/FrontPanel.c |   19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index 78675c6..34cf5d8 100644
--- a/ghc/rts/FrontPanel.c
+++ b/ghc/rts/FrontPanel.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: FrontPanel.c,v 1.5 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: FrontPanel.c,v 1.6 2001/08/16 05:30:27 chak Exp $
  *
  * (c) The GHC Team 2000
  *
@@ -404,20 +404,9 @@ updateFrontPanel( void )
 		if (bd->free == (void *)-1) {
 		    colorBlock( a, &free_color, 
 				block_width, block_height, blocks_per_line );
-		} else if (bd->gen != NULL) {
-		    colorBlock( a, &gen_colors[bd->gen->no],
+		} else {
+		    colorBlock( a, &gen_colors[bd->gen_no],
 				block_width, block_height, blocks_per_line );
-		} else if (bd->link != NULL) {
-		    if (bd->link->free == (void *)-1) {
-			colorBlock( a, &free_color, 
-				    block_width, block_height, blocks_per_line );
-			
-		    } else if (bd->link->gen != NULL) {
-			colorBlock( a, &gen_colors[bd->link->gen->no],
-				    block_width, block_height, blocks_per_line );
-		    } else {
-			belch("block at %p: can't indentify", bd->start);
-		    }
 		}
 	    }
 	}
@@ -616,7 +605,7 @@ residencyCensus( void )
 		g == 0 && s == 0) continue;
 
 	    if (RtsFlags.GcFlags.generations == 1) {
-		bd = generations[g].steps[s].to_space;
+		bd = generations[g].steps[s].to_blocks;
 	    } else {
 		bd = generations[g].steps[s].blocks;
 	    }
-- 
1.7.10.4