DerivedArgList *Darwin::TranslateArgs(InputArgList &Args, const char *BoundArch) const { DerivedArgList *DAL = new DerivedArgList(Args, false); const OptTable &Opts = getDriver().getOpts(); // FIXME: We really want to get out of the tool chain level argument // translation business, as it makes the driver functionality much // more opaque. For now, we follow gcc closely solely for the // purpose of easily achieving feature parity & testability. Once we // have something that works, we should reevaluate each translation // and try to push it down into tool specific logic. Arg *OSXVersion = Args.getLastArg(options::OPT_mmacosx_version_min_EQ); Arg *iPhoneVersion = Args.getLastArg(options::OPT_miphoneos_version_min_EQ); if (OSXVersion && iPhoneVersion) { getDriver().Diag(clang::diag::err_drv_argument_not_allowed_with) << OSXVersion->getAsString(Args) << iPhoneVersion->getAsString(Args); iPhoneVersion = 0; } else if (!OSXVersion && !iPhoneVersion) { // If neither OS X nor iPhoneOS targets were specified, check for // environment defines. const char *OSXTarget = ::getenv("MACOSX_DEPLOYMENT_TARGET"); const char *iPhoneOSTarget = ::getenv("IPHONEOS_DEPLOYMENT_TARGET"); // Ignore empty strings. if (OSXTarget && OSXTarget[0] == '\0') OSXTarget = 0; if (iPhoneOSTarget && iPhoneOSTarget[0] == '\0') iPhoneOSTarget = 0; // Diagnose conflicting deployment targets, and choose default platform // based on the tool chain. // // FIXME: Don't hardcode default here. if (OSXTarget && iPhoneOSTarget) { // FIXME: We should see if we can get away with warning or erroring on // this. Perhaps put under -pedantic? if (getTriple().getArch() == llvm::Triple::arm || getTriple().getArch() == llvm::Triple::thumb) OSXVersion = 0; else iPhoneVersion = 0; } if (OSXTarget) { const Option *O = Opts.getOption(options::OPT_mmacosx_version_min_EQ); OSXVersion = DAL->MakeJoinedArg(0, O, OSXTarget); DAL->append(OSXVersion); } else if (iPhoneOSTarget) { const Option *O = Opts.getOption(options::OPT_miphoneos_version_min_EQ); iPhoneVersion = DAL->MakeJoinedArg(0, O, iPhoneOSTarget); DAL->append(iPhoneVersion); } else { // Otherwise, choose a default platform based on the tool chain. // // FIXME: Don't hardcode default here. if (getTriple().getArch() == llvm::Triple::arm || getTriple().getArch() == llvm::Triple::thumb) { const Option *O = Opts.getOption(options::OPT_miphoneos_version_min_EQ); iPhoneVersion = DAL->MakeJoinedArg(0, O, "3.0"); DAL->append(iPhoneVersion); } else { const Option *O = Opts.getOption(options::OPT_mmacosx_version_min_EQ); OSXVersion = DAL->MakeJoinedArg(0, O, MacosxVersionMin); DAL->append(OSXVersion); } } } // Set the tool chain target information. unsigned Major, Minor, Micro; bool HadExtra; if (OSXVersion) { assert(!iPhoneVersion && "Unknown target platform!"); if (!Driver::GetReleaseVersion(OSXVersion->getValue(Args), Major, Minor, Micro, HadExtra) || HadExtra || Major != 10 || Minor >= 10 || Micro >= 10) getDriver().Diag(clang::diag::err_drv_invalid_version_number) << OSXVersion->getAsString(Args); } else { assert(iPhoneVersion && "Unknown target platform!"); if (!Driver::GetReleaseVersion(iPhoneVersion->getValue(Args), Major, Minor, Micro, HadExtra) || HadExtra || Major >= 10 || Minor >= 100 || Micro >= 100) getDriver().Diag(clang::diag::err_drv_invalid_version_number) << iPhoneVersion->getAsString(Args); } setTarget(iPhoneVersion, Major, Minor, Micro); for (ArgList::iterator it = Args.begin(), ie = Args.end(); it != ie; ++it) { Arg *A = *it; if (A->getOption().matches(options::OPT_Xarch__)) { // FIXME: Canonicalize name. if (getArchName() != A->getValue(Args, 0)) continue; // FIXME: The arg is leaked here, and we should have a nicer // interface for this. unsigned Prev, Index = Prev = A->getIndex() + 1; Arg *XarchArg = Opts.ParseOneArg(Args, Index); // If the argument parsing failed or more than one argument was // consumed, the -Xarch_ argument's parameter tried to consume // extra arguments. Emit an error and ignore. // // We also want to disallow any options which would alter the // driver behavior; that isn't going to work in our model. We // use isDriverOption() as an approximation, although things // like -O4 are going to slip through. if (!XarchArg || Index > Prev + 1 || XarchArg->getOption().isDriverOption()) { getDriver().Diag(clang::diag::err_drv_invalid_Xarch_argument) << A->getAsString(Args); continue; } XarchArg->setBaseArg(A); A = XarchArg; } // Sob. These is strictly gcc compatible for the time being. Apple // gcc translates options twice, which means that self-expanding // options add duplicates. switch ((options::ID) A->getOption().getID()) { default: DAL->append(A); break; case options::OPT_mkernel: case options::OPT_fapple_kext: DAL->append(A); DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_static))); DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_static))); break; case options::OPT_dependency_file: DAL->append(DAL->MakeSeparateArg(A, Opts.getOption(options::OPT_MF), A->getValue(Args))); break; case options::OPT_gfull: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_g_Flag))); DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_fno_eliminate_unused_debug_symbols))); break; case options::OPT_gused: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_g_Flag))); DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_feliminate_unused_debug_symbols))); break; case options::OPT_fterminated_vtables: case options::OPT_findirect_virtual_calls: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_fapple_kext))); DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_static))); break; case options::OPT_shared: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_dynamiclib))); break; case options::OPT_fconstant_cfstrings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mconstant_cfstrings))); break; case options::OPT_fno_constant_cfstrings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mno_constant_cfstrings))); break; case options::OPT_Wnonportable_cfstrings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mwarn_nonportable_cfstrings))); break; case options::OPT_Wno_nonportable_cfstrings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mno_warn_nonportable_cfstrings))); break; case options::OPT_fpascal_strings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mpascal_strings))); break; case options::OPT_fno_pascal_strings: DAL->append(DAL->MakeFlagArg(A, Opts.getOption(options::OPT_mno_pascal_strings))); break; } } if (getTriple().getArch() == llvm::Triple::x86 || getTriple().getArch() == llvm::Triple::x86_64) if (!Args.hasArgNoClaim(options::OPT_mtune_EQ)) DAL->append(DAL->MakeJoinedArg(0, Opts.getOption(options::OPT_mtune_EQ), "core2")); // Add the arch options based on the particular spelling of -arch, to match // how the driver driver works. if (BoundArch) { llvm::StringRef Name = BoundArch; const Option *MCpu = Opts.getOption(options::OPT_mcpu_EQ); const Option *MArch = Opts.getOption(options::OPT_march_EQ); // This code must be kept in sync with LLVM's getArchTypeForDarwinArch, // which defines the list of which architectures we accept. if (Name == "ppc") ; else if (Name == "ppc601") DAL->append(DAL->MakeJoinedArg(0, MCpu, "601")); else if (Name == "ppc603") DAL->append(DAL->MakeJoinedArg(0, MCpu, "603")); else if (Name == "ppc604") DAL->append(DAL->MakeJoinedArg(0, MCpu, "604")); else if (Name == "ppc604e") DAL->append(DAL->MakeJoinedArg(0, MCpu, "604e")); else if (Name == "ppc750") DAL->append(DAL->MakeJoinedArg(0, MCpu, "750")); else if (Name == "ppc7400") DAL->append(DAL->MakeJoinedArg(0, MCpu, "7400")); else if (Name == "ppc7450") DAL->append(DAL->MakeJoinedArg(0, MCpu, "7450")); else if (Name == "ppc970") DAL->append(DAL->MakeJoinedArg(0, MCpu, "970")); else if (Name == "ppc64") DAL->append(DAL->MakeFlagArg(0, Opts.getOption(options::OPT_m64))); else if (Name == "i386") ; else if (Name == "i486") DAL->append(DAL->MakeJoinedArg(0, MArch, "i486")); else if (Name == "i586") DAL->append(DAL->MakeJoinedArg(0, MArch, "i586")); else if (Name == "i686") DAL->append(DAL->MakeJoinedArg(0, MArch, "i686")); else if (Name == "pentium") DAL->append(DAL->MakeJoinedArg(0, MArch, "pentium")); else if (Name == "pentium2") DAL->append(DAL->MakeJoinedArg(0, MArch, "pentium2")); else if (Name == "pentpro") DAL->append(DAL->MakeJoinedArg(0, MArch, "pentiumpro")); else if (Name == "pentIIm3") DAL->append(DAL->MakeJoinedArg(0, MArch, "pentium2")); else if (Name == "x86_64") DAL->append(DAL->MakeFlagArg(0, Opts.getOption(options::OPT_m64))); else if (Name == "arm") DAL->append(DAL->MakeJoinedArg(0, MArch, "armv4t")); else if (Name == "armv4t") DAL->append(DAL->MakeJoinedArg(0, MArch, "armv4t")); else if (Name == "armv5") DAL->append(DAL->MakeJoinedArg(0, MArch, "armv5tej")); else if (Name == "xscale") DAL->append(DAL->MakeJoinedArg(0, MArch, "xscale")); else if (Name == "armv6") DAL->append(DAL->MakeJoinedArg(0, MArch, "armv6k")); else if (Name == "armv7") DAL->append(DAL->MakeJoinedArg(0, MArch, "armv7a")); else llvm_unreachable("invalid Darwin arch"); } return DAL; }
void Darwin::AddDeploymentTarget(DerivedArgList &Args) const { const OptTable &Opts = getDriver().getOpts(); Arg *OSXVersion = Args.getLastArg(options::OPT_mmacosx_version_min_EQ); Arg *iPhoneVersion = Args.getLastArg(options::OPT_miphoneos_version_min_EQ); if (OSXVersion && iPhoneVersion) { getDriver().Diag(clang::diag::err_drv_argument_not_allowed_with) << OSXVersion->getAsString(Args) << iPhoneVersion->getAsString(Args); iPhoneVersion = 0; } else if (!OSXVersion && !iPhoneVersion) { // If neither OS X nor iPhoneOS targets were specified, check for // environment defines. const char *OSXTarget = ::getenv("MACOSX_DEPLOYMENT_TARGET"); const char *iPhoneOSTarget = ::getenv("IPHONEOS_DEPLOYMENT_TARGET"); // Ignore empty strings. if (OSXTarget && OSXTarget[0] == '\0') OSXTarget = 0; if (iPhoneOSTarget && iPhoneOSTarget[0] == '\0') iPhoneOSTarget = 0; // Diagnose conflicting deployment targets, and choose default platform // based on the tool chain. // // FIXME: Don't hardcode default here. if (OSXTarget && iPhoneOSTarget) { // FIXME: We should see if we can get away with warning or erroring on // this. Perhaps put under -pedantic? if (getTriple().getArch() == llvm::Triple::arm || getTriple().getArch() == llvm::Triple::thumb) OSXTarget = 0; else iPhoneOSTarget = 0; } if (OSXTarget) { const Option *O = Opts.getOption(options::OPT_mmacosx_version_min_EQ); OSXVersion = Args.MakeJoinedArg(0, O, OSXTarget); Args.append(OSXVersion); } else if (iPhoneOSTarget) { const Option *O = Opts.getOption(options::OPT_miphoneos_version_min_EQ); iPhoneVersion = Args.MakeJoinedArg(0, O, iPhoneOSTarget); Args.append(iPhoneVersion); } else { // Otherwise, assume we are targeting OS X. const Option *O = Opts.getOption(options::OPT_mmacosx_version_min_EQ); OSXVersion = Args.MakeJoinedArg(0, O, MacosxVersionMin); Args.append(OSXVersion); } } // Set the tool chain target information. unsigned Major, Minor, Micro; bool HadExtra; if (OSXVersion) { assert(!iPhoneVersion && "Unknown target platform!"); if (!Driver::GetReleaseVersion(OSXVersion->getValue(Args), Major, Minor, Micro, HadExtra) || HadExtra || Major != 10 || Minor >= 10 || Micro >= 10) getDriver().Diag(clang::diag::err_drv_invalid_version_number) << OSXVersion->getAsString(Args); } else { assert(iPhoneVersion && "Unknown target platform!"); if (!Driver::GetReleaseVersion(iPhoneVersion->getValue(Args), Major, Minor, Micro, HadExtra) || HadExtra || Major >= 10 || Minor >= 100 || Micro >= 100) getDriver().Diag(clang::diag::err_drv_invalid_version_number) << iPhoneVersion->getAsString(Args); } setTarget(iPhoneVersion, Major, Minor, Micro); }