compiler/GHC/Driver/Config/Cmm/Parser.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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

import GHC.Cmm.Parser
import GHC.Cmm.Parser.Monad

import GHC.Driver.Config.Parser
import GHC.Driver.Config.StgToCmm
import GHC.Driver.Session

import GHC.Utils.Panic

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

initCmmParserConfig :: DynFlags -> CmmParserConfig
initCmmParserConfig dflags = CmmParserConfig
  { cmmpParserOpts = initParserOpts dflags
  , cmmpPDConfig = initPDConfig dflags
  , cmmpStgToCmmConfig = initStgToCmmConfig dflags (panic "initCmmParserConfig: no module")
  }