From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 1 Aug 2007 04:24:41 +0000 (+0000)
Subject: Reuse the lifting context Var
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d4d5f8f6be58f1f6a2e0983676f9c93ff1fdb354

Reuse the lifting context Var
---

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 75d1cb1..5734ae1 100644
--- 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