From: simonmar <unknown>
Date: Fri, 19 Jan 2001 11:08:05 +0000 (+0000)
Subject: [project @ 2001-01-19 11:08:05 by simonmar]
X-Git-Tag: Approximately_9120_patches~2847
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e5dc3296f115ecd148279f6ad2fa6484d43250e6;p=ghc-hetmet.git

[project @ 2001-01-19 11:08:05 by simonmar]
Sync this with the rest of the RTS and make it compile again.
---

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;