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/VectBuiltIn.hs | |
| parent | 2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba (diff) | |
| download | haskell-fb48c6e77a6e366072f8032382b2d3dbc17fa6a0.tar.gz | |
Remove dead code
Diffstat (limited to 'compiler/vectorise/VectBuiltIn.hs')
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 3 |
1 files changed, 0 insertions, 3 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 |