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

On branch  : master

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

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

commit ac89ecf3848b7422c8460065d9a2063829fcfb95
Author: Gabor Greif <[email protected]>
Date:   Wed Jan 18 01:14:56 2012 +0100

    comments only

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

 rts/StgStartup.cmm |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm
index f8940c4..4aace82 100644
--- a/rts/StgStartup.cmm
+++ b/rts/StgStartup.cmm
@@ -1,6 +1,6 @@
 /* 
-----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1998-2004
+ * (c) The GHC Team, 1998-2012
  *
  * Code for starting, stopping and restarting threads.
  *
@@ -34,7 +34,7 @@
    Returning from the STG world.
    -------------------------------------------------------------------------- 
*/
 
-INFO_TABLE_RET( stg_stop_thread, STOP_FRAME,
+INFO_TABLE_RET(stg_stop_thread, STOP_FRAME,
 #if defined(PROFILING)
   W_ unused,
   W_ unused
@@ -101,7 +101,7 @@ stg_returnToSched
   jump StgReturn;
 }
 
-// A variant of stg_returntToSched that doesn't call threadPaused() on the
+// A variant of stg_returnToSched that doesn't call threadPaused() on the
 // current thread.  This is used for switching from compiled execution to the
 // interpreter, where calling threadPaused() on every switch would be too
 // expensive.
@@ -138,12 +138,12 @@ stg_threadFinished
     the int/char/whatever using the various get{Ty} functions provided
     by the RTS API.
 
-    forceIO takes care of this, performing the IO action and entering the
-    results that comes back.
+    stg_forceIO takes care of this, performing the IO action and entering
+    the results that comes back.
 
     ------------------------------------------------------------------------- 
*/
 
-INFO_TABLE_RET( stg_forceIO, RET_SMALL)
+INFO_TABLE_RET(stg_forceIO, RET_SMALL)
 
 {
   Sp_adj(1);



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

Reply via email to