diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Liveness.hs | 2 | ||||
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs index a904202ba7..4b00ed6cd6 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -801,7 +801,7 @@ computeLiveness -> [SCC (LiveBasicBlock instr)] -> ([SCC (LiveBasicBlock instr)], -- instructions annotated with list of registers -- which are "dead after this instruction". - BlockMap RegSet) -- blocks annontated with set of live registers + BlockMap RegSet) -- blocks annotated with set of live registers -- on entry to the block. computeLiveness platform sccs diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index e51ef054a4..0b9f5f0948 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -1437,7 +1437,7 @@ rebuildCall env (ArgInfo { ai_fun = fun, ai_args = rev_args, ai_strs = [] }) con -- the continuation, leaving just the bottoming expression. But the -- type might not be right, so we may have to add a coerce. | not (contIsTrivial cont) -- Only do this if there is a non-trivial - = return (env, castBottomExpr res cont_ty) -- contination to discard, else we do it + = return (env, castBottomExpr res cont_ty) -- continuation to discard, else we do it where -- again and again! res = argInfoExpr fun rev_args cont_ty = contResultType cont |