X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FConstants.lhs;h=5b52a37bf0c28393f605f1d172bff16573ea7e59;hb=d4e0cee2445d9845bb7b0a0687bad84ff32bac28;hp=eca728d3c3fa24dfb548c56bbc5ef7fc58da404e;hpb=e1db55d8bd07c79bae30f548e597f709dd029155;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index eca728d..5b52a37 100644
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -50,6 +50,7 @@ module Constants (
 	uF_CCS,
 
 	sEQ_FRAME_SIZE,
+	sCC_SEQ_FRAME_SIZE,
 
 	mAX_Vanilla_REG,
 	mAX_Float_REG,
@@ -186,8 +187,11 @@ uF_UPDATEE     = (UF_UPDATEE::Int)
 uF_CCS         = (UF_CCS::Int)
 \end{code}
 
+Seq frame sizes.
+
 \begin{code}
-sEQ_FRAME_SIZE = (SEQ_FRAME_SIZE::Int)
+sEQ_FRAME_SIZE = (NOSCC_SEQ_FRAME_SIZE::Int)
+sCC_SEQ_FRAME_SIZE = (SCC_SEQ_FRAME_SIZE::Int)
 \end{code}
 
 \begin{code}