From 1389ff565d9a41d21eb7e4fc6e2b23d0df08de24 Mon Sep 17 00:00:00 2001 From: Austin Seipp Date: Wed, 3 Dec 2014 12:41:58 -0600 Subject: compiler: de-lhs main/ Signed-off-by: Austin Seipp --- compiler/main/Constants.hs | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 compiler/main/Constants.hs (limited to 'compiler/main/Constants.hs') diff --git a/compiler/main/Constants.hs b/compiler/main/Constants.hs new file mode 100644 index 0000000000..0054888df3 --- /dev/null +++ b/compiler/main/Constants.hs @@ -0,0 +1,32 @@ +{- +(c) The GRASP/AQUA Project, Glasgow University, 1992-1998 + +\section[Constants]{Info about this compilation} +-} + +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 = 100 + -- Trac #5395 reports at least one library that needs depth 37 here + +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 -- cgit v1.2.1