diff options
| author | simonmar <unknown> | 2003-11-17 14:42:47 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-11-17 14:42:47 +0000 |
| commit | 3a49601be4ed68d59ca9a81589e3cb627ae268d7 (patch) | |
| tree | ae3de54c1cad7a6ed7a954ca488f4822a8353d73 | |
| parent | d1854b8826400244bb6f3ca02d3614d34aa65c90 (diff) | |
| download | haskell-3a49601be4ed68d59ca9a81589e3cb627ae268d7.tar.gz | |
[project @ 2003-11-17 14:41:58 by simonmar]
GC dead code.
| -rw-r--r-- | ghc/compiler/codeGen/CgStackery.lhs | 9 | ||||
| -rw-r--r-- | ghc/compiler/rename/RnTypes.lhs | 9 |
2 files changed, 5 insertions, 13 deletions
diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs index 12b96a8cd1..4b1b414064 100644 --- a/ghc/compiler/codeGen/CgStackery.lhs +++ b/ghc/compiler/codeGen/CgStackery.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgStackery.lhs,v 1.23 2002/12/11 15:36:27 simonmar Exp $ +% $Id: CgStackery.lhs,v 1.24 2003/11/17 14:42:47 simonmar Exp $ % \section[CgStackery]{Stack management functions} @@ -10,11 +10,11 @@ Stack-twiddling operations, which are pretty low-down and grimy. \begin{code} module CgStackery ( - allocStack, allocPrimStack, allocStackTop, deAllocStackTop, + allocPrimStack, allocStackTop, deAllocStackTop, adjustStackHW, getFinalStackHW, setStackFrame, getStackFrame, mkVirtStkOffsets, mkStkAmodes, - freeStackSlots, dataStackSlots, addFreeSlots, + freeStackSlots, dataStackSlots, updateFrameSize, constructSlowCall, slowArgs, ) where @@ -169,9 +169,6 @@ traceSlowCall amodes and_then Allocate a virtual offset for something. \begin{code} -allocStack :: FCode VirtualSpOffset -allocStack = allocPrimStack 1 - allocPrimStack :: Int -> FCode VirtualSpOffset allocPrimStack size = do ((virt_sp, frame, free_stk, real_sp, hw_sp),h_usage) <- getUsage diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs index 227cce5356..cc0f0f3b94 100644 --- a/ghc/compiler/rename/RnTypes.lhs +++ b/ghc/compiler/rename/RnTypes.lhs @@ -5,8 +5,8 @@ \begin{code} module RnTypes ( rnHsType, rnContext, - rnHsSigType, rnHsTypeFVs, rnHsSigTypeFVs, - rnPat, rnPats, rnPatsAndThen, -- Here because it's not part + rnHsSigType, rnHsTypeFVs, + rnPat, rnPatsAndThen, -- Here because it's not part rnOverLit, litFVs, -- of any mutual recursion precParseErr, sectionPrecErr, dupFieldErr, patSigErr, checkTupSize ) where @@ -57,11 +57,6 @@ rnHsTypeFVs doc_str ty = rnHsType doc_str ty `thenM` \ ty' -> returnM (ty', extractHsTyNames ty') -rnHsSigTypeFVs :: SDoc -> RdrNameHsType -> RnM (RenamedHsType, FreeVars) -rnHsSigTypeFVs doc_str ty - = rnHsSigType doc_str ty `thenM` \ ty' -> - returnM (ty', extractHsTyNames ty') - rnHsSigType :: SDoc -> RdrNameHsType -> RnM RenamedHsType -- rnHsSigType is used for source-language type signatures, -- which use *implicit* universal quantification. |