rts: mark 'blockedThrowTo' as static
authorSergei Trofimovich <siarheit@google.com>
Sun, 7 Feb 2016 17:58:59 +0000 (17:58 +0000)
committerSergei Trofimovich <siarheit@google.com>
Sun, 7 Feb 2016 20:27:49 +0000 (20:27 +0000)
Noticed by uselex.rb:
    blockedThrowTo: [R]: exported from:
        ./rts/dist/build/RaiseAsync.o

Signed-off-by: Sergei Trofimovich <siarheit@google.com>
rts/RaiseAsync.c
rts/RaiseAsync.h

index 267707c..a0a81cf 100644 (file)
@@ -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);
index 1f939d4..b5dba46 100644 (file)
@@ -16,9 +16,6 @@
 
 #include "BeginPrivate.h"
 
-void blockedThrowTo (Capability *cap,
-                     StgTSO *target, MessageThrowTo *msg);
-
 StgTSO* raiseAsync (Capability *cap,
                     StgTSO *tso,
                     StgClosure *exception,