diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-04-19 10:21:49 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-04-19 10:21:49 +0100 |
| commit | da651729d8721b259dc934ab9e3f6b0d47eb0f38 (patch) | |
| tree | 038ecc8b15ccae91994ebc0390030c6561f2168d /compiler/cmm | |
| parent | df2e8675ae1c1d336f290679c206cf0165493266 (diff) | |
| download | haskell-da651729d8721b259dc934ab9e3f6b0d47eb0f38.tar.gz | |
Comment only
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmSink.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmSink.hs b/compiler/cmm/CmmSink.hs index 2a080c2e58..9f8a3975e7 100644 --- a/compiler/cmm/CmmSink.hs +++ b/compiler/cmm/CmmSink.hs @@ -390,7 +390,7 @@ tryToInline dflags live node assigs = go usages node [] assigs occurs_once = not (l `elemRegSet` live) && lookupUFM usages l == Just 1 - inl_node = mapExpDeep inline node + inl_node = mapExpDeep inline node -- mapExpDeep is where the inlining actually takes place! where inline (CmmReg (CmmLocal l')) | l == l' = rhs inline (CmmRegOff (CmmLocal l') off) | l == l' = cmmOffset dflags rhs off |