diff options
| author | simonmar <unknown> | 2001-01-19 11:08:05 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-01-19 11:08:05 +0000 |
| commit | e5dc3296f115ecd148279f6ad2fa6484d43250e6 (patch) | |
| tree | ebd2fc839ce13f18c91840a736832b6744b0fc98 /ghc/rts/FrontPanel.c | |
| parent | 35ccc96f5fb6dd6849eb7f62b2a0ba4f6562fa6c (diff) | |
| download | haskell-e5dc3296f115ecd148279f6ad2fa6484d43250e6.tar.gz | |
[project @ 2001-01-19 11:08:05 by simonmar]
Sync this with the rest of the RTS and make it compile again.
Diffstat (limited to 'ghc/rts/FrontPanel.c')
| -rw-r--r-- | ghc/rts/FrontPanel.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c index 9f857255a6..5f28103ce0 100644 --- a/ghc/rts/FrontPanel.c +++ b/ghc/rts/FrontPanel.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: FrontPanel.c,v 1.3 2001/01/19 11:06:20 simonmar Exp $ + * $Id: FrontPanel.c,v 1.4 2001/01/19 11:08:05 simonmar Exp $ * * (c) The GHC Team 2000 * @@ -15,6 +15,7 @@ #include "RtsUtils.h" #include "MBlock.h" #include "FrontPanel.h" +#include "Storage.h" #include "StoragePriv.h" #include "Stats.h" #include "RtsFlags.h" @@ -628,12 +629,9 @@ residencyCensus( void ) type = Other; switch (info->type) { - case BCO: - size = bco_sizeW((StgBCO *)p); - type = Other; - break; - + case CONSTR: + case BCO: if (((StgClosure *)p)->header.info == &stg_DEAD_WEAK_info) { size = sizeofW(StgWeak); type = Other; |