[project @ 2001-02-11 09:36:00 by qrczak]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgStackery.lhs

diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs
index d97476e..d4fc31f 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
 %
-% $Id: CgStackery.lhs,v 1.12 1999/06/24 13:04:20 simonmar Exp $
+% $Id: CgStackery.lhs,v 1.15 2000/10/24 07:35:00 simonpj Exp $
 %
 \section[CgStackery]{Stack management functions}
 
@@ -23,11 +23,12 @@ import CgMonad
 import AbsCSyn
 
 import CgUsages                ( getRealSp )
-import AbsCUtils       ( mkAbstractCs, mkAbsCStmts, getAmodeRep )
+import AbsCUtils       ( mkAbstractCs, getAmodeRep )
 import PrimRep         ( getPrimRepSize, PrimRep(..), isFollowableRep )
-import CmdLineOpts     ( opt_SccProfilingOn )
+import CmdLineOpts     ( opt_SccProfilingOn, opt_GranMacros )
 import Panic           ( panic )
-import Constants       ( uF_SIZE, sCC_UF_SIZE, sEQ_FRAME_SIZE, sCC_SEQ_FRAME_SIZE )
+import Constants       ( uF_SIZE, sCC_UF_SIZE, gRAN_UF_SIZE, 
+                         sEQ_FRAME_SIZE, sCC_SEQ_FRAME_SIZE, gRAN_SEQ_FRAME_SIZE )
 
 import IOExts          ( trace )
 \end{code}
@@ -225,10 +226,12 @@ getFinalStackHW fcode info_down (MkCgState absC binds usages) = state1
 
 \begin{code}
 updateFrameSize | opt_SccProfilingOn = sCC_UF_SIZE
+               | opt_GranMacros     = trace ("updateFrameSize = " ++ (show gRAN_UF_SIZE))gRAN_UF_SIZE
                | otherwise          = uF_SIZE
 
 seqFrameSize    | opt_SccProfilingOn  = sCC_SEQ_FRAME_SIZE
-               | otherwise           = sEQ_FRAME_SIZE
+               | opt_GranMacros      = gRAN_SEQ_FRAME_SIZE
+               | otherwise           = sEQ_FRAME_SIZE
 \end{code}                     
 
 %************************************************************************