[commit: ghc] master: typo (efb95fb)

Simon Marlow marlowsd at gmail.com
Mon Feb 27 16:26:45 CET 2012


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

On branch  : master

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

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

commit efb95fb6e933380f6beb0e03e441e330590b5e0c
Author: Gabor Greif <ggreif at gmail.com>
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);
 





More information about the Cvs-ghc mailing list