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:
deb2243
)
Remove dead code
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 30 Aug 2007 05:54:44 +0000
(
05:54
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 30 Aug 2007 05:54:44 +0000
(
05:54
+0000)
compiler/vectorise/VectType.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectType.hs
b/compiler/vectorise/VectType.hs
index
ba64d3b
..
405d6ab
100644
(file)
--- a/
compiler/vectorise/VectType.hs
+++ b/
compiler/vectorise/VectType.hs
@@
-263,10
+263,6
@@
mkSum reprs
where
arity = length reprs
where
arity = length reprs
-reprProducts :: Repr -> [Repr]
-reprProducts (SumRepr { sum_components = rs }) = rs
-reprProducts repr = [repr]
-
reprType :: Repr -> Type
reprType (ProdRepr { prod_tycon = tycon, prod_components = tys })
= mkTyConApp tycon tys
reprType :: Repr -> Type
reprType (ProdRepr { prod_tycon = tycon, prod_components = tys })
= mkTyConApp tycon tys
@@
-276,15
+272,6
@@
reprType (SumRepr { sum_tycon = tycon, sum_components = reprs })
arrReprType :: Repr -> VM Type
arrReprType = mkPArrayType . reprType
arrReprType :: Repr -> VM Type
arrReprType = mkPArrayType . reprType
-reprTys :: Repr -> [[Type]]
-reprTys (SumRepr { sum_components = prods }) = map prodTys prods
-reprTys prod = [prodTys prod]
-
-prodTys (ProdRepr { prod_components = tys }) = tys
-
-reprVars :: Repr -> VM [[Var]]
-reprVars = mapM (mapM (newLocalVar FSLIT("r"))) . reprTys
-
arrShapeTys :: Repr -> VM [Type]
arrShapeTys (SumRepr {})
= do
arrShapeTys :: Repr -> VM [Type]
arrShapeTys (SumRepr {})
= do