[Git][ghc/ghc][master] mutex wrap in refreshProfilingCCSs

[Marge Bot (@marge-bot)]

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


Commits:
9ca56dd3 by Ian-Woo Kim at 2024-02-21T05:01:53-05:00
mutex wrap in refreshProfilingCCSs

- - - - -


1 changed file:

- rts/Profiling.c


Changes:

=====================================
rts/Profiling.c
=====================================
@@ -204,6 +204,7 @@ void initProfiling (void)
 //
 void refreshProfilingCCSs (void)
 {
+    ACQUIRE_LOCK(&ccs_mutex);
     // make CCS_MAIN the parent of all the pre-defined CCSs.
     CostCentreStack *next;
     for (CostCentreStack *ccs = CCS_LIST; ccs != NULL; ) {
@@ -214,6 +215,7 @@ void refreshProfilingCCSs (void)
         ccs = next;
     }
     CCS_LIST = NULL;
+    RELEASE_LOCK(&ccs_mutex);
 }
 
 void



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9ca56dd3f3ede423766c9db2546e15abd4ab0ddc
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/20240221/e4b3b86f/attachment-0001.html>