[commit: ghc] ghc-8.0: rts: mark 'ccs_mutex' and 'prof_arena' as static (bc939b8)

git at git.haskell.org git at git.haskell.org
Sun Aug 7 11:59:04 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/bc939b8a09a180eb9e46d349b02ab0cc76bd563b/ghc

>---------------------------------------------------------------

commit bc939b8a09a180eb9e46d349b02ab0cc76bd563b
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 18:00:00 2016 +0000

    rts: mark 'ccs_mutex' and 'prof_arena' as static
    
    Noticed by uselex.rb:
        ccs_mutex: [R]: exported from:
            ./rts/dist/build/Profiling.thr_p_o
        prof_arena: [R]: exported from:
            ./rts/dist/build/Profiling.p_o
    
    Signed-off-by: Sergei Trofimovich <siarheit at google.com>
    (cherry picked from commit e1ca583855fc26f1e1a3a4e7fd6c54d302b4625c)


>---------------------------------------------------------------

bc939b8a09a180eb9e46d349b02ab0cc76bd563b
 rts/Profiling.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 4f2606c..5dca8c0 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -29,7 +29,7 @@
 /*
  * Profiling allocation arena.
  */
-Arena *prof_arena;
+static Arena *prof_arena;
 
 /*
  * Global variables used to assign unique IDs to cc's, ccs's, and
@@ -59,7 +59,7 @@ CostCentre      *CC_LIST  = NULL;
 CostCentreStack *CCS_LIST = NULL;
 
 #ifdef THREADED_RTS
-Mutex ccs_mutex;
+static Mutex ccs_mutex;
 #endif
 
 /*



More information about the ghc-commits mailing list