Comment only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 19 Apr 2013 09:21:49 +0000 (10:21 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 19 Apr 2013 09:21:49 +0000 (10:21 +0100)
compiler/cmm/CmmSink.hs

index 2a080c2..9f8a397 100644 (file)
@@ -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