diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-04-11 04:53:07 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-04-11 04:53:07 +0000 |
| commit | 2de9393dfe9b2aa0a94ad12991053848958fb174 (patch) | |
| tree | 61c60b8d1e7e3a50b24e0cf2a29266fc355ed083 /compiler/vectorise | |
| parent | 07d1b116efe38566ef51286121da1fc60ef33b16 (diff) | |
| download | haskell-2de9393dfe9b2aa0a94ad12991053848958fb174.tar.gz | |
Fix bug in vectorisation of case expressions
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 48aa05c8f8..562e46d353 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] |