diff options
| author | chak <unknown> | 2001-08-16 05:30:27 +0000 |
|---|---|---|
| committer | chak <unknown> | 2001-08-16 05:30:27 +0000 |
| commit | 1a4ea2e4eceee09855ae7059f7f27af6b04f2b32 (patch) | |
| tree | a39dfc40511a964308d0d3173ff0fa24d2b1db96 /ghc/rts/FrontPanel.c | |
| parent | d1dcd244551d89d205c58fcea2a686d43079a38d (diff) | |
| download | haskell-1a4ea2e4eceee09855ae7059f7f27af6b04f2b32.tar.gz | |
[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
Diffstat (limited to 'ghc/rts/FrontPanel.c')
| -rw-r--r-- | ghc/rts/FrontPanel.c | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c index 78675c6665..34cf5d8af6 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; } |