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)
-- | Guard Statement
type GuardStmt id = Stmt id (LHsExpr id)
-- | Ghci Located Statemnt
-- | Ghci Located Statement
type GhciLStmt id = LStmt id (LHsExpr id)
-- | Ghci Statement
......
......@@ -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
-- 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.
basicBlocksCodeGen :: LiveGlobalRegs -> [CmmBlock]
-> LlvmM ([LlvmBasicBlock], [LlvmCmmDecl])
......
......@@ -165,7 +165,7 @@ chooseSpill info graph
-- cost = sum loadCost * freq (u) + sum storeCost * freq (d)
-- 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 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.
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
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]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
......
......@@ -2012,7 +2012,7 @@ tcUserStmt (L loc (BodyStmt expr _ _ _))
; when (isUnitTy $ it_ty) failM
; return stuff },
-- Plan B; a naked bind statment
-- Plan B; a naked bind statement
tcGhciStmts [bind_stmt],
-- Plan C; check that the let-binding is typeable all by itself.
......
......@@ -309,7 +309,7 @@ splitEithers (e : es) = case e of
where (xs,ys) = splitEithers es
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
chkAppend xs ys
| null ys = xs
......
......@@ -150,7 +150,7 @@ pprExp i (LamCaseE ms) = parensIf (i > noPrec)
pprExp _ (TupE es) = parens (commaSep es)
pprExp _ (UnboxedTupE es) = hashParens (commaSep es)
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)
= parensIf (i > noPrec) $ sep [text "if" <+> ppr guard,
nest 1 $ text "then" <+> ppr true,
......
......@@ -1395,7 +1395,7 @@ StgBool stmCommitTransaction(Capability *cap, StgTRecHeader *trec) {
}
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
// linearization point of the commit.
......@@ -1472,7 +1472,7 @@ StgBool stmCommitNestedTransaction(Capability *cap, StgTRecHeader *trec) {
result = check_read_only(trec);
}
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
// linearization point of the commit.
......
{- Tests let-expressions in do-statments -}
{- Tests let-expressions in do-statements -}
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