diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-04-05 20:22:35 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-04-06 11:41:07 +0200 |
| commit | 9b3d4cdd26a9fbf0a1183185bedbe11925b1ddb4 (patch) | |
| tree | a0476dc6ea466059cfd5a8d8677fa18b7af9b944 /compiler/cmm/CmmPipeline.hs | |
| parent | b84da617c4dadcfbf47796e7a75c21d6b4c4947a (diff) | |
| download | haskell-9b3d4cdd26a9fbf0a1183185bedbe11925b1ddb4.tar.gz | |
Fix typos
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index 6093419cf1..78fed222ef 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -62,7 +62,7 @@ cpsTop hsc_env proc = -- CmmProc h l v g <- {-# SCC "cmmCfgOpts(1)" #-} return $ cmmCfgOptsProc splitting_proc_points proc - dump Opt_D_dump_cmm_cfg "Post control-flow optimsations" g + dump Opt_D_dump_cmm_cfg "Post control-flow optimisations" g let !TopInfo {stack_info=StackInfo { arg_space = entry_off , do_layout = do_layout }} = h @@ -135,7 +135,7 @@ cpsTop hsc_env proc = else gs gs <- return (map removeUnreachableBlocksProc gs) -- Note [unreachable blocks] - dumps Opt_D_dump_cmm_cfg "Post control-flow optimsations" gs + dumps Opt_D_dump_cmm_cfg "Post control-flow optimisations" gs return (cafEnv, gs) @@ -155,7 +155,7 @@ cpsTop hsc_env proc = else g g <- return (removeUnreachableBlocksProc g) -- Note [unreachable blocks] - dump' Opt_D_dump_cmm_cfg "Post control-flow optimsations" g + dump' Opt_D_dump_cmm_cfg "Post control-flow optimisations" g return (cafEnv, [g]) |