[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