1//===-- LoongArchMCAsmInfo.cpp - LoongArch Asm properties ------*- C++ -*--===//
2//
3// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4// See https://llvm.org/LICENSE.txt for license information.
5// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6//
7//===----------------------------------------------------------------------===//
8//
9// This file contains the declarations of the LoongArchMCAsmInfo properties.
10//
11//===----------------------------------------------------------------------===//
12
13#include "LoongArchMCAsmInfo.h"
14#include "llvm/BinaryFormat/Dwarf.h"
15#include "llvm/BinaryFormat/ELF.h"
16#include "llvm/MC/MCContext.h"
17#include "llvm/MC/MCStreamer.h"
18#include "llvm/TargetParser/Triple.h"
19
20using namespace llvm;
21
22const LoongArchMCExpr *LoongArchMCExpr::create(const MCExpr *Expr, uint16_t S,
23 MCContext &Ctx, bool Hint) {
24 return new (Ctx) LoongArchMCExpr(Expr, S, Hint);
25}
26
27static StringRef getLoongArchSpecifierName(uint16_t S) {
28 switch (S) {
29 default:
30 llvm_unreachable("Invalid ELF symbol kind");
31 case ELF::R_LARCH_B16:
32 return "b16";
33 case ELF::R_LARCH_B21:
34 return "b21";
35 case ELF::R_LARCH_MARK_LA:
36 case ELF::R_LARCH_ABS_HI20:
37 return "abs_hi20";
38 case ELF::R_LARCH_ABS_LO12:
39 return "abs_lo12";
40 case ELF::R_LARCH_ABS64_LO20:
41 return "abs64_lo20";
42 case ELF::R_LARCH_ABS64_HI12:
43 return "abs64_hi12";
44 case ELF::R_LARCH_PCALA_HI20:
45 return "pc_hi20";
46 case ELF::R_LARCH_PCALA_LO12:
47 return "pc_lo12";
48 case ELF::R_LARCH_PCALA64_LO20:
49 return "pc64_lo20";
50 case ELF::R_LARCH_PCALA64_HI12:
51 return "pc64_hi12";
52 case ELF::R_LARCH_GOT_PC_HI20:
53 return "got_pc_hi20";
54 case ELF::R_LARCH_GOT_PC_LO12:
55 return "got_pc_lo12";
56 case ELF::R_LARCH_GOT64_PC_LO20:
57 return "got64_pc_lo20";
58 case ELF::R_LARCH_GOT64_PC_HI12:
59 return "got64_pc_hi12";
60 case ELF::R_LARCH_GOT_HI20:
61 return "got_hi20";
62 case ELF::R_LARCH_GOT_LO12:
63 return "got_lo12";
64 case ELF::R_LARCH_GOT64_LO20:
65 return "got64_lo20";
66 case ELF::R_LARCH_GOT64_HI12:
67 return "got64_hi12";
68 case ELF::R_LARCH_TLS_LE_HI20:
69 return "le_hi20";
70 case ELF::R_LARCH_TLS_LE_LO12:
71 return "le_lo12";
72 case ELF::R_LARCH_TLS_LE64_LO20:
73 return "le64_lo20";
74 case ELF::R_LARCH_TLS_LE64_HI12:
75 return "le64_hi12";
76 case ELF::R_LARCH_TLS_IE_PC_HI20:
77 return "ie_pc_hi20";
78 case ELF::R_LARCH_TLS_IE_PC_LO12:
79 return "ie_pc_lo12";
80 case ELF::R_LARCH_TLS_IE64_PC_LO20:
81 return "ie64_pc_lo20";
82 case ELF::R_LARCH_TLS_IE64_PC_HI12:
83 return "ie64_pc_hi12";
84 case ELF::R_LARCH_TLS_IE_HI20:
85 return "ie_hi20";
86 case ELF::R_LARCH_TLS_IE_LO12:
87 return "ie_lo12";
88 case ELF::R_LARCH_TLS_IE64_LO20:
89 return "ie64_lo20";
90 case ELF::R_LARCH_TLS_IE64_HI12:
91 return "ie64_hi12";
92 case ELF::R_LARCH_TLS_LD_PC_HI20:
93 return "ld_pc_hi20";
94 case ELF::R_LARCH_TLS_LD_HI20:
95 return "ld_hi20";
96 case ELF::R_LARCH_TLS_GD_PC_HI20:
97 return "gd_pc_hi20";
98 case ELF::R_LARCH_TLS_GD_HI20:
99 return "gd_hi20";
100 case ELF::R_LARCH_CALL30:
101 return "call30";
102 case ELF::R_LARCH_CALL36:
103 return "call36";
104 case ELF::R_LARCH_TLS_DESC_PC_HI20:
105 return "desc_pc_hi20";
106 case ELF::R_LARCH_TLS_DESC_PC_LO12:
107 return "desc_pc_lo12";
108 case ELF::R_LARCH_TLS_DESC64_PC_LO20:
109 return "desc64_pc_lo20";
110 case ELF::R_LARCH_TLS_DESC64_PC_HI12:
111 return "desc64_pc_hi12";
112 case ELF::R_LARCH_TLS_DESC_HI20:
113 return "desc_hi20";
114 case ELF::R_LARCH_TLS_DESC_LO12:
115 return "desc_lo12";
116 case ELF::R_LARCH_TLS_DESC64_LO20:
117 return "desc64_lo20";
118 case ELF::R_LARCH_TLS_DESC64_HI12:
119 return "desc64_hi12";
120 case ELF::R_LARCH_TLS_DESC_LD:
121 return "desc_ld";
122 case ELF::R_LARCH_TLS_DESC_CALL:
123 return "desc_call";
124 case ELF::R_LARCH_TLS_LE_HI20_R:
125 return "le_hi20_r";
126 case ELF::R_LARCH_TLS_LE_ADD_R:
127 return "le_add_r";
128 case ELF::R_LARCH_TLS_LE_LO12_R:
129 return "le_lo12_r";
130 case ELF::R_LARCH_PCREL20_S2:
131 return "pcrel_20";
132 case ELF::R_LARCH_TLS_LD_PCREL20_S2:
133 return "ld_pcrel_20";
134 case ELF::R_LARCH_TLS_GD_PCREL20_S2:
135 return "gd_pcrel_20";
136 case ELF::R_LARCH_TLS_DESC_PCREL20_S2:
137 return "desc_pcrel_20";
138 case ELF::R_LARCH_PCADD_HI20:
139 return "pcadd_hi20";
140 case ELF::R_LARCH_PCADD_LO12:
141 return "pcadd_lo12";
142 case ELF::R_LARCH_GOT_PCADD_HI20:
143 return "got_pcadd_hi20";
144 case ELF::R_LARCH_GOT_PCADD_LO12:
145 return "got_pcadd_lo12";
146 case ELF::R_LARCH_TLS_IE_PCADD_HI20:
147 return "ie_pcadd_hi20";
148 case ELF::R_LARCH_TLS_IE_PCADD_LO12:
149 return "ie_pcadd_lo12";
150 case ELF::R_LARCH_TLS_LD_PCADD_HI20:
151 return "ld_pcadd_hi20";
152 case ELF::R_LARCH_TLS_LD_PCADD_LO12:
153 return "ld_pcadd_lo12";
154 case ELF::R_LARCH_TLS_GD_PCADD_HI20:
155 return "gd_pcadd_hi20";
156 case ELF::R_LARCH_TLS_GD_PCADD_LO12:
157 return "gd_pcadd_lo12";
158 case ELF::R_LARCH_TLS_DESC_PCADD_HI20:
159 return "desc_pcadd_hi20";
160 case ELF::R_LARCH_TLS_DESC_PCADD_LO12:
161 return "desc_pcadd_lo12";
162 }
163}
164
165LoongArchMCExpr::Specifier LoongArch::parseSpecifier(StringRef name) {
166 return StringSwitch<LoongArchMCExpr::Specifier>(name)
167 .Case(S: "plt", Value: ELF::R_LARCH_B26)
168 .Case(S: "b16", Value: ELF::R_LARCH_B16)
169 .Case(S: "b21", Value: ELF::R_LARCH_B21)
170 .Case(S: "b26", Value: ELF::R_LARCH_B26)
171 .Case(S: "abs_hi20", Value: ELF::R_LARCH_ABS_HI20)
172 .Case(S: "abs_lo12", Value: ELF::R_LARCH_ABS_LO12)
173 .Case(S: "abs64_lo20", Value: ELF::R_LARCH_ABS64_LO20)
174 .Case(S: "abs64_hi12", Value: ELF::R_LARCH_ABS64_HI12)
175 .Case(S: "pc_hi20", Value: ELF::R_LARCH_PCALA_HI20)
176 .Case(S: "pc_lo12", Value: ELF::R_LARCH_PCALA_LO12)
177 .Case(S: "pc64_lo20", Value: ELF::R_LARCH_PCALA64_LO20)
178 .Case(S: "pc64_hi12", Value: ELF::R_LARCH_PCALA64_HI12)
179 .Case(S: "got_pc_hi20", Value: ELF::R_LARCH_GOT_PC_HI20)
180 .Case(S: "got_pc_lo12", Value: ELF::R_LARCH_GOT_PC_LO12)
181 .Case(S: "got64_pc_lo20", Value: ELF::R_LARCH_GOT64_PC_LO20)
182 .Case(S: "got64_pc_hi12", Value: ELF::R_LARCH_GOT64_PC_HI12)
183 .Case(S: "got_hi20", Value: ELF::R_LARCH_GOT_HI20)
184 .Case(S: "got_lo12", Value: ELF::R_LARCH_GOT_LO12)
185 .Case(S: "got64_lo20", Value: ELF::R_LARCH_GOT64_LO20)
186 .Case(S: "got64_hi12", Value: ELF::R_LARCH_GOT64_HI12)
187 .Case(S: "le_hi20", Value: ELF::R_LARCH_TLS_LE_HI20)
188 .Case(S: "le_lo12", Value: ELF::R_LARCH_TLS_LE_LO12)
189 .Case(S: "le64_lo20", Value: ELF::R_LARCH_TLS_LE64_LO20)
190 .Case(S: "le64_hi12", Value: ELF::R_LARCH_TLS_LE64_HI12)
191 .Case(S: "ie_pc_hi20", Value: ELF::R_LARCH_TLS_IE_PC_HI20)
192 .Case(S: "ie_pc_lo12", Value: ELF::R_LARCH_TLS_IE_PC_LO12)
193 .Case(S: "ie64_pc_lo20", Value: ELF::R_LARCH_TLS_IE64_PC_LO20)
194 .Case(S: "ie64_pc_hi12", Value: ELF::R_LARCH_TLS_IE64_PC_HI12)
195 .Case(S: "ie_hi20", Value: ELF::R_LARCH_TLS_IE_HI20)
196 .Case(S: "ie_lo12", Value: ELF::R_LARCH_TLS_IE_LO12)
197 .Case(S: "ie64_lo20", Value: ELF::R_LARCH_TLS_IE64_LO20)
198 .Case(S: "ie64_hi12", Value: ELF::R_LARCH_TLS_IE64_HI12)
199 .Case(S: "ld_pc_hi20", Value: ELF::R_LARCH_TLS_LD_PC_HI20)
200 .Case(S: "ld_hi20", Value: ELF::R_LARCH_TLS_LD_HI20)
201 .Case(S: "gd_pc_hi20", Value: ELF::R_LARCH_TLS_GD_PC_HI20)
202 .Case(S: "gd_hi20", Value: ELF::R_LARCH_TLS_GD_HI20)
203 .Case(S: "call30", Value: ELF::R_LARCH_CALL30)
204 .Case(S: "call36", Value: ELF::R_LARCH_CALL36)
205 .Case(S: "desc_pc_hi20", Value: ELF::R_LARCH_TLS_DESC_PC_HI20)
206 .Case(S: "desc_pc_lo12", Value: ELF::R_LARCH_TLS_DESC_PC_LO12)
207 .Case(S: "desc64_pc_lo20", Value: ELF::R_LARCH_TLS_DESC64_PC_LO20)
208 .Case(S: "desc64_pc_hi12", Value: ELF::R_LARCH_TLS_DESC64_PC_HI12)
209 .Case(S: "desc_hi20", Value: ELF::R_LARCH_TLS_DESC_HI20)
210 .Case(S: "desc_lo12", Value: ELF::R_LARCH_TLS_DESC_LO12)
211 .Case(S: "desc64_lo20", Value: ELF::R_LARCH_TLS_DESC64_LO20)
212 .Case(S: "desc64_hi12", Value: ELF::R_LARCH_TLS_DESC64_HI12)
213 .Case(S: "desc_ld", Value: ELF::R_LARCH_TLS_DESC_LD)
214 .Case(S: "desc_call", Value: ELF::R_LARCH_TLS_DESC_CALL)
215 .Case(S: "le_hi20_r", Value: ELF::R_LARCH_TLS_LE_HI20_R)
216 .Case(S: "le_add_r", Value: ELF::R_LARCH_TLS_LE_ADD_R)
217 .Case(S: "le_lo12_r", Value: ELF::R_LARCH_TLS_LE_LO12_R)
218 .Case(S: "pcrel_20", Value: ELF::R_LARCH_PCREL20_S2)
219 .Case(S: "ld_pcrel_20", Value: ELF::R_LARCH_TLS_LD_PCREL20_S2)
220 .Case(S: "gd_pcrel_20", Value: ELF::R_LARCH_TLS_GD_PCREL20_S2)
221 .Case(S: "desc_pcrel_20", Value: ELF::R_LARCH_TLS_DESC_PCREL20_S2)
222 .Case(S: "pcadd_hi20", Value: ELF::R_LARCH_PCADD_HI20)
223 .Case(S: "pcadd_lo12", Value: ELF::R_LARCH_PCADD_LO12)
224 .Case(S: "got_pcadd_hi20", Value: ELF::R_LARCH_GOT_PCADD_HI20)
225 .Case(S: "got_pcadd_lo12", Value: ELF::R_LARCH_GOT_PCADD_LO12)
226 .Case(S: "ie_pcadd_hi20", Value: ELF::R_LARCH_TLS_IE_PCADD_HI20)
227 .Case(S: "ie_pcadd_lo12", Value: ELF::R_LARCH_TLS_IE_PCADD_LO12)
228 .Case(S: "ld_pcadd_hi20", Value: ELF::R_LARCH_TLS_LD_PCADD_HI20)
229 .Case(S: "ld_pcadd_lo12", Value: ELF::R_LARCH_TLS_LD_PCADD_LO12)
230 .Case(S: "gd_pcadd_hi20", Value: ELF::R_LARCH_TLS_GD_PCADD_HI20)
231 .Case(S: "gd_pcadd_lo12", Value: ELF::R_LARCH_TLS_GD_PCADD_LO12)
232 .Case(S: "desc_pcadd_hi20", Value: ELF::R_LARCH_TLS_DESC_PCADD_HI20)
233 .Case(S: "desc_pcadd_lo12", Value: ELF::R_LARCH_TLS_DESC_PCADD_LO12)
234 .Default(Value: 0);
235}
236
237void LoongArchMCAsmInfo::anchor() {}
238
239LoongArchMCAsmInfo::LoongArchMCAsmInfo(const Triple &TT) {
240 CodePointerSize = CalleeSaveStackSlotSize = TT.isArch64Bit() ? 8 : 4;
241 AlignmentIsInBytes = false;
242 Data8bitsDirective = "\t.byte\t";
243 Data16bitsDirective = "\t.half\t";
244 Data32bitsDirective = "\t.word\t";
245 Data64bitsDirective = "\t.dword\t";
246 ZeroDirective = "\t.space\t";
247 CommentString = "#";
248 AllowDollarAtStartOfIdentifier = false;
249 SupportsDebugInformation = true;
250 DwarfRegNumForCFI = true;
251 ExceptionsType = ExceptionHandling::DwarfCFI;
252}
253
254void LoongArchMCAsmInfo::printSpecifierExpr(raw_ostream &OS,
255 const MCSpecifierExpr &Expr) const {
256 auto S = Expr.getSpecifier();
257 bool HasSpecifier = S != 0 && S != ELF::R_LARCH_B26;
258 if (HasSpecifier)
259 OS << '%' << getLoongArchSpecifierName(S) << '(';
260 printExpr(OS, *Expr.getSubExpr());
261 if (HasSpecifier)
262 OS << ')';
263}
264