projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-11-17 14:41:58 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgStackery.lhs
diff --git
a/ghc/compiler/codeGen/CgStackery.lhs
b/ghc/compiler/codeGen/CgStackery.lhs
index
12b96a8
..
4b1b414
100644
(file)
--- 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
%
%
% (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}
%
\section[CgStackery]{Stack management functions}
@@
-10,11
+10,11
@@
Stack-twiddling operations, which are pretty low-down and grimy.
\begin{code}
module CgStackery (
\begin{code}
module CgStackery (
- allocStack, allocPrimStack, allocStackTop, deAllocStackTop,
+ allocPrimStack, allocStackTop, deAllocStackTop,
adjustStackHW, getFinalStackHW,
setStackFrame, getStackFrame,
mkVirtStkOffsets, mkStkAmodes,
adjustStackHW, getFinalStackHW,
setStackFrame, getStackFrame,
mkVirtStkOffsets, mkStkAmodes,
- freeStackSlots, dataStackSlots, addFreeSlots,
+ freeStackSlots, dataStackSlots,
updateFrameSize,
constructSlowCall, slowArgs,
) where
updateFrameSize,
constructSlowCall, slowArgs,
) where
@@
-169,9
+169,6
@@
traceSlowCall amodes and_then
Allocate a virtual offset for something.
\begin{code}
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
allocPrimStack :: Int -> FCode VirtualSpOffset
allocPrimStack size = do
((virt_sp, frame, free_stk, real_sp, hw_sp),h_usage) <- getUsage