main/Constants.lhs

% % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % \section[Constants]{Info about this compilation} \begin{code}

    module Constants (module Constants) where

    import Config

    hiVersion :: Integer
    hiVersion = read (cProjectVersionInt ++ cProjectPatchLevel) :: Integer

    -- All pretty arbitrary:

    mAX_TUPLE_SIZE :: Int
    mAX_TUPLE_SIZE = 62 -- Should really match the number
                        -- of decls in Data.Tuple

    mAX_CONTEXT_REDUCTION_DEPTH :: Int
    mAX_CONTEXT_REDUCTION_DEPTH = 20

    mAX_TYPE_FUNCTION_REDUCTION_DEPTH :: Int
    mAX_TYPE_FUNCTION_REDUCTION_DEPTH = 200
      -- Needs to be much higher than mAX_CONTEXT_REDUCTION_DEPTH; see Trac #5395

    wORD64_SIZE :: Int
    wORD64_SIZE = 8

    tARGET_MAX_CHAR :: Int
    tARGET_MAX_CHAR = 0x10ffff

\end{code}