X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FFrontPanel.c;h=d6269fb5b3511d4c91506224a3c5d8490320a5d1;hb=8625c675de45bdb8bcfa795572ce7c47687c147c;hp=163a7c08ca2af7b65198f0d560585ae580c865c7;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c
index 163a7c0..d6269fb 100644
--- a/rts/FrontPanel.c
+++ b/rts/FrontPanel.c
@@ -662,8 +662,6 @@ residencyCensus( void )
 			type = Thunk;
 			break;
 
-		    case CAF_BLACKHOLE:
-		    case EAGER_BLACKHOLE:
 		    case BLACKHOLE:
 /*		    case BLACKHOLE_BQ: FIXME: case does not exist */
 			size = sizeW_fromITBL(info);
@@ -697,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;