Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-constraint-solver
http://hackage.haskell.org/trac/ghc/changeset/af926b17a3ba18976c7628887c8ae68309ed1896 >--------------------------------------------------------------- commit af926b17a3ba18976c7628887c8ae68309ed1896 Author: Simon Peyton Jones <[email protected]> Date: Wed Oct 26 18:02:59 2011 +0100 Unused variables >--------------------------------------------------------------- compiler/codeGen/CgCase.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs index 6c6344f..3ac453b 100644 --- a/compiler/codeGen/CgCase.lhs +++ b/compiler/codeGen/CgCase.lhs @@ -121,8 +121,8 @@ allocating more heap than strictly necessary, but it will sometimes eliminate a heap check altogether. \begin{code} -cgCase (StgApp v []) _live_in_whole_case _live_in_alts bndr - alt_type@(PrimAlt _) [(DEFAULT,bndrs,_,rhs)] +cgCase (StgApp _v []) _live_in_whole_case _live_in_alts bndr + (PrimAlt _) [(DEFAULT,bndrs,_,rhs)] | isVoidArg (idCgRep bndr) = ASSERT( null bndrs ) WARN( True, ptext (sLit "Case of void constant; missing optimisation somewhere") <+> ppr bndr) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
