diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-11-12 07:04:55 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-11-12 07:04:55 +0000 |
| commit | fb48c6e77a6e366072f8032382b2d3dbc17fa6a0 (patch) | |
| tree | 62dd4a99d066436b60ef84b67238c9ea4b803558 /compiler/vectorise/VectUtils.hs | |
| parent | 2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba (diff) | |
| download | haskell-fb48c6e77a6e366072f8032382b2d3dbc17fa6a0.tar.gz | |
Remove dead code
Diffstat (limited to 'compiler/vectorise/VectUtils.hs')
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 6207acdc11..79e0cfb842 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -11,7 +11,7 @@ module VectUtils ( pdataReprTyCon, pdataReprDataCon, mkVScrut, prDictOfType, prDFunOfTyCon, paDictArgType, paDictOfType, paDFunType, - paMethod, wrapPR, replicatePD, emptyPD, packPD, packByTagPD, + paMethod, wrapPR, replicatePD, emptyPD, packByTagPD, combinePD, liftPD, zipScalars, scalarClosure, @@ -267,10 +267,6 @@ replicatePD len x = liftM (`mkApps` [len,x]) emptyPD :: Type -> VM CoreExpr emptyPD = paMethod emptyPDVar "emptyPD" -packPD :: Type -> CoreExpr -> CoreExpr -> CoreExpr -> VM CoreExpr -packPD ty xs len sel = liftM (`mkApps` [xs, len, sel]) - (paMethod packPDVar "packPD" ty) - packByTagPD :: Type -> CoreExpr -> CoreExpr -> CoreExpr -> CoreExpr -> VM CoreExpr packByTagPD ty xs len tags t |