Commit 2de9393d authored by's avatar
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]
Supports Markdown
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