From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 23 Feb 2006 15:48:59 +0000 (+0000)
Subject: add (trivial) support for STM objects in lag/drag/void profiling
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6a710247bc1a7b9bced7a4e6f143de91eb4f9552

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

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;
 
 	/*