Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
77d2aa5f
Commit
77d2aa5f
authored
Oct 12, 2013
by
Krzysztof Gogolewski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Typos
parent
c5262a12
Changes
14
Hide whitespace changes
Inline
Side-by-side
Showing
14 changed files
with
14 additions
and
14 deletions
+14
-14
compiler/cmm/CmmSink.hs
compiler/cmm/CmmSink.hs
+1
-1
compiler/coreSyn/PprCore.lhs
compiler/coreSyn/PprCore.lhs
+1
-1
compiler/deSugar/DsExpr.lhs
compiler/deSugar/DsExpr.lhs
+1
-1
compiler/deSugar/MatchLit.lhs
compiler/deSugar/MatchLit.lhs
+1
-1
compiler/ghci/RtClosureInspect.hs
compiler/ghci/RtClosureInspect.hs
+1
-1
compiler/main/HscTypes.lhs
compiler/main/HscTypes.lhs
+1
-1
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
+1
-1
compiler/parser/Lexer.x
compiler/parser/Lexer.x
+1
-1
compiler/prelude/PrimOp.lhs
compiler/prelude/PrimOp.lhs
+1
-1
compiler/simplCore/OccurAnal.lhs
compiler/simplCore/OccurAnal.lhs
+1
-1
compiler/specialise/Specialise.lhs
compiler/specialise/Specialise.lhs
+1
-1
compiler/types/Type.lhs
compiler/types/Type.lhs
+1
-1
compiler/utils/Pretty.lhs
compiler/utils/Pretty.lhs
+1
-1
compiler/vectorise/Vectorise/Monad/Local.hs
compiler/vectorise/Vectorise/Monad/Local.hs
+1
-1
No files found.
compiler/cmm/CmmSink.hs
View file @
77d2aa5f
...
...
@@ -565,7 +565,7 @@ localRegistersConflict dflags expr node =
-- We will attempt to sink { x = R1 } but we will detect conflict with
-- { P64[Sp - 8] = x } and hence we will drop { x = R1 } without even
-- checking whether it conflicts with { call f() }. In this way we will
-- never need to check any assignment conflicts with CmmCall. Remeber
-- never need to check any assignment conflicts with CmmCall. Reme
m
ber
-- that we still need to check for potential memory conflicts.
--
-- So the result is that we only need to worry about CmmUnsafeForeignCall nodes
...
...
compiler/coreSyn/PprCore.lhs
View file @
77d2aa5f
...
...
@@ -108,7 +108,7 @@ ppr_expr :: OutputableBndr b => (SDoc -> SDoc) -> Expr b -> SDoc
-- an atomic value (e.g. function args)
ppr_expr _ (Var name) = ppr name
ppr_expr add_par (Type ty) = add_par (ptext (sLit "TYPE") <+> ppr ty) -- W
i
erd
ppr_expr add_par (Type ty) = add_par (ptext (sLit "TYPE") <+> ppr ty) -- We
i
rd
ppr_expr add_par (Coercion co) = add_par (ptext (sLit "CO") <+> ppr co)
ppr_expr add_par (Lit lit) = pprLiteral add_par lit
...
...
compiler/deSugar/DsExpr.lhs
View file @
77d2aa5f
...
...
@@ -838,7 +838,7 @@ warnDiscardedDoBindings rhs rhs_ty
-> warnDs (wrongMonadBind rhs elt_ty)
_ -> return () } }
| otherwise -- RHS does have type of form (m ty), which is w
i
erd
| otherwise -- RHS does have type of form (m ty), which is we
i
rd
= return () -- but at lesat this warning is irrelevant
unusedMonadBind :: LHsExpr Id -> Type -> SDoc
...
...
compiler/deSugar/MatchLit.lhs
View file @
77d2aa5f
...
...
@@ -265,7 +265,7 @@ tidyNPat tidy_lit_pat (OverLit val False _ ty) mb_neg _
-- Once that is settled, look for cases where the type of the
-- entire overloaded literal matches the type of the underlying literal,
-- and in that case take the short cut
-- NB: Watch out for w
i
erd cases like Trac #3382
-- NB: Watch out for we
i
rd cases like Trac #3382
-- f :: Int -> Int
-- f "blah" = 4
-- which might be ok if we hvae 'instance IsString Int'
...
...
compiler/ghci/RtClosureInspect.hs
View file @
77d2aa5f
...
...
@@ -412,7 +412,7 @@ type CustomTermPrinter m = TermPrinterM m
->
[
Precedence
->
Term
->
(
m
(
Maybe
SDoc
))]
-- | Takes a list of custom printers with a explicit recursion knot and a term,
-- and returns the output of the first successful printer, or the default printer
cPprTerm
::
Monad
m
=>
CustomTermPrinter
m
->
Term
->
m
SDoc
cPprTerm
printers_
=
go
0
where
printers
=
printers_
go
...
...
compiler/main/HscTypes.lhs
View file @
77d2aa5f
...
...
@@ -1006,7 +1006,7 @@ data ModGuts
-- ^ Class instance environment from /home-package/ modules (including
-- this one); c.f. 'tcg_inst_env'
mg_fam_inst_env :: FamInstEnv,
-- ^ Type-family instance enviroment for /home-package/ modules
-- ^ Type-family instance enviro
n
ment for /home-package/ modules
-- (including this one); c.f. 'tcg_fam_inst_env'
mg_safe_haskell :: SafeHaskellMode,
-- ^ Safe Haskell mode
...
...
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
View file @
77d2aa5f
...
...
@@ -204,7 +204,7 @@ spillCost_chaitin
spillCost_chaitin info graph reg
-- Spilling a live range that only lives for 1 instruction
-- isn't going to help us at all - and we defin
a
tely want to avoid
-- isn't going to help us at all - and we defin
i
tely want to avoid
-- trying to re-spill previously inserted spill code.
| lifetime <= 1 = 1/0
...
...
compiler/parser/Lexer.x
View file @
77d2aa5f
...
...
@@ -1600,7 +1600,7 @@ data PState = PState {
-- This is the next token to be considered or, if it is Nothing,
-- we need to get the next token from the input stream:
alr_next_token :: Maybe (RealLocated Token),
-- This is what we consider to be the locati
n
o of the last token
-- This is what we consider to be the locatio
n
of the last token
-- emitted:
alr_last_loc :: RealSrcSpan,
-- The stack of layout contexts:
...
...
compiler/prelude/PrimOp.lhs
View file @
77d2aa5f
...
...
@@ -292,7 +292,7 @@ Invariants:
-- KSW: v, the second arg in parAt# and parAtForNow#, is used only to determine
-- `the processor containing the expression v'; it is not evaluated
These primops are pretty w
i
erd.
These primops are pretty we
i
rd.
dataToTag# :: a -> Int (arg must be an evaluated data type)
tagToEnum# :: Int -> a (result type must be an enumerated type)
...
...
compiler/simplCore/OccurAnal.lhs
View file @
77d2aa5f
...
...
@@ -190,7 +190,7 @@ We put bindings {f = ef; g = eg } in a Rec group if "f uses g"
and "g uses f", no matter how indirectly. We do a SCC analysis
with an edge f -> g if "f uses g".
More precisely, "f uses g" iff g should be in scope where
e
ver f is.
More precisely, "f uses g" iff g should be in scope wherever f is.
That is, g is free in:
a) the rhs 'ef'
b) or the RHS of a rule for f (Note [Rules are extra RHSs])
...
...
compiler/specialise/Specialise.lhs
View file @
77d2aa5f
...
...
@@ -488,7 +488,7 @@ Some Ids have types like
This seems curious at first, because we usually only have dictionary
args whose types are of the form (C a) where a is a type variable.
But this doesn't hold for the functions arising from instance decls,
which sometimes get argu
e
ments with types of form (C (T a)) for some
which sometimes get arguments with types of form (C (T a)) for some
type constructor T.
Should we specialise wrt this compound-type dictionary? We used to say
...
...
compiler/types/Type.lhs
View file @
77d2aa5f
...
...
@@ -577,7 +577,7 @@ newTyConInstRhs tycon tys
Notes on type synonyms
~~~~~~~~~~~~~~~~~~~~~~
The various "split" functions (splitFunTy, splitRhoTy, splitForAllTy) try
to return type synonyms where
e
ver possible. Thus
to return type synonyms wherever possible. Thus
type Foo a = a -> a
...
...
compiler/utils/Pretty.lhs
View file @
77d2aa5f
...
...
@@ -71,7 +71,7 @@ Version 2.0 24 April 1997
nest k empty = empty
which wasn't true before.
* Fixed an obscure bug in sep that occas
s
ionally gave very w
i
erd behaviour
* Fixed an obscure bug in sep that occasionally gave very we
i
rd behaviour
* Added $+$
...
...
compiler/vectorise/Vectorise/Monad/Local.hs
View file @
77d2aa5f
...
...
@@ -34,7 +34,7 @@ readLEnv f = VM $ \_ genv lenv -> return (Yes genv lenv (f lenv))
setLEnv
::
LocalEnv
->
VM
()
setLEnv
lenv
=
VM
$
\
_
genv
_
->
return
(
Yes
genv
lenv
()
)
-- |Update the enviroment using the provided function.
-- |Update the enviro
n
ment using the provided function.
--
updLEnv
::
(
LocalEnv
->
LocalEnv
)
->
VM
()
updLEnv
f
=
VM
$
\
_
genv
lenv
->
return
(
Yes
genv
(
f
lenv
)
()
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment