X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FFrontPanel.c;h=5f28103ce0e361c0b00ba262fd4d2f368896bb7b;hb=ebf2c80221ccf11aeb7a0a2be27bfc72529855a5;hp=9f857255a63577853e1a8c04a57ef53e97e6fdb4;hpb=35ccc96f5fb6dd6849eb7f62b2a0ba4f6562fa6c;p=ghc-hetmet.git

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index 9f85725..5f28103 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;