compiler/GHC/Cmm/Parser/Config.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

module GHC.Cmm.Parser.Config (
    PDConfig(..)
  , CmmParserConfig(..)
) where

import GHC.Prelude

import GHC.Platform.Profile

import GHC.StgToCmm.Config

import GHC.Parser.Lexer


data PDConfig = PDConfig
  { pdProfile :: !Profile
  , pdSanitizeAlignment :: !Bool -- ^ Insert alignment checks (cf @-falignment-sanitisation@)
  }

data CmmParserConfig = CmmParserConfig
  { cmmpParserOpts :: !ParserOpts
  , cmmpPDConfig :: !PDConfig
  , cmmpStgToCmmConfig :: !StgToCmmConfig
  }