diff options
author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:48:25 +0000 |
---|---|---|
committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:48:25 +0000 |
commit | 4c394999264d602f10e7623cefa7588423c4f68b (patch) | |
tree | 3b68e9af98e5f0a745bf77082ec0ef32c71ea3fc /rts/RetainerProfile.c | |
parent | 938142abe2999ef941ce4998b830fbd7e770fb4e (diff) | |
download | haskell-4c394999264d602f10e7623cefa7588423c4f68b.tar.gz |
GC: move static object processinng into thread-local storage
Diffstat (limited to 'rts/RetainerProfile.c')
-rw-r--r-- | rts/RetainerProfile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index e96356734d..dec886aba6 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1913,7 +1913,7 @@ computeRetainerSet( void ) * they are not taken into consideration in computing retainer sets. * -------------------------------------------------------------------------- */ void -resetStaticObjectForRetainerProfiling( void ) +resetStaticObjectForRetainerProfiling( StgClosure *static_objects ) { #ifdef DEBUG_RETAINER nat count; @@ -1923,7 +1923,7 @@ resetStaticObjectForRetainerProfiling( void ) #ifdef DEBUG_RETAINER count = 0; #endif - p = scavenged_static_objects; + p = static_objects; while (p != END_OF_STATIC_LIST) { #ifdef DEBUG_RETAINER count++; |