?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fix PE-COFF archiving long name tables
[binutils/dougsmingw.git] / bfd / elf32-xc16x.c
blob826b6aac6f7e171ef14f8af5d81a96e6119c0689
1 /* Infineon XC16X-specific support for 16-bit ELF.
2 Copyright 2006, 2007, 2009 Free Software Foundation, Inc.
3 Contributed by KPIT Cummins Infosystems
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 3 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, 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libbfd.h"
25 #include "elf-bfd.h"
26 #include "elf/xc16x.h"
27 #include "dwarf2.h"
28 #include "libiberty.h"
29
30 static reloc_howto_type xc16x_elf_howto_table [] =
31 {
32 /* This reloc does nothing. */
33 HOWTO (R_XC16X_NONE, /* type */
34 0, /* rightshift */
35 1, /* size (0 = byte, 1 = short, 2 = long) */
36 16, /* bitsize */
37 FALSE, /* pc_relative */
38 0, /* bitpos */
39 complain_overflow_bitfield, /* complain_on_overflow */
40 bfd_elf_generic_reloc, /* special_function */
41 "R_XC16X_NONE", /* name */
42 FALSE, /* partial_inplace */
43 0, /* src_mask */
44 0, /* dst_mask */
45 FALSE), /* pcrel_offset */
46
47 /* An 8 bit absolute relocation. */
48 HOWTO (R_XC16X_ABS_8, /* type */
49 0, /* rightshift */
50 0, /* size (0 = byte, 1 = short, 2 = long) */
51 8, /* bitsize */
52 FALSE, /* pc_relative */
53 8, /* bitpos */
54 complain_overflow_bitfield, /* complain_on_overflow */
55 bfd_elf_generic_reloc, /* special_function */
56 "R_XC16X_ABS_8", /* name */
57 TRUE, /* partial_inplace */
58 0x0000, /* src_mask */
59 0x00ff, /* dst_mask */
60 FALSE), /* pcrel_offset */
61
62 /* A 16 bit absolute relocation. */
63 HOWTO (R_XC16X_ABS_16, /* type */
64 0, /* rightshift */
65 1, /* size (0 = byte, 1 = short, 2 = long) */
66 16, /* bitsize */
67 FALSE, /* pc_relative */
68 0, /* bitpos */
69 complain_overflow_dont, /* complain_on_overflow */
70 bfd_elf_generic_reloc, /* special_function */
71 "R_XC16X_ABS_16", /* name */
72 TRUE, /* partial_inplace */
73 0x00000000, /* src_mask */
74 0x0000ffff, /* dst_mask */
75 FALSE), /* pcrel_offset */
76
77 HOWTO (R_XC16X_ABS_32, /* type */
78 0, /* rightshift */
79 2, /* size (0 = byte, 1 = short, 2 = long) */
80 32, /* bitsize */
81 FALSE, /* pc_relative */
82 0, /* bitpos */
83 complain_overflow_bitfield, /* complain_on_overflow */
84 bfd_elf_generic_reloc, /* special_function */
85 "R_XC16X_ABS_32", /* name */
86 TRUE, /* partial_inplace */
87 0x00000000, /* src_mask */
88 0xffffffff, /* dst_mask */
89 FALSE), /* pcrel_offset */
90
91
92 /* A PC relative 8 bit relocation. */
93 HOWTO (R_XC16X_8_PCREL, /* type */
94 0, /* rightshift */
95 0, /* size (0 = byte, 1 = short, 2 = long) */
96 8, /* bitsize */
97 TRUE, /* pc_relative */
98 8, /* bitpos */
99 complain_overflow_signed, /* complain_on_overflow */
100 bfd_elf_generic_reloc, /* special_function */
101 "R_XC16X_8_PCREL", /* name */
102 FALSE, /* partial_inplace */
103 0x0000, /* src_mask */
104 0x00ff, /* dst_mask */
105 TRUE), /* pcrel_offset */
106
107 /* Relocation regarding page number. */
108 HOWTO (R_XC16X_PAG, /* type */
109 0, /* rightshift */
110 1, /* size (0 = byte, 1 = short, 2 = long) */
111 16, /* bitsize */
112 FALSE, /* pc_relative */
113 0, /* bitpos */
114 complain_overflow_signed, /* complain_on_overflow */
115 bfd_elf_generic_reloc, /* special_function */
116 "R_XC16X_PAG", /* name */
117 TRUE, /* partial_inplace */
118 0x00000000, /* src_mask */
119 0x0000ffff, /* dst_mask */
120 FALSE), /* pcrel_offset */
121
122
123 /* Relocation regarding page number. */
124 HOWTO (R_XC16X_POF, /* type */
125 0, /* rightshift */
126 1, /* size (0 = byte, 1 = short, 2 = long) */
127 16, /* bitsize */
128 FALSE, /* pc_relative */
129 0, /* bitpos */
130 complain_overflow_signed, /* complain_on_overflow */
131 bfd_elf_generic_reloc, /* special_function */
132 "R_XC16X_POF", /* name */
133 TRUE, /* partial_inplace */
134 0x00000000, /* src_mask */
135 0x0000ffff, /* dst_mask */
136 FALSE), /* pcrel_offset */
137
138
139 /* Relocation regarding segment number. */
140 HOWTO (R_XC16X_SEG, /* type */
141 0, /* rightshift */
142 1, /* size (0 = byte, 1 = short, 2 = long) */
143 16, /* bitsize */
144 FALSE, /* pc_relative */
145 0, /* bitpos */
146 complain_overflow_signed, /* complain_on_overflow */
147 bfd_elf_generic_reloc, /* special_function */
148 "R_XC16X_SEG", /* name */
149 TRUE, /* partial_inplace */
150 0x00000000, /* src_mask */
151 0x0000ffff, /* dst_mask */
152 FALSE), /* pcrel_offset */
153
154 /* Relocation regarding segment offset. */
155 HOWTO (R_XC16X_SOF, /* type */
156 0, /* rightshift */
157 1, /* size (0 = byte, 1 = short, 2 = long) */
158 16, /* bitsize */
159 FALSE, /* pc_relative */
160 0, /* bitpos */
161 complain_overflow_signed, /* complain_on_overflow */
162 bfd_elf_generic_reloc, /* special_function */
163 "R_XC16X_SOF", /* name */
164 TRUE, /* partial_inplace */
165 0x00000000, /* src_mask */
166 0x0000ffff, /* dst_mask */
167 FALSE) /* pcrel_offset */
168 };
169
170
171 /* Map BFD reloc types to XC16X ELF reloc types. */
172
173 struct xc16x_reloc_map
174 {
175 bfd_reloc_code_real_type bfd_reloc_val;
176 unsigned int xc16x_reloc_val;
177 };
178
179 static const struct xc16x_reloc_map xc16x_reloc_map [] =
180 {
181 { BFD_RELOC_NONE, R_XC16X_NONE },
182 { BFD_RELOC_8, R_XC16X_ABS_8 },
183 { BFD_RELOC_16, R_XC16X_ABS_16 },
184 { BFD_RELOC_32, R_XC16X_ABS_32 },
185 { BFD_RELOC_8_PCREL, R_XC16X_8_PCREL },
186 { BFD_RELOC_XC16X_PAG, R_XC16X_PAG},
187 { BFD_RELOC_XC16X_POF, R_XC16X_POF},
188 { BFD_RELOC_XC16X_SEG, R_XC16X_SEG},
189 { BFD_RELOC_XC16X_SOF, R_XC16X_SOF},
190 };
191
192
193 /* This function is used to search for correct relocation type from
194 howto structure. */
195
196 static reloc_howto_type *
197 xc16x_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
198 bfd_reloc_code_real_type code)
199 {
200 unsigned int i;
201
202 for (i = ARRAY_SIZE (xc16x_reloc_map); --i;)
203 if (xc16x_reloc_map [i].bfd_reloc_val == code)
204 return & xc16x_elf_howto_table [xc16x_reloc_map[i].xc16x_reloc_val];
205
206 return NULL;
207 }
208
209 static reloc_howto_type *
210 xc16x_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
211 const char *r_name)
212 {
213 unsigned int i;
214
215 for (i = 0;
216 i < sizeof (xc16x_elf_howto_table) / sizeof (xc16x_elf_howto_table[0]);
217 i++)
218 if (xc16x_elf_howto_table[i].name != NULL
219 && strcasecmp (xc16x_elf_howto_table[i].name, r_name) == 0)
220 return &xc16x_elf_howto_table[i];
221
222 return NULL;
223 }
224
225 /* For a particular operand this function is
226 called to finalise the type of relocation. */
227
228 static void
229 elf32_xc16x_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *bfd_reloc,
230 Elf_Internal_Rela *elf_reloc)
231 {
232 unsigned int r;
233 unsigned int i;
234
235 r = ELF32_R_TYPE (elf_reloc->r_info);
236 for (i = 0; i < ARRAY_SIZE (xc16x_elf_howto_table); i++)
237 if (xc16x_elf_howto_table[i].type == r)
238 {
239 bfd_reloc->howto = &xc16x_elf_howto_table[i];
240 return;
241 }
242 abort ();
243 }
244
245 static bfd_reloc_status_type
246 elf32_xc16x_final_link_relocate (unsigned long r_type,
247 bfd *input_bfd,
248 bfd *output_bfd ATTRIBUTE_UNUSED,
249 asection *input_section ATTRIBUTE_UNUSED,
250 bfd_byte *contents,
251 bfd_vma offset,
252 bfd_vma value,
253 bfd_vma addend,
254 struct bfd_link_info *info ATTRIBUTE_UNUSED,
255 asection *sym_sec ATTRIBUTE_UNUSED,
256 int is_local ATTRIBUTE_UNUSED)
257 {
258 bfd_byte *hit_data = contents + offset;
259 bfd_vma val1;
260
261 switch (r_type)
262 {
263 case R_XC16X_NONE:
264 return bfd_reloc_ok;
265
266 case R_XC16X_ABS_16:
267 value += addend;
268 bfd_put_16 (input_bfd, value, hit_data);
269 return bfd_reloc_ok;
270
271 case R_XC16X_8_PCREL:
272 bfd_put_8 (input_bfd, value, hit_data);
273 return bfd_reloc_ok;
274
275 /* Following case is to find page number from actual
276 address for this divide value by 16k i.e. page size. */
277
278 case R_XC16X_PAG:
279 value += addend;
280 value /= 0x4000;
281 bfd_put_16 (input_bfd, value, hit_data);
282 return bfd_reloc_ok;
283
284 /* Following case is to find page offset from actual address
285 for this take modulo of value by 16k i.e. page size. */
286
287 case R_XC16X_POF:
288 value += addend;
289 value %= 0x4000;
290 bfd_put_16 (input_bfd, value, hit_data);
291 return bfd_reloc_ok;
292
293 /* Following case is to find segment number from actual
294 address for this divide value by 64k i.e. segment size. */
295
296 case R_XC16X_SEG:
297 value += addend;
298 value /= 0x10000;
299 bfd_put_16 (input_bfd, value, hit_data);
300 return bfd_reloc_ok;
301
302 /* Following case is to find segment offset from actual address
303 for this take modulo of value by 64k i.e. segment size. */
304
305 case R_XC16X_SOF:
306 value += addend;
307 value %= 0x10000;
308 bfd_put_16 (input_bfd, value, hit_data);
309 return bfd_reloc_ok;
310
311 case R_XC16X_ABS_32:
312 if (!strstr (input_section->name,".debug"))
313 {
314 value += addend;
315 val1 = value;
316 value %= 0x4000;
317 val1 /= 0x4000;
318 val1 = val1 << 16;
319 value += val1;
320 bfd_put_32 (input_bfd, value, hit_data);
321 }
322 else
323 {
324 value += addend;
325 bfd_put_32 (input_bfd, value, hit_data);
326 }
327 return bfd_reloc_ok;
328
329 default:
330 return bfd_reloc_notsupported;
331 }
332 }
333
334 static bfd_boolean
335 elf32_xc16x_relocate_section (bfd *output_bfd,
336 struct bfd_link_info *info,
337 bfd *input_bfd,
338 asection *input_section,
339 bfd_byte *contents,
340 Elf_Internal_Rela *relocs,
341 Elf_Internal_Sym *local_syms,
342 asection **local_sections)
343 {
344 Elf_Internal_Shdr *symtab_hdr;
345 struct elf_link_hash_entry **sym_hashes;
346 Elf_Internal_Rela *rel, *relend;
347
348 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
349 sym_hashes = elf_sym_hashes (input_bfd);
350
351 rel = relocs;
352 relend = relocs + input_section->reloc_count;
353 for (; rel < relend; rel++)
354 {
355 unsigned int r_type;
356 unsigned long r_symndx;
357 Elf_Internal_Sym *sym;
358 asection *sec;
359 struct elf_link_hash_entry *h;
360 bfd_vma relocation;
361 bfd_reloc_status_type r;
362
363 /* This is a final link. */
364 r_symndx = ELF32_R_SYM (rel->r_info);
365 r_type = ELF32_R_TYPE (rel->r_info);
366 h = NULL;
367 sym = NULL;
368 sec = NULL;
369 if (r_symndx < symtab_hdr->sh_info)
370 {
371 sym = local_syms + r_symndx;
372 sec = local_sections[r_symndx];
373 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
374 }
375 else
376 {
377 bfd_boolean unresolved_reloc, warned;
378
379 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
380 r_symndx, symtab_hdr, sym_hashes,
381 h, sec, relocation,
382 unresolved_reloc, warned);
383 }
384
385 if (sec != NULL && elf_discarded_section (sec))
386 {
387 /* For relocs against symbols from removed linkonce sections,
388 or sections discarded by a linker script, we just want the
389 section contents zeroed. Avoid any special processing. */
390 reloc_howto_type *howto;
391 howto = xc16x_reloc_type_lookup (input_bfd, r_type);
392 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
393 rel->r_info = 0;
394 rel->r_addend = 0;
395 continue;
396 }
397
398 if (info->relocatable)
399 continue;
400
401 r = elf32_xc16x_final_link_relocate (r_type, input_bfd, output_bfd,
402 input_section,
403 contents, rel->r_offset,
404 relocation, rel->r_addend,
405 info, sec, h == NULL);
406 }
407
408 return TRUE;
409 }
410
411
412 static void
413 elf32_xc16x_final_write_processing (bfd *abfd,
414 bfd_boolean linker ATTRIBUTE_UNUSED)
415 {
416 unsigned long val;
417
418 switch (bfd_get_mach (abfd))
419 {
420 default:
421 case bfd_mach_xc16x:
422 val = 0x1000;
423 break;
424
425 case bfd_mach_xc16xl:
426 val = 0x1001;
427 break;
428
429 case bfd_mach_xc16xs:
430 val = 0x1002;
431 break;
432 }
433
434 elf_elfheader (abfd)->e_flags |= val;
435 }
436
437 static unsigned long
438 elf32_xc16x_mach (flagword flags)
439 {
440 switch (flags)
441 {
442 case 0x1000:
443 default:
444 return bfd_mach_xc16x;
445
446 case 0x1001:
447 return bfd_mach_xc16xl;
448
449 case 0x1002:
450 return bfd_mach_xc16xs;
451 }
452 }
453
454
455 static bfd_boolean
456 elf32_xc16x_object_p (bfd *abfd)
457 {
458 bfd_default_set_arch_mach (abfd, bfd_arch_xc16x,
459 elf32_xc16x_mach (elf_elfheader (abfd)->e_flags));
460 return TRUE;
461 }
462
463
464 #define ELF_ARCH bfd_arch_xc16x
465 #define ELF_MACHINE_CODE EM_XC16X
466 #define ELF_MAXPAGESIZE 0x100
467
468 #define TARGET_LITTLE_SYM bfd_elf32_xc16x_vec
469 #define TARGET_LITTLE_NAME "elf32-xc16x"
470 #define elf_backend_final_write_processing elf32_xc16x_final_write_processing
471 #define elf_backend_object_p elf32_xc16x_object_p
472 #define elf_backend_can_gc_sections 1
473 #define bfd_elf32_bfd_reloc_type_lookup xc16x_reloc_type_lookup
474 #define bfd_elf32_bfd_reloc_name_lookup xc16x_reloc_name_lookup
475 #define elf_info_to_howto elf32_xc16x_info_to_howto
476 #define elf_info_to_howto_rel elf32_xc16x_info_to_howto
477 #define elf_backend_relocate_section elf32_xc16x_relocate_section
478 #define elf_backend_rela_normal 1
479
480 #include "elf32-target.h"
Patches to binutils for mingw-w64