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])

 #define DEBUG_LOG(...) IF_DEBUG(linker, debugBelch("loadArchive: " __VA_ARGS__))

 #if defined(darwin_HOST_OS) || defined(ios_HOST_OS)

 /* Read 4 bytes and convert to host byte order */

 static uint32_t read4Bytes(const char buf[static 4])

     return ntohl(*(uint32_t*)buf);

 }

 {

     uint32_t nfat_arch, nfat_offset, cputype, cpusubtype;

 #if defined(i386_HOST_ARCH)

 #error Unknown Darwin architecture

 #endif

     DEBUG_LOG("found a fat archive containing %d architectures\n", nfat_arch);

     nfat_offset = 0;

     for (uint32_t i = 0; i < nfat_arch; i++) {

         /* search for the right arch */

         }

         /* Read the header */

         n = fread(tmp, 1, 8, f);

         if (n != 8) {

             errorBelch("Failed reading header from `%" PATH_FMT "'", path);

 }

 #endif

         char* fileName, char* image)

 {

     FILE* member = NULL;

     pathchar *pathCopy, *dirName, *memberPath, *objFileName;

     memberPath = NULL;

     return has_succeeded;

 }

 {

 #if defined(darwin_HOST_OS) || defined(ios_HOST_OS)

     /* Not a standard archive, look for a fat archive magic number: */

     if (read4Bytes(magic) == FAT_MAGIC)

  * be reallocated on return; the old value is now _invalid_.

  * @param gnuFileIndexSize The size of the index.

  */

 lookupGNUArchiveIndex(int gnuFileIndexSize, char **fileName_,

     char* gnuFileIndex, pathchar* path, size_t* thisFileNameSize,

     size_t* fileNameSize)

     return true;

 }

     }

     /* Check if this is an archive by looking for the magic "!<arch>\n"

      * string.  Usually, if this fails, we belch an error and return.  On

      * Darwin however, we may have a fat archive, which contains archives for

      * its magic "!<arch>\n" string and continue processing just as if

      * we had a single architecture archive.

      */

     }

     /* Check if this is a thin archive by looking for the magic string "!<thin>\n"

      *

      * ar thin libraries have the exact same format as normal archives except they

      *

      */

     else if (strncmp(tmp, "!<thin>\n", 8) == 0) {

     }

     else {

     }

     DEBUG_LOG("loading archive contents\n");

     while (1) {

         DEBUG_LOG("reading at %ld\n", ftell(f));

         n = fread ( fileName, 1, 16, f );

         if (n != 16) {

         }

 #endif

         n = fread ( tmp, 1, 12, f );

         if (n != 12)

             FAIL("Failed reading mod time from `%" PATH_FMT "'", path);

         tmp[10] = '\0';

         for (n = 0; isdigit(tmp[n]); n++);

         tmp[n] = '\0';

         n = fread ( tmp, 1, 2, f );

         if (n != 2)

             FAIL("Failed reading magic from `%" PATH_FMT "'", path);

             FAIL("Failed reading magic from `%" PATH_FMT "' at %ld. Got %c%c",

                  path, ftell(f), tmp[0], tmp[1]);

         /* Check for BSD-variant large filenames */

         if (0 == strncmp(fileName, "#1/", 3)) {

             size_t n = 0;

         else if (0 == strncmp(fileName, "//", 2)) {

             fileName[0] = '\0';

             thisFileNameSize = 0;

         }

         /* Check for a file in the GNU file index */

         else if (fileName[0] == '/') {

         DEBUG_LOG("Found member file `%s'\n", fileName);

 #if defined(OBJFORMAT_PEi386)

         /*

         *

         * Linker members (e.g. filename / are skipped since they are not needed)

         */

 #endif // windows

         DEBUG_LOG("\tthisFileNameSize = %d\n", (int)thisFileNameSize);

             DEBUG_LOG("Member is an object file...loading...\n");

 #if defined(darwin_HOST_OS) || defined(ios_HOST_OS)

             image = stgMallocBytes(memberSize, "loadArchive(image)");

 #endif

             if (isThin) {

                     goto fail;

                 }

             }

             else

             {

                 if (n != memberSize) {

                     FAIL("error whilst reading `%" PATH_FMT "'", path);

                 }

             // I don't understand why this extra +1 is needed here; pathprintf

             // should have given us the correct length but in practice it seems

             // to be one byte short on Win32.

             pathprintf(archiveMemberName, size+1, WSTR("%" PATH_FMT "(#%d:%.*s)"),

                        path, memberIdx, (int)thisFileNameSize, fileName);

             ObjectCode *oc = mkOc(STATIC_OBJECT, path, image, memberSize, false, archiveMemberName,

                                   misalignment);

 #if defined(OBJFORMAT_MACHO)

             ocInit_MachO( oc );

 #endif

 #if defined(OBJFORMAT_ELF)

             ocInit_ELF( oc );

 #endif

                           "Skipping...\n");

                 n = fseek(f, memberSize, SEEK_CUR);

                 if (n != 0)

                     memberSize, path);

             }

 #endif

             if (!isThin || thisFileNameSize == 0) {

                 n = fseek(f, memberSize, SEEK_CUR);

                 if (n != 0)

                          memberSize, path);

             }

         }

     , 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"