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:
0bb6887
)
Remove dead code
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Tue, 7 Aug 2007 05:21:36 +0000
(
05:21
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Tue, 7 Aug 2007 05:21:36 +0000
(
05:21
+0000)
compiler/vectorise/VectType.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectType.hs
b/compiler/vectorise/VectType.hs
index
871779a
..
7bc4cd2
100644
(file)
--- a/
compiler/vectorise/VectType.hs
+++ b/
compiler/vectorise/VectType.hs
@@
-100,7
+100,6
@@
vectTypeEnv env
parr_tcs <- zipWithM buildPArrayTyCon orig_tcs vect_tcs
dfuns <- mapM mkPADFun vect_tcs
defTyConPAs (zip vect_tcs dfuns)
parr_tcs <- zipWithM buildPArrayTyCon orig_tcs vect_tcs
dfuns <- mapM mkPADFun vect_tcs
defTyConPAs (zip vect_tcs dfuns)
- -- pa_insts <- sequence $ zipWith3 buildPAInstance orig_tcs vect_tcs parr_tcs
let all_new_tcs = new_tcs ++ parr_tcs
let all_new_tcs = new_tcs ++ parr_tcs
@@
-365,19
+364,6
@@
mkPADFun :: TyCon -> VM Var
mkPADFun vect_tc
= newExportedVar (mkPADFunOcc $ getOccName vect_tc) =<< paDFunType vect_tc
mkPADFun vect_tc
= newExportedVar (mkPADFunOcc $ getOccName vect_tc) =<< paDFunType vect_tc
-buildPAInstance :: TyCon -> TyCon -> TyCon -> VM PAInstance
-buildPAInstance orig_tc vect_tc arr_tc
- = do
- dfun_ty <- paDFunType vect_tc
- dfun <- newExportedVar (mkPADFunOcc $ getOccName vect_tc) dfun_ty
-
- return $ PAInstance {
- painstDFun = dfun
- , painstOrigTyCon = orig_tc
- , painstVectTyCon = vect_tc
- , painstArrTyCon = arr_tc
- }
-
buildPADict :: PAInstance -> VM [(Var, CoreExpr)]
buildPADict (PAInstance {
painstDFun = dfun
buildPADict :: PAInstance -> VM [(Var, CoreExpr)]
buildPADict (PAInstance {
painstDFun = dfun