diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:25:52 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:25:52 -0500 |
| commit | ef02edc1b05ef8f3ec2ebe4d7b4ecef93c9d0aa2 (patch) | |
| tree | 28edbc3093893f7be08c4d8722038cb761b8c89b | |
| parent | c71ab572e85ecb0524344e93d96f1b4f42b92826 (diff) | |
| download | haskell-ef02edc1b05ef8f3ec2ebe4d7b4ecef93c9d0aa2.tar.gz | |
rts: detabify/dewhitespace StgStdThunks.cmm
Signed-off-by: Austin Seipp <austin@well-typed.com>
| -rw-r--r-- | rts/StgStdThunks.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/StgStdThunks.cmm b/rts/StgStdThunks.cmm index ba15d3c1fc..208c8d6ada 100644 --- a/rts/StgStdThunks.cmm +++ b/rts/StgStdThunks.cmm @@ -38,7 +38,7 @@ /* * TODO: On return, we can use a more efficient * untagging (we know the constructor tag). - * + * * When entering stg_sel_#_upd, we know R1 points to its closure, * so it's untagged. * The payload might be a thunk or a constructor, @@ -152,9 +152,9 @@ SELECTOR_CODE_NOUPD(15) Apply thunks An apply thunk is a thunk of the form - - let z = [x1...xn] \u x1...xn - in ... + + let z = [x1...xn] \u x1...xn + in ... We pre-compile some of these because the code is always the same. |