[Git][ghc/ghc][master] rts: remove redundant rCCCS initialization

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
a7569495 by Cheng Shao at 2024-02-17T06:04:51-05:00
rts: remove redundant rCCCS initialization

This commit removes the redundant logic of initializing each
Capability's rCCCS to CCS_SYSTEM in initProfiling(). Before
initProfiling() is called during RTS startup, each Capability's rCCCS
has already been assigned CCS_SYSTEM when they're first initialized.

- - - - -


1 changed file:

- rts/Profiling.c


Changes:

=====================================
rts/Profiling.c
=====================================
@@ -151,14 +151,6 @@ void initProfiling (void)
     // initialise our arena
     prof_arena = newArena();
 
-    /* for the benefit of allocate()... */
-    {
-        uint32_t n;
-        for (n=0; n < getNumCapabilities(); n++) {
-            getCapability(n)->r.rCCCS = CCS_SYSTEM;
-        }
-    }
-
 #if defined(THREADED_RTS)
     initMutex(&ccs_mutex);
 #endif



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a75694958de7edc12aefe3ebc8806b3a27fceb05

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a75694958de7edc12aefe3ebc8806b3a27fceb05
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240217/547ea5b5/attachment-0001.html>