projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d40970b
)
Remove some dead code from VectType
author
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 19:44:32 +0000
(19:44 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 19:44:32 +0000
(19:44 +0000)
compiler/vectorise/VectType.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectType.hs
b/compiler/vectorise/VectType.hs
index
90a0825
..
84d9aa5
100644
(file)
--- a/
compiler/vectorise/VectType.hs
+++ b/
compiler/vectorise/VectType.hs
@@
-708,9
+708,9
@@
buildFromArrPRepr repr vect_tc prepr_tc arr_tc
from_repr _ _ _ _ _ _ = panic "buildFromArrPRepr/from_repr"
from_repr _ _ _ _ _ _ = panic "buildFromArrPRepr/from_repr"
- from_prod prod@(ProdRepr { prod_components = tys
- , prod_arr_tycon = tycon
- , prod_arr_data_con = data_con })
+ from_prod (ProdRepr { prod_components = tys
+ , prod_arr_tycon = tycon
+ , prod_arr_data_con = data_con })
expr
shape_vars
repr_vars
expr
shape_vars
repr_vars
@@
-719,7
+719,6
@@
buildFromArrPRepr repr vect_tc prepr_tc arr_tc
= do
let scrut = unwrapFamInstScrut tycon tys expr
scrut_ty = mkTyConApp tycon tys
= do
let scrut = unwrapFamInstScrut tycon tys expr
scrut_ty = mkTyConApp tycon tys
- _ty <- arrReprType prod
return $ Case scrut (mkWildId scrut_ty) res_ty
[(DataAlt data_con, shape_vars ++ repr_vars, body)]
return $ Case scrut (mkWildId scrut_ty) res_ty
[(DataAlt data_con, shape_vars ++ repr_vars, body)]