diff options
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 3 | ||||
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 6 |
2 files changed, 1 insertions, 8 deletions
diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index ce93ad7c65..11538d5ba8 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -125,7 +125,6 @@ data Builtins = Builtins { , liftedApplyVar :: Var , replicatePDVar :: Var , emptyPDVar :: Var - , packPDVar :: Var , packByTagPDVar :: Var , combinePDVars :: Array Int Var , scalarClass :: Class @@ -225,7 +224,6 @@ initBuiltins pkg liftedApplyVar <- externalVar dph_Closure (fsLit "liftedApply") replicatePDVar <- externalVar dph_PArray (fsLit "replicatePD") emptyPDVar <- externalVar dph_PArray (fsLit "emptyPD") - packPDVar <- externalVar dph_PArray (fsLit "packPD") packByTagPDVar <- externalVar dph_PArray (fsLit "packByTagPD") combines <- mapM (externalVar dph_PArray) @@ -276,7 +274,6 @@ initBuiltins pkg , liftedApplyVar = liftedApplyVar , replicatePDVar = replicatePDVar , emptyPDVar = emptyPDVar - , packPDVar = packPDVar , packByTagPDVar = packByTagPDVar , combinePDVars = combinePDVars , scalarClass = scalarClass 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 |