[commit: ghc] master: comments (35c05d7)

[git at git.haskell.org]

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

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

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

commit 35c05d71cb84c25983ab19b1010ac93ab040b266
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Nov 13 14:45:45 2013 +0000

    comments


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

35c05d71cb84c25983ab19b1010ac93ab040b266
 compiler/codeGen/StgCmmLayout.hs |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs
index 84ff21b..08f4e29 100644
--- a/compiler/codeGen/StgCmmLayout.hs
+++ b/compiler/codeGen/StgCmmLayout.hs
@@ -120,15 +120,15 @@ emitCallWithExtraStack (callConv, retConv) fun args extra_stack
 
 
 adjustHpBackwards :: FCode ()
--- This function adjusts and heap pointers just before a tail call or
+-- This function adjusts the heap pointer just before a tail call or
 -- return.  At a call or return, the virtual heap pointer may be less
 -- than the real Hp, because the latter was advanced to deal with
 -- the worst-case branch of the code, and we may be in a better-case
 -- branch.  In that case, move the real Hp *back* and retract some
 -- ticky allocation count.
 --
--- It *does not* deal with high-water-mark adjustment.
--- That's done by functions which allocate heap.
+-- It *does not* deal with high-water-mark adjustment.  That's done by
+-- functions which allocate heap.
 adjustHpBackwards
   = do  { hp_usg <- getHpUsage
         ; let rHp = realHp hp_usg
@@ -138,9 +138,9 @@ adjustHpBackwards
 
         ; emit (if adjust_words == 0
                 then mkNop
-                else mkAssign hpReg new_hp)        -- Generates nothing when vHp==rHp
+                else mkAssign hpReg new_hp) -- Generates nothing when vHp==rHp
 
-        ; tickyAllocHeap False adjust_words                -- ...ditto
+        ; tickyAllocHeap False adjust_words -- ...ditto
 
         ; setRealHp vHp
         }