summaryrefslogtreecommitdiff
path: root/rts/StgStartup.cmm
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2014-08-20 12:26:04 -0500
committerAustin Seipp <austin@well-typed.com>2014-08-20 12:26:04 -0500
commit1a6a6103f59619c94f2d2818874d1a738f8fac50 (patch)
treef2d1534059dc918bd5f3276cf8109de19e645850 /rts/StgStartup.cmm
parentef02edc1b05ef8f3ec2ebe4d7b4ecef93c9d0aa2 (diff)
downloadhaskell-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.cmm24
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