[commit: ghc] master: rts: mark 'blockedThrowTo' as static (c358567)

[git at git.haskell.org]

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

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

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

commit c358567b9c84ffe77b505d0043d405f14312a95f
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 17:58:59 2016 +0000

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


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

c358567b9c84ffe77b505d0043d405f14312a95f
 rts/RaiseAsync.c | 3 +++
 rts/RaiseAsync.h | 3 ---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 267707c..a0a81cf 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -23,6 +23,9 @@
 #include "win32/IOManager.h"
 #endif
 
+static void blockedThrowTo (Capability *cap,
+                            StgTSO *target, MessageThrowTo *msg);
+
 static void removeFromQueues(Capability *cap, StgTSO *tso);
 
 static void removeFromMVarBlockedQueue (StgTSO *tso);
diff --git a/rts/RaiseAsync.h b/rts/RaiseAsync.h
index 1f939d4..b5dba46 100644
--- a/rts/RaiseAsync.h
+++ b/rts/RaiseAsync.h
@@ -16,9 +16,6 @@
 
 #include "BeginPrivate.h"
 
-void blockedThrowTo (Capability *cap,
-                     StgTSO *target, MessageThrowTo *msg);
-
 StgTSO* raiseAsync (Capability *cap,
                     StgTSO *tso,
                     StgClosure *exception,