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
6ed5e6a3
Commit
6ed5e6a3
authored
Aug 01, 2007
by
rl@cse.unsw.edu.au
Browse files
Fix calls to replicatePA
parent
e1364f66
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/Vectorise.hs
View file @
6ed5e6a3
...
...
@@ -158,7 +158,7 @@ vectVar lc v
Local
(
vv
,
lv
)
->
return
(
Var
vv
,
Var
lv
)
Global
vv
->
do
let
vexpr
=
Var
vv
lexpr
<-
replicatePA
vexpr
(
Var
lc
)
lexpr
<-
replicatePA
(
Var
lc
)
vexpr
return
(
vexpr
,
lexpr
)
vectPolyVar
::
Var
->
Var
->
[
Type
]
->
VM
VExpr
...
...
@@ -171,13 +171,13 @@ vectPolyVar lc v tys
(
polyApply
(
Var
lv
)
vtys
)
Global
poly
->
do
vexpr
<-
polyApply
(
Var
poly
)
vtys
lexpr
<-
replicatePA
vexpr
(
Var
lc
)
lexpr
<-
replicatePA
(
Var
lc
)
vexpr
return
(
vexpr
,
lexpr
)
vectLiteral
::
Var
->
Literal
->
VM
VExpr
vectLiteral
lc
lit
=
do
lexpr
<-
replicatePA
(
Lit
lit
)
(
Var
lc
)
lexpr
<-
replicatePA
(
Var
lc
)
(
Lit
lit
)
return
(
Lit
lit
,
lexpr
)
vectPolyExpr
::
Var
->
CoreExprWithFVs
->
VM
VExpr
...
...
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