[commit: ghc] master: rts: mark 'copied' as static (4f283a6)

git at git.haskell.org git at git.haskell.org
Sun Feb 7 20:28:17 UTC 2016


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4f283a6f84e76b3e8e1041eab1bbb9f8c63ce3fd/ghc

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

commit 4f283a6f84e76b3e8e1041eab1bbb9f8c63ce3fd
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 16:41:06 2016 +0000

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


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

4f283a6f84e76b3e8e1041eab1bbb9f8c63ce3fd
 rts/sm/GC.c | 2 +-
 rts/sm/GC.h | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 95d9951..d861db9 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -129,7 +129,7 @@ StgWord8 the_gc_thread[sizeof(gc_thread) + 64 * sizeof(gen_workspace)];
 nat n_gc_threads;
 
 // For stats:
-long copied;        // *words* copied & scavenged during this GC
+static long copied;        // *words* copied & scavenged during this GC
 
 rtsBool work_stealing;
 
diff --git a/rts/sm/GC.h b/rts/sm/GC.h
index 5744eb9..2953d9e 100644
--- a/rts/sm/GC.h
+++ b/rts/sm/GC.h
@@ -34,8 +34,6 @@ extern bdescr *mark_stack_bd;
 extern bdescr *mark_stack_top_bd;
 extern StgPtr mark_sp;
 
-extern long copied;
-
 extern rtsBool work_stealing;
 
 #ifdef DEBUG



More information about the ghc-commits mailing list