hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Drop ghc-9.0 support (relegated to a branch)

mxxun/ghc-9.2
mrkun 2022-01-28 21:02:41 +03:00
parent af2781b672
commit 0046199306
2 changed files with 137 additions and 179 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
brittany.cabal
View File

@ -39,9 +39,9 @@ flag pedantic
common library common library
build-depends: build-depends:
, aeson ^>= 2.0.1 , aeson ^>= 2.0.1
, base >= 4.15.0 && < 4.17 , base ^>= 4.16.0
, butcher ^>= 1.3.3 , butcher ^>= 1.3.3
, bytestring >= 0.10.12 && < 0.12 , bytestring ^>= 0.11
, cmdargs ^>= 0.10.21 , cmdargs ^>= 0.10.21
, containers ^>= 0.6.4 , containers ^>= 0.6.4
, czipwith ^>= 1.0.1 , czipwith ^>= 1.0.1
@ -50,10 +50,10 @@ common library
, directory ^>= 1.3.6 , directory ^>= 1.3.6
, extra ^>= 1.7.10 , extra ^>= 1.7.10
, filepath ^>= 1.4.2 , filepath ^>= 1.4.2
, ghc >= 9.0.1 && < 9.4 , ghc ^>= 9.2.1
, ghc-boot >= 9.0.1 && < 9.4 , ghc-boot ^>= 9.2.1
, ghc-boot-th >= 9.0.1 && < 9.4 , ghc-boot-th ^>= 9.2.1
, ghc-exactprint >= 0.6.4 && < 2 , ghc-exactprint ^>= 1.4
, monad-memo ^>= 0.5.3 , monad-memo ^>= 0.5.3
, mtl ^>= 2.2.2 , mtl ^>= 2.2.2
, multistate ^>= 0.8.0 , multistate ^>= 0.8.0

304
source/library/Language/Haskell/Brittany/Internal/ParseModule.hs
View File

@ -1,4 +1,3 @@
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -Wno-implicit-prelude #-} {-# OPTIONS_GHC -Wno-implicit-prelude #-}
module Language.Haskell.Brittany.Internal.ParseModule where module Language.Haskell.Brittany.Internal.ParseModule where
@ -14,17 +13,11 @@ import qualified GHC.Driver.Session
import qualified GHC.Parser.Header import qualified GHC.Parser.Header
import qualified GHC.Platform import qualified GHC.Platform
import qualified GHC.Settings import qualified GHC.Settings
#if MIN_VERSION_ghc(9,2,1)
import qualified GHC.Types.SafeHaskell import qualified GHC.Types.SafeHaskell
import qualified GHC.Platform as PlatformSettings
#else
import qualified GHC.Settings as PlatformSettings
#endif
import qualified GHC.Types.SrcLoc import qualified GHC.Types.SrcLoc
import qualified GHC.Utils.Error import qualified GHC.Utils.Error
import qualified GHC.Utils.Fingerprint import qualified GHC.Utils.Fingerprint
import qualified Language.Haskell.GHC.ExactPrint.Parsers as ExactPrint import qualified Language.Haskell.GHC.ExactPrint.Parsers as ExactPrint
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint
-- | Parses a Haskell module. Although this nominally requires IO, it is -- | Parses a Haskell module. Although this nominally requires IO, it is
-- morally pure. It should have no observable effects. -- morally pure. It should have no observable effects.
@ -34,11 +27,7 @@ parseModule
-> FilePath -> FilePath
-> (GHC.Driver.Session.DynFlags -> io (Either String a)) -> (GHC.Driver.Session.DynFlags -> io (Either String a))
-> String -> String
#if MIN_VERSION_ghc(9,2,1)
-> io (Either String (GHC.ParsedSource, a)) -> io (Either String (GHC.ParsedSource, a))
#else
-> io (Either String (ExactPrint.Anns, GHC.ParsedSource, a))
#endif
parseModule arguments1 filePath checkDynFlags string = Except.runExceptT $ do parseModule arguments1 filePath checkDynFlags string = Except.runExceptT $ do
let let
dynFlags1 = GHC.Driver.Session.gopt_set dynFlags1 = GHC.Driver.Session.gopt_set
@ -47,12 +36,7 @@ parseModule arguments1 filePath checkDynFlags string = Except.runExceptT $ do
-- Neither passing in @"-XUnsafe"@ as a command line argument nor having -- Neither passing in @"-XUnsafe"@ as a command line argument nor having
-- @{-# LANGUAGE Unsafe #-}@ in the source file seem to help. -- @{-# LANGUAGE Unsafe #-}@ in the source file seem to help.
initialDynFlags initialDynFlags
{ GHC.Driver.Session.safeHaskell = { GHC.Driver.Session.safeHaskell = GHC.Types.SafeHaskell.Sf_Unsafe
#if MIN_VERSION_ghc(9,2,1)
GHC.Types.SafeHaskell.Sf_Unsafe
#else
GHC.Driver.Session.Sf_Unsafe
#endif
} }
GHC.Driver.Session.Opt_KeepRawTokenStream GHC.Driver.Session.Opt_KeepRawTokenStream
(dynFlags2, leftovers1, _) <- (dynFlags2, leftovers1, _) <-
@ -72,11 +56,7 @@ parseModule arguments1 filePath checkDynFlags string = Except.runExceptT $ do
ExactPrint.parseModuleFromStringInternal dynFlags3 filePath string ExactPrint.parseModuleFromStringInternal dynFlags3 filePath string
case parseResult of case parseResult of
Left errorMessages -> handleErrorMessages errorMessages Left errorMessages -> handleErrorMessages errorMessages
#if MIN_VERSION_ghc(9,2,1)
Right parsedSource -> pure (parsedSource, dynFlagsResult) Right parsedSource -> pure (parsedSource, dynFlagsResult)
#else
Right (anns, parsedSource) -> pure (anns, parsedSource, dynFlagsResult)
#endif
handleLeftovers handleLeftovers
:: Monad m => [GHC.Types.SrcLoc.Located String] -> Except.ExceptT String m () :: Monad m => [GHC.Types.SrcLoc.Located String] -> Except.ExceptT String m ()
@ -99,9 +79,6 @@ initialSettings = GHC.Driver.Session.Settings
, GHC.Driver.Session.sTargetPlatform = initialTargetPlatform , GHC.Driver.Session.sTargetPlatform = initialTargetPlatform
, GHC.Driver.Session.sToolSettings = initialToolSettings , GHC.Driver.Session.sToolSettings = initialToolSettings
, GHC.Driver.Session.sPlatformMisc = initialPlatformMisc , GHC.Driver.Session.sPlatformMisc = initialPlatformMisc
#if !MIN_VERSION_ghc(9,2,1)
, GHC.Driver.Session.sPlatformConstants = initialPlatformConstants
#endif
, GHC.Driver.Session.sRawSettings = [] , GHC.Driver.Session.sRawSettings = []
} }
@ -125,10 +102,6 @@ initialPlatformMisc :: GHC.Driver.Session.PlatformMisc
initialPlatformMisc = GHC.Driver.Session.PlatformMisc initialPlatformMisc = GHC.Driver.Session.PlatformMisc
{ GHC.Driver.Session.platformMisc_ghcRTSWays = "" { GHC.Driver.Session.platformMisc_ghcRTSWays = ""
, GHC.Driver.Session.platformMisc_ghcRtsWithLibdw = False , GHC.Driver.Session.platformMisc_ghcRtsWithLibdw = False
#if !MIN_VERSION_ghc(9,2,1)
, GHC.Driver.Session.platformMisc_ghcThreaded = False
, GHC.Driver.Session.platformMisc_ghcDebugged = False
#endif
, GHC.Driver.Session.platformMisc_ghcWithInterpreter = False , GHC.Driver.Session.platformMisc_ghcWithInterpreter = False
, GHC.Driver.Session.platformMisc_ghcWithSMP = False , GHC.Driver.Session.platformMisc_ghcWithSMP = False
, GHC.Driver.Session.platformMisc_libFFI = False , GHC.Driver.Session.platformMisc_libFFI = False
@ -142,154 +115,143 @@ initialLlvmConfig = GHC.Driver.Session.LlvmConfig
, GHC.Driver.Session.llvmTargets = [] , GHC.Driver.Session.llvmTargets = []
} }
initialPlatformConstants :: PlatformSettings.PlatformConstants initialPlatformConstants :: GHC.Platform.PlatformConstants
initialPlatformConstants = PlatformSettings.PlatformConstants initialPlatformConstants = GHC.Platform.PlatformConstants
{ PlatformSettings.pc_AP_STACK_SPLIM = 0 { GHC.Platform.pc_AP_STACK_SPLIM = 0
, PlatformSettings.pc_BITMAP_BITS_SHIFT = 0 , GHC.Platform.pc_BITMAP_BITS_SHIFT = 0
, PlatformSettings.pc_BLOCK_SIZE = 0 , GHC.Platform.pc_BLOCK_SIZE = 0
, PlatformSettings.pc_BLOCKS_PER_MBLOCK = 0 , GHC.Platform.pc_BLOCKS_PER_MBLOCK = 0
, PlatformSettings.pc_CINT_SIZE = 0 , GHC.Platform.pc_CINT_SIZE = 0
, PlatformSettings.pc_CLONG_LONG_SIZE = 0 , GHC.Platform.pc_CLONG_LONG_SIZE = 0
, PlatformSettings.pc_CLONG_SIZE = 0 , GHC.Platform.pc_CLONG_SIZE = 0
, PlatformSettings.pc_CONTROL_GROUP_CONST_291 = 0 , GHC.Platform.pc_CONTROL_GROUP_CONST_291 = 0
#if !MIN_VERSION_ghc(9,2,1) , GHC.Platform.pc_ILDV_CREATE_MASK = 0
, PlatformSettings.pc_DYNAMIC_BY_DEFAULT = False , GHC.Platform.pc_ILDV_STATE_CREATE = 0
#endif , GHC.Platform.pc_ILDV_STATE_USE = 0
, PlatformSettings.pc_ILDV_CREATE_MASK = 0 , GHC.Platform.pc_LDV_SHIFT = 0
, PlatformSettings.pc_ILDV_STATE_CREATE = 0 , GHC.Platform.pc_MAX_CHARLIKE = 0
, PlatformSettings.pc_ILDV_STATE_USE = 0 , GHC.Platform.pc_MAX_Double_REG = 0
, PlatformSettings.pc_LDV_SHIFT = 0 , GHC.Platform.pc_MAX_Float_REG = 0
, PlatformSettings.pc_MAX_CHARLIKE = 0 , GHC.Platform.pc_MAX_INTLIKE = 0
, PlatformSettings.pc_MAX_Double_REG = 0 , GHC.Platform.pc_MAX_Long_REG = 0
, PlatformSettings.pc_MAX_Float_REG = 0 , GHC.Platform.pc_MAX_Real_Double_REG = 0
, PlatformSettings.pc_MAX_INTLIKE = 0 , GHC.Platform.pc_MAX_Real_Float_REG = 0
, PlatformSettings.pc_MAX_Long_REG = 0 , GHC.Platform.pc_MAX_Real_Long_REG = 0
, PlatformSettings.pc_MAX_Real_Double_REG = 0 , GHC.Platform.pc_MAX_Real_Vanilla_REG = 0
, PlatformSettings.pc_MAX_Real_Float_REG = 0 , GHC.Platform.pc_MAX_Real_XMM_REG = 0
, PlatformSettings.pc_MAX_Real_Long_REG = 0 , GHC.Platform.pc_MAX_SPEC_AP_SIZE = 0
, PlatformSettings.pc_MAX_Real_Vanilla_REG = 0 , GHC.Platform.pc_MAX_SPEC_SELECTEE_SIZE = 0
, PlatformSettings.pc_MAX_Real_XMM_REG = 0 , GHC.Platform.pc_MAX_Vanilla_REG = 0
, PlatformSettings.pc_MAX_SPEC_AP_SIZE = 0 , GHC.Platform.pc_MAX_XMM_REG = 0
, PlatformSettings.pc_MAX_SPEC_SELECTEE_SIZE = 0 , GHC.Platform.pc_MIN_CHARLIKE = 0
, PlatformSettings.pc_MAX_Vanilla_REG = 0 , GHC.Platform.pc_MIN_INTLIKE = 0
, PlatformSettings.pc_MAX_XMM_REG = 0 , GHC.Platform.pc_MIN_PAYLOAD_SIZE = 0
, PlatformSettings.pc_MIN_CHARLIKE = 0 , GHC.Platform.pc_MUT_ARR_PTRS_CARD_BITS = 0
, PlatformSettings.pc_MIN_INTLIKE = 0 , GHC.Platform.pc_OFFSET_bdescr_blocks = 0
, PlatformSettings.pc_MIN_PAYLOAD_SIZE = 0 , GHC.Platform.pc_OFFSET_bdescr_flags = 0
, PlatformSettings.pc_MUT_ARR_PTRS_CARD_BITS = 0 , GHC.Platform.pc_OFFSET_bdescr_free = 0
, PlatformSettings.pc_OFFSET_bdescr_blocks = 0 , GHC.Platform.pc_OFFSET_bdescr_start = 0
, PlatformSettings.pc_OFFSET_bdescr_flags = 0 , GHC.Platform.pc_OFFSET_Capability_r = 0
, PlatformSettings.pc_OFFSET_bdescr_free = 0 , GHC.Platform.pc_OFFSET_CostCentreStack_mem_alloc = 0
, PlatformSettings.pc_OFFSET_bdescr_start = 0 , GHC.Platform.pc_OFFSET_CostCentreStack_scc_count = 0
, PlatformSettings.pc_OFFSET_Capability_r = 0 , GHC.Platform.pc_OFFSET_StgArrBytes_bytes = 0
, PlatformSettings.pc_OFFSET_CostCentreStack_mem_alloc = 0 , GHC.Platform.pc_OFFSET_stgEagerBlackholeInfo = 0
, PlatformSettings.pc_OFFSET_CostCentreStack_scc_count = 0 , GHC.Platform.pc_OFFSET_StgEntCounter_allocd = 0
, PlatformSettings.pc_OFFSET_StgArrBytes_bytes = 0 , GHC.Platform.pc_OFFSET_StgEntCounter_allocs = 0
, PlatformSettings.pc_OFFSET_stgEagerBlackholeInfo = 0 , GHC.Platform.pc_OFFSET_StgEntCounter_entry_count = 0
, PlatformSettings.pc_OFFSET_StgEntCounter_allocd = 0 , GHC.Platform.pc_OFFSET_StgEntCounter_link = 0
, PlatformSettings.pc_OFFSET_StgEntCounter_allocs = 0 , GHC.Platform.pc_OFFSET_StgEntCounter_registeredp = 0
, PlatformSettings.pc_OFFSET_StgEntCounter_entry_count = 0 , GHC.Platform.pc_OFFSET_StgFunInfoExtraFwd_arity = 0
, PlatformSettings.pc_OFFSET_StgEntCounter_link = 0 , GHC.Platform.pc_OFFSET_StgFunInfoExtraRev_arity = 0
, PlatformSettings.pc_OFFSET_StgEntCounter_registeredp = 0 , GHC.Platform.pc_OFFSET_stgGCEnter1 = 0
, PlatformSettings.pc_OFFSET_StgFunInfoExtraFwd_arity = 0 , GHC.Platform.pc_OFFSET_stgGCFun = 0
, PlatformSettings.pc_OFFSET_StgFunInfoExtraRev_arity = 0 , GHC.Platform.pc_OFFSET_StgHeader_ccs = 0
, PlatformSettings.pc_OFFSET_stgGCEnter1 = 0 , GHC.Platform.pc_OFFSET_StgHeader_ldvw = 0
, PlatformSettings.pc_OFFSET_stgGCFun = 0 , GHC.Platform.pc_OFFSET_StgMutArrPtrs_ptrs = 0
, PlatformSettings.pc_OFFSET_StgHeader_ccs = 0 , GHC.Platform.pc_OFFSET_StgMutArrPtrs_size = 0
, PlatformSettings.pc_OFFSET_StgHeader_ldvw = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rCCCS = 0
, PlatformSettings.pc_OFFSET_StgMutArrPtrs_ptrs = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rCurrentNursery = 0
, PlatformSettings.pc_OFFSET_StgMutArrPtrs_size = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rCurrentTSO = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rCCCS = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rCurrentNursery = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rCurrentTSO = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rD6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD4 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD5 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rD6 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rF6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF4 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rHp = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF5 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rHpAlloc = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rF6 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rHpLim = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rHp = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rL1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rHpAlloc = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rHpLim = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR10 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rL1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR10 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR4 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR7 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR5 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR8 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR6 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rR9 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR7 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rSp = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR8 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rSpLim = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rR9 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rSp = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rSpLim = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rXMM6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM4 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM5 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rXMM6 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rYMM6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM4 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM1 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM5 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM2 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rYMM6 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM3 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM1 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM4 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM2 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM5 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM3 = 0 , GHC.Platform.pc_OFFSET_StgRegTable_rZMM6 = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM4 = 0 , GHC.Platform.pc_OFFSET_StgSmallMutArrPtrs_ptrs = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM5 = 0 , GHC.Platform.pc_OFFSET_StgStack_sp = 0
, PlatformSettings.pc_OFFSET_StgRegTable_rZMM6 = 0 , GHC.Platform.pc_OFFSET_StgStack_stack = 0
, PlatformSettings.pc_OFFSET_StgSmallMutArrPtrs_ptrs = 0 , GHC.Platform.pc_OFFSET_StgTSO_alloc_limit = 0
, PlatformSettings.pc_OFFSET_StgStack_sp = 0 , GHC.Platform.pc_OFFSET_StgTSO_cccs = 0
, PlatformSettings.pc_OFFSET_StgStack_stack = 0 , GHC.Platform.pc_OFFSET_StgTSO_stackobj = 0
, PlatformSettings.pc_OFFSET_StgTSO_alloc_limit = 0 , GHC.Platform.pc_OFFSET_StgUpdateFrame_updatee = 0
, PlatformSettings.pc_OFFSET_StgTSO_cccs = 0 , GHC.Platform.pc_PROF_HDR_SIZE = 0
, PlatformSettings.pc_OFFSET_StgTSO_stackobj = 0 , GHC.Platform.pc_REP_CostCentreStack_mem_alloc = 0
, PlatformSettings.pc_OFFSET_StgUpdateFrame_updatee = 0 , GHC.Platform.pc_REP_CostCentreStack_scc_count = 0
, PlatformSettings.pc_PROF_HDR_SIZE = 0 , GHC.Platform.pc_REP_StgEntCounter_allocd = 0
, PlatformSettings.pc_REP_CostCentreStack_mem_alloc = 0 , GHC.Platform.pc_REP_StgEntCounter_allocs = 0
, PlatformSettings.pc_REP_CostCentreStack_scc_count = 0 , GHC.Platform.pc_REP_StgFunInfoExtraFwd_arity = 0
, PlatformSettings.pc_REP_StgEntCounter_allocd = 0 , GHC.Platform.pc_REP_StgFunInfoExtraRev_arity = 0
, PlatformSettings.pc_REP_StgEntCounter_allocs = 0 , GHC.Platform.pc_RESERVED_C_STACK_BYTES = 0
, PlatformSettings.pc_REP_StgFunInfoExtraFwd_arity = 0 , GHC.Platform.pc_RESERVED_STACK_WORDS = 0
, PlatformSettings.pc_REP_StgFunInfoExtraRev_arity = 0 , GHC.Platform.pc_SIZEOF_CostCentreStack = 0
, PlatformSettings.pc_RESERVED_C_STACK_BYTES = 0 , GHC.Platform.pc_SIZEOF_StgArrBytes_NoHdr = 0
, PlatformSettings.pc_RESERVED_STACK_WORDS = 0 , GHC.Platform.pc_SIZEOF_StgFunInfoExtraRev = 0
, PlatformSettings.pc_SIZEOF_CostCentreStack = 0 , GHC.Platform.pc_SIZEOF_StgMutArrPtrs_NoHdr = 0
, PlatformSettings.pc_SIZEOF_StgArrBytes_NoHdr = 0 , GHC.Platform.pc_SIZEOF_StgSmallMutArrPtrs_NoHdr = 0
, PlatformSettings.pc_SIZEOF_StgFunInfoExtraRev = 0 , GHC.Platform.pc_SIZEOF_StgSMPThunkHeader = 0
, PlatformSettings.pc_SIZEOF_StgMutArrPtrs_NoHdr = 0 , GHC.Platform.pc_SIZEOF_StgUpdateFrame_NoHdr = 0
, PlatformSettings.pc_SIZEOF_StgSmallMutArrPtrs_NoHdr = 0 , GHC.Platform.pc_STD_HDR_SIZE = 0
, PlatformSettings.pc_SIZEOF_StgSMPThunkHeader = 0 , GHC.Platform.pc_TAG_BITS = 0
, PlatformSettings.pc_SIZEOF_StgUpdateFrame_NoHdr = 0 , GHC.Platform.pc_TICKY_BIN_COUNT = 0
, PlatformSettings.pc_STD_HDR_SIZE = 0 , GHC.Platform.pc_WORD_SIZE = 0
, PlatformSettings.pc_TAG_BITS = 0
, PlatformSettings.pc_TICKY_BIN_COUNT = 0
, PlatformSettings.pc_WORD_SIZE = 0
} }
#if MIN_VERSION_ghc(9,2,1)
initialPlatformArchOS :: GHC.Platform.ArchOS initialPlatformArchOS :: GHC.Platform.ArchOS
initialPlatformArchOS = GHC.Platform.ArchOS initialPlatformArchOS = GHC.Platform.ArchOS
{ GHC.Platform.archOS_arch = GHC.Platform.ArchX86_64 { GHC.Platform.archOS_arch = GHC.Platform.ArchX86_64
, GHC.Platform.archOS_OS = GHC.Platform.OSLinux , GHC.Platform.archOS_OS = GHC.Platform.OSLinux
} }
#else
initialPlatformMini :: GHC.Settings.PlatformMini
initialPlatformMini = GHC.Settings.PlatformMini
{ GHC.Settings.platformMini_arch = GHC.Platform.ArchX86_64
, GHC.Settings.platformMini_os = GHC.Platform.OSLinux
}
#endif
initialTargetPlatform :: GHC.Settings.Platform initialTargetPlatform :: GHC.Settings.Platform
initialTargetPlatform = GHC.Settings.Platform initialTargetPlatform = GHC.Settings.Platform
@ -299,12 +261,8 @@ initialTargetPlatform = GHC.Settings.Platform
, GHC.Settings.platformHasSubsectionsViaSymbols = False , GHC.Settings.platformHasSubsectionsViaSymbols = False
, GHC.Settings.platformIsCrossCompiling = False , GHC.Settings.platformIsCrossCompiling = False
, GHC.Settings.platformLeadingUnderscore = False , GHC.Settings.platformLeadingUnderscore = False
#if MIN_VERSION_ghc(9,2,1)
, GHC.Settings.platformArchOS = initialPlatformArchOS , GHC.Settings.platformArchOS = initialPlatformArchOS
, GHC.Settings.platform_constants = Just initialPlatformConstants , GHC.Settings.platform_constants = Just initialPlatformConstants
#else
, GHC.Settings.platformMini = initialPlatformMini
#endif
, GHC.Settings.platformTablesNextToCode = False , GHC.Settings.platformTablesNextToCode = False
, GHC.Settings.platformUnregisterised = False , GHC.Settings.platformUnregisterised = False
, GHC.Settings.platformWordSize = GHC.Platform.PW8 , GHC.Settings.platformWordSize = GHC.Platform.PW8