[commit: ghc] master: Comment only (da65172)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/da651729d8721b259dc934ab9e3f6b0d47eb0f38

>---------------------------------------------------------------

commit da651729d8721b259dc934ab9e3f6b0d47eb0f38
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Apr 19 10:21:49 2013 +0100

    Comment only

>---------------------------------------------------------------

 compiler/cmm/CmmSink.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cmm/CmmSink.hs b/compiler/cmm/CmmSink.hs
index 2a080c2..9f8a397 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