1 #ifdef TARGET_DEFS_ONLY
3 #define EM_TCC_TARGET EM_RISCV
5 #define R_DATA_32 R_RISCV_32
6 #define R_DATA_PTR R_RISCV_64
7 #define R_JMP_SLOT R_RISCV_JUMP_SLOT
8 #define R_GLOB_DAT R_RISCV_64
9 #define R_COPY R_RISCV_COPY
10 #define R_RELATIVE R_RISCV_RELATIVE
12 #define R_NUM R_RISCV_NUM
14 #define ELF_START_ADDR 0x00010000
15 #define ELF_PAGE_SIZE 0x1000
17 #define PCRELATIVE_DLLPLT 1
18 #define RELOCATE_DLLPLT 1
20 #else /* !TARGET_DEFS_ONLY */
24 /* Returns 1 for a code relocation, 0 for a data relocation. For unknown
25 relocations, returns -1. */
26 int code_reloc (int reloc_type
)
35 case R_RISCV_GOT_HI20
:
36 case R_RISCV_PCREL_HI20
:
37 case R_RISCV_PCREL_LO12_I
:
38 case R_RISCV_PCREL_LO12_S
:
39 case R_RISCV_32_PCREL
:
46 case R_RISCV_CALL_PLT
:
49 tcc_error ("Unknown relocation type in code_reloc: %d", reloc_type
);
53 /* Returns an enumerator to describe whether and when the relocation needs a
54 GOT and/or PLT entry to be created. See tcc.h for a description of the
56 int gotplt_entry_type (int reloc_type
)
61 case R_RISCV_RVC_BRANCH
:
62 case R_RISCV_RVC_JUMP
:
63 return NO_GOTPLT_ENTRY
;
67 case R_RISCV_PCREL_HI20
:
68 case R_RISCV_PCREL_LO12_I
:
69 case R_RISCV_PCREL_LO12_S
:
70 case R_RISCV_32_PCREL
:
76 return AUTO_GOTPLT_ENTRY
;
78 case R_RISCV_GOT_HI20
:
79 case R_RISCV_CALL_PLT
:
80 return ALWAYS_GOTPLT_ENTRY
;
83 tcc_error ("Unknown relocation type: %d", reloc_type
);
87 ST_FUNC
unsigned create_plt_entry(TCCState
*s1
, unsigned got_offset
, struct sym_attr
*attr
)
89 Section
*plt
= s1
->plt
;
93 if (s1
->output_type
== TCC_OUTPUT_DLL
)
94 tcc_error("DLLs unimplemented!");
96 if (plt
->data_offset
== 0)
97 section_ptr_add(plt
, 32);
98 plt_offset
= plt
->data_offset
;
100 p
= section_ptr_add(plt
, 16);
101 write64le(p
, got_offset
);
105 /* relocate the PLT: compute addresses and offsets in the PLT now that final
106 address for PLT and GOT are known (see fill_program_header) */
107 ST_FUNC
void relocate_plt(TCCState
*s1
)
115 p_end
= p
+ s1
->plt
->data_offset
;
118 uint64_t plt
= s1
->plt
->sh_addr
;
119 uint64_t got
= s1
->got
->sh_addr
;
120 uint64_t off
= (got
- plt
+ 0x800) >> 12;
121 if ((off
+ ((uint32_t)1 << 20)) >> 21)
122 tcc_error("Failed relocating PLT (off=0x%lx, got=0x%lx, plt=0x%lx)", off
, got
, plt
);
123 write32le(p
, 0x397 | (off
<< 12)); // auipc t2, %pcrel_hi(got)
124 write32le(p
+ 4, 0x41c30333); // sub t1, t1, t3
125 write32le(p
+ 8, 0x0003be03 // ld t3, %pcrel_lo(got)(t2)
126 | (((got
- plt
) & 0xfff) << 20));
127 write32le(p
+ 12, 0xfd430313); // addi t1, t1, -(32+12)
128 write32le(p
+ 16, 0x00038293 // addi t0, t2, %pcrel_lo(got)
129 | (((got
- plt
) & 0xfff) << 20));
130 write32le(p
+ 20, 0x00135313); // srli t1, t1, log2(16/PTRSIZE)
131 write32le(p
+ 24, 0x0082b283); // ld t0, PTRSIZE(t0)
132 write32le(p
+ 28, 0x000e0067); // jr t3
135 uint64_t pc
= plt
+ (p
- s1
->plt
->data
);
136 uint64_t addr
= got
+ read64le(p
);
137 uint64_t off
= (addr
- pc
+ 0x800) >> 12;
138 if ((off
+ ((uint32_t)1 << 20)) >> 21)
139 tcc_error("Failed relocating PLT (off=0x%lx, addr=0x%lx, pc=0x%lx)", off
, addr
, pc
);
140 write32le(p
, 0xe17 | (off
<< 12)); // auipc t3, %pcrel_hi(func@got)
141 write32le(p
+ 4, 0x000e3e03 // ld t3, %pcrel_lo(func@got)(t3)
142 | (((addr
- pc
) & 0xfff) << 20));
143 write32le(p
+ 8, 0x000e0367); // jalr t1, t3
144 write32le(p
+ 12, 0x00000013); // nop
150 void relocate_init(Section
*sr
) {}
152 void relocate_fini(Section
*sr
)
159 static struct pcrel_hi last_hi
;
161 void relocate(TCCState
*s1
, ElfW_Rel
*rel
, int type
, unsigned char *ptr
,
162 addr_t addr
, addr_t val
)
166 int sym_index
= ELFW(R_SYM
)(rel
->r_info
);
168 ElfW(Sym
) *sym
= &((ElfW(Sym
) *)symtab_section
->data
)[sym_index
];
178 if ((off64
+ (1 << 12)) & ~(uint64_t)0x1ffe)
179 tcc_error("R_RISCV_BRANCH relocation failed"
180 " (val=%lx, addr=%lx)", val
, addr
);
182 write32le(ptr
, (read32le(ptr
) & ~0xfe000f80)
183 | ((off32
& 0x800) << 20)
184 | ((off32
& 0x3f0) << 21)
185 | ((off32
& 0x00f) << 8)
186 | ((off32
& 0x400) >> 3));
190 if ((off64
+ (1 << 21)) & ~(((uint64_t)1 << 22) - 2))
191 tcc_error("R_RISCV_BRANCH relocation failed"
192 " (val=%lx, addr=%lx)", val
, addr
);
194 write32le(ptr
, (read32le(ptr
) & 0xfff)
195 | (((off32
>> 12) & 0xff) << 12)
196 | (((off32
>> 11) & 1) << 20)
197 | (((off32
>> 1) & 0x3ff) << 21)
198 | (((off32
>> 20) & 1) << 31));
201 case R_RISCV_CALL_PLT
:
202 write32le(ptr
, (read32le(ptr
) & 0xfff)
203 | ((val
- addr
+ 0x800) & ~0xfff));
204 write32le(ptr
+ 4, (read32le(ptr
+ 4) & 0xfffff)
205 | (((val
- addr
) & 0xfff) << 20));
207 case R_RISCV_PCREL_HI20
:
209 printf("PCREL_HI20: val=%lx addr=%lx\n", val
, addr
);
211 off64
= (int64_t)(val
- addr
+ 0x800) >> 12;
212 if ((off64
+ ((uint64_t)1 << 20)) >> 21)
213 tcc_error("R_RISCV_PCREL_HI20 relocation failed: off=%lx cond=%lx",
214 off64
, ((int64_t)(off64
+ ((uint64_t)1 << 20)) >> 21));
215 write32le(ptr
, (read32le(ptr
) & 0xfff)
216 | ((off64
& 0xfffff) << 12));
220 case R_RISCV_GOT_HI20
:
221 val
= s1
->got
->sh_addr
+ get_sym_attr(s1
, sym_index
, 0)->got_offset
;
222 off64
= (int64_t)(val
- addr
+ 0x800) >> 12;
223 if ((off64
+ ((uint64_t)1 << 20)) >> 21)
224 tcc_error("R_RISCV_GOT_HI20 relocation failed");
227 write32le(ptr
, (read32le(ptr
) & 0xfff)
228 | ((off64
& 0xfffff) << 12));
230 case R_RISCV_PCREL_LO12_I
:
232 printf("PCREL_LO12_I: val=%lx addr=%lx\n", val
, addr
);
234 if (val
!= last_hi
.addr
)
235 tcc_error("unsupported hi/lo pcrel reloc scheme");
238 write32le(ptr
, (read32le(ptr
) & 0xfffff)
239 | (((val
- addr
) & 0xfff) << 20));
241 case R_RISCV_PCREL_LO12_S
:
242 if (val
!= last_hi
.addr
)
243 tcc_error("unsupported hi/lo pcrel reloc scheme");
247 write32le(ptr
, (read32le(ptr
) & ~0xfe000f80)
248 | ((off32
& 0xfe0) << 20)
249 | ((off32
& 0x01f) << 7));
252 case R_RISCV_RVC_BRANCH
:
253 off64
= (val
- addr
);
254 if ((off64
+ (1 << 8)) & ~(uint64_t)0x1fe)
255 tcc_error("R_RISCV_RVC_BRANCH relocation failed"
256 " (val=%lx, addr=%lx)", val
, addr
);
258 write16le(ptr
, (read16le(ptr
) & 0xe383)
259 | (((off32
>> 5) & 1) << 2)
260 | (((off32
>> 1) & 3) << 3)
261 | (((off32
>> 6) & 3) << 5)
262 | (((off32
>> 3) & 3) << 10)
263 | (((off32
>> 8) & 1) << 12));
265 case R_RISCV_RVC_JUMP
:
266 off64
= (val
- addr
);
267 if ((off64
+ (1 << 11)) & ~(uint64_t)0xffe)
268 tcc_error("R_RISCV_RVC_BRANCH relocation failed"
269 " (val=%lx, addr=%lx)", val
, addr
);
271 write16le(ptr
, (read16le(ptr
) & 0xe003)
272 | (((off32
>> 5) & 1) << 2)
273 | (((off32
>> 1) & 7) << 3)
274 | (((off32
>> 7) & 1) << 6)
275 | (((off32
>> 6) & 1) << 7)
276 | (((off32
>> 10) & 1) << 8)
277 | (((off32
>> 8) & 3) << 9)
278 | (((off32
>> 4) & 1) << 11)
279 | (((off32
>> 11) & 1) << 12));
289 write32le(ptr
, read32le(ptr
) + val
);
292 write32le(ptr
, read32le(ptr
) - val
);
295 case R_RISCV_32_PCREL
:
301 fprintf(stderr
, "FIXME: handle reloc type %x at %x [%p] to %x\n",
302 type
, (unsigned)addr
, ptr
, (unsigned)val
);