never executed always true always false

    1 -- | Compile-time settings
    2 module GHC.Settings.Constants where
    3 
    4 import GHC.Prelude
    5 
    6 import GHC.Settings.Config
    7 
    8 hiVersion :: Integer
    9 hiVersion = read (cProjectVersionInt ++ cProjectPatchLevel) :: Integer
   10 
   11 -- All pretty arbitrary:
   12 
   13 mAX_TUPLE_SIZE :: Int
   14 mAX_TUPLE_SIZE = 64 -- Should really match the number
   15                     -- of decls in GHC.Tuple
   16 
   17 mAX_CTUPLE_SIZE :: Int   -- Constraint tuples
   18 mAX_CTUPLE_SIZE = 64     -- Should match the number of decls in GHC.Classes
   19 
   20 mAX_SUM_SIZE :: Int
   21 mAX_SUM_SIZE = 64
   22 
   23 -- | Default maximum depth for both class instance search and type family
   24 -- reduction. See also #5395.
   25 mAX_REDUCTION_DEPTH :: Int
   26 mAX_REDUCTION_DEPTH = 200
   27 
   28 -- | Default maximum constraint-solver iterations
   29 -- Typically there should be very few
   30 mAX_SOLVER_ITERATIONS :: Int
   31 mAX_SOLVER_ITERATIONS = 4
   32 
   33 wORD64_SIZE :: Int
   34 wORD64_SIZE = 8
   35 
   36 -- Size of float in bytes.
   37 fLOAT_SIZE :: Int
   38 fLOAT_SIZE = 4
   39 
   40 -- Size of double in bytes.
   41 dOUBLE_SIZE :: Int
   42 dOUBLE_SIZE = 8
   43 
   44 tARGET_MAX_CHAR :: Int
   45 tARGET_MAX_CHAR = 0x10ffff