[project @ 2001-07-22 03:28:25 by chak]

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

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index b87fce2..5f28103 100644 (file)
--- a/ghc/rts/FrontPanel.c
+++ b/ghc/rts/FrontPanel.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: FrontPanel.c,v 1.2 2000/11/01 11:57:29 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,13 +629,10 @@ residencyCensus( void )
                    type = Other;
                    
                    switch (info->type) {
-                   case BCO:
-                       size = bco_sizeW((StgBCO *)p);
-                       type = Other;
-                       break;
-                       
+
                    case CONSTR:
-                       if (((StgClosure *)p)->header.info == &DEAD_WEAK_info) {
+                   case BCO:
+                       if (((StgClosure *)p)->header.info == &stg_DEAD_WEAK_info) {
                            size = sizeofW(StgWeak);
                            type = Other;
                            break;