1//===-- SparcELFObjectWriter.cpp - Sparc ELF Writer -----------------------===//
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#include "MCTargetDesc/SparcFixupKinds.h"
10#include "MCTargetDesc/SparcMCExpr.h"
11#include "MCTargetDesc/SparcMCTargetDesc.h"
12#include "llvm/ADT/STLExtras.h"
13#include "llvm/MC/MCELFObjectWriter.h"
14#include "llvm/MC/MCExpr.h"
15#include "llvm/MC/MCObjectWriter.h"
16#include "llvm/MC/MCValue.h"
17#include "llvm/Support/ErrorHandling.h"
18
19using namespace llvm;
20
21namespace {
22 class SparcELFObjectWriter : public MCELFObjectTargetWriter {
23 public:
24 SparcELFObjectWriter(bool Is64Bit, bool HasV9, uint8_t OSABI)
25 : MCELFObjectTargetWriter(
26 Is64Bit, OSABI,
27 Is64Bit ? ELF::EM_SPARCV9
28 : (HasV9 ? ELF::EM_SPARC32PLUS : ELF::EM_SPARC),
29 /*HasRelocationAddend*/ true) {}
30
31 ~SparcELFObjectWriter() override = default;
32
33 protected:
34 unsigned getRelocType(MCContext &Ctx, const MCValue &Target,
35 const MCFixup &Fixup, bool IsPCRel) const override;
36
37 bool needsRelocateWithSymbol(const MCValue &Val, const MCSymbol &Sym,
38 unsigned Type) const override;
39 };
40}
41
42unsigned SparcELFObjectWriter::getRelocType(MCContext &Ctx,
43 const MCValue &Target,
44 const MCFixup &Fixup,
45 bool IsPCRel) const {
46 MCFixupKind Kind = Fixup.getKind();
47 if (Kind >= FirstLiteralRelocationKind)
48 return Kind - FirstLiteralRelocationKind;
49
50 if (const SparcMCExpr *SExpr = dyn_cast<SparcMCExpr>(Val: Fixup.getValue())) {
51 if (SExpr->getKind() == SparcMCExpr::VK_Sparc_R_DISP32)
52 return ELF::R_SPARC_DISP32;
53 }
54
55 if (IsPCRel) {
56 switch(Fixup.getTargetKind()) {
57 default:
58 llvm_unreachable("Unimplemented fixup -> relocation");
59 case FK_Data_1: return ELF::R_SPARC_DISP8;
60 case FK_Data_2: return ELF::R_SPARC_DISP16;
61 case FK_Data_4: return ELF::R_SPARC_DISP32;
62 case FK_Data_8: return ELF::R_SPARC_DISP64;
63 case Sparc::fixup_sparc_call30: return ELF::R_SPARC_WDISP30;
64 case Sparc::fixup_sparc_br22: return ELF::R_SPARC_WDISP22;
65 case Sparc::fixup_sparc_br19: return ELF::R_SPARC_WDISP19;
66 case Sparc::fixup_sparc_br16:
67 return ELF::R_SPARC_WDISP16;
68 case Sparc::fixup_sparc_pc22: return ELF::R_SPARC_PC22;
69 case Sparc::fixup_sparc_pc10: return ELF::R_SPARC_PC10;
70 case Sparc::fixup_sparc_wplt30: return ELF::R_SPARC_WPLT30;
71 }
72 }
73
74 switch(Fixup.getTargetKind()) {
75 default:
76 llvm_unreachable("Unimplemented fixup -> relocation");
77 case FK_NONE: return ELF::R_SPARC_NONE;
78 case FK_Data_1: return ELF::R_SPARC_8;
79 case FK_Data_2: return ((Fixup.getOffset() % 2)
80 ? ELF::R_SPARC_UA16
81 : ELF::R_SPARC_16);
82 case FK_Data_4: return ((Fixup.getOffset() % 4)
83 ? ELF::R_SPARC_UA32
84 : ELF::R_SPARC_32);
85 case FK_Data_8: return ((Fixup.getOffset() % 8)
86 ? ELF::R_SPARC_UA64
87 : ELF::R_SPARC_64);
88 case Sparc::fixup_sparc_13: return ELF::R_SPARC_13;
89 case Sparc::fixup_sparc_hi22: return ELF::R_SPARC_HI22;
90 case Sparc::fixup_sparc_lo10: return ELF::R_SPARC_LO10;
91 case Sparc::fixup_sparc_h44: return ELF::R_SPARC_H44;
92 case Sparc::fixup_sparc_m44: return ELF::R_SPARC_M44;
93 case Sparc::fixup_sparc_l44: return ELF::R_SPARC_L44;
94 case Sparc::fixup_sparc_hh: return ELF::R_SPARC_HH22;
95 case Sparc::fixup_sparc_hm: return ELF::R_SPARC_HM10;
96 case Sparc::fixup_sparc_lm: return ELF::R_SPARC_LM22;
97 case Sparc::fixup_sparc_got22: return ELF::R_SPARC_GOT22;
98 case Sparc::fixup_sparc_got10: return ELF::R_SPARC_GOT10;
99 case Sparc::fixup_sparc_got13: return ELF::R_SPARC_GOT13;
100 case Sparc::fixup_sparc_tls_gd_hi22: return ELF::R_SPARC_TLS_GD_HI22;
101 case Sparc::fixup_sparc_tls_gd_lo10: return ELF::R_SPARC_TLS_GD_LO10;
102 case Sparc::fixup_sparc_tls_gd_add: return ELF::R_SPARC_TLS_GD_ADD;
103 case Sparc::fixup_sparc_tls_gd_call: return ELF::R_SPARC_TLS_GD_CALL;
104 case Sparc::fixup_sparc_tls_ldm_hi22: return ELF::R_SPARC_TLS_LDM_HI22;
105 case Sparc::fixup_sparc_tls_ldm_lo10: return ELF::R_SPARC_TLS_LDM_LO10;
106 case Sparc::fixup_sparc_tls_ldm_add: return ELF::R_SPARC_TLS_LDM_ADD;
107 case Sparc::fixup_sparc_tls_ldm_call: return ELF::R_SPARC_TLS_LDM_CALL;
108 case Sparc::fixup_sparc_tls_ldo_hix22: return ELF::R_SPARC_TLS_LDO_HIX22;
109 case Sparc::fixup_sparc_tls_ldo_lox10: return ELF::R_SPARC_TLS_LDO_LOX10;
110 case Sparc::fixup_sparc_tls_ldo_add: return ELF::R_SPARC_TLS_LDO_ADD;
111 case Sparc::fixup_sparc_tls_ie_hi22: return ELF::R_SPARC_TLS_IE_HI22;
112 case Sparc::fixup_sparc_tls_ie_lo10: return ELF::R_SPARC_TLS_IE_LO10;
113 case Sparc::fixup_sparc_tls_ie_ld: return ELF::R_SPARC_TLS_IE_LD;
114 case Sparc::fixup_sparc_tls_ie_ldx: return ELF::R_SPARC_TLS_IE_LDX;
115 case Sparc::fixup_sparc_tls_ie_add: return ELF::R_SPARC_TLS_IE_ADD;
116 case Sparc::fixup_sparc_tls_le_hix22: return ELF::R_SPARC_TLS_LE_HIX22;
117 case Sparc::fixup_sparc_tls_le_lox10: return ELF::R_SPARC_TLS_LE_LOX10;
118 case Sparc::fixup_sparc_hix22: return ELF::R_SPARC_HIX22;
119 case Sparc::fixup_sparc_lox10: return ELF::R_SPARC_LOX10;
120 case Sparc::fixup_sparc_gotdata_hix22: return ELF::R_SPARC_GOTDATA_HIX22;
121 case Sparc::fixup_sparc_gotdata_lox10: return ELF::R_SPARC_GOTDATA_LOX10;
122 case Sparc::fixup_sparc_gotdata_op: return ELF::R_SPARC_GOTDATA_OP;
123 }
124
125 return ELF::R_SPARC_NONE;
126}
127
128bool SparcELFObjectWriter::needsRelocateWithSymbol(const MCValue &,
129 const MCSymbol &,
130 unsigned Type) const {
131 switch (Type) {
132 default:
133 return false;
134
135 // All relocations that use a GOT need a symbol, not an offset, as
136 // the offset of the symbol within the section is irrelevant to
137 // where the GOT entry is. Don't need to list all the TLS entries,
138 // as they're all marked as requiring a symbol anyways.
139 case ELF::R_SPARC_GOT10:
140 case ELF::R_SPARC_GOT13:
141 case ELF::R_SPARC_GOT22:
142 case ELF::R_SPARC_GOTDATA_HIX22:
143 case ELF::R_SPARC_GOTDATA_LOX10:
144 case ELF::R_SPARC_GOTDATA_OP_HIX22:
145 case ELF::R_SPARC_GOTDATA_OP_LOX10:
146 return true;
147 }
148}
149
150std::unique_ptr<MCObjectTargetWriter>
151llvm::createSparcELFObjectWriter(bool Is64Bit, bool HasV9, uint8_t OSABI) {
152 return std::make_unique<SparcELFObjectWriter>(args&: Is64Bit, args&: HasV9, args&: OSABI);
153}
154