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 /ghc/compiler/codeGen/CgStackery.lhs | |
| parent | d1854b8826400244bb6f3ca02d3614d34aa65c90 (diff) | |
| download | haskell-3a49601be4ed68d59ca9a81589e3cb627ae268d7.tar.gz | |
[project @ 2003-11-17 14:41:58 by simonmar]
GC dead code.
Diffstat (limited to 'ghc/compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgStackery.lhs | 9 |
1 files changed, 3 insertions, 6 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 |