diff options
author | Gabor Greif <ggreif@gmail.com> | 2012-01-18 01:14:56 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-27 14:35:07 +0000 |
commit | ac89ecf3848b7422c8460065d9a2063829fcfb95 (patch) | |
tree | 13442cfd09ea287cd3f3b19f795ca7917326482e /rts/StgStartup.cmm | |
parent | 5f7ac440ff0fd7cd010728297811def847c3d1ef (diff) | |
download | haskell-ac89ecf3848b7422c8460065d9a2063829fcfb95.tar.gz |
comments only
Diffstat (limited to 'rts/StgStartup.cmm')
-rw-r--r-- | rts/StgStartup.cmm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index f8940c4196..4aace82deb 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); |