From e5dc3296f115ecd148279f6ad2fa6484d43250e6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 19 Jan 2001 11:08:05 +0000
Subject: [PATCH] [project @ 2001-01-19 11:08:05 by simonmar] Sync this with
 the rest of the RTS and make it compile again.

---
 ghc/rts/FrontPanel.c |   10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

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;
-- 
1.7.10.4