[project @ 1999-01-26 16:16:19 by simonm]

[ghc-hetmet.git] / ghc / compiler / main / Constants.lhs

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index c0bf487..d30a976 100644 (file)
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -18,6 +18,9 @@ module Constants (
        mAX_CONTEXT_REDUCTION_DEPTH,
        mAX_TUPLE_SIZE,
 
+       mAX_SPEC_THUNK_SIZE,
+       mAX_SPEC_FUN_SIZE,
+       mAX_SPEC_CONSTR_SIZE,
        mAX_SPEC_SELECTEE_SIZE,
        mAX_SPEC_AP_SIZE,
 
@@ -107,6 +110,11 @@ uNFOLDING_KEENESS_FACTOR      = ( 2.0 :: Float)
 
 \begin{code}
 
+-- specialised fun/thunk/constr closure types
+mAX_SPEC_THUNK_SIZE   = (MAX_SPEC_THUNK_SIZE :: Int)
+mAX_SPEC_FUN_SIZE     = (MAX_SPEC_FUN_SIZE :: Int)
+mAX_SPEC_CONSTR_SIZE  = (MAX_SPEC_CONSTR_SIZE :: Int)
+
 -- pre-compiled thunk types
 mAX_SPEC_SELECTEE_SIZE = (MAX_SPEC_SELECTEE_SIZE :: Int)
 mAX_SPEC_AP_SIZE        = (MAX_SPEC_AP_SIZE :: Int)