add (trivial) support for STM objects in lag/drag/void profiling

dmpots · Feb 23, 2006 · 6a71024 · 6a71024
1 parent f7bb70d
commit 6a71024
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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;
 
 	/*