    module GHC.Driver.Config.Cmm.Parser
      ( initCmmParserConfig
      ) where

    import GHC.Cmm.Parser.Config

    import GHC.Driver.Config.Parser
    import GHC.Driver.Config.StgToCmm
    import GHC.Driver.DynFlags

    import GHC.Utils.Panic

    initPDConfig :: DynFlags -> PDConfig
    initPDConfig :: DynFlags -> PDConfig
    initPDConfig DynFlags
    dflags = PDConfig
      { pdProfile :: Profile
    pdProfile = DynFlags -> Profile
    targetProfile DynFlags
    dflags
      , pdSanitizeAlignment :: Bool
    pdSanitizeAlignment = GeneralFlag -> DynFlags -> Bool
    gopt GeneralFlag
    Opt_AlignmentSanitisation DynFlags
    dflags
      }

    initCmmParserConfig :: DynFlags -> CmmParserConfig
    initCmmParserConfig :: DynFlags -> CmmParserConfig
    initCmmParserConfig DynFlags
    dflags = CmmParserConfig
      { cmmpParserOpts :: ParserOpts
    cmmpParserOpts = DynFlags -> ParserOpts
    initParserOpts DynFlags
    dflags
      , cmmpPDConfig :: PDConfig
    cmmpPDConfig = DynFlags -> PDConfig
    initPDConfig DynFlags
    dflags
      , cmmpStgToCmmConfig :: StgToCmmConfig
    cmmpStgToCmmConfig = DynFlags -> Module -> StgToCmmConfig
    initStgToCmmConfig DynFlags
    dflags (String -> Module
    forall a. HasCallStack => String -> a
    panic String
    "initCmmParserConfig: no module")
      }