Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/efb95fb6e933380f6beb0e03e441e330590b5e0c

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

commit efb95fb6e933380f6beb0e03e441e330590b5e0c
Author: Gabor Greif <[email protected]>
Date:   Wed Jan 18 01:51:40 2012 +0100

    typo

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

 rts/Capability.c |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/rts/Capability.c b/rts/Capability.c
index 2cb3042..63e52b0 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);
 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to