fix haddock submodule pointer

[ghc-hetmet.git] / rts / FrontPanel.c

diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c
index 579b75b..d6269fb 100644 (file)
--- 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;