{-# OPTIONS_GHC -Wno-missing-fields #-}
module GHC.DynFlags
( baseDynFlags,
)
where
import Config
import DynFlags
import Fingerprint
import Platform
fakeSettings :: Settings
fakeSettings :: Settings
fakeSettings =
Settings :: Platform
-> FilePath
-> FilePath
-> Maybe FilePath
-> FilePath
-> FilePath
-> FilePath
-> FilePath
-> [(FilePath, FilePath)]
-> [FilePath]
-> FilePath
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> FilePath
-> (FilePath, [Option])
-> FilePath
-> (FilePath, [Option])
-> (FilePath, [Option])
-> (FilePath, [Option])
-> (FilePath, [Option])
-> (FilePath, [Option])
-> FilePath
-> FilePath
-> FilePath
-> FilePath
-> FilePath
-> (FilePath, [Option])
-> (FilePath, [Option])
-> (FilePath, [Option])
-> FilePath
-> [FilePath]
-> [FilePath]
-> Fingerprint
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> [FilePath]
-> PlatformConstants
-> Settings
Settings
{ sTargetPlatform :: Platform
sTargetPlatform = Platform
platform,
sPlatformConstants :: PlatformConstants
sPlatformConstants = PlatformConstants
platformConstants,
sProjectVersion :: FilePath
sProjectVersion = FilePath
cProjectVersion,
sProgramName :: FilePath
sProgramName = "ghc",
sOpt_P_fingerprint :: Fingerprint
sOpt_P_fingerprint = Fingerprint
fingerprint0,
sPgm_F :: FilePath
sPgm_F = ""
}
where
platform :: Platform
platform =
$WPlatform :: Arch
-> OS -> Int -> Bool -> Bool -> Bool -> Bool -> Bool -> Platform
Platform
{ platformWordSize :: Int
platformWordSize = 8,
platformOS :: OS
platformOS = OS
OSUnknown,
platformUnregisterised :: Bool
platformUnregisterised = Bool
True
}
platformConstants :: PlatformConstants
platformConstants =
PlatformConstants :: ()
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Bool
-> Int
-> Integer
-> Integer
-> Integer
-> PlatformConstants
PlatformConstants {pc_DYNAMIC_BY_DEFAULT :: Bool
pc_DYNAMIC_BY_DEFAULT = Bool
False, pc_WORD_SIZE :: Int
pc_WORD_SIZE = 8}
fakeLlvmConfig :: (LlvmTargets, LlvmPasses)
fakeLlvmConfig :: (LlvmTargets, LlvmPasses)
fakeLlvmConfig = ([], [])
baseDynFlags :: DynFlags
baseDynFlags :: DynFlags
baseDynFlags = Settings -> (LlvmTargets, LlvmPasses) -> DynFlags
defaultDynFlags Settings
fakeSettings (LlvmTargets, LlvmPasses)
fakeLlvmConfig