1 /* Morpho Technologies MT specific support for 32-bit ELF
2 Copyright 2001, 2002, 2003, 2004, 2005
3 Free Software Foundation, Inc.
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, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
28 static reloc_howto_type
* mt_reloc_type_lookup
29 (bfd
*, bfd_reloc_code_real_type
);
31 static void mt_info_to_howto_rela
32 (bfd
*, arelent
*, Elf_Internal_Rela
*);
34 static bfd_reloc_status_type mt_elf_relocate_hi16
35 (bfd
*, Elf_Internal_Rela
*, bfd_byte
*, bfd_vma
);
37 static bfd_reloc_status_type mt_final_link_relocate
38 (reloc_howto_type
*, bfd
*, asection
*, bfd_byte
*,
39 Elf_Internal_Rela
*, bfd_vma
);
41 static bfd_boolean mt_elf_relocate_section
42 (bfd
*, struct bfd_link_info
*, bfd
*, asection
*, bfd_byte
*,
43 Elf_Internal_Rela
*, Elf_Internal_Sym
*, asection
**);
45 /* Relocation tables. */
46 static reloc_howto_type mt_elf_howto_table
[] =
48 /* This reloc does nothing. */
49 HOWTO (R_MT_NONE
, /* type */
51 2, /* size (0 = byte, 1 = short, 2 = long) */
53 FALSE
, /* pc_relative */
55 complain_overflow_dont
, /* complain_on_overflow */
56 bfd_elf_generic_reloc
, /* special_function */
57 "R_MT_NONE", /* name */
58 FALSE
, /* partial_inplace */
61 FALSE
), /* pcrel_offset */
63 /* A 16 bit absolute relocation. */
64 HOWTO (R_MT_16
, /* type */
66 2, /* size (0 = byte, 1 = short, 2 = long) */
68 FALSE
, /* pc_relative */
70 complain_overflow_dont
, /* complain_on_overflow */
71 bfd_elf_generic_reloc
, /* special_function */
73 FALSE
, /* partial_inplace */
75 0xffff, /* dst_mask */
76 FALSE
), /* pcrel_offset */
78 /* A 32 bit absolute relocation. */
79 HOWTO (R_MT_32
, /* type */
81 2, /* size (0 = byte, 1 = short, 2 = long) */
83 FALSE
, /* pc_relative */
85 complain_overflow_dont
, /* complain_on_overflow */
86 bfd_elf_generic_reloc
, /* special_function */
88 FALSE
, /* partial_inplace */
90 0xffffffff, /* dst_mask */
91 FALSE
), /* pcrel_offset */
93 /* A 32 bit pc-relative relocation. */
94 HOWTO (R_MT_32_PCREL
, /* type */
96 2, /* size (0 = byte, 1 = short, 2 = long) */
98 TRUE
, /* pc_relative */
100 complain_overflow_dont
, /* complain_on_overflow */
101 bfd_elf_generic_reloc
, /* special_function */
102 "R_MT_32_PCREL", /* name */
103 FALSE
, /* partial_inplace */
105 0xffffffff, /* dst_mask */
106 TRUE
), /* pcrel_offset */
108 /* A 16 bit pc-relative relocation. */
109 HOWTO (R_MT_PC16
, /* type */
111 2, /* size (0 = byte, 1 = short, 2 = long) */
113 TRUE
, /* pc_relative */
115 complain_overflow_signed
, /* complain_on_overflow */
116 bfd_elf_generic_reloc
, /* special_function */
117 "R_MT_PC16", /* name */
118 FALSE
, /* partial_inplace */
120 0xffff, /* dst_mask */
121 TRUE
), /* pcrel_offset */
123 /* high 16 bits of symbol value. */
124 HOWTO (R_MT_HI16
, /* type */
126 2, /* size (0 = byte, 1 = short, 2 = long) */
128 FALSE
, /* pc_relative */
130 complain_overflow_dont
, /* complain_on_overflow */
131 bfd_elf_generic_reloc
, /* special_function */
132 "R_MT_HI16", /* name */
133 FALSE
, /* partial_inplace */
134 0xffff0000, /* src_mask */
135 0xffff0000, /* dst_mask */
136 FALSE
), /* pcrel_offset */
138 /* Low 16 bits of symbol value. */
139 HOWTO (R_MT_LO16
, /* type */
141 2, /* size (0 = byte, 1 = short, 2 = long) */
143 FALSE
, /* pc_relative */
145 complain_overflow_dont
, /* complain_on_overflow */
146 bfd_elf_generic_reloc
, /* special_function */
147 "R_MT_LO16", /* name */
148 FALSE
, /* partial_inplace */
149 0xffff, /* src_mask */
150 0xffff, /* dst_mask */
151 FALSE
), /* pcrel_offset */
154 /* Map BFD reloc types to MT ELF reloc types. */
156 static reloc_howto_type
*
158 (bfd
* abfd ATTRIBUTE_UNUSED
,
159 bfd_reloc_code_real_type code
)
161 /* Note that the mt_elf_howto_table is indxed by the R_
162 constants. Thus, the order that the howto records appear in the
163 table *must* match the order of the relocation types defined in
169 return &mt_elf_howto_table
[ (int) R_MT_NONE
];
171 return &mt_elf_howto_table
[ (int) R_MT_16
];
173 return &mt_elf_howto_table
[ (int) R_MT_32
];
174 case BFD_RELOC_32_PCREL
:
175 return &mt_elf_howto_table
[ (int) R_MT_32_PCREL
];
176 case BFD_RELOC_16_PCREL
:
177 return &mt_elf_howto_table
[ (int) R_MT_PC16
];
179 return &mt_elf_howto_table
[ (int) R_MT_HI16
];
181 return &mt_elf_howto_table
[ (int) R_MT_LO16
];
184 /* Pacify gcc -Wall. */
190 bfd_reloc_status_type
193 Elf_Internal_Rela
* relhi
,
199 insn
= bfd_get_32 (input_bfd
, contents
+ relhi
->r_offset
);
201 value
+= relhi
->r_addend
;
203 insn
= ((insn
& ~0xFFFF) | value
);
205 bfd_put_32 (input_bfd
, insn
, contents
+ relhi
->r_offset
);
209 /* XXX: The following code is the result of a cut&paste. This unfortunate
210 practice is very widespread in the various target back-end files. */
212 /* Set the howto pointer for a MT ELF reloc. */
215 mt_info_to_howto_rela
216 (bfd
* abfd ATTRIBUTE_UNUSED
,
218 Elf_Internal_Rela
* dst
)
222 r_type
= ELF32_R_TYPE (dst
->r_info
);
223 cache_ptr
->howto
= & mt_elf_howto_table
[r_type
];
226 /* Perform a single relocation. By default we use the standard BFD
229 static bfd_reloc_status_type
230 mt_final_link_relocate
231 (reloc_howto_type
* howto
,
233 asection
* input_section
,
235 Elf_Internal_Rela
* rel
,
238 return _bfd_final_link_relocate (howto
, input_bfd
, input_section
,
239 contents
, rel
->r_offset
,
240 relocation
, rel
->r_addend
);
243 /* Relocate a MT ELF section.
244 There is some attempt to make this function usable for many architectures,
245 both USE_REL and USE_RELA ['twould be nice if such a critter existed],
246 if only to serve as a learning tool.
248 The RELOCATE_SECTION function is called by the new ELF backend linker
249 to handle the relocations for a section.
251 The relocs are always passed as Rela structures; if the section
252 actually uses Rel structures, the r_addend field will always be
255 This function is responsible for adjusting the section contents as
256 necessary, and (if using Rela relocs and generating a relocatable
257 output file) adjusting the reloc addend as necessary.
259 This function does not have to worry about setting the reloc
260 address or the reloc symbol index.
262 LOCAL_SYMS is a pointer to the swapped in local symbols.
264 LOCAL_SECTIONS is an array giving the section in the input file
265 corresponding to the st_shndx field of each local symbol.
267 The global hash table entry for the global symbols can be found
268 via elf_sym_hashes (input_bfd).
270 When generating relocatable output, this function must handle
271 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
272 going to be the section symbol corresponding to the output
273 section, which means that the addend must be adjusted
277 mt_elf_relocate_section
278 (bfd
* output_bfd ATTRIBUTE_UNUSED
,
279 struct bfd_link_info
* info
,
281 asection
* input_section
,
283 Elf_Internal_Rela
* relocs
,
284 Elf_Internal_Sym
* local_syms
,
285 asection
** local_sections
)
287 Elf_Internal_Shdr
* symtab_hdr
;
288 struct elf_link_hash_entry
** sym_hashes
;
289 Elf_Internal_Rela
* rel
;
290 Elf_Internal_Rela
* relend
;
292 symtab_hdr
= & elf_tdata (input_bfd
)->symtab_hdr
;
293 sym_hashes
= elf_sym_hashes (input_bfd
);
294 relend
= relocs
+ input_section
->reloc_count
;
296 for (rel
= relocs
; rel
< relend
; rel
++)
298 reloc_howto_type
* howto
;
299 unsigned long r_symndx
;
300 Elf_Internal_Sym
* sym
;
302 struct elf_link_hash_entry
* h
;
304 bfd_reloc_status_type r
;
305 const char * name
= NULL
;
308 r_type
= ELF32_R_TYPE (rel
->r_info
);
310 r_symndx
= ELF32_R_SYM (rel
->r_info
);
312 /* This is a final link. */
313 howto
= mt_elf_howto_table
+ ELF32_R_TYPE (rel
->r_info
);
318 if (r_symndx
< symtab_hdr
->sh_info
)
320 sym
= local_syms
+ r_symndx
;
321 sec
= local_sections
[r_symndx
];
322 relocation
= _bfd_elf_rela_local_sym (output_bfd
, sym
, &sec
, rel
);
324 name
= bfd_elf_string_from_elf_section
325 (input_bfd
, symtab_hdr
->sh_link
, sym
->st_name
);
326 name
= (name
== NULL
) ? bfd_section_name (input_bfd
, sec
) : name
;
330 bfd_boolean unresolved_reloc
;
333 RELOC_FOR_GLOBAL_SYMBOL (info
, input_bfd
, input_section
, rel
,
334 r_symndx
, symtab_hdr
, sym_hashes
,
336 unresolved_reloc
, warned
);
338 name
= h
->root
.root
.string
;
342 /* Finally, the sole MT-specific part. */
346 r
= mt_elf_relocate_hi16 (input_bfd
, rel
, contents
, relocation
);
349 r
= mt_final_link_relocate (howto
, input_bfd
, input_section
,
350 contents
, rel
, relocation
);
355 if (r
!= bfd_reloc_ok
)
357 const char * msg
= (const char *) NULL
;
361 case bfd_reloc_overflow
:
362 r
= info
->callbacks
->reloc_overflow
363 (info
, (h
? &h
->root
: NULL
), name
, howto
->name
, (bfd_vma
) 0,
364 input_bfd
, input_section
, rel
->r_offset
);
367 case bfd_reloc_undefined
:
368 r
= info
->callbacks
->undefined_symbol
369 (info
, name
, input_bfd
, input_section
, rel
->r_offset
, TRUE
);
372 case bfd_reloc_outofrange
:
373 msg
= _("internal error: out of range error");
376 case bfd_reloc_dangerous
:
377 msg
= _("internal error: dangerous relocation");
381 msg
= _("internal error: unknown error");
386 r
= info
->callbacks
->warning
387 (info
, msg
, name
, input_bfd
, input_section
, rel
->r_offset
);
397 /* Return the section that should be marked against GC for a given
403 struct bfd_link_info
* info ATTRIBUTE_UNUSED
,
404 Elf_Internal_Rela
* rel ATTRIBUTE_UNUSED
,
405 struct elf_link_hash_entry
* h
,
406 Elf_Internal_Sym
* sym
)
410 switch (h
->root
.type
)
412 case bfd_link_hash_defined
:
413 case bfd_link_hash_defweak
:
414 return h
->root
.u
.def
.section
;
416 case bfd_link_hash_common
:
417 return h
->root
.u
.c
.p
->section
;
425 if (!(elf_bad_symtab (sec
->owner
)
426 && ELF_ST_BIND (sym
->st_info
) != STB_LOCAL
)
427 && ! ((sym
->st_shndx
<= 0 || sym
->st_shndx
>= SHN_LORESERVE
)
428 && sym
->st_shndx
!= SHN_COMMON
))
429 return bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
435 /* Update the got entry reference counts for the section being
440 (bfd
* abfd ATTRIBUTE_UNUSED
,
441 struct bfd_link_info
* info ATTRIBUTE_UNUSED
,
442 asection
* sec ATTRIBUTE_UNUSED
,
443 const Elf_Internal_Rela
* relocs ATTRIBUTE_UNUSED
)
448 /* Look through the relocs for a section during the first phase.
449 Since we don't do .gots or .plts, we just need to consider the
450 virtual table relocs for gc. */
455 struct bfd_link_info
* info
,
457 const Elf_Internal_Rela
* relocs
)
459 Elf_Internal_Shdr
* symtab_hdr
;
460 struct elf_link_hash_entry
** sym_hashes
;
461 struct elf_link_hash_entry
** sym_hashes_end
;
462 const Elf_Internal_Rela
* rel
;
463 const Elf_Internal_Rela
* rel_end
;
465 if (info
->relocatable
)
468 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
469 sym_hashes
= elf_sym_hashes (abfd
);
470 sym_hashes_end
= sym_hashes
+ symtab_hdr
->sh_size
/ sizeof (Elf32_External_Sym
);
471 if (!elf_bad_symtab (abfd
))
472 sym_hashes_end
-= symtab_hdr
->sh_info
;
474 rel_end
= relocs
+ sec
->reloc_count
;
475 for (rel
= relocs
; rel
< rel_end
; rel
++)
477 struct elf_link_hash_entry
*h
;
478 unsigned long r_symndx
;
480 r_symndx
= ELF32_R_SYM (rel
->r_info
);
481 if (r_symndx
< symtab_hdr
->sh_info
)
485 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
486 while (h
->root
.type
== bfd_link_hash_indirect
487 || h
->root
.type
== bfd_link_hash_warning
)
488 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
495 /* Return the MACH for an e_flags value. */
498 elf32_mt_machine (bfd
*abfd
)
500 switch (elf_elfheader (abfd
)->e_flags
& EF_MT_CPU_MASK
)
502 case EF_MT_CPU_MRISC
: return bfd_mach_ms1
;
503 case EF_MT_CPU_MRISC2
: return bfd_mach_mrisc2
;
504 case EF_MT_CPU_MS2
: return bfd_mach_ms2
;
511 mt_elf_object_p (bfd
* abfd
)
513 bfd_default_set_arch_mach (abfd
, bfd_arch_mt
, elf32_mt_machine (abfd
));
518 /* Function to set the ELF flag bits. */
521 mt_elf_set_private_flags (bfd
* abfd
,
524 elf_elfheader (abfd
)->e_flags
= flags
;
525 elf_flags_init (abfd
) = TRUE
;
530 mt_elf_copy_private_bfd_data (bfd
* ibfd
, bfd
* obfd
)
532 if (bfd_get_flavour (ibfd
) != bfd_target_elf_flavour
533 || bfd_get_flavour (obfd
) != bfd_target_elf_flavour
)
536 BFD_ASSERT (!elf_flags_init (obfd
)
537 || elf_elfheader (obfd
)->e_flags
== elf_elfheader (ibfd
)->e_flags
);
539 elf_elfheader (obfd
)->e_flags
= elf_elfheader (ibfd
)->e_flags
;
540 elf_flags_init (obfd
) = TRUE
;
544 /* Merge backend specific data from an object file to the output
545 object file when linking. */
548 mt_elf_merge_private_bfd_data (bfd
* ibfd
, bfd
* obfd
)
550 flagword old_flags
, new_flags
;
551 bfd_boolean error
= FALSE
;
553 /* Check if we have the same endianess. */
554 if (_bfd_generic_verify_endian_match (ibfd
, obfd
) == FALSE
)
557 /* If they're not both mt, then merging is meaningless, so just
559 if (strcmp (ibfd
->arch_info
->arch_name
, "mt") != 0)
561 if (strcmp (obfd
->arch_info
->arch_name
, "mt") != 0)
564 new_flags
= elf_elfheader (ibfd
)->e_flags
;
565 old_flags
= elf_elfheader (obfd
)->e_flags
;
568 _bfd_error_handler ("%B: old_flags = 0x%.8lx, new_flags = 0x%.8lx, init = %s",
569 ibfd
, old_flags
, new_flags
, elf_flags_init (obfd
) ? "yes" : "no");
572 if (!elf_flags_init (obfd
))
574 old_flags
= new_flags
;
575 elf_flags_init (obfd
) = TRUE
;
577 else if ((new_flags
& EF_MT_CPU_MASK
) != (old_flags
& EF_MT_CPU_MASK
))
579 /* CPU has changed. This is invalid, because MRISC, MRISC2 and
580 MS2 are not subsets of each other. */
583 /* FIXME:However, until the compiler is multilibbed, preventing
584 mixing breaks the build. So we allow merging and use the
585 greater CPU value. This is of course unsafe. */
587 if ((new_flags
& EF_MT_CPU_MASK
) > (old_flags
& EF_MT_CPU_MASK
))
588 old_flags
= ((old_flags
& ~EF_MT_CPU_MASK
)
589 | (new_flags
& EF_MT_CPU_MASK
));
593 obfd
->arch_info
= ibfd
->arch_info
;
594 elf_elfheader (obfd
)->e_flags
= old_flags
;
601 mt_elf_print_private_bfd_data (bfd
* abfd
, void * ptr
)
603 FILE * file
= (FILE *) ptr
;
606 BFD_ASSERT (abfd
!= NULL
&& ptr
!= NULL
);
608 /* Print normal ELF private data. */
609 _bfd_elf_print_private_bfd_data (abfd
, ptr
);
611 flags
= elf_elfheader (abfd
)->e_flags
;
612 fprintf (file
, _("private flags = 0x%lx:"), (long)flags
);
614 switch (flags
& EF_MT_CPU_MASK
)
617 case EF_MT_CPU_MRISC
: fprintf (file
, " ms1-16-002"); break;
618 case EF_MT_CPU_MRISC2
: fprintf (file
, " ms1-16-003"); break;
619 case EF_MT_CPU_MS2
: fprintf (file
, " ms2"); break;
628 #define TARGET_BIG_SYM bfd_elf32_mt_vec
629 #define TARGET_BIG_NAME "elf32-mt"
631 #define ELF_ARCH bfd_arch_mt
632 #define ELF_MACHINE_CODE EM_MT
633 #define ELF_MAXPAGESIZE 1 /* No pages on the MT. */
635 #define elf_info_to_howto_rel NULL
636 #define elf_info_to_howto mt_info_to_howto_rela
638 #define elf_backend_relocate_section mt_elf_relocate_section
640 #define bfd_elf32_bfd_reloc_type_lookup mt_reloc_type_lookup
642 #define elf_backend_gc_mark_hook mt_elf_gc_mark_hook
643 #define elf_backend_gc_sweep_hook mt_elf_gc_sweep_hook
644 #define elf_backend_check_relocs mt_elf_check_relocs
645 #define elf_backend_object_p mt_elf_object_p
646 #define elf_backend_rela_normal 1
648 #define elf_backend_can_gc_sections 1
650 #define bfd_elf32_bfd_set_private_flags mt_elf_set_private_flags
651 #define bfd_elf32_bfd_copy_private_bfd_data mt_elf_copy_private_bfd_data
652 #define bfd_elf32_bfd_merge_private_bfd_data mt_elf_merge_private_bfd_data
653 #define bfd_elf32_bfd_print_private_bfd_data mt_elf_print_private_bfd_data
655 #include "elf32-target.h"