Vectoriser: abstract arguments to scalar functions in the right order
authorManuel M T Chakravarty <chak@cse.unsw.edu.au>
Mon, 4 Feb 2013 05:43:34 +0000 (16:43 +1100)
committerManuel M T Chakravarty <chak@cse.unsw.edu.au>
Mon, 4 Feb 2013 05:43:34 +0000 (16:43 +1100)
compiler/vectorise/Vectorise/Exp.hs

index adc5e96..eeee0a8 100644 (file)
@@ -267,7 +267,7 @@ liftSimpleAndCase aexpr = liftSimple aexpr
 liftSimple :: CoreExprWithVectInfo -> VM CoreExprWithVectInfo
 liftSimple aexpr@((fvs_orig, VISimple), expr) 
   = do 
-    { let liftedExpr = mkAnnApps (mkAnnLams vars fvs expr) vars
+    { let liftedExpr = mkAnnApps (mkAnnLams (reverse vars) fvs expr) vars
 
     ; traceVt "encapsulate:" $ ppr (deAnnotate aexpr) $$ text "==>" $$ ppr (deAnnotate liftedExpr)