rts: Rename the nondescript initProfiling2 to refreshProfilingCCSs
authorDaniel Gröber <dxld@darkboxed.org>
Wed, 10 Jul 2019 15:14:24 +0000 (17:14 +0200)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Tue, 16 Jul 2019 06:41:23 +0000 (02:41 -0400)
rts/Linker.c
rts/Profiling.c
rts/Profiling.h

index 9fb91bf..54e5049 100644 (file)
@@ -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;
     }
 }
-
index 4931898..f340a63 100644 (file)
@@ -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;
index c692c22..abb7312 100644 (file)
@@ -24,7 +24,7 @@
 #endif
 
 void initProfiling  (void);
-void initProfiling2 (void);
+void refreshProfilingCCSs (void);
 void endProfiling   (void);
 void freeProfiling  (void);