X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FFrontPanel.c;h=579b75bab3c261b0b885ad7209377a96136a5895;hb=65691f95b3727c277a24ec5f0d5a4058c9a681e2;hp=a09c8cca1fe5ca28c9c20883110ca57adee0a8dc;hpb=e792bb8488aa3c33d7b186abdf53aa8b0ef68b11;p=ghc-hetmet.git

diff --git a/ghc/rts/FrontPanel.c b/ghc/rts/FrontPanel.c
index a09c8cc..579b75b 100644
--- a/ghc/rts/FrontPanel.c
+++ b/ghc/rts/FrontPanel.c
@@ -20,9 +20,9 @@
 #include "RtsFlags.h"
 #include "Schedule.h"
 
-#include <unistd.h>
-#include <gdk/gdktypes.h>
 #include <gtk/gtk.h>
+#include <unistd.h>
+#include <string.h>
 
 #include "VisSupport.h"
 #include "VisWindow.h"
@@ -605,7 +605,7 @@ residencyCensus( void )
 		g == 0 && s == 0) continue;
 
 	    if (RtsFlags.GcFlags.generations == 1) {
-		bd = generations[g].steps[s].to_blocks;
+/*		bd = generations[g].steps[s].to_blocks; FIXME to_blocks does not exist */
 	    } else {
 		bd = generations[g].steps[s].blocks;
 	    }
@@ -668,7 +668,7 @@ residencyCensus( void )
 		    case SE_CAF_BLACKHOLE:
 		    case SE_BLACKHOLE:
 		    case BLACKHOLE:
-		    case BLACKHOLE_BQ:
+/*		    case BLACKHOLE_BQ: FIXME: case does not exist */
 			size = sizeW_fromITBL(info);
 			type = BlackHole;
 			break;
@@ -703,7 +703,7 @@ residencyCensus( void )
 		    case STABLE_NAME:
 		    case MVAR:
 		    case MUT_VAR:
-		    case MUT_CONS:
+/*		    case MUT_CONS: FIXME: case does not exist */
 		    case IND_PERM:
 		    case IND_OLDGEN_PERM:
 			size = sizeW_fromITBL(info);