[commit: ghc] master: rts: mark 'wakeBlockingQueue' as static (3dbd836)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3dbd836ea2e9ddf417ed473bcff98fe29e40395a/ghc

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

commit 3dbd836ea2e9ddf417ed473bcff98fe29e40395a
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 17:14:37 2016 +0000

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


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

3dbd836ea2e9ddf417ed473bcff98fe29e40395a
 rts/Threads.c | 2 +-
 rts/Threads.h | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/rts/Threads.c b/rts/Threads.c
index 203a248..bf30ab8 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -359,7 +359,7 @@ migrateThread (Capability *from, StgTSO *tso, Capability *to)
    wakes up all the threads on the specified queue.
    ------------------------------------------------------------------------- */
 
-void
+static void
 wakeBlockingQueue(Capability *cap, StgBlockingQueue *bq)
 {
     MessageBlackHole *msg;
diff --git a/rts/Threads.h b/rts/Threads.h
index 6d26610..01c493e 100644
--- a/rts/Threads.h
+++ b/rts/Threads.h
@@ -17,7 +17,6 @@ StgTSO * unblockOne (Capability *cap, StgTSO *tso);
 StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate);
 
 void checkBlockingQueues (Capability *cap, StgTSO *tso);
-void wakeBlockingQueue   (Capability *cap, StgBlockingQueue *bq);
 void tryWakeupThread     (Capability *cap, StgTSO *tso);
 void migrateThread       (Capability *from, StgTSO *tso, Capability *to);