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