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
151b1170
Commit
151b1170
authored
Aug 24, 2007
by
rl@cse.unsw.edu.au
Browse files
Delete dead code
parent
675aada9
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectUtils.hs
View file @
151b1170
...
...
@@ -165,29 +165,6 @@ mkTyConRepr vect_tc
mk_tc_app_maybe
Nothing
[
ty
]
=
ty
mk_tc_app_maybe
(
Just
tc
)
tys
=
mkTyConApp
tc
tys
{-
mkPRepr :: [[Type]] -> VM Type
mkPRepr tys
= do
embed_tc <- builtin embedTyCon
sum_tcs <- builtins sumTyCon
prod_tcs <- builtins prodTyCon
let mk_sum [] = unitTy
mk_sum [ty] = ty
mk_sum tys = mkTyConApp (sum_tcs $ length tys) tys
mk_prod [] = unitTy
mk_prod [ty] = ty
mk_prod tys = mkTyConApp (prod_tcs $ length tys) tys
mk_embed ty = mkTyConApp embed_tc [ty]
return . mk_sum
. map (mk_prod . map mk_embed)
$ tys
-}
mkToPRepr
::
TyConRepr
->
[[
CoreExpr
]]
->
[
CoreExpr
]
mkToPRepr
(
TyConRepr
{
repr_tys
=
repr_tys
...
...
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