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
13ae8118
Commit
13ae8118
authored
Jul 16, 2007
by
rl@cse.unsw.edu.au
Browse files
Pass correct dictionary to lengthPA for single-element environments
parent
8adf1ec2
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/Vectorise.hs
View file @
13ae8118
...
...
@@ -398,8 +398,9 @@ mkClosureMonoFns info arg body
bind_lenv
lenv
lbody
lc_bndr
[
lbndr
]
=
do
lengthPA
<-
builtin
lengthPAVar
pa_dict
<-
paDictOfType
vty
return
.
Let
(
NonRec
lbndr
lenv
)
$
Case
(
mkApps
(
Var
lengthPA
)
[
Type
vty
,
(
Var
lbndr
)])
$
Case
(
mkApps
(
Var
lengthPA
)
[
Type
vty
,
pa_dict
,
(
Var
lbndr
)])
lc_bndr
(
exprType
lbody
)
[(
DEFAULT
,
[]
,
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