NIX_SYSTEM        On Darwin, the target platform of the desired toolchain

                     (either "x86-64-darwin" or "aarch-darwin")

   NO_BOOT           Whether to run ./boot or not, used when testing the source dist

 Environment variables determining build configuration of Hadrian system:

                     This tests the "reinstall" configuration

   CROSS_EMULATOR    The emulator to use for testing of cross-compilers.

   GHC           Path of GHC executable to use for bootstrapping.

   CABAL         Path of cabal-install executable to use for bootstrapping.

   ALEX          Path of alex executable to use for bootstrapping.

   HAPPY         Path of alex executable to use for bootstrapping.

   GHC_VERSION   Which GHC version to fetch for bootstrapping.

   CABAL_INSTALL_VERSION

 }

 function mingw_init() {

   case "$MSYSTEM" in

     CLANG64)

       target_triple="x86_64-unknown-mingw32"

       ;;

     *)

       fail "win32-init: Unknown MSYSTEM $MSYSTEM"

   MINGW_MOUNT_POINT="${MINGW_PREFIX}"

   PATH="$MINGW_MOUNT_POINT/bin:$PATH"

 }

 # This will contain GHC's local native toolchain

 }

 function set_toolchain_paths() {

     extracted)

       # These are populated by setup_toolchain

       GHC="$toolchain/bin/ghc$exe"

       : ${HAPPY:=$(which happy)}

       : ${ALEX:=$(which alex)}

       ;;

   esac

   export GHC

       cp -Rf "$CABAL_CACHE"/* "$CABAL_DIR"

   fi

     extracted) time_it "setup" setup_toolchain ;;

     *) ;;

   esac

   if [[ -n "${target_triple:-}" ]]; then

     args+=("--target=$target_triple")

   fi

   if [[ -n "${ENABLE_NUMA:-}" ]]; then

     args+=("--enable-numa")

     else

   # See https://stackoverflow.com/questions/7577052 for a rationale for the

   # args[@] symbol-soup below.

   run ${CONFIGURE_WRAPPER:-} ./configure \

     "${args[@]+"${args[@]}"}" \

     GHC="$GHC" \

     || ( cat config.log; fail "configure failed" )

       read -r -a args <<< "${INSTALL_CONFIGURE_ARGS:-}"

       if [[ "${CROSS_TARGET:-no_cross_target}" =~ "mingw" ]]; then

           # By the fact above it is clearly turning out which host value is

           # for currently built compiler.

           # The fix for #21970 will probably remove this if-branch.

       # FIXME: The bindist configure script shouldn't need to be reminded of

       # the target platform. See #21970.

         . setVariable "WindresCmd" (llvm_prefix ++ "windres")

         . setVariable "LLVMAS" (llvm_prefix ++ "clang")

         . setVariable "LD" (llvm_prefix ++ "ld")

           -- Windows target require to make linker merge feature check disabled.

         . setVariable "MergeObjsCmd" ""

           -- LLVM MinGW Linux Toolchain expects to recieve "aarch64-w64-mingw32"

           -- as a triple but we use more common "aarch64-unknown-mingw32".

           -- it will use system's ld otherwise when --target will be specified to

           -- unexpected triple.

         . setVariable "CFLAGS" cflags

     # Run autoreconf on everything that needs it.

     processes = {}

     if os.name == 'nt':

         # Get the normalized ACLOCAL_PATH for Windows

         # This is necessary since on Windows this will be a Windows

         # path, which autoreconf doesn't know doesn't know how to handle.

 AC_SUBST(LlvmTarget)

 dnl ** See whether cc supports --target=<triple> and set

 FP_CC_SUPPORTS_TARGET([$CC], [CONF_CC_OPTS_STAGE1], [CONF_CXX_OPTS_STAGE1])

 FP_CC_SUPPORTS_TARGET([$CC], [CONF_CC_OPTS_STAGE2], [CONF_CXX_OPTS_STAGE2])

 FP_PROG_CC_LINKER_TARGET([$CC], [CONF_CC_OPTS_STAGE1], [CONF_GCC_LINKER_OPTS_STAGE1])

 FP_PROG_CC_LINKER_TARGET([$CC], [CONF_CC_OPTS_STAGE2], [CONF_GCC_LINKER_OPTS_STAGE2])

 import Hadrian.Oracles.Path

 import Hadrian.Oracles.TextFile

 import Hadrian.Utilities

 import System.Exit

 import System.IO (stderr)

                 Ar Unpack _ -> cmd' [Cwd output] [path] buildArgs buildOptions

                 Autoreconf dir -> do

                   bash <- bashPath

                 Configure  dir -> do

                     -- Inject /bin/bash into `libtool`, instead of /bin/sh,

     targetPlatform <- setting TargetPlatformFull

     let ghcVersionPretty = "ghc-" ++ version ++ "-" ++ targetPlatform

         bindistFilesDir  = root -/- "bindist" -/- ghcVersionPretty

     let env = case relocatable of

                 Relocatable -> [AddEnv "RelocatableBuild" "YES"]

                 NotRelocatable -> []

         -- N.B. the ghc-pkg executable may be prefixed with a target triple

         -- (c.f. #20267).

         ghcPkgName <- programName (vanillaContext Stage1 ghcPkg)

 -- The 'TimeoutCallback' will not be called more than once.

 --

 -- Be careful not to exceed @maxBound :: Int@, which on 32-bit machines is only

 --

 {-# NOINLINE registerTimeout #-}

 registerTimeout :: Manager -> Int -> TimeoutCallback -> IO TimeoutKey

 -- This has no effect if the timeout has already fired.

 --

 -- Be careful not to exceed @maxBound :: Int@, which on 32-bit machines is only

 --

 updateTimeout :: Manager -> TimeoutKey -> Seconds -> IO ()

 updateTimeout mgr (TK key) relTime = do

     -- There are some unusual edge cases you need to deal with. The

     -- GetQueuedCompletionStatus function blocks a thread until there's

     -- work for it to do. Based on the return value, the number of bytes

     -- for the function to have returned. Deciphering all the possible

     -- cases:

     --

     fi

     # If MergeObjsCmd="" then we assume that the user is explicitly telling us that

     # they do not want to configure the MergeObjsCmd, this is particularly important for

     # the bundled windows toolchain.