diff options
| author | simonmar <unknown> | 2001-10-03 13:57:42 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-10-03 13:57:42 +0000 |
| commit | b4623557bb3c8bec7232e4e68a8be8cf28fbbda6 (patch) | |
| tree | 8591de15f983aebc70ee52b30190c67eadc9a932 /ghc/compiler/codeGen/CgStackery.lhs | |
| parent | e205a0ce83c11de96656cf0b870eee3955b1c440 (diff) | |
| download | haskell-b4623557bb3c8bec7232e4e68a8be8cf28fbbda6.tar.gz | |
[project @ 2001-10-03 13:57:42 by simonmar]
Tidy up ghc/includes/Constants and related things.
Now all the constants that the compiler needs to know, such as header
size, update frame size, info table size and so on are generated
automatically into a header file, DeriviedConstants.h, by a small C
program in the same way as NativeDefs.h. The C code in the RTS is
expected to use sizeof() directly (it already does).
Also tidied up the constants in MachDeps.h - all the constants
representing the sizes of various types are named SIZEOF_<foo>, to
match the constants defined in config.h. PrelStorable.lhs now doesn't
contain any special knowledge about GHC's conventions as regards the
size of certain types, this is all in MachDeps.h.
Diffstat (limited to 'ghc/compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgStackery.lhs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs index 896cfc7e98..a75b7e7583 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.19 2001/09/12 15:52:40 sewardj Exp $ +% $Id: CgStackery.lhs,v 1.20 2001/10/03 13:57:42 simonmar Exp $ % \section[CgStackery]{Stack management functions} @@ -27,8 +27,9 @@ import AbsCUtils ( mkAbstractCs, getAmodeRep ) import PrimRep ( getPrimRepSize, PrimRep(..), isFollowableRep ) import CmdLineOpts ( opt_SccProfilingOn, opt_GranMacros ) import Panic ( panic ) -import Constants ( uF_SIZE, sCC_UF_SIZE, gRAN_UF_SIZE, - sEQ_FRAME_SIZE, sCC_SEQ_FRAME_SIZE, gRAN_SEQ_FRAME_SIZE ) +import Constants ( uF_SIZE, pROF_UF_SIZE, gRAN_UF_SIZE, + sEQ_FRAME_SIZE, pROF_SEQ_FRAME_SIZE, + gRAN_SEQ_FRAME_SIZE ) import Util ( sortLt ) import IOExts ( trace ) @@ -222,11 +223,11 @@ getFinalStackHW fcode = do \end{code} \begin{code} -updateFrameSize | opt_SccProfilingOn = sCC_UF_SIZE +updateFrameSize | opt_SccProfilingOn = pROF_UF_SIZE | opt_GranMacros = trace ("updateFrameSize = " ++ (show gRAN_UF_SIZE))gRAN_UF_SIZE | otherwise = uF_SIZE -seqFrameSize | opt_SccProfilingOn = sCC_SEQ_FRAME_SIZE +seqFrameSize | opt_SccProfilingOn = pROF_SEQ_FRAME_SIZE | opt_GranMacros = gRAN_SEQ_FRAME_SIZE | otherwise = sEQ_FRAME_SIZE \end{code} |