diff options
| author | simonmar <unknown> | 2005-07-26 15:14:24 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-07-26 15:14:24 +0000 |
| commit | f3c86836dc41e82a46db44c4817152020fa7ed7f (patch) | |
| tree | fe626d18d04fd125da39f0f608c6a6e98a501ddd /ghc/rts/RetainerProfile.c | |
| parent | a1f9036c5901c78e8b97709cf1f6c1091171ea8d (diff) | |
| download | haskell-f3c86836dc41e82a46db44c4817152020fa7ed7f.tar.gz | |
[project @ 2005-07-26 15:14:24 by simonmar]
Fix retainer profiling on the HEAD
Diffstat (limited to 'ghc/rts/RetainerProfile.c')
| -rw-r--r-- | ghc/rts/RetainerProfile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c index 62b6fa3518..074c256992 100644 --- a/ghc/rts/RetainerProfile.c +++ b/ghc/rts/RetainerProfile.c @@ -1780,8 +1780,8 @@ computeRetainerSet( void ) for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) { for (ml = bd->start; ml < bd->free; ml++) { - maybeInitRetainerSet((StgClosure *)ml); - rtl = retainerSetOf((StgClosure *)ml); + maybeInitRetainerSet((StgClosure *)*ml); + rtl = retainerSetOf((StgClosure *)*ml); #ifdef DEBUG_RETAINER if (rtl == NULL) { |