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
cc67e20f
Commit
cc67e20f
authored
Sep 15, 2008
by
rl@cse.unsw.edu.au
Browse files
Fix vectoriser bug
We were using mkWildId in situations where it cause disastrous shadowing
parent
c1572a89
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectMonad.hs
View file @
cc67e20f
...
...
@@ -336,7 +336,7 @@ newLocalVar fs ty
return
$
mkSysLocal
fs
u
ty
newDummyVar
::
Type
->
VM
Var
newDummyVar
=
newLocalVar
(
fsLit
"
ds
"
)
newDummyVar
=
newLocalVar
(
fsLit
"
vv
"
)
newTyVar
::
FastString
->
Kind
->
VM
Var
newTyVar
fs
k
...
...
compiler/vectorise/Vectorise.hs
View file @
cc67e20f
...
...
@@ -370,11 +370,13 @@ vectAlgCase tycon _ty_args scrut bndr ty alts
let
(
vect_scrut
,
lift_scrut
)
=
vscrut
(
vect_bodies
,
lift_bodies
)
=
unzip
vbodies
let
vect_case
=
Case
vect_scrut
(
mkWildId
(
exprType
vect_scrut
))
vty
vdummy
<-
newDummyVar
(
exprType
vect_scrut
)
ldummy
<-
newDummyVar
(
exprType
lift_scrut
)
let
vect_case
=
Case
vect_scrut
vdummy
vty
(
zipWith3
mk_vect_alt
vect_dcs
vect_bndrss
vect_bodies
)
lbody
<-
combinePA
vty
len
sel
indices
lift_bodies
let
lift_case
=
Case
lift_scrut
(
mkWildId
(
exprType
lift_scrut
))
lty
let
lift_case
=
Case
lift_scrut
ldummy
lty
[(
DataAlt
arr_dc
,
shape_bndrs
++
concat
lift_bndrss
,
lbody
)]
...
...
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