X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FFrontPanel.c;h=d6269fb5b3511d4c91506224a3c5d8490320a5d1;hb=0885017a4e92fe5710d1427c214adb87b92987e5;hp=579b75bab3c261b0b885ad7209377a96136a5895;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c
index 579b75b..d6269fb 100644
--- a/rts/FrontPanel.c
+++ b/rts/FrontPanel.c
@@ -12,12 +12,10 @@
 /* #include "PosixSource.h" */
 
 #include "Rts.h"
+
 #include "RtsUtils.h"
-#include "MBlock.h"
 #include "FrontPanel.h"
-#include "Storage.h"
 #include "Stats.h"
-#include "RtsFlags.h"
 #include "Schedule.h"
 
 #include <gtk/gtk.h>
@@ -664,9 +662,6 @@ residencyCensus( void )
 			type = Thunk;
 			break;
 
-		    case CAF_BLACKHOLE:
-		    case SE_CAF_BLACKHOLE:
-		    case SE_BLACKHOLE:
 		    case BLACKHOLE:
 /*		    case BLACKHOLE_BQ: FIXME: case does not exist */
 			size = sizeW_fromITBL(info);
@@ -700,12 +695,11 @@ residencyCensus( void )
 			break;
 			
 		    case WEAK:
-		    case STABLE_NAME:
+		    case PRIM:
 		    case MVAR:
 		    case MUT_VAR:
 /*		    case MUT_CONS: FIXME: case does not exist */
 		    case IND_PERM:
-		    case IND_OLDGEN_PERM:
 			size = sizeW_fromITBL(info);
 			type = Other;
 			break;