projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
80cb2c3
)
Fixed two syntax errors
author
keller@.cse.unsw.edu.au
<unknown>
Mon, 14 Feb 2011 02:05:31 +0000
(
02:05
+0000)
committer
keller@.cse.unsw.edu.au
<unknown>
Mon, 14 Feb 2011 02:05:31 +0000
(
02:05
+0000)
compiler/vectorise/Vectorise/Exp.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/Vectorise/Exp.hs
b/compiler/vectorise/Vectorise/Exp.hs
index
091a760
..
079e826
100644
(file)
--- a/
compiler/vectorise/Vectorise/Exp.hs
+++ b/
compiler/vectorise/Vectorise/Exp.hs
@@
-186,7
+186,7
@@
vectScalarLam args recFns body
pprTrace "vectScalarLam is prim res" (ppr $ is_prim_ty res_ty) $
pprTrace "vectScalarLam is scalar body" (ppr $ is_scalar (extendVarSetList scalars args) body) $
pprTrace "vectScalarLam arg tys" (ppr $ arg_tys) $ -}
pprTrace "vectScalarLam is prim res" (ppr $ is_prim_ty res_ty) $
pprTrace "vectScalarLam is scalar body" (ppr $ is_scalar (extendVarSetList scalars args) body) $
pprTrace "vectScalarLam arg tys" (ppr $ arg_tys) $ -}
- onlyIfV (all is_prim_ty arg_tys
+ onlyIfV (all is_prim_ty arg_tys
&& is_prim_ty res_ty
&& is_scalar (extendVarSetList scalars args) body
&& uses scalars body)
&& is_prim_ty res_ty
&& is_scalar (extendVarSetList scalars args) body
&& uses scalars body)
@@
-198,7
+198,7
@@
vectScalarLam args recFns body
clo_var <- hoistExpr (fsLit "clo") clo DontInline
lclo <- liftPD (Var clo_var)
{- pprTrace " lam is scalar" (ppr "") $ -}
clo_var <- hoistExpr (fsLit "clo") clo DontInline
lclo <- liftPD (Var clo_var)
{- pprTrace " lam is scalar" (ppr "") $ -}
- return (Var clo_var, lclo)
+ return (Var clo_var, lclo)
where
arg_tys = map idType args
res_ty = exprType body
where
arg_tys = map idType args
res_ty = exprType body