Commit 577f3da7 authored by Gabor Greif's avatar Gabor Greif 💬

Typos in comments [ci skip]

parent ce9b6170
...@@ -1612,7 +1612,7 @@ type GuardLStmt id = LStmt id (LHsExpr id) ...@@ -1612,7 +1612,7 @@ type GuardLStmt id = LStmt id (LHsExpr id)
-- | Guard Statement -- | Guard Statement
type GuardStmt id = Stmt id (LHsExpr id) type GuardStmt id = Stmt id (LHsExpr id)
-- | Ghci Located Statemnt -- | Ghci Located Statement
type GhciLStmt id = LStmt id (LHsExpr id) type GhciLStmt id = LStmt id (LHsExpr id)
-- | Ghci Statement -- | Ghci Statement
......
...@@ -62,7 +62,7 @@ genLlvmProc _ = panic "genLlvmProc: case that shouldn't reach here!" ...@@ -62,7 +62,7 @@ genLlvmProc _ = panic "genLlvmProc: case that shouldn't reach here!"
-- --
-- | Generate code for a list of blocks that make up a complete -- | Generate code for a list of blocks that make up a complete
-- procedure. The first block in the list is exepected to be the entry -- procedure. The first block in the list is expected to be the entry
-- point and will get the prologue. -- point and will get the prologue.
basicBlocksCodeGen :: LiveGlobalRegs -> [CmmBlock] basicBlocksCodeGen :: LiveGlobalRegs -> [CmmBlock]
-> LlvmM ([LlvmBasicBlock], [LlvmCmmDecl]) -> LlvmM ([LlvmBasicBlock], [LlvmCmmDecl])
......
...@@ -165,7 +165,7 @@ chooseSpill info graph ...@@ -165,7 +165,7 @@ chooseSpill info graph
-- cost = sum loadCost * freq (u) + sum storeCost * freq (d) -- cost = sum loadCost * freq (u) + sum storeCost * freq (d)
-- u <- uses (v) d <- defs (v) -- u <- uses (v) d <- defs (v)
-- --
-- There are no loops in our code at the momemnt, so we can set the freq's to 1. -- There are no loops in our code at the moment, so we can set the freq's to 1.
-- --
-- If we don't have live range splitting then Chaitins function performs badly -- If we don't have live range splitting then Chaitins function performs badly
-- if we have lots of nested live ranges and very few registers. -- if we have lots of nested live ranges and very few registers.
......
...@@ -1749,7 +1749,7 @@ the passed-in RuleInfo, unless there are no calls at all to the function. ...@@ -1749,7 +1749,7 @@ the passed-in RuleInfo, unless there are no calls at all to the function.
The caller can, indeed must, assume this. He should not combine in rhs_usg The caller can, indeed must, assume this. He should not combine in rhs_usg
himself, or he'll get rhs_usg twice -- and that can lead to an exponential himself, or he'll get rhs_usg twice -- and that can lead to an exponential
blowup of duplicates in the CallEnv. This is what gave rise to the massive blowup of duplicates in the CallEnv. This is what gave rise to the massive
performace loss in Trac #8852. performance loss in Trac #8852.
Note [Specialise original body] Note [Specialise original body]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
......
...@@ -2012,7 +2012,7 @@ tcUserStmt (L loc (BodyStmt expr _ _ _)) ...@@ -2012,7 +2012,7 @@ tcUserStmt (L loc (BodyStmt expr _ _ _))
; when (isUnitTy $ it_ty) failM ; when (isUnitTy $ it_ty) failM
; return stuff }, ; return stuff },
-- Plan B; a naked bind statment -- Plan B; a naked bind statement
tcGhciStmts [bind_stmt], tcGhciStmts [bind_stmt],
-- Plan C; check that the let-binding is typeable all by itself. -- Plan C; check that the let-binding is typeable all by itself.
......
...@@ -309,7 +309,7 @@ splitEithers (e : es) = case e of ...@@ -309,7 +309,7 @@ splitEithers (e : es) = case e of
where (xs,ys) = splitEithers es where (xs,ys) = splitEithers es
chkAppend :: [a] -> [a] -> [a] chkAppend :: [a] -> [a] -> [a]
-- Checks for the second arguemnt being empty -- Checks for the second argument being empty
-- Used in situations where that situation is common -- Used in situations where that situation is common
chkAppend xs ys chkAppend xs ys
| null ys = xs | null ys = xs
......
...@@ -150,7 +150,7 @@ pprExp i (LamCaseE ms) = parensIf (i > noPrec) ...@@ -150,7 +150,7 @@ pprExp i (LamCaseE ms) = parensIf (i > noPrec)
pprExp _ (TupE es) = parens (commaSep es) pprExp _ (TupE es) = parens (commaSep es)
pprExp _ (UnboxedTupE es) = hashParens (commaSep es) pprExp _ (UnboxedTupE es) = hashParens (commaSep es)
pprExp _ (UnboxedSumE e alt arity) = unboxedSumBars (ppr e) alt arity pprExp _ (UnboxedSumE e alt arity) = unboxedSumBars (ppr e) alt arity
-- Nesting in Cond is to avoid potential problems in do statments -- Nesting in Cond is to avoid potential problems in do statements
pprExp i (CondE guard true false) pprExp i (CondE guard true false)
= parensIf (i > noPrec) $ sep [text "if" <+> ppr guard, = parensIf (i > noPrec) $ sep [text "if" <+> ppr guard,
nest 1 $ text "then" <+> ppr true, nest 1 $ text "then" <+> ppr true,
......
...@@ -1395,7 +1395,7 @@ StgBool stmCommitTransaction(Capability *cap, StgTRecHeader *trec) { ...@@ -1395,7 +1395,7 @@ StgBool stmCommitTransaction(Capability *cap, StgTRecHeader *trec) {
} }
if (result) { if (result) {
// We now know that all of the read-only locations held their exepcted values // We now know that all of the read-only locations held their expected values
// at the end of the call to validate_and_acquire_ownership. This forms the // at the end of the call to validate_and_acquire_ownership. This forms the
// linearization point of the commit. // linearization point of the commit.
...@@ -1472,7 +1472,7 @@ StgBool stmCommitNestedTransaction(Capability *cap, StgTRecHeader *trec) { ...@@ -1472,7 +1472,7 @@ StgBool stmCommitNestedTransaction(Capability *cap, StgTRecHeader *trec) {
result = check_read_only(trec); result = check_read_only(trec);
} }
if (result) { if (result) {
// We now know that all of the read-only locations held their exepcted values // We now know that all of the read-only locations held their expected values
// at the end of the call to validate_and_acquire_ownership. This forms the // at the end of the call to validate_and_acquire_ownership. This forms the
// linearization point of the commit. // linearization point of the commit.
......
{- Tests let-expressions in do-statments -} {- Tests let-expressions in do-statements -}
module Main( main ) where module Main( main ) where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment