diff options
| author | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 18:39:33 +0000 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 20:28:13 +0000 |
| commit | 0a2bd9ccf423dd635677926c1238aab5d3d4b1cb (patch) | |
| tree | 5bf2afd35e04866e2f3c7aa5fdea28bd334e59ee /rts | |
| parent | 0e51109d010c474f60f7b3209e399c115c7bcec7 (diff) | |
| download | haskell-0a2bd9ccf423dd635677926c1238aab5d3d4b1cb.tar.gz | |
rts: mark 'shutdownCapability' as static
Noticed by uselex.rb:
last_free_capability: [R]: exported from:
./rts/dist/build/Capability.o
shutdownCapability: [R]: exported from:
./rts/dist/build/Capability.o
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Capability.c | 4 | ||||
| -rw-r--r-- | rts/Capability.h | 10 |
2 files changed, 2 insertions, 12 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 45ee2c8e30..a2078e5a84 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -51,7 +51,7 @@ Capability **capabilities = NULL; // an in-call has a chance of quickly finding a free Capability. // Maintaining a global free list of Capabilities would require global // locking, so we don't do that. -Capability *last_free_capability = NULL; +static Capability *last_free_capability = NULL; /* * Indicates that the RTS wants to synchronise all the Capabilities @@ -937,7 +937,7 @@ tryGrabCapability (Capability *cap, Task *task) * * ------------------------------------------------------------------------- */ -void +static void shutdownCapability (Capability *cap USED_IF_THREADS, Task *task USED_IF_THREADS, rtsBool safe USED_IF_THREADS) diff --git a/rts/Capability.h b/rts/Capability.h index fb9f0aa181..561d369a21 100644 --- a/rts/Capability.h +++ b/rts/Capability.h @@ -224,11 +224,6 @@ INLINE_HEADER void releaseCapability_ (Capability* cap STG_UNUSED, // extern Capability **capabilities; -// The Capability that was last free. Used as a good guess for where -// to assign new threads. -// -extern Capability *last_free_capability; - // // Indicates that the RTS wants to synchronise all the Capabilities // for some reason. All Capabilities should stop and return to the @@ -304,11 +299,6 @@ extern void grabCapability (Capability **pCap); #endif /* !THREADED_RTS */ -// Waits for a capability to drain of runnable threads and workers, -// and then acquires it. Used at shutdown time. -// -void shutdownCapability (Capability *cap, Task *task, rtsBool wait_foreign); - // Shut down all capabilities. // void shutdownCapabilities(Task *task, rtsBool wait_foreign); |