Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
2de9393d
Commit
2de9393d
authored
Apr 11, 2008
by
rl@cse.unsw.edu.au
Browse files
Fix bug in vectorisation of case expressions
parent
07d1b116
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/Vectorise.hs
View file @
2de9393d
...
...
@@ -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
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment