Commit 2de9393d authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Fix bug in vectorisation of case expressions

parent 07d1b116
......@@ -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]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment