diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-03-15 09:32:56 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-15 09:32:56 +0000 |
| commit | adf339b2f7fefe396ab5e78206c263830c9702f7 (patch) | |
| tree | 01bc2727e27b5ee7fd947f8f0559501c5afb89ad /rts/LdvProfile.c | |
| parent | 0f183f73e2ad22b2a2225a388d024e0559862c66 (diff) | |
| download | haskell-adf339b2f7fefe396ab5e78206c263830c9702f7.tar.gz | |
Fix profiling build following removal of specific STM object types
Diffstat (limited to 'rts/LdvProfile.c')
| -rw-r--r-- | rts/LdvProfile.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index ccaf10c684..412fd05579 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -110,12 +110,8 @@ processHeapClosureForDead( StgClosure *c ) case MUT_VAR_DIRTY: case BCO: case PRIM: - case TVAR_WATCH_QUEUE: - case TVAR: - case TREC_HEADER: + case MUT_PRIM: case TREC_CHUNK: - case INVARIANT_CHECK_QUEUE: - case ATOMIC_INVARIANT: return size; /* |