Commit | Line | Data |
---|---|---|
0bcb993b ILT |
1 | /* picoJava specific support for 32-bit ELF |
2 | Copyright 1999 Free Software Foundation, Inc. | |
3 | Contributed by Steve Chamberlan of Transmeta (sac@pobox.com). | |
4 | ||
5 | This file is part of BFD, the Binary File Descriptor library. | |
6 | ||
7 | This program is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
9 | the Free Software Foundation; either version 2 of the License, or | |
10 | (at your option) any later version. | |
11 | ||
12 | This program is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with this program; if not, write to the Free Software | |
19 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
20 | ||
21 | #include "bfd.h" | |
22 | #include "sysdep.h" | |
23 | #include "bfdlink.h" | |
24 | #include "libbfd.h" | |
25 | #include "elf-bfd.h" | |
26 | #include "elf/pj.h" | |
27 | ||
28 | static bfd_reloc_status_type pj_elf_reloc | |
29 | PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); | |
30 | static reloc_howto_type *pj_elf_reloc_type_lookup | |
31 | PARAMS ((bfd *, bfd_reloc_code_real_type)); | |
32 | static void pj_elf_info_to_howto | |
33 | PARAMS ((bfd *, arelent *, Elf_Internal_Rela *)); | |
34 | ||
35 | static reloc_howto_type pj_elf_howto_table[] = | |
36 | { | |
37 | /* No relocation. */ | |
38 | HOWTO (R_PJ_NONE, /* type */ | |
39 | 0, /* rightshift */ | |
40 | 0, /* size (0 = byte, 1 = short, 2 = long) */ | |
41 | 0, /* bitsize */ | |
42 | false, /* pc_relative */ | |
43 | 0, /* bitpos */ | |
44 | complain_overflow_dont, /* complain_on_overflow */ | |
45 | pj_elf_reloc, /* special_function */ | |
46 | "R_PJ_NONE", /* name */ | |
47 | false, /* partial_inplace */ | |
48 | 0, /* src_mask */ | |
49 | 0, /* dst_mask */ | |
50 | false), /* pcrel_offset */ | |
51 | ||
52 | /* 32 bit absolute relocation. Setting partial_inplace to true and | |
53 | src_mask to a non-zero value is similar to the COFF toolchain. */ | |
54 | HOWTO (R_PJ_DATA_DIR32, /* type */ | |
55 | 0, /* rightshift */ | |
56 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
57 | 32, /* bitsize */ | |
58 | false, /* pc_relative */ | |
59 | 0, /* bitpos */ | |
60 | complain_overflow_bitfield, /* complain_on_overflow */ | |
61 | pj_elf_reloc, /* special_function */ | |
62 | "R_PJ_DIR32", /* name */ | |
63 | true, /* partial_inplace */ | |
64 | 0xffffffff, /* src_mask */ | |
65 | 0xffffffff, /* dst_mask */ | |
66 | false), /* pcrel_offset */ | |
67 | ||
68 | /* 32 bit PC relative relocation. */ | |
69 | HOWTO (R_PJ_CODE_REL32, /* type */ | |
70 | 0, /* rightshift */ | |
71 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
72 | 32, /* bitsize */ | |
73 | true, /* pc_relative */ | |
74 | 0, /* bitpos */ | |
75 | complain_overflow_signed, /* complain_on_overflow */ | |
76 | pj_elf_reloc, /* special_function */ | |
77 | "R_PJ_REL32", /* name */ | |
78 | false, /* partial_inplace */ | |
79 | 0, /* src_mask */ | |
80 | 0xffffffff, /* dst_mask */ | |
81 | true), /* pcrel_offset */ | |
82 | ||
83 | /* 16 bit PC relative relocation. */ | |
84 | HOWTO (R_PJ_CODE_REL16, /* type */ | |
85 | 0, /* rightshift */ | |
86 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
87 | 16, /* bitsize */ | |
88 | true, /* pc_relative */ | |
89 | 0, /* bitpos */ | |
90 | complain_overflow_signed, /* complain_on_overf6w */ | |
91 | pj_elf_reloc, /* special_function */ | |
92 | "R_PJ_REL16", /* name */ | |
93 | false, /* partial_inplace */ | |
94 | 0xffff, /* src_mask */ | |
95 | 0xffff, /* dst_mask */ | |
96 | true), /* pcrel_offset */ | |
97 | EMPTY_HOWTO (4), | |
98 | EMPTY_HOWTO (5), | |
99 | HOWTO (R_PJ_CODE_DIR32, /* type */ | |
100 | 0, /* rightshift */ | |
101 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
102 | 32, /* bitsize */ | |
103 | false, /* pc_relative */ | |
104 | 0, /* bitpos */ | |
105 | complain_overflow_bitfield, /* complain_on_overflow */ | |
106 | pj_elf_reloc, /* special_function */ | |
107 | "R_PJ_CODE_DIR32", /* name */ | |
108 | true, /* partial_inplace */ | |
109 | 0xffffffff, /* src_mask */ | |
110 | 0xffffffff, /* dst_mask */ | |
111 | false), /* pcrel_offset */ | |
112 | ||
113 | EMPTY_HOWTO (7), | |
114 | EMPTY_HOWTO (8), | |
115 | EMPTY_HOWTO (9), | |
116 | EMPTY_HOWTO (10), | |
117 | EMPTY_HOWTO (11), | |
118 | EMPTY_HOWTO (12), | |
119 | ||
120 | HOWTO (R_PJ_CODE_LO16, /* type */ | |
121 | 0, /* rightshift */ | |
122 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
123 | 16, /* bitsize */ | |
124 | false, /* pc_relative */ | |
125 | 0, /* bitpos */ | |
126 | complain_overflow_unsigned, /* complain_on_overflow */ | |
127 | pj_elf_reloc, /* special_function */ | |
128 | "R_PJ_LO16", /* name */ | |
129 | false, /* partial_inplace */ | |
130 | 0xffff, /* src_mask */ | |
131 | 0xffff, /* dst_mask */ | |
132 | true), /* pcrel_offset */ | |
133 | ||
134 | ||
135 | HOWTO (R_PJ_CODE_HI16, /* type */ | |
136 | 16, /* rightshift */ | |
137 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
138 | 16, /* bitsize */ | |
139 | false, /* pc_relative */ | |
140 | 0, /* bitpos */ | |
141 | complain_overflow_unsigned, /* complain_on_overflow */ | |
142 | pj_elf_reloc, /* special_function */ | |
143 | "R_PJ_HI16", /* name */ | |
144 | false, /* partial_inplace */ | |
145 | 0xffff, /* src_mask */ | |
146 | 0xffff, /* dst_mask */ | |
147 | true), /* pcrel_offset */ | |
148 | ||
149 | /* GNU extension to record C++ vtable hierarchy */ | |
150 | HOWTO (R_PJ_GNU_VTINHERIT, /* type */ | |
151 | 0, /* rightshift */ | |
152 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
153 | 0, /* bitsize */ | |
154 | false, /* pc_relative */ | |
155 | 0, /* bitpos */ | |
156 | complain_overflow_dont, /* complain_on_overflow */ | |
157 | NULL, /* special_function */ | |
158 | "R_PJ_GNU_VTINHERIT", /* name */ | |
159 | false, /* partial_inplace */ | |
160 | 0, /* src_mask */ | |
161 | 0, /* dst_mask */ | |
162 | false), /* pcrel_offset */ | |
163 | ||
164 | /* GNU extension to record C++ vtable member usage */ | |
165 | HOWTO (R_PJ_GNU_VTENTRY, /* type */ | |
166 | 0, /* rightshift */ | |
167 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
168 | 0, /* bitsize */ | |
169 | false, /* pc_relative */ | |
170 | 0, /* bitpos */ | |
171 | complain_overflow_dont, /* complain_on_overflow */ | |
172 | _bfd_elf_rel_vtable_reloc_fn, /* special_function */ | |
173 | "R_PJ_GNU_VTENTRY", /* name */ | |
174 | false, /* partial_inplace */ | |
175 | 0, /* src_mask */ | |
176 | 0, /* dst_mask */ | |
177 | false), /* pcrel_offset */ | |
178 | ||
179 | ||
180 | }; | |
181 | ||
182 | /* This function is used for normal relocs. This is like the COFF | |
183 | function, and is almost certainly incorrect for other ELF targets. */ | |
184 | ||
185 | static bfd_reloc_status_type | |
186 | pj_elf_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd, | |
187 | error_message) | |
188 | bfd *abfd; | |
189 | arelent *reloc_entry; | |
190 | asymbol *symbol_in; | |
191 | PTR data; | |
192 | asection *input_section; | |
193 | bfd *output_bfd; | |
194 | char **error_message ATTRIBUTE_UNUSED; | |
195 | { | |
196 | unsigned long insn; | |
197 | bfd_vma sym_value; | |
198 | enum elf_pj_reloc_type r_type; | |
199 | bfd_vma addr = reloc_entry->address; | |
200 | bfd_byte *hit_data = addr + (bfd_byte *) data; | |
201 | ||
202 | r_type = (enum elf_pj_reloc_type) reloc_entry->howto->type; | |
203 | ||
204 | if (output_bfd != NULL) | |
205 | { | |
206 | /* Partial linking--do nothing. */ | |
207 | reloc_entry->address += input_section->output_offset; | |
208 | return bfd_reloc_ok; | |
209 | } | |
210 | ||
211 | if (symbol_in != NULL | |
212 | && bfd_is_und_section (symbol_in->section)) | |
213 | return bfd_reloc_undefined; | |
214 | ||
215 | if (bfd_is_com_section (symbol_in->section)) | |
216 | sym_value = 0; | |
217 | else | |
218 | sym_value = (symbol_in->value + | |
219 | symbol_in->section->output_section->vma + | |
220 | symbol_in->section->output_offset); | |
221 | ||
222 | switch (r_type) | |
223 | { | |
224 | case R_PJ_DATA_DIR32: | |
225 | insn = bfd_get_32 (abfd, hit_data); | |
226 | insn += sym_value + reloc_entry->addend; | |
227 | bfd_put_32 (abfd, insn, hit_data); | |
228 | break; | |
229 | ||
230 | /* Relocations in code are always bigendian, no matter what the | |
231 | data endianness is. */ | |
232 | ||
233 | case R_PJ_CODE_DIR32: | |
234 | insn = bfd_getb32 (hit_data); | |
235 | insn += sym_value + reloc_entry->addend; | |
236 | bfd_putb32 (insn, hit_data); | |
237 | break; | |
238 | ||
239 | case R_PJ_CODE_REL16: | |
240 | insn = bfd_getb16 (hit_data); | |
241 | insn += sym_value + reloc_entry->addend | |
242 | - (input_section->output_section->vma | |
243 | + input_section->output_offset); | |
244 | bfd_putb16 (insn, hit_data); | |
245 | break; | |
246 | case R_PJ_CODE_LO16: | |
247 | insn = bfd_getb16 (hit_data); | |
248 | insn += sym_value + reloc_entry->addend; | |
249 | bfd_putb16 (insn, hit_data); | |
250 | break; | |
251 | ||
252 | case R_PJ_CODE_HI16: | |
253 | insn = bfd_getb16 (hit_data); | |
254 | insn += (sym_value + reloc_entry->addend) >> 16; | |
255 | bfd_putb16 (insn, hit_data); | |
256 | break; | |
257 | ||
258 | default: | |
259 | abort (); | |
260 | break; | |
261 | } | |
262 | ||
263 | return bfd_reloc_ok; | |
264 | } | |
265 | ||
266 | /* This structure is used to map BFD reloc codes to PJ ELF relocs. */ | |
267 | ||
268 | struct elf_reloc_map | |
269 | { | |
270 | bfd_reloc_code_real_type bfd_reloc_val; | |
271 | unsigned char elf_reloc_val; | |
272 | }; | |
273 | ||
274 | /* An array mapping BFD reloc codes to PJ ELF relocs. */ | |
275 | ||
276 | static const struct elf_reloc_map pj_reloc_map[] = | |
277 | { | |
278 | { BFD_RELOC_NONE, R_PJ_NONE }, | |
279 | { BFD_RELOC_32, R_PJ_DATA_DIR32 }, | |
280 | { BFD_RELOC_PJ_CODE_DIR16, R_PJ_CODE_DIR16 }, | |
281 | { BFD_RELOC_PJ_CODE_DIR32, R_PJ_CODE_DIR32 }, | |
282 | { BFD_RELOC_PJ_CODE_LO16, R_PJ_CODE_LO16 }, | |
283 | { BFD_RELOC_PJ_CODE_HI16, R_PJ_CODE_HI16 }, | |
284 | { BFD_RELOC_PJ_CODE_REL32, R_PJ_CODE_REL32 }, | |
285 | { BFD_RELOC_PJ_CODE_REL16, R_PJ_CODE_REL16 }, | |
286 | { BFD_RELOC_VTABLE_INHERIT, R_PJ_GNU_VTINHERIT }, | |
287 | { BFD_RELOC_VTABLE_ENTRY, R_PJ_GNU_VTENTRY }, | |
288 | }; | |
289 | ||
290 | /* Given a BFD reloc code, return the howto structure for the | |
291 | corresponding PJ ELf reloc. */ | |
292 | ||
293 | static reloc_howto_type * | |
294 | pj_elf_reloc_type_lookup (abfd, code) | |
295 | bfd *abfd ATTRIBUTE_UNUSED; | |
296 | bfd_reloc_code_real_type code; | |
297 | { | |
298 | unsigned int i; | |
299 | ||
300 | for (i = 0; i < sizeof (pj_reloc_map) / sizeof (struct elf_reloc_map); i++) | |
301 | { | |
302 | if (pj_reloc_map[i].bfd_reloc_val == code) | |
303 | return &pj_elf_howto_table[(int) pj_reloc_map[i].elf_reloc_val]; | |
304 | } | |
305 | ||
306 | return NULL; | |
307 | } | |
308 | ||
309 | /* Given an ELF reloc, fill in the howto field of a relent. */ | |
310 | ||
311 | static void | |
312 | pj_elf_info_to_howto (abfd, cache_ptr, dst) | |
313 | bfd *abfd ATTRIBUTE_UNUSED; | |
314 | arelent *cache_ptr; | |
315 | Elf_Internal_Rela *dst; | |
316 | { | |
317 | unsigned int r; | |
318 | ||
319 | r = ELF32_R_TYPE (dst->r_info); | |
320 | ||
321 | BFD_ASSERT (r < (unsigned int) R_PJ_max); | |
322 | ||
323 | cache_ptr->howto = &pj_elf_howto_table[r]; | |
324 | } | |
325 | ||
326 | /* Take this moment to fill in the special picoJava bits in the | |
327 | e_flags field. */ | |
328 | ||
329 | static void | |
330 | pj_elf_final_write_processing (abfd, linker) | |
331 | bfd *abfd; | |
332 | boolean linker ATTRIBUTE_UNUSED; | |
333 | { | |
334 | elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_ARCH; | |
335 | elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_GNUCALLS; | |
336 | } | |
337 | ||
338 | #define TARGET_BIG_SYM bfd_elf32_pj_vec | |
339 | #define TARGET_BIG_NAME "elf32-pj" | |
340 | #define TARGET_LITTLE_SYM bfd_elf32_pjl_vec | |
341 | #define TARGET_LITTLE_NAME "elf32-pjl" | |
342 | #define ELF_ARCH bfd_arch_pj | |
343 | #define ELF_MACHINE_CODE EM_PJ | |
344 | #define ELF_MAXPAGESIZE 0x1000 | |
345 | #define bfd_elf32_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents | |
346 | #define bfd_elf32_bfd_reloc_type_lookup pj_elf_reloc_type_lookup | |
347 | #define elf_backend_final_write_processing pj_elf_final_write_processing | |
348 | #define elf_info_to_howto pj_elf_info_to_howto | |
349 | #include "elf32-target.h" |