annotate lld/COFF/Driver.cpp @ 213:25ca0248ac32

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 11 Jul 2021 17:05:31 +0900
parents 2e18cbf3894f
children 5f17cb93ff66
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===- Driver.cpp ---------------------------------------------------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8
anatofuz
parents:
diff changeset
9 #include "Driver.h"
anatofuz
parents:
diff changeset
10 #include "Config.h"
anatofuz
parents:
diff changeset
11 #include "DebugTypes.h"
anatofuz
parents:
diff changeset
12 #include "ICF.h"
anatofuz
parents:
diff changeset
13 #include "InputFiles.h"
anatofuz
parents:
diff changeset
14 #include "MarkLive.h"
anatofuz
parents:
diff changeset
15 #include "MinGW.h"
anatofuz
parents:
diff changeset
16 #include "SymbolTable.h"
anatofuz
parents:
diff changeset
17 #include "Symbols.h"
anatofuz
parents:
diff changeset
18 #include "Writer.h"
anatofuz
parents:
diff changeset
19 #include "lld/Common/Args.h"
anatofuz
parents:
diff changeset
20 #include "lld/Common/Driver.h"
anatofuz
parents:
diff changeset
21 #include "lld/Common/ErrorHandler.h"
anatofuz
parents:
diff changeset
22 #include "lld/Common/Filesystem.h"
anatofuz
parents:
diff changeset
23 #include "lld/Common/Memory.h"
anatofuz
parents:
diff changeset
24 #include "lld/Common/Timer.h"
anatofuz
parents:
diff changeset
25 #include "lld/Common/Version.h"
anatofuz
parents:
diff changeset
26 #include "llvm/ADT/Optional.h"
anatofuz
parents:
diff changeset
27 #include "llvm/ADT/StringSwitch.h"
anatofuz
parents:
diff changeset
28 #include "llvm/BinaryFormat/Magic.h"
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
29 #include "llvm/Config/llvm-config.h"
150
anatofuz
parents:
diff changeset
30 #include "llvm/LTO/LTO.h"
anatofuz
parents:
diff changeset
31 #include "llvm/Object/ArchiveWriter.h"
anatofuz
parents:
diff changeset
32 #include "llvm/Object/COFFImportFile.h"
anatofuz
parents:
diff changeset
33 #include "llvm/Object/COFFModuleDefinition.h"
anatofuz
parents:
diff changeset
34 #include "llvm/Object/WindowsMachineFlag.h"
anatofuz
parents:
diff changeset
35 #include "llvm/Option/Arg.h"
anatofuz
parents:
diff changeset
36 #include "llvm/Option/ArgList.h"
anatofuz
parents:
diff changeset
37 #include "llvm/Option/Option.h"
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
38 #include "llvm/Support/BinaryStreamReader.h"
150
anatofuz
parents:
diff changeset
39 #include "llvm/Support/CommandLine.h"
anatofuz
parents:
diff changeset
40 #include "llvm/Support/Debug.h"
anatofuz
parents:
diff changeset
41 #include "llvm/Support/LEB128.h"
anatofuz
parents:
diff changeset
42 #include "llvm/Support/MathExtras.h"
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
43 #include "llvm/Support/Parallel.h"
150
anatofuz
parents:
diff changeset
44 #include "llvm/Support/Path.h"
anatofuz
parents:
diff changeset
45 #include "llvm/Support/Process.h"
anatofuz
parents:
diff changeset
46 #include "llvm/Support/TarWriter.h"
anatofuz
parents:
diff changeset
47 #include "llvm/Support/TargetSelect.h"
anatofuz
parents:
diff changeset
48 #include "llvm/Support/raw_ostream.h"
anatofuz
parents:
diff changeset
49 #include "llvm/ToolDrivers/llvm-lib/LibDriver.h"
anatofuz
parents:
diff changeset
50 #include <algorithm>
anatofuz
parents:
diff changeset
51 #include <future>
anatofuz
parents:
diff changeset
52 #include <memory>
anatofuz
parents:
diff changeset
53
anatofuz
parents:
diff changeset
54 using namespace llvm;
anatofuz
parents:
diff changeset
55 using namespace llvm::object;
anatofuz
parents:
diff changeset
56 using namespace llvm::COFF;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
57 using namespace llvm::sys;
150
anatofuz
parents:
diff changeset
58
anatofuz
parents:
diff changeset
59 namespace lld {
anatofuz
parents:
diff changeset
60 namespace coff {
anatofuz
parents:
diff changeset
61
anatofuz
parents:
diff changeset
62 static Timer inputFileTimer("Input File Reading", Timer::root());
anatofuz
parents:
diff changeset
63
anatofuz
parents:
diff changeset
64 Configuration *config;
anatofuz
parents:
diff changeset
65 LinkerDriver *driver;
anatofuz
parents:
diff changeset
66
anatofuz
parents:
diff changeset
67 bool link(ArrayRef<const char *> args, bool canExitEarly, raw_ostream &stdoutOS,
anatofuz
parents:
diff changeset
68 raw_ostream &stderrOS) {
anatofuz
parents:
diff changeset
69 lld::stdoutOS = &stdoutOS;
anatofuz
parents:
diff changeset
70 lld::stderrOS = &stderrOS;
anatofuz
parents:
diff changeset
71
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
72 errorHandler().cleanupCallback = []() {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
73 TpiSource::clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
74 freeArena();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
75 ObjFile::instances.clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
76 PDBInputFile::instances.clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
77 ImportFile::instances.clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
78 BitcodeFile::instances.clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
79 memset(MergeChunk::instances, 0, sizeof(MergeChunk::instances));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
80 OutputSection::clear();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
81 };
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
82
150
anatofuz
parents:
diff changeset
83 errorHandler().logName = args::getFilenameWithoutExe(args[0]);
anatofuz
parents:
diff changeset
84 errorHandler().errorLimitExceededMsg =
anatofuz
parents:
diff changeset
85 "too many errors emitted, stopping now"
anatofuz
parents:
diff changeset
86 " (use /errorlimit:0 to see all errors)";
anatofuz
parents:
diff changeset
87 errorHandler().exitEarly = canExitEarly;
anatofuz
parents:
diff changeset
88 stderrOS.enable_colors(stderrOS.has_colors());
anatofuz
parents:
diff changeset
89
anatofuz
parents:
diff changeset
90 config = make<Configuration>();
anatofuz
parents:
diff changeset
91 symtab = make<SymbolTable>();
anatofuz
parents:
diff changeset
92 driver = make<LinkerDriver>();
anatofuz
parents:
diff changeset
93
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
94 driver->linkerMain(args);
150
anatofuz
parents:
diff changeset
95
anatofuz
parents:
diff changeset
96 // Call exit() if we can to avoid calling destructors.
anatofuz
parents:
diff changeset
97 if (canExitEarly)
anatofuz
parents:
diff changeset
98 exitLld(errorCount() ? 1 : 0);
anatofuz
parents:
diff changeset
99
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
100 bool ret = errorCount() == 0;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
101 if (!canExitEarly)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
102 errorHandler().reset();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
103 return ret;
150
anatofuz
parents:
diff changeset
104 }
anatofuz
parents:
diff changeset
105
anatofuz
parents:
diff changeset
106 // Parse options of the form "old;new".
anatofuz
parents:
diff changeset
107 static std::pair<StringRef, StringRef> getOldNewOptions(opt::InputArgList &args,
anatofuz
parents:
diff changeset
108 unsigned id) {
anatofuz
parents:
diff changeset
109 auto *arg = args.getLastArg(id);
anatofuz
parents:
diff changeset
110 if (!arg)
anatofuz
parents:
diff changeset
111 return {"", ""};
anatofuz
parents:
diff changeset
112
anatofuz
parents:
diff changeset
113 StringRef s = arg->getValue();
anatofuz
parents:
diff changeset
114 std::pair<StringRef, StringRef> ret = s.split(';');
anatofuz
parents:
diff changeset
115 if (ret.second.empty())
anatofuz
parents:
diff changeset
116 error(arg->getSpelling() + " expects 'old;new' format, but got " + s);
anatofuz
parents:
diff changeset
117 return ret;
anatofuz
parents:
diff changeset
118 }
anatofuz
parents:
diff changeset
119
anatofuz
parents:
diff changeset
120 // Drop directory components and replace extension with
anatofuz
parents:
diff changeset
121 // ".exe", ".dll" or ".sys".
anatofuz
parents:
diff changeset
122 static std::string getOutputPath(StringRef path) {
anatofuz
parents:
diff changeset
123 StringRef ext = ".exe";
anatofuz
parents:
diff changeset
124 if (config->dll)
anatofuz
parents:
diff changeset
125 ext = ".dll";
anatofuz
parents:
diff changeset
126 else if (config->driver)
anatofuz
parents:
diff changeset
127 ext = ".sys";
anatofuz
parents:
diff changeset
128
anatofuz
parents:
diff changeset
129 return (sys::path::stem(path) + ext).str();
anatofuz
parents:
diff changeset
130 }
anatofuz
parents:
diff changeset
131
anatofuz
parents:
diff changeset
132 // Returns true if S matches /crtend.?\.o$/.
anatofuz
parents:
diff changeset
133 static bool isCrtend(StringRef s) {
anatofuz
parents:
diff changeset
134 if (!s.endswith(".o"))
anatofuz
parents:
diff changeset
135 return false;
anatofuz
parents:
diff changeset
136 s = s.drop_back(2);
anatofuz
parents:
diff changeset
137 if (s.endswith("crtend"))
anatofuz
parents:
diff changeset
138 return true;
anatofuz
parents:
diff changeset
139 return !s.empty() && s.drop_back().endswith("crtend");
anatofuz
parents:
diff changeset
140 }
anatofuz
parents:
diff changeset
141
anatofuz
parents:
diff changeset
142 // ErrorOr is not default constructible, so it cannot be used as the type
anatofuz
parents:
diff changeset
143 // parameter of a future.
anatofuz
parents:
diff changeset
144 // FIXME: We could open the file in createFutureForFile and avoid needing to
anatofuz
parents:
diff changeset
145 // return an error here, but for the moment that would cost us a file descriptor
anatofuz
parents:
diff changeset
146 // (a limited resource on Windows) for the duration that the future is pending.
anatofuz
parents:
diff changeset
147 using MBErrPair = std::pair<std::unique_ptr<MemoryBuffer>, std::error_code>;
anatofuz
parents:
diff changeset
148
anatofuz
parents:
diff changeset
149 // Create a std::future that opens and maps a file using the best strategy for
anatofuz
parents:
diff changeset
150 // the host platform.
anatofuz
parents:
diff changeset
151 static std::future<MBErrPair> createFutureForFile(std::string path) {
anatofuz
parents:
diff changeset
152 #if _WIN32
anatofuz
parents:
diff changeset
153 // On Windows, file I/O is relatively slow so it is best to do this
anatofuz
parents:
diff changeset
154 // asynchronously.
anatofuz
parents:
diff changeset
155 auto strategy = std::launch::async;
anatofuz
parents:
diff changeset
156 #else
anatofuz
parents:
diff changeset
157 auto strategy = std::launch::deferred;
anatofuz
parents:
diff changeset
158 #endif
anatofuz
parents:
diff changeset
159 return std::async(strategy, [=]() {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
160 auto mbOrErr = MemoryBuffer::getFile(path, /*IsText=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
161 /*RequiresNullTerminator=*/false);
150
anatofuz
parents:
diff changeset
162 if (!mbOrErr)
anatofuz
parents:
diff changeset
163 return MBErrPair{nullptr, mbOrErr.getError()};
anatofuz
parents:
diff changeset
164 return MBErrPair{std::move(*mbOrErr), std::error_code()};
anatofuz
parents:
diff changeset
165 });
anatofuz
parents:
diff changeset
166 }
anatofuz
parents:
diff changeset
167
anatofuz
parents:
diff changeset
168 // Symbol names are mangled by prepending "_" on x86.
anatofuz
parents:
diff changeset
169 static StringRef mangle(StringRef sym) {
anatofuz
parents:
diff changeset
170 assert(config->machine != IMAGE_FILE_MACHINE_UNKNOWN);
anatofuz
parents:
diff changeset
171 if (config->machine == I386)
anatofuz
parents:
diff changeset
172 return saver.save("_" + sym);
anatofuz
parents:
diff changeset
173 return sym;
anatofuz
parents:
diff changeset
174 }
anatofuz
parents:
diff changeset
175
anatofuz
parents:
diff changeset
176 static bool findUnderscoreMangle(StringRef sym) {
anatofuz
parents:
diff changeset
177 Symbol *s = symtab->findMangle(mangle(sym));
anatofuz
parents:
diff changeset
178 return s && !isa<Undefined>(s);
anatofuz
parents:
diff changeset
179 }
anatofuz
parents:
diff changeset
180
anatofuz
parents:
diff changeset
181 MemoryBufferRef LinkerDriver::takeBuffer(std::unique_ptr<MemoryBuffer> mb) {
anatofuz
parents:
diff changeset
182 MemoryBufferRef mbref = *mb;
anatofuz
parents:
diff changeset
183 make<std::unique_ptr<MemoryBuffer>>(std::move(mb)); // take ownership
anatofuz
parents:
diff changeset
184
anatofuz
parents:
diff changeset
185 if (driver->tar)
anatofuz
parents:
diff changeset
186 driver->tar->append(relativeToRoot(mbref.getBufferIdentifier()),
anatofuz
parents:
diff changeset
187 mbref.getBuffer());
anatofuz
parents:
diff changeset
188 return mbref;
anatofuz
parents:
diff changeset
189 }
anatofuz
parents:
diff changeset
190
anatofuz
parents:
diff changeset
191 void LinkerDriver::addBuffer(std::unique_ptr<MemoryBuffer> mb,
anatofuz
parents:
diff changeset
192 bool wholeArchive, bool lazy) {
anatofuz
parents:
diff changeset
193 StringRef filename = mb->getBufferIdentifier();
anatofuz
parents:
diff changeset
194
anatofuz
parents:
diff changeset
195 MemoryBufferRef mbref = takeBuffer(std::move(mb));
anatofuz
parents:
diff changeset
196 filePaths.push_back(filename);
anatofuz
parents:
diff changeset
197
anatofuz
parents:
diff changeset
198 // File type is detected by contents, not by file extension.
anatofuz
parents:
diff changeset
199 switch (identify_magic(mbref.getBuffer())) {
anatofuz
parents:
diff changeset
200 case file_magic::windows_resource:
anatofuz
parents:
diff changeset
201 resources.push_back(mbref);
anatofuz
parents:
diff changeset
202 break;
anatofuz
parents:
diff changeset
203 case file_magic::archive:
anatofuz
parents:
diff changeset
204 if (wholeArchive) {
anatofuz
parents:
diff changeset
205 std::unique_ptr<Archive> file =
anatofuz
parents:
diff changeset
206 CHECK(Archive::create(mbref), filename + ": failed to parse archive");
anatofuz
parents:
diff changeset
207 Archive *archive = file.get();
anatofuz
parents:
diff changeset
208 make<std::unique_ptr<Archive>>(std::move(file)); // take ownership
anatofuz
parents:
diff changeset
209
anatofuz
parents:
diff changeset
210 int memberIndex = 0;
anatofuz
parents:
diff changeset
211 for (MemoryBufferRef m : getArchiveMembers(archive))
anatofuz
parents:
diff changeset
212 addArchiveBuffer(m, "<whole-archive>", filename, memberIndex++);
anatofuz
parents:
diff changeset
213 return;
anatofuz
parents:
diff changeset
214 }
anatofuz
parents:
diff changeset
215 symtab->addFile(make<ArchiveFile>(mbref));
anatofuz
parents:
diff changeset
216 break;
anatofuz
parents:
diff changeset
217 case file_magic::bitcode:
anatofuz
parents:
diff changeset
218 if (lazy)
anatofuz
parents:
diff changeset
219 symtab->addFile(make<LazyObjFile>(mbref));
anatofuz
parents:
diff changeset
220 else
anatofuz
parents:
diff changeset
221 symtab->addFile(make<BitcodeFile>(mbref, "", 0));
anatofuz
parents:
diff changeset
222 break;
anatofuz
parents:
diff changeset
223 case file_magic::coff_object:
anatofuz
parents:
diff changeset
224 case file_magic::coff_import_library:
anatofuz
parents:
diff changeset
225 if (lazy)
anatofuz
parents:
diff changeset
226 symtab->addFile(make<LazyObjFile>(mbref));
anatofuz
parents:
diff changeset
227 else
anatofuz
parents:
diff changeset
228 symtab->addFile(make<ObjFile>(mbref));
anatofuz
parents:
diff changeset
229 break;
anatofuz
parents:
diff changeset
230 case file_magic::pdb:
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
231 symtab->addFile(make<PDBInputFile>(mbref));
150
anatofuz
parents:
diff changeset
232 break;
anatofuz
parents:
diff changeset
233 case file_magic::coff_cl_gl_object:
anatofuz
parents:
diff changeset
234 error(filename + ": is not a native COFF file. Recompile without /GL");
anatofuz
parents:
diff changeset
235 break;
anatofuz
parents:
diff changeset
236 case file_magic::pecoff_executable:
anatofuz
parents:
diff changeset
237 if (filename.endswith_lower(".dll")) {
anatofuz
parents:
diff changeset
238 error(filename + ": bad file type. Did you specify a DLL instead of an "
anatofuz
parents:
diff changeset
239 "import library?");
anatofuz
parents:
diff changeset
240 break;
anatofuz
parents:
diff changeset
241 }
anatofuz
parents:
diff changeset
242 LLVM_FALLTHROUGH;
anatofuz
parents:
diff changeset
243 default:
anatofuz
parents:
diff changeset
244 error(mbref.getBufferIdentifier() + ": unknown file type");
anatofuz
parents:
diff changeset
245 break;
anatofuz
parents:
diff changeset
246 }
anatofuz
parents:
diff changeset
247 }
anatofuz
parents:
diff changeset
248
anatofuz
parents:
diff changeset
249 void LinkerDriver::enqueuePath(StringRef path, bool wholeArchive, bool lazy) {
anatofuz
parents:
diff changeset
250 auto future = std::make_shared<std::future<MBErrPair>>(
anatofuz
parents:
diff changeset
251 createFutureForFile(std::string(path)));
anatofuz
parents:
diff changeset
252 std::string pathStr = std::string(path);
anatofuz
parents:
diff changeset
253 enqueueTask([=]() {
anatofuz
parents:
diff changeset
254 auto mbOrErr = future->get();
anatofuz
parents:
diff changeset
255 if (mbOrErr.second) {
anatofuz
parents:
diff changeset
256 std::string msg =
anatofuz
parents:
diff changeset
257 "could not open '" + pathStr + "': " + mbOrErr.second.message();
anatofuz
parents:
diff changeset
258 // Check if the filename is a typo for an option flag. OptTable thinks
anatofuz
parents:
diff changeset
259 // that all args that are not known options and that start with / are
anatofuz
parents:
diff changeset
260 // filenames, but e.g. `/nodefaultlibs` is more likely a typo for
anatofuz
parents:
diff changeset
261 // the option `/nodefaultlib` than a reference to a file in the root
anatofuz
parents:
diff changeset
262 // directory.
anatofuz
parents:
diff changeset
263 std::string nearest;
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
264 if (optTable.findNearest(pathStr, nearest) > 1)
150
anatofuz
parents:
diff changeset
265 error(msg);
anatofuz
parents:
diff changeset
266 else
anatofuz
parents:
diff changeset
267 error(msg + "; did you mean '" + nearest + "'");
anatofuz
parents:
diff changeset
268 } else
anatofuz
parents:
diff changeset
269 driver->addBuffer(std::move(mbOrErr.first), wholeArchive, lazy);
anatofuz
parents:
diff changeset
270 });
anatofuz
parents:
diff changeset
271 }
anatofuz
parents:
diff changeset
272
anatofuz
parents:
diff changeset
273 void LinkerDriver::addArchiveBuffer(MemoryBufferRef mb, StringRef symName,
anatofuz
parents:
diff changeset
274 StringRef parentName,
anatofuz
parents:
diff changeset
275 uint64_t offsetInArchive) {
anatofuz
parents:
diff changeset
276 file_magic magic = identify_magic(mb.getBuffer());
anatofuz
parents:
diff changeset
277 if (magic == file_magic::coff_import_library) {
anatofuz
parents:
diff changeset
278 InputFile *imp = make<ImportFile>(mb);
anatofuz
parents:
diff changeset
279 imp->parentName = parentName;
anatofuz
parents:
diff changeset
280 symtab->addFile(imp);
anatofuz
parents:
diff changeset
281 return;
anatofuz
parents:
diff changeset
282 }
anatofuz
parents:
diff changeset
283
anatofuz
parents:
diff changeset
284 InputFile *obj;
anatofuz
parents:
diff changeset
285 if (magic == file_magic::coff_object) {
anatofuz
parents:
diff changeset
286 obj = make<ObjFile>(mb);
anatofuz
parents:
diff changeset
287 } else if (magic == file_magic::bitcode) {
anatofuz
parents:
diff changeset
288 obj = make<BitcodeFile>(mb, parentName, offsetInArchive);
anatofuz
parents:
diff changeset
289 } else {
anatofuz
parents:
diff changeset
290 error("unknown file type: " + mb.getBufferIdentifier());
anatofuz
parents:
diff changeset
291 return;
anatofuz
parents:
diff changeset
292 }
anatofuz
parents:
diff changeset
293
anatofuz
parents:
diff changeset
294 obj->parentName = parentName;
anatofuz
parents:
diff changeset
295 symtab->addFile(obj);
anatofuz
parents:
diff changeset
296 log("Loaded " + toString(obj) + " for " + symName);
anatofuz
parents:
diff changeset
297 }
anatofuz
parents:
diff changeset
298
anatofuz
parents:
diff changeset
299 void LinkerDriver::enqueueArchiveMember(const Archive::Child &c,
anatofuz
parents:
diff changeset
300 const Archive::Symbol &sym,
anatofuz
parents:
diff changeset
301 StringRef parentName) {
anatofuz
parents:
diff changeset
302
anatofuz
parents:
diff changeset
303 auto reportBufferError = [=](Error &&e, StringRef childName) {
anatofuz
parents:
diff changeset
304 fatal("could not get the buffer for the member defining symbol " +
anatofuz
parents:
diff changeset
305 toCOFFString(sym) + ": " + parentName + "(" + childName + "): " +
anatofuz
parents:
diff changeset
306 toString(std::move(e)));
anatofuz
parents:
diff changeset
307 };
anatofuz
parents:
diff changeset
308
anatofuz
parents:
diff changeset
309 if (!c.getParent()->isThin()) {
anatofuz
parents:
diff changeset
310 uint64_t offsetInArchive = c.getChildOffset();
anatofuz
parents:
diff changeset
311 Expected<MemoryBufferRef> mbOrErr = c.getMemoryBufferRef();
anatofuz
parents:
diff changeset
312 if (!mbOrErr)
anatofuz
parents:
diff changeset
313 reportBufferError(mbOrErr.takeError(), check(c.getFullName()));
anatofuz
parents:
diff changeset
314 MemoryBufferRef mb = mbOrErr.get();
anatofuz
parents:
diff changeset
315 enqueueTask([=]() {
anatofuz
parents:
diff changeset
316 driver->addArchiveBuffer(mb, toCOFFString(sym), parentName,
anatofuz
parents:
diff changeset
317 offsetInArchive);
anatofuz
parents:
diff changeset
318 });
anatofuz
parents:
diff changeset
319 return;
anatofuz
parents:
diff changeset
320 }
anatofuz
parents:
diff changeset
321
anatofuz
parents:
diff changeset
322 std::string childName = CHECK(
anatofuz
parents:
diff changeset
323 c.getFullName(),
anatofuz
parents:
diff changeset
324 "could not get the filename for the member defining symbol " +
anatofuz
parents:
diff changeset
325 toCOFFString(sym));
anatofuz
parents:
diff changeset
326 auto future = std::make_shared<std::future<MBErrPair>>(
anatofuz
parents:
diff changeset
327 createFutureForFile(childName));
anatofuz
parents:
diff changeset
328 enqueueTask([=]() {
anatofuz
parents:
diff changeset
329 auto mbOrErr = future->get();
anatofuz
parents:
diff changeset
330 if (mbOrErr.second)
anatofuz
parents:
diff changeset
331 reportBufferError(errorCodeToError(mbOrErr.second), childName);
anatofuz
parents:
diff changeset
332 // Pass empty string as archive name so that the original filename is
anatofuz
parents:
diff changeset
333 // used as the buffer identifier.
anatofuz
parents:
diff changeset
334 driver->addArchiveBuffer(takeBuffer(std::move(mbOrErr.first)),
anatofuz
parents:
diff changeset
335 toCOFFString(sym), "", /*OffsetInArchive=*/0);
anatofuz
parents:
diff changeset
336 });
anatofuz
parents:
diff changeset
337 }
anatofuz
parents:
diff changeset
338
anatofuz
parents:
diff changeset
339 static bool isDecorated(StringRef sym) {
anatofuz
parents:
diff changeset
340 return sym.startswith("@") || sym.contains("@@") || sym.startswith("?") ||
anatofuz
parents:
diff changeset
341 (!config->mingw && sym.contains('@'));
anatofuz
parents:
diff changeset
342 }
anatofuz
parents:
diff changeset
343
anatofuz
parents:
diff changeset
344 // Parses .drectve section contents and returns a list of files
anatofuz
parents:
diff changeset
345 // specified by /defaultlib.
anatofuz
parents:
diff changeset
346 void LinkerDriver::parseDirectives(InputFile *file) {
anatofuz
parents:
diff changeset
347 StringRef s = file->getDirectives();
anatofuz
parents:
diff changeset
348 if (s.empty())
anatofuz
parents:
diff changeset
349 return;
anatofuz
parents:
diff changeset
350
anatofuz
parents:
diff changeset
351 log("Directives: " + toString(file) + ": " + s);
anatofuz
parents:
diff changeset
352
anatofuz
parents:
diff changeset
353 ArgParser parser;
anatofuz
parents:
diff changeset
354 // .drectve is always tokenized using Windows shell rules.
anatofuz
parents:
diff changeset
355 // /EXPORT: option can appear too many times, processing in fastpath.
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
356 ParsedDirectives directives = parser.parseDirectives(s);
150
anatofuz
parents:
diff changeset
357
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
358 for (StringRef e : directives.exports) {
150
anatofuz
parents:
diff changeset
359 // If a common header file contains dllexported function
anatofuz
parents:
diff changeset
360 // declarations, many object files may end up with having the
anatofuz
parents:
diff changeset
361 // same /EXPORT options. In order to save cost of parsing them,
anatofuz
parents:
diff changeset
362 // we dedup them first.
anatofuz
parents:
diff changeset
363 if (!directivesExports.insert(e).second)
anatofuz
parents:
diff changeset
364 continue;
anatofuz
parents:
diff changeset
365
anatofuz
parents:
diff changeset
366 Export exp = parseExport(e);
anatofuz
parents:
diff changeset
367 if (config->machine == I386 && config->mingw) {
anatofuz
parents:
diff changeset
368 if (!isDecorated(exp.name))
anatofuz
parents:
diff changeset
369 exp.name = saver.save("_" + exp.name);
anatofuz
parents:
diff changeset
370 if (!exp.extName.empty() && !isDecorated(exp.extName))
anatofuz
parents:
diff changeset
371 exp.extName = saver.save("_" + exp.extName);
anatofuz
parents:
diff changeset
372 }
anatofuz
parents:
diff changeset
373 exp.directives = true;
anatofuz
parents:
diff changeset
374 config->exports.push_back(exp);
anatofuz
parents:
diff changeset
375 }
anatofuz
parents:
diff changeset
376
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
377 // Handle /include: in bulk.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
378 for (StringRef inc : directives.includes)
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
379 addUndefined(inc);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
380
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
381 for (auto *arg : directives.args) {
150
anatofuz
parents:
diff changeset
382 switch (arg->getOption().getID()) {
anatofuz
parents:
diff changeset
383 case OPT_aligncomm:
anatofuz
parents:
diff changeset
384 parseAligncomm(arg->getValue());
anatofuz
parents:
diff changeset
385 break;
anatofuz
parents:
diff changeset
386 case OPT_alternatename:
anatofuz
parents:
diff changeset
387 parseAlternateName(arg->getValue());
anatofuz
parents:
diff changeset
388 break;
anatofuz
parents:
diff changeset
389 case OPT_defaultlib:
anatofuz
parents:
diff changeset
390 if (Optional<StringRef> path = findLib(arg->getValue()))
anatofuz
parents:
diff changeset
391 enqueuePath(*path, false, false);
anatofuz
parents:
diff changeset
392 break;
anatofuz
parents:
diff changeset
393 case OPT_entry:
anatofuz
parents:
diff changeset
394 config->entry = addUndefined(mangle(arg->getValue()));
anatofuz
parents:
diff changeset
395 break;
anatofuz
parents:
diff changeset
396 case OPT_failifmismatch:
anatofuz
parents:
diff changeset
397 checkFailIfMismatch(arg->getValue(), file);
anatofuz
parents:
diff changeset
398 break;
anatofuz
parents:
diff changeset
399 case OPT_incl:
anatofuz
parents:
diff changeset
400 addUndefined(arg->getValue());
anatofuz
parents:
diff changeset
401 break;
anatofuz
parents:
diff changeset
402 case OPT_merge:
anatofuz
parents:
diff changeset
403 parseMerge(arg->getValue());
anatofuz
parents:
diff changeset
404 break;
anatofuz
parents:
diff changeset
405 case OPT_nodefaultlib:
anatofuz
parents:
diff changeset
406 config->noDefaultLibs.insert(doFindLib(arg->getValue()).lower());
anatofuz
parents:
diff changeset
407 break;
anatofuz
parents:
diff changeset
408 case OPT_section:
anatofuz
parents:
diff changeset
409 parseSection(arg->getValue());
anatofuz
parents:
diff changeset
410 break;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
411 case OPT_stack:
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
412 parseNumbers(arg->getValue(), &config->stackReserve,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
413 &config->stackCommit);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
414 break;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
415 case OPT_subsystem: {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
416 bool gotVersion = false;
150
anatofuz
parents:
diff changeset
417 parseSubsystem(arg->getValue(), &config->subsystem,
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
418 &config->majorSubsystemVersion,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
419 &config->minorSubsystemVersion, &gotVersion);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
420 if (gotVersion) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
421 config->majorOSVersion = config->majorSubsystemVersion;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
422 config->minorOSVersion = config->minorSubsystemVersion;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
423 }
150
anatofuz
parents:
diff changeset
424 break;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
425 }
150
anatofuz
parents:
diff changeset
426 // Only add flags here that link.exe accepts in
anatofuz
parents:
diff changeset
427 // `#pragma comment(linker, "/flag")`-generated sections.
anatofuz
parents:
diff changeset
428 case OPT_editandcontinue:
anatofuz
parents:
diff changeset
429 case OPT_guardsym:
anatofuz
parents:
diff changeset
430 case OPT_throwingnew:
anatofuz
parents:
diff changeset
431 break;
anatofuz
parents:
diff changeset
432 default:
anatofuz
parents:
diff changeset
433 error(arg->getSpelling() + " is not allowed in .drectve");
anatofuz
parents:
diff changeset
434 }
anatofuz
parents:
diff changeset
435 }
anatofuz
parents:
diff changeset
436 }
anatofuz
parents:
diff changeset
437
anatofuz
parents:
diff changeset
438 // Find file from search paths. You can omit ".obj", this function takes
anatofuz
parents:
diff changeset
439 // care of that. Note that the returned path is not guaranteed to exist.
anatofuz
parents:
diff changeset
440 StringRef LinkerDriver::doFindFile(StringRef filename) {
anatofuz
parents:
diff changeset
441 bool hasPathSep = (filename.find_first_of("/\\") != StringRef::npos);
anatofuz
parents:
diff changeset
442 if (hasPathSep)
anatofuz
parents:
diff changeset
443 return filename;
anatofuz
parents:
diff changeset
444 bool hasExt = filename.contains('.');
anatofuz
parents:
diff changeset
445 for (StringRef dir : searchPaths) {
anatofuz
parents:
diff changeset
446 SmallString<128> path = dir;
anatofuz
parents:
diff changeset
447 sys::path::append(path, filename);
anatofuz
parents:
diff changeset
448 if (sys::fs::exists(path.str()))
anatofuz
parents:
diff changeset
449 return saver.save(path.str());
anatofuz
parents:
diff changeset
450 if (!hasExt) {
anatofuz
parents:
diff changeset
451 path.append(".obj");
anatofuz
parents:
diff changeset
452 if (sys::fs::exists(path.str()))
anatofuz
parents:
diff changeset
453 return saver.save(path.str());
anatofuz
parents:
diff changeset
454 }
anatofuz
parents:
diff changeset
455 }
anatofuz
parents:
diff changeset
456 return filename;
anatofuz
parents:
diff changeset
457 }
anatofuz
parents:
diff changeset
458
anatofuz
parents:
diff changeset
459 static Optional<sys::fs::UniqueID> getUniqueID(StringRef path) {
anatofuz
parents:
diff changeset
460 sys::fs::UniqueID ret;
anatofuz
parents:
diff changeset
461 if (sys::fs::getUniqueID(path, ret))
anatofuz
parents:
diff changeset
462 return None;
anatofuz
parents:
diff changeset
463 return ret;
anatofuz
parents:
diff changeset
464 }
anatofuz
parents:
diff changeset
465
anatofuz
parents:
diff changeset
466 // Resolves a file path. This never returns the same path
anatofuz
parents:
diff changeset
467 // (in that case, it returns None).
anatofuz
parents:
diff changeset
468 Optional<StringRef> LinkerDriver::findFile(StringRef filename) {
anatofuz
parents:
diff changeset
469 StringRef path = doFindFile(filename);
anatofuz
parents:
diff changeset
470
anatofuz
parents:
diff changeset
471 if (Optional<sys::fs::UniqueID> id = getUniqueID(path)) {
anatofuz
parents:
diff changeset
472 bool seen = !visitedFiles.insert(*id).second;
anatofuz
parents:
diff changeset
473 if (seen)
anatofuz
parents:
diff changeset
474 return None;
anatofuz
parents:
diff changeset
475 }
anatofuz
parents:
diff changeset
476
anatofuz
parents:
diff changeset
477 if (path.endswith_lower(".lib"))
anatofuz
parents:
diff changeset
478 visitedLibs.insert(std::string(sys::path::filename(path)));
anatofuz
parents:
diff changeset
479 return path;
anatofuz
parents:
diff changeset
480 }
anatofuz
parents:
diff changeset
481
anatofuz
parents:
diff changeset
482 // MinGW specific. If an embedded directive specified to link to
anatofuz
parents:
diff changeset
483 // foo.lib, but it isn't found, try libfoo.a instead.
anatofuz
parents:
diff changeset
484 StringRef LinkerDriver::doFindLibMinGW(StringRef filename) {
anatofuz
parents:
diff changeset
485 if (filename.contains('/') || filename.contains('\\'))
anatofuz
parents:
diff changeset
486 return filename;
anatofuz
parents:
diff changeset
487
anatofuz
parents:
diff changeset
488 SmallString<128> s = filename;
anatofuz
parents:
diff changeset
489 sys::path::replace_extension(s, ".a");
anatofuz
parents:
diff changeset
490 StringRef libName = saver.save("lib" + s.str());
anatofuz
parents:
diff changeset
491 return doFindFile(libName);
anatofuz
parents:
diff changeset
492 }
anatofuz
parents:
diff changeset
493
anatofuz
parents:
diff changeset
494 // Find library file from search path.
anatofuz
parents:
diff changeset
495 StringRef LinkerDriver::doFindLib(StringRef filename) {
anatofuz
parents:
diff changeset
496 // Add ".lib" to Filename if that has no file extension.
anatofuz
parents:
diff changeset
497 bool hasExt = filename.contains('.');
anatofuz
parents:
diff changeset
498 if (!hasExt)
anatofuz
parents:
diff changeset
499 filename = saver.save(filename + ".lib");
anatofuz
parents:
diff changeset
500 StringRef ret = doFindFile(filename);
anatofuz
parents:
diff changeset
501 // For MinGW, if the find above didn't turn up anything, try
anatofuz
parents:
diff changeset
502 // looking for a MinGW formatted library name.
anatofuz
parents:
diff changeset
503 if (config->mingw && ret == filename)
anatofuz
parents:
diff changeset
504 return doFindLibMinGW(filename);
anatofuz
parents:
diff changeset
505 return ret;
anatofuz
parents:
diff changeset
506 }
anatofuz
parents:
diff changeset
507
anatofuz
parents:
diff changeset
508 // Resolves a library path. /nodefaultlib options are taken into
anatofuz
parents:
diff changeset
509 // consideration. This never returns the same path (in that case,
anatofuz
parents:
diff changeset
510 // it returns None).
anatofuz
parents:
diff changeset
511 Optional<StringRef> LinkerDriver::findLib(StringRef filename) {
anatofuz
parents:
diff changeset
512 if (config->noDefaultLibAll)
anatofuz
parents:
diff changeset
513 return None;
anatofuz
parents:
diff changeset
514 if (!visitedLibs.insert(filename.lower()).second)
anatofuz
parents:
diff changeset
515 return None;
anatofuz
parents:
diff changeset
516
anatofuz
parents:
diff changeset
517 StringRef path = doFindLib(filename);
anatofuz
parents:
diff changeset
518 if (config->noDefaultLibs.count(path.lower()))
anatofuz
parents:
diff changeset
519 return None;
anatofuz
parents:
diff changeset
520
anatofuz
parents:
diff changeset
521 if (Optional<sys::fs::UniqueID> id = getUniqueID(path))
anatofuz
parents:
diff changeset
522 if (!visitedFiles.insert(*id).second)
anatofuz
parents:
diff changeset
523 return None;
anatofuz
parents:
diff changeset
524 return path;
anatofuz
parents:
diff changeset
525 }
anatofuz
parents:
diff changeset
526
anatofuz
parents:
diff changeset
527 // Parses LIB environment which contains a list of search paths.
anatofuz
parents:
diff changeset
528 void LinkerDriver::addLibSearchPaths() {
anatofuz
parents:
diff changeset
529 Optional<std::string> envOpt = Process::GetEnv("LIB");
anatofuz
parents:
diff changeset
530 if (!envOpt.hasValue())
anatofuz
parents:
diff changeset
531 return;
anatofuz
parents:
diff changeset
532 StringRef env = saver.save(*envOpt);
anatofuz
parents:
diff changeset
533 while (!env.empty()) {
anatofuz
parents:
diff changeset
534 StringRef path;
anatofuz
parents:
diff changeset
535 std::tie(path, env) = env.split(';');
anatofuz
parents:
diff changeset
536 searchPaths.push_back(path);
anatofuz
parents:
diff changeset
537 }
anatofuz
parents:
diff changeset
538 }
anatofuz
parents:
diff changeset
539
anatofuz
parents:
diff changeset
540 Symbol *LinkerDriver::addUndefined(StringRef name) {
anatofuz
parents:
diff changeset
541 Symbol *b = symtab->addUndefined(name);
anatofuz
parents:
diff changeset
542 if (!b->isGCRoot) {
anatofuz
parents:
diff changeset
543 b->isGCRoot = true;
anatofuz
parents:
diff changeset
544 config->gcroot.push_back(b);
anatofuz
parents:
diff changeset
545 }
anatofuz
parents:
diff changeset
546 return b;
anatofuz
parents:
diff changeset
547 }
anatofuz
parents:
diff changeset
548
anatofuz
parents:
diff changeset
549 StringRef LinkerDriver::mangleMaybe(Symbol *s) {
anatofuz
parents:
diff changeset
550 // If the plain symbol name has already been resolved, do nothing.
anatofuz
parents:
diff changeset
551 Undefined *unmangled = dyn_cast<Undefined>(s);
anatofuz
parents:
diff changeset
552 if (!unmangled)
anatofuz
parents:
diff changeset
553 return "";
anatofuz
parents:
diff changeset
554
anatofuz
parents:
diff changeset
555 // Otherwise, see if a similar, mangled symbol exists in the symbol table.
anatofuz
parents:
diff changeset
556 Symbol *mangled = symtab->findMangle(unmangled->getName());
anatofuz
parents:
diff changeset
557 if (!mangled)
anatofuz
parents:
diff changeset
558 return "";
anatofuz
parents:
diff changeset
559
anatofuz
parents:
diff changeset
560 // If we find a similar mangled symbol, make this an alias to it and return
anatofuz
parents:
diff changeset
561 // its name.
anatofuz
parents:
diff changeset
562 log(unmangled->getName() + " aliased to " + mangled->getName());
anatofuz
parents:
diff changeset
563 unmangled->weakAlias = symtab->addUndefined(mangled->getName());
anatofuz
parents:
diff changeset
564 return mangled->getName();
anatofuz
parents:
diff changeset
565 }
anatofuz
parents:
diff changeset
566
anatofuz
parents:
diff changeset
567 // Windows specific -- find default entry point name.
anatofuz
parents:
diff changeset
568 //
anatofuz
parents:
diff changeset
569 // There are four different entry point functions for Windows executables,
anatofuz
parents:
diff changeset
570 // each of which corresponds to a user-defined "main" function. This function
anatofuz
parents:
diff changeset
571 // infers an entry point from a user-defined "main" function.
anatofuz
parents:
diff changeset
572 StringRef LinkerDriver::findDefaultEntry() {
anatofuz
parents:
diff changeset
573 assert(config->subsystem != IMAGE_SUBSYSTEM_UNKNOWN &&
anatofuz
parents:
diff changeset
574 "must handle /subsystem before calling this");
anatofuz
parents:
diff changeset
575
anatofuz
parents:
diff changeset
576 if (config->mingw)
anatofuz
parents:
diff changeset
577 return mangle(config->subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI
anatofuz
parents:
diff changeset
578 ? "WinMainCRTStartup"
anatofuz
parents:
diff changeset
579 : "mainCRTStartup");
anatofuz
parents:
diff changeset
580
anatofuz
parents:
diff changeset
581 if (config->subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI) {
anatofuz
parents:
diff changeset
582 if (findUnderscoreMangle("wWinMain")) {
anatofuz
parents:
diff changeset
583 if (!findUnderscoreMangle("WinMain"))
anatofuz
parents:
diff changeset
584 return mangle("wWinMainCRTStartup");
anatofuz
parents:
diff changeset
585 warn("found both wWinMain and WinMain; using latter");
anatofuz
parents:
diff changeset
586 }
anatofuz
parents:
diff changeset
587 return mangle("WinMainCRTStartup");
anatofuz
parents:
diff changeset
588 }
anatofuz
parents:
diff changeset
589 if (findUnderscoreMangle("wmain")) {
anatofuz
parents:
diff changeset
590 if (!findUnderscoreMangle("main"))
anatofuz
parents:
diff changeset
591 return mangle("wmainCRTStartup");
anatofuz
parents:
diff changeset
592 warn("found both wmain and main; using latter");
anatofuz
parents:
diff changeset
593 }
anatofuz
parents:
diff changeset
594 return mangle("mainCRTStartup");
anatofuz
parents:
diff changeset
595 }
anatofuz
parents:
diff changeset
596
anatofuz
parents:
diff changeset
597 WindowsSubsystem LinkerDriver::inferSubsystem() {
anatofuz
parents:
diff changeset
598 if (config->dll)
anatofuz
parents:
diff changeset
599 return IMAGE_SUBSYSTEM_WINDOWS_GUI;
anatofuz
parents:
diff changeset
600 if (config->mingw)
anatofuz
parents:
diff changeset
601 return IMAGE_SUBSYSTEM_WINDOWS_CUI;
anatofuz
parents:
diff changeset
602 // Note that link.exe infers the subsystem from the presence of these
anatofuz
parents:
diff changeset
603 // functions even if /entry: or /nodefaultlib are passed which causes them
anatofuz
parents:
diff changeset
604 // to not be called.
anatofuz
parents:
diff changeset
605 bool haveMain = findUnderscoreMangle("main");
anatofuz
parents:
diff changeset
606 bool haveWMain = findUnderscoreMangle("wmain");
anatofuz
parents:
diff changeset
607 bool haveWinMain = findUnderscoreMangle("WinMain");
anatofuz
parents:
diff changeset
608 bool haveWWinMain = findUnderscoreMangle("wWinMain");
anatofuz
parents:
diff changeset
609 if (haveMain || haveWMain) {
anatofuz
parents:
diff changeset
610 if (haveWinMain || haveWWinMain) {
anatofuz
parents:
diff changeset
611 warn(std::string("found ") + (haveMain ? "main" : "wmain") + " and " +
anatofuz
parents:
diff changeset
612 (haveWinMain ? "WinMain" : "wWinMain") +
anatofuz
parents:
diff changeset
613 "; defaulting to /subsystem:console");
anatofuz
parents:
diff changeset
614 }
anatofuz
parents:
diff changeset
615 return IMAGE_SUBSYSTEM_WINDOWS_CUI;
anatofuz
parents:
diff changeset
616 }
anatofuz
parents:
diff changeset
617 if (haveWinMain || haveWWinMain)
anatofuz
parents:
diff changeset
618 return IMAGE_SUBSYSTEM_WINDOWS_GUI;
anatofuz
parents:
diff changeset
619 return IMAGE_SUBSYSTEM_UNKNOWN;
anatofuz
parents:
diff changeset
620 }
anatofuz
parents:
diff changeset
621
anatofuz
parents:
diff changeset
622 static uint64_t getDefaultImageBase() {
anatofuz
parents:
diff changeset
623 if (config->is64())
anatofuz
parents:
diff changeset
624 return config->dll ? 0x180000000 : 0x140000000;
anatofuz
parents:
diff changeset
625 return config->dll ? 0x10000000 : 0x400000;
anatofuz
parents:
diff changeset
626 }
anatofuz
parents:
diff changeset
627
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
628 static std::string rewritePath(StringRef s) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
629 if (fs::exists(s))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
630 return relativeToRoot(s);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
631 return std::string(s);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
632 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
633
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
634 // Reconstructs command line arguments so that so that you can re-run
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
635 // the same command with the same inputs. This is for --reproduce.
150
anatofuz
parents:
diff changeset
636 static std::string createResponseFile(const opt::InputArgList &args,
anatofuz
parents:
diff changeset
637 ArrayRef<StringRef> filePaths,
anatofuz
parents:
diff changeset
638 ArrayRef<StringRef> searchPaths) {
anatofuz
parents:
diff changeset
639 SmallString<0> data;
anatofuz
parents:
diff changeset
640 raw_svector_ostream os(data);
anatofuz
parents:
diff changeset
641
anatofuz
parents:
diff changeset
642 for (auto *arg : args) {
anatofuz
parents:
diff changeset
643 switch (arg->getOption().getID()) {
anatofuz
parents:
diff changeset
644 case OPT_linkrepro:
anatofuz
parents:
diff changeset
645 case OPT_reproduce:
anatofuz
parents:
diff changeset
646 case OPT_INPUT:
anatofuz
parents:
diff changeset
647 case OPT_defaultlib:
anatofuz
parents:
diff changeset
648 case OPT_libpath:
anatofuz
parents:
diff changeset
649 case OPT_manifest:
anatofuz
parents:
diff changeset
650 case OPT_manifest_colon:
anatofuz
parents:
diff changeset
651 case OPT_manifestdependency:
anatofuz
parents:
diff changeset
652 case OPT_manifestfile:
anatofuz
parents:
diff changeset
653 case OPT_manifestinput:
anatofuz
parents:
diff changeset
654 case OPT_manifestuac:
anatofuz
parents:
diff changeset
655 break;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
656 case OPT_call_graph_ordering_file:
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
657 case OPT_deffile:
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
658 case OPT_natvis:
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
659 os << arg->getSpelling() << quote(rewritePath(arg->getValue())) << '\n';
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
660 break;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
661 case OPT_order: {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
662 StringRef orderFile = arg->getValue();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
663 orderFile.consume_front("@");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
664 os << arg->getSpelling() << '@' << quote(rewritePath(orderFile)) << '\n';
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
665 break;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
666 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
667 case OPT_pdbstream: {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
668 const std::pair<StringRef, StringRef> nameFile =
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
669 StringRef(arg->getValue()).split("=");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
670 os << arg->getSpelling() << nameFile.first << '='
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
671 << quote(rewritePath(nameFile.second)) << '\n';
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
672 break;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
673 }
150
anatofuz
parents:
diff changeset
674 case OPT_implib:
anatofuz
parents:
diff changeset
675 case OPT_pdb:
anatofuz
parents:
diff changeset
676 case OPT_pdbstripped:
anatofuz
parents:
diff changeset
677 case OPT_out:
anatofuz
parents:
diff changeset
678 os << arg->getSpelling() << sys::path::filename(arg->getValue()) << "\n";
anatofuz
parents:
diff changeset
679 break;
anatofuz
parents:
diff changeset
680 default:
anatofuz
parents:
diff changeset
681 os << toString(*arg) << "\n";
anatofuz
parents:
diff changeset
682 }
anatofuz
parents:
diff changeset
683 }
anatofuz
parents:
diff changeset
684
anatofuz
parents:
diff changeset
685 for (StringRef path : searchPaths) {
anatofuz
parents:
diff changeset
686 std::string relPath = relativeToRoot(path);
anatofuz
parents:
diff changeset
687 os << "/libpath:" << quote(relPath) << "\n";
anatofuz
parents:
diff changeset
688 }
anatofuz
parents:
diff changeset
689
anatofuz
parents:
diff changeset
690 for (StringRef path : filePaths)
anatofuz
parents:
diff changeset
691 os << quote(relativeToRoot(path)) << "\n";
anatofuz
parents:
diff changeset
692
anatofuz
parents:
diff changeset
693 return std::string(data.str());
anatofuz
parents:
diff changeset
694 }
anatofuz
parents:
diff changeset
695
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
696 enum class DebugKind {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
697 Unknown,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
698 None,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
699 Full,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
700 FastLink,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
701 GHash,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
702 NoGHash,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
703 Dwarf,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
704 Symtab
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
705 };
150
anatofuz
parents:
diff changeset
706
anatofuz
parents:
diff changeset
707 static DebugKind parseDebugKind(const opt::InputArgList &args) {
anatofuz
parents:
diff changeset
708 auto *a = args.getLastArg(OPT_debug, OPT_debug_opt);
anatofuz
parents:
diff changeset
709 if (!a)
anatofuz
parents:
diff changeset
710 return DebugKind::None;
anatofuz
parents:
diff changeset
711 if (a->getNumValues() == 0)
anatofuz
parents:
diff changeset
712 return DebugKind::Full;
anatofuz
parents:
diff changeset
713
anatofuz
parents:
diff changeset
714 DebugKind debug = StringSwitch<DebugKind>(a->getValue())
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
715 .CaseLower("none", DebugKind::None)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
716 .CaseLower("full", DebugKind::Full)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
717 .CaseLower("fastlink", DebugKind::FastLink)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
718 // LLD extensions
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
719 .CaseLower("ghash", DebugKind::GHash)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
720 .CaseLower("noghash", DebugKind::NoGHash)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
721 .CaseLower("dwarf", DebugKind::Dwarf)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
722 .CaseLower("symtab", DebugKind::Symtab)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
723 .Default(DebugKind::Unknown);
150
anatofuz
parents:
diff changeset
724
anatofuz
parents:
diff changeset
725 if (debug == DebugKind::FastLink) {
anatofuz
parents:
diff changeset
726 warn("/debug:fastlink unsupported; using /debug:full");
anatofuz
parents:
diff changeset
727 return DebugKind::Full;
anatofuz
parents:
diff changeset
728 }
anatofuz
parents:
diff changeset
729 if (debug == DebugKind::Unknown) {
anatofuz
parents:
diff changeset
730 error("/debug: unknown option: " + Twine(a->getValue()));
anatofuz
parents:
diff changeset
731 return DebugKind::None;
anatofuz
parents:
diff changeset
732 }
anatofuz
parents:
diff changeset
733 return debug;
anatofuz
parents:
diff changeset
734 }
anatofuz
parents:
diff changeset
735
anatofuz
parents:
diff changeset
736 static unsigned parseDebugTypes(const opt::InputArgList &args) {
anatofuz
parents:
diff changeset
737 unsigned debugTypes = static_cast<unsigned>(DebugType::None);
anatofuz
parents:
diff changeset
738
anatofuz
parents:
diff changeset
739 if (auto *a = args.getLastArg(OPT_debugtype)) {
anatofuz
parents:
diff changeset
740 SmallVector<StringRef, 3> types;
anatofuz
parents:
diff changeset
741 StringRef(a->getValue())
anatofuz
parents:
diff changeset
742 .split(types, ',', /*MaxSplit=*/-1, /*KeepEmpty=*/false);
anatofuz
parents:
diff changeset
743
anatofuz
parents:
diff changeset
744 for (StringRef type : types) {
anatofuz
parents:
diff changeset
745 unsigned v = StringSwitch<unsigned>(type.lower())
anatofuz
parents:
diff changeset
746 .Case("cv", static_cast<unsigned>(DebugType::CV))
anatofuz
parents:
diff changeset
747 .Case("pdata", static_cast<unsigned>(DebugType::PData))
anatofuz
parents:
diff changeset
748 .Case("fixup", static_cast<unsigned>(DebugType::Fixup))
anatofuz
parents:
diff changeset
749 .Default(0);
anatofuz
parents:
diff changeset
750 if (v == 0) {
anatofuz
parents:
diff changeset
751 warn("/debugtype: unknown option '" + type + "'");
anatofuz
parents:
diff changeset
752 continue;
anatofuz
parents:
diff changeset
753 }
anatofuz
parents:
diff changeset
754 debugTypes |= v;
anatofuz
parents:
diff changeset
755 }
anatofuz
parents:
diff changeset
756 return debugTypes;
anatofuz
parents:
diff changeset
757 }
anatofuz
parents:
diff changeset
758
anatofuz
parents:
diff changeset
759 // Default debug types
anatofuz
parents:
diff changeset
760 debugTypes = static_cast<unsigned>(DebugType::CV);
anatofuz
parents:
diff changeset
761 if (args.hasArg(OPT_driver))
anatofuz
parents:
diff changeset
762 debugTypes |= static_cast<unsigned>(DebugType::PData);
anatofuz
parents:
diff changeset
763 if (args.hasArg(OPT_profile))
anatofuz
parents:
diff changeset
764 debugTypes |= static_cast<unsigned>(DebugType::Fixup);
anatofuz
parents:
diff changeset
765
anatofuz
parents:
diff changeset
766 return debugTypes;
anatofuz
parents:
diff changeset
767 }
anatofuz
parents:
diff changeset
768
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
769 static std::string getMapFile(const opt::InputArgList &args,
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
770 opt::OptSpecifier os, opt::OptSpecifier osFile) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
771 auto *arg = args.getLastArg(os, osFile);
150
anatofuz
parents:
diff changeset
772 if (!arg)
anatofuz
parents:
diff changeset
773 return "";
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
774 if (arg->getOption().getID() == osFile.getID())
150
anatofuz
parents:
diff changeset
775 return arg->getValue();
anatofuz
parents:
diff changeset
776
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
777 assert(arg->getOption().getID() == os.getID());
150
anatofuz
parents:
diff changeset
778 StringRef outFile = config->outputFile;
anatofuz
parents:
diff changeset
779 return (outFile.substr(0, outFile.rfind('.')) + ".map").str();
anatofuz
parents:
diff changeset
780 }
anatofuz
parents:
diff changeset
781
anatofuz
parents:
diff changeset
782 static std::string getImplibPath() {
anatofuz
parents:
diff changeset
783 if (!config->implib.empty())
anatofuz
parents:
diff changeset
784 return std::string(config->implib);
anatofuz
parents:
diff changeset
785 SmallString<128> out = StringRef(config->outputFile);
anatofuz
parents:
diff changeset
786 sys::path::replace_extension(out, ".lib");
anatofuz
parents:
diff changeset
787 return std::string(out.str());
anatofuz
parents:
diff changeset
788 }
anatofuz
parents:
diff changeset
789
anatofuz
parents:
diff changeset
790 // The import name is calculated as follows:
anatofuz
parents:
diff changeset
791 //
anatofuz
parents:
diff changeset
792 // | LIBRARY w/ ext | LIBRARY w/o ext | no LIBRARY
anatofuz
parents:
diff changeset
793 // -----+----------------+---------------------+------------------
anatofuz
parents:
diff changeset
794 // LINK | {value} | {value}.{.dll/.exe} | {output name}
anatofuz
parents:
diff changeset
795 // LIB | {value} | {value}.dll | {output name}.dll
anatofuz
parents:
diff changeset
796 //
anatofuz
parents:
diff changeset
797 static std::string getImportName(bool asLib) {
anatofuz
parents:
diff changeset
798 SmallString<128> out;
anatofuz
parents:
diff changeset
799
anatofuz
parents:
diff changeset
800 if (config->importName.empty()) {
anatofuz
parents:
diff changeset
801 out.assign(sys::path::filename(config->outputFile));
anatofuz
parents:
diff changeset
802 if (asLib)
anatofuz
parents:
diff changeset
803 sys::path::replace_extension(out, ".dll");
anatofuz
parents:
diff changeset
804 } else {
anatofuz
parents:
diff changeset
805 out.assign(config->importName);
anatofuz
parents:
diff changeset
806 if (!sys::path::has_extension(out))
anatofuz
parents:
diff changeset
807 sys::path::replace_extension(out,
anatofuz
parents:
diff changeset
808 (config->dll || asLib) ? ".dll" : ".exe");
anatofuz
parents:
diff changeset
809 }
anatofuz
parents:
diff changeset
810
anatofuz
parents:
diff changeset
811 return std::string(out.str());
anatofuz
parents:
diff changeset
812 }
anatofuz
parents:
diff changeset
813
anatofuz
parents:
diff changeset
814 static void createImportLibrary(bool asLib) {
anatofuz
parents:
diff changeset
815 std::vector<COFFShortExport> exports;
anatofuz
parents:
diff changeset
816 for (Export &e1 : config->exports) {
anatofuz
parents:
diff changeset
817 COFFShortExport e2;
anatofuz
parents:
diff changeset
818 e2.Name = std::string(e1.name);
anatofuz
parents:
diff changeset
819 e2.SymbolName = std::string(e1.symbolName);
anatofuz
parents:
diff changeset
820 e2.ExtName = std::string(e1.extName);
anatofuz
parents:
diff changeset
821 e2.Ordinal = e1.ordinal;
anatofuz
parents:
diff changeset
822 e2.Noname = e1.noname;
anatofuz
parents:
diff changeset
823 e2.Data = e1.data;
anatofuz
parents:
diff changeset
824 e2.Private = e1.isPrivate;
anatofuz
parents:
diff changeset
825 e2.Constant = e1.constant;
anatofuz
parents:
diff changeset
826 exports.push_back(e2);
anatofuz
parents:
diff changeset
827 }
anatofuz
parents:
diff changeset
828
anatofuz
parents:
diff changeset
829 auto handleError = [](Error &&e) {
anatofuz
parents:
diff changeset
830 handleAllErrors(std::move(e),
anatofuz
parents:
diff changeset
831 [](ErrorInfoBase &eib) { error(eib.message()); });
anatofuz
parents:
diff changeset
832 };
anatofuz
parents:
diff changeset
833 std::string libName = getImportName(asLib);
anatofuz
parents:
diff changeset
834 std::string path = getImplibPath();
anatofuz
parents:
diff changeset
835
anatofuz
parents:
diff changeset
836 if (!config->incremental) {
anatofuz
parents:
diff changeset
837 handleError(writeImportLibrary(libName, path, exports, config->machine,
anatofuz
parents:
diff changeset
838 config->mingw));
anatofuz
parents:
diff changeset
839 return;
anatofuz
parents:
diff changeset
840 }
anatofuz
parents:
diff changeset
841
anatofuz
parents:
diff changeset
842 // If the import library already exists, replace it only if the contents
anatofuz
parents:
diff changeset
843 // have changed.
anatofuz
parents:
diff changeset
844 ErrorOr<std::unique_ptr<MemoryBuffer>> oldBuf = MemoryBuffer::getFile(
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
845 path, /*IsText=*/false, /*RequiresNullTerminator=*/false);
150
anatofuz
parents:
diff changeset
846 if (!oldBuf) {
anatofuz
parents:
diff changeset
847 handleError(writeImportLibrary(libName, path, exports, config->machine,
anatofuz
parents:
diff changeset
848 config->mingw));
anatofuz
parents:
diff changeset
849 return;
anatofuz
parents:
diff changeset
850 }
anatofuz
parents:
diff changeset
851
anatofuz
parents:
diff changeset
852 SmallString<128> tmpName;
anatofuz
parents:
diff changeset
853 if (std::error_code ec =
anatofuz
parents:
diff changeset
854 sys::fs::createUniqueFile(path + ".tmp-%%%%%%%%.lib", tmpName))
anatofuz
parents:
diff changeset
855 fatal("cannot create temporary file for import library " + path + ": " +
anatofuz
parents:
diff changeset
856 ec.message());
anatofuz
parents:
diff changeset
857
anatofuz
parents:
diff changeset
858 if (Error e = writeImportLibrary(libName, tmpName, exports, config->machine,
anatofuz
parents:
diff changeset
859 config->mingw)) {
anatofuz
parents:
diff changeset
860 handleError(std::move(e));
anatofuz
parents:
diff changeset
861 return;
anatofuz
parents:
diff changeset
862 }
anatofuz
parents:
diff changeset
863
anatofuz
parents:
diff changeset
864 std::unique_ptr<MemoryBuffer> newBuf = check(MemoryBuffer::getFile(
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
865 tmpName, /*IsText=*/false, /*RequiresNullTerminator=*/false));
150
anatofuz
parents:
diff changeset
866 if ((*oldBuf)->getBuffer() != newBuf->getBuffer()) {
anatofuz
parents:
diff changeset
867 oldBuf->reset();
anatofuz
parents:
diff changeset
868 handleError(errorCodeToError(sys::fs::rename(tmpName, path)));
anatofuz
parents:
diff changeset
869 } else {
anatofuz
parents:
diff changeset
870 sys::fs::remove(tmpName);
anatofuz
parents:
diff changeset
871 }
anatofuz
parents:
diff changeset
872 }
anatofuz
parents:
diff changeset
873
anatofuz
parents:
diff changeset
874 static void parseModuleDefs(StringRef path) {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
875 std::unique_ptr<MemoryBuffer> mb =
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
876 CHECK(MemoryBuffer::getFile(path, /*IsText=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
877 /*RequiresNullTerminator=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
878 /*IsVolatile=*/true),
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
879 "could not open " + path);
150
anatofuz
parents:
diff changeset
880 COFFModuleDefinition m = check(parseCOFFModuleDefinition(
anatofuz
parents:
diff changeset
881 mb->getMemBufferRef(), config->machine, config->mingw));
anatofuz
parents:
diff changeset
882
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
883 // Include in /reproduce: output if applicable.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
884 driver->takeBuffer(std::move(mb));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
885
150
anatofuz
parents:
diff changeset
886 if (config->outputFile.empty())
anatofuz
parents:
diff changeset
887 config->outputFile = std::string(saver.save(m.OutputFile));
anatofuz
parents:
diff changeset
888 config->importName = std::string(saver.save(m.ImportName));
anatofuz
parents:
diff changeset
889 if (m.ImageBase)
anatofuz
parents:
diff changeset
890 config->imageBase = m.ImageBase;
anatofuz
parents:
diff changeset
891 if (m.StackReserve)
anatofuz
parents:
diff changeset
892 config->stackReserve = m.StackReserve;
anatofuz
parents:
diff changeset
893 if (m.StackCommit)
anatofuz
parents:
diff changeset
894 config->stackCommit = m.StackCommit;
anatofuz
parents:
diff changeset
895 if (m.HeapReserve)
anatofuz
parents:
diff changeset
896 config->heapReserve = m.HeapReserve;
anatofuz
parents:
diff changeset
897 if (m.HeapCommit)
anatofuz
parents:
diff changeset
898 config->heapCommit = m.HeapCommit;
anatofuz
parents:
diff changeset
899 if (m.MajorImageVersion)
anatofuz
parents:
diff changeset
900 config->majorImageVersion = m.MajorImageVersion;
anatofuz
parents:
diff changeset
901 if (m.MinorImageVersion)
anatofuz
parents:
diff changeset
902 config->minorImageVersion = m.MinorImageVersion;
anatofuz
parents:
diff changeset
903 if (m.MajorOSVersion)
anatofuz
parents:
diff changeset
904 config->majorOSVersion = m.MajorOSVersion;
anatofuz
parents:
diff changeset
905 if (m.MinorOSVersion)
anatofuz
parents:
diff changeset
906 config->minorOSVersion = m.MinorOSVersion;
anatofuz
parents:
diff changeset
907
anatofuz
parents:
diff changeset
908 for (COFFShortExport e1 : m.Exports) {
anatofuz
parents:
diff changeset
909 Export e2;
anatofuz
parents:
diff changeset
910 // In simple cases, only Name is set. Renamed exports are parsed
anatofuz
parents:
diff changeset
911 // and set as "ExtName = Name". If Name has the form "OtherDll.Func",
anatofuz
parents:
diff changeset
912 // it shouldn't be a normal exported function but a forward to another
anatofuz
parents:
diff changeset
913 // DLL instead. This is supported by both MS and GNU linkers.
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
914 if (!e1.ExtName.empty() && e1.ExtName != e1.Name &&
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
915 StringRef(e1.Name).contains('.')) {
150
anatofuz
parents:
diff changeset
916 e2.name = saver.save(e1.ExtName);
anatofuz
parents:
diff changeset
917 e2.forwardTo = saver.save(e1.Name);
anatofuz
parents:
diff changeset
918 config->exports.push_back(e2);
anatofuz
parents:
diff changeset
919 continue;
anatofuz
parents:
diff changeset
920 }
anatofuz
parents:
diff changeset
921 e2.name = saver.save(e1.Name);
anatofuz
parents:
diff changeset
922 e2.extName = saver.save(e1.ExtName);
anatofuz
parents:
diff changeset
923 e2.ordinal = e1.Ordinal;
anatofuz
parents:
diff changeset
924 e2.noname = e1.Noname;
anatofuz
parents:
diff changeset
925 e2.data = e1.Data;
anatofuz
parents:
diff changeset
926 e2.isPrivate = e1.Private;
anatofuz
parents:
diff changeset
927 e2.constant = e1.Constant;
anatofuz
parents:
diff changeset
928 config->exports.push_back(e2);
anatofuz
parents:
diff changeset
929 }
anatofuz
parents:
diff changeset
930 }
anatofuz
parents:
diff changeset
931
anatofuz
parents:
diff changeset
932 void LinkerDriver::enqueueTask(std::function<void()> task) {
anatofuz
parents:
diff changeset
933 taskQueue.push_back(std::move(task));
anatofuz
parents:
diff changeset
934 }
anatofuz
parents:
diff changeset
935
anatofuz
parents:
diff changeset
936 bool LinkerDriver::run() {
anatofuz
parents:
diff changeset
937 ScopedTimer t(inputFileTimer);
anatofuz
parents:
diff changeset
938
anatofuz
parents:
diff changeset
939 bool didWork = !taskQueue.empty();
anatofuz
parents:
diff changeset
940 while (!taskQueue.empty()) {
anatofuz
parents:
diff changeset
941 taskQueue.front()();
anatofuz
parents:
diff changeset
942 taskQueue.pop_front();
anatofuz
parents:
diff changeset
943 }
anatofuz
parents:
diff changeset
944 return didWork;
anatofuz
parents:
diff changeset
945 }
anatofuz
parents:
diff changeset
946
anatofuz
parents:
diff changeset
947 // Parse an /order file. If an option is given, the linker places
anatofuz
parents:
diff changeset
948 // COMDAT sections in the same order as their names appear in the
anatofuz
parents:
diff changeset
949 // given file.
anatofuz
parents:
diff changeset
950 static void parseOrderFile(StringRef arg) {
anatofuz
parents:
diff changeset
951 // For some reason, the MSVC linker requires a filename to be
anatofuz
parents:
diff changeset
952 // preceded by "@".
anatofuz
parents:
diff changeset
953 if (!arg.startswith("@")) {
anatofuz
parents:
diff changeset
954 error("malformed /order option: '@' missing");
anatofuz
parents:
diff changeset
955 return;
anatofuz
parents:
diff changeset
956 }
anatofuz
parents:
diff changeset
957
anatofuz
parents:
diff changeset
958 // Get a list of all comdat sections for error checking.
anatofuz
parents:
diff changeset
959 DenseSet<StringRef> set;
anatofuz
parents:
diff changeset
960 for (Chunk *c : symtab->getChunks())
anatofuz
parents:
diff changeset
961 if (auto *sec = dyn_cast<SectionChunk>(c))
anatofuz
parents:
diff changeset
962 if (sec->sym)
anatofuz
parents:
diff changeset
963 set.insert(sec->sym->getName());
anatofuz
parents:
diff changeset
964
anatofuz
parents:
diff changeset
965 // Open a file.
anatofuz
parents:
diff changeset
966 StringRef path = arg.substr(1);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
967 std::unique_ptr<MemoryBuffer> mb =
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
968 CHECK(MemoryBuffer::getFile(path, /*IsText=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
969 /*RequiresNullTerminator=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
970 /*IsVolatile=*/true),
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
971 "could not open " + path);
150
anatofuz
parents:
diff changeset
972
anatofuz
parents:
diff changeset
973 // Parse a file. An order file contains one symbol per line.
anatofuz
parents:
diff changeset
974 // All symbols that were not present in a given order file are
anatofuz
parents:
diff changeset
975 // considered to have the lowest priority 0 and are placed at
anatofuz
parents:
diff changeset
976 // end of an output section.
anatofuz
parents:
diff changeset
977 for (StringRef arg : args::getLines(mb->getMemBufferRef())) {
anatofuz
parents:
diff changeset
978 std::string s(arg);
anatofuz
parents:
diff changeset
979 if (config->machine == I386 && !isDecorated(s))
anatofuz
parents:
diff changeset
980 s = "_" + s;
anatofuz
parents:
diff changeset
981
anatofuz
parents:
diff changeset
982 if (set.count(s) == 0) {
anatofuz
parents:
diff changeset
983 if (config->warnMissingOrderSymbol)
anatofuz
parents:
diff changeset
984 warn("/order:" + arg + ": missing symbol: " + s + " [LNK4037]");
anatofuz
parents:
diff changeset
985 }
anatofuz
parents:
diff changeset
986 else
anatofuz
parents:
diff changeset
987 config->order[s] = INT_MIN + config->order.size();
anatofuz
parents:
diff changeset
988 }
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
989
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
990 // Include in /reproduce: output if applicable.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
991 driver->takeBuffer(std::move(mb));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
992 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
993
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
994 static void parseCallGraphFile(StringRef path) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
995 std::unique_ptr<MemoryBuffer> mb =
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
996 CHECK(MemoryBuffer::getFile(path, /*IsText=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
997 /*RequiresNullTerminator=*/false,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
998 /*IsVolatile=*/true),
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
999 "could not open " + path);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1000
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1001 // Build a map from symbol name to section.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1002 DenseMap<StringRef, Symbol *> map;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1003 for (ObjFile *file : ObjFile::instances)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1004 for (Symbol *sym : file->getSymbols())
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1005 if (sym)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1006 map[sym->getName()] = sym;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1007
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1008 auto findSection = [&](StringRef name) -> SectionChunk * {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1009 Symbol *sym = map.lookup(name);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1010 if (!sym) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1011 if (config->warnMissingOrderSymbol)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1012 warn(path + ": no such symbol: " + name);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1013 return nullptr;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1014 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1015
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1016 if (DefinedCOFF *dr = dyn_cast_or_null<DefinedCOFF>(sym))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1017 return dyn_cast_or_null<SectionChunk>(dr->getChunk());
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1018 return nullptr;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1019 };
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1020
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1021 for (StringRef line : args::getLines(*mb)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1022 SmallVector<StringRef, 3> fields;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1023 line.split(fields, ' ');
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1024 uint64_t count;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1025
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1026 if (fields.size() != 3 || !to_integer(fields[2], count)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1027 error(path + ": parse error");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1028 return;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1029 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1030
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1031 if (SectionChunk *from = findSection(fields[0]))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1032 if (SectionChunk *to = findSection(fields[1]))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1033 config->callGraphProfile[{from, to}] += count;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1034 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1035
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1036 // Include in /reproduce: output if applicable.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1037 driver->takeBuffer(std::move(mb));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1038 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1039
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1040 static void readCallGraphsFromObjectFiles() {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1041 for (ObjFile *obj : ObjFile::instances) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1042 if (obj->callgraphSec) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1043 ArrayRef<uint8_t> contents;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1044 cantFail(
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1045 obj->getCOFFObj()->getSectionContents(obj->callgraphSec, contents));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1046 BinaryStreamReader reader(contents, support::little);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1047 while (!reader.empty()) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1048 uint32_t fromIndex, toIndex;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1049 uint64_t count;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1050 if (Error err = reader.readInteger(fromIndex))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1051 fatal(toString(obj) + ": Expected 32-bit integer");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1052 if (Error err = reader.readInteger(toIndex))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1053 fatal(toString(obj) + ": Expected 32-bit integer");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1054 if (Error err = reader.readInteger(count))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1055 fatal(toString(obj) + ": Expected 64-bit integer");
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1056 auto *fromSym = dyn_cast_or_null<Defined>(obj->getSymbol(fromIndex));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1057 auto *toSym = dyn_cast_or_null<Defined>(obj->getSymbol(toIndex));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1058 if (!fromSym || !toSym)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1059 continue;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1060 auto *from = dyn_cast_or_null<SectionChunk>(fromSym->getChunk());
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1061 auto *to = dyn_cast_or_null<SectionChunk>(toSym->getChunk());
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1062 if (from && to)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1063 config->callGraphProfile[{from, to}] += count;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1064 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1065 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1066 }
150
anatofuz
parents:
diff changeset
1067 }
anatofuz
parents:
diff changeset
1068
anatofuz
parents:
diff changeset
1069 static void markAddrsig(Symbol *s) {
anatofuz
parents:
diff changeset
1070 if (auto *d = dyn_cast_or_null<Defined>(s))
anatofuz
parents:
diff changeset
1071 if (SectionChunk *c = dyn_cast_or_null<SectionChunk>(d->getChunk()))
anatofuz
parents:
diff changeset
1072 c->keepUnique = true;
anatofuz
parents:
diff changeset
1073 }
anatofuz
parents:
diff changeset
1074
anatofuz
parents:
diff changeset
1075 static void findKeepUniqueSections() {
anatofuz
parents:
diff changeset
1076 // Exported symbols could be address-significant in other executables or DSOs,
anatofuz
parents:
diff changeset
1077 // so we conservatively mark them as address-significant.
anatofuz
parents:
diff changeset
1078 for (Export &r : config->exports)
anatofuz
parents:
diff changeset
1079 markAddrsig(r.sym);
anatofuz
parents:
diff changeset
1080
anatofuz
parents:
diff changeset
1081 // Visit the address-significance table in each object file and mark each
anatofuz
parents:
diff changeset
1082 // referenced symbol as address-significant.
anatofuz
parents:
diff changeset
1083 for (ObjFile *obj : ObjFile::instances) {
anatofuz
parents:
diff changeset
1084 ArrayRef<Symbol *> syms = obj->getSymbols();
anatofuz
parents:
diff changeset
1085 if (obj->addrsigSec) {
anatofuz
parents:
diff changeset
1086 ArrayRef<uint8_t> contents;
anatofuz
parents:
diff changeset
1087 cantFail(
anatofuz
parents:
diff changeset
1088 obj->getCOFFObj()->getSectionContents(obj->addrsigSec, contents));
anatofuz
parents:
diff changeset
1089 const uint8_t *cur = contents.begin();
anatofuz
parents:
diff changeset
1090 while (cur != contents.end()) {
anatofuz
parents:
diff changeset
1091 unsigned size;
anatofuz
parents:
diff changeset
1092 const char *err;
anatofuz
parents:
diff changeset
1093 uint64_t symIndex = decodeULEB128(cur, &size, contents.end(), &err);
anatofuz
parents:
diff changeset
1094 if (err)
anatofuz
parents:
diff changeset
1095 fatal(toString(obj) + ": could not decode addrsig section: " + err);
anatofuz
parents:
diff changeset
1096 if (symIndex >= syms.size())
anatofuz
parents:
diff changeset
1097 fatal(toString(obj) + ": invalid symbol index in addrsig section");
anatofuz
parents:
diff changeset
1098 markAddrsig(syms[symIndex]);
anatofuz
parents:
diff changeset
1099 cur += size;
anatofuz
parents:
diff changeset
1100 }
anatofuz
parents:
diff changeset
1101 } else {
anatofuz
parents:
diff changeset
1102 // If an object file does not have an address-significance table,
anatofuz
parents:
diff changeset
1103 // conservatively mark all of its symbols as address-significant.
anatofuz
parents:
diff changeset
1104 for (Symbol *s : syms)
anatofuz
parents:
diff changeset
1105 markAddrsig(s);
anatofuz
parents:
diff changeset
1106 }
anatofuz
parents:
diff changeset
1107 }
anatofuz
parents:
diff changeset
1108 }
anatofuz
parents:
diff changeset
1109
anatofuz
parents:
diff changeset
1110 // link.exe replaces each %foo% in altPath with the contents of environment
anatofuz
parents:
diff changeset
1111 // variable foo, and adds the two magic env vars _PDB (expands to the basename
anatofuz
parents:
diff changeset
1112 // of pdb's output path) and _EXT (expands to the extension of the output
anatofuz
parents:
diff changeset
1113 // binary).
anatofuz
parents:
diff changeset
1114 // lld only supports %_PDB% and %_EXT% and warns on references to all other env
anatofuz
parents:
diff changeset
1115 // vars.
anatofuz
parents:
diff changeset
1116 static void parsePDBAltPath(StringRef altPath) {
anatofuz
parents:
diff changeset
1117 SmallString<128> buf;
anatofuz
parents:
diff changeset
1118 StringRef pdbBasename =
anatofuz
parents:
diff changeset
1119 sys::path::filename(config->pdbPath, sys::path::Style::windows);
anatofuz
parents:
diff changeset
1120 StringRef binaryExtension =
anatofuz
parents:
diff changeset
1121 sys::path::extension(config->outputFile, sys::path::Style::windows);
anatofuz
parents:
diff changeset
1122 if (!binaryExtension.empty())
anatofuz
parents:
diff changeset
1123 binaryExtension = binaryExtension.substr(1); // %_EXT% does not include '.'.
anatofuz
parents:
diff changeset
1124
anatofuz
parents:
diff changeset
1125 // Invariant:
anatofuz
parents:
diff changeset
1126 // +--------- cursor ('a...' might be the empty string).
anatofuz
parents:
diff changeset
1127 // | +----- firstMark
anatofuz
parents:
diff changeset
1128 // | | +- secondMark
anatofuz
parents:
diff changeset
1129 // v v v
anatofuz
parents:
diff changeset
1130 // a...%...%...
anatofuz
parents:
diff changeset
1131 size_t cursor = 0;
anatofuz
parents:
diff changeset
1132 while (cursor < altPath.size()) {
anatofuz
parents:
diff changeset
1133 size_t firstMark, secondMark;
anatofuz
parents:
diff changeset
1134 if ((firstMark = altPath.find('%', cursor)) == StringRef::npos ||
anatofuz
parents:
diff changeset
1135 (secondMark = altPath.find('%', firstMark + 1)) == StringRef::npos) {
anatofuz
parents:
diff changeset
1136 // Didn't find another full fragment, treat rest of string as literal.
anatofuz
parents:
diff changeset
1137 buf.append(altPath.substr(cursor));
anatofuz
parents:
diff changeset
1138 break;
anatofuz
parents:
diff changeset
1139 }
anatofuz
parents:
diff changeset
1140
anatofuz
parents:
diff changeset
1141 // Found a full fragment. Append text in front of first %, and interpret
anatofuz
parents:
diff changeset
1142 // text between first and second % as variable name.
anatofuz
parents:
diff changeset
1143 buf.append(altPath.substr(cursor, firstMark - cursor));
anatofuz
parents:
diff changeset
1144 StringRef var = altPath.substr(firstMark, secondMark - firstMark + 1);
anatofuz
parents:
diff changeset
1145 if (var.equals_lower("%_pdb%"))
anatofuz
parents:
diff changeset
1146 buf.append(pdbBasename);
anatofuz
parents:
diff changeset
1147 else if (var.equals_lower("%_ext%"))
anatofuz
parents:
diff changeset
1148 buf.append(binaryExtension);
anatofuz
parents:
diff changeset
1149 else {
anatofuz
parents:
diff changeset
1150 warn("only %_PDB% and %_EXT% supported in /pdbaltpath:, keeping " +
anatofuz
parents:
diff changeset
1151 var + " as literal");
anatofuz
parents:
diff changeset
1152 buf.append(var);
anatofuz
parents:
diff changeset
1153 }
anatofuz
parents:
diff changeset
1154
anatofuz
parents:
diff changeset
1155 cursor = secondMark + 1;
anatofuz
parents:
diff changeset
1156 }
anatofuz
parents:
diff changeset
1157
anatofuz
parents:
diff changeset
1158 config->pdbAltPath = buf;
anatofuz
parents:
diff changeset
1159 }
anatofuz
parents:
diff changeset
1160
anatofuz
parents:
diff changeset
1161 /// Convert resource files and potentially merge input resource object
anatofuz
parents:
diff changeset
1162 /// trees into one resource tree.
anatofuz
parents:
diff changeset
1163 /// Call after ObjFile::Instances is complete.
anatofuz
parents:
diff changeset
1164 void LinkerDriver::convertResources() {
anatofuz
parents:
diff changeset
1165 std::vector<ObjFile *> resourceObjFiles;
anatofuz
parents:
diff changeset
1166
anatofuz
parents:
diff changeset
1167 for (ObjFile *f : ObjFile::instances) {
anatofuz
parents:
diff changeset
1168 if (f->isResourceObjFile())
anatofuz
parents:
diff changeset
1169 resourceObjFiles.push_back(f);
anatofuz
parents:
diff changeset
1170 }
anatofuz
parents:
diff changeset
1171
anatofuz
parents:
diff changeset
1172 if (!config->mingw &&
anatofuz
parents:
diff changeset
1173 (resourceObjFiles.size() > 1 ||
anatofuz
parents:
diff changeset
1174 (resourceObjFiles.size() == 1 && !resources.empty()))) {
anatofuz
parents:
diff changeset
1175 error((!resources.empty() ? "internal .obj file created from .res files"
anatofuz
parents:
diff changeset
1176 : toString(resourceObjFiles[1])) +
anatofuz
parents:
diff changeset
1177 ": more than one resource obj file not allowed, already got " +
anatofuz
parents:
diff changeset
1178 toString(resourceObjFiles.front()));
anatofuz
parents:
diff changeset
1179 return;
anatofuz
parents:
diff changeset
1180 }
anatofuz
parents:
diff changeset
1181
anatofuz
parents:
diff changeset
1182 if (resources.empty() && resourceObjFiles.size() <= 1) {
anatofuz
parents:
diff changeset
1183 // No resources to convert, and max one resource object file in
anatofuz
parents:
diff changeset
1184 // the input. Keep that preconverted resource section as is.
anatofuz
parents:
diff changeset
1185 for (ObjFile *f : resourceObjFiles)
anatofuz
parents:
diff changeset
1186 f->includeResourceChunks();
anatofuz
parents:
diff changeset
1187 return;
anatofuz
parents:
diff changeset
1188 }
anatofuz
parents:
diff changeset
1189 ObjFile *f = make<ObjFile>(convertResToCOFF(resources, resourceObjFiles));
anatofuz
parents:
diff changeset
1190 symtab->addFile(f);
anatofuz
parents:
diff changeset
1191 f->includeResourceChunks();
anatofuz
parents:
diff changeset
1192 }
anatofuz
parents:
diff changeset
1193
anatofuz
parents:
diff changeset
1194 // In MinGW, if no symbols are chosen to be exported, then all symbols are
anatofuz
parents:
diff changeset
1195 // automatically exported by default. This behavior can be forced by the
anatofuz
parents:
diff changeset
1196 // -export-all-symbols option, so that it happens even when exports are
anatofuz
parents:
diff changeset
1197 // explicitly specified. The automatic behavior can be disabled using the
anatofuz
parents:
diff changeset
1198 // -exclude-all-symbols option, so that lld-link behaves like link.exe rather
anatofuz
parents:
diff changeset
1199 // than MinGW in the case that nothing is explicitly exported.
anatofuz
parents:
diff changeset
1200 void LinkerDriver::maybeExportMinGWSymbols(const opt::InputArgList &args) {
anatofuz
parents:
diff changeset
1201 if (!config->dll)
anatofuz
parents:
diff changeset
1202 return;
anatofuz
parents:
diff changeset
1203
anatofuz
parents:
diff changeset
1204 if (!args.hasArg(OPT_export_all_symbols)) {
anatofuz
parents:
diff changeset
1205 if (!config->exports.empty())
anatofuz
parents:
diff changeset
1206 return;
anatofuz
parents:
diff changeset
1207 if (args.hasArg(OPT_exclude_all_symbols))
anatofuz
parents:
diff changeset
1208 return;
anatofuz
parents:
diff changeset
1209 }
anatofuz
parents:
diff changeset
1210
anatofuz
parents:
diff changeset
1211 AutoExporter exporter;
anatofuz
parents:
diff changeset
1212
anatofuz
parents:
diff changeset
1213 for (auto *arg : args.filtered(OPT_wholearchive_file))
anatofuz
parents:
diff changeset
1214 if (Optional<StringRef> path = doFindFile(arg->getValue()))
anatofuz
parents:
diff changeset
1215 exporter.addWholeArchive(*path);
anatofuz
parents:
diff changeset
1216
anatofuz
parents:
diff changeset
1217 symtab->forEachSymbol([&](Symbol *s) {
anatofuz
parents:
diff changeset
1218 auto *def = dyn_cast<Defined>(s);
anatofuz
parents:
diff changeset
1219 if (!exporter.shouldExport(def))
anatofuz
parents:
diff changeset
1220 return;
anatofuz
parents:
diff changeset
1221
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1222 if (!def->isGCRoot) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1223 def->isGCRoot = true;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1224 config->gcroot.push_back(def);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1225 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1226
150
anatofuz
parents:
diff changeset
1227 Export e;
anatofuz
parents:
diff changeset
1228 e.name = def->getName();
anatofuz
parents:
diff changeset
1229 e.sym = def;
anatofuz
parents:
diff changeset
1230 if (Chunk *c = def->getChunk())
anatofuz
parents:
diff changeset
1231 if (!(c->getOutputCharacteristics() & IMAGE_SCN_MEM_EXECUTE))
anatofuz
parents:
diff changeset
1232 e.data = true;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1233 s->isUsedInRegularObj = true;
150
anatofuz
parents:
diff changeset
1234 config->exports.push_back(e);
anatofuz
parents:
diff changeset
1235 });
anatofuz
parents:
diff changeset
1236 }
anatofuz
parents:
diff changeset
1237
anatofuz
parents:
diff changeset
1238 // lld has a feature to create a tar file containing all input files as well as
anatofuz
parents:
diff changeset
1239 // all command line options, so that other people can run lld again with exactly
anatofuz
parents:
diff changeset
1240 // the same inputs. This feature is accessible via /linkrepro and /reproduce.
anatofuz
parents:
diff changeset
1241 //
anatofuz
parents:
diff changeset
1242 // /linkrepro and /reproduce are very similar, but /linkrepro takes a directory
anatofuz
parents:
diff changeset
1243 // name while /reproduce takes a full path. We have /linkrepro for compatibility
anatofuz
parents:
diff changeset
1244 // with Microsoft link.exe.
anatofuz
parents:
diff changeset
1245 Optional<std::string> getReproduceFile(const opt::InputArgList &args) {
anatofuz
parents:
diff changeset
1246 if (auto *arg = args.getLastArg(OPT_reproduce))
anatofuz
parents:
diff changeset
1247 return std::string(arg->getValue());
anatofuz
parents:
diff changeset
1248
anatofuz
parents:
diff changeset
1249 if (auto *arg = args.getLastArg(OPT_linkrepro)) {
anatofuz
parents:
diff changeset
1250 SmallString<64> path = StringRef(arg->getValue());
anatofuz
parents:
diff changeset
1251 sys::path::append(path, "repro.tar");
anatofuz
parents:
diff changeset
1252 return std::string(path);
anatofuz
parents:
diff changeset
1253 }
anatofuz
parents:
diff changeset
1254
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1255 // This is intentionally not guarded by OPT_lldignoreenv since writing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1256 // a repro tar file doesn't affect the main output.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1257 if (auto *path = getenv("LLD_REPRODUCE"))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1258 return std::string(path);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1259
150
anatofuz
parents:
diff changeset
1260 return None;
anatofuz
parents:
diff changeset
1261 }
anatofuz
parents:
diff changeset
1262
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1263 void LinkerDriver::linkerMain(ArrayRef<const char *> argsArr) {
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1264 ScopedTimer rootTimer(Timer::root());
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1265
150
anatofuz
parents:
diff changeset
1266 // Needed for LTO.
anatofuz
parents:
diff changeset
1267 InitializeAllTargetInfos();
anatofuz
parents:
diff changeset
1268 InitializeAllTargets();
anatofuz
parents:
diff changeset
1269 InitializeAllTargetMCs();
anatofuz
parents:
diff changeset
1270 InitializeAllAsmParsers();
anatofuz
parents:
diff changeset
1271 InitializeAllAsmPrinters();
anatofuz
parents:
diff changeset
1272
anatofuz
parents:
diff changeset
1273 // If the first command line argument is "/lib", link.exe acts like lib.exe.
anatofuz
parents:
diff changeset
1274 // We call our own implementation of lib.exe that understands bitcode files.
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1275 if (argsArr.size() > 1 && (StringRef(argsArr[1]).equals_lower("/lib") ||
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1276 StringRef(argsArr[1]).equals_lower("-lib"))) {
150
anatofuz
parents:
diff changeset
1277 if (llvm::libDriverMain(argsArr.slice(1)) != 0)
anatofuz
parents:
diff changeset
1278 fatal("lib failed");
anatofuz
parents:
diff changeset
1279 return;
anatofuz
parents:
diff changeset
1280 }
anatofuz
parents:
diff changeset
1281
anatofuz
parents:
diff changeset
1282 // Parse command line options.
anatofuz
parents:
diff changeset
1283 ArgParser parser;
anatofuz
parents:
diff changeset
1284 opt::InputArgList args = parser.parse(argsArr);
anatofuz
parents:
diff changeset
1285
anatofuz
parents:
diff changeset
1286 // Parse and evaluate -mllvm options.
anatofuz
parents:
diff changeset
1287 std::vector<const char *> v;
anatofuz
parents:
diff changeset
1288 v.push_back("lld-link (LLVM option parsing)");
anatofuz
parents:
diff changeset
1289 for (auto *arg : args.filtered(OPT_mllvm))
anatofuz
parents:
diff changeset
1290 v.push_back(arg->getValue());
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1291 cl::ResetAllOptionOccurrences();
150
anatofuz
parents:
diff changeset
1292 cl::ParseCommandLineOptions(v.size(), v.data());
anatofuz
parents:
diff changeset
1293
anatofuz
parents:
diff changeset
1294 // Handle /errorlimit early, because error() depends on it.
anatofuz
parents:
diff changeset
1295 if (auto *arg = args.getLastArg(OPT_errorlimit)) {
anatofuz
parents:
diff changeset
1296 int n = 20;
anatofuz
parents:
diff changeset
1297 StringRef s = arg->getValue();
anatofuz
parents:
diff changeset
1298 if (s.getAsInteger(10, n))
anatofuz
parents:
diff changeset
1299 error(arg->getSpelling() + " number expected, but got " + s);
anatofuz
parents:
diff changeset
1300 errorHandler().errorLimit = n;
anatofuz
parents:
diff changeset
1301 }
anatofuz
parents:
diff changeset
1302
anatofuz
parents:
diff changeset
1303 // Handle /help
anatofuz
parents:
diff changeset
1304 if (args.hasArg(OPT_help)) {
anatofuz
parents:
diff changeset
1305 printHelp(argsArr[0]);
anatofuz
parents:
diff changeset
1306 return;
anatofuz
parents:
diff changeset
1307 }
anatofuz
parents:
diff changeset
1308
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1309 // /threads: takes a positive integer and provides the default value for
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1310 // /opt:lldltojobs=.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1311 if (auto *arg = args.getLastArg(OPT_threads)) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1312 StringRef v(arg->getValue());
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1313 unsigned threads = 0;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1314 if (!llvm::to_integer(v, threads, 0) || threads == 0)
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1315 error(arg->getSpelling() + ": expected a positive integer, but got '" +
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1316 arg->getValue() + "'");
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1317 parallel::strategy = hardware_concurrency(threads);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1318 config->thinLTOJobs = v.str();
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1319 }
150
anatofuz
parents:
diff changeset
1320
anatofuz
parents:
diff changeset
1321 if (args.hasArg(OPT_show_timing))
anatofuz
parents:
diff changeset
1322 config->showTiming = true;
anatofuz
parents:
diff changeset
1323
anatofuz
parents:
diff changeset
1324 config->showSummary = args.hasArg(OPT_summary);
anatofuz
parents:
diff changeset
1325
anatofuz
parents:
diff changeset
1326 // Handle --version, which is an lld extension. This option is a bit odd
anatofuz
parents:
diff changeset
1327 // because it doesn't start with "/", but we deliberately chose "--" to
anatofuz
parents:
diff changeset
1328 // avoid conflict with /version and for compatibility with clang-cl.
anatofuz
parents:
diff changeset
1329 if (args.hasArg(OPT_dash_dash_version)) {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1330 message(getLLDVersion());
150
anatofuz
parents:
diff changeset
1331 return;
anatofuz
parents:
diff changeset
1332 }
anatofuz
parents:
diff changeset
1333
anatofuz
parents:
diff changeset
1334 // Handle /lldmingw early, since it can potentially affect how other
anatofuz
parents:
diff changeset
1335 // options are handled.
anatofuz
parents:
diff changeset
1336 config->mingw = args.hasArg(OPT_lldmingw);
anatofuz
parents:
diff changeset
1337
anatofuz
parents:
diff changeset
1338 // Handle /linkrepro and /reproduce.
anatofuz
parents:
diff changeset
1339 if (Optional<std::string> path = getReproduceFile(args)) {
anatofuz
parents:
diff changeset
1340 Expected<std::unique_ptr<TarWriter>> errOrWriter =
anatofuz
parents:
diff changeset
1341 TarWriter::create(*path, sys::path::stem(*path));
anatofuz
parents:
diff changeset
1342
anatofuz
parents:
diff changeset
1343 if (errOrWriter) {
anatofuz
parents:
diff changeset
1344 tar = std::move(*errOrWriter);
anatofuz
parents:
diff changeset
1345 } else {
anatofuz
parents:
diff changeset
1346 error("/linkrepro: failed to open " + *path + ": " +
anatofuz
parents:
diff changeset
1347 toString(errOrWriter.takeError()));
anatofuz
parents:
diff changeset
1348 }
anatofuz
parents:
diff changeset
1349 }
anatofuz
parents:
diff changeset
1350
anatofuz
parents:
diff changeset
1351 if (!args.hasArg(OPT_INPUT, OPT_wholearchive_file)) {
anatofuz
parents:
diff changeset
1352 if (args.hasArg(OPT_deffile))
anatofuz
parents:
diff changeset
1353 config->noEntry = true;
anatofuz
parents:
diff changeset
1354 else
anatofuz
parents:
diff changeset
1355 fatal("no input files");
anatofuz
parents:
diff changeset
1356 }
anatofuz
parents:
diff changeset
1357
anatofuz
parents:
diff changeset
1358 // Construct search path list.
anatofuz
parents:
diff changeset
1359 searchPaths.push_back("");
anatofuz
parents:
diff changeset
1360 for (auto *arg : args.filtered(OPT_libpath))
anatofuz
parents:
diff changeset
1361 searchPaths.push_back(arg->getValue());
anatofuz
parents:
diff changeset
1362 if (!args.hasArg(OPT_lldignoreenv))
anatofuz
parents:
diff changeset
1363 addLibSearchPaths();
anatofuz
parents:
diff changeset
1364
anatofuz
parents:
diff changeset
1365 // Handle /ignore
anatofuz
parents:
diff changeset
1366 for (auto *arg : args.filtered(OPT_ignore)) {
anatofuz
parents:
diff changeset
1367 SmallVector<StringRef, 8> vec;
anatofuz
parents:
diff changeset
1368 StringRef(arg->getValue()).split(vec, ',');
anatofuz
parents:
diff changeset
1369 for (StringRef s : vec) {
anatofuz
parents:
diff changeset
1370 if (s == "4037")
anatofuz
parents:
diff changeset
1371 config->warnMissingOrderSymbol = false;
anatofuz
parents:
diff changeset
1372 else if (s == "4099")
anatofuz
parents:
diff changeset
1373 config->warnDebugInfoUnusable = false;
anatofuz
parents:
diff changeset
1374 else if (s == "4217")
anatofuz
parents:
diff changeset
1375 config->warnLocallyDefinedImported = false;
anatofuz
parents:
diff changeset
1376 else if (s == "longsections")
anatofuz
parents:
diff changeset
1377 config->warnLongSectionNames = false;
anatofuz
parents:
diff changeset
1378 // Other warning numbers are ignored.
anatofuz
parents:
diff changeset
1379 }
anatofuz
parents:
diff changeset
1380 }
anatofuz
parents:
diff changeset
1381
anatofuz
parents:
diff changeset
1382 // Handle /out
anatofuz
parents:
diff changeset
1383 if (auto *arg = args.getLastArg(OPT_out))
anatofuz
parents:
diff changeset
1384 config->outputFile = arg->getValue();
anatofuz
parents:
diff changeset
1385
anatofuz
parents:
diff changeset
1386 // Handle /verbose
anatofuz
parents:
diff changeset
1387 if (args.hasArg(OPT_verbose))
anatofuz
parents:
diff changeset
1388 config->verbose = true;
anatofuz
parents:
diff changeset
1389 errorHandler().verbose = config->verbose;
anatofuz
parents:
diff changeset
1390
anatofuz
parents:
diff changeset
1391 // Handle /force or /force:unresolved
anatofuz
parents:
diff changeset
1392 if (args.hasArg(OPT_force, OPT_force_unresolved))
anatofuz
parents:
diff changeset
1393 config->forceUnresolved = true;
anatofuz
parents:
diff changeset
1394
anatofuz
parents:
diff changeset
1395 // Handle /force or /force:multiple
anatofuz
parents:
diff changeset
1396 if (args.hasArg(OPT_force, OPT_force_multiple))
anatofuz
parents:
diff changeset
1397 config->forceMultiple = true;
anatofuz
parents:
diff changeset
1398
anatofuz
parents:
diff changeset
1399 // Handle /force or /force:multipleres
anatofuz
parents:
diff changeset
1400 if (args.hasArg(OPT_force, OPT_force_multipleres))
anatofuz
parents:
diff changeset
1401 config->forceMultipleRes = true;
anatofuz
parents:
diff changeset
1402
anatofuz
parents:
diff changeset
1403 // Handle /debug
anatofuz
parents:
diff changeset
1404 DebugKind debug = parseDebugKind(args);
anatofuz
parents:
diff changeset
1405 if (debug == DebugKind::Full || debug == DebugKind::Dwarf ||
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1406 debug == DebugKind::GHash || debug == DebugKind::NoGHash) {
150
anatofuz
parents:
diff changeset
1407 config->debug = true;
anatofuz
parents:
diff changeset
1408 config->incremental = true;
anatofuz
parents:
diff changeset
1409 }
anatofuz
parents:
diff changeset
1410
anatofuz
parents:
diff changeset
1411 // Handle /demangle
anatofuz
parents:
diff changeset
1412 config->demangle = args.hasFlag(OPT_demangle, OPT_demangle_no);
anatofuz
parents:
diff changeset
1413
anatofuz
parents:
diff changeset
1414 // Handle /debugtype
anatofuz
parents:
diff changeset
1415 config->debugTypes = parseDebugTypes(args);
anatofuz
parents:
diff changeset
1416
anatofuz
parents:
diff changeset
1417 // Handle /driver[:uponly|:wdm].
anatofuz
parents:
diff changeset
1418 config->driverUponly = args.hasArg(OPT_driver_uponly) ||
anatofuz
parents:
diff changeset
1419 args.hasArg(OPT_driver_uponly_wdm) ||
anatofuz
parents:
diff changeset
1420 args.hasArg(OPT_driver_wdm_uponly);
anatofuz
parents:
diff changeset
1421 config->driverWdm = args.hasArg(OPT_driver_wdm) ||
anatofuz
parents:
diff changeset
1422 args.hasArg(OPT_driver_uponly_wdm) ||
anatofuz
parents:
diff changeset
1423 args.hasArg(OPT_driver_wdm_uponly);
anatofuz
parents:
diff changeset
1424 config->driver =
anatofuz
parents:
diff changeset
1425 config->driverUponly || config->driverWdm || args.hasArg(OPT_driver);
anatofuz
parents:
diff changeset
1426
anatofuz
parents:
diff changeset
1427 // Handle /pdb
anatofuz
parents:
diff changeset
1428 bool shouldCreatePDB =
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1429 (debug == DebugKind::Full || debug == DebugKind::GHash ||
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1430 debug == DebugKind::NoGHash);
150
anatofuz
parents:
diff changeset
1431 if (shouldCreatePDB) {
anatofuz
parents:
diff changeset
1432 if (auto *arg = args.getLastArg(OPT_pdb))
anatofuz
parents:
diff changeset
1433 config->pdbPath = arg->getValue();
anatofuz
parents:
diff changeset
1434 if (auto *arg = args.getLastArg(OPT_pdbaltpath))
anatofuz
parents:
diff changeset
1435 config->pdbAltPath = arg->getValue();
anatofuz
parents:
diff changeset
1436 if (args.hasArg(OPT_natvis))
anatofuz
parents:
diff changeset
1437 config->natvisFiles = args.getAllArgValues(OPT_natvis);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1438 if (args.hasArg(OPT_pdbstream)) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1439 for (const StringRef value : args.getAllArgValues(OPT_pdbstream)) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1440 const std::pair<StringRef, StringRef> nameFile = value.split("=");
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1441 const StringRef name = nameFile.first;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1442 const std::string file = nameFile.second.str();
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1443 config->namedStreams[name] = file;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1444 }
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1445 }
150
anatofuz
parents:
diff changeset
1446
anatofuz
parents:
diff changeset
1447 if (auto *arg = args.getLastArg(OPT_pdb_source_path))
anatofuz
parents:
diff changeset
1448 config->pdbSourcePath = arg->getValue();
anatofuz
parents:
diff changeset
1449 }
anatofuz
parents:
diff changeset
1450
anatofuz
parents:
diff changeset
1451 // Handle /pdbstripped
anatofuz
parents:
diff changeset
1452 if (args.hasArg(OPT_pdbstripped))
anatofuz
parents:
diff changeset
1453 warn("ignoring /pdbstripped flag, it is not yet supported");
anatofuz
parents:
diff changeset
1454
anatofuz
parents:
diff changeset
1455 // Handle /noentry
anatofuz
parents:
diff changeset
1456 if (args.hasArg(OPT_noentry)) {
anatofuz
parents:
diff changeset
1457 if (args.hasArg(OPT_dll))
anatofuz
parents:
diff changeset
1458 config->noEntry = true;
anatofuz
parents:
diff changeset
1459 else
anatofuz
parents:
diff changeset
1460 error("/noentry must be specified with /dll");
anatofuz
parents:
diff changeset
1461 }
anatofuz
parents:
diff changeset
1462
anatofuz
parents:
diff changeset
1463 // Handle /dll
anatofuz
parents:
diff changeset
1464 if (args.hasArg(OPT_dll)) {
anatofuz
parents:
diff changeset
1465 config->dll = true;
anatofuz
parents:
diff changeset
1466 config->manifestID = 2;
anatofuz
parents:
diff changeset
1467 }
anatofuz
parents:
diff changeset
1468
anatofuz
parents:
diff changeset
1469 // Handle /dynamicbase and /fixed. We can't use hasFlag for /dynamicbase
anatofuz
parents:
diff changeset
1470 // because we need to explicitly check whether that option or its inverse was
anatofuz
parents:
diff changeset
1471 // present in the argument list in order to handle /fixed.
anatofuz
parents:
diff changeset
1472 auto *dynamicBaseArg = args.getLastArg(OPT_dynamicbase, OPT_dynamicbase_no);
anatofuz
parents:
diff changeset
1473 if (dynamicBaseArg &&
anatofuz
parents:
diff changeset
1474 dynamicBaseArg->getOption().getID() == OPT_dynamicbase_no)
anatofuz
parents:
diff changeset
1475 config->dynamicBase = false;
anatofuz
parents:
diff changeset
1476
anatofuz
parents:
diff changeset
1477 // MSDN claims "/FIXED:NO is the default setting for a DLL, and /FIXED is the
anatofuz
parents:
diff changeset
1478 // default setting for any other project type.", but link.exe defaults to
anatofuz
parents:
diff changeset
1479 // /FIXED:NO for exe outputs as well. Match behavior, not docs.
anatofuz
parents:
diff changeset
1480 bool fixed = args.hasFlag(OPT_fixed, OPT_fixed_no, false);
anatofuz
parents:
diff changeset
1481 if (fixed) {
anatofuz
parents:
diff changeset
1482 if (dynamicBaseArg &&
anatofuz
parents:
diff changeset
1483 dynamicBaseArg->getOption().getID() == OPT_dynamicbase) {
anatofuz
parents:
diff changeset
1484 error("/fixed must not be specified with /dynamicbase");
anatofuz
parents:
diff changeset
1485 } else {
anatofuz
parents:
diff changeset
1486 config->relocatable = false;
anatofuz
parents:
diff changeset
1487 config->dynamicBase = false;
anatofuz
parents:
diff changeset
1488 }
anatofuz
parents:
diff changeset
1489 }
anatofuz
parents:
diff changeset
1490
anatofuz
parents:
diff changeset
1491 // Handle /appcontainer
anatofuz
parents:
diff changeset
1492 config->appContainer =
anatofuz
parents:
diff changeset
1493 args.hasFlag(OPT_appcontainer, OPT_appcontainer_no, false);
anatofuz
parents:
diff changeset
1494
anatofuz
parents:
diff changeset
1495 // Handle /machine
anatofuz
parents:
diff changeset
1496 if (auto *arg = args.getLastArg(OPT_machine)) {
anatofuz
parents:
diff changeset
1497 config->machine = getMachineType(arg->getValue());
anatofuz
parents:
diff changeset
1498 if (config->machine == IMAGE_FILE_MACHINE_UNKNOWN)
anatofuz
parents:
diff changeset
1499 fatal(Twine("unknown /machine argument: ") + arg->getValue());
anatofuz
parents:
diff changeset
1500 }
anatofuz
parents:
diff changeset
1501
anatofuz
parents:
diff changeset
1502 // Handle /nodefaultlib:<filename>
anatofuz
parents:
diff changeset
1503 for (auto *arg : args.filtered(OPT_nodefaultlib))
anatofuz
parents:
diff changeset
1504 config->noDefaultLibs.insert(doFindLib(arg->getValue()).lower());
anatofuz
parents:
diff changeset
1505
anatofuz
parents:
diff changeset
1506 // Handle /nodefaultlib
anatofuz
parents:
diff changeset
1507 if (args.hasArg(OPT_nodefaultlib_all))
anatofuz
parents:
diff changeset
1508 config->noDefaultLibAll = true;
anatofuz
parents:
diff changeset
1509
anatofuz
parents:
diff changeset
1510 // Handle /base
anatofuz
parents:
diff changeset
1511 if (auto *arg = args.getLastArg(OPT_base))
anatofuz
parents:
diff changeset
1512 parseNumbers(arg->getValue(), &config->imageBase);
anatofuz
parents:
diff changeset
1513
anatofuz
parents:
diff changeset
1514 // Handle /filealign
anatofuz
parents:
diff changeset
1515 if (auto *arg = args.getLastArg(OPT_filealign)) {
anatofuz
parents:
diff changeset
1516 parseNumbers(arg->getValue(), &config->fileAlign);
anatofuz
parents:
diff changeset
1517 if (!isPowerOf2_64(config->fileAlign))
anatofuz
parents:
diff changeset
1518 error("/filealign: not a power of two: " + Twine(config->fileAlign));
anatofuz
parents:
diff changeset
1519 }
anatofuz
parents:
diff changeset
1520
anatofuz
parents:
diff changeset
1521 // Handle /stack
anatofuz
parents:
diff changeset
1522 if (auto *arg = args.getLastArg(OPT_stack))
anatofuz
parents:
diff changeset
1523 parseNumbers(arg->getValue(), &config->stackReserve, &config->stackCommit);
anatofuz
parents:
diff changeset
1524
anatofuz
parents:
diff changeset
1525 // Handle /guard:cf
anatofuz
parents:
diff changeset
1526 if (auto *arg = args.getLastArg(OPT_guard))
anatofuz
parents:
diff changeset
1527 parseGuard(arg->getValue());
anatofuz
parents:
diff changeset
1528
anatofuz
parents:
diff changeset
1529 // Handle /heap
anatofuz
parents:
diff changeset
1530 if (auto *arg = args.getLastArg(OPT_heap))
anatofuz
parents:
diff changeset
1531 parseNumbers(arg->getValue(), &config->heapReserve, &config->heapCommit);
anatofuz
parents:
diff changeset
1532
anatofuz
parents:
diff changeset
1533 // Handle /version
anatofuz
parents:
diff changeset
1534 if (auto *arg = args.getLastArg(OPT_version))
anatofuz
parents:
diff changeset
1535 parseVersion(arg->getValue(), &config->majorImageVersion,
anatofuz
parents:
diff changeset
1536 &config->minorImageVersion);
anatofuz
parents:
diff changeset
1537
anatofuz
parents:
diff changeset
1538 // Handle /subsystem
anatofuz
parents:
diff changeset
1539 if (auto *arg = args.getLastArg(OPT_subsystem))
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1540 parseSubsystem(arg->getValue(), &config->subsystem,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1541 &config->majorSubsystemVersion,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1542 &config->minorSubsystemVersion);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1543
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1544 // Handle /osversion
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1545 if (auto *arg = args.getLastArg(OPT_osversion)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1546 parseVersion(arg->getValue(), &config->majorOSVersion,
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1547 &config->minorOSVersion);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1548 } else {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1549 config->majorOSVersion = config->majorSubsystemVersion;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1550 config->minorOSVersion = config->minorSubsystemVersion;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1551 }
150
anatofuz
parents:
diff changeset
1552
anatofuz
parents:
diff changeset
1553 // Handle /timestamp
anatofuz
parents:
diff changeset
1554 if (llvm::opt::Arg *arg = args.getLastArg(OPT_timestamp, OPT_repro)) {
anatofuz
parents:
diff changeset
1555 if (arg->getOption().getID() == OPT_repro) {
anatofuz
parents:
diff changeset
1556 config->timestamp = 0;
anatofuz
parents:
diff changeset
1557 config->repro = true;
anatofuz
parents:
diff changeset
1558 } else {
anatofuz
parents:
diff changeset
1559 config->repro = false;
anatofuz
parents:
diff changeset
1560 StringRef value(arg->getValue());
anatofuz
parents:
diff changeset
1561 if (value.getAsInteger(0, config->timestamp))
anatofuz
parents:
diff changeset
1562 fatal(Twine("invalid timestamp: ") + value +
anatofuz
parents:
diff changeset
1563 ". Expected 32-bit integer");
anatofuz
parents:
diff changeset
1564 }
anatofuz
parents:
diff changeset
1565 } else {
anatofuz
parents:
diff changeset
1566 config->repro = false;
anatofuz
parents:
diff changeset
1567 config->timestamp = time(nullptr);
anatofuz
parents:
diff changeset
1568 }
anatofuz
parents:
diff changeset
1569
anatofuz
parents:
diff changeset
1570 // Handle /alternatename
anatofuz
parents:
diff changeset
1571 for (auto *arg : args.filtered(OPT_alternatename))
anatofuz
parents:
diff changeset
1572 parseAlternateName(arg->getValue());
anatofuz
parents:
diff changeset
1573
anatofuz
parents:
diff changeset
1574 // Handle /include
anatofuz
parents:
diff changeset
1575 for (auto *arg : args.filtered(OPT_incl))
anatofuz
parents:
diff changeset
1576 addUndefined(arg->getValue());
anatofuz
parents:
diff changeset
1577
anatofuz
parents:
diff changeset
1578 // Handle /implib
anatofuz
parents:
diff changeset
1579 if (auto *arg = args.getLastArg(OPT_implib))
anatofuz
parents:
diff changeset
1580 config->implib = arg->getValue();
anatofuz
parents:
diff changeset
1581
anatofuz
parents:
diff changeset
1582 // Handle /opt.
anatofuz
parents:
diff changeset
1583 bool doGC = debug == DebugKind::None || args.hasArg(OPT_profile);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1584 Optional<ICFLevel> icfLevel = None;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1585 if (args.hasArg(OPT_profile))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1586 icfLevel = ICFLevel::None;
150
anatofuz
parents:
diff changeset
1587 unsigned tailMerge = 1;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1588 bool ltoNewPM = LLVM_ENABLE_NEW_PASS_MANAGER;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1589 bool ltoDebugPM = false;
150
anatofuz
parents:
diff changeset
1590 for (auto *arg : args.filtered(OPT_opt)) {
anatofuz
parents:
diff changeset
1591 std::string str = StringRef(arg->getValue()).lower();
anatofuz
parents:
diff changeset
1592 SmallVector<StringRef, 1> vec;
anatofuz
parents:
diff changeset
1593 StringRef(str).split(vec, ',');
anatofuz
parents:
diff changeset
1594 for (StringRef s : vec) {
anatofuz
parents:
diff changeset
1595 if (s == "ref") {
anatofuz
parents:
diff changeset
1596 doGC = true;
anatofuz
parents:
diff changeset
1597 } else if (s == "noref") {
anatofuz
parents:
diff changeset
1598 doGC = false;
anatofuz
parents:
diff changeset
1599 } else if (s == "icf" || s.startswith("icf=")) {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1600 icfLevel = ICFLevel::All;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1601 } else if (s == "safeicf") {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1602 icfLevel = ICFLevel::Safe;
150
anatofuz
parents:
diff changeset
1603 } else if (s == "noicf") {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1604 icfLevel = ICFLevel::None;
150
anatofuz
parents:
diff changeset
1605 } else if (s == "lldtailmerge") {
anatofuz
parents:
diff changeset
1606 tailMerge = 2;
anatofuz
parents:
diff changeset
1607 } else if (s == "nolldtailmerge") {
anatofuz
parents:
diff changeset
1608 tailMerge = 0;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1609 } else if (s == "ltonewpassmanager") {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1610 ltoNewPM = true;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1611 } else if (s == "noltonewpassmanager") {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1612 ltoNewPM = false;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1613 } else if (s == "ltodebugpassmanager") {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1614 ltoDebugPM = true;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1615 } else if (s == "noltodebugpassmanager") {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1616 ltoDebugPM = false;
150
anatofuz
parents:
diff changeset
1617 } else if (s.startswith("lldlto=")) {
anatofuz
parents:
diff changeset
1618 StringRef optLevel = s.substr(7);
anatofuz
parents:
diff changeset
1619 if (optLevel.getAsInteger(10, config->ltoo) || config->ltoo > 3)
anatofuz
parents:
diff changeset
1620 error("/opt:lldlto: invalid optimization level: " + optLevel);
anatofuz
parents:
diff changeset
1621 } else if (s.startswith("lldltojobs=")) {
anatofuz
parents:
diff changeset
1622 StringRef jobs = s.substr(11);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1623 if (!get_threadpool_strategy(jobs))
150
anatofuz
parents:
diff changeset
1624 error("/opt:lldltojobs: invalid job count: " + jobs);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1625 config->thinLTOJobs = jobs.str();
150
anatofuz
parents:
diff changeset
1626 } else if (s.startswith("lldltopartitions=")) {
anatofuz
parents:
diff changeset
1627 StringRef n = s.substr(17);
anatofuz
parents:
diff changeset
1628 if (n.getAsInteger(10, config->ltoPartitions) ||
anatofuz
parents:
diff changeset
1629 config->ltoPartitions == 0)
anatofuz
parents:
diff changeset
1630 error("/opt:lldltopartitions: invalid partition count: " + n);
anatofuz
parents:
diff changeset
1631 } else if (s != "lbr" && s != "nolbr")
anatofuz
parents:
diff changeset
1632 error("/opt: unknown option: " + s);
anatofuz
parents:
diff changeset
1633 }
anatofuz
parents:
diff changeset
1634 }
anatofuz
parents:
diff changeset
1635
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1636 if (!icfLevel)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1637 icfLevel = doGC ? ICFLevel::All : ICFLevel::None;
150
anatofuz
parents:
diff changeset
1638 config->doGC = doGC;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1639 config->doICF = icfLevel.getValue();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1640 config->tailMerge =
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1641 (tailMerge == 1 && config->doICF != ICFLevel::None) || tailMerge == 2;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1642 config->ltoNewPassManager = ltoNewPM;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1643 config->ltoDebugPassManager = ltoDebugPM;
150
anatofuz
parents:
diff changeset
1644
anatofuz
parents:
diff changeset
1645 // Handle /lldsavetemps
anatofuz
parents:
diff changeset
1646 if (args.hasArg(OPT_lldsavetemps))
anatofuz
parents:
diff changeset
1647 config->saveTemps = true;
anatofuz
parents:
diff changeset
1648
anatofuz
parents:
diff changeset
1649 // Handle /kill-at
anatofuz
parents:
diff changeset
1650 if (args.hasArg(OPT_kill_at))
anatofuz
parents:
diff changeset
1651 config->killAt = true;
anatofuz
parents:
diff changeset
1652
anatofuz
parents:
diff changeset
1653 // Handle /lldltocache
anatofuz
parents:
diff changeset
1654 if (auto *arg = args.getLastArg(OPT_lldltocache))
anatofuz
parents:
diff changeset
1655 config->ltoCache = arg->getValue();
anatofuz
parents:
diff changeset
1656
anatofuz
parents:
diff changeset
1657 // Handle /lldsavecachepolicy
anatofuz
parents:
diff changeset
1658 if (auto *arg = args.getLastArg(OPT_lldltocachepolicy))
anatofuz
parents:
diff changeset
1659 config->ltoCachePolicy = CHECK(
anatofuz
parents:
diff changeset
1660 parseCachePruningPolicy(arg->getValue()),
anatofuz
parents:
diff changeset
1661 Twine("/lldltocachepolicy: invalid cache policy: ") + arg->getValue());
anatofuz
parents:
diff changeset
1662
anatofuz
parents:
diff changeset
1663 // Handle /failifmismatch
anatofuz
parents:
diff changeset
1664 for (auto *arg : args.filtered(OPT_failifmismatch))
anatofuz
parents:
diff changeset
1665 checkFailIfMismatch(arg->getValue(), nullptr);
anatofuz
parents:
diff changeset
1666
anatofuz
parents:
diff changeset
1667 // Handle /merge
anatofuz
parents:
diff changeset
1668 for (auto *arg : args.filtered(OPT_merge))
anatofuz
parents:
diff changeset
1669 parseMerge(arg->getValue());
anatofuz
parents:
diff changeset
1670
anatofuz
parents:
diff changeset
1671 // Add default section merging rules after user rules. User rules take
anatofuz
parents:
diff changeset
1672 // precedence, but we will emit a warning if there is a conflict.
anatofuz
parents:
diff changeset
1673 parseMerge(".idata=.rdata");
anatofuz
parents:
diff changeset
1674 parseMerge(".didat=.rdata");
anatofuz
parents:
diff changeset
1675 parseMerge(".edata=.rdata");
anatofuz
parents:
diff changeset
1676 parseMerge(".xdata=.rdata");
anatofuz
parents:
diff changeset
1677 parseMerge(".bss=.data");
anatofuz
parents:
diff changeset
1678
anatofuz
parents:
diff changeset
1679 if (config->mingw) {
anatofuz
parents:
diff changeset
1680 parseMerge(".ctors=.rdata");
anatofuz
parents:
diff changeset
1681 parseMerge(".dtors=.rdata");
anatofuz
parents:
diff changeset
1682 parseMerge(".CRT=.rdata");
anatofuz
parents:
diff changeset
1683 }
anatofuz
parents:
diff changeset
1684
anatofuz
parents:
diff changeset
1685 // Handle /section
anatofuz
parents:
diff changeset
1686 for (auto *arg : args.filtered(OPT_section))
anatofuz
parents:
diff changeset
1687 parseSection(arg->getValue());
anatofuz
parents:
diff changeset
1688
anatofuz
parents:
diff changeset
1689 // Handle /align
anatofuz
parents:
diff changeset
1690 if (auto *arg = args.getLastArg(OPT_align)) {
anatofuz
parents:
diff changeset
1691 parseNumbers(arg->getValue(), &config->align);
anatofuz
parents:
diff changeset
1692 if (!isPowerOf2_64(config->align))
anatofuz
parents:
diff changeset
1693 error("/align: not a power of two: " + StringRef(arg->getValue()));
anatofuz
parents:
diff changeset
1694 if (!args.hasArg(OPT_driver))
anatofuz
parents:
diff changeset
1695 warn("/align specified without /driver; image may not run");
anatofuz
parents:
diff changeset
1696 }
anatofuz
parents:
diff changeset
1697
anatofuz
parents:
diff changeset
1698 // Handle /aligncomm
anatofuz
parents:
diff changeset
1699 for (auto *arg : args.filtered(OPT_aligncomm))
anatofuz
parents:
diff changeset
1700 parseAligncomm(arg->getValue());
anatofuz
parents:
diff changeset
1701
anatofuz
parents:
diff changeset
1702 // Handle /manifestdependency. This enables /manifest unless /manifest:no is
anatofuz
parents:
diff changeset
1703 // also passed.
anatofuz
parents:
diff changeset
1704 if (auto *arg = args.getLastArg(OPT_manifestdependency)) {
anatofuz
parents:
diff changeset
1705 config->manifestDependency = arg->getValue();
anatofuz
parents:
diff changeset
1706 config->manifest = Configuration::SideBySide;
anatofuz
parents:
diff changeset
1707 }
anatofuz
parents:
diff changeset
1708
anatofuz
parents:
diff changeset
1709 // Handle /manifest and /manifest:
anatofuz
parents:
diff changeset
1710 if (auto *arg = args.getLastArg(OPT_manifest, OPT_manifest_colon)) {
anatofuz
parents:
diff changeset
1711 if (arg->getOption().getID() == OPT_manifest)
anatofuz
parents:
diff changeset
1712 config->manifest = Configuration::SideBySide;
anatofuz
parents:
diff changeset
1713 else
anatofuz
parents:
diff changeset
1714 parseManifest(arg->getValue());
anatofuz
parents:
diff changeset
1715 }
anatofuz
parents:
diff changeset
1716
anatofuz
parents:
diff changeset
1717 // Handle /manifestuac
anatofuz
parents:
diff changeset
1718 if (auto *arg = args.getLastArg(OPT_manifestuac))
anatofuz
parents:
diff changeset
1719 parseManifestUAC(arg->getValue());
anatofuz
parents:
diff changeset
1720
anatofuz
parents:
diff changeset
1721 // Handle /manifestfile
anatofuz
parents:
diff changeset
1722 if (auto *arg = args.getLastArg(OPT_manifestfile))
anatofuz
parents:
diff changeset
1723 config->manifestFile = arg->getValue();
anatofuz
parents:
diff changeset
1724
anatofuz
parents:
diff changeset
1725 // Handle /manifestinput
anatofuz
parents:
diff changeset
1726 for (auto *arg : args.filtered(OPT_manifestinput))
anatofuz
parents:
diff changeset
1727 config->manifestInput.push_back(arg->getValue());
anatofuz
parents:
diff changeset
1728
anatofuz
parents:
diff changeset
1729 if (!config->manifestInput.empty() &&
anatofuz
parents:
diff changeset
1730 config->manifest != Configuration::Embed) {
anatofuz
parents:
diff changeset
1731 fatal("/manifestinput: requires /manifest:embed");
anatofuz
parents:
diff changeset
1732 }
anatofuz
parents:
diff changeset
1733
anatofuz
parents:
diff changeset
1734 config->thinLTOEmitImportsFiles = args.hasArg(OPT_thinlto_emit_imports_files);
anatofuz
parents:
diff changeset
1735 config->thinLTOIndexOnly = args.hasArg(OPT_thinlto_index_only) ||
anatofuz
parents:
diff changeset
1736 args.hasArg(OPT_thinlto_index_only_arg);
anatofuz
parents:
diff changeset
1737 config->thinLTOIndexOnlyArg =
anatofuz
parents:
diff changeset
1738 args.getLastArgValue(OPT_thinlto_index_only_arg);
anatofuz
parents:
diff changeset
1739 config->thinLTOPrefixReplace =
anatofuz
parents:
diff changeset
1740 getOldNewOptions(args, OPT_thinlto_prefix_replace);
anatofuz
parents:
diff changeset
1741 config->thinLTOObjectSuffixReplace =
anatofuz
parents:
diff changeset
1742 getOldNewOptions(args, OPT_thinlto_object_suffix_replace);
anatofuz
parents:
diff changeset
1743 config->ltoObjPath = args.getLastArgValue(OPT_lto_obj_path);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1744 config->ltoCSProfileGenerate = args.hasArg(OPT_lto_cs_profile_generate);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1745 config->ltoCSProfileFile = args.getLastArgValue(OPT_lto_cs_profile_file);
150
anatofuz
parents:
diff changeset
1746 // Handle miscellaneous boolean flags.
anatofuz
parents:
diff changeset
1747 config->allowBind = args.hasFlag(OPT_allowbind, OPT_allowbind_no, true);
anatofuz
parents:
diff changeset
1748 config->allowIsolation =
anatofuz
parents:
diff changeset
1749 args.hasFlag(OPT_allowisolation, OPT_allowisolation_no, true);
anatofuz
parents:
diff changeset
1750 config->incremental =
anatofuz
parents:
diff changeset
1751 args.hasFlag(OPT_incremental, OPT_incremental_no,
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1752 !config->doGC && config->doICF == ICFLevel::None &&
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1753 !args.hasArg(OPT_order) && !args.hasArg(OPT_profile));
150
anatofuz
parents:
diff changeset
1754 config->integrityCheck =
anatofuz
parents:
diff changeset
1755 args.hasFlag(OPT_integritycheck, OPT_integritycheck_no, false);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1756 config->cetCompat = args.hasFlag(OPT_cetcompat, OPT_cetcompat_no, false);
150
anatofuz
parents:
diff changeset
1757 config->nxCompat = args.hasFlag(OPT_nxcompat, OPT_nxcompat_no, true);
anatofuz
parents:
diff changeset
1758 for (auto *arg : args.filtered(OPT_swaprun))
anatofuz
parents:
diff changeset
1759 parseSwaprun(arg->getValue());
anatofuz
parents:
diff changeset
1760 config->terminalServerAware =
anatofuz
parents:
diff changeset
1761 !config->dll && args.hasFlag(OPT_tsaware, OPT_tsaware_no, true);
anatofuz
parents:
diff changeset
1762 config->debugDwarf = debug == DebugKind::Dwarf;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1763 config->debugGHashes = debug == DebugKind::GHash || debug == DebugKind::Full;
150
anatofuz
parents:
diff changeset
1764 config->debugSymtab = debug == DebugKind::Symtab;
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1765 config->autoImport =
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1766 args.hasFlag(OPT_auto_import, OPT_auto_import_no, config->mingw);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1767 config->pseudoRelocs = args.hasFlag(
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1768 OPT_runtime_pseudo_reloc, OPT_runtime_pseudo_reloc_no, config->mingw);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1769 config->callGraphProfileSort = args.hasFlag(
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1770 OPT_call_graph_profile_sort, OPT_call_graph_profile_sort_no, true);
150
anatofuz
parents:
diff changeset
1771
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1772 // Don't warn about long section names, such as .debug_info, for mingw or
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1773 // when -debug:dwarf is requested.
150
anatofuz
parents:
diff changeset
1774 if (config->mingw || config->debugDwarf)
anatofuz
parents:
diff changeset
1775 config->warnLongSectionNames = false;
anatofuz
parents:
diff changeset
1776
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1777 config->lldmapFile = getMapFile(args, OPT_lldmap, OPT_lldmap_file);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1778 config->mapFile = getMapFile(args, OPT_map, OPT_map_file);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1779
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1780 if (config->lldmapFile != "" && config->lldmapFile == config->mapFile) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1781 warn("/lldmap and /map have the same output file '" + config->mapFile +
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1782 "'.\n>>> ignoring /lldmap");
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1783 config->lldmapFile.clear();
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1784 }
150
anatofuz
parents:
diff changeset
1785
anatofuz
parents:
diff changeset
1786 if (config->incremental && args.hasArg(OPT_profile)) {
anatofuz
parents:
diff changeset
1787 warn("ignoring '/incremental' due to '/profile' specification");
anatofuz
parents:
diff changeset
1788 config->incremental = false;
anatofuz
parents:
diff changeset
1789 }
anatofuz
parents:
diff changeset
1790
anatofuz
parents:
diff changeset
1791 if (config->incremental && args.hasArg(OPT_order)) {
anatofuz
parents:
diff changeset
1792 warn("ignoring '/incremental' due to '/order' specification");
anatofuz
parents:
diff changeset
1793 config->incremental = false;
anatofuz
parents:
diff changeset
1794 }
anatofuz
parents:
diff changeset
1795
anatofuz
parents:
diff changeset
1796 if (config->incremental && config->doGC) {
anatofuz
parents:
diff changeset
1797 warn("ignoring '/incremental' because REF is enabled; use '/opt:noref' to "
anatofuz
parents:
diff changeset
1798 "disable");
anatofuz
parents:
diff changeset
1799 config->incremental = false;
anatofuz
parents:
diff changeset
1800 }
anatofuz
parents:
diff changeset
1801
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1802 if (config->incremental && config->doICF != ICFLevel::None) {
150
anatofuz
parents:
diff changeset
1803 warn("ignoring '/incremental' because ICF is enabled; use '/opt:noicf' to "
anatofuz
parents:
diff changeset
1804 "disable");
anatofuz
parents:
diff changeset
1805 config->incremental = false;
anatofuz
parents:
diff changeset
1806 }
anatofuz
parents:
diff changeset
1807
anatofuz
parents:
diff changeset
1808 if (errorCount())
anatofuz
parents:
diff changeset
1809 return;
anatofuz
parents:
diff changeset
1810
anatofuz
parents:
diff changeset
1811 std::set<sys::fs::UniqueID> wholeArchives;
anatofuz
parents:
diff changeset
1812 for (auto *arg : args.filtered(OPT_wholearchive_file))
anatofuz
parents:
diff changeset
1813 if (Optional<StringRef> path = doFindFile(arg->getValue()))
anatofuz
parents:
diff changeset
1814 if (Optional<sys::fs::UniqueID> id = getUniqueID(*path))
anatofuz
parents:
diff changeset
1815 wholeArchives.insert(*id);
anatofuz
parents:
diff changeset
1816
anatofuz
parents:
diff changeset
1817 // A predicate returning true if a given path is an argument for
anatofuz
parents:
diff changeset
1818 // /wholearchive:, or /wholearchive is enabled globally.
anatofuz
parents:
diff changeset
1819 // This function is a bit tricky because "foo.obj /wholearchive:././foo.obj"
anatofuz
parents:
diff changeset
1820 // needs to be handled as "/wholearchive:foo.obj foo.obj".
anatofuz
parents:
diff changeset
1821 auto isWholeArchive = [&](StringRef path) -> bool {
anatofuz
parents:
diff changeset
1822 if (args.hasArg(OPT_wholearchive_flag))
anatofuz
parents:
diff changeset
1823 return true;
anatofuz
parents:
diff changeset
1824 if (Optional<sys::fs::UniqueID> id = getUniqueID(path))
anatofuz
parents:
diff changeset
1825 return wholeArchives.count(*id);
anatofuz
parents:
diff changeset
1826 return false;
anatofuz
parents:
diff changeset
1827 };
anatofuz
parents:
diff changeset
1828
anatofuz
parents:
diff changeset
1829 // Create a list of input files. These can be given as OPT_INPUT options
anatofuz
parents:
diff changeset
1830 // and OPT_wholearchive_file options, and we also need to track OPT_start_lib
anatofuz
parents:
diff changeset
1831 // and OPT_end_lib.
anatofuz
parents:
diff changeset
1832 bool inLib = false;
anatofuz
parents:
diff changeset
1833 for (auto *arg : args) {
anatofuz
parents:
diff changeset
1834 switch (arg->getOption().getID()) {
anatofuz
parents:
diff changeset
1835 case OPT_end_lib:
anatofuz
parents:
diff changeset
1836 if (!inLib)
anatofuz
parents:
diff changeset
1837 error("stray " + arg->getSpelling());
anatofuz
parents:
diff changeset
1838 inLib = false;
anatofuz
parents:
diff changeset
1839 break;
anatofuz
parents:
diff changeset
1840 case OPT_start_lib:
anatofuz
parents:
diff changeset
1841 if (inLib)
anatofuz
parents:
diff changeset
1842 error("nested " + arg->getSpelling());
anatofuz
parents:
diff changeset
1843 inLib = true;
anatofuz
parents:
diff changeset
1844 break;
anatofuz
parents:
diff changeset
1845 case OPT_wholearchive_file:
anatofuz
parents:
diff changeset
1846 if (Optional<StringRef> path = findFile(arg->getValue()))
anatofuz
parents:
diff changeset
1847 enqueuePath(*path, true, inLib);
anatofuz
parents:
diff changeset
1848 break;
anatofuz
parents:
diff changeset
1849 case OPT_INPUT:
anatofuz
parents:
diff changeset
1850 if (Optional<StringRef> path = findFile(arg->getValue()))
anatofuz
parents:
diff changeset
1851 enqueuePath(*path, isWholeArchive(*path), inLib);
anatofuz
parents:
diff changeset
1852 break;
anatofuz
parents:
diff changeset
1853 default:
anatofuz
parents:
diff changeset
1854 // Ignore other options.
anatofuz
parents:
diff changeset
1855 break;
anatofuz
parents:
diff changeset
1856 }
anatofuz
parents:
diff changeset
1857 }
anatofuz
parents:
diff changeset
1858
anatofuz
parents:
diff changeset
1859 // Process files specified as /defaultlib. These should be enequeued after
anatofuz
parents:
diff changeset
1860 // other files, which is why they are in a separate loop.
anatofuz
parents:
diff changeset
1861 for (auto *arg : args.filtered(OPT_defaultlib))
anatofuz
parents:
diff changeset
1862 if (Optional<StringRef> path = findLib(arg->getValue()))
anatofuz
parents:
diff changeset
1863 enqueuePath(*path, false, false);
anatofuz
parents:
diff changeset
1864
anatofuz
parents:
diff changeset
1865 // Windows specific -- Create a resource file containing a manifest file.
anatofuz
parents:
diff changeset
1866 if (config->manifest == Configuration::Embed)
anatofuz
parents:
diff changeset
1867 addBuffer(createManifestRes(), false, false);
anatofuz
parents:
diff changeset
1868
anatofuz
parents:
diff changeset
1869 // Read all input files given via the command line.
anatofuz
parents:
diff changeset
1870 run();
anatofuz
parents:
diff changeset
1871
anatofuz
parents:
diff changeset
1872 if (errorCount())
anatofuz
parents:
diff changeset
1873 return;
anatofuz
parents:
diff changeset
1874
anatofuz
parents:
diff changeset
1875 // We should have inferred a machine type by now from the input files, but if
anatofuz
parents:
diff changeset
1876 // not we assume x64.
anatofuz
parents:
diff changeset
1877 if (config->machine == IMAGE_FILE_MACHINE_UNKNOWN) {
anatofuz
parents:
diff changeset
1878 warn("/machine is not specified. x64 is assumed");
anatofuz
parents:
diff changeset
1879 config->machine = AMD64;
anatofuz
parents:
diff changeset
1880 }
anatofuz
parents:
diff changeset
1881 config->wordsize = config->is64() ? 8 : 4;
anatofuz
parents:
diff changeset
1882
anatofuz
parents:
diff changeset
1883 // Handle /safeseh, x86 only, on by default, except for mingw.
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1884 if (config->machine == I386) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1885 config->safeSEH = args.hasFlag(OPT_safeseh, OPT_safeseh_no, !config->mingw);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1886 config->noSEH = args.hasArg(OPT_noseh);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1887 }
150
anatofuz
parents:
diff changeset
1888
anatofuz
parents:
diff changeset
1889 // Handle /functionpadmin
anatofuz
parents:
diff changeset
1890 for (auto *arg : args.filtered(OPT_functionpadmin, OPT_functionpadmin_opt))
anatofuz
parents:
diff changeset
1891 parseFunctionPadMin(arg, config->machine);
anatofuz
parents:
diff changeset
1892
anatofuz
parents:
diff changeset
1893 if (tar)
anatofuz
parents:
diff changeset
1894 tar->append("response.txt",
anatofuz
parents:
diff changeset
1895 createResponseFile(args, filePaths,
anatofuz
parents:
diff changeset
1896 ArrayRef<StringRef>(searchPaths).slice(1)));
anatofuz
parents:
diff changeset
1897
anatofuz
parents:
diff changeset
1898 // Handle /largeaddressaware
anatofuz
parents:
diff changeset
1899 config->largeAddressAware = args.hasFlag(
anatofuz
parents:
diff changeset
1900 OPT_largeaddressaware, OPT_largeaddressaware_no, config->is64());
anatofuz
parents:
diff changeset
1901
anatofuz
parents:
diff changeset
1902 // Handle /highentropyva
anatofuz
parents:
diff changeset
1903 config->highEntropyVA =
anatofuz
parents:
diff changeset
1904 config->is64() &&
anatofuz
parents:
diff changeset
1905 args.hasFlag(OPT_highentropyva, OPT_highentropyva_no, true);
anatofuz
parents:
diff changeset
1906
anatofuz
parents:
diff changeset
1907 if (!config->dynamicBase &&
anatofuz
parents:
diff changeset
1908 (config->machine == ARMNT || config->machine == ARM64))
anatofuz
parents:
diff changeset
1909 error("/dynamicbase:no is not compatible with " +
anatofuz
parents:
diff changeset
1910 machineToStr(config->machine));
anatofuz
parents:
diff changeset
1911
anatofuz
parents:
diff changeset
1912 // Handle /export
anatofuz
parents:
diff changeset
1913 for (auto *arg : args.filtered(OPT_export)) {
anatofuz
parents:
diff changeset
1914 Export e = parseExport(arg->getValue());
anatofuz
parents:
diff changeset
1915 if (config->machine == I386) {
anatofuz
parents:
diff changeset
1916 if (!isDecorated(e.name))
anatofuz
parents:
diff changeset
1917 e.name = saver.save("_" + e.name);
anatofuz
parents:
diff changeset
1918 if (!e.extName.empty() && !isDecorated(e.extName))
anatofuz
parents:
diff changeset
1919 e.extName = saver.save("_" + e.extName);
anatofuz
parents:
diff changeset
1920 }
anatofuz
parents:
diff changeset
1921 config->exports.push_back(e);
anatofuz
parents:
diff changeset
1922 }
anatofuz
parents:
diff changeset
1923
anatofuz
parents:
diff changeset
1924 // Handle /def
anatofuz
parents:
diff changeset
1925 if (auto *arg = args.getLastArg(OPT_deffile)) {
anatofuz
parents:
diff changeset
1926 // parseModuleDefs mutates Config object.
anatofuz
parents:
diff changeset
1927 parseModuleDefs(arg->getValue());
anatofuz
parents:
diff changeset
1928 }
anatofuz
parents:
diff changeset
1929
anatofuz
parents:
diff changeset
1930 // Handle generation of import library from a def file.
anatofuz
parents:
diff changeset
1931 if (!args.hasArg(OPT_INPUT, OPT_wholearchive_file)) {
anatofuz
parents:
diff changeset
1932 fixupExports();
anatofuz
parents:
diff changeset
1933 createImportLibrary(/*asLib=*/true);
anatofuz
parents:
diff changeset
1934 return;
anatofuz
parents:
diff changeset
1935 }
anatofuz
parents:
diff changeset
1936
anatofuz
parents:
diff changeset
1937 // Windows specific -- if no /subsystem is given, we need to infer
anatofuz
parents:
diff changeset
1938 // that from entry point name. Must happen before /entry handling,
anatofuz
parents:
diff changeset
1939 // and after the early return when just writing an import library.
anatofuz
parents:
diff changeset
1940 if (config->subsystem == IMAGE_SUBSYSTEM_UNKNOWN) {
anatofuz
parents:
diff changeset
1941 config->subsystem = inferSubsystem();
anatofuz
parents:
diff changeset
1942 if (config->subsystem == IMAGE_SUBSYSTEM_UNKNOWN)
anatofuz
parents:
diff changeset
1943 fatal("subsystem must be defined");
anatofuz
parents:
diff changeset
1944 }
anatofuz
parents:
diff changeset
1945
anatofuz
parents:
diff changeset
1946 // Handle /entry and /dll
anatofuz
parents:
diff changeset
1947 if (auto *arg = args.getLastArg(OPT_entry)) {
anatofuz
parents:
diff changeset
1948 config->entry = addUndefined(mangle(arg->getValue()));
anatofuz
parents:
diff changeset
1949 } else if (!config->entry && !config->noEntry) {
anatofuz
parents:
diff changeset
1950 if (args.hasArg(OPT_dll)) {
anatofuz
parents:
diff changeset
1951 StringRef s = (config->machine == I386) ? "__DllMainCRTStartup@12"
anatofuz
parents:
diff changeset
1952 : "_DllMainCRTStartup";
anatofuz
parents:
diff changeset
1953 config->entry = addUndefined(s);
anatofuz
parents:
diff changeset
1954 } else if (config->driverWdm) {
anatofuz
parents:
diff changeset
1955 // /driver:wdm implies /entry:_NtProcessStartup
anatofuz
parents:
diff changeset
1956 config->entry = addUndefined(mangle("_NtProcessStartup"));
anatofuz
parents:
diff changeset
1957 } else {
anatofuz
parents:
diff changeset
1958 // Windows specific -- If entry point name is not given, we need to
anatofuz
parents:
diff changeset
1959 // infer that from user-defined entry name.
anatofuz
parents:
diff changeset
1960 StringRef s = findDefaultEntry();
anatofuz
parents:
diff changeset
1961 if (s.empty())
anatofuz
parents:
diff changeset
1962 fatal("entry point must be defined");
anatofuz
parents:
diff changeset
1963 config->entry = addUndefined(s);
anatofuz
parents:
diff changeset
1964 log("Entry name inferred: " + s);
anatofuz
parents:
diff changeset
1965 }
anatofuz
parents:
diff changeset
1966 }
anatofuz
parents:
diff changeset
1967
anatofuz
parents:
diff changeset
1968 // Handle /delayload
anatofuz
parents:
diff changeset
1969 for (auto *arg : args.filtered(OPT_delayload)) {
anatofuz
parents:
diff changeset
1970 config->delayLoads.insert(StringRef(arg->getValue()).lower());
anatofuz
parents:
diff changeset
1971 if (config->machine == I386) {
anatofuz
parents:
diff changeset
1972 config->delayLoadHelper = addUndefined("___delayLoadHelper2@8");
anatofuz
parents:
diff changeset
1973 } else {
anatofuz
parents:
diff changeset
1974 config->delayLoadHelper = addUndefined("__delayLoadHelper2");
anatofuz
parents:
diff changeset
1975 }
anatofuz
parents:
diff changeset
1976 }
anatofuz
parents:
diff changeset
1977
anatofuz
parents:
diff changeset
1978 // Set default image name if neither /out or /def set it.
anatofuz
parents:
diff changeset
1979 if (config->outputFile.empty()) {
anatofuz
parents:
diff changeset
1980 config->outputFile = getOutputPath(
anatofuz
parents:
diff changeset
1981 (*args.filtered(OPT_INPUT, OPT_wholearchive_file).begin())->getValue());
anatofuz
parents:
diff changeset
1982 }
anatofuz
parents:
diff changeset
1983
anatofuz
parents:
diff changeset
1984 // Fail early if an output file is not writable.
anatofuz
parents:
diff changeset
1985 if (auto e = tryCreateFile(config->outputFile)) {
anatofuz
parents:
diff changeset
1986 error("cannot open output file " + config->outputFile + ": " + e.message());
anatofuz
parents:
diff changeset
1987 return;
anatofuz
parents:
diff changeset
1988 }
anatofuz
parents:
diff changeset
1989
anatofuz
parents:
diff changeset
1990 if (shouldCreatePDB) {
anatofuz
parents:
diff changeset
1991 // Put the PDB next to the image if no /pdb flag was passed.
anatofuz
parents:
diff changeset
1992 if (config->pdbPath.empty()) {
anatofuz
parents:
diff changeset
1993 config->pdbPath = config->outputFile;
anatofuz
parents:
diff changeset
1994 sys::path::replace_extension(config->pdbPath, ".pdb");
anatofuz
parents:
diff changeset
1995 }
anatofuz
parents:
diff changeset
1996
anatofuz
parents:
diff changeset
1997 // The embedded PDB path should be the absolute path to the PDB if no
anatofuz
parents:
diff changeset
1998 // /pdbaltpath flag was passed.
anatofuz
parents:
diff changeset
1999 if (config->pdbAltPath.empty()) {
anatofuz
parents:
diff changeset
2000 config->pdbAltPath = config->pdbPath;
anatofuz
parents:
diff changeset
2001
anatofuz
parents:
diff changeset
2002 // It's important to make the path absolute and remove dots. This path
anatofuz
parents:
diff changeset
2003 // will eventually be written into the PE header, and certain Microsoft
anatofuz
parents:
diff changeset
2004 // tools won't work correctly if these assumptions are not held.
anatofuz
parents:
diff changeset
2005 sys::fs::make_absolute(config->pdbAltPath);
anatofuz
parents:
diff changeset
2006 sys::path::remove_dots(config->pdbAltPath);
anatofuz
parents:
diff changeset
2007 } else {
anatofuz
parents:
diff changeset
2008 // Don't do this earlier, so that Config->OutputFile is ready.
anatofuz
parents:
diff changeset
2009 parsePDBAltPath(config->pdbAltPath);
anatofuz
parents:
diff changeset
2010 }
anatofuz
parents:
diff changeset
2011 }
anatofuz
parents:
diff changeset
2012
anatofuz
parents:
diff changeset
2013 // Set default image base if /base is not given.
anatofuz
parents:
diff changeset
2014 if (config->imageBase == uint64_t(-1))
anatofuz
parents:
diff changeset
2015 config->imageBase = getDefaultImageBase();
anatofuz
parents:
diff changeset
2016
anatofuz
parents:
diff changeset
2017 symtab->addSynthetic(mangle("__ImageBase"), nullptr);
anatofuz
parents:
diff changeset
2018 if (config->machine == I386) {
anatofuz
parents:
diff changeset
2019 symtab->addAbsolute("___safe_se_handler_table", 0);
anatofuz
parents:
diff changeset
2020 symtab->addAbsolute("___safe_se_handler_count", 0);
anatofuz
parents:
diff changeset
2021 }
anatofuz
parents:
diff changeset
2022
anatofuz
parents:
diff changeset
2023 symtab->addAbsolute(mangle("__guard_fids_count"), 0);
anatofuz
parents:
diff changeset
2024 symtab->addAbsolute(mangle("__guard_fids_table"), 0);
anatofuz
parents:
diff changeset
2025 symtab->addAbsolute(mangle("__guard_flags"), 0);
anatofuz
parents:
diff changeset
2026 symtab->addAbsolute(mangle("__guard_iat_count"), 0);
anatofuz
parents:
diff changeset
2027 symtab->addAbsolute(mangle("__guard_iat_table"), 0);
anatofuz
parents:
diff changeset
2028 symtab->addAbsolute(mangle("__guard_longjmp_count"), 0);
anatofuz
parents:
diff changeset
2029 symtab->addAbsolute(mangle("__guard_longjmp_table"), 0);
anatofuz
parents:
diff changeset
2030 // Needed for MSVC 2017 15.5 CRT.
anatofuz
parents:
diff changeset
2031 symtab->addAbsolute(mangle("__enclave_config"), 0);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2032 // Needed for MSVC 2019 16.8 CRT.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2033 symtab->addAbsolute(mangle("__guard_eh_cont_count"), 0);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2034 symtab->addAbsolute(mangle("__guard_eh_cont_table"), 0);
150
anatofuz
parents:
diff changeset
2035
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2036 if (config->pseudoRelocs) {
150
anatofuz
parents:
diff changeset
2037 symtab->addAbsolute(mangle("__RUNTIME_PSEUDO_RELOC_LIST__"), 0);
anatofuz
parents:
diff changeset
2038 symtab->addAbsolute(mangle("__RUNTIME_PSEUDO_RELOC_LIST_END__"), 0);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2039 }
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2040 if (config->mingw) {
150
anatofuz
parents:
diff changeset
2041 symtab->addAbsolute(mangle("__CTOR_LIST__"), 0);
anatofuz
parents:
diff changeset
2042 symtab->addAbsolute(mangle("__DTOR_LIST__"), 0);
anatofuz
parents:
diff changeset
2043 }
anatofuz
parents:
diff changeset
2044
anatofuz
parents:
diff changeset
2045 // This code may add new undefined symbols to the link, which may enqueue more
anatofuz
parents:
diff changeset
2046 // symbol resolution tasks, so we need to continue executing tasks until we
anatofuz
parents:
diff changeset
2047 // converge.
anatofuz
parents:
diff changeset
2048 do {
anatofuz
parents:
diff changeset
2049 // Windows specific -- if entry point is not found,
anatofuz
parents:
diff changeset
2050 // search for its mangled names.
anatofuz
parents:
diff changeset
2051 if (config->entry)
anatofuz
parents:
diff changeset
2052 mangleMaybe(config->entry);
anatofuz
parents:
diff changeset
2053
anatofuz
parents:
diff changeset
2054 // Windows specific -- Make sure we resolve all dllexported symbols.
anatofuz
parents:
diff changeset
2055 for (Export &e : config->exports) {
anatofuz
parents:
diff changeset
2056 if (!e.forwardTo.empty())
anatofuz
parents:
diff changeset
2057 continue;
anatofuz
parents:
diff changeset
2058 e.sym = addUndefined(e.name);
anatofuz
parents:
diff changeset
2059 if (!e.directives)
anatofuz
parents:
diff changeset
2060 e.symbolName = mangleMaybe(e.sym);
anatofuz
parents:
diff changeset
2061 }
anatofuz
parents:
diff changeset
2062
anatofuz
parents:
diff changeset
2063 // Add weak aliases. Weak aliases is a mechanism to give remaining
anatofuz
parents:
diff changeset
2064 // undefined symbols final chance to be resolved successfully.
anatofuz
parents:
diff changeset
2065 for (auto pair : config->alternateNames) {
anatofuz
parents:
diff changeset
2066 StringRef from = pair.first;
anatofuz
parents:
diff changeset
2067 StringRef to = pair.second;
anatofuz
parents:
diff changeset
2068 Symbol *sym = symtab->find(from);
anatofuz
parents:
diff changeset
2069 if (!sym)
anatofuz
parents:
diff changeset
2070 continue;
anatofuz
parents:
diff changeset
2071 if (auto *u = dyn_cast<Undefined>(sym))
anatofuz
parents:
diff changeset
2072 if (!u->weakAlias)
anatofuz
parents:
diff changeset
2073 u->weakAlias = symtab->addUndefined(to);
anatofuz
parents:
diff changeset
2074 }
anatofuz
parents:
diff changeset
2075
anatofuz
parents:
diff changeset
2076 // If any inputs are bitcode files, the LTO code generator may create
anatofuz
parents:
diff changeset
2077 // references to library functions that are not explicit in the bitcode
anatofuz
parents:
diff changeset
2078 // file's symbol table. If any of those library functions are defined in a
anatofuz
parents:
diff changeset
2079 // bitcode file in an archive member, we need to arrange to use LTO to
anatofuz
parents:
diff changeset
2080 // compile those archive members by adding them to the link beforehand.
anatofuz
parents:
diff changeset
2081 if (!BitcodeFile::instances.empty())
anatofuz
parents:
diff changeset
2082 for (auto *s : lto::LTO::getRuntimeLibcallSymbols())
anatofuz
parents:
diff changeset
2083 symtab->addLibcall(s);
anatofuz
parents:
diff changeset
2084
anatofuz
parents:
diff changeset
2085 // Windows specific -- if __load_config_used can be resolved, resolve it.
anatofuz
parents:
diff changeset
2086 if (symtab->findUnderscore("_load_config_used"))
anatofuz
parents:
diff changeset
2087 addUndefined(mangle("_load_config_used"));
anatofuz
parents:
diff changeset
2088 } while (run());
anatofuz
parents:
diff changeset
2089
anatofuz
parents:
diff changeset
2090 if (args.hasArg(OPT_include_optional)) {
anatofuz
parents:
diff changeset
2091 // Handle /includeoptional
anatofuz
parents:
diff changeset
2092 for (auto *arg : args.filtered(OPT_include_optional))
anatofuz
parents:
diff changeset
2093 if (dyn_cast_or_null<LazyArchive>(symtab->find(arg->getValue())))
anatofuz
parents:
diff changeset
2094 addUndefined(arg->getValue());
anatofuz
parents:
diff changeset
2095 while (run());
anatofuz
parents:
diff changeset
2096 }
anatofuz
parents:
diff changeset
2097
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2098 // Create wrapped symbols for -wrap option.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2099 std::vector<WrappedSymbol> wrapped = addWrappedSymbols(args);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2100 // Load more object files that might be needed for wrapped symbols.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2101 if (!wrapped.empty())
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2102 while (run());
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2103
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2104 if (config->autoImport) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2105 // MinGW specific.
150
anatofuz
parents:
diff changeset
2106 // Load any further object files that might be needed for doing automatic
anatofuz
parents:
diff changeset
2107 // imports.
anatofuz
parents:
diff changeset
2108 //
anatofuz
parents:
diff changeset
2109 // For cases with no automatically imported symbols, this iterates once
anatofuz
parents:
diff changeset
2110 // over the symbol table and doesn't do anything.
anatofuz
parents:
diff changeset
2111 //
anatofuz
parents:
diff changeset
2112 // For the normal case with a few automatically imported symbols, this
anatofuz
parents:
diff changeset
2113 // should only need to be run once, since each new object file imported
anatofuz
parents:
diff changeset
2114 // is an import library and wouldn't add any new undefined references,
anatofuz
parents:
diff changeset
2115 // but there's nothing stopping the __imp_ symbols from coming from a
anatofuz
parents:
diff changeset
2116 // normal object file as well (although that won't be used for the
anatofuz
parents:
diff changeset
2117 // actual autoimport later on). If this pass adds new undefined references,
anatofuz
parents:
diff changeset
2118 // we won't iterate further to resolve them.
anatofuz
parents:
diff changeset
2119 symtab->loadMinGWAutomaticImports();
anatofuz
parents:
diff changeset
2120 run();
anatofuz
parents:
diff changeset
2121 }
anatofuz
parents:
diff changeset
2122
anatofuz
parents:
diff changeset
2123 // At this point, we should not have any symbols that cannot be resolved.
anatofuz
parents:
diff changeset
2124 // If we are going to do codegen for link-time optimization, check for
anatofuz
parents:
diff changeset
2125 // unresolvable symbols first, so we don't spend time generating code that
anatofuz
parents:
diff changeset
2126 // will fail to link anyway.
anatofuz
parents:
diff changeset
2127 if (!BitcodeFile::instances.empty() && !config->forceUnresolved)
anatofuz
parents:
diff changeset
2128 symtab->reportUnresolvable();
anatofuz
parents:
diff changeset
2129 if (errorCount())
anatofuz
parents:
diff changeset
2130 return;
anatofuz
parents:
diff changeset
2131
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2132 config->hadExplicitExports = !config->exports.empty();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2133 if (config->mingw) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2134 // In MinGW, all symbols are automatically exported if no symbols
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2135 // are chosen to be exported.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2136 maybeExportMinGWSymbols(args);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2137 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2138
150
anatofuz
parents:
diff changeset
2139 // Do LTO by compiling bitcode input files to a set of native COFF files then
anatofuz
parents:
diff changeset
2140 // link those files (unless -thinlto-index-only was given, in which case we
anatofuz
parents:
diff changeset
2141 // resolve symbols and write indices, but don't generate native code or link).
anatofuz
parents:
diff changeset
2142 symtab->addCombinedLTOObjects();
anatofuz
parents:
diff changeset
2143
anatofuz
parents:
diff changeset
2144 // If -thinlto-index-only is given, we should create only "index
anatofuz
parents:
diff changeset
2145 // files" and not object files. Index file creation is already done
anatofuz
parents:
diff changeset
2146 // in addCombinedLTOObject, so we are done if that's the case.
anatofuz
parents:
diff changeset
2147 if (config->thinLTOIndexOnly)
anatofuz
parents:
diff changeset
2148 return;
anatofuz
parents:
diff changeset
2149
anatofuz
parents:
diff changeset
2150 // If we generated native object files from bitcode files, this resolves
anatofuz
parents:
diff changeset
2151 // references to the symbols we use from them.
anatofuz
parents:
diff changeset
2152 run();
anatofuz
parents:
diff changeset
2153
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2154 // Apply symbol renames for -wrap.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2155 if (!wrapped.empty())
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2156 wrapSymbols(wrapped);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2157
150
anatofuz
parents:
diff changeset
2158 // Resolve remaining undefined symbols and warn about imported locals.
anatofuz
parents:
diff changeset
2159 symtab->resolveRemainingUndefines();
anatofuz
parents:
diff changeset
2160 if (errorCount())
anatofuz
parents:
diff changeset
2161 return;
anatofuz
parents:
diff changeset
2162
anatofuz
parents:
diff changeset
2163 if (config->mingw) {
anatofuz
parents:
diff changeset
2164 // Make sure the crtend.o object is the last object file. This object
anatofuz
parents:
diff changeset
2165 // file can contain terminating section chunks that need to be placed
anatofuz
parents:
diff changeset
2166 // last. GNU ld processes files and static libraries explicitly in the
anatofuz
parents:
diff changeset
2167 // order provided on the command line, while lld will pull in needed
anatofuz
parents:
diff changeset
2168 // files from static libraries only after the last object file on the
anatofuz
parents:
diff changeset
2169 // command line.
anatofuz
parents:
diff changeset
2170 for (auto i = ObjFile::instances.begin(), e = ObjFile::instances.end();
anatofuz
parents:
diff changeset
2171 i != e; i++) {
anatofuz
parents:
diff changeset
2172 ObjFile *file = *i;
anatofuz
parents:
diff changeset
2173 if (isCrtend(file->getName())) {
anatofuz
parents:
diff changeset
2174 ObjFile::instances.erase(i);
anatofuz
parents:
diff changeset
2175 ObjFile::instances.push_back(file);
anatofuz
parents:
diff changeset
2176 break;
anatofuz
parents:
diff changeset
2177 }
anatofuz
parents:
diff changeset
2178 }
anatofuz
parents:
diff changeset
2179 }
anatofuz
parents:
diff changeset
2180
anatofuz
parents:
diff changeset
2181 // Windows specific -- when we are creating a .dll file, we also
anatofuz
parents:
diff changeset
2182 // need to create a .lib file. In MinGW mode, we only do that when the
anatofuz
parents:
diff changeset
2183 // -implib option is given explicitly, for compatibility with GNU ld.
anatofuz
parents:
diff changeset
2184 if (!config->exports.empty() || config->dll) {
anatofuz
parents:
diff changeset
2185 fixupExports();
anatofuz
parents:
diff changeset
2186 if (!config->mingw || !config->implib.empty())
anatofuz
parents:
diff changeset
2187 createImportLibrary(/*asLib=*/false);
anatofuz
parents:
diff changeset
2188 assignExportOrdinals();
anatofuz
parents:
diff changeset
2189 }
anatofuz
parents:
diff changeset
2190
anatofuz
parents:
diff changeset
2191 // Handle /output-def (MinGW specific).
anatofuz
parents:
diff changeset
2192 if (auto *arg = args.getLastArg(OPT_output_def))
anatofuz
parents:
diff changeset
2193 writeDefFile(arg->getValue());
anatofuz
parents:
diff changeset
2194
anatofuz
parents:
diff changeset
2195 // Set extra alignment for .comm symbols
anatofuz
parents:
diff changeset
2196 for (auto pair : config->alignComm) {
anatofuz
parents:
diff changeset
2197 StringRef name = pair.first;
anatofuz
parents:
diff changeset
2198 uint32_t alignment = pair.second;
anatofuz
parents:
diff changeset
2199
anatofuz
parents:
diff changeset
2200 Symbol *sym = symtab->find(name);
anatofuz
parents:
diff changeset
2201 if (!sym) {
anatofuz
parents:
diff changeset
2202 warn("/aligncomm symbol " + name + " not found");
anatofuz
parents:
diff changeset
2203 continue;
anatofuz
parents:
diff changeset
2204 }
anatofuz
parents:
diff changeset
2205
anatofuz
parents:
diff changeset
2206 // If the symbol isn't common, it must have been replaced with a regular
anatofuz
parents:
diff changeset
2207 // symbol, which will carry its own alignment.
anatofuz
parents:
diff changeset
2208 auto *dc = dyn_cast<DefinedCommon>(sym);
anatofuz
parents:
diff changeset
2209 if (!dc)
anatofuz
parents:
diff changeset
2210 continue;
anatofuz
parents:
diff changeset
2211
anatofuz
parents:
diff changeset
2212 CommonChunk *c = dc->getChunk();
anatofuz
parents:
diff changeset
2213 c->setAlignment(std::max(c->getAlignment(), alignment));
anatofuz
parents:
diff changeset
2214 }
anatofuz
parents:
diff changeset
2215
anatofuz
parents:
diff changeset
2216 // Windows specific -- Create a side-by-side manifest file.
anatofuz
parents:
diff changeset
2217 if (config->manifest == Configuration::SideBySide)
anatofuz
parents:
diff changeset
2218 createSideBySideManifest();
anatofuz
parents:
diff changeset
2219
anatofuz
parents:
diff changeset
2220 // Handle /order. We want to do this at this moment because we
anatofuz
parents:
diff changeset
2221 // need a complete list of comdat sections to warn on nonexistent
anatofuz
parents:
diff changeset
2222 // functions.
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2223 if (auto *arg = args.getLastArg(OPT_order)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2224 if (args.hasArg(OPT_call_graph_ordering_file))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2225 error("/order and /call-graph-order-file may not be used together");
150
anatofuz
parents:
diff changeset
2226 parseOrderFile(arg->getValue());
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2227 config->callGraphProfileSort = false;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2228 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2229
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2230 // Handle /call-graph-ordering-file and /call-graph-profile-sort (default on).
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2231 if (config->callGraphProfileSort) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2232 if (auto *arg = args.getLastArg(OPT_call_graph_ordering_file)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2233 parseCallGraphFile(arg->getValue());
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2234 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2235 readCallGraphsFromObjectFiles();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2236 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2237
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2238 // Handle /print-symbol-order.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2239 if (auto *arg = args.getLastArg(OPT_print_symbol_order))
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2240 config->printSymbolOrder = arg->getValue();
150
anatofuz
parents:
diff changeset
2241
anatofuz
parents:
diff changeset
2242 // Identify unreferenced COMDAT sections.
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2243 if (config->doGC) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2244 if (config->mingw) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2245 // markLive doesn't traverse .eh_frame, but the personality function is
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2246 // only reached that way. The proper solution would be to parse and
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2247 // traverse the .eh_frame section, like the ELF linker does.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2248 // For now, just manually try to retain the known possible personality
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2249 // functions. This doesn't bring in more object files, but only marks
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2250 // functions that already have been included to be retained.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2251 for (const char *n : {"__gxx_personality_v0", "__gcc_personality_v0"}) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2252 Defined *d = dyn_cast_or_null<Defined>(symtab->findUnderscore(n));
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2253 if (d && !d->isGCRoot) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2254 d->isGCRoot = true;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2255 config->gcroot.push_back(d);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2256 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2257 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2258 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2259
150
anatofuz
parents:
diff changeset
2260 markLive(symtab->getChunks());
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2261 }
150
anatofuz
parents:
diff changeset
2262
anatofuz
parents:
diff changeset
2263 // Needs to happen after the last call to addFile().
anatofuz
parents:
diff changeset
2264 convertResources();
anatofuz
parents:
diff changeset
2265
anatofuz
parents:
diff changeset
2266 // Identify identical COMDAT sections to merge them.
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2267 if (config->doICF != ICFLevel::None) {
150
anatofuz
parents:
diff changeset
2268 findKeepUniqueSections();
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
2269 doICF(symtab->getChunks(), config->doICF);
150
anatofuz
parents:
diff changeset
2270 }
anatofuz
parents:
diff changeset
2271
anatofuz
parents:
diff changeset
2272 // Write the result.
anatofuz
parents:
diff changeset
2273 writeResult();
anatofuz
parents:
diff changeset
2274
anatofuz
parents:
diff changeset
2275 // Stop early so we can print the results.
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
2276 rootTimer.stop();
150
anatofuz
parents:
diff changeset
2277 if (config->showTiming)
anatofuz
parents:
diff changeset
2278 Timer::root().print();
anatofuz
parents:
diff changeset
2279 }
anatofuz
parents:
diff changeset
2280
anatofuz
parents:
diff changeset
2281 } // namespace coff
anatofuz
parents:
diff changeset
2282 } // namespace lld