diff options
Diffstat (limited to 'rts/Capability.c')
| -rw-r--r-- | rts/Capability.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 2cb3042088..63e52b0026 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -1,10 +1,10 @@ /* --------------------------------------------------------------------------- * - * (c) The GHC Team, 2003-2006 + * (c) The GHC Team, 2003-2012 * * Capabilities * - * A Capability represent the token required to execute STG code, + * A Capability represents the token required to execute STG code, * and all the state an OS thread/task needs to run Haskell code: * its STG registers, a pointer to its TSO, a nursery etc. During * STG execution, a pointer to the capabilitity is kept in a @@ -477,7 +477,7 @@ releaseCapability_ (Capability* cap, // ThreadBlocked, but the thread may be back on the run queue // by now. task = cap->run_queue_hd->bound->task; - giveCapabilityToTask(cap,task); + giveCapabilityToTask(cap, task); return; } @@ -500,7 +500,7 @@ releaseCapability_ (Capability* cap, !emptyRunQueue(cap) || !emptyInbox(cap) || (!cap->disabled && !emptySparkPoolCap(cap)) || globalWorkToDo()) { if (cap->spare_workers) { - giveCapabilityToTask(cap,cap->spare_workers); + giveCapabilityToTask(cap, cap->spare_workers); // The worker Task pops itself from the queue; return; } @@ -664,7 +664,7 @@ waitForReturnCapability (Capability **pCap, Task *task) cap->r.rCCCS = CCS_SYSTEM; #endif - ASSERT_FULL_CAPABILITY_INVARIANTS(cap,task); + ASSERT_FULL_CAPABILITY_INVARIANTS(cap, task); debugTrace(DEBUG_sched, "resuming capability %d", cap->no); |