From 2de9393dfe9b2aa0a94ad12991053848958fb174 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Fri, 11 Apr 2008 04:53:07 +0000 Subject: [PATCH] Fix bug in vectorisation of case expressions --- compiler/vectorise/Vectorise.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 48aa05c..562e46d 100644 --- 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] -- 1.7.10.4