[commit: ghc] master: Vectoriser: abstract arguments to scalar functions in the right order (ad45b9f)

[Manuel Chakravarty]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ad45b9f8781aa5350d8ecd45eef179064713ff38

>---------------------------------------------------------------

commit ad45b9f8781aa5350d8ecd45eef179064713ff38
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Mon Feb 4 16:43:34 2013 +1100

    Vectoriser: abstract arguments to scalar functions in the right order

>---------------------------------------------------------------

 compiler/vectorise/Vectorise/Exp.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index adc5e96..eeee0a8 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -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)