1*d4bcb45dSJez Ng //===-- MCTargetOptionsCommandFlags.cpp -----------------------*- C++ //-*-===//
2ac1d23edSserge-sans-paille //
3ac1d23edSserge-sans-paille // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4ac1d23edSserge-sans-paille // See https://llvm.org/LICENSE.txt for license information.
5ac1d23edSserge-sans-paille // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6ac1d23edSserge-sans-paille //
7ac1d23edSserge-sans-paille //===----------------------------------------------------------------------===//
8ac1d23edSserge-sans-paille //
9ac1d23edSserge-sans-paille // This file contains machine code-specific flags that are shared between
10ac1d23edSserge-sans-paille // different command line tools.
11ac1d23edSserge-sans-paille //
12ac1d23edSserge-sans-paille //===----------------------------------------------------------------------===//
13ac1d23edSserge-sans-paille
14ac1d23edSserge-sans-paille #include "llvm/MC/MCTargetOptionsCommandFlags.h"
15f3b20c2aSSimon Pilgrim #include "llvm/MC/MCTargetOptions.h"
16f3b20c2aSSimon Pilgrim #include "llvm/Support/CommandLine.h"
17ac1d23edSserge-sans-paille
18ac1d23edSserge-sans-paille using namespace llvm;
19ac1d23edSserge-sans-paille
20ac1d23edSserge-sans-paille #define MCOPT(TY, NAME) \
21ac1d23edSserge-sans-paille static cl::opt<TY> *NAME##View; \
22ac1d23edSserge-sans-paille TY llvm::mc::get##NAME() { \
23ac1d23edSserge-sans-paille assert(NAME##View && "RegisterMCTargetOptionsFlags not created."); \
24ac1d23edSserge-sans-paille return *NAME##View; \
25ac1d23edSserge-sans-paille }
26ac1d23edSserge-sans-paille
27ac1d23edSserge-sans-paille #define MCOPT_EXP(TY, NAME) \
28ac1d23edSserge-sans-paille MCOPT(TY, NAME) \
29ac1d23edSserge-sans-paille Optional<TY> llvm::mc::getExplicit##NAME() { \
30ac1d23edSserge-sans-paille if (NAME##View->getNumOccurrences()) { \
31ac1d23edSserge-sans-paille TY res = *NAME##View; \
32ac1d23edSserge-sans-paille return res; \
33ac1d23edSserge-sans-paille } \
34ac1d23edSserge-sans-paille return None; \
35ac1d23edSserge-sans-paille }
36ac1d23edSserge-sans-paille
MCOPT_EXP(bool,RelaxAll)37ac1d23edSserge-sans-paille MCOPT_EXP(bool, RelaxAll)
38ac1d23edSserge-sans-paille MCOPT(bool, IncrementalLinkerCompatible)
39ac1d23edSserge-sans-paille MCOPT(int, DwarfVersion)
40a8ec9de4SIgor Kudrin MCOPT(bool, Dwarf64)
41*d4bcb45dSJez Ng MCOPT(EmitDwarfUnwindType, EmitDwarfUnwind)
42ac1d23edSserge-sans-paille MCOPT(bool, ShowMCInst)
43ac1d23edSserge-sans-paille MCOPT(bool, FatalWarnings)
44ac1d23edSserge-sans-paille MCOPT(bool, NoWarn)
45ac1d23edSserge-sans-paille MCOPT(bool, NoDeprecatedWarn)
469647a6f7SWouter van Oortmerssen MCOPT(bool, NoTypeCheck)
47ac1d23edSserge-sans-paille MCOPT(std::string, ABIName)
48ac1d23edSserge-sans-paille
49ac1d23edSserge-sans-paille llvm::mc::RegisterMCTargetOptionsFlags::RegisterMCTargetOptionsFlags() {
50ac1d23edSserge-sans-paille #define MCBINDOPT(NAME) \
51ac1d23edSserge-sans-paille do { \
52ac1d23edSserge-sans-paille NAME##View = std::addressof(NAME); \
53ac1d23edSserge-sans-paille } while (0)
54ac1d23edSserge-sans-paille
55ac1d23edSserge-sans-paille static cl::opt<bool> RelaxAll(
56ac1d23edSserge-sans-paille "mc-relax-all", cl::desc("When used with filetype=obj, relax all fixups "
57ac1d23edSserge-sans-paille "in the emitted object file"));
58ac1d23edSserge-sans-paille MCBINDOPT(RelaxAll);
59ac1d23edSserge-sans-paille
60ac1d23edSserge-sans-paille static cl::opt<bool> IncrementalLinkerCompatible(
61ac1d23edSserge-sans-paille "incremental-linker-compatible",
62ac1d23edSserge-sans-paille cl::desc(
63ac1d23edSserge-sans-paille "When used with filetype=obj, "
64ac1d23edSserge-sans-paille "emit an object file which can be used with an incremental linker"));
65ac1d23edSserge-sans-paille MCBINDOPT(IncrementalLinkerCompatible);
66ac1d23edSserge-sans-paille
67ac1d23edSserge-sans-paille static cl::opt<int> DwarfVersion("dwarf-version", cl::desc("Dwarf version"),
68ac1d23edSserge-sans-paille cl::init(0));
69ac1d23edSserge-sans-paille MCBINDOPT(DwarfVersion);
70ac1d23edSserge-sans-paille
71a8ec9de4SIgor Kudrin static cl::opt<bool> Dwarf64(
72a8ec9de4SIgor Kudrin "dwarf64",
73a8ec9de4SIgor Kudrin cl::desc("Generate debugging info in the 64-bit DWARF format"));
74a8ec9de4SIgor Kudrin MCBINDOPT(Dwarf64);
75a8ec9de4SIgor Kudrin
76*d4bcb45dSJez Ng static cl::opt<EmitDwarfUnwindType> EmitDwarfUnwind(
77*d4bcb45dSJez Ng "emit-dwarf-unwind", cl::desc("Whether to emit DWARF EH frame entries."),
78*d4bcb45dSJez Ng cl::init(EmitDwarfUnwindType::Default),
79*d4bcb45dSJez Ng cl::values(clEnumValN(EmitDwarfUnwindType::Always, "always",
80*d4bcb45dSJez Ng "Always emit EH frame entries"),
81*d4bcb45dSJez Ng clEnumValN(EmitDwarfUnwindType::NoCompactUnwind,
82*d4bcb45dSJez Ng "no-compact-unwind",
83*d4bcb45dSJez Ng "Only emit EH frame entries when compact unwind is "
84*d4bcb45dSJez Ng "not available"),
85*d4bcb45dSJez Ng clEnumValN(EmitDwarfUnwindType::Default, "default",
86*d4bcb45dSJez Ng "Use target platform default")));
87*d4bcb45dSJez Ng MCBINDOPT(EmitDwarfUnwind);
88*d4bcb45dSJez Ng
89ac1d23edSserge-sans-paille static cl::opt<bool> ShowMCInst(
90ac1d23edSserge-sans-paille "asm-show-inst",
91ac1d23edSserge-sans-paille cl::desc("Emit internal instruction representation to assembly file"));
92ac1d23edSserge-sans-paille MCBINDOPT(ShowMCInst);
93ac1d23edSserge-sans-paille
94ac1d23edSserge-sans-paille static cl::opt<bool> FatalWarnings("fatal-warnings",
95ac1d23edSserge-sans-paille cl::desc("Treat warnings as errors"));
96ac1d23edSserge-sans-paille MCBINDOPT(FatalWarnings);
97ac1d23edSserge-sans-paille
98ac1d23edSserge-sans-paille static cl::opt<bool> NoWarn("no-warn", cl::desc("Suppress all warnings"));
99ac1d23edSserge-sans-paille static cl::alias NoWarnW("W", cl::desc("Alias for --no-warn"),
100ac1d23edSserge-sans-paille cl::aliasopt(NoWarn));
101ac1d23edSserge-sans-paille MCBINDOPT(NoWarn);
102ac1d23edSserge-sans-paille
103ac1d23edSserge-sans-paille static cl::opt<bool> NoDeprecatedWarn(
104ac1d23edSserge-sans-paille "no-deprecated-warn", cl::desc("Suppress all deprecated warnings"));
105ac1d23edSserge-sans-paille MCBINDOPT(NoDeprecatedWarn);
106ac1d23edSserge-sans-paille
1079647a6f7SWouter van Oortmerssen static cl::opt<bool> NoTypeCheck(
1089647a6f7SWouter van Oortmerssen "no-type-check", cl::desc("Suppress type errors (Wasm)"));
1099647a6f7SWouter van Oortmerssen MCBINDOPT(NoTypeCheck);
1109647a6f7SWouter van Oortmerssen
111ac1d23edSserge-sans-paille static cl::opt<std::string> ABIName(
112ac1d23edSserge-sans-paille "target-abi", cl::Hidden,
113ac1d23edSserge-sans-paille cl::desc("The name of the ABI to be targeted from the backend."),
114ac1d23edSserge-sans-paille cl::init(""));
115ac1d23edSserge-sans-paille MCBINDOPT(ABIName);
116ac1d23edSserge-sans-paille
117ac1d23edSserge-sans-paille #undef MCBINDOPT
118ac1d23edSserge-sans-paille }
119ac1d23edSserge-sans-paille
InitMCTargetOptionsFromFlags()120ac1d23edSserge-sans-paille MCTargetOptions llvm::mc::InitMCTargetOptionsFromFlags() {
121ac1d23edSserge-sans-paille MCTargetOptions Options;
122ac1d23edSserge-sans-paille Options.MCRelaxAll = getRelaxAll();
123ac1d23edSserge-sans-paille Options.MCIncrementalLinkerCompatible = getIncrementalLinkerCompatible();
124a8ec9de4SIgor Kudrin Options.Dwarf64 = getDwarf64();
125ac1d23edSserge-sans-paille Options.DwarfVersion = getDwarfVersion();
126ac1d23edSserge-sans-paille Options.ShowMCInst = getShowMCInst();
127ac1d23edSserge-sans-paille Options.ABIName = getABIName();
128ac1d23edSserge-sans-paille Options.MCFatalWarnings = getFatalWarnings();
129ac1d23edSserge-sans-paille Options.MCNoWarn = getNoWarn();
130ac1d23edSserge-sans-paille Options.MCNoDeprecatedWarn = getNoDeprecatedWarn();
1319647a6f7SWouter van Oortmerssen Options.MCNoTypeCheck = getNoTypeCheck();
132*d4bcb45dSJez Ng Options.EmitDwarfUnwind = getEmitDwarfUnwind();
133*d4bcb45dSJez Ng
134ac1d23edSserge-sans-paille return Options;
135ac1d23edSserge-sans-paille }
136