Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/21703cf93de9e93f6b278b4d46f8511a813cbeda >--------------------------------------------------------------- commit 21703cf93de9e93f6b278b4d46f8511a813cbeda Author: [email protected] <unknown> Date: Wed Feb 2 05:14:08 2011 +0000 >--------------------------------------------------------------- compiler/vectorise/Vectorise/Exp.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs index d792fd6..862a760 100644 --- a/compiler/vectorise/Vectorise/Exp.hs +++ b/compiler/vectorise/Vectorise/Exp.hs @@ -176,8 +176,8 @@ vectScalarLam vectScalarLam args body = do scalars <- globalScalars - onlyIfV (all is_scalar_ty arg_tys - && is_scalar_ty res_ty + onlyIfV (all is_prim_ty arg_tys + && is_prim_ty res_ty && is_scalar (extendVarSetList scalars args) body && uses scalars body) $ do _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
