[commit: ghc] master: Comments only (f77e99b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f77e99bbaac1b9ef7c47ed7fd750f0105f7fc28b/ghc

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

commit f77e99bbaac1b9ef7c47ed7fd750f0105f7fc28b
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 20 15:12:17 2017 +0000

    Comments only


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

f77e99bbaac1b9ef7c47ed7fd750f0105f7fc28b
 compiler/coreSyn/CoreUnfold.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/coreSyn/CoreUnfold.hs b/compiler/coreSyn/CoreUnfold.hs
index f9ca36f..c69357b 100644
--- a/compiler/coreSyn/CoreUnfold.hs
+++ b/compiler/coreSyn/CoreUnfold.hs
@@ -722,6 +722,9 @@ callSize
  -> Int  -- ^ number of value args that are void
  -> Int
 callSize n_val_args voids = 10 * (1 + n_val_args - voids)
+        -- The 1+ is for the function itself
+        -- Add 1 for each non-trivial arg;
+        -- the allocation cost, as in let(rec)
 
 -- | The size of a jump to a join point
 jumpSize
@@ -748,9 +751,6 @@ funSize dflags top_args fun n_val_args voids
     size | is_join              = jumpSize n_val_args voids
          | not some_val_args    = 0
          | otherwise            = callSize n_val_args voids
-        -- The 1+ is for the function itself
-        -- Add 1 for each non-trivial arg;
-        -- the allocation cost, as in let(rec)
 
         --                  DISCOUNTS
         --  See Note [Function and non-function discounts]