Fix bug in vectorisation of case expressions

2de9393d · rl@cse.unsw.edu.au · 07d1b116 · 2de9393d
Commit 2de9393d authored Apr 11, 2008 by rl@cse.unsw.edu.au
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -471,9 +471,8 @@ packLiftingContext len shape tag fvs vty lty p
          (vexpr, lexpr) <- p
          empty <- emptyPA vty
          return (vexpr, Let (NonRec sel_var sel_expr)
-                         . mkLets (concat bnds)
                         $ Case len lc_var lty
-                             [(DEFAULT, [], lexpr),
+                             [(DEFAULT, [], mkLets (concat bnds) lexpr),
                              (LitAlt (mkMachInt 0), [], empty)])

 packFreeVar :: CoreExpr -> CoreExpr -> Var -> VM [CoreBind]