dnl We know that `clang` supports `--target` and it is necessary to pass it

 dnl lest we see #25793.

     LlvmAsFlags="--target=$LlvmTarget"

 fi

 AC_SUBST([LlvmAsFlags])

 , tgtRanlib = Nothing

 , tgtNm = Nm {nmProgram = Program {prgPath = "", prgFlags = []}}

 , tgtMergeObjs = Just (MergeObjs {mergeObjsProgram = Program {prgPath = "@LD_STAGE0@", prgFlags = ["-r"]}, mergeObjsSupportsResponseFiles = False})

 , tgtWindres = Nothing

 }

 , tgtRanlib = Just (Ranlib {ranlibProgram = Program {prgPath = "@RanlibCmd@", prgFlags = []}})

 , tgtNm = Nm {nmProgram = Program {prgPath = "@NmCmd@", prgFlags = []}}

 , tgtMergeObjs = @MergeObjsCmdMaybe@

 , tgtWindres = @WindresCmdMaybeProg@

 }

 # generated by configure, to generated being by the build system. Many of these

 # might become redundant.

 # See Note [tooldir: How GHC finds mingw on Windows]

 settings-use-distro-mingw = @SettingsUseDistroMINGW@

 target-has-libm = @TargetHasLibm@

 import Context

 import Oracles.Flag

 import Oracles.Setting (setting, Setting(..))

 import Packages

 import GHC.IO.Encoding (getFileSystemEncoding)

         Ghc _ st -> do

             root <- buildRoot

             unlitPath  <- builderPath Unlit

             libffi_adjustors <- useLibffiForAdjustors

             use_system_ffi <- flag UseSystemFfi

     configFile,

     -- * Settings

     Setting (..), setting, getSetting,

     -- * Helpers

     ghcCanonVersion, cmdLineLengthLimit, targetSupportsRPaths, topDirectory,

              | BourneShell

              | EmsdkVersion

 -- | Look up the value of a 'Setting' in @cfg/system.config@, tracking the

 -- result.

 setting :: Setting -> Action String

     BourneShell        -> "bourne-shell"

     EmsdkVersion       -> "emsdk-version"

 -- | An expression that looks up the value of a 'Setting' in @cfg/system.config@,

 -- tracking the result.

 getSetting :: Setting -> Expr c b String

     , interpolateSetting "LlvmMinVersion" LlvmMinVersion

     , interpolateVar "LlvmTarget" $ getTarget tgtLlvmTarget

     , interpolateSetting "ProjectVersion" ProjectVersion

     , interpolateVar "TablesNextToCode" $ yesNo <$> getTarget tgtTablesNextToCode

     , interpolateVar "TargetHasLibm" $ lookupSystemConfig "target-has-libm"

     , interpolateVar "TargetPlatform" $ getTarget targetPlatformTriple

         , ("ar flags",            queryTarget arFlags)

         , ("ar supports at file", queryTarget arSupportsAtFile')

         , ("ar supports -L",      queryTarget arSupportsDashL')

         , ("windres command", queryTarget (maybe "/bin/false" prgPath . tgtWindres)) -- TODO: /bin/false is not available on many distributions by default, but we keep it as it were before the ghc-toolchain patch. Fix-me.

         , ("unlit command", ("$topdir/../bin/" <>) <$> expr (programName (ctx { Context.package = unlit })))

         , ("cross compiling", expr $ yesNo <$> flag CrossCompiling)

         , ("target has libm", expr $  lookupSystemConfig "target-has-libm")

         , ("Unregisterised", queryTarget (yesNo . tgtUnregisterised))

         , ("LLVM target", queryTarget tgtLlvmTarget)

         , ("target RTS linker only supports shared libraries", expr $ yesNo <$> targetRTSLinkerOnlySupportsSharedLibs)

         , ("Use interpreter", expr $ yesNo <$> ghcWithInterpreter (predStage stage))

     linkSupportsFilelist        = yesNo . ccLinkSupportsFilelist . tgtCCompilerLink

     linkSupportsCompactUnwind   = yesNo . ccLinkSupportsCompactUnwind . tgtCCompilerLink

     linkIsGnu                   = yesNo . ccLinkIsGnu . tgtCCompilerLink

     arPath  = prgPath . arMkArchive . tgtAr

     arFlags = escapeArgs . prgFlags . arMkArchive . tgtAr

     arSupportsAtFile' = yesNo . arSupportsAtFile . tgtAr

     arSupportsDashL' = yesNo . arSupportsDashL . tgtAr

     ranlibPath  = maybe "" (prgPath . ranlibProgram) . tgtRanlib

     mergeObjsSupportsResponseFiles' = maybe "NO" (yesNo . mergeObjsSupportsResponseFiles) . tgtMergeObjs

     platform    <- queryTargetTarget targetPlatformTriple

     wordsize    <- show @Int . (*8) <$> queryTargetTarget (wordSize2Bytes . tgtWordSize)

     top         <- topDirectory

     fi

     # Mac-only tools

     SettingsOtoolCommand="$OtoolCmd"

     SettingsInstallNameToolCommand="$InstallNameToolCmd"

     SettingsCCompilerSupportsNoPie="$CONF_GCC_SUPPORTS_NO_PIE"

     echo "--merge-objs=$MergeObjsCmd" >> acargs

     echo "--readelf=$READELF" >> acargs

     echo "--windres=$WindresCmd" >> acargs

     if test -n "$USER_LD"; then

       echo "--ld=$USER_LD" >> acargs

 # This toolchain will additionally be used to validate the one generated by

 # ghc-toolchain. See Note [ghc-toolchain consistency checking].

 # PREP_MAYBE_SIMPLE_PROGRAM

 # =========================

 #

     AC_SUBST([$1MaybeProg])

 ])

 # PREP_MAYBE_STRING

 # =========================

 #

     AC_SUBST([Not$1Bool])

 ])

 # Eventually: PREP_BUILD_TARGET_FILE, PREP_HOST_TARGET_FILE, PREP_TARGET_TARGET_FILE

 # Prepares required substitutions to generate the target file

 AC_DEFUN([PREP_TARGET_FILE],[

     PREP_LIST([JavaScriptCPPArgs])

     PREP_LIST([CmmCPPArgs])

     PREP_LIST([CmmCPPArgs_STAGE0])

     PREP_MAYBE_SIMPLE_PROGRAM([WindresCmd])

     PREP_MAYBE_STRING([TargetVendor_CPP])

     PREP_MAYBE_STRING([HostVendor_CPP])

     PREP_LIST([CONF_CPP_OPTS_STAGE2])

     , optNm        :: ProgOpt

     , optReadelf   :: ProgOpt

     , optMergeObjs :: ProgOpt

     , optWindres   :: ProgOpt

     -- Note we don't actually configure LD into anything but

     -- see #23857 and #22550 for the very unfortunate story.

     , optLd        :: ProgOpt

     , optNm        = po0

     , optReadelf   = po0

     , optMergeObjs = po0

     , optWindres   = po0

     , optLd        = po0

     , optUnregisterised = Nothing

     , optTablesNextToCode = Nothing

     , optUseLibFFIForAdjustors = Nothing

     po0 = emptyProgOpt

 _optCc, _optCxx, _optCpp, _optHsCpp, _optJsCpp, _optCmmCpp, _optCcLink, _optAr,

     :: Lens Opts ProgOpt

 _optCc      = Lens optCc      (\x o -> o {optCc=x})

 _optCxx     = Lens optCxx     (\x o -> o {optCxx=x})

 _optNm      = Lens optNm      (\x o -> o {optNm=x})

 _optReadelf = Lens optReadelf (\x o -> o {optReadelf=x})

 _optMergeObjs = Lens optMergeObjs (\x o -> o {optMergeObjs=x})

 _optWindres = Lens optWindres (\x o -> o {optWindres=x})

 _optTriple :: Lens Opts (Maybe String)

 _optTriple = Lens optTriple (\x o -> o {optTriple=x})

     , progOpts "nm" "nm archiver" _optNm

     , progOpts "readelf" "readelf utility" _optReadelf

     , progOpts "merge-objs" "linker for merging objects" _optMergeObjs

     , progOpts "windres" "windres utility" _optWindres

     , progOpts "ld" "linker" _optLd

     ]

   where

     progOpts :: String -> String -> Lens Opts ProgOpt -> [OptDescr (Opts -> Opts)]

     when (isNothing mergeObjs && not (arSupportsDashL ar)) $

       throwE "Neither a object-merging tool (e.g. ld -r) nor an ar that supports -L is available"

     -- Windows-specific utilities

     windres <-

         case archOS_OS archOs of

             return (Just windres)

           _ -> return Nothing

     -- various other properties of the platform

     tgtWordSize <- checkWordSize cc

     tgtEndianness <- checkEndianness cc

                    , tgtRanlib = ranlib

                    , tgtNm = nm

                    , tgtMergeObjs = mergeObjs

                    , tgtWindres = windres

                    , tgtWordSize

                    , tgtEndianness

                    , tgtUnregisterised

 data Endianness = LittleEndian | BigEndian

     deriving (Show, Read, Eq, Ord)

 -- | A 'Target' consists of:

 --

 -- * a target architecture and operating system

     , tgtMergeObjs :: Maybe MergeObjs

     -- ^ We don't need a merge objects tool if we @Ar@ supports @-L@

       -- Windows-specific tools

     , tgtWindres :: Maybe Program

     }

     deriving (Read, Eq, Ord)

     , ", tgtRanlib = " ++ show tgtRanlib

     , ", tgtNm = " ++ show tgtNm

     , ", tgtMergeObjs = " ++ show tgtMergeObjs

     , ", tgtWindres = " ++ show tgtWindres

     , "}"

     ]