From 6a710247bc1a7b9bced7a4e6f143de91eb4f9552 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 23 Feb 2006 15:48:59 +0000 Subject: [PATCH] add (trivial) support for STM objects in lag/drag/void profiling --- ghc/rts/LdvProfile.c | 4 ++++ 1 file changed, 4 insertions(+) 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; /* -- 1.7.10.4