comments

1 files changed, 5 insertions, 5 deletions

diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs
index 84ff21b3d0..08f4e296b8 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
         }