Increase -fcontext-stack=N default to 100
[ghc.git] / compiler / main / Constants.lhs
1 %
2 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
3 %
4 \section[Constants]{Info about this compilation}
5
6 \begin{code}
7 module Constants (module Constants) where
8
9 import Config
10
11 hiVersion :: Integer
12 hiVersion = read (cProjectVersionInt ++ cProjectPatchLevel) :: Integer
13
14 -- All pretty arbitrary:
15
16 mAX_TUPLE_SIZE :: Int
17 mAX_TUPLE_SIZE = 62 -- Should really match the number
18                     -- of decls in Data.Tuple
19
20 mAX_CONTEXT_REDUCTION_DEPTH :: Int
21 mAX_CONTEXT_REDUCTION_DEPTH = 100
22   -- Trac #5395 reports at least one library that needs depth 37 here
23
24 mAX_TYPE_FUNCTION_REDUCTION_DEPTH :: Int
25 mAX_TYPE_FUNCTION_REDUCTION_DEPTH = 200
26   -- Needs to be much higher than mAX_CONTEXT_REDUCTION_DEPTH; see Trac #5395
27
28 wORD64_SIZE :: Int
29 wORD64_SIZE = 8
30
31 tARGET_MAX_CHAR :: Int
32 tARGET_MAX_CHAR = 0x10ffff
33 \end{code}