blob: 621ce8dd580a9d351c73a5fa33076fb38727c813 [file] [log] [blame]
Nick Lewyckye47c2452010-09-23 23:48:20 +00001//===--- Driver.cpp - Clang GCC Compatible Driver -------------------------===//
Daniel Dunbar544ecd12009-03-02 19:59:07 +00002//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9
Daniel Dunbar544ecd12009-03-02 19:59:07 +000010#include "clang/Driver/Driver.h"
Daniel Dunbar544ecd12009-03-02 19:59:07 +000011
Daniel Dunbar1688f1a2009-03-12 07:58:46 +000012#include "clang/Driver/Action.h"
Daniel Dunbarb2cd66b2009-03-04 20:49:20 +000013#include "clang/Driver/Arg.h"
14#include "clang/Driver/ArgList.h"
15#include "clang/Driver/Compilation.h"
Daniel Dunbarc0b3e952009-03-12 08:55:43 +000016#include "clang/Driver/DriverDiagnostic.h"
Daniel Dunbar4dff6a42009-03-10 23:41:59 +000017#include "clang/Driver/HostInfo.h"
Daniel Dunbare75d8342009-03-16 06:56:51 +000018#include "clang/Driver/Job.h"
Daniel Dunbaraa767372009-11-19 00:15:11 +000019#include "clang/Driver/OptTable.h"
Daniel Dunbard02cb1d2009-03-05 06:38:47 +000020#include "clang/Driver/Option.h"
Daniel Dunbarb2cd66b2009-03-04 20:49:20 +000021#include "clang/Driver/Options.h"
Daniel Dunbare75d8342009-03-16 06:56:51 +000022#include "clang/Driver/Tool.h"
23#include "clang/Driver/ToolChain.h"
Daniel Dunbar1688f1a2009-03-12 07:58:46 +000024#include "clang/Driver/Types.h"
Daniel Dunbard02cb1d2009-03-05 06:38:47 +000025
Douglas Gregor7b71e632009-04-27 22:23:34 +000026#include "clang/Basic/Version.h"
27
Daniel Dunbar628fcf42010-08-12 00:05:12 +000028#include "llvm/Config/config.h"
Daniel Dunbare5dc4822009-03-13 20:33:35 +000029#include "llvm/ADT/StringSet.h"
Ted Kremenekbb1110a2010-01-19 01:29:05 +000030#include "llvm/ADT/OwningPtr.h"
Daniel Dunbar2608c542009-03-18 01:38:48 +000031#include "llvm/Support/PrettyStackTrace.h"
Daniel Dunbard02cb1d2009-03-05 06:38:47 +000032#include "llvm/Support/raw_ostream.h"
Michael J. Spencer8aaf4992010-11-29 18:12:39 +000033#include "llvm/Support/Path.h"
34#include "llvm/Support/Program.h"
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +000035
Daniel Dunbare75d8342009-03-16 06:56:51 +000036#include "InputInfo.h"
37
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +000038#include <map>
39
NAKAMURA Takumi89acd1e2010-10-11 02:28:42 +000040#ifdef __CYGWIN__
41#include <cygwin/version.h>
42#if defined(CYGWIN_VERSION_DLL_MAJOR) && CYGWIN_VERSION_DLL_MAJOR<1007
43#define IS_CYGWIN15 1
44#endif
45#endif
46
Daniel Dunbarb2cd66b2009-03-04 20:49:20 +000047using namespace clang::driver;
Chris Lattnerada1c912009-03-26 05:56:24 +000048using namespace clang;
Daniel Dunbarb2cd66b2009-03-04 20:49:20 +000049
Daniel Dunbare38764c2010-07-19 00:44:04 +000050Driver::Driver(llvm::StringRef _ClangExecutable,
Jeffrey Yasskin567ae472009-12-08 01:46:24 +000051 llvm::StringRef _DefaultHostTriple,
52 llvm::StringRef _DefaultImageName,
Daniel Dunbare43887b2010-04-01 18:21:41 +000053 bool IsProduction, bool CXXIsProduction,
54 Diagnostic &_Diags)
Daniel Dunbar26228a02009-11-18 20:19:36 +000055 : Opts(createDriverOptTable()), Diags(_Diags),
Daniel Dunbare38764c2010-07-19 00:44:04 +000056 ClangExecutable(_ClangExecutable), DefaultHostTriple(_DefaultHostTriple),
Daniel Dunbare75d8342009-03-16 06:56:51 +000057 DefaultImageName(_DefaultImageName),
Daniel Dunbar3babf5d2010-02-25 03:31:53 +000058 DriverTitle("clang \"gcc-compatible\" driver"),
Daniel Dunbar4dff6a42009-03-10 23:41:59 +000059 Host(0),
Rafael Espindolab2d0d402010-09-06 02:36:23 +000060 CCPrintOptionsFilename(0), CCCIsCXX(false),
61 CCCEcho(false), CCCPrintBindings(false), CCPrintOptions(false), CCCGenericGCCName("gcc"),
Daniel Dunbar6a8efa82010-03-20 08:01:59 +000062 CheckInputsExist(true), CCCUseClang(true), CCCUseClangCXX(true),
63 CCCUseClangCPP(true), CCCUsePCH(true), SuppressMissingInputWarning(false) {
Daniel Dunbar5564ba72009-09-22 22:31:13 +000064 if (IsProduction) {
65 // In a "production" build, only use clang on architectures we expect to
66 // work, and don't use clang C++.
67 //
68 // During development its more convenient to always have the driver use
69 // clang, but we don't want users to be confused when things don't work, or
70 // to file bugs for things we don't support.
71 CCCClangArchs.insert(llvm::Triple::x86);
72 CCCClangArchs.insert(llvm::Triple::x86_64);
73 CCCClangArchs.insert(llvm::Triple::arm);
74
Daniel Dunbare43887b2010-04-01 18:21:41 +000075 if (!CXXIsProduction)
76 CCCUseClangCXX = false;
Daniel Dunbar5564ba72009-09-22 22:31:13 +000077 }
Daniel Dunbar3f3e2cd2010-01-20 02:35:16 +000078
Daniel Dunbare38764c2010-07-19 00:44:04 +000079 llvm::sys::Path Executable(ClangExecutable);
80 Name = Executable.getBasename();
81 Dir = Executable.getDirname();
82
Daniel Dunbar3f3e2cd2010-01-20 02:35:16 +000083 // Compute the path to the resource directory.
Chandler Carruth06067c52010-10-19 08:47:51 +000084 llvm::StringRef ClangResourceDir(CLANG_RESOURCE_DIR);
Daniel Dunbar3f3e2cd2010-01-20 02:35:16 +000085 llvm::sys::Path P(Dir);
Chandler Carruth06067c52010-10-19 08:47:51 +000086 if (ClangResourceDir != "") {
87 P.appendComponent(ClangResourceDir);
88 } else {
89 P.appendComponent(".."); // Walk up from a 'bin' subdirectory.
90 P.appendComponent("lib");
91 P.appendComponent("clang");
92 P.appendComponent(CLANG_VERSION_STRING);
93 }
Daniel Dunbar3f3e2cd2010-01-20 02:35:16 +000094 ResourceDir = P.str();
Daniel Dunbar544ecd12009-03-02 19:59:07 +000095}
96
97Driver::~Driver() {
Daniel Dunbarb2cd66b2009-03-04 20:49:20 +000098 delete Opts;
Daniel Dunbar01601722009-03-18 01:09:40 +000099 delete Host;
Daniel Dunbar544ecd12009-03-02 19:59:07 +0000100}
101
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000102InputArgList *Driver::ParseArgStrings(const char **ArgBegin,
Daniel Dunbardac54a82009-03-25 04:13:45 +0000103 const char **ArgEnd) {
Daniel Dunbar2608c542009-03-18 01:38:48 +0000104 llvm::PrettyStackTraceString CrashInfo("Command line argument parsing");
Daniel Dunbar52ed5fe2009-11-19 06:35:06 +0000105 unsigned MissingArgIndex, MissingArgCount;
106 InputArgList *Args = getOpts().ParseArgs(ArgBegin, ArgEnd,
107 MissingArgIndex, MissingArgCount);
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000108
Daniel Dunbar52ed5fe2009-11-19 06:35:06 +0000109 // Check for missing argument error.
110 if (MissingArgCount)
111 Diag(clang::diag::err_drv_missing_argument)
112 << Args->getArgString(MissingArgIndex) << MissingArgCount;
Daniel Dunbar65229332009-03-13 11:38:42 +0000113
Daniel Dunbar52ed5fe2009-11-19 06:35:06 +0000114 // Check for unsupported options.
115 for (ArgList::const_iterator it = Args->begin(), ie = Args->end();
116 it != ie; ++it) {
117 Arg *A = *it;
Daniel Dunbard8500f32009-03-22 23:26:43 +0000118 if (A->getOption().isUnsupported()) {
119 Diag(clang::diag::err_drv_unsupported_opt) << A->getAsString(*Args);
120 continue;
121 }
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000122 }
123
124 return Args;
125}
126
Daniel Dunbar775d4062010-06-11 22:00:26 +0000127DerivedArgList *Driver::TranslateInputArgs(const InputArgList &Args) const {
128 DerivedArgList *DAL = new DerivedArgList(Args);
129
Daniel Dunbar2cc3f172010-09-17 00:45:02 +0000130 bool HasNostdlib = Args.hasArg(options::OPT_nostdlib);
Daniel Dunbar775d4062010-06-11 22:00:26 +0000131 for (ArgList::const_iterator it = Args.begin(),
Daniel Dunbarfb3d7472010-06-14 21:23:12 +0000132 ie = Args.end(); it != ie; ++it) {
133 const Arg *A = *it;
134
135 // Unfortunately, we have to parse some forwarding options (-Xassembler,
136 // -Xlinker, -Xpreprocessor) because we either integrate their functionality
137 // (assembler and preprocessor), or bypass a previous driver ('collect2').
Daniel Dunbar5a9d1832010-06-14 21:37:09 +0000138
139 // Rewrite linker options, to replace --no-demangle with a custom internal
140 // option.
141 if ((A->getOption().matches(options::OPT_Wl_COMMA) ||
142 A->getOption().matches(options::OPT_Xlinker)) &&
143 A->containsValue("--no-demangle")) {
Daniel Dunbarfb3d7472010-06-14 21:23:12 +0000144 // Add the rewritten no-demangle argument.
145 DAL->AddFlagArg(A, Opts->getOption(options::OPT_Z_Xlinker__no_demangle));
146
147 // Add the remaining values as Xlinker arguments.
148 for (unsigned i = 0, e = A->getNumValues(); i != e; ++i)
149 if (llvm::StringRef(A->getValue(Args, i)) != "--no-demangle")
150 DAL->AddSeparateArg(A, Opts->getOption(options::OPT_Xlinker),
151 A->getValue(Args, i));
152
153 continue;
154 }
155
Daniel Dunbar5a9d1832010-06-14 21:37:09 +0000156 // Rewrite preprocessor options, to replace -Wp,-MD,FOO which is used by
157 // some build systems. We don't try to be complete here because we don't
158 // care to encourage this usage model.
159 if (A->getOption().matches(options::OPT_Wp_COMMA) &&
160 A->getNumValues() == 2 &&
Daniel Dunbar3648ba72010-06-15 20:30:18 +0000161 (A->getValue(Args, 0) == llvm::StringRef("-MD") ||
162 A->getValue(Args, 0) == llvm::StringRef("-MMD"))) {
163 // Rewrite to -MD/-MMD along with -MF.
164 if (A->getValue(Args, 0) == llvm::StringRef("-MD"))
165 DAL->AddFlagArg(A, Opts->getOption(options::OPT_MD));
166 else
167 DAL->AddFlagArg(A, Opts->getOption(options::OPT_MMD));
Daniel Dunbar5a9d1832010-06-14 21:37:09 +0000168 DAL->AddSeparateArg(A, Opts->getOption(options::OPT_MF),
169 A->getValue(Args, 1));
170 continue;
171 }
172
Shantonu Senafeb03b2010-09-17 18:39:08 +0000173 // Rewrite reserved library names.
174 if (A->getOption().matches(options::OPT_l)) {
Daniel Dunbar2cc3f172010-09-17 00:45:02 +0000175 llvm::StringRef Value = A->getValue(Args);
176
Shantonu Senafeb03b2010-09-17 18:39:08 +0000177 // Rewrite unless -nostdlib is present.
178 if (!HasNostdlib && Value == "stdc++") {
Daniel Dunbar2cc3f172010-09-17 00:45:02 +0000179 DAL->AddFlagArg(A, Opts->getOption(
180 options::OPT_Z_reserved_lib_stdcxx));
181 continue;
182 }
Shantonu Senafeb03b2010-09-17 18:39:08 +0000183
184 // Rewrite unconditionally.
185 if (Value == "cc_kext") {
186 DAL->AddFlagArg(A, Opts->getOption(
187 options::OPT_Z_reserved_lib_cckext));
188 continue;
189 }
Daniel Dunbar2cc3f172010-09-17 00:45:02 +0000190 }
191
Daniel Dunbar775d4062010-06-11 22:00:26 +0000192 DAL->append(*it);
Daniel Dunbarfb3d7472010-06-14 21:23:12 +0000193 }
Daniel Dunbar775d4062010-06-11 22:00:26 +0000194
Daniel Dunbar628fcf42010-08-12 00:05:12 +0000195 // Add a default value of -mlinker-version=, if one was given and the user
196 // didn't specify one.
197#if defined(HOST_LINK_VERSION)
198 if (!Args.hasArg(options::OPT_mlinker_version_EQ)) {
199 DAL->AddJoinedArg(0, Opts->getOption(options::OPT_mlinker_version_EQ),
200 HOST_LINK_VERSION);
Daniel Dunbarb613ffc2010-08-17 22:32:45 +0000201 DAL->getLastArg(options::OPT_mlinker_version_EQ)->claim();
Daniel Dunbar628fcf42010-08-12 00:05:12 +0000202 }
203#endif
204
Daniel Dunbar775d4062010-06-11 22:00:26 +0000205 return DAL;
206}
207
Daniel Dunbar544ecd12009-03-02 19:59:07 +0000208Compilation *Driver::BuildCompilation(int argc, const char **argv) {
Daniel Dunbar2608c542009-03-18 01:38:48 +0000209 llvm::PrettyStackTraceString CrashInfo("Compilation construction");
210
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000211 // FIXME: Handle environment options which effect driver behavior, somewhere
212 // (client?). GCC_EXEC_PREFIX, COMPILER_PATH, LIBRARY_PATH, LPATH,
213 // CC_PRINT_OPTIONS.
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000214
215 // FIXME: What are we going to do with -V and -b?
216
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000217 // FIXME: This stuff needs to go into the Compilation, not the driver.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000218 bool CCCPrintOptions = false, CCCPrintActions = false;
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000219
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000220 const char **Start = argv + 1, **End = argv + argc;
221
Daniel Dunbaracd69572009-12-04 21:55:23 +0000222 InputArgList *Args = ParseArgStrings(Start, End);
223
Rafael Espindola59ae7992009-12-07 18:28:29 +0000224 // -no-canonical-prefixes is used very early in main.
225 Args->ClaimAllArgs(options::OPT_no_canonical_prefixes);
226
Daniel Dunbar926f81f2010-08-02 02:38:03 +0000227 // Ignore -pipe.
228 Args->ClaimAllArgs(options::OPT_pipe);
229
Daniel Dunbaracd69572009-12-04 21:55:23 +0000230 // Extract -ccc args.
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000231 //
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000232 // FIXME: We need to figure out where this behavior should live. Most of it
233 // should be outside in the client; the parts that aren't should have proper
234 // options, either by introducing new ones or by overloading gcc ones like -V
235 // or -b.
Daniel Dunbaracd69572009-12-04 21:55:23 +0000236 CCCPrintOptions = Args->hasArg(options::OPT_ccc_print_options);
237 CCCPrintActions = Args->hasArg(options::OPT_ccc_print_phases);
238 CCCPrintBindings = Args->hasArg(options::OPT_ccc_print_bindings);
Daniel Dunbar1b52d8c2009-12-05 00:13:59 +0000239 CCCIsCXX = Args->hasArg(options::OPT_ccc_cxx) || CCCIsCXX;
NAKAMURA Takumi89acd1e2010-10-11 02:28:42 +0000240 if (CCCIsCXX) {
241#ifdef IS_CYGWIN15
242 CCCGenericGCCName = "g++-4";
243#else
Rafael Espindolab2d0d402010-09-06 02:36:23 +0000244 CCCGenericGCCName = "g++";
NAKAMURA Takumi89acd1e2010-10-11 02:28:42 +0000245#endif
246 }
Daniel Dunbaracd69572009-12-04 21:55:23 +0000247 CCCEcho = Args->hasArg(options::OPT_ccc_echo);
248 if (const Arg *A = Args->getLastArg(options::OPT_ccc_gcc_name))
249 CCCGenericGCCName = A->getValue(*Args);
250 CCCUseClangCXX = Args->hasFlag(options::OPT_ccc_clang_cxx,
Daniel Dunbar1b52d8c2009-12-05 00:13:59 +0000251 options::OPT_ccc_no_clang_cxx,
252 CCCUseClangCXX);
Daniel Dunbaracd69572009-12-04 21:55:23 +0000253 CCCUsePCH = Args->hasFlag(options::OPT_ccc_pch_is_pch,
254 options::OPT_ccc_pch_is_pth);
255 CCCUseClang = !Args->hasArg(options::OPT_ccc_no_clang);
256 CCCUseClangCPP = !Args->hasArg(options::OPT_ccc_no_clang_cpp);
257 if (const Arg *A = Args->getLastArg(options::OPT_ccc_clang_archs)) {
258 llvm::StringRef Cur = A->getValue(*Args);
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000259
Daniel Dunbaracd69572009-12-04 21:55:23 +0000260 CCCClangArchs.clear();
261 while (!Cur.empty()) {
262 std::pair<llvm::StringRef, llvm::StringRef> Split = Cur.split(',');
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000263
Daniel Dunbaracd69572009-12-04 21:55:23 +0000264 if (!Split.first.empty()) {
265 llvm::Triple::ArchType Arch =
266 llvm::Triple(Split.first, "", "").getArch();
Daniel Dunbar7803c952009-04-01 23:34:41 +0000267
Daniel Dunbar84f22f92010-02-11 03:16:07 +0000268 if (Arch == llvm::Triple::UnknownArch)
269 Diag(clang::diag::err_drv_invalid_arch_name) << Split.first;
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000270
Daniel Dunbaracd69572009-12-04 21:55:23 +0000271 CCCClangArchs.insert(Arch);
Daniel Dunbar953b8d12009-09-08 23:36:55 +0000272 }
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000273
Daniel Dunbaracd69572009-12-04 21:55:23 +0000274 Cur = Split.second;
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000275 }
276 }
Daniel Dunbara73a9842010-08-02 05:44:04 +0000277 // FIXME: We shouldn't overwrite the default host triple here, but we have
278 // nowhere else to put this currently.
Daniel Dunbaracd69572009-12-04 21:55:23 +0000279 if (const Arg *A = Args->getLastArg(options::OPT_ccc_host_triple))
Daniel Dunbara73a9842010-08-02 05:44:04 +0000280 DefaultHostTriple = A->getValue(*Args);
Daniel Dunbaracd69572009-12-04 21:55:23 +0000281 if (const Arg *A = Args->getLastArg(options::OPT_ccc_install_dir))
Daniel Dunbar5d3b70a2010-08-23 20:58:50 +0000282 Dir = InstalledDir = A->getValue(*Args);
Chandler Carruth84559242010-03-22 01:52:07 +0000283 if (const Arg *A = Args->getLastArg(options::OPT_B))
284 PrefixDir = A->getValue(*Args);
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000285
Daniel Dunbara73a9842010-08-02 05:44:04 +0000286 Host = GetHostInfo(DefaultHostTriple.c_str());
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000287
Daniel Dunbar775d4062010-06-11 22:00:26 +0000288 // Perform the default argument translations.
289 DerivedArgList *TranslatedArgs = TranslateInputArgs(*Args);
290
Daniel Dunbar3ce436d2009-03-16 06:42:30 +0000291 // The compilation takes ownership of Args.
Daniel Dunbar775d4062010-06-11 22:00:26 +0000292 Compilation *C = new Compilation(*this, *Host->CreateToolChain(*Args), Args,
293 TranslatedArgs);
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000294
295 // FIXME: This behavior shouldn't be here.
296 if (CCCPrintOptions) {
Daniel Dunbaraf8decb2010-06-11 22:43:38 +0000297 PrintOptions(C->getInputArgs());
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000298 return C;
299 }
300
301 if (!HandleImmediateArgs(*C))
302 return C;
303
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000304 // Construct the list of abstract actions to perform for this compilation.
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000305 if (Host->useDriverDriver())
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000306 BuildUniversalActions(C->getDefaultToolChain(), C->getArgs(),
307 C->getActions());
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000308 else
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000309 BuildActions(C->getDefaultToolChain(), C->getArgs(), C->getActions());
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000310
311 if (CCCPrintActions) {
Daniel Dunbareb843be2009-03-18 03:13:20 +0000312 PrintActions(*C);
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000313 return C;
314 }
315
316 BuildJobs(*C);
Daniel Dunbaradc91e62009-03-15 01:38:15 +0000317
318 return C;
Daniel Dunbaree66cf22009-03-10 20:52:46 +0000319}
320
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000321int Driver::ExecuteCompilation(const Compilation &C) const {
322 // Just print if -### was present.
323 if (C.getArgs().hasArg(options::OPT__HASH_HASH_HASH)) {
324 C.PrintJob(llvm::errs(), C.getJobs(), "\n", true);
325 return 0;
326 }
327
328 // If there were errors building the compilation, quit now.
Argyrios Kyrtzidis31448a42010-11-18 21:47:07 +0000329 if (getDiags().hasErrorOccurred())
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000330 return 1;
331
332 const Command *FailingCommand = 0;
333 int Res = C.ExecuteJob(C.getJobs(), FailingCommand);
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000334
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000335 // Remove temp files.
336 C.CleanupFileList(C.getTempFiles());
337
Daniel Dunbar07494792010-05-22 00:37:20 +0000338 // If the command succeeded, we are done.
339 if (Res == 0)
340 return Res;
341
342 // Otherwise, remove result files as well.
343 if (!C.getArgs().hasArg(options::OPT_save_temps))
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000344 C.CleanupFileList(C.getResultFiles(), true);
345
346 // Print extra information about abnormal failures, if possible.
Daniel Dunbar07494792010-05-22 00:37:20 +0000347 //
348 // This is ad-hoc, but we don't want to be excessively noisy. If the result
349 // status was 1, assume the command failed normally. In particular, if it was
350 // the compiler then assume it gave a reasonable error code. Failures in other
351 // tools are less common, and they generally have worse diagnostics, so always
352 // print the diagnostic there.
353 const Tool &FailingTool = FailingCommand->getCreator();
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000354
Daniel Dunbar07494792010-05-22 00:37:20 +0000355 if (!FailingCommand->getCreator().hasGoodDiagnostics() || Res != 1) {
356 // FIXME: See FIXME above regarding result code interpretation.
357 if (Res < 0)
358 Diag(clang::diag::err_drv_command_signalled)
359 << FailingTool.getShortName() << -Res;
360 else
361 Diag(clang::diag::err_drv_command_failed)
362 << FailingTool.getShortName() << Res;
Daniel Dunbar38bfda62009-07-01 20:03:04 +0000363 }
364
365 return Res;
366}
367
Daniel Dunbar446f6842009-03-12 18:24:49 +0000368void Driver::PrintOptions(const ArgList &Args) const {
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000369 unsigned i = 0;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000370 for (ArgList::const_iterator it = Args.begin(), ie = Args.end();
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000371 it != ie; ++it, ++i) {
372 Arg *A = *it;
373 llvm::errs() << "Option " << i << " - "
374 << "Name: \"" << A->getOption().getName() << "\", "
375 << "Values: {";
376 for (unsigned j = 0; j < A->getNumValues(); ++j) {
377 if (j)
378 llvm::errs() << ", ";
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000379 llvm::errs() << '"' << A->getValue(Args, j) << '"';
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000380 }
381 llvm::errs() << "}\n";
Daniel Dunbard02cb1d2009-03-05 06:38:47 +0000382 }
Daniel Dunbar544ecd12009-03-02 19:59:07 +0000383}
Daniel Dunbar4dff6a42009-03-10 23:41:59 +0000384
Daniel Dunbara7b5e212009-04-15 16:34:29 +0000385void Driver::PrintHelp(bool ShowHidden) const {
Daniel Dunbar3babf5d2010-02-25 03:31:53 +0000386 getOpts().PrintHelp(llvm::outs(), Name.c_str(), DriverTitle.c_str(),
387 ShowHidden);
Daniel Dunbar7c925282009-03-31 21:38:17 +0000388}
389
Daniel Dunbar08e41d62009-07-21 20:06:58 +0000390void Driver::PrintVersion(const Compilation &C, llvm::raw_ostream &OS) const {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000391 // FIXME: The following handlers should use a callback mechanism, we don't
392 // know what the client would like to do.
Ted Kremenek4c0df3d2010-01-23 02:11:34 +0000393 OS << getClangFullVersion() << '\n';
Daniel Dunbarb10248802009-03-26 16:09:13 +0000394 const ToolChain &TC = C.getDefaultToolChain();
Daniel Dunbar08e41d62009-07-21 20:06:58 +0000395 OS << "Target: " << TC.getTripleString() << '\n';
Daniel Dunbar10978e42009-06-16 23:32:58 +0000396
397 // Print the threading model.
398 //
399 // FIXME: Implement correctly.
Daniel Dunbar08e41d62009-07-21 20:06:58 +0000400 OS << "Thread model: " << "posix" << '\n';
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000401}
402
Chris Lattner86ed5b02010-05-05 05:53:24 +0000403/// PrintDiagnosticCategories - Implement the --print-diagnostic-categories
404/// option.
405static void PrintDiagnosticCategories(llvm::raw_ostream &OS) {
406 for (unsigned i = 1; // Skip the empty category.
Argyrios Kyrtzidisd0040642010-11-18 20:06:41 +0000407 const char *CategoryName = DiagnosticIDs::getCategoryNameFromID(i); ++i)
Chris Lattner86ed5b02010-05-05 05:53:24 +0000408 OS << i << ',' << CategoryName << '\n';
409}
410
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000411bool Driver::HandleImmediateArgs(const Compilation &C) {
Daniel Dunbar18974bd2010-06-11 22:00:19 +0000412 // The order these options are handled in gcc is all over the place, but we
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000413 // don't expect inconsistencies w.r.t. that to matter in practice.
Daniel Dunbar7c925282009-03-31 21:38:17 +0000414
Daniel Dunbar1b09e042010-09-17 02:47:28 +0000415 if (C.getArgs().hasArg(options::OPT_dumpmachine)) {
416 llvm::outs() << C.getDefaultToolChain().getTripleString() << '\n';
417 return false;
418 }
419
Eric Christopher4698e932010-12-17 19:13:21 +0000420 // This is a horrible hack. Some projects depend on gcc-like versions
421 // coming out of gcc -dumpversion to determine if the gcc compatible
422 // compiler has a correct version. Ideally we'd fix all of those projects.
Daniel Dunbara9bbcfa2009-04-04 05:17:38 +0000423 if (C.getArgs().hasArg(options::OPT_dumpversion)) {
Eric Christopher4698e932010-12-17 19:13:21 +0000424 llvm::outs() << GCC_COMPAT_VERSION_STRING "\n";
Daniel Dunbara9bbcfa2009-04-04 05:17:38 +0000425 return false;
426 }
Daniel Dunbarfb3d7472010-06-14 21:23:12 +0000427
Chris Lattner86ed5b02010-05-05 05:53:24 +0000428 if (C.getArgs().hasArg(options::OPT__print_diagnostic_categories)) {
429 PrintDiagnosticCategories(llvm::outs());
430 return false;
431 }
Daniel Dunbara9bbcfa2009-04-04 05:17:38 +0000432
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000433 if (C.getArgs().hasArg(options::OPT__help) ||
Daniel Dunbara7b5e212009-04-15 16:34:29 +0000434 C.getArgs().hasArg(options::OPT__help_hidden)) {
435 PrintHelp(C.getArgs().hasArg(options::OPT__help_hidden));
Daniel Dunbar7c925282009-03-31 21:38:17 +0000436 return false;
437 }
438
Daniel Dunbarb0006ae2009-04-02 15:05:41 +0000439 if (C.getArgs().hasArg(options::OPT__version)) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000440 // Follow gcc behavior and use stdout for --version and stderr for -v.
Daniel Dunbar08e41d62009-07-21 20:06:58 +0000441 PrintVersion(C, llvm::outs());
Daniel Dunbarb0006ae2009-04-02 15:05:41 +0000442 return false;
443 }
444
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000445 if (C.getArgs().hasArg(options::OPT_v) ||
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000446 C.getArgs().hasArg(options::OPT__HASH_HASH_HASH)) {
Daniel Dunbar08e41d62009-07-21 20:06:58 +0000447 PrintVersion(C, llvm::errs());
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000448 SuppressMissingInputWarning = true;
449 }
450
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000451 const ToolChain &TC = C.getDefaultToolChain();
Daniel Dunbard972e222009-03-20 04:37:21 +0000452 if (C.getArgs().hasArg(options::OPT_print_search_dirs)) {
453 llvm::outs() << "programs: =";
454 for (ToolChain::path_list::const_iterator it = TC.getProgramPaths().begin(),
455 ie = TC.getProgramPaths().end(); it != ie; ++it) {
456 if (it != TC.getProgramPaths().begin())
457 llvm::outs() << ':';
458 llvm::outs() << *it;
459 }
460 llvm::outs() << "\n";
461 llvm::outs() << "libraries: =";
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000462 for (ToolChain::path_list::const_iterator it = TC.getFilePaths().begin(),
Daniel Dunbard972e222009-03-20 04:37:21 +0000463 ie = TC.getFilePaths().end(); it != ie; ++it) {
464 if (it != TC.getFilePaths().begin())
465 llvm::outs() << ':';
466 llvm::outs() << *it;
467 }
468 llvm::outs() << "\n";
Daniel Dunbar7c925282009-03-31 21:38:17 +0000469 return false;
Daniel Dunbard972e222009-03-20 04:37:21 +0000470 }
471
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000472 // FIXME: The following handlers should use a callback mechanism, we don't
473 // know what the client would like to do.
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000474 if (Arg *A = C.getArgs().getLastArg(options::OPT_print_file_name_EQ)) {
Daniel Dunbar1ce81532009-09-09 22:33:00 +0000475 llvm::outs() << GetFilePath(A->getValue(C.getArgs()), TC) << "\n";
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000476 return false;
477 }
478
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000479 if (Arg *A = C.getArgs().getLastArg(options::OPT_print_prog_name_EQ)) {
Daniel Dunbar1ce81532009-09-09 22:33:00 +0000480 llvm::outs() << GetProgramPath(A->getValue(C.getArgs()), TC) << "\n";
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000481 return false;
482 }
483
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000484 if (C.getArgs().hasArg(options::OPT_print_libgcc_file_name)) {
Daniel Dunbar1ce81532009-09-09 22:33:00 +0000485 llvm::outs() << GetFilePath("libgcc.a", TC) << "\n";
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000486 return false;
487 }
488
Daniel Dunbar1b3ec3a2009-06-16 23:25:22 +0000489 if (C.getArgs().hasArg(options::OPT_print_multi_lib)) {
490 // FIXME: We need tool chain support for this.
491 llvm::outs() << ".;\n";
492
493 switch (C.getDefaultToolChain().getTriple().getArch()) {
494 default:
495 break;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000496
Daniel Dunbar1b3ec3a2009-06-16 23:25:22 +0000497 case llvm::Triple::x86_64:
498 llvm::outs() << "x86_64;@m64" << "\n";
499 break;
500
501 case llvm::Triple::ppc64:
502 llvm::outs() << "ppc64;@m64" << "\n";
503 break;
504 }
505 return false;
506 }
507
508 // FIXME: What is the difference between print-multi-directory and
509 // print-multi-os-directory?
510 if (C.getArgs().hasArg(options::OPT_print_multi_directory) ||
511 C.getArgs().hasArg(options::OPT_print_multi_os_directory)) {
512 switch (C.getDefaultToolChain().getTriple().getArch()) {
513 default:
514 case llvm::Triple::x86:
515 case llvm::Triple::ppc:
516 llvm::outs() << "." << "\n";
517 break;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000518
Daniel Dunbar1b3ec3a2009-06-16 23:25:22 +0000519 case llvm::Triple::x86_64:
520 llvm::outs() << "x86_64" << "\n";
521 break;
522
523 case llvm::Triple::ppc64:
524 llvm::outs() << "ppc64" << "\n";
525 break;
526 }
527 return false;
528 }
529
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +0000530 return true;
531}
532
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000533static unsigned PrintActions1(const Compilation &C, Action *A,
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000534 std::map<Action*, unsigned> &Ids) {
535 if (Ids.count(A))
536 return Ids[A];
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000537
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000538 std::string str;
539 llvm::raw_string_ostream os(str);
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000540
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000541 os << Action::getClassName(A->getKind()) << ", ";
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000542 if (InputAction *IA = dyn_cast<InputAction>(A)) {
Daniel Dunbareb843be2009-03-18 03:13:20 +0000543 os << "\"" << IA->getInputArg().getValue(C.getArgs()) << "\"";
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000544 } else if (BindArchAction *BIA = dyn_cast<BindArchAction>(A)) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000545 os << '"' << (BIA->getArchName() ? BIA->getArchName() :
Daniel Dunbareb843be2009-03-18 03:13:20 +0000546 C.getDefaultToolChain().getArchName()) << '"'
547 << ", {" << PrintActions1(C, *BIA->begin(), Ids) << "}";
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000548 } else {
549 os << "{";
550 for (Action::iterator it = A->begin(), ie = A->end(); it != ie;) {
Daniel Dunbareb843be2009-03-18 03:13:20 +0000551 os << PrintActions1(C, *it, Ids);
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000552 ++it;
553 if (it != ie)
554 os << ", ";
555 }
556 os << "}";
557 }
558
559 unsigned Id = Ids.size();
560 Ids[A] = Id;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000561 llvm::errs() << Id << ": " << os.str() << ", "
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000562 << types::getTypeName(A->getType()) << "\n";
563
564 return Id;
565}
566
Daniel Dunbareb843be2009-03-18 03:13:20 +0000567void Driver::PrintActions(const Compilation &C) const {
Daniel Dunbaraaf1ea62009-03-13 12:19:02 +0000568 std::map<Action*, unsigned> Ids;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000569 for (ActionList::const_iterator it = C.getActions().begin(),
Daniel Dunbareb843be2009-03-18 03:13:20 +0000570 ie = C.getActions().end(); it != ie; ++it)
571 PrintActions1(C, *it, Ids);
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000572}
573
Daniel Dunbar00d3d8e2010-06-29 16:38:33 +0000574/// \brief Check whether the given input tree contains any compilation (or
575/// assembly) actions.
576static bool ContainsCompileAction(const Action *A) {
577 if (isa<CompileJobAction>(A) || isa<AssembleJobAction>(A))
578 return true;
579
580 for (Action::const_iterator it = A->begin(), ie = A->end(); it != ie; ++it)
581 if (ContainsCompileAction(*it))
582 return true;
583
584 return false;
585}
586
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000587void Driver::BuildUniversalActions(const ToolChain &TC,
588 const ArgList &Args,
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000589 ActionList &Actions) const {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000590 llvm::PrettyStackTraceString CrashInfo("Building universal build actions");
591 // Collect the list of architectures. Duplicates are allowed, but should only
592 // be handled once (in the order seen).
Daniel Dunbare5dc4822009-03-13 20:33:35 +0000593 llvm::StringSet<> ArchNames;
594 llvm::SmallVector<const char *, 4> Archs;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000595 for (ArgList::const_iterator it = Args.begin(), ie = Args.end();
Daniel Dunbarf479c122009-03-12 18:40:18 +0000596 it != ie; ++it) {
597 Arg *A = *it;
598
Daniel Dunbar0bfb21e2009-11-19 03:26:40 +0000599 if (A->getOption().matches(options::OPT_arch)) {
Daniel Dunbar9c3f7c42009-09-08 23:37:30 +0000600 // Validate the option here; we don't save the type here because its
601 // particular spelling may participate in other driver choices.
602 llvm::Triple::ArchType Arch =
603 llvm::Triple::getArchTypeForDarwinArchName(A->getValue(Args));
604 if (Arch == llvm::Triple::UnknownArch) {
605 Diag(clang::diag::err_drv_invalid_arch_name)
606 << A->getAsString(Args);
607 continue;
608 }
609
Daniel Dunbar2da02722009-03-19 07:55:12 +0000610 A->claim();
Daniel Dunbar7b574042009-09-08 23:37:02 +0000611 if (ArchNames.insert(A->getValue(Args)))
612 Archs.push_back(A->getValue(Args));
Daniel Dunbarf479c122009-03-12 18:40:18 +0000613 }
614 }
615
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000616 // When there is no explicit arch for this platform, make sure we still bind
617 // the architecture (to the default) so that -Xarch_ is handled correctly.
Daniel Dunbareb843be2009-03-18 03:13:20 +0000618 if (!Archs.size())
619 Archs.push_back(0);
Daniel Dunbarf479c122009-03-12 18:40:18 +0000620
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000621 // FIXME: We killed off some others but these aren't yet detected in a
622 // functional manner. If we added information to jobs about which "auxiliary"
623 // files they wrote then we could detect the conflict these cause downstream.
Daniel Dunbarf479c122009-03-12 18:40:18 +0000624 if (Archs.size() > 1) {
625 // No recovery needed, the point of this is just to prevent
626 // overwriting the same files.
Daniel Dunbarf479c122009-03-12 18:40:18 +0000627 if (const Arg *A = Args.getLastArg(options::OPT_save_temps))
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000628 Diag(clang::diag::err_drv_invalid_opt_with_multiple_archs)
Daniel Dunbar0e759942009-03-20 06:14:23 +0000629 << A->getAsString(Args);
Daniel Dunbarf479c122009-03-12 18:40:18 +0000630 }
631
632 ActionList SingleActions;
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000633 BuildActions(TC, Args, SingleActions);
Daniel Dunbarf479c122009-03-12 18:40:18 +0000634
Daniel Dunbar6beaf512010-06-04 18:28:41 +0000635 // Add in arch bindings for every top level action, as well as lipo and
636 // dsymutil steps if needed.
Daniel Dunbarf479c122009-03-12 18:40:18 +0000637 for (unsigned i = 0, e = SingleActions.size(); i != e; ++i) {
638 Action *Act = SingleActions[i];
639
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000640 // Make sure we can lipo this kind of output. If not (and it is an actual
641 // output) then we disallow, since we can't create an output file with the
642 // right name without overwriting it. We could remove this oddity by just
643 // changing the output names to include the arch, which would also fix
Daniel Dunbarf479c122009-03-12 18:40:18 +0000644 // -save-temps. Compatibility wins for now.
645
Daniel Dunbare2ca3bd2009-03-13 17:46:02 +0000646 if (Archs.size() > 1 && !types::canLipoType(Act->getType()))
Daniel Dunbarf479c122009-03-12 18:40:18 +0000647 Diag(clang::diag::err_drv_invalid_output_with_multiple_archs)
648 << types::getTypeName(Act->getType());
649
650 ActionList Inputs;
Daniel Dunbar66187b32010-03-11 18:04:58 +0000651 for (unsigned i = 0, e = Archs.size(); i != e; ++i) {
Daniel Dunbare5dc4822009-03-13 20:33:35 +0000652 Inputs.push_back(new BindArchAction(Act, Archs[i]));
Daniel Dunbar66187b32010-03-11 18:04:58 +0000653 if (i != 0)
654 Inputs.back()->setOwnsInputs(false);
655 }
Daniel Dunbarf479c122009-03-12 18:40:18 +0000656
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000657 // Lipo if necessary, we do it this way because we need to set the arch flag
658 // so that -Xarch_ gets overwritten.
Daniel Dunbarf479c122009-03-12 18:40:18 +0000659 if (Inputs.size() == 1 || Act->getType() == types::TY_Nothing)
660 Actions.append(Inputs.begin(), Inputs.end());
661 else
662 Actions.push_back(new LipoJobAction(Inputs, Act->getType()));
Daniel Dunbar6beaf512010-06-04 18:28:41 +0000663
Daniel Dunbar00d3d8e2010-06-29 16:38:33 +0000664 // Add a 'dsymutil' step if necessary, when debug info is enabled and we
665 // have a compile input. We need to run 'dsymutil' ourselves in such cases
666 // because the debug info will refer to a temporary object file which is
667 // will be removed at the end of the compilation process.
Daniel Dunbar6beaf512010-06-04 18:28:41 +0000668 if (Act->getType() == types::TY_Image) {
669 Arg *A = Args.getLastArg(options::OPT_g_Group);
670 if (A && !A->getOption().matches(options::OPT_g0) &&
Daniel Dunbar00d3d8e2010-06-29 16:38:33 +0000671 !A->getOption().matches(options::OPT_gstabs) &&
672 ContainsCompileAction(Actions.back())) {
Daniel Dunbar6beaf512010-06-04 18:28:41 +0000673 ActionList Inputs;
674 Inputs.push_back(Actions.back());
675 Actions.pop_back();
676
677 Actions.push_back(new DsymutilJobAction(Inputs, types::TY_dSYM));
678 }
679 }
Daniel Dunbarf479c122009-03-12 18:40:18 +0000680 }
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000681}
682
Daniel Dunbara36c2b32010-08-02 05:43:51 +0000683void Driver::BuildActions(const ToolChain &TC, const ArgList &Args,
684 ActionList &Actions) const {
Daniel Dunbar2608c542009-03-18 01:38:48 +0000685 llvm::PrettyStackTraceString CrashInfo("Building compilation actions");
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000686 // Start by constructing the list of inputs and their types.
687
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000688 // Track the current user specified (-x) input. We also explicitly track the
689 // argument used to set the type; we only want to claim the type when we
690 // actually use it, so we warn about unused -x arguments.
Daniel Dunbarc5a5ac52009-03-13 17:57:10 +0000691 types::ID InputType = types::TY_Nothing;
692 Arg *InputTypeArg = 0;
693
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000694 llvm::SmallVector<std::pair<types::ID, const Arg*>, 16> Inputs;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000695 for (ArgList::const_iterator it = Args.begin(), ie = Args.end();
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000696 it != ie; ++it) {
697 Arg *A = *it;
698
699 if (isa<InputOption>(A->getOption())) {
700 const char *Value = A->getValue(Args);
701 types::ID Ty = types::TY_INVALID;
702
703 // Infer the input type if necessary.
Daniel Dunbarc5a5ac52009-03-13 17:57:10 +0000704 if (InputType == types::TY_Nothing) {
705 // If there was an explicit arg for this, claim it.
706 if (InputTypeArg)
707 InputTypeArg->claim();
708
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000709 // stdin must be handled specially.
710 if (memcmp(Value, "-", 2) == 0) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000711 // If running with -E, treat as a C input (this changes the builtin
712 // macros, for example). This may be overridden by -ObjC below.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000713 //
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000714 // Otherwise emit an error but still use a valid type to avoid
715 // spurious errors (e.g., no inputs).
Daniel Dunbarfffd1812009-11-19 04:00:53 +0000716 if (!Args.hasArgNoClaim(options::OPT_E))
Daniel Dunbar5cd1e412009-03-12 09:13:48 +0000717 Diag(clang::diag::err_drv_unknown_stdin_type);
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000718 Ty = types::TY_C;
719 } else {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000720 // Otherwise lookup by extension, and fallback to ObjectType if not
721 // found. We use a host hook here because Darwin at least has its own
722 // idea of what .s is.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000723 if (const char *Ext = strrchr(Value, '.'))
Daniel Dunbarcc7df6c2010-08-02 05:43:56 +0000724 Ty = TC.LookupTypeForExtension(Ext + 1);
Daniel Dunbarea9f0322009-03-20 23:39:23 +0000725
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000726 if (Ty == types::TY_INVALID)
727 Ty = types::TY_Object;
Daniel Dunbar0ac94452010-02-17 20:32:58 +0000728
729 // If the driver is invoked as C++ compiler (like clang++ or c++) it
730 // should autodetect some input files as C++ for g++ compatibility.
731 if (CCCIsCXX) {
732 types::ID OldTy = Ty;
733 Ty = types::lookupCXXTypeForCType(Ty);
734
735 if (Ty != OldTy)
736 Diag(clang::diag::warn_drv_treating_input_as_cxx)
737 << getTypeName(OldTy) << getTypeName(Ty);
738 }
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000739 }
740
Daniel Dunbar82b22102009-05-18 21:47:54 +0000741 // -ObjC and -ObjC++ override the default language, but only for "source
742 // files". We just treat everything that isn't a linker input as a
743 // source file.
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000744 //
Daniel Dunbar82b22102009-05-18 21:47:54 +0000745 // FIXME: Clean this up if we move the phase sequence into the type.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000746 if (Ty != types::TY_Object) {
747 if (Args.hasArg(options::OPT_ObjC))
748 Ty = types::TY_ObjC;
749 else if (Args.hasArg(options::OPT_ObjCXX))
750 Ty = types::TY_ObjCXX;
751 }
752 } else {
753 assert(InputTypeArg && "InputType set w/o InputTypeArg");
754 InputTypeArg->claim();
755 Ty = InputType;
756 }
757
Daniel Dunbarfcf2d422010-01-25 00:44:02 +0000758 // Check that the file exists, if enabled.
Argyrios Kyrtzidis71731d62010-11-03 22:45:23 +0000759 if (CheckInputsExist && memcmp(Value, "-", 2) != 0) {
760 llvm::sys::Path Path(Value);
761 if (Arg *WorkDir = Args.getLastArg(options::OPT_working_directory))
762 if (!Path.isAbsolute()) {
763 Path = WorkDir->getValue(Args);
764 Path.appendComponent(Value);
765 }
766
767 if (!Path.exists())
768 Diag(clang::diag::err_drv_no_such_file) << Path.str();
769 else
770 Inputs.push_back(std::make_pair(Ty, A));
771 } else
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000772 Inputs.push_back(std::make_pair(Ty, A));
773
774 } else if (A->getOption().isLinkerInput()) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000775 // Just treat as object type, we could make a special type for this if
776 // necessary.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000777 Inputs.push_back(std::make_pair(types::TY_Object, A));
778
Daniel Dunbar0bfb21e2009-11-19 03:26:40 +0000779 } else if (A->getOption().matches(options::OPT_x)) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000780 InputTypeArg = A;
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000781 InputType = types::lookupTypeForTypeSpecifier(A->getValue(Args));
782
783 // Follow gcc behavior and treat as linker input for invalid -x
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000784 // options. Its not clear why we shouldn't just revert to unknown; but
785 // this isn't very important, we might as well be bug comatible.
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000786 if (!InputType) {
Daniel Dunbar5cd1e412009-03-12 09:13:48 +0000787 Diag(clang::diag::err_drv_unknown_language) << A->getValue(Args);
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000788 InputType = types::TY_Object;
789 }
790 }
791 }
792
Daniel Dunbar34c41872009-03-13 00:17:48 +0000793 if (!SuppressMissingInputWarning && Inputs.empty()) {
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000794 Diag(clang::diag::err_drv_no_input_files);
795 return;
796 }
797
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000798 // Determine which compilation mode we are in. We look for options which
799 // affect the phase, starting with the earliest phases, and record which
800 // option we used to determine the final phase.
Daniel Dunbar65229332009-03-13 11:38:42 +0000801 Arg *FinalPhaseArg = 0;
802 phases::ID FinalPhase;
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000803
804 // -{E,M,MM} only run the preprocessor.
Daniel Dunbar65229332009-03-13 11:38:42 +0000805 if ((FinalPhaseArg = Args.getLastArg(options::OPT_E)) ||
Daniel Dunbar86aed7d2010-12-08 21:33:40 +0000806 (FinalPhaseArg = Args.getLastArg(options::OPT_M, options::OPT_MM))) {
Daniel Dunbar65229332009-03-13 11:38:42 +0000807 FinalPhase = phases::Preprocess;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000808
Daniel Dunbar6cdf83c2009-09-01 16:57:46 +0000809 // -{fsyntax-only,-analyze,emit-ast,S} only run up to the compiler.
Daniel Dunbarae0e55e2009-03-15 00:48:16 +0000810 } else if ((FinalPhaseArg = Args.getLastArg(options::OPT_fsyntax_only)) ||
Daniel Dunbaraeea8ac2010-02-11 03:16:21 +0000811 (FinalPhaseArg = Args.getLastArg(options::OPT_rewrite_objc)) ||
Daniel Dunbar5e051f92009-05-06 02:12:32 +0000812 (FinalPhaseArg = Args.getLastArg(options::OPT__analyze,
813 options::OPT__analyze_auto)) ||
Daniel Dunbar6cdf83c2009-09-01 16:57:46 +0000814 (FinalPhaseArg = Args.getLastArg(options::OPT_emit_ast)) ||
Daniel Dunbar65229332009-03-13 11:38:42 +0000815 (FinalPhaseArg = Args.getLastArg(options::OPT_S))) {
816 FinalPhase = phases::Compile;
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000817
818 // -c only runs up to the assembler.
Daniel Dunbar65229332009-03-13 11:38:42 +0000819 } else if ((FinalPhaseArg = Args.getLastArg(options::OPT_c))) {
820 FinalPhase = phases::Assemble;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000821
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000822 // Otherwise do everything.
823 } else
Daniel Dunbar65229332009-03-13 11:38:42 +0000824 FinalPhase = phases::Link;
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000825
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000826 // Reject -Z* at the top level, these options should never have been exposed
827 // by gcc.
Daniel Dunbardd765242009-03-26 16:12:09 +0000828 if (Arg *A = Args.getLastArg(options::OPT_Z_Joined))
Daniel Dunbar0e759942009-03-20 06:14:23 +0000829 Diag(clang::diag::err_drv_use_of_Z_option) << A->getAsString(Args);
Daniel Dunbarbfeec742009-03-12 23:55:14 +0000830
Daniel Dunbar65229332009-03-13 11:38:42 +0000831 // Construct the actions to perform.
832 ActionList LinkerInputs;
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000833 for (unsigned i = 0, e = Inputs.size(); i != e; ++i) {
Daniel Dunbar65229332009-03-13 11:38:42 +0000834 types::ID InputType = Inputs[i].first;
835 const Arg *InputArg = Inputs[i].second;
836
837 unsigned NumSteps = types::getNumCompilationPhases(InputType);
838 assert(NumSteps && "Invalid number of steps!");
839
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000840 // If the first step comes after the final phase we are doing as part of
841 // this compilation, warn the user about it.
Daniel Dunbar65229332009-03-13 11:38:42 +0000842 phases::ID InitialPhase = types::getCompilationPhase(InputType, 0);
843 if (InitialPhase > FinalPhase) {
Daniel Dunbaradc5c7c2009-03-19 07:57:08 +0000844 // Claim here to avoid the more general unused warning.
845 InputArg->claim();
Daniel Dunbar07806ca2009-09-17 04:13:26 +0000846
847 // Special case '-E' warning on a previously preprocessed file to make
848 // more sense.
849 if (InitialPhase == phases::Compile && FinalPhase == phases::Preprocess &&
850 getPreprocessedType(InputType) == types::TY_INVALID)
851 Diag(clang::diag::warn_drv_preprocessed_input_file_unused)
852 << InputArg->getAsString(Args)
853 << FinalPhaseArg->getOption().getName();
854 else
855 Diag(clang::diag::warn_drv_input_file_unused)
856 << InputArg->getAsString(Args)
857 << getPhaseName(InitialPhase)
858 << FinalPhaseArg->getOption().getName();
Daniel Dunbar65229332009-03-13 11:38:42 +0000859 continue;
860 }
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000861
Daniel Dunbar65229332009-03-13 11:38:42 +0000862 // Build the pipeline for this file.
Ted Kremenekbb1110a2010-01-19 01:29:05 +0000863 llvm::OwningPtr<Action> Current(new InputAction(*InputArg, InputType));
Daniel Dunbar65229332009-03-13 11:38:42 +0000864 for (unsigned i = 0; i != NumSteps; ++i) {
865 phases::ID Phase = types::getCompilationPhase(InputType, i);
866
867 // We are done if this step is past what the user requested.
868 if (Phase > FinalPhase)
869 break;
870
871 // Queue linker inputs.
872 if (Phase == phases::Link) {
873 assert(i + 1 == NumSteps && "linking must be final compilation step.");
Ted Kremenekbb1110a2010-01-19 01:29:05 +0000874 LinkerInputs.push_back(Current.take());
Daniel Dunbar65229332009-03-13 11:38:42 +0000875 break;
876 }
877
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000878 // Some types skip the assembler phase (e.g., llvm-bc), but we can't
879 // encode this in the steps because the intermediate type depends on
880 // arguments. Just special case here.
Daniel Dunbar13864952009-03-24 20:17:30 +0000881 if (Phase == phases::Assemble && Current->getType() != types::TY_PP_Asm)
882 continue;
883
Daniel Dunbar65229332009-03-13 11:38:42 +0000884 // Otherwise construct the appropriate action.
Ted Kremenekbb1110a2010-01-19 01:29:05 +0000885 Current.reset(ConstructPhaseAction(Args, Phase, Current.take()));
Daniel Dunbar65229332009-03-13 11:38:42 +0000886 if (Current->getType() == types::TY_Nothing)
887 break;
888 }
889
890 // If we ended with something, add to the output list.
891 if (Current)
Ted Kremenekbb1110a2010-01-19 01:29:05 +0000892 Actions.push_back(Current.take());
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000893 }
Daniel Dunbar65229332009-03-13 11:38:42 +0000894
895 // Add a link action if necessary.
896 if (!LinkerInputs.empty())
897 Actions.push_back(new LinkJobAction(LinkerInputs, types::TY_Image));
Daniel Dunbarc7a67b72009-12-22 23:19:32 +0000898
899 // If we are linking, claim any options which are obviously only used for
900 // compilation.
901 if (FinalPhase == phases::Link)
902 Args.ClaimAllArgs(options::OPT_CompileOnly_Group);
Daniel Dunbar65229332009-03-13 11:38:42 +0000903}
904
905Action *Driver::ConstructPhaseAction(const ArgList &Args, phases::ID Phase,
906 Action *Input) const {
Daniel Dunbar2608c542009-03-18 01:38:48 +0000907 llvm::PrettyStackTraceString CrashInfo("Constructing phase actions");
Daniel Dunbar65229332009-03-13 11:38:42 +0000908 // Build the appropriate action.
909 switch (Phase) {
910 case phases::Link: assert(0 && "link action invalid here.");
911 case phases::Preprocess: {
Daniel Dunbard67a3222009-03-30 06:36:42 +0000912 types::ID OutputTy;
913 // -{M, MM} alter the output type.
Daniel Dunbar86aed7d2010-12-08 21:33:40 +0000914 if (Args.hasArg(options::OPT_M, options::OPT_MM)) {
Daniel Dunbard67a3222009-03-30 06:36:42 +0000915 OutputTy = types::TY_Dependencies;
916 } else {
917 OutputTy = types::getPreprocessedType(Input->getType());
918 assert(OutputTy != types::TY_INVALID &&
919 "Cannot preprocess this input type!");
920 }
Daniel Dunbar65229332009-03-13 11:38:42 +0000921 return new PreprocessJobAction(Input, OutputTy);
922 }
923 case phases::Precompile:
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000924 return new PrecompileJobAction(Input, types::TY_PCH);
Daniel Dunbar65229332009-03-13 11:38:42 +0000925 case phases::Compile: {
Daniel Dunbare0d26912009-12-23 00:47:42 +0000926 bool HasO4 = false;
927 if (const Arg *A = Args.getLastArg(options::OPT_O_Group))
928 HasO4 = A->getOption().matches(options::OPT_O4);
929
Daniel Dunbar65229332009-03-13 11:38:42 +0000930 if (Args.hasArg(options::OPT_fsyntax_only)) {
931 return new CompileJobAction(Input, types::TY_Nothing);
Daniel Dunbaraeea8ac2010-02-11 03:16:21 +0000932 } else if (Args.hasArg(options::OPT_rewrite_objc)) {
933 return new CompileJobAction(Input, types::TY_RewrittenObjC);
Daniel Dunbar5e051f92009-05-06 02:12:32 +0000934 } else if (Args.hasArg(options::OPT__analyze, options::OPT__analyze_auto)) {
Daniel Dunbar65229332009-03-13 11:38:42 +0000935 return new AnalyzeJobAction(Input, types::TY_Plist);
Daniel Dunbar6cdf83c2009-09-01 16:57:46 +0000936 } else if (Args.hasArg(options::OPT_emit_ast)) {
937 return new CompileJobAction(Input, types::TY_AST);
Daniel Dunbar13864952009-03-24 20:17:30 +0000938 } else if (Args.hasArg(options::OPT_emit_llvm) ||
Daniel Dunbare0d26912009-12-23 00:47:42 +0000939 Args.hasArg(options::OPT_flto) || HasO4) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000940 types::ID Output =
Daniel Dunbar24e52992010-06-07 23:28:45 +0000941 Args.hasArg(options::OPT_S) ? types::TY_LTO_IR : types::TY_LTO_BC;
Daniel Dunbar65229332009-03-13 11:38:42 +0000942 return new CompileJobAction(Input, Output);
943 } else {
944 return new CompileJobAction(Input, types::TY_PP_Asm);
945 }
946 }
947 case phases::Assemble:
948 return new AssembleJobAction(Input, types::TY_Object);
949 }
950
951 assert(0 && "invalid phase in ConstructPhaseAction");
952 return 0;
Daniel Dunbar1688f1a2009-03-12 07:58:46 +0000953}
954
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000955void Driver::BuildJobs(Compilation &C) const {
Daniel Dunbar2608c542009-03-18 01:38:48 +0000956 llvm::PrettyStackTraceString CrashInfo("Building compilation jobs");
Daniel Dunbare75d8342009-03-16 06:56:51 +0000957
958 Arg *FinalOutput = C.getArgs().getLastArg(options::OPT_o);
959
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000960 // It is an error to provide a -o option if we are making multiple output
961 // files.
Daniel Dunbare75d8342009-03-16 06:56:51 +0000962 if (FinalOutput) {
963 unsigned NumOutputs = 0;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000964 for (ActionList::const_iterator it = C.getActions().begin(),
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000965 ie = C.getActions().end(); it != ie; ++it)
Daniel Dunbare75d8342009-03-16 06:56:51 +0000966 if ((*it)->getType() != types::TY_Nothing)
967 ++NumOutputs;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000968
Daniel Dunbare75d8342009-03-16 06:56:51 +0000969 if (NumOutputs > 1) {
970 Diag(clang::diag::err_drv_output_argument_with_multiple_files);
971 FinalOutput = 0;
972 }
973 }
974
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000975 for (ActionList::const_iterator it = C.getActions().begin(),
Daniel Dunbarf0eddb82009-03-18 02:55:38 +0000976 ie = C.getActions().end(); it != ie; ++it) {
Daniel Dunbare75d8342009-03-16 06:56:51 +0000977 Action *A = *it;
978
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000979 // If we are linking an image for multiple archs then the linker wants
980 // -arch_multiple and -final_output <final image name>. Unfortunately, this
981 // doesn't fit in cleanly because we have to pass this information down.
Daniel Dunbare75d8342009-03-16 06:56:51 +0000982 //
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000983 // FIXME: This is a hack; find a cleaner way to integrate this into the
984 // process.
Daniel Dunbare75d8342009-03-16 06:56:51 +0000985 const char *LinkingOutput = 0;
Daniel Dunbardd765242009-03-26 16:12:09 +0000986 if (isa<LipoJobAction>(A)) {
Daniel Dunbare75d8342009-03-16 06:56:51 +0000987 if (FinalOutput)
988 LinkingOutput = FinalOutput->getValue(C.getArgs());
989 else
990 LinkingOutput = DefaultImageName.c_str();
991 }
992
993 InputInfo II;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +0000994 BuildJobsForAction(C, A, &C.getDefaultToolChain(),
Daniel Dunbarb5d86bb2009-09-09 18:36:01 +0000995 /*BoundArch*/0,
Daniel Dunbare75d8342009-03-16 06:56:51 +0000996 /*AtTopLevel*/ true,
997 /*LinkingOutput*/ LinkingOutput,
998 II);
999 }
Daniel Dunbar3ce436d2009-03-16 06:42:30 +00001000
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001001 // If the user passed -Qunused-arguments or there were errors, don't warn
1002 // about any unused arguments.
Argyrios Kyrtzidis31448a42010-11-18 21:47:07 +00001003 if (Diags.hasErrorOccurred() ||
Daniel Dunbara3cfbe32009-04-07 19:04:18 +00001004 C.getArgs().hasArg(options::OPT_Qunused_arguments))
Daniel Dunbard175d972009-03-18 18:03:46 +00001005 return;
1006
Daniel Dunbar58399ae2009-03-29 22:24:54 +00001007 // Claim -### here.
1008 (void) C.getArgs().hasArg(options::OPT__HASH_HASH_HASH);
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001009
Daniel Dunbar3ce436d2009-03-16 06:42:30 +00001010 for (ArgList::const_iterator it = C.getArgs().begin(), ie = C.getArgs().end();
1011 it != ie; ++it) {
1012 Arg *A = *it;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001013
Daniel Dunbar3ce436d2009-03-16 06:42:30 +00001014 // FIXME: It would be nice to be able to send the argument to the
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001015 // Diagnostic, so that extra values, position, and so on could be printed.
Daniel Dunbar90dd6f42009-04-04 00:52:26 +00001016 if (!A->isClaimed()) {
Daniel Dunbara3cfbe32009-04-07 19:04:18 +00001017 if (A->getOption().hasNoArgumentUnused())
1018 continue;
1019
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001020 // Suppress the warning automatically if this is just a flag, and it is an
1021 // instance of an argument we already claimed.
Daniel Dunbar90dd6f42009-04-04 00:52:26 +00001022 const Option &Opt = A->getOption();
1023 if (isa<FlagOption>(Opt)) {
1024 bool DuplicateClaimed = false;
1025
Daniel Dunbar44b36ee2009-11-25 11:53:23 +00001026 for (arg_iterator it = C.getArgs().filtered_begin(&Opt),
1027 ie = C.getArgs().filtered_end(); it != ie; ++it) {
1028 if ((*it)->isClaimed()) {
Daniel Dunbar90dd6f42009-04-04 00:52:26 +00001029 DuplicateClaimed = true;
1030 break;
1031 }
1032 }
1033
1034 if (DuplicateClaimed)
1035 continue;
1036 }
1037
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001038 Diag(clang::diag::warn_drv_unused_argument)
Daniel Dunbar0e759942009-03-20 06:14:23 +00001039 << A->getAsString(C.getArgs());
Daniel Dunbar90dd6f42009-04-04 00:52:26 +00001040 }
Daniel Dunbar3ce436d2009-03-16 06:42:30 +00001041 }
Daniel Dunbar95e6b192009-03-13 22:12:33 +00001042}
1043
Daniel Dunbarc4343942010-02-03 03:07:56 +00001044static const Tool &SelectToolForJob(Compilation &C, const ToolChain *TC,
1045 const JobAction *JA,
1046 const ActionList *&Inputs) {
1047 const Tool *ToolForJob = 0;
1048
1049 // See if we should look for a compiler with an integrated assembler. We match
1050 // bottom up, so what we are actually looking for is an assembler job with a
1051 // compiler input.
Daniel Dunbarf9ff3502010-05-14 02:03:00 +00001052
1053 // FIXME: This doesn't belong here, but ideally we will support static soon
1054 // anyway.
1055 bool HasStatic = (C.getArgs().hasArg(options::OPT_mkernel) ||
1056 C.getArgs().hasArg(options::OPT_static) ||
1057 C.getArgs().hasArg(options::OPT_fapple_kext));
1058 bool IsIADefault = (TC->IsIntegratedAssemblerDefault() && !HasStatic);
1059 if (C.getArgs().hasFlag(options::OPT_integrated_as,
Daniel Dunbarc4343942010-02-03 03:07:56 +00001060 options::OPT_no_integrated_as,
Daniel Dunbarf9ff3502010-05-14 02:03:00 +00001061 IsIADefault) &&
Daniel Dunbarc4343942010-02-03 03:07:56 +00001062 !C.getArgs().hasArg(options::OPT_save_temps) &&
1063 isa<AssembleJobAction>(JA) &&
1064 Inputs->size() == 1 && isa<CompileJobAction>(*Inputs->begin())) {
1065 const Tool &Compiler = TC->SelectTool(C,cast<JobAction>(**Inputs->begin()));
1066 if (Compiler.hasIntegratedAssembler()) {
1067 Inputs = &(*Inputs)[0]->getInputs();
1068 ToolForJob = &Compiler;
1069 }
1070 }
1071
1072 // Otherwise use the tool for the current job.
1073 if (!ToolForJob)
1074 ToolForJob = &TC->SelectTool(C, *JA);
1075
1076 // See if we should use an integrated preprocessor. We do so when we have
1077 // exactly one input, since this is the only use case we care about
1078 // (irrelevant since we don't support combine yet).
1079 if (Inputs->size() == 1 && isa<PreprocessJobAction>(*Inputs->begin()) &&
1080 !C.getArgs().hasArg(options::OPT_no_integrated_cpp) &&
1081 !C.getArgs().hasArg(options::OPT_traditional_cpp) &&
1082 !C.getArgs().hasArg(options::OPT_save_temps) &&
1083 ToolForJob->hasIntegratedCPP())
1084 Inputs = &(*Inputs)[0]->getInputs();
1085
1086 return *ToolForJob;
1087}
1088
Daniel Dunbare75d8342009-03-16 06:56:51 +00001089void Driver::BuildJobsForAction(Compilation &C,
1090 const Action *A,
1091 const ToolChain *TC,
Daniel Dunbarb5d86bb2009-09-09 18:36:01 +00001092 const char *BoundArch,
Daniel Dunbare75d8342009-03-16 06:56:51 +00001093 bool AtTopLevel,
1094 const char *LinkingOutput,
1095 InputInfo &Result) const {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001096 llvm::PrettyStackTraceString CrashInfo("Building compilation jobs");
Daniel Dunbarc4acf9d2009-03-18 23:18:19 +00001097
Daniel Dunbare75d8342009-03-16 06:56:51 +00001098 if (const InputAction *IA = dyn_cast<InputAction>(A)) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001099 // FIXME: It would be nice to not claim this here; maybe the old scheme of
1100 // just using Args was better?
Daniel Dunbar5cdf3e02009-03-19 07:29:38 +00001101 const Arg &Input = IA->getInputArg();
1102 Input.claim();
Daniel Dunbar35cbfeb2010-06-09 22:31:08 +00001103 if (Input.getOption().matches(options::OPT_INPUT)) {
Daniel Dunbar5cdf3e02009-03-19 07:29:38 +00001104 const char *Name = Input.getValue(C.getArgs());
1105 Result = InputInfo(Name, A->getType(), Name);
1106 } else
1107 Result = InputInfo(&Input, A->getType(), "");
Daniel Dunbare75d8342009-03-16 06:56:51 +00001108 return;
1109 }
1110
1111 if (const BindArchAction *BAA = dyn_cast<BindArchAction>(A)) {
Daniel Dunbar1ef3f2a2009-09-08 23:37:19 +00001112 const ToolChain *TC = &C.getDefaultToolChain();
1113
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001114 std::string Arch;
Daniel Dunbar1ef3f2a2009-09-08 23:37:19 +00001115 if (BAA->getArchName())
1116 TC = Host->CreateToolChain(C.getArgs(), BAA->getArchName());
1117
Daniel Dunbarb5d86bb2009-09-09 18:36:01 +00001118 BuildJobsForAction(C, *BAA->begin(), TC, BAA->getArchName(),
Daniel Dunbarc12a4122010-08-02 02:38:12 +00001119 AtTopLevel, LinkingOutput, Result);
Daniel Dunbare75d8342009-03-16 06:56:51 +00001120 return;
1121 }
1122
Daniel Dunbare75d8342009-03-16 06:56:51 +00001123 const ActionList *Inputs = &A->getInputs();
Daniel Dunbarc4343942010-02-03 03:07:56 +00001124
1125 const JobAction *JA = cast<JobAction>(A);
1126 const Tool &T = SelectToolForJob(C, TC, JA, Inputs);
Daniel Dunbare75d8342009-03-16 06:56:51 +00001127
1128 // Only use pipes when there is exactly one input.
Daniel Dunbar1a093d22009-03-18 06:00:36 +00001129 InputInfoList InputInfos;
Daniel Dunbare75d8342009-03-16 06:56:51 +00001130 for (ActionList::const_iterator it = Inputs->begin(), ie = Inputs->end();
1131 it != ie; ++it) {
Daniel Dunbar6beaf512010-06-04 18:28:41 +00001132 // Treat dsymutil sub-jobs as being at the top-level too, they shouldn't get
1133 // temporary output names.
1134 //
1135 // FIXME: Clean this up.
1136 bool SubJobAtTopLevel = false;
1137 if (AtTopLevel && isa<DsymutilJobAction>(A))
1138 SubJobAtTopLevel = true;
1139
Daniel Dunbare75d8342009-03-16 06:56:51 +00001140 InputInfo II;
Daniel Dunbarc12a4122010-08-02 02:38:12 +00001141 BuildJobsForAction(C, *it, TC, BoundArch,
Daniel Dunbar6beaf512010-06-04 18:28:41 +00001142 SubJobAtTopLevel, LinkingOutput, II);
Daniel Dunbare75d8342009-03-16 06:56:51 +00001143 InputInfos.push_back(II);
1144 }
1145
Daniel Dunbare75d8342009-03-16 06:56:51 +00001146 // Always use the first input as the base input.
1147 const char *BaseInput = InputInfos[0].getBaseInput();
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001148
Daniel Dunbar6beaf512010-06-04 18:28:41 +00001149 // ... except dsymutil actions, which use their actual input as the base
1150 // input.
1151 if (JA->getType() == types::TY_dSYM)
1152 BaseInput = InputInfos[0].getFilename();
1153
Daniel Dunbard00272f2010-08-02 02:38:15 +00001154 // Determine the place to write output to, if any.
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001155 if (JA->getType() == types::TY_Nothing) {
Daniel Dunbarb39cc522009-03-17 22:47:06 +00001156 Result = InputInfo(A->getType(), BaseInput);
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001157 } else {
Daniel Dunbarb39cc522009-03-17 22:47:06 +00001158 Result = InputInfo(GetNamedOutputPath(C, *JA, BaseInput, AtTopLevel),
1159 A->getType(), BaseInput);
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001160 }
1161
Daniel Dunbarb39cc522009-03-17 22:47:06 +00001162 if (CCCPrintBindings) {
Daniel Dunbard67a3222009-03-30 06:36:42 +00001163 llvm::errs() << "# \"" << T.getToolChain().getTripleString() << '"'
1164 << " - \"" << T.getName() << "\", inputs: [";
Daniel Dunbarb39cc522009-03-17 22:47:06 +00001165 for (unsigned i = 0, e = InputInfos.size(); i != e; ++i) {
1166 llvm::errs() << InputInfos[i].getAsString();
1167 if (i + 1 != e)
1168 llvm::errs() << ", ";
1169 }
1170 llvm::errs() << "], output: " << Result.getAsString() << "\n";
1171 } else {
Daniel Dunbar7fbaf532010-08-02 02:38:28 +00001172 T.ConstructJob(C, *JA, Result, InputInfos,
Daniel Dunbarb5d86bb2009-09-09 18:36:01 +00001173 C.getArgsForToolChain(TC, BoundArch), LinkingOutput);
Daniel Dunbarb39cc522009-03-17 22:47:06 +00001174 }
Daniel Dunbare75d8342009-03-16 06:56:51 +00001175}
1176
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001177const char *Driver::GetNamedOutputPath(Compilation &C,
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001178 const JobAction &JA,
1179 const char *BaseInput,
1180 bool AtTopLevel) const {
Daniel Dunbar2608c542009-03-18 01:38:48 +00001181 llvm::PrettyStackTraceString CrashInfo("Computing output path");
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001182 // Output to a user requested destination?
Daniel Dunbar6beaf512010-06-04 18:28:41 +00001183 if (AtTopLevel && !isa<DsymutilJobAction>(JA)) {
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001184 if (Arg *FinalOutput = C.getArgs().getLastArg(options::OPT_o))
1185 return C.addResultFile(FinalOutput->getValue(C.getArgs()));
1186 }
1187
Nick Lewycky6e1ce292010-09-24 00:46:53 +00001188 // Default to writing to stdout?
1189 if (AtTopLevel && isa<PreprocessJobAction>(JA))
1190 return "-";
1191
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001192 // Output to a temporary file?
1193 if (!AtTopLevel && !C.getArgs().hasArg(options::OPT_save_temps)) {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001194 std::string TmpName =
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001195 GetTemporaryPath(types::getTypeTempSuffix(JA.getType()));
1196 return C.addTempFile(C.getArgs().MakeArgString(TmpName.c_str()));
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001197 }
1198
1199 llvm::sys::Path BasePath(BaseInput);
Daniel Dunbard00978b2009-03-18 02:00:31 +00001200 std::string BaseName(BasePath.getLast());
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001201
1202 // Determine what the derived output name should be.
1203 const char *NamedOutput;
1204 if (JA.getType() == types::TY_Image) {
1205 NamedOutput = DefaultImageName.c_str();
1206 } else {
1207 const char *Suffix = types::getTypeTempSuffix(JA.getType());
1208 assert(Suffix && "All types used for output should have a suffix.");
1209
1210 std::string::size_type End = std::string::npos;
1211 if (!types::appendSuffixForType(JA.getType()))
1212 End = BaseName.rfind('.');
1213 std::string Suffixed(BaseName.substr(0, End));
1214 Suffixed += '.';
1215 Suffixed += Suffix;
1216 NamedOutput = C.getArgs().MakeArgString(Suffixed.c_str());
1217 }
1218
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001219 // As an annoying special case, PCH generation doesn't strip the pathname.
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001220 if (JA.getType() == types::TY_PCH) {
1221 BasePath.eraseComponent();
Daniel Dunbare6c83192009-03-18 09:58:30 +00001222 if (BasePath.isEmpty())
1223 BasePath = NamedOutput;
1224 else
1225 BasePath.appendComponent(NamedOutput);
Daniel Dunbar7a178a42009-03-17 17:53:55 +00001226 return C.addResultFile(C.getArgs().MakeArgString(BasePath.c_str()));
1227 } else {
1228 return C.addResultFile(NamedOutput);
1229 }
1230}
1231
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001232std::string Driver::GetFilePath(const char *Name, const ToolChain &TC) const {
Chandler Carruth84559242010-03-22 01:52:07 +00001233 // Respect a limited subset of the '-Bprefix' functionality in GCC by
1234 // attempting to use this prefix when lokup up program paths.
1235 if (!PrefixDir.empty()) {
1236 llvm::sys::Path P(PrefixDir);
1237 P.appendComponent(Name);
1238 if (P.exists())
1239 return P.str();
1240 }
1241
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001242 const ToolChain::path_list &List = TC.getFilePaths();
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001243 for (ToolChain::path_list::const_iterator
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001244 it = List.begin(), ie = List.end(); it != ie; ++it) {
1245 llvm::sys::Path P(*it);
1246 P.appendComponent(Name);
1247 if (P.exists())
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001248 return P.str();
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001249 }
1250
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001251 return Name;
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +00001252}
1253
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001254std::string Driver::GetProgramPath(const char *Name, const ToolChain &TC,
1255 bool WantFile) const {
Chandler Carruth84559242010-03-22 01:52:07 +00001256 // Respect a limited subset of the '-Bprefix' functionality in GCC by
1257 // attempting to use this prefix when lokup up program paths.
1258 if (!PrefixDir.empty()) {
1259 llvm::sys::Path P(PrefixDir);
1260 P.appendComponent(Name);
1261 if (WantFile ? P.exists() : P.canExecute())
1262 return P.str();
1263 }
1264
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001265 const ToolChain::path_list &List = TC.getProgramPaths();
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001266 for (ToolChain::path_list::const_iterator
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001267 it = List.begin(), ie = List.end(); it != ie; ++it) {
1268 llvm::sys::Path P(*it);
1269 P.appendComponent(Name);
Mike Stumpdb657372009-03-27 00:40:20 +00001270 if (WantFile ? P.exists() : P.canExecute())
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001271 return P.str();
Daniel Dunbar68b01a02009-03-18 20:26:19 +00001272 }
1273
Daniel Dunbar76ce7412009-03-23 16:15:50 +00001274 // If all else failed, search the path.
1275 llvm::sys::Path P(llvm::sys::Program::FindProgramByName(Name));
Daniel Dunbar6f668772009-03-18 21:34:08 +00001276 if (!P.empty())
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001277 return P.str();
Daniel Dunbar6f668772009-03-18 21:34:08 +00001278
Daniel Dunbar1ce81532009-09-09 22:33:00 +00001279 return Name;
Daniel Dunbar5e0f6af2009-03-13 00:51:18 +00001280}
1281
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001282std::string Driver::GetTemporaryPath(const char *Suffix) const {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001283 // FIXME: This is lame; sys::Path should provide this function (in particular,
1284 // it should know how to find the temporary files dir).
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001285 std::string Error;
Daniel Dunbarc35694d2009-04-20 20:28:21 +00001286 const char *TmpDir = ::getenv("TMPDIR");
1287 if (!TmpDir)
1288 TmpDir = ::getenv("TEMP");
1289 if (!TmpDir)
Daniel Dunbar712e4de2009-04-21 00:25:10 +00001290 TmpDir = ::getenv("TMP");
1291 if (!TmpDir)
Daniel Dunbarc35694d2009-04-20 20:28:21 +00001292 TmpDir = "/tmp";
1293 llvm::sys::Path P(TmpDir);
Daniel Dunbarab8ce7c2009-04-20 17:32:49 +00001294 P.appendComponent("cc");
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001295 if (P.makeUnique(false, &Error)) {
1296 Diag(clang::diag::err_drv_unable_to_make_temp) << Error;
1297 return "";
1298 }
1299
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001300 // FIXME: Grumble, makeUnique sometimes leaves the file around!? PR3837.
Daniel Dunbar18d69de2009-03-18 23:08:52 +00001301 P.eraseFromDisk(false, 0);
1302
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001303 P.appendSuffix(Suffix);
Chris Lattner3441b4f2009-08-23 22:45:33 +00001304 return P.str();
Daniel Dunbare627c1c2009-03-18 19:34:39 +00001305}
1306
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001307const HostInfo *Driver::GetHostInfo(const char *TripleStr) const {
Daniel Dunbar2608c542009-03-18 01:38:48 +00001308 llvm::PrettyStackTraceString CrashInfo("Constructing host");
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001309 llvm::Triple Triple(TripleStr);
Daniel Dunbar4dff6a42009-03-10 23:41:59 +00001310
Chris Lattner09797542010-03-04 21:07:38 +00001311 // TCE is an osless target
1312 if (Triple.getArchName() == "tce")
Daniel Dunbarfb3d7472010-06-14 21:23:12 +00001313 return createTCEHostInfo(*this, Triple);
Chris Lattner09797542010-03-04 21:07:38 +00001314
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001315 switch (Triple.getOS()) {
Edward O'Callaghan856e4ff2009-08-22 01:06:46 +00001316 case llvm::Triple::AuroraUX:
1317 return createAuroraUXHostInfo(*this, Triple);
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001318 case llvm::Triple::Darwin:
1319 return createDarwinHostInfo(*this, Triple);
1320 case llvm::Triple::DragonFly:
1321 return createDragonFlyHostInfo(*this, Triple);
Daniel Dunbar10de9e62009-06-29 20:52:51 +00001322 case llvm::Triple::OpenBSD:
1323 return createOpenBSDHostInfo(*this, Triple);
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001324 case llvm::Triple::FreeBSD:
1325 return createFreeBSDHostInfo(*this, Triple);
Chris Lattner3e2ee142010-07-07 16:01:42 +00001326 case llvm::Triple::Minix:
1327 return createMinixHostInfo(*this, Triple);
Eli Friedman5cd659f2009-05-26 07:52:18 +00001328 case llvm::Triple::Linux:
1329 return createLinuxHostInfo(*this, Triple);
Michael J. Spencerb186bc32010-08-21 21:55:07 +00001330 case llvm::Triple::Win32:
1331 return createWindowsHostInfo(*this, Triple);
1332 case llvm::Triple::MinGW32:
1333 case llvm::Triple::MinGW64:
1334 return createMinGWHostInfo(*this, Triple);
Daniel Dunbar51c7f972009-05-22 02:53:45 +00001335 default:
1336 return createUnknownHostInfo(*this, Triple);
1337 }
Daniel Dunbar4dff6a42009-03-10 23:41:59 +00001338}
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001339
1340bool Driver::ShouldUseClangCompiler(const Compilation &C, const JobAction &JA,
Daniel Dunbar953b8d12009-09-08 23:36:55 +00001341 const llvm::Triple &Triple) const {
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001342 // Check if user requested no clang, or clang doesn't understand this type (we
1343 // only handle single inputs for now).
Daniel Dunbar6cdf83c2009-09-01 16:57:46 +00001344 if (!CCCUseClang || JA.size() != 1 ||
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001345 !types::isAcceptedByClang((*JA.begin())->getType()))
1346 return false;
1347
Daniel Dunbar88f356e2009-03-24 19:02:31 +00001348 // Otherwise make sure this is an action clang understands.
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001349 if (isa<PreprocessJobAction>(JA)) {
Daniel Dunbar6b5244d2009-03-24 19:14:56 +00001350 if (!CCCUseClangCPP) {
1351 Diag(clang::diag::warn_drv_not_using_clang_cpp);
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001352 return false;
Daniel Dunbar6b5244d2009-03-24 19:14:56 +00001353 }
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001354 } else if (!isa<PrecompileJobAction>(JA) && !isa<CompileJobAction>(JA))
1355 return false;
1356
Daniel Dunbar88f356e2009-03-24 19:02:31 +00001357 // Use clang for C++?
Daniel Dunbar6b5244d2009-03-24 19:14:56 +00001358 if (!CCCUseClangCXX && types::isCXX((*JA.begin())->getType())) {
1359 Diag(clang::diag::warn_drv_not_using_clang_cxx);
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001360 return false;
Daniel Dunbar6b5244d2009-03-24 19:14:56 +00001361 }
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001362
Daniel Dunbaraeea8ac2010-02-11 03:16:21 +00001363 // Always use clang for precompiling, AST generation, and rewriting,
1364 // regardless of archs.
Daniel Dunbar24e52992010-06-07 23:28:45 +00001365 if (isa<PrecompileJobAction>(JA) ||
1366 types::isOnlyAcceptedByClang(JA.getType()))
Daniel Dunbarf2df7c22009-04-16 23:10:13 +00001367 return true;
1368
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001369 // Finally, don't use clang if this isn't one of the user specified archs to
1370 // build.
Daniel Dunbar953b8d12009-09-08 23:36:55 +00001371 if (!CCCClangArchs.empty() && !CCCClangArchs.count(Triple.getArch())) {
1372 Diag(clang::diag::warn_drv_not_using_clang_arch) << Triple.getArchName();
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001373 return false;
Daniel Dunbar6b5244d2009-03-24 19:14:56 +00001374 }
Daniel Dunbar8fa879d2009-03-24 18:57:02 +00001375
1376 return true;
1377}
Daniel Dunbarc7fd57a2009-03-26 15:58:36 +00001378
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001379/// GetReleaseVersion - Parse (([0-9]+)(.([0-9]+)(.([0-9]+)?))?)? and return the
1380/// grouped values as integers. Numbers which are not provided are set to 0.
Daniel Dunbarc7fd57a2009-03-26 15:58:36 +00001381///
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001382/// \return True if the entire string was parsed (9.2), or all groups were
1383/// parsed (10.3.5extrastuff).
1384bool Driver::GetReleaseVersion(const char *Str, unsigned &Major,
Daniel Dunbarc7fd57a2009-03-26 15:58:36 +00001385 unsigned &Minor, unsigned &Micro,
1386 bool &HadExtra) {
1387 HadExtra = false;
1388
1389 Major = Minor = Micro = 0;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001390 if (*Str == '\0')
Daniel Dunbarc7fd57a2009-03-26 15:58:36 +00001391 return true;
1392
1393 char *End;
1394 Major = (unsigned) strtol(Str, &End, 10);
1395 if (*Str != '\0' && *End == '\0')
1396 return true;
1397 if (*End != '.')
1398 return false;
Daniel Dunbarf26a7ab2009-09-08 23:36:43 +00001399
Daniel Dunbarc7fd57a2009-03-26 15:58:36 +00001400 Str = End+1;
1401 Minor = (unsigned) strtol(Str, &End, 10);
1402 if (*Str != '\0' && *End == '\0')
1403 return true;
1404 if (*End != '.')
1405 return false;
1406
1407 Str = End+1;
1408 Micro = (unsigned) strtol(Str, &End, 10);
1409 if (*Str != '\0' && *End == '\0')
1410 return true;
1411 if (Str == End)
1412 return false;
1413 HadExtra = true;
1414 return true;
1415}