diff options
| author | Gabor Greif <ggreif@gmail.com> | 2012-07-18 10:33:46 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2012-07-18 10:49:45 +0200 |
| commit | 9ef3b765e85adb158dfe87f0c95fad290e12af93 (patch) | |
| tree | 086b3b0284ffd7bdb94cff86973d4612a13d6578 /utils | |
| parent | dae6dfdbf7de621721ffffb8d6bfa24ca5fe8d1d (diff) | |
| download | haskell-9ef3b765e85adb158dfe87f0c95fad290e12af93.tar.gz | |
typos in comments
this is also my test commit and
reduces the lines in the cross-
compiler branch
Diffstat (limited to 'utils')
| -rw-r--r-- | 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 d00324f173..e39f42ec5f 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 |