blob: 1413bd5edc0561cbef984b43133114e9f4772ed0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TypeFamilies #-}
-- | Configuration options for Lift the lambda lifter.
module GHC.Stg.Lift.Config (
StgLiftConfig (..),
) where
import GHC.Prelude
import GHC.Platform.Profile
data StgLiftConfig = StgLiftConfig
{ c_targetProfile :: !Profile
, c_liftLamsRecArgs :: !(Maybe Int)
-- ^ Maximum number of arguments after lambda lifting a recursive function.
, c_liftLamsNonRecArgs :: !(Maybe Int)
-- ^ Maximum number of arguments after lambda lifting non-recursive function.
, c_liftLamsKnown :: !Bool
-- ^ Lambda lift even when this turns a known call into an unknown call.
}
deriving (Show, Read, Eq, Ord)
|
