Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1c4593fd4e45a1ea5a32551408866e73840251f1 >--------------------------------------------------------------- commit 1c4593fd4e45a1ea5a32551408866e73840251f1 Author: [email protected] <unknown> Date: Wed Feb 2 04:08:26 2011 +0000 Removed minor bug >--------------------------------------------------------------- compiler/vectorise/Vectorise/Exp.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs index c3793dc..d792fd6 100644 --- a/compiler/vectorise/Vectorise/Exp.hs +++ b/compiler/vectorise/Vectorise/Exp.hs @@ -244,7 +244,7 @@ vectScalarLam args body is_scalar vs e@(Case eC eId ty alts) = let vs' = extendVarSet vs eId in -- pprTrace "is_scalar Case" (ppr e) $ - cantbe_parr_expr e + cantbe_parr_expr e && is_prim_ty ty && is_scalar vs' eC && (all (is_scalar_alt vs') alts) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
