15509748fSMin-Yih Hsu //===--- M68k.cpp - M68k Helpers for Tools -------------------*- C++-*-===//
25509748fSMin-Yih Hsu //
35509748fSMin-Yih Hsu // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
45509748fSMin-Yih Hsu // See https://llvm.org/LICENSE.txt for license information.
55509748fSMin-Yih Hsu // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
65509748fSMin-Yih Hsu //
75509748fSMin-Yih Hsu //===----------------------------------------------------------------------===//
85509748fSMin-Yih Hsu
95509748fSMin-Yih Hsu #include "M68k.h"
105509748fSMin-Yih Hsu #include "ToolChains/CommonArgs.h"
115509748fSMin-Yih Hsu #include "clang/Driver/Driver.h"
125509748fSMin-Yih Hsu #include "clang/Driver/DriverDiagnostic.h"
135509748fSMin-Yih Hsu #include "clang/Driver/Options.h"
145509748fSMin-Yih Hsu #include "llvm/ADT/SmallVector.h"
155509748fSMin-Yih Hsu #include "llvm/ADT/StringSwitch.h"
165509748fSMin-Yih Hsu #include "llvm/Option/ArgList.h"
175509748fSMin-Yih Hsu #include "llvm/Support/Regex.h"
18d768bf99SArchibald Elliott #include "llvm/TargetParser/Host.h"
195509748fSMin-Yih Hsu #include <sstream>
205509748fSMin-Yih Hsu
215509748fSMin-Yih Hsu using namespace clang::driver;
225509748fSMin-Yih Hsu using namespace clang::driver::tools;
235509748fSMin-Yih Hsu using namespace clang;
245509748fSMin-Yih Hsu using namespace llvm::opt;
255509748fSMin-Yih Hsu
265509748fSMin-Yih Hsu /// getM68kTargetCPU - Get the (LLVM) name of the 68000 cpu we are targeting.
getM68kTargetCPU(const ArgList & Args)275509748fSMin-Yih Hsu std::string m68k::getM68kTargetCPU(const ArgList &Args) {
285509748fSMin-Yih Hsu if (Arg *A = Args.getLastArg(clang::driver::options::OPT_mcpu_EQ)) {
295509748fSMin-Yih Hsu // The canonical CPU name is captalize. However, we allow
305509748fSMin-Yih Hsu // starting with lower case or numbers only
315509748fSMin-Yih Hsu StringRef CPUName = A->getValue();
325509748fSMin-Yih Hsu
335509748fSMin-Yih Hsu if (CPUName == "native") {
345509748fSMin-Yih Hsu std::string CPU = std::string(llvm::sys::getHostCPUName());
355509748fSMin-Yih Hsu if (!CPU.empty() && CPU != "generic")
365509748fSMin-Yih Hsu return CPU;
375509748fSMin-Yih Hsu }
385509748fSMin-Yih Hsu
395509748fSMin-Yih Hsu if (CPUName == "common")
405509748fSMin-Yih Hsu return "generic";
415509748fSMin-Yih Hsu
425509748fSMin-Yih Hsu return llvm::StringSwitch<std::string>(CPUName)
435509748fSMin-Yih Hsu .Cases("m68000", "68000", "M68000")
445509748fSMin-Yih Hsu .Cases("m68010", "68010", "M68010")
455509748fSMin-Yih Hsu .Cases("m68020", "68020", "M68020")
465509748fSMin-Yih Hsu .Cases("m68030", "68030", "M68030")
475509748fSMin-Yih Hsu .Cases("m68040", "68040", "M68040")
485509748fSMin-Yih Hsu .Cases("m68060", "68060", "M68060")
495509748fSMin-Yih Hsu .Default(CPUName.str());
505509748fSMin-Yih Hsu }
515509748fSMin-Yih Hsu // FIXME: Throw error when multiple sub-architecture flag exist
525509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68000))
535509748fSMin-Yih Hsu return "M68000";
545509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68010))
555509748fSMin-Yih Hsu return "M68010";
565509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68020))
575509748fSMin-Yih Hsu return "M68020";
585509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68030))
595509748fSMin-Yih Hsu return "M68030";
605509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68040))
615509748fSMin-Yih Hsu return "M68040";
625509748fSMin-Yih Hsu if (Args.hasArg(clang::driver::options::OPT_m68060))
635509748fSMin-Yih Hsu return "M68060";
645509748fSMin-Yih Hsu
655509748fSMin-Yih Hsu return "";
665509748fSMin-Yih Hsu }
675509748fSMin-Yih Hsu
addFloatABIFeatures(const llvm::opt::ArgList & Args,std::vector<llvm::StringRef> & Features)68*9b617081SMin-Yih Hsu static void addFloatABIFeatures(const llvm::opt::ArgList &Args,
69*9b617081SMin-Yih Hsu std::vector<llvm::StringRef> &Features) {
70*9b617081SMin-Yih Hsu Arg *A = Args.getLastArg(options::OPT_msoft_float, options::OPT_mhard_float,
71*9b617081SMin-Yih Hsu options::OPT_m68881);
72*9b617081SMin-Yih Hsu // Opt out FPU even for newer CPUs.
73*9b617081SMin-Yih Hsu if (A && A->getOption().matches(options::OPT_msoft_float)) {
74*9b617081SMin-Yih Hsu Features.push_back("-isa-68881");
75*9b617081SMin-Yih Hsu Features.push_back("-isa-68882");
76*9b617081SMin-Yih Hsu return;
77*9b617081SMin-Yih Hsu }
78*9b617081SMin-Yih Hsu
79*9b617081SMin-Yih Hsu std::string CPU = m68k::getM68kTargetCPU(Args);
80*9b617081SMin-Yih Hsu // Only enable M68881 for CPU < 68020 if the related flags are present.
81*9b617081SMin-Yih Hsu if ((A && (CPU == "M68000" || CPU == "M68010")) ||
82*9b617081SMin-Yih Hsu // Otherwise, by default we assume newer CPUs have M68881/2.
83*9b617081SMin-Yih Hsu CPU == "M68020")
84*9b617081SMin-Yih Hsu Features.push_back("+isa-68881");
85*9b617081SMin-Yih Hsu else if (CPU == "M68030" || CPU == "M68040" || CPU == "M68060")
86*9b617081SMin-Yih Hsu // Note that although CPU >= M68040 imply M68882, we still add `isa-68882`
87*9b617081SMin-Yih Hsu // anyway so that it's easier to add or not add the corresponding macro
88*9b617081SMin-Yih Hsu // definitions later, in case we want to disable 68881/2 in newer CPUs
89*9b617081SMin-Yih Hsu // (with -msoft-float, for instance).
90*9b617081SMin-Yih Hsu Features.push_back("+isa-68882");
91*9b617081SMin-Yih Hsu }
92*9b617081SMin-Yih Hsu
getM68kTargetFeatures(const Driver & D,const llvm::Triple & Triple,const ArgList & Args,std::vector<StringRef> & Features)935509748fSMin-Yih Hsu void m68k::getM68kTargetFeatures(const Driver &D, const llvm::Triple &Triple,
945509748fSMin-Yih Hsu const ArgList &Args,
955509748fSMin-Yih Hsu std::vector<StringRef> &Features) {
96*9b617081SMin-Yih Hsu addFloatABIFeatures(Args, Features);
97e620bea2SMin-Yih Hsu
98e620bea2SMin-Yih Hsu // Handle '-ffixed-<register>' flags
99e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a0))
100e620bea2SMin-Yih Hsu Features.push_back("+reserve-a0");
101e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a1))
102e620bea2SMin-Yih Hsu Features.push_back("+reserve-a1");
103e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a2))
104e620bea2SMin-Yih Hsu Features.push_back("+reserve-a2");
105e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a3))
106e620bea2SMin-Yih Hsu Features.push_back("+reserve-a3");
107e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a4))
108e620bea2SMin-Yih Hsu Features.push_back("+reserve-a4");
109e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a5))
110e620bea2SMin-Yih Hsu Features.push_back("+reserve-a5");
111e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_a6))
112e620bea2SMin-Yih Hsu Features.push_back("+reserve-a6");
113e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d0))
114e620bea2SMin-Yih Hsu Features.push_back("+reserve-d0");
115e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d1))
116e620bea2SMin-Yih Hsu Features.push_back("+reserve-d1");
117e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d2))
118e620bea2SMin-Yih Hsu Features.push_back("+reserve-d2");
119e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d3))
120e620bea2SMin-Yih Hsu Features.push_back("+reserve-d3");
121e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d4))
122e620bea2SMin-Yih Hsu Features.push_back("+reserve-d4");
123e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d5))
124e620bea2SMin-Yih Hsu Features.push_back("+reserve-d5");
125e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d6))
126e620bea2SMin-Yih Hsu Features.push_back("+reserve-d6");
127e620bea2SMin-Yih Hsu if (Args.hasArg(options::OPT_ffixed_d7))
128e620bea2SMin-Yih Hsu Features.push_back("+reserve-d7");
1295509748fSMin-Yih Hsu }
130