1 //===--- DragonFly.cpp - DragonFly 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 "DragonFly.h"
10 #include "CommonArgs.h"
11 #include "clang/Driver/Compilation.h"
12 #include "clang/Driver/Driver.h"
13 #include "clang/Driver/Options.h"
14 #include "llvm/Option/ArgList.h"
15 #include "llvm/Support/Path.h"
16 
17 using namespace clang::driver;
18 using namespace clang::driver::tools;
19 using namespace clang::driver::toolchains;
20 using namespace clang;
21 using namespace llvm::opt;
22 
23 void dragonfly::Assembler::ConstructJob(Compilation &C, const JobAction &JA,
24                                         const InputInfo &Output,
25                                         const InputInfoList &Inputs,
26                                         const ArgList &Args,
27                                         const char *LinkingOutput) const {
28   const auto &ToolChain = static_cast<const DragonFly &>(getToolChain());
29   ArgStringList CmdArgs;
30 
31   claimNoWarnArgs(Args);
32 
33   // When building 32-bit code on DragonFly/pc64, we have to explicitly
34   // instruct as in the base system to assemble 32-bit code.
35   if (ToolChain.getArch() == llvm::Triple::x86)
36     CmdArgs.push_back("--32");
37 
38   Args.AddAllArgValues(CmdArgs, options::OPT_Wa_COMMA, options::OPT_Xassembler);
39 
40   CmdArgs.push_back("-o");
41   CmdArgs.push_back(Output.getFilename());
42 
43   for (const auto &II : Inputs)
44     CmdArgs.push_back(II.getFilename());
45 
46   const char *Exec = Args.MakeArgString(ToolChain.GetProgramPath("as"));
47   C.addCommand(std::make_unique<Command>(JA, *this,
48                                          ResponseFileSupport::AtFileCurCP(),
49                                          Exec, CmdArgs, Inputs, Output));
50 }
51 
52 void dragonfly::Linker::ConstructJob(Compilation &C, const JobAction &JA,
53                                      const InputInfo &Output,
54                                      const InputInfoList &Inputs,
55                                      const ArgList &Args,
56                                      const char *LinkingOutput) const {
57   const auto &ToolChain = static_cast<const DragonFly &>(getToolChain());
58   const Driver &D = ToolChain.getDriver();
59   const llvm::Triple::ArchType Arch = ToolChain.getArch();
60   const bool Static = Args.hasArg(options::OPT_static);
61   const bool Shared = Args.hasArg(options::OPT_shared);
62   const bool Profiling = Args.hasArg(options::OPT_pg);
63   const bool Pie = Args.hasArg(options::OPT_pie);
64   ArgStringList CmdArgs;
65 
66   if (!D.SysRoot.empty())
67     CmdArgs.push_back(Args.MakeArgString("--sysroot=" + D.SysRoot));
68 
69   CmdArgs.push_back("--eh-frame-hdr");
70   if (Static) {
71     CmdArgs.push_back("-Bstatic");
72   } else {
73     if (Args.hasArg(options::OPT_rdynamic))
74       CmdArgs.push_back("-export-dynamic");
75     if (Shared)
76       CmdArgs.push_back("-shared");
77     else if (!Args.hasArg(options::OPT_r)) {
78       CmdArgs.push_back("-dynamic-linker");
79       CmdArgs.push_back("/usr/libexec/ld-elf.so.2");
80     }
81     CmdArgs.push_back("--hash-style=gnu");
82     CmdArgs.push_back("--enable-new-dtags");
83   }
84 
85   // When building 32-bit code on DragonFly/pc64, we have to explicitly
86   // instruct ld in the base system to link 32-bit code.
87   if (Arch == llvm::Triple::x86) {
88     CmdArgs.push_back("-m");
89     CmdArgs.push_back("elf_i386");
90   }
91 
92   assert((Output.isFilename() || Output.isNothing()) && "Invalid output.");
93   if (Output.isFilename()) {
94     CmdArgs.push_back("-o");
95     CmdArgs.push_back(Output.getFilename());
96   }
97 
98   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nostartfiles,
99                    options::OPT_r)) {
100     const char *crt1 = nullptr;
101     const char *crtbegin = nullptr;
102     if (!Shared) {
103       if (Profiling)
104         crt1 = "gcrt1.o";
105       else {
106         if (Pie)
107           crt1 = "Scrt1.o";
108         else
109           crt1 = "crt1.o";
110       }
111     }
112 
113     if (Shared || Pie)
114       crtbegin = "crtbeginS.o";
115     else
116       crtbegin = "crtbegin.o";
117 
118     if (crt1)
119       CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath(crt1)));
120     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crti.o")));
121     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath(crtbegin)));
122   }
123 
124   Args.addAllArgs(CmdArgs, {options::OPT_L, options::OPT_T_Group,
125                             options::OPT_s, options::OPT_t, options::OPT_r});
126   ToolChain.AddFilePathLibArgs(Args, CmdArgs);
127 
128   AddLinkerInputs(ToolChain, Inputs, Args, CmdArgs, JA);
129 
130   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nodefaultlibs,
131                    options::OPT_r)) {
132     if (!Static) {
133       CmdArgs.push_back("-rpath");
134       CmdArgs.push_back("/usr/lib/gcc80");
135     }
136 
137     // Use the static OpenMP runtime with -static-openmp
138     bool StaticOpenMP = Args.hasArg(options::OPT_static_openmp) && !Static;
139     addOpenMPRuntime(CmdArgs, ToolChain, Args, StaticOpenMP);
140 
141     if (D.CCCIsCXX()) {
142       if (ToolChain.ShouldLinkCXXStdlib(Args))
143         ToolChain.AddCXXStdlibLibArgs(Args, CmdArgs);
144       CmdArgs.push_back("-lm");
145     }
146 
147     // Silence warnings when linking C code with a C++ '-stdlib' argument.
148     Args.ClaimAllArgs(options::OPT_stdlib_EQ);
149 
150     // Additional linker set-up and flags for Fortran. This is required in order
151     // to generate executables. As Fortran runtime depends on the C runtime,
152     // these dependencies need to be listed before the C runtime below (i.e.
153     // AddRunTimeLibs).
154     if (D.IsFlangMode()) {
155       addFortranRuntimeLibraryPath(ToolChain, Args, CmdArgs);
156       addFortranRuntimeLibs(ToolChain, Args, CmdArgs);
157       CmdArgs.push_back("-lm");
158     }
159 
160     if (Args.hasArg(options::OPT_pthread))
161       CmdArgs.push_back("-lpthread");
162 
163     if (!Args.hasArg(options::OPT_nolibc))
164       CmdArgs.push_back("-lc");
165 
166     if (Static || Args.hasArg(options::OPT_static_libgcc)) {
167         CmdArgs.push_back("-lgcc");
168         CmdArgs.push_back("-lgcc_eh");
169     } else {
170       if (Args.hasArg(options::OPT_shared_libgcc)) {
171           CmdArgs.push_back("-lgcc_pic");
172           if (!Shared)
173             CmdArgs.push_back("-lgcc");
174       } else {
175           CmdArgs.push_back("-lgcc");
176           CmdArgs.push_back("--as-needed");
177           CmdArgs.push_back("-lgcc_pic");
178           CmdArgs.push_back("--no-as-needed");
179       }
180     }
181   }
182 
183   if (!Args.hasArg(options::OPT_nostdlib, options::OPT_nostartfiles,
184                    options::OPT_r)) {
185     const char *crtend = nullptr;
186     if (Shared || Pie)
187       crtend ="crtendS.o";
188     else
189       crtend = "crtend.o";
190 
191     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath(crtend)));
192     CmdArgs.push_back(Args.MakeArgString(ToolChain.GetFilePath("crtn.o")));
193   }
194 
195   ToolChain.addProfileRTLibs(Args, CmdArgs);
196 
197   const char *Exec = Args.MakeArgString(ToolChain.GetLinkerPath());
198   C.addCommand(std::make_unique<Command>(JA, *this,
199                                          ResponseFileSupport::AtFileCurCP(),
200                                          Exec, CmdArgs, Inputs, Output));
201 }
202 
203 /// DragonFly - DragonFly tool chain which can call as(1) and ld(1) directly.
204 
205 DragonFly::DragonFly(const Driver &D, const llvm::Triple &Triple,
206                      const ArgList &Args)
207     : Generic_ELF(D, Triple, Args) {
208 
209   // Path mangling to find libexec
210   getProgramPaths().push_back(getDriver().getInstalledDir());
211   if (getDriver().getInstalledDir() != getDriver().Dir)
212     getProgramPaths().push_back(getDriver().Dir);
213 
214   getFilePaths().push_back(getDriver().Dir + "/../lib");
215   getFilePaths().push_back(concat(getDriver().SysRoot, "/usr/lib"));
216   getFilePaths().push_back(concat(getDriver().SysRoot, "/usr/lib/gcc80"));
217 }
218 
219 void DragonFly::AddClangSystemIncludeArgs(
220     const llvm::opt::ArgList &DriverArgs,
221     llvm::opt::ArgStringList &CC1Args) const {
222   const Driver &D = getDriver();
223 
224   if (DriverArgs.hasArg(clang::driver::options::OPT_nostdinc))
225     return;
226 
227   if (!DriverArgs.hasArg(options::OPT_nobuiltininc)) {
228     SmallString<128> Dir(D.ResourceDir);
229     llvm::sys::path::append(Dir, "include");
230     addSystemInclude(DriverArgs, CC1Args, Dir.str());
231   }
232 
233   if (DriverArgs.hasArg(options::OPT_nostdlibinc))
234     return;
235 
236   addExternCSystemInclude(DriverArgs, CC1Args,
237                           concat(D.SysRoot, "/usr/include"));
238 }
239 
240 void DragonFly::addLibStdCxxIncludePaths(const llvm::opt::ArgList &DriverArgs,
241                                          llvm::opt::ArgStringList &CC1Args) const {
242   addLibStdCXXIncludePaths(concat(getDriver().SysRoot, "/usr/include/c++/8.0"), "", "",
243                            DriverArgs, CC1Args);
244 }
245 
246 Tool *DragonFly::buildAssembler() const {
247   return new tools::dragonfly::Assembler(*this);
248 }
249 
250 Tool *DragonFly::buildLinker() const {
251   return new tools::dragonfly::Linker(*this);
252 }
253