diff options
Diffstat (limited to 'compiler/GHC')
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index c1142137cc..ce26b0e984 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -148,7 +148,6 @@ module GHC.Driver.Session ( -- ** Manipulating DynFlags addPluginModuleName, defaultDynFlags, -- Settings -> DynFlags - defaultWays, initDynFlags, -- DynFlags -> IO DynFlags defaultFatalMessager, defaultFlushOut, @@ -1173,7 +1172,7 @@ defaultDynFlags mySettings llvmConfig = ignorePackageFlags = [], trustFlags = [], packageEnv = Nothing, - targetWays_ = defaultWays mySettings, + targetWays_ = Set.empty, splitInfo = Nothing, ghcNameVersion = sGhcNameVersion mySettings, @@ -1255,12 +1254,6 @@ defaultDynFlags mySettings llvmConfig = cfgWeights = defaultWeights } -defaultWays :: Settings -> Ways -defaultWays settings = if pc_DYNAMIC_BY_DEFAULT (sPlatformConstants settings) - then Set.singleton WayDyn - else Set.empty - - type FatalMessager = String -> IO () defaultFatalMessager :: FatalMessager @@ -3652,7 +3645,6 @@ defaultFlags settings ++ default_RPath platform - ++ concatMap (wayGeneralFlags platform) (defaultWays settings) ++ validHoleFitDefaults where platform = sTargetPlatform settings @@ -4677,8 +4669,6 @@ compilerInfo dflags ("Uses package keys", "YES"), -- Whether or not we support the @-this-unit-id@ flag ("Uses unit IDs", "YES"), - -- Whether or not GHC compiles libraries as dynamic by default - ("Dynamic by default", showBool $ pc_DYNAMIC_BY_DEFAULT constants), -- Whether or not GHC was compiled using -dynamic ("GHC Dynamic", showBool hostIsDynamic), -- Whether or not GHC was compiled using -prof @@ -4692,7 +4682,6 @@ compilerInfo dflags showBool True = "YES" showBool False = "NO" platform = targetPlatform dflags - constants = platformConstants platform isWindows = platformOS platform == OSMinGW32 expandDirectories :: FilePath -> Maybe FilePath -> String -> String expandDirectories topd mtoold = expandToolDir mtoold . expandTopDir topd |