diff options
| -rw-r--r-- | rts/Linker.c | 5 | ||||
| -rw-r--r-- | rts/Profiling.c | 4 | ||||
| -rw-r--r-- | rts/Profiling.h | 2 |
3 files changed, 5 insertions, 6 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 9fb91bf3ca..54e5049a58 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -894,7 +894,7 @@ SymbolAddr* loadSymbol(SymbolName *lbl, RtsSymbolInfo *pinfo) { #if defined(PROFILING) // collect any new cost centres & CCSs // that were defined during runInit - initProfiling2(); + refreshProfilingCCSs(); #endif } @@ -1675,7 +1675,7 @@ static HsInt resolveObjs_ (void) #if defined(PROFILING) // collect any new cost centres & CCSs that were defined during runInit - initProfiling2(); + refreshProfilingCCSs(); #endif IF_DEBUG(linker, debugBelch("resolveObjs: done\n")); @@ -1905,4 +1905,3 @@ void freeSegments (ObjectCode *oc) oc->segments = NULL; } } - diff --git a/rts/Profiling.c b/rts/Profiling.c index 4931898fe0..f340a63cff 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -182,7 +182,7 @@ void initProfiling (void) CCS_MAIN->root = CCS_MAIN; ccsSetSelected(CCS_MAIN); - initProfiling2(); + refreshProfilingCCSs(); if (RtsFlags.CcFlags.doCostCentres) { initTimeProfiling(); @@ -192,7 +192,7 @@ void initProfiling (void) // // Should be called after loading any new Haskell code. // -void initProfiling2 (void) +void refreshProfilingCCSs (void) { // make CCS_MAIN the parent of all the pre-defined CCSs. CostCentreStack *next; diff --git a/rts/Profiling.h b/rts/Profiling.h index c692c22b5e..abb731217a 100644 --- a/rts/Profiling.h +++ b/rts/Profiling.h @@ -24,7 +24,7 @@ #endif void initProfiling (void); -void initProfiling2 (void); +void refreshProfilingCCSs (void); void endProfiling (void); void freeProfiling (void); |