mirror of
https://github.com/ldc-developers/ldc.git
synced 2025-05-03 08:30:47 +03:00
18406bcc06
This reduces the overhead for auto-detecting and setting up an MSVC toolchain from a very rough 1 second to about 8 milliseconds on my box. Enabling the auto-detection by default (and so preferring MSVC over the 'internal' toolchain if there's a Visual C++ installation) is now possible, fixing issues like #3402. The MSVC setup now consists of the bare minimum - prepending 3 directories to the LIB env var and 1-2 directories to PATH.
322 lines
9.4 KiB
C++
322 lines
9.4 KiB
C++
//===-- tool.cpp ----------------------------------------------------------===//
|
||
//
|
||
// LDC – the LLVM D compiler
|
||
//
|
||
// This file is distributed under the BSD-style LDC license. See the LICENSE
|
||
// file for details.
|
||
//
|
||
//===----------------------------------------------------------------------===//
|
||
|
||
#include "driver/tool.h"
|
||
|
||
#include "dmd/errors.h"
|
||
#include "dmd/vsoptions.h"
|
||
#include "driver/args.h"
|
||
#include "driver/cl_options.h"
|
||
#include "driver/exe_path.h"
|
||
#include "driver/targetmachine.h"
|
||
#include "llvm/Support/ConvertUTF.h"
|
||
#include "llvm/Support/FileSystem.h"
|
||
#include "llvm/Support/MemoryBuffer.h"
|
||
#include "llvm/Support/Path.h"
|
||
#include "llvm/Support/Program.h"
|
||
|
||
#ifdef _WIN32
|
||
#include <Windows.h>
|
||
#endif
|
||
|
||
//////////////////////////////////////////////////////////////////////////////
|
||
|
||
namespace opts {
|
||
llvm::cl::opt<std::string> linker(
|
||
"linker", llvm::cl::ZeroOrMore,
|
||
llvm::cl::value_desc("lld-link|lld|gold|bfd|..."),
|
||
llvm::cl::desc("Set the linker to use. When explicitly set to '' "
|
||
"(nothing), prevents LDC from passing `-fuse-ld` to `cc`."),
|
||
llvm::cl::cat(opts::linkingCategory));
|
||
}
|
||
|
||
static llvm::cl::opt<std::string>
|
||
gcc("gcc", llvm::cl::ZeroOrMore, llvm::cl::cat(opts::linkingCategory),
|
||
llvm::cl::value_desc("gcc|clang|..."),
|
||
llvm::cl::desc(
|
||
"C compiler to use for linking (and external assembling). Defaults "
|
||
"to the CC environment variable if set, otherwise to `cc`."));
|
||
|
||
//////////////////////////////////////////////////////////////////////////////
|
||
|
||
static std::string findProgramByName(llvm::StringRef name) {
|
||
llvm::ErrorOr<std::string> res = llvm::sys::findProgramByName(name);
|
||
return res ? res.get() : std::string();
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////
|
||
|
||
std::string getProgram(const char *name, const llvm::cl::opt<std::string> *opt,
|
||
const char *envVar) {
|
||
std::string path;
|
||
|
||
if (opt && !opt->empty()) {
|
||
path = findProgramByName(opt->c_str());
|
||
}
|
||
|
||
if (path.empty() && envVar) {
|
||
const std::string prog = env::get(envVar);
|
||
if (!prog.empty())
|
||
path = findProgramByName(prog);
|
||
}
|
||
|
||
if (path.empty()) {
|
||
path = findProgramByName(name);
|
||
}
|
||
|
||
if (path.empty()) {
|
||
error(Loc(), "failed to locate %s", name);
|
||
fatal();
|
||
}
|
||
|
||
return path;
|
||
}
|
||
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
|
||
std::string getGcc() { return getProgram("cc", &gcc, "CC"); }
|
||
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
|
||
void appendTargetArgsForGcc(std::vector<std::string> &args) {
|
||
using llvm::Triple;
|
||
|
||
const auto &triple = *global.params.targetTriple;
|
||
const auto arch64 = triple.get64BitArchVariant().getArch();
|
||
const auto arch32 = triple.get32BitArchVariant().getArch();
|
||
|
||
// Only specify -m32/-m64 for architectures where the two variants actually
|
||
// exist (as e.g. the GCC ARM toolchain doesn't recognize the switches).
|
||
if (arch64 == Triple::UnknownArch || arch32 == Triple::UnknownArch ||
|
||
arch64 == Triple::aarch64 || arch64 == Triple::aarch64_be) {
|
||
return;
|
||
}
|
||
|
||
// MIPS does not have -m32/-m64 but requires -mabi=.
|
||
if (arch64 == Triple::mips64 || arch64 == Triple::mips64el) {
|
||
switch (getMipsABI()) {
|
||
case MipsABI::EABI:
|
||
args.push_back("-mabi=eabi");
|
||
args.push_back("-march=mips32r2");
|
||
break;
|
||
case MipsABI::O32:
|
||
args.push_back("-mabi=32");
|
||
args.push_back("-march=mips32r2");
|
||
break;
|
||
case MipsABI::N32:
|
||
args.push_back("-mabi=n32");
|
||
args.push_back("-march=mips64r2");
|
||
break;
|
||
case MipsABI::N64:
|
||
args.push_back("-mabi=64");
|
||
args.push_back("-march=mips64r2");
|
||
break;
|
||
case MipsABI::Unknown:
|
||
break;
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
args.push_back(triple.isArch64Bit() ? "-m64" : "-m32");
|
||
}
|
||
|
||
//////////////////////////////////////////////////////////////////////////////
|
||
|
||
void createDirectoryForFileOrFail(llvm::StringRef fileName) {
|
||
auto dir = llvm::sys::path::parent_path(fileName);
|
||
if (!dir.empty() && !llvm::sys::fs::exists(dir)) {
|
||
if (auto ec = llvm::sys::fs::create_directories(dir)) {
|
||
error(Loc(), "failed to create path to file: %s\n%s", dir.data(),
|
||
ec.message().c_str());
|
||
fatal();
|
||
}
|
||
}
|
||
}
|
||
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
|
||
std::vector<const char *> getFullArgs(const char *tool,
|
||
const std::vector<std::string> &args,
|
||
bool printVerbose) {
|
||
std::vector<const char *> fullArgs;
|
||
fullArgs.reserve(args.size() +
|
||
2); // executeToolAndWait() appends an additional null
|
||
|
||
fullArgs.push_back(tool);
|
||
for (const auto &arg : args)
|
||
fullArgs.push_back(arg.c_str());
|
||
|
||
// Print command line if requested
|
||
if (printVerbose) {
|
||
llvm::SmallString<256> singleString;
|
||
for (auto arg : fullArgs) {
|
||
singleString += arg;
|
||
singleString += ' ';
|
||
}
|
||
message("%s", singleString.c_str());
|
||
}
|
||
|
||
return fullArgs;
|
||
}
|
||
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
|
||
int executeToolAndWait(const std::string &tool_,
|
||
std::vector<std::string> const &args, bool verbose) {
|
||
const auto tool = findProgramByName(tool_);
|
||
if (tool.empty()) {
|
||
error(Loc(), "failed to locate %s", tool_.c_str());
|
||
return -1;
|
||
}
|
||
|
||
// Construct real argument list; first entry is the tool itself.
|
||
auto realargs = getFullArgs(tool.c_str(), args, verbose);
|
||
#if LDC_LLVM_VER >= 700
|
||
std::vector<llvm::StringRef> argv;
|
||
argv.reserve(realargs.size());
|
||
for (auto &&arg : realargs)
|
||
argv.push_back(arg);
|
||
auto envVars = llvm::None;
|
||
#else
|
||
realargs.push_back(nullptr); // terminate with null
|
||
auto argv = &realargs[0];
|
||
auto envVars = nullptr;
|
||
#endif
|
||
|
||
// Execute tool.
|
||
std::string errstr;
|
||
if (int status = llvm::sys::ExecuteAndWait(tool, argv, envVars,
|
||
#if LDC_LLVM_VER >= 600
|
||
{},
|
||
#else
|
||
nullptr,
|
||
#endif
|
||
0, 0, &errstr)) {
|
||
error(Loc(), "%s failed with status: %d", tool.c_str(), status);
|
||
if (!errstr.empty()) {
|
||
error(Loc(), "message: %s", errstr.c_str());
|
||
}
|
||
return status;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
|
||
#ifdef _WIN32
|
||
|
||
namespace windows {
|
||
|
||
namespace {
|
||
bool setupMsvcEnvironmentImpl(
|
||
std::vector<std::pair<std::wstring, wchar_t *>> *rollback) {
|
||
if (env::has(L"VSINSTALLDIR") && !env::has(L"LDC_VSDIR_FORCE")) {
|
||
// assume a fully set up environment (e.g., VS native tools command prompt)
|
||
return true;
|
||
}
|
||
|
||
const auto begin = std::chrono::steady_clock::now();
|
||
|
||
VSOptions vsOptions;
|
||
vsOptions.initialize();
|
||
if (!vsOptions.VSInstallDir)
|
||
return false;
|
||
|
||
const bool x64 = global.params.targetTriple->isArch64Bit();
|
||
|
||
llvm::SmallVector<const char *, 3> libPaths;
|
||
if (auto vclibdir = vsOptions.getVCLibDir(x64))
|
||
libPaths.push_back(vclibdir);
|
||
if (auto ucrtlibdir = vsOptions.getUCRTLibPath(x64))
|
||
libPaths.push_back(ucrtlibdir);
|
||
if (auto sdklibdir = vsOptions.getSDKLibPath(x64))
|
||
libPaths.push_back(sdklibdir);
|
||
|
||
llvm::SmallVector<const char *, 2> binPaths;
|
||
const char *secondaryBindir = nullptr;
|
||
if (auto bindir = vsOptions.getVCBinDir(x64, secondaryBindir)) {
|
||
binPaths.push_back(bindir);
|
||
if (secondaryBindir)
|
||
binPaths.push_back(secondaryBindir);
|
||
}
|
||
|
||
const bool success = libPaths.size() == 3 && !binPaths.empty();
|
||
if (!success)
|
||
return false;
|
||
|
||
if (!rollback) // check for availability only
|
||
return true;
|
||
|
||
if (global.params.verbose)
|
||
message("Prepending to environment variables:");
|
||
|
||
const auto preprendToEnvVar =
|
||
[rollback](const char *key, const wchar_t *wkey,
|
||
const llvm::SmallVectorImpl<const char *> &entries) {
|
||
wchar_t *originalValue = _wgetenv(wkey);
|
||
|
||
llvm::SmallString<256> head;
|
||
for (const char *entry : entries) {
|
||
if (!head.empty())
|
||
head += ';';
|
||
head += entry;
|
||
}
|
||
|
||
if (global.params.verbose)
|
||
message(" %s += %.*s", key, (int)head.size(), head.data());
|
||
|
||
llvm::SmallVector<wchar_t, 1024> wvalue;
|
||
llvm::sys::windows::UTF8ToUTF16(head, wvalue);
|
||
if (originalValue) {
|
||
wvalue.push_back(L';');
|
||
wvalue.append(originalValue, originalValue + wcslen(originalValue));
|
||
}
|
||
wvalue.push_back(0);
|
||
|
||
// copy the original value, if set
|
||
if (originalValue)
|
||
originalValue = wcsdup(originalValue);
|
||
rollback->emplace_back(wkey, originalValue);
|
||
|
||
SetEnvironmentVariableW(wkey, wvalue.data());
|
||
};
|
||
|
||
rollback->reserve(2);
|
||
preprendToEnvVar("LIB", L"LIB", libPaths);
|
||
preprendToEnvVar("PATH", L"PATH", binPaths);
|
||
|
||
if (global.params.verbose) {
|
||
const auto end = std::chrono::steady_clock::now();
|
||
message("MSVC setup took %lld microseconds",
|
||
std::chrono::duration_cast<std::chrono::microseconds>(end - begin)
|
||
.count());
|
||
}
|
||
|
||
return true;
|
||
}
|
||
} // anonymous namespace
|
||
|
||
bool isMsvcAvailable() { return setupMsvcEnvironmentImpl(nullptr); }
|
||
|
||
bool MsvcEnvironmentScope::setup() {
|
||
rollback.clear();
|
||
return setupMsvcEnvironmentImpl(&rollback);
|
||
}
|
||
|
||
MsvcEnvironmentScope::~MsvcEnvironmentScope() {
|
||
for (const auto &pair : rollback) {
|
||
SetEnvironmentVariableW(pair.first.c_str(), pair.second);
|
||
free(pair.second);
|
||
}
|
||
}
|
||
|
||
} // namespace windows
|
||
|
||
#endif // _WIN32
|