X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FFrontPanel.c;h=85faeebbae1cf2ff8d7a1d87845a5754bcfab86e;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=8953711d0544afeb6cdac534608fb6588bf5d5dc;hpb=bfefff2cd373e5ef9983db1221ae0a1cf48b7f2d;p=ghc-hetmet.git diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c index 8953711..85faeeb 100644 --- a/ghc/rts/FrontPanel.c +++ b/ghc/rts/FrontPanel.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: FrontPanel.c,v 1.7 2001/10/31 14:38:00 simonmar Exp $ + * $Id: FrontPanel.c,v 1.9 2004/08/13 13:09:49 simonmar Exp $ * * (c) The GHC Team 2000 * @@ -17,7 +17,6 @@ #include "MBlock.h" #include "FrontPanel.h" #include "Storage.h" -#include "StoragePriv.h" #include "Stats.h" #include "RtsFlags.h" #include "Schedule.h" @@ -397,6 +396,7 @@ updateFrontPanel( void ) block_width, block_height, blocks_per_line ); } +#if 0 /* Segfaults because bd appears to be bogus but != NULL. stolz, 2003-06-24 */ /* color each block */ for (; a <= LAST_BLOCK(m); (char *)a += BLOCK_SIZE) { bd = Bdescr((P_)a); @@ -409,6 +409,7 @@ updateFrontPanel( void ) block_width, block_height, blocks_per_line ); } } +#endif } @@ -673,7 +674,7 @@ residencyCensus( void ) type = BlackHole; break; - case AP_UPD: + case AP: size = pap_sizeW((StgPAP *)p); type = Thunk; break;