clang/lib/Driver/ToolChains/Haiku.cpp

   1 //===--- Haiku.cpp - Haiku ToolChain Implementations ------------*- C++ -*-===//
   2 //
   3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 // See https://llvm.org/LICENSE.txt for license information.
   5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #include "Haiku.h"
  10 #include "CommonArgs.h"
  11 #include "clang/Config/config.h"
  12 #include "clang/Driver/Compilation.h"
  13 #include "llvm/Support/Path.h"
  14
  15 using namespace clang::driver;
  16 using namespace clang::driver::tools;
  17 using namespace clang::driver::toolchains;
  18 using namespace clang;
  19 using namespace llvm::opt;
  20
  21 void haiku::Linker::ConstructJob(Compilation &C, const JobAction &JA,
  22                                    const InputInfo &Output,
  23                                    const InputInfoList &Inputs,
  24                                    const ArgList &Args,
  25                                    const char *LinkingOutput) const {
  26   const auto &ToolChain = static_cast<const Haiku &>(getToolChain());
  27   const Driver &D = ToolChain.getDriver();
  28   const llvm::Triple &Triple = ToolChain.getTriple();
  29   const bool Static = Args.hasArg(options::OPT_static);
  30   const bool Shared = Args.hasArg(options::OPT_shared);
  31   ArgStringList CmdArgs;
  32
  33   // Silence warning for "clang -g foo.o -o foo"
  34   Args.ClaimAllArgs(options::OPT_g_Group);
  35   // and "clang -emit-llvm foo.o -o foo"
  36   Args.ClaimAllArgs(options::OPT_emit_llvm);
  37   // and for "clang -w foo.o -o foo". Other warning options are already
  38   // handled somewhere else.
  39   Args.ClaimAllArgs(options::OPT_w);
  40
  41   // Silence warning for "clang -pie foo.o -o foo"
  42   Args.ClaimAllArgs(options::OPT_pie);
  43
  44   // -rdynamic is a no-op with Haiku. Claim argument to avoid warning.
  45   Args.ClaimAllArgs(options::OPT_rdynamic);
  46
  47   if (!D.SysRoot.empty())
  48     CmdArgs.push_back(Args.MakeArgString("--sysroot=" + D.SysRoot));
  49
  50   CmdArgs.push_back("--eh-frame-hdr");
  51   if (Static) {
  52     CmdArgs.push_back("-Bstatic");
  53   } else {
  54     if (Shared)
  55       CmdArgs.push_back("-shared");
  56     CmdArgs.push_back("--enable-new-dtags");
  57   }
  58
  59   CmdArgs.push_back("-shared");
  60
  61   if (!Shared)
  62     CmdArgs.push_back("--no-undefined");
  63
  64   if (Triple.isRISCV64()) {
  65     CmdArgs.push_back("-X");
  66     if (Args.hasArg(options::OPT_mno_relax))
  67       CmdArgs.push_back("--no-relax");
  68   }
  69
  70   assert((Output.isFilename() || Output.isNothing()) && "Invalid output.");
  71   if (Output.isFilename()) {
  72     CmdArgs.push_back("-o");
  73     CmdArgs.push_back(Output.getFilename());
  74   }
  75
  76   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nostartfiles,
  77                    options::OPT_r)) {
  78     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crti.o")));
  79     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crtbeginS.o")));
  80     if (!Shared)
  81       CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("start_dyn.o")));
  82     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("init_term_dyn.o")));
  83   }
  84
  85   Args.addAllArgs(CmdArgs, {options::OPT_L, options::OPT_T_Group,
  86                             options::OPT_s, options::OPT_t});
  87   ToolChain.AddFilePathLibArgs(Args, CmdArgs);
  88
  89   if (D.isUsingLTO()) {
  90     assert(!Inputs.empty() && "Must have at least one input.");
  91     // Find the first filename InputInfo object.
  92     auto Input = llvm::find_if(
  93         Inputs, [](const InputInfo &II) -> bool { return II.isFilename(); });
  94     if (Input == Inputs.end())
  95       // For a very rare case, all of the inputs to the linker are
  96       // InputArg. If that happens, just use the first InputInfo.
  97       Input = Inputs.begin();
  98
  99     addLTOOptions(ToolChain, Args, CmdArgs, Output, *Input,
 100                   D.getLTOMode() == LTOK_Thin);
 101   }
 102
 103   addLinkerCompressDebugSectionsOption(ToolChain, Args, CmdArgs);
 104   AddLinkerInputs(ToolChain, Inputs, Args, CmdArgs, JA);
 105
 106   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nodefaultlibs,
 107                    options::OPT_r)) {
 108     // Use the static OpenMP runtime with -static-openmp
 109     bool StaticOpenMP = Args.hasArg(options::OPT_static_openmp) && !Static;
 110     addOpenMPRuntime(C, CmdArgs, ToolChain, Args, StaticOpenMP);
 111
 112     if (D.CCCIsCXX() && ToolChain.ShouldLinkCXXStdlib(Args))
 113       ToolChain.AddCXXStdlibLibArgs(Args, CmdArgs);
 114
 115     // Silence warnings when linking C code with a C++ '-stdlib' argument.
 116     Args.ClaimAllArgs(options::OPT_stdlib_EQ);
 117
 118     // Additional linker set-up and flags for Fortran. This is required in order
 119     // to generate executables. As Fortran runtime depends on the C runtime,
 120     // these dependencies need to be listed before the C runtime below (i.e.
 121     // AddRunTimeLibs).
 122     if (D.IsFlangMode() &&
 123         !Args.hasArg(options::OPT_nostdlib, options::OPT_nodefaultlibs)) {
 124       addFortranRuntimeLibraryPath(ToolChain, Args, CmdArgs);
 125       addFortranRuntimeLibs(ToolChain, Args, CmdArgs);
 126     }
 127
 128     CmdArgs.push_back("-lgcc");
 129
 130     CmdArgs.push_back("--push-state");
 131     CmdArgs.push_back("--as-needed");
 132     CmdArgs.push_back("-lgcc_s");
 133     CmdArgs.push_back("--no-as-needed");
 134     CmdArgs.push_back("--pop-state");
 135
 136     CmdArgs.push_back("-lroot");
 137
 138     CmdArgs.push_back("-lgcc");
 139
 140     CmdArgs.push_back("--push-state");
 141     CmdArgs.push_back("--as-needed");
 142     CmdArgs.push_back("-lgcc_s");
 143     CmdArgs.push_back("--no-as-needed");
 144     CmdArgs.push_back("--pop-state");
 145   }
 146
 147   // No need to do anything for pthreads. Claim argument to avoid warning.
 148   Args.claimAllArgs(options::OPT_pthread, options::OPT_pthreads);
 149
 150   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nostartfiles,
 151                    options::OPT_r)) {
 152     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crtendS.o")));
 153     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crtn.o")));
 154   }
 155
 156   ToolChain.addProfileRTLibs(Args, CmdArgs);
 157
 158   const char *Exec = Args.MakeArgString(getToolChain().GetLinkerPath());
 159   C.addCommand(std::make_unique<Command>(JA, *this,
 160                                          ResponseFileSupport::AtFileCurCP(),
 161                                          Exec, CmdArgs, Inputs, Output));
 162 }
 163
 164 /// Haiku - Haiku tool chain which can call as(1) and ld(1) directly.
 165
 166 Haiku::Haiku(const Driver &D, const llvm::Triple& Triple, const ArgList &Args)
 167   : Generic_ELF(D, Triple, Args) {
 168
 169   GCCInstallation.init(Triple, Args);
 170
 171   getFilePaths().push_back(concat(getDriver().SysRoot, "/boot/system/lib"));
 172   getFilePaths().push_back(concat(getDriver().SysRoot, "/boot/system/develop/lib"));
 173
 174   if (GCCInstallation.isValid())
 175     getFilePaths().push_back(GCCInstallation.getInstallPath().str());
 176 }
 177
 178 void Haiku::AddClangSystemIncludeArgs(const llvm::opt::ArgList &DriverArgs,
 179                                       llvm::opt::ArgStringList &CC1Args) const {
 180   const Driver &D = getDriver();
 181
 182   if (DriverArgs.hasArg(options::OPT_nostdinc))
 183     return;
 184
 185   if (!DriverArgs.hasArg(options::OPT_nobuiltininc)) {
 186     SmallString<128> Dir(D.ResourceDir);
 187     llvm::sys::path::append(Dir, "include");
 188     addSystemInclude(DriverArgs, CC1Args, Dir.str());
 189   }
 190
 191   if (DriverArgs.hasArg(options::OPT_nostdlibinc))
 192     return;
 193
 194   // Add dirs specified via 'configure --with-c-include-dirs'.
 195   StringRef CIncludeDirs(C_INCLUDE_DIRS);
 196   if (!CIncludeDirs.empty()) {
 197     SmallVector<StringRef, 5> dirs;
 198     CIncludeDirs.split(dirs, ":");
 199     for (StringRef dir : dirs) {
 200       StringRef Prefix =
 201         llvm::sys::path::is_absolute(dir) ? StringRef(D.SysRoot) : "";
 202       addExternCSystemInclude(DriverArgs, CC1Args, Prefix + dir);
 203     }
 204     return;
 205   }
 206
 207   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 208                    "/boot/system/non-packaged/develop/headers"));
 209   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 210                    "/boot/system/develop/headers/os"));
 211   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 212                    "/boot/system/develop/headers/os/app"));
 213   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 214                    "/boot/system/develop/headers/os/device"));
 215   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 216                    "/boot/system/develop/headers/os/drivers"));
 217   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 218                    "/boot/system/develop/headers/os/game"));
 219   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 220                    "/boot/system/develop/headers/os/interface"));
 221   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 222                    "/boot/system/develop/headers/os/kernel"));
 223   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 224                    "/boot/system/develop/headers/os/locale"));
 225   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 226                    "/boot/system/develop/headers/os/mail"));
 227   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 228                    "/boot/system/develop/headers/os/media"));
 229   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 230                    "/boot/system/develop/headers/os/midi"));
 231   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 232                    "/boot/system/develop/headers/os/midi2"));
 233   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 234                    "/boot/system/develop/headers/os/net"));
 235   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 236                    "/boot/system/develop/headers/os/opengl"));
 237   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 238                    "/boot/system/develop/headers/os/storage"));
 239   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 240                    "/boot/system/develop/headers/os/support"));
 241   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 242                    "/boot/system/develop/headers/os/translation"));
 243   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 244                    "/boot/system/develop/headers/os/add-ons/graphics"));
 245   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 246                    "/boot/system/develop/headers/os/add-ons/input_server"));
 247   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 248                    "/boot/system/develop/headers/os/add-ons/mail_daemon"));
 249   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 250                    "/boot/system/develop/headers/os/add-ons/registrar"));
 251   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 252                    "/boot/system/develop/headers/os/add-ons/screen_saver"));
 253   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 254                    "/boot/system/develop/headers/os/add-ons/tracker"));
 255   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 256                    "/boot/system/develop/headers/os/be_apps/Deskbar"));
 257   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 258                    "/boot/system/develop/headers/os/be_apps/NetPositive"));
 259   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 260                    "/boot/system/develop/headers/os/be_apps/Tracker"));
 261   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 262                    "/boot/system/develop/headers/3rdparty"));
 263   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 264                    "/boot/system/develop/headers/bsd"));
 265   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 266                    "/boot/system/develop/headers/glibc"));
 267   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 268                    "/boot/system/develop/headers/gnu"));
 269   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 270                    "/boot/system/develop/headers/posix"));
 271   addSystemInclude(DriverArgs, CC1Args, concat(D.SysRoot,
 272                    "/boot/system/develop/headers"));
 273 }
 274
 275 void Haiku::addLibCxxIncludePaths(const llvm::opt::ArgList &DriverArgs,
 276                                   llvm::opt::ArgStringList &CC1Args) const {
 277   addSystemInclude(DriverArgs, CC1Args,
 278                    concat(getDriver().SysRoot, "/boot/system/develop/headers/c++/v1"));
 279 }
 280
 281 Tool *Haiku::buildLinker() const { return new tools::haiku::Linker(*this); }
 282
 283 bool Haiku::HasNativeLLVMSupport() const { return true; }