* elf.c (sym_is_global): Return a bfd_boolean.
[binutils.git] / bfd / elf32-xc16x.c
blob1824302e88508c18f8d6a448fbe566249b3914bb
1 /* Infineon XC16X-specific support for 16-bit ELF.
2 Copyright 2006 Free Software Foundation, Inc.
3 Contributed by KPIT Cummins Infosystems
5 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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, MA 02110-1301, USA. */
21 #include "bfd.h"
22 #include "sysdep.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/xc16x.h"
26 #include "elf/dwarf2.h"
27 #include "libiberty.h"
29 static reloc_howto_type xc16x_elf_howto_table [] =
31 /* This reloc does nothing. */
32 HOWTO (R_XC16X_NONE, /* type */
33 0, /* rightshift */
34 1, /* size (0 = byte, 1 = short, 2 = long) */
35 16, /* bitsize */
36 FALSE, /* pc_relative */
37 0, /* bitpos */
38 complain_overflow_bitfield, /* complain_on_overflow */
39 bfd_elf_generic_reloc, /* special_function */
40 "R_XC16X_NONE", /* name */
41 FALSE, /* partial_inplace */
42 0, /* src_mask */
43 0, /* dst_mask */
44 FALSE), /* pcrel_offset */
46 /* An 8 bit absolute relocation. */
47 HOWTO (R_XC16X_ABS_8, /* type */
48 0, /* rightshift */
49 0, /* size (0 = byte, 1 = short, 2 = long) */
50 8, /* bitsize */
51 FALSE, /* pc_relative */
52 8, /* bitpos */
53 complain_overflow_bitfield, /* complain_on_overflow */
54 bfd_elf_generic_reloc, /* special_function */
55 "R_XC16X_ABS_8", /* name */
56 TRUE, /* partial_inplace */
57 0x0000, /* src_mask */
58 0x00ff, /* dst_mask */
59 FALSE), /* pcrel_offset */
61 /* A 16 bit absolute relocation. */
62 HOWTO (R_XC16X_ABS_16, /* type */
63 0, /* rightshift */
64 1, /* size (0 = byte, 1 = short, 2 = long) */
65 16, /* bitsize */
66 FALSE, /* pc_relative */
67 0, /* bitpos */
68 complain_overflow_dont, /* complain_on_overflow */
69 bfd_elf_generic_reloc, /* special_function */
70 "R_XC16X_ABS_16", /* name */
71 TRUE, /* partial_inplace */
72 0x00000000, /* src_mask */
73 0x0000ffff, /* dst_mask */
74 FALSE), /* pcrel_offset */
76 HOWTO (R_XC16X_ABS_32, /* type */
77 0, /* rightshift */
78 2, /* size (0 = byte, 1 = short, 2 = long) */
79 32, /* bitsize */
80 FALSE, /* pc_relative */
81 0, /* bitpos */
82 complain_overflow_bitfield, /* complain_on_overflow */
83 bfd_elf_generic_reloc, /* special_function */
84 "R_XC16X_ABS_32", /* name */
85 TRUE, /* partial_inplace */
86 0x00000000, /* src_mask */
87 0xffffffff, /* dst_mask */
88 FALSE), /* pcrel_offset */
91 /* A PC relative 8 bit relocation. */
92 HOWTO (R_XC16X_8_PCREL, /* type */
93 0, /* rightshift */
94 0, /* size (0 = byte, 1 = short, 2 = long) */
95 8, /* bitsize */
96 TRUE, /* pc_relative */
97 8, /* bitpos */
98 complain_overflow_signed, /* complain_on_overflow */
99 bfd_elf_generic_reloc, /* special_function */
100 "R_XC16X_8_PCREL", /* name */
101 FALSE, /* partial_inplace */
102 0x0000, /* src_mask */
103 0x00ff, /* dst_mask */
104 TRUE), /* pcrel_offset */
106 /* Relocation regarding page number. */
107 HOWTO (R_XC16X_PAG, /* type */
108 0, /* rightshift */
109 1, /* size (0 = byte, 1 = short, 2 = long) */
110 16, /* bitsize */
111 FALSE, /* pc_relative */
112 0, /* bitpos */
113 complain_overflow_signed, /* complain_on_overflow */
114 bfd_elf_generic_reloc, /* special_function */
115 "R_XC16X_PAG", /* name */
116 TRUE, /* partial_inplace */
117 0x00000000, /* src_mask */
118 0x0000ffff, /* dst_mask */
119 FALSE), /* pcrel_offset */
122 /* Relocation regarding page number. */
123 HOWTO (R_XC16X_POF, /* type */
124 0, /* rightshift */
125 1, /* size (0 = byte, 1 = short, 2 = long) */
126 16, /* bitsize */
127 FALSE, /* pc_relative */
128 0, /* bitpos */
129 complain_overflow_signed, /* complain_on_overflow */
130 bfd_elf_generic_reloc, /* special_function */
131 "R_XC16X_POF", /* name */
132 TRUE, /* partial_inplace */
133 0x00000000, /* src_mask */
134 0x0000ffff, /* dst_mask */
135 FALSE), /* pcrel_offset */
138 /* Relocation regarding segment number. */
139 HOWTO (R_XC16X_SEG, /* type */
140 0, /* rightshift */
141 1, /* size (0 = byte, 1 = short, 2 = long) */
142 16, /* bitsize */
143 FALSE, /* pc_relative */
144 0, /* bitpos */
145 complain_overflow_signed, /* complain_on_overflow */
146 bfd_elf_generic_reloc, /* special_function */
147 "R_XC16X_SEG", /* name */
148 TRUE, /* partial_inplace */
149 0x00000000, /* src_mask */
150 0x0000ffff, /* dst_mask */
151 FALSE), /* pcrel_offset */
153 /* Relocation regarding segment offset. */
154 HOWTO (R_XC16X_SOF, /* type */
155 0, /* rightshift */
156 1, /* size (0 = byte, 1 = short, 2 = long) */
157 16, /* bitsize */
158 FALSE, /* pc_relative */
159 0, /* bitpos */
160 complain_overflow_signed, /* complain_on_overflow */
161 bfd_elf_generic_reloc, /* special_function */
162 "R_XC16X_SOF", /* name */
163 TRUE, /* partial_inplace */
164 0x00000000, /* src_mask */
165 0x0000ffff, /* dst_mask */
166 FALSE) /* pcrel_offset */
170 /* Map BFD reloc types to XC16X ELF reloc types. */
172 struct xc16x_reloc_map
174 bfd_reloc_code_real_type bfd_reloc_val;
175 unsigned int xc16x_reloc_val;
178 static const struct xc16x_reloc_map xc16x_reloc_map [] =
180 { BFD_RELOC_NONE, R_XC16X_NONE },
181 { BFD_RELOC_8, R_XC16X_ABS_8 },
182 { BFD_RELOC_16, R_XC16X_ABS_16 },
183 { BFD_RELOC_32, R_XC16X_ABS_32 },
184 { BFD_RELOC_8_PCREL, R_XC16X_8_PCREL },
185 { BFD_RELOC_XC16X_PAG, R_XC16X_PAG},
186 { BFD_RELOC_XC16X_POF, R_XC16X_POF},
187 { BFD_RELOC_XC16X_SEG, R_XC16X_SEG},
188 { BFD_RELOC_XC16X_SOF, R_XC16X_SOF},
192 /* This function is used to search for correct relocation type from
193 howto structure. */
195 static reloc_howto_type *
196 xc16x_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
197 bfd_reloc_code_real_type code)
199 unsigned int i;
201 for (i = ARRAY_SIZE (xc16x_reloc_map); --i;)
202 if (xc16x_reloc_map [i].bfd_reloc_val == code)
203 return & xc16x_elf_howto_table [xc16x_reloc_map[i].xc16x_reloc_val];
205 return NULL;
208 /* For a particular operand this function is
209 called to finalise the type of relocation. */
211 static void
212 elf32_xc16x_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *bfd_reloc,
213 Elf_Internal_Rela *elf_reloc)
215 unsigned int r;
216 unsigned int i;
218 r = ELF32_R_TYPE (elf_reloc->r_info);
219 for (i = 0; i < ARRAY_SIZE (xc16x_elf_howto_table); i++)
220 if (xc16x_elf_howto_table[i].type == r)
222 bfd_reloc->howto = &xc16x_elf_howto_table[i];
223 return;
225 abort ();
228 static bfd_reloc_status_type
229 elf32_xc16x_final_link_relocate (unsigned long r_type,
230 bfd *input_bfd,
231 bfd *output_bfd ATTRIBUTE_UNUSED,
232 asection *input_section ATTRIBUTE_UNUSED,
233 bfd_byte *contents,
234 bfd_vma offset,
235 bfd_vma value,
236 bfd_vma addend,
237 struct bfd_link_info *info ATTRIBUTE_UNUSED,
238 asection *sym_sec ATTRIBUTE_UNUSED,
239 int is_local ATTRIBUTE_UNUSED)
241 bfd_byte *hit_data = contents + offset;
242 bfd_vma val1;
244 switch (r_type)
246 case R_XC16X_NONE:
247 return bfd_reloc_ok;
249 case R_XC16X_ABS_16:
250 value += addend;
251 bfd_put_16 (input_bfd, value, hit_data);
252 return bfd_reloc_ok;
254 case R_XC16X_8_PCREL:
255 bfd_put_8 (input_bfd, value, hit_data);
256 return bfd_reloc_ok;
258 /* Following case is to find page number from actual
259 address for this divide value by 16k i.e. page size. */
261 case R_XC16X_PAG:
262 value += addend;
263 value /= 0x4000;
264 bfd_put_16 (input_bfd, value, hit_data);
265 return bfd_reloc_ok;
267 /* Following case is to find page offset from actual address
268 for this take modulo of value by 16k i.e. page size. */
270 case R_XC16X_POF:
271 value += addend;
272 value %= 0x4000;
273 bfd_put_16 (input_bfd, value, hit_data);
274 return bfd_reloc_ok;
276 /* Following case is to find segment number from actual
277 address for this divide value by 64k i.e. segment size. */
279 case R_XC16X_SEG:
280 value += addend;
281 value /= 0x10000;
282 bfd_put_16 (input_bfd, value, hit_data);
283 return bfd_reloc_ok;
285 /* Following case is to find segment offset from actual address
286 for this take modulo of value by 64k i.e. segment size. */
288 case R_XC16X_SOF:
289 value += addend;
290 value %= 0x10000;
291 bfd_put_16 (input_bfd, value, hit_data);
292 return bfd_reloc_ok;
294 case R_XC16X_ABS_32:
295 if (!strstr (input_section->name,".debug"))
297 value += addend;
298 val1 = value;
299 value %= 0x4000;
300 val1 /= 0x4000;
301 val1 = val1 << 16;
302 value += val1;
303 bfd_put_32 (input_bfd, value, hit_data);
305 else
307 value += addend;
308 bfd_put_32 (input_bfd, value, hit_data);
310 return bfd_reloc_ok;
312 default:
313 return bfd_reloc_notsupported;
317 static bfd_boolean
318 elf32_xc16x_relocate_section (bfd *output_bfd,
319 struct bfd_link_info *info,
320 bfd *input_bfd,
321 asection *input_section,
322 bfd_byte *contents,
323 Elf_Internal_Rela *relocs,
324 Elf_Internal_Sym *local_syms,
325 asection **local_sections)
327 Elf_Internal_Shdr *symtab_hdr;
328 struct elf_link_hash_entry **sym_hashes;
329 Elf_Internal_Rela *rel, *relend;
331 if (info->relocatable)
332 return TRUE;
334 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
335 sym_hashes = elf_sym_hashes (input_bfd);
337 rel = relocs;
338 relend = relocs + input_section->reloc_count;
339 for (; rel < relend; rel++)
341 unsigned int r_type;
342 unsigned long r_symndx;
343 Elf_Internal_Sym *sym;
344 asection *sec;
345 struct elf_link_hash_entry *h;
346 bfd_vma relocation;
347 bfd_reloc_status_type r;
349 /* This is a final link. */
350 r_symndx = ELF32_R_SYM (rel->r_info);
351 r_type = ELF32_R_TYPE (rel->r_info);
352 h = NULL;
353 sym = NULL;
354 sec = NULL;
355 if (r_symndx < symtab_hdr->sh_info)
357 sym = local_syms + r_symndx;
358 sec = local_sections[r_symndx];
359 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
361 else
363 bfd_boolean unresolved_reloc, warned;
365 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
366 r_symndx, symtab_hdr, sym_hashes,
367 h, sec, relocation,
368 unresolved_reloc, warned);
371 r = elf32_xc16x_final_link_relocate (r_type, input_bfd, output_bfd,
372 input_section,
373 contents, rel->r_offset,
374 relocation, rel->r_addend,
375 info, sec, h == NULL);
378 return TRUE;
382 static void
383 elf32_xc16x_final_write_processing (bfd *abfd,
384 bfd_boolean linker ATTRIBUTE_UNUSED)
386 unsigned long val;
388 switch (bfd_get_mach (abfd))
390 default:
391 case bfd_mach_xc16x:
392 val = 0x1000;
393 break;
395 case bfd_mach_xc16xl:
396 val = 0x1001;
397 break;
399 case bfd_mach_xc16xs:
400 val = 0x1002;
401 break;
404 elf_elfheader (abfd)->e_flags |= val;
407 static unsigned long
408 elf32_xc16x_mach (flagword flags)
410 switch (flags)
412 case 0x1000:
413 default:
414 return bfd_mach_xc16x;
416 case 0x1001:
417 return bfd_mach_xc16xl;
419 case 0x1002:
420 return bfd_mach_xc16xs;
425 static bfd_boolean
426 elf32_xc16x_object_p (bfd *abfd)
428 bfd_default_set_arch_mach (abfd, bfd_arch_xc16x,
429 elf32_xc16x_mach (elf_elfheader (abfd)->e_flags));
430 return TRUE;
434 #define ELF_ARCH bfd_arch_xc16x
435 #define ELF_MACHINE_CODE EM_XC16X
436 #define ELF_MAXPAGESIZE 0x100
438 #define TARGET_LITTLE_SYM bfd_elf32_xc16x_vec
439 #define TARGET_LITTLE_NAME "elf32-xc16x"
440 #define elf_backend_final_write_processing elf32_xc16x_final_write_processing
441 #define elf_backend_object_p elf32_xc16x_object_p
442 #define elf_backend_can_gc_sections 1
443 #define bfd_elf32_bfd_reloc_type_lookup xc16x_reloc_type_lookup
444 #define elf_info_to_howto elf32_xc16x_info_to_howto
445 #define elf_info_to_howto_rel elf32_xc16x_info_to_howto
446 #define elf_backend_relocate_section elf32_xc16x_relocate_section
447 #define elf_backend_rela_normal 1
449 #include "elf32-target.h"