[commit: ghc] master: rts: mark scavenge_mutable_list as static (9e43c7f)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9e43c7f01ee8ffb96f5ff8a29444409dde188216/ghc

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

commit 9e43c7f01ee8ffb96f5ff8a29444409dde188216
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 16:08:56 2016 +0000

    rts: mark scavenge_mutable_list as static
    
    Noticed by uselex.rb:
        scavenge_mutable_list: [R]: exported from:
            ./rts/dist/build/sm/Scav.o
        scavenge_mutable_list1: [R]: exported from:
            ./rts/dist/build/sm/Scav.thr_o
    
    Signed-off-by: Sergei Trofimovich <siarheit at google.com>


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

9e43c7f01ee8ffb96f5ff8a29444409dde188216
 rts/sm/Scav.c | 2 +-
 rts/sm/Scav.h | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index 15d2b7b..953f055 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -1555,7 +1555,7 @@ scavenge_one(StgPtr p)
    remove non-mutable objects from the mutable list at this point.
    -------------------------------------------------------------------------- */
 
-void
+static void
 scavenge_mutable_list(bdescr *bd, generation *gen)
 {
     StgPtr p, q;
diff --git a/rts/sm/Scav.h b/rts/sm/Scav.h
index 725d27c..ddd7d6d 100644
--- a/rts/sm/Scav.h
+++ b/rts/sm/Scav.h
@@ -17,12 +17,10 @@
 #include "BeginPrivate.h"
 
 void    scavenge_loop (void);
-void    scavenge_mutable_list (bdescr *bd, generation *gen);
 void    scavenge_capability_mut_lists (Capability *cap);
 
 #ifdef THREADED_RTS
 void    scavenge_loop1 (void);
-void    scavenge_mutable_list1 (bdescr *bd, generation *gen);
 void    scavenge_capability_mut_Lists1 (Capability *cap);
 #endif