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
209e3750
Commit
209e3750
authored
May 08, 2012
by
chak@cse.unsw.edu.au.
Browse files
Fix
#6080
& house keeping in Vectorise.Exp
parent
b26a1b3f
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/Vectorise.hs
View file @
209e3750
...
...
@@ -361,18 +361,18 @@ vectTopRhs recFs var expr
rhs
_globalScalar
_isDFun
(
Just
(
_
,
expr'
))
-- Case (1)
=
return
(
inlineMe
,
False
,
expr'
)
rhs
True
False
Nothing
-- Case (2)
=
do
{
expr'
<-
vectScalarFun
recFs
expr
=
do
{
expr'
<-
vectScalarFun
expr
;
return
(
inlineMe
,
True
,
vectorised
expr'
)
}
rhs
True
True
Nothing
-- Case (3)
=
do
{
expr'
<-
vectScalarDFun
var
recFs
=
do
{
expr'
<-
vectScalarDFun
var
;
return
(
DontInline
,
True
,
expr'
)
}
rhs
False
False
Nothing
-- Case (4) — not a dfun
=
do
{
let
exprFvs
=
freeVars
expr
;
(
inline
,
isScalar
,
vexpr
)
<-
inBind
var
$
vectPolyExpr
(
isStrongLoopBreaker
$
idOccInfo
var
)
recFs
exprFvs
vectPolyExpr
(
isStrongLoopBreaker
$
idOccInfo
var
)
recFs
exprFvs
Nothing
;
return
(
inline
,
isScalar
,
vectorised
vexpr
)
}
rhs
False
True
Nothing
-- Case (4) — is a dfun
...
...
compiler/vectorise/Vectorise/Exp.hs
View file @
209e3750
This diff is collapsed.
Click to expand it.
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