X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLdvProfile.c;h=193344e4f56f0c18ecd89ee4b2f8798c4380a9ef;hb=a60af39758448f92d8eaa3b62072f9adcdbbee9d;hp=2f9f6ca40adb935463fab60aaae3676671c503c7;hpb=9cef40bd4dd2536c7a370a1a9b78461c152805cc;p=ghc-hetmet.git

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 2f9f6ca..193344e 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -14,7 +14,6 @@
 #include "RtsFlags.h"
 #include "Profiling.h"
 #include "Stats.h"
-#include "Storage.h"
 #include "RtsUtils.h"
 #include "Schedule.h"
 
@@ -178,9 +177,7 @@ processHeapClosureForDead( StgClosure *c )
     case RET_DYN:
     case RET_BCO:
     case RET_SMALL:
-    case RET_VEC_SMALL:
     case RET_BIG:
-    case RET_VEC_BIG:
 	// others
     case BLOCKED_FETCH:
     case FETCH_ME: