[commit: ghc] master: typos in comments (9ef3b76)

[Gabor Greif]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9ef3b765e85adb158dfe87f0c95fad290e12af93

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

commit 9ef3b765e85adb158dfe87f0c95fad290e12af93
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Jul 18 10:33:46 2012 +0200

    typos in comments
    
    this is also my test commit and
    reduces the lines in the cross-
    compiler branch

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

 utils/genapply/GenApply.hs |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs
index d00324f..e39f42e 100644
--- a/utils/genapply/GenApply.hs
+++ b/utils/genapply/GenApply.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -cpp -fglasgow-exts #-}
 {-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
+-- The above warning suppression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
 --     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
@@ -179,7 +179,7 @@ mb_tag_node arity | Just tag <- tagForArity arity = mkTagStmt tag <> semi
 mkTagStmt tag = text ("R1 = R1 + "++ show tag)
 
 genMkPAP regstatus macro jump ticker disamb
-        no_load_regs    -- don't load argumnet regs before jumping
+        no_load_regs    -- don't load argument regs before jumping
         args_in_regs    -- arguments are already in regs
         is_pap args all_args_size fun_info_label
         is_fun_case
@@ -223,7 +223,7 @@ genMkPAP regstatus macro jump ticker disamb
                 else shuffle_extra_args,
 
                 -- for a PAP, we have to arrange that the stack contains a
-                -- return address in the even that stg_PAP_entry fails its
+                -- return address in the event that stg_PAP_entry fails its
                 -- heap check.  See stg_PAP_entry in Apply.hc for details.
              if is_pap 
                 then text "R2 = " <> mkApplyInfoName this_call_args <> semi