X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Frts%2FLdvProfile.c;h=18daf5a325efcc4dfbc342bd9b55fe80f622d2ac;hp=d8f5665b9ab11aa00724d95fa796965c15b37f9e;hb=6a710247bc1a7b9bced7a4e6f143de91eb4f9552;hpb=f7bb70d97eb7820c8ef7216038c750e1722c13a8

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index d8f5665..18daf5a 100644
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -108,6 +108,10 @@ processHeapClosureForDead( StgClosure *c )
     case MUT_VAR_DIRTY:
     case BCO:
     case STABLE_NAME:
+    case TVAR_WAIT_QUEUE:
+    case TVAR:
+    case TREC_HEADER:
+    case TREC_CHUNK:
 	return size;
 
 	/*