projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
29df68c
)
Reuse the lifting context Var
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 1 Aug 2007 04:24:41 +0000
(
04:24
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 1 Aug 2007 04:24:41 +0000
(
04:24
+0000)
compiler/vectorise/Vectorise.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/Vectorise.hs
b/compiler/vectorise/Vectorise.hs
index
75d1cb1
..
5734ae1
100644
(file)
--- a/
compiler/vectorise/Vectorise.hs
+++ b/
compiler/vectorise/Vectorise.hs
@@
-256,10
+256,9
@@
vectLam lc fvs bs body
buildClosures tyvars lc vvs arg_tys res_ty
. hoistPolyVExpr tyvars
$ do
- new_lc <- newLocalVar FSLIT("lc") intPrimTy
(vbndrs, vbody) <- vectBndrsIn (vs ++ bs)
- (vectExpr new_lc body)
- return $ vLams new_lc vbndrs vbody
+ (vectExpr lc body)
+ return $ vLams lc vbndrs vbody
vectTyAppExpr :: Var -> CoreExprWithFVs -> [Type] -> VM VExpr
vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys