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
acbb3dba
Commit
acbb3dba
authored
Dec 12, 2011
by
benl
Browse files
vectoriser: workaround bug in classiftTyCons
parent
3eb443b6
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/Vectorise/Type/Classify.hs
View file @
acbb3dba
...
...
@@ -43,7 +43,15 @@ classifyTyCons :: UniqFM Bool -- ^type constructor conversio
->
([
TyCon
],
[
TyCon
],
[
TyCon
])
-- ^tycons to be converted & not to be converted
classifyTyCons
convStatus
tcs
=
classify
[]
[]
[]
convStatus
(
tyConGroups
tcs
)
where
classify
conv
keep
ignored
_
[]
=
(
conv
,
keep
,
ignored
)
-- ******** HACKS *********
-- TyCons that were marked as 'keep' are instead put into the 'conv' list,
-- because keeping them was breaking the nbody example.
-- This needs to be fixed. -- BL 29/11/2011
-- classify conv keep ignored _ [] = (conv, keep, ignored)
classify
conv
keep
ignored
_
[]
=
(
conv
++
keep
,
[]
,
ignored
)
-- ************************
classify
conv
keep
ignored
cs
((
tcs
,
ds
)
:
rs
)
|
can_convert
&&
must_convert
=
classify
(
tcs
++
conv
)
keep
ignored
(
cs
`
addListToUFM
`
[(
tc
,
True
)
|
tc
<-
tcs
])
rs
...
...
chak@cse.unsw.edu.au.
@trac-chak
mentioned in commit
64caa89e
·
Dec 14, 2011
mentioned in commit
64caa89e
mentioned in commit 64caa89e887b36da5dc4113727e6032b741855b5
Toggle commit list
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