typo
authorGabor Greif <ggreif@gmail.com>
Wed, 18 Jan 2012 00:51:40 +0000 (01:51 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 27 Feb 2012 14:35:07 +0000 (14:35 +0000)
rts/Capability.c

index 2cb3042..63e52b0 100644 (file)
@@ -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);