diff options
author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:26:04 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:26:04 -0500 |
commit | 1a6a6103f59619c94f2d2818874d1a738f8fac50 (patch) | |
tree | f2d1534059dc918bd5f3276cf8109de19e645850 /rts/StgStartup.cmm | |
parent | ef02edc1b05ef8f3ec2ebe4d7b4ecef93c9d0aa2 (diff) | |
download | haskell-1a6a6103f59619c94f2d2818874d1a738f8fac50.tar.gz |
rts: detabify/dewhitespace StgStartup.cmm
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/StgStartup.cmm')
-rw-r--r-- | rts/StgStartup.cmm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index dcc038374c..2a245b059d 100644 --- a/rts/StgStartup.cmm +++ b/rts/StgStartup.cmm @@ -40,23 +40,23 @@ INFO_TABLE_RET(stg_stop_thread, STOP_FRAME, PROF_HDR_FIELDS(W_,p1,p2)) /* no return list: explicit stack layout */ { - /* + /* The final exit. - + The top-top-level closures (e.g., "main") are of type "IO a". When entered, they perform an IO action and return an 'a' in R1. - + We save R1 on top of the stack where the scheduler can find it, tidy up the registers and return to the scheduler. - + We Leave the stack looking like this: - - +----------------+ + + +----------------+ | -------------------> return value - +----------------+ - | stg_enter_info | - +----------------+ - + +----------------+ + | stg_enter_info | + +----------------+ + The stg_enter_info is just a dummy info table so that the garbage collector can understand the stack (there must always be an info table on top of the stack). @@ -137,11 +137,11 @@ stg_threadFinished /* no args: explicit stack layout */ StgRegTable_rRet(BaseReg) = ThreadFinished; R1 = BaseReg; jump StgReturn [R1]; -} +} /* ----------------------------------------------------------------------------- Strict IO application - performing an IO action and entering its result. - + rts_evalIO() lets you perform Haskell IO actions from outside of Haskell-land, returning back to you their result. Want this result to be evaluated to WHNF by that time, so that we can easily get at |