projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* som.c (som_write_symbol_strings): Cast current_offset in
[deliverable/binutils-gdb.git] / bfd / elf32-m68k.c
CommitLineData
252b5132 1/* Motorola 68k series support for 32-bit ELF
7898deda
NC		 2 Copyright 1993, 1995, 1996, 1997, 1998, 1999, 2000, 2001
3 Free Software Foundation, Inc.
252b5132
RH		 4
5This file is part of BFD, the Binary File Descriptor library.
6
7This program is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2 of the License, or
10(at your option) any later version.
11
12This program is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with this program; if not, write to the Free Software
19Foundation, 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/m68k.h"
27
28static reloc_howto_type *reloc_type_lookup
29 PARAMS ((bfd *, bfd_reloc_code_real_type));
30static void rtype_to_howto
31 PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
32static struct bfd_hash_entry *elf_m68k_link_hash_newfunc
33 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
34static struct bfd_link_hash_table *elf_m68k_link_hash_table_create
35 PARAMS ((bfd *));
36static boolean elf_m68k_check_relocs
37 PARAMS ((bfd *, struct bfd_link_info *, asection *,
38 const Elf_Internal_Rela *));
39static asection *elf_m68k_gc_mark_hook
40 PARAMS ((bfd *, struct bfd_link_info *, Elf_Internal_Rela *,
41 struct elf_link_hash_entry *, Elf_Internal_Sym *));
42static boolean elf_m68k_gc_sweep_hook
43 PARAMS ((bfd *, struct bfd_link_info *, asection *,
44 const Elf_Internal_Rela *));
45static boolean elf_m68k_adjust_dynamic_symbol
46 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
252b5132
RH		 47static boolean elf_m68k_size_dynamic_sections
48 PARAMS ((bfd *, struct bfd_link_info *));
49static boolean elf_m68k_relocate_section
50 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
51 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
52static boolean elf_m68k_finish_dynamic_symbol
53 PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *,
54 Elf_Internal_Sym *));
55static boolean elf_m68k_finish_dynamic_sections
56 PARAMS ((bfd *, struct bfd_link_info *));
57
9e1281c7
CM		 58static boolean elf32_m68k_set_private_flags
59 PARAMS ((bfd *, flagword));
60static boolean elf32_m68k_copy_private_bfd_data
61 PARAMS ((bfd *, bfd *));
62static boolean elf32_m68k_merge_private_bfd_data
63 PARAMS ((bfd *, bfd *));
64static boolean elf32_m68k_print_private_bfd_data
65 PARAMS ((bfd *, PTR));
aa91b392 66static enum elf_reloc_type_class elf32_m68k_reloc_type_class
f51e552e 67 PARAMS ((const Elf_Internal_Rela *));
9e1281c7 68
252b5132
RH		 69static reloc_howto_type howto_table[] = {
70 HOWTO(R_68K_NONE, 0, 0, 0, false,0, complain_overflow_dont, bfd_elf_generic_reloc, "R_68K_NONE", false, 0, 0x00000000,false),
71 HOWTO(R_68K_32, 0, 2,32, false,0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_32", false, 0, 0xffffffff,false),
72 HOWTO(R_68K_16, 0, 1,16, false,0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_16", false, 0, 0x0000ffff,false),
73 HOWTO(R_68K_8, 0, 0, 8, false,0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_8", false, 0, 0x000000ff,false),
74 HOWTO(R_68K_PC32, 0, 2,32, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_PC32", false, 0, 0xffffffff,true),
75 HOWTO(R_68K_PC16, 0, 1,16, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PC16", false, 0, 0x0000ffff,true),
76 HOWTO(R_68K_PC8, 0, 0, 8, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PC8", false, 0, 0x000000ff,true),
77 HOWTO(R_68K_GOT32, 0, 2,32, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_GOT32", false, 0, 0xffffffff,true),
78 HOWTO(R_68K_GOT16, 0, 1,16, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_GOT16", false, 0, 0x0000ffff,true),
79 HOWTO(R_68K_GOT8, 0, 0, 8, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_GOT8", false, 0, 0x000000ff,true),
80 HOWTO(R_68K_GOT32O, 0, 2,32, false,0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_GOT32O", false, 0, 0xffffffff,false),
81 HOWTO(R_68K_GOT16O, 0, 1,16, false,0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_GOT16O", false, 0, 0x0000ffff,false),
82 HOWTO(R_68K_GOT8O, 0, 0, 8, false,0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_GOT8O", false, 0, 0x000000ff,false),
83 HOWTO(R_68K_PLT32, 0, 2,32, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_PLT32", false, 0, 0xffffffff,true),
84 HOWTO(R_68K_PLT16, 0, 1,16, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PLT16", false, 0, 0x0000ffff,true),
85 HOWTO(R_68K_PLT8, 0, 0, 8, true, 0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PLT8", false, 0, 0x000000ff,true),
86 HOWTO(R_68K_PLT32O, 0, 2,32, false,0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_68K_PLT32O", false, 0, 0xffffffff,false),
87 HOWTO(R_68K_PLT16O, 0, 1,16, false,0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PLT16O", false, 0, 0x0000ffff,false),
88 HOWTO(R_68K_PLT8O, 0, 0, 8, false,0, complain_overflow_signed, bfd_elf_generic_reloc, "R_68K_PLT8O", false, 0, 0x000000ff,false),
89 HOWTO(R_68K_COPY, 0, 0, 0, false,0, complain_overflow_dont, bfd_elf_generic_reloc, "R_68K_COPY", false, 0, 0xffffffff,false),
90 HOWTO(R_68K_GLOB_DAT, 0, 2,32, false,0, complain_overflow_dont, bfd_elf_generic_reloc, "R_68K_GLOB_DAT", false, 0, 0xffffffff,false),
91 HOWTO(R_68K_JMP_SLOT, 0, 2,32, false,0, complain_overflow_dont, bfd_elf_generic_reloc, "R_68K_JMP_SLOT", false, 0, 0xffffffff,false),
92 HOWTO(R_68K_RELATIVE, 0, 2,32, false,0, complain_overflow_dont, bfd_elf_generic_reloc, "R_68K_RELATIVE", false, 0, 0xffffffff,false),
93 /* GNU extension to record C++ vtable hierarchy */
94 HOWTO (R_68K_GNU_VTINHERIT, /* type */
95 0, /* rightshift */
96 2, /* size (0 = byte, 1 = short, 2 = long) */
97 0, /* bitsize */
98 false, /* pc_relative */
99 0, /* bitpos */
100 complain_overflow_dont, /* complain_on_overflow */
101 NULL, /* special_function */
102 "R_68K_GNU_VTINHERIT", /* name */
103 false, /* partial_inplace */
104 0, /* src_mask */
105 0, /* dst_mask */
106 false),
107 /* GNU extension to record C++ vtable member usage */
108 HOWTO (R_68K_GNU_VTENTRY, /* type */
109 0, /* rightshift */
110 2, /* size (0 = byte, 1 = short, 2 = long) */
111 0, /* bitsize */
112 false, /* pc_relative */
113 0, /* bitpos */
114 complain_overflow_dont, /* complain_on_overflow */
115 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
116 "R_68K_GNU_VTENTRY", /* name */
117 false, /* partial_inplace */
118 0, /* src_mask */
119 0, /* dst_mask */
120 false),
121};
122
123static void
124rtype_to_howto (abfd, cache_ptr, dst)
121089cb 125 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 126 arelent *cache_ptr;
127 Elf_Internal_Rela *dst;
128{
129 BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_68K_max);
130 cache_ptr->howto = &howto_table[ELF32_R_TYPE(dst->r_info)];
131}
132
133#define elf_info_to_howto rtype_to_howto
134
135static const struct
136{
137 bfd_reloc_code_real_type bfd_val;
138 int elf_val;
139} reloc_map[] = {
140 { BFD_RELOC_NONE, R_68K_NONE },
141 { BFD_RELOC_32, R_68K_32 },
142 { BFD_RELOC_16, R_68K_16 },
143 { BFD_RELOC_8, R_68K_8 },
144 { BFD_RELOC_32_PCREL, R_68K_PC32 },
145 { BFD_RELOC_16_PCREL, R_68K_PC16 },
146 { BFD_RELOC_8_PCREL, R_68K_PC8 },
147 { BFD_RELOC_32_GOT_PCREL, R_68K_GOT32 },
148 { BFD_RELOC_16_GOT_PCREL, R_68K_GOT16 },
149 { BFD_RELOC_8_GOT_PCREL, R_68K_GOT8 },
150 { BFD_RELOC_32_GOTOFF, R_68K_GOT32O },
151 { BFD_RELOC_16_GOTOFF, R_68K_GOT16O },
152 { BFD_RELOC_8_GOTOFF, R_68K_GOT8O },
153 { BFD_RELOC_32_PLT_PCREL, R_68K_PLT32 },
154 { BFD_RELOC_16_PLT_PCREL, R_68K_PLT16 },
155 { BFD_RELOC_8_PLT_PCREL, R_68K_PLT8 },
156 { BFD_RELOC_32_PLTOFF, R_68K_PLT32O },
157 { BFD_RELOC_16_PLTOFF, R_68K_PLT16O },
158 { BFD_RELOC_8_PLTOFF, R_68K_PLT8O },
159 { BFD_RELOC_NONE, R_68K_COPY },
160 { BFD_RELOC_68K_GLOB_DAT, R_68K_GLOB_DAT },
161 { BFD_RELOC_68K_JMP_SLOT, R_68K_JMP_SLOT },
162 { BFD_RELOC_68K_RELATIVE, R_68K_RELATIVE },
163 { BFD_RELOC_CTOR, R_68K_32 },
164 { BFD_RELOC_VTABLE_INHERIT, R_68K_GNU_VTINHERIT },
165 { BFD_RELOC_VTABLE_ENTRY, R_68K_GNU_VTENTRY },
166};
167
168static reloc_howto_type *
169reloc_type_lookup (abfd, code)
121089cb 170 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 171 bfd_reloc_code_real_type code;
172{
173 unsigned int i;
174 for (i = 0; i < sizeof (reloc_map) / sizeof (reloc_map[0]); i++)
175 {
176 if (reloc_map[i].bfd_val == code)
177 return &howto_table[reloc_map[i].elf_val];
178 }
179 return 0;
180}
181
182#define bfd_elf32_bfd_reloc_type_lookup reloc_type_lookup
183#define ELF_ARCH bfd_arch_m68k
184/* end code generated by elf.el */
185
186#define USE_RELA
252b5132
RH		 187\f
188/* Functions for the m68k ELF linker. */
189
190/* The name of the dynamic interpreter. This is put in the .interp
191 section. */
192
193#define ELF_DYNAMIC_INTERPRETER "/usr/lib/libc.so.1"
194
195/* The size in bytes of an entry in the procedure linkage table. */
196
197#define PLT_ENTRY_SIZE 20
198
199/* The first entry in a procedure linkage table looks like this. See
200 the SVR4 ABI m68k supplement to see how this works. */
201
202static const bfd_byte elf_m68k_plt0_entry[PLT_ENTRY_SIZE] =
203{
204 0x2f, 0x3b, 0x01, 0x70, /* move.l (%pc,addr),-(%sp) */
205 0, 0, 0, 0, /* replaced with offset to .got + 4. */
206 0x4e, 0xfb, 0x01, 0x71, /* jmp ([%pc,addr]) */
207 0, 0, 0, 0, /* replaced with offset to .got + 8. */
208 0, 0, 0, 0 /* pad out to 20 bytes. */
209};
210
211/* Subsequent entries in a procedure linkage table look like this. */
212
213static const bfd_byte elf_m68k_plt_entry[PLT_ENTRY_SIZE] =
214{
215 0x4e, 0xfb, 0x01, 0x71, /* jmp ([%pc,symbol@GOTPC]) */
216 0, 0, 0, 0, /* replaced with offset to symbol's .got entry. */
217 0x2f, 0x3c, /* move.l #offset,-(%sp) */
218 0, 0, 0, 0, /* replaced with offset into relocation table. */
219 0x60, 0xff, /* bra.l .plt */
220 0, 0, 0, 0 /* replaced with offset to start of .plt. */
221};
222
9e1281c7
CM		 223#define CPU32_FLAG(abfd) (elf_elfheader (abfd)->e_flags & EF_CPU32)
224
225#define PLT_CPU32_ENTRY_SIZE 24
226/* Procedure linkage table entries for the cpu32 */
227static const bfd_byte elf_cpu32_plt0_entry[PLT_CPU32_ENTRY_SIZE] =
228{
6091b433 229 0x2f, 0x3b, 0x01, 0x70, /* move.l (%pc,addr),-(%sp) */
9e1281c7 230 0, 0, 0, 0, /* replaced with offset to .got + 4. */
6091b433 231 0x22, 0x7b, 0x01, 0x70, /* moveal %pc@(0xc), %a1 */
c3668558 232 0, 0, 0, 0, /* replace with offset to .got +8. */
6091b433 233 0x4e, 0xd1, /* jmp %a1@ */
9e1281c7
CM		 234 0, 0, 0, 0, /* pad out to 24 bytes. */
235 0, 0
236};
237
238static const bfd_byte elf_cpu32_plt_entry[PLT_CPU32_ENTRY_SIZE] =
239{
1ca42bad 240 0x22, 0x7b, 0x01, 0x70, /* moveal %pc@(0xc), %a1 */
9e1281c7 241 0, 0, 0, 0, /* replaced with offset to symbol's .got entry. */
1ca42bad 242 0x4e, 0xd1, /* jmp %a1@ */
9e1281c7
CM		 243 0x2f, 0x3c, /* move.l #offset,-(%sp) */
244 0, 0, 0, 0, /* replaced with offset into relocation table. */
245 0x60, 0xff, /* bra.l .plt */
246 0, 0, 0, 0, /* replaced with offset to start of .plt. */
247 0, 0
248};
249
252b5132
RH		 250/* The m68k linker needs to keep track of the number of relocs that it
251 decides to copy in check_relocs for each symbol. This is so that it
252 can discard PC relative relocs if it doesn't need them when linking
253 with -Bsymbolic. We store the information in a field extending the
254 regular ELF linker hash table. */
255
256/* This structure keeps track of the number of PC relative relocs we have
257 copied for a given symbol. */
258
259struct elf_m68k_pcrel_relocs_copied
260{
261 /* Next section. */
262 struct elf_m68k_pcrel_relocs_copied *next;
263 /* A section in dynobj. */
264 asection *section;
265 /* Number of relocs copied in this section. */
266 bfd_size_type count;
267};
268
269/* m68k ELF linker hash entry. */
270
271struct elf_m68k_link_hash_entry
272{
273 struct elf_link_hash_entry root;
274
275 /* Number of PC relative relocs copied for this symbol. */
276 struct elf_m68k_pcrel_relocs_copied *pcrel_relocs_copied;
277};
278
279/* m68k ELF linker hash table. */
280
281struct elf_m68k_link_hash_table
282{
283 struct elf_link_hash_table root;
284};
285
286/* Declare this now that the above structures are defined. */
287
288static boolean elf_m68k_discard_copies
289 PARAMS ((struct elf_m68k_link_hash_entry *, PTR));
290
291/* Traverse an m68k ELF linker hash table. */
292
293#define elf_m68k_link_hash_traverse(table, func, info) \
294 (elf_link_hash_traverse \
295 (&(table)->root, \
296 (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \
297 (info)))
298
299/* Get the m68k ELF linker hash table from a link_info structure. */
300
301#define elf_m68k_hash_table(p) \
302 ((struct elf_m68k_link_hash_table *) (p)->hash)
303
304/* Create an entry in an m68k ELF linker hash table. */
305
306static struct bfd_hash_entry *
307elf_m68k_link_hash_newfunc (entry, table, string)
308 struct bfd_hash_entry *entry;
309 struct bfd_hash_table *table;
310 const char *string;
311{
312 struct elf_m68k_link_hash_entry *ret =
313 (struct elf_m68k_link_hash_entry *) entry;
314
315 /* Allocate the structure if it has not already been allocated by a
316 subclass. */
317 if (ret == (struct elf_m68k_link_hash_entry *) NULL)
318 ret = ((struct elf_m68k_link_hash_entry *)
319 bfd_hash_allocate (table,
320 sizeof (struct elf_m68k_link_hash_entry)));
321 if (ret == (struct elf_m68k_link_hash_entry *) NULL)
322 return (struct bfd_hash_entry *) ret;
323
324 /* Call the allocation method of the superclass. */
325 ret = ((struct elf_m68k_link_hash_entry *)
326 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
327 table, string));
328 if (ret != (struct elf_m68k_link_hash_entry *) NULL)
329 {
330 ret->pcrel_relocs_copied = NULL;
331 }
332
333 return (struct bfd_hash_entry *) ret;
334}
335
336/* Create an m68k ELF linker hash table. */
337
338static struct bfd_link_hash_table *
339elf_m68k_link_hash_table_create (abfd)
340 bfd *abfd;
341{
342 struct elf_m68k_link_hash_table *ret;
dc810e39 343 bfd_size_type amt = sizeof (struct elf_m68k_link_hash_table);
252b5132 344
dc810e39 345 ret = (struct elf_m68k_link_hash_table *) bfd_alloc (abfd, amt);
252b5132
RH		 346 if (ret == (struct elf_m68k_link_hash_table *) NULL)
347 return NULL;
348
349 if (! _bfd_elf_link_hash_table_init (&ret->root, abfd,
350 elf_m68k_link_hash_newfunc))
351 {
352 bfd_release (abfd, ret);
353 return NULL;
354 }
355
356 return &ret->root.root;
357}
358
9e1281c7
CM		 359/* Keep m68k-specific flags in the ELF header */
360static boolean
361elf32_m68k_set_private_flags (abfd, flags)
362 bfd *abfd;
363 flagword flags;
364{
365 elf_elfheader (abfd)->e_flags = flags;
366 elf_flags_init (abfd) = true;
367 return true;
368}
369
370/* Copy m68k-specific data from one module to another */
371static boolean
372elf32_m68k_copy_private_bfd_data (ibfd, obfd)
373 bfd *ibfd;
374 bfd *obfd;
375{
376 flagword in_flags;
377
378 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
379 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
380 return true;
c3668558 381
9e1281c7 382 in_flags = elf_elfheader (ibfd)->e_flags;
c3668558 383
9e1281c7
CM		 384 elf_elfheader (obfd)->e_flags = in_flags;
385 elf_flags_init (obfd) = true;
c3668558 386
9e1281c7
CM		 387 return true;
388}
389
9e1281c7
CM		 390/* Merge backend specific data from an object file to the output
391 object file when linking. */
392static boolean
393elf32_m68k_merge_private_bfd_data (ibfd, obfd)
394 bfd *ibfd;
395 bfd *obfd;
396{
397 flagword out_flags;
398 flagword in_flags;
399
400 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
401 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
402 return true;
403
404 in_flags = elf_elfheader (ibfd)->e_flags;
405 out_flags = elf_elfheader (obfd)->e_flags;
406
407 if (!elf_flags_init (obfd))
408 {
409 elf_flags_init (obfd) = true;
410 elf_elfheader (obfd)->e_flags = in_flags;
411 }
412
413 return true;
414}
415
416/* Display the flags field */
417static boolean
418elf32_m68k_print_private_bfd_data (abfd, ptr)
419 bfd *abfd;
420 PTR ptr;
421{
422 FILE *file = (FILE *) ptr;
423
424 BFD_ASSERT (abfd != NULL && ptr != NULL);
425
426 /* Print normal ELF private data. */
427 _bfd_elf_print_private_bfd_data (abfd, ptr);
428
429 /* Ignore init flag - it may not be set, despite the flags field containing valid data. */
430
431 /* xgettext:c-format */
432 fprintf (file, _ ("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
433
434 if (elf_elfheader (abfd)->e_flags & EF_CPU32)
435 fprintf (file, _ (" [cpu32]"));
436
437 fputc ('\n', file);
438
439 return true;
440}
252b5132
RH		 441/* Look through the relocs for a section during the first phase, and
442 allocate space in the global offset table or procedure linkage
443 table. */
444
445static boolean
446elf_m68k_check_relocs (abfd, info, sec, relocs)
447 bfd *abfd;
448 struct bfd_link_info *info;
449 asection *sec;
450 const Elf_Internal_Rela *relocs;
451{
452 bfd *dynobj;
453 Elf_Internal_Shdr *symtab_hdr;
454 struct elf_link_hash_entry **sym_hashes;
455 bfd_signed_vma *local_got_refcounts;
456 const Elf_Internal_Rela *rel;
457 const Elf_Internal_Rela *rel_end;
458 asection *sgot;
459 asection *srelgot;
460 asection *sreloc;
461
462 if (info->relocateable)
463 return true;
464
465 dynobj = elf_hash_table (info)->dynobj;
466 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
467 sym_hashes = elf_sym_hashes (abfd);
468 local_got_refcounts = elf_local_got_refcounts (abfd);
469
470 sgot = NULL;
471 srelgot = NULL;
472 sreloc = NULL;
473
474 rel_end = relocs + sec->reloc_count;
475 for (rel = relocs; rel < rel_end; rel++)
476 {
477 unsigned long r_symndx;
478 struct elf_link_hash_entry *h;
479
480 r_symndx = ELF32_R_SYM (rel->r_info);
481
482 if (r_symndx < symtab_hdr->sh_info)
483 h = NULL;
484 else
485 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
486
487 switch (ELF32_R_TYPE (rel->r_info))
488 {
489 case R_68K_GOT8:
490 case R_68K_GOT16:
491 case R_68K_GOT32:
492 if (h != NULL
493 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
494 break;
495 /* Fall through. */
496 case R_68K_GOT8O:
497 case R_68K_GOT16O:
498 case R_68K_GOT32O:
499 /* This symbol requires a global offset table entry. */
500
501 if (dynobj == NULL)
502 {
503 /* Create the .got section. */
504 elf_hash_table (info)->dynobj = dynobj = abfd;
505 if (!_bfd_elf_create_got_section (dynobj, info))
506 return false;
507 }
508
509 if (sgot == NULL)
510 {
511 sgot = bfd_get_section_by_name (dynobj, ".got");
512 BFD_ASSERT (sgot != NULL);
513 }
514
515 if (srelgot == NULL
516 && (h != NULL || info->shared))
517 {
518 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
519 if (srelgot == NULL)
520 {
521 srelgot = bfd_make_section (dynobj, ".rela.got");
522 if (srelgot == NULL
523 || !bfd_set_section_flags (dynobj, srelgot,
524 (SEC_ALLOC
525 | SEC_LOAD
526 | SEC_HAS_CONTENTS
527 | SEC_IN_MEMORY
528 | SEC_LINKER_CREATED
529 | SEC_READONLY))
530 || !bfd_set_section_alignment (dynobj, srelgot, 2))
531 return false;
532 }
533 }
534
535 if (h != NULL)
536 {
537 if (h->got.refcount == -1)
538 {
539 h->got.refcount = 1;
540
541 /* Make sure this symbol is output as a dynamic symbol. */
542 if (h->dynindx == -1)
543 {
544 if (!bfd_elf32_link_record_dynamic_symbol (info, h))
545 return false;
546 }
547
548 /* Allocate space in the .got section. */
549 sgot->_raw_size += 4;
550 /* Allocate relocation space. */
551 srelgot->_raw_size += sizeof (Elf32_External_Rela);
552 }
553 else
554 h->got.refcount++;
555 }
556 else
557 {
558 /* This is a global offset table entry for a local symbol. */
559 if (local_got_refcounts == NULL)
560 {
dc810e39 561 bfd_size_type size;
252b5132 562
dc810e39
AM		 563 size = symtab_hdr->sh_info;
564 size *= sizeof (bfd_signed_vma);
252b5132
RH		 565 local_got_refcounts = ((bfd_signed_vma *)
566 bfd_alloc (abfd, size));
567 if (local_got_refcounts == NULL)
568 return false;
569 elf_local_got_refcounts (abfd) = local_got_refcounts;
dc810e39 570 memset (local_got_refcounts, -1, (size_t) size);
252b5132
RH		 571 }
572 if (local_got_refcounts[r_symndx] == -1)
573 {
574 local_got_refcounts[r_symndx] = 1;
575
576 sgot->_raw_size += 4;
577 if (info->shared)
578 {
579 /* If we are generating a shared object, we need to
580 output a R_68K_RELATIVE reloc so that the dynamic
581 linker can adjust this GOT entry. */
582 srelgot->_raw_size += sizeof (Elf32_External_Rela);
583 }
584 }
585 else
586 local_got_refcounts[r_symndx]++;
587 }
588 break;
589
590 case R_68K_PLT8:
591 case R_68K_PLT16:
592 case R_68K_PLT32:
593 /* This symbol requires a procedure linkage table entry. We
594 actually build the entry in adjust_dynamic_symbol,
595 because this might be a case of linking PIC code which is
596 never referenced by a dynamic object, in which case we
597 don't need to generate a procedure linkage table entry
598 after all. */
599
600 /* If this is a local symbol, we resolve it directly without
601 creating a procedure linkage table entry. */
602 if (h == NULL)
603 continue;
604
605 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
606 if (h->plt.refcount == -1)
607 h->plt.refcount = 1;
608 else
609 h->plt.refcount++;
610 break;
611
612 case R_68K_PLT8O:
613 case R_68K_PLT16O:
614 case R_68K_PLT32O:
615 /* This symbol requires a procedure linkage table entry. */
616
617 if (h == NULL)
618 {
619 /* It does not make sense to have this relocation for a
620 local symbol. FIXME: does it? How to handle it if
621 it does make sense? */
622 bfd_set_error (bfd_error_bad_value);
623 return false;
624 }
625
626 /* Make sure this symbol is output as a dynamic symbol. */
627 if (h->dynindx == -1)
628 {
629 if (!bfd_elf32_link_record_dynamic_symbol (info, h))
630 return false;
631 }
632
633 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
634 if (h->plt.refcount == -1)
635 h->plt.refcount = 1;
636 else
637 h->plt.refcount++;
638 break;
639
640 case R_68K_PC8:
641 case R_68K_PC16:
642 case R_68K_PC32:
643 /* If we are creating a shared library and this is not a local
644 symbol, we need to copy the reloc into the shared library.
645 However when linking with -Bsymbolic and this is a global
646 symbol which is defined in an object we are including in the
647 link (i.e., DEF_REGULAR is set), then we can resolve the
648 reloc directly. At this point we have not seen all the input
649 files, so it is possible that DEF_REGULAR is not set now but
650 will be set later (it is never cleared). We account for that
651 possibility below by storing information in the
652 pcrel_relocs_copied field of the hash table entry. */
653 if (!(info->shared
654 && (sec->flags & SEC_ALLOC) != 0
655 && h != NULL
656 && (!info->symbolic
657 || (h->elf_link_hash_flags
658 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
659 {
660 if (h != NULL)
661 {
662 /* Make sure a plt entry is created for this symbol if
663 it turns out to be a function defined by a dynamic
664 object. */
665 if (h->plt.refcount == -1)
666 h->plt.refcount = 1;
667 else
668 h->plt.refcount++;
669 }
670 break;
671 }
672 /* Fall through. */
673 case R_68K_8:
674 case R_68K_16:
675 case R_68K_32:
676 if (h != NULL)
677 {
678 /* Make sure a plt entry is created for this symbol if it
679 turns out to be a function defined by a dynamic object. */
680 if (h->plt.refcount == -1)
681 h->plt.refcount = 1;
682 else
683 h->plt.refcount++;
684 }
685
686 /* If we are creating a shared library, we need to copy the
687 reloc into the shared library. */
688 if (info->shared
689 && (sec->flags & SEC_ALLOC) != 0)
690 {
691 /* When creating a shared object, we must copy these
692 reloc types into the output file. We create a reloc
693 section in dynobj and make room for this reloc. */
694 if (sreloc == NULL)
695 {
696 const char *name;
697
698 name = (bfd_elf_string_from_elf_section
699 (abfd,
700 elf_elfheader (abfd)->e_shstrndx,
701 elf_section_data (sec)->rel_hdr.sh_name));
702 if (name == NULL)
703 return false;
704
705 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
706 && strcmp (bfd_get_section_name (abfd, sec),
707 name + 5) == 0);
708
709 sreloc = bfd_get_section_by_name (dynobj, name);
710 if (sreloc == NULL)
711 {
712 sreloc = bfd_make_section (dynobj, name);
713 if (sreloc == NULL
714 || !bfd_set_section_flags (dynobj, sreloc,
715 (SEC_ALLOC
716 | SEC_LOAD
717 | SEC_HAS_CONTENTS
718 | SEC_IN_MEMORY
719 | SEC_LINKER_CREATED
720 | SEC_READONLY))
721 || !bfd_set_section_alignment (dynobj, sreloc, 2))
722 return false;
723 }
aa91b392
AS		 724 if (sec->flags & SEC_READONLY)
725 info->flags |= DF_TEXTREL;
252b5132
RH		 726 }
727
728 sreloc->_raw_size += sizeof (Elf32_External_Rela);
729
730 /* If we are linking with -Bsymbolic, we count the number of
731 PC relative relocations we have entered for this symbol,
732 so that we can discard them again if the symbol is later
733 defined by a regular object. Note that this function is
734 only called if we are using an m68kelf linker hash table,
735 which means that h is really a pointer to an
736 elf_m68k_link_hash_entry. */
737 if ((ELF32_R_TYPE (rel->r_info) == R_68K_PC8
738 || ELF32_R_TYPE (rel->r_info) == R_68K_PC16
739 || ELF32_R_TYPE (rel->r_info) == R_68K_PC32)
740 && info->symbolic)
741 {
742 struct elf_m68k_link_hash_entry *eh;
743 struct elf_m68k_pcrel_relocs_copied *p;
744
745 eh = (struct elf_m68k_link_hash_entry *) h;
746
747 for (p = eh->pcrel_relocs_copied; p != NULL; p = p->next)
748 if (p->section == sreloc)
749 break;
750
751 if (p == NULL)
752 {
753 p = ((struct elf_m68k_pcrel_relocs_copied *)
dc810e39 754 bfd_alloc (dynobj, (bfd_size_type) sizeof *p));
252b5132
RH		 755 if (p == NULL)
756 return false;
757 p->next = eh->pcrel_relocs_copied;
758 eh->pcrel_relocs_copied = p;
759 p->section = sreloc;
760 p->count = 0;
761 }
762
763 ++p->count;
764 }
765 }
766
767 break;
768
769 /* This relocation describes the C++ object vtable hierarchy.
770 Reconstruct it for later use during GC. */
771 case R_68K_GNU_VTINHERIT:
772 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
773 return false;
774 break;
775
776 /* This relocation describes which C++ vtable entries are actually
777 used. Record for later use during GC. */
778 case R_68K_GNU_VTENTRY:
779 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
780 return false;
781 break;
782
783 default:
784 break;
785 }
786 }
787
788 return true;
789}
790
791/* Return the section that should be marked against GC for a given
792 relocation. */
793
794static asection *
795elf_m68k_gc_mark_hook (abfd, info, rel, h, sym)
796 bfd *abfd;
121089cb 797 struct bfd_link_info *info ATTRIBUTE_UNUSED;
252b5132
RH		 798 Elf_Internal_Rela *rel;
799 struct elf_link_hash_entry *h;
800 Elf_Internal_Sym *sym;
801{
802 if (h != NULL)
803 {
804 switch (ELF32_R_TYPE (rel->r_info))
805 {
806 case R_68K_GNU_VTINHERIT:
807 case R_68K_GNU_VTENTRY:
808 break;
809
810 default:
811 switch (h->root.type)
812 {
813 default:
814 break;
815
816 case bfd_link_hash_defined:
817 case bfd_link_hash_defweak:
818 return h->root.u.def.section;
819
820 case bfd_link_hash_common:
821 return h->root.u.c.p->section;
822 }
823 }
824 }
825 else
826 {
827 if (!(elf_bad_symtab (abfd)
828 && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
829 && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
830 && sym->st_shndx != SHN_COMMON))
831 {
832 return bfd_section_from_elf_index (abfd, sym->st_shndx);
833 }
834 }
835
836 return NULL;
837}
838
839/* Update the got entry reference counts for the section being removed. */
840
841static boolean
842elf_m68k_gc_sweep_hook (abfd, info, sec, relocs)
843 bfd *abfd;
844 struct bfd_link_info *info;
845 asection *sec;
846 const Elf_Internal_Rela *relocs;
847{
848 Elf_Internal_Shdr *symtab_hdr;
849 struct elf_link_hash_entry **sym_hashes;
850 bfd_signed_vma *local_got_refcounts;
851 const Elf_Internal_Rela *rel, *relend;
852 unsigned long r_symndx;
853 struct elf_link_hash_entry *h;
854 bfd *dynobj;
dd5724d5
AM		 855 asection *sgot;
856 asection *srelgot;
252b5132
RH		 857
858 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
859 sym_hashes = elf_sym_hashes (abfd);
860 local_got_refcounts = elf_local_got_refcounts (abfd);
861
862 dynobj = elf_hash_table (info)->dynobj;
dd5724d5
AM		 863 if (dynobj == NULL)
864 return true;
865
866 sgot = bfd_get_section_by_name (dynobj, ".got");
867 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
252b5132
RH		 868
869 relend = relocs + sec->reloc_count;
870 for (rel = relocs; rel < relend; rel++)
871 {
872 switch (ELF32_R_TYPE (rel->r_info))
873 {
874 case R_68K_GOT8:
875 case R_68K_GOT16:
876 case R_68K_GOT32:
877 case R_68K_GOT8O:
878 case R_68K_GOT16O:
879 case R_68K_GOT32O:
880 r_symndx = ELF32_R_SYM (rel->r_info);
881 if (r_symndx >= symtab_hdr->sh_info)
882 {
883 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
884 if (h->got.refcount > 0)
885 {
886 --h->got.refcount;
887 if (h->got.refcount == 0)
888 {
889 /* We don't need the .got entry any more. */
890 sgot->_raw_size -= 4;
891 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
892 }
893 }
894 }
dd5724d5 895 else if (local_got_refcounts != NULL)
252b5132
RH		 896 {
897 if (local_got_refcounts[r_symndx] > 0)
898 {
899 --local_got_refcounts[r_symndx];
900 if (local_got_refcounts[r_symndx] == 0)
901 {
902 /* We don't need the .got entry any more. */
903 sgot->_raw_size -= 4;
904 if (info->shared)
905 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
906 }
907 }
908 }
909 break;
910
911 case R_68K_PLT8:
912 case R_68K_PLT16:
913 case R_68K_PLT32:
914 case R_68K_PLT8O:
915 case R_68K_PLT16O:
916 case R_68K_PLT32O:
917 case R_68K_PC8:
918 case R_68K_PC16:
919 case R_68K_PC32:
920 case R_68K_8:
921 case R_68K_16:
922 case R_68K_32:
923 r_symndx = ELF32_R_SYM (rel->r_info);
924 if (r_symndx >= symtab_hdr->sh_info)
925 {
926 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
927 if (h->plt.refcount > 0)
928 --h->plt.refcount;
929 }
930 break;
931
932 default:
933 break;
934 }
935 }
936
937 return true;
938}
939
252b5132
RH		 940/* Adjust a symbol defined by a dynamic object and referenced by a
941 regular object. The current definition is in some section of the
942 dynamic object, but we're not including those sections. We have to
943 change the definition to something the rest of the link can
944 understand. */
945
946static boolean
947elf_m68k_adjust_dynamic_symbol (info, h)
948 struct bfd_link_info *info;
949 struct elf_link_hash_entry *h;
950{
951 bfd *dynobj;
952 asection *s;
953 unsigned int power_of_two;
954
955 dynobj = elf_hash_table (info)->dynobj;
956
957 /* Make sure we know what is going on here. */
958 BFD_ASSERT (dynobj != NULL
959 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
960 || h->weakdef != NULL
961 || ((h->elf_link_hash_flags
962 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
963 && (h->elf_link_hash_flags
964 & ELF_LINK_HASH_REF_REGULAR) != 0
965 && (h->elf_link_hash_flags
966 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
967
968 /* If this is a function, put it in the procedure linkage table. We
969 will fill in the contents of the procedure linkage table later,
970 when we know the address of the .got section. */
971 if (h->type == STT_FUNC
972 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
973 {
974 if (! info->shared
975 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0
976 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0
977 /* We must always create the plt entry if it was referenced
978 by a PLTxxO relocation. In this case we already recorded
979 it as a dynamic symbol. */
980 && h->dynindx == -1)
981 {
982 /* This case can occur if we saw a PLTxx reloc in an input
983 file, but the symbol was never referred to by a dynamic
984 object. In such a case, we don't actually need to build
985 a procedure linkage table, and we can just do a PCxx
986 reloc instead. */
987 BFD_ASSERT ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0);
988 h->plt.offset = (bfd_vma) -1;
989 return true;
990 }
991
992 /* GC may have rendered this entry unused. */
993 if (h->plt.refcount <= 0)
994 {
995 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
996 h->plt.offset = (bfd_vma) -1;
997 return true;
998 }
999
1000 /* Make sure this symbol is output as a dynamic symbol. */
1001 if (h->dynindx == -1)
1002 {
1003 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1004 return false;
1005 }
1006
1007 s = bfd_get_section_by_name (dynobj, ".plt");
1008 BFD_ASSERT (s != NULL);
1009
1010 /* If this is the first .plt entry, make room for the special
1011 first entry. */
1012 if (s->_raw_size == 0)
70f06c4a
AS		 1013 {
1014 if (CPU32_FLAG (dynobj))
1015 s->_raw_size += PLT_CPU32_ENTRY_SIZE;
1016 else
1017 s->_raw_size += PLT_ENTRY_SIZE;
1018 }
252b5132
RH		 1019
1020 /* If this symbol is not defined in a regular file, and we are
1021 not generating a shared library, then set the symbol to this
1022 location in the .plt. This is required to make function
1023 pointers compare as equal between the normal executable and
1024 the shared library. */
1025 if (!info->shared
1026 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1027 {
1028 h->root.u.def.section = s;
1029 h->root.u.def.value = s->_raw_size;
1030 }
1031
1032 h->plt.offset = s->_raw_size;
1033
1034 /* Make room for this entry. */
9e1281c7
CM		 1035 if (CPU32_FLAG (dynobj))
1036 s->_raw_size += PLT_CPU32_ENTRY_SIZE;
1037 else
1038 s->_raw_size += PLT_ENTRY_SIZE;
252b5132
RH		 1039
1040 /* We also need to make an entry in the .got.plt section, which
1041 will be placed in the .got section by the linker script. */
1042
1043 s = bfd_get_section_by_name (dynobj, ".got.plt");
1044 BFD_ASSERT (s != NULL);
1045 s->_raw_size += 4;
1046
1047 /* We also need to make an entry in the .rela.plt section. */
1048
1049 s = bfd_get_section_by_name (dynobj, ".rela.plt");
1050 BFD_ASSERT (s != NULL);
1051 s->_raw_size += sizeof (Elf32_External_Rela);
1052
1053 return true;
1054 }
1055
1056 /* Reinitialize the plt offset now that it is not used as a reference
1057 count any more. */
1058 h->plt.offset = (bfd_vma) -1;
1059
1060 /* If this is a weak symbol, and there is a real definition, the
1061 processor independent code will have arranged for us to see the
1062 real definition first, and we can just use the same value. */
1063 if (h->weakdef != NULL)
1064 {
1065 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
1066 || h->weakdef->root.type == bfd_link_hash_defweak);
1067 h->root.u.def.section = h->weakdef->root.u.def.section;
1068 h->root.u.def.value = h->weakdef->root.u.def.value;
1069 return true;
1070 }
1071
1072 /* This is a reference to a symbol defined by a dynamic object which
1073 is not a function. */
1074
1075 /* If we are creating a shared library, we must presume that the
1076 only references to the symbol are via the global offset table.
1077 For such cases we need not do anything here; the relocations will
1078 be handled correctly by relocate_section. */
1079 if (info->shared)
1080 return true;
1081
1082 /* We must allocate the symbol in our .dynbss section, which will
1083 become part of the .bss section of the executable. There will be
1084 an entry for this symbol in the .dynsym section. The dynamic
1085 object will contain position independent code, so all references
1086 from the dynamic object to this symbol will go through the global
1087 offset table. The dynamic linker will use the .dynsym entry to
1088 determine the address it must put in the global offset table, so
1089 both the dynamic object and the regular object will refer to the
1090 same memory location for the variable. */
1091
1092 s = bfd_get_section_by_name (dynobj, ".dynbss");
1093 BFD_ASSERT (s != NULL);
1094
1095 /* We must generate a R_68K_COPY reloc to tell the dynamic linker to
1096 copy the initial value out of the dynamic object and into the
1097 runtime process image. We need to remember the offset into the
1098 .rela.bss section we are going to use. */
1099 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1100 {
1101 asection *srel;
1102
1103 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
1104 BFD_ASSERT (srel != NULL);
1105 srel->_raw_size += sizeof (Elf32_External_Rela);
1106 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
1107 }
1108
1109 /* We need to figure out the alignment required for this symbol. I
1110 have no idea how ELF linkers handle this. */
1111 power_of_two = bfd_log2 (h->size);
1112 if (power_of_two > 3)
1113 power_of_two = 3;
1114
1115 /* Apply the required alignment. */
1116 s->_raw_size = BFD_ALIGN (s->_raw_size,
1117 (bfd_size_type) (1 << power_of_two));
1118 if (power_of_two > bfd_get_section_alignment (dynobj, s))
1119 {
1120 if (!bfd_set_section_alignment (dynobj, s, power_of_two))
1121 return false;
1122 }
1123
1124 /* Define the symbol as being at this point in the section. */
1125 h->root.u.def.section = s;
1126 h->root.u.def.value = s->_raw_size;
1127
1128 /* Increment the section size to make room for the symbol. */
1129 s->_raw_size += h->size;
1130
1131 return true;
1132}
1133
1134/* Set the sizes of the dynamic sections. */
1135
1136static boolean
1137elf_m68k_size_dynamic_sections (output_bfd, info)
aa91b392 1138 bfd *output_bfd ATTRIBUTE_UNUSED;
252b5132
RH		 1139 struct bfd_link_info *info;
1140{
1141 bfd *dynobj;
1142 asection *s;
1143 boolean plt;
1144 boolean relocs;
252b5132
RH		 1145
1146 dynobj = elf_hash_table (info)->dynobj;
1147 BFD_ASSERT (dynobj != NULL);
1148
1149 if (elf_hash_table (info)->dynamic_sections_created)
1150 {
1151 /* Set the contents of the .interp section to the interpreter. */
1152 if (!info->shared)
1153 {
1154 s = bfd_get_section_by_name (dynobj, ".interp");
1155 BFD_ASSERT (s != NULL);
1156 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
1157 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1158 }
1159 }
1160 else
1161 {
1162 /* We may have created entries in the .rela.got section.
1163 However, if we are not creating the dynamic sections, we will
1164 not actually use these entries. Reset the size of .rela.got,
1165 which will cause it to get stripped from the output file
1166 below. */
1167 s = bfd_get_section_by_name (dynobj, ".rela.got");
1168 if (s != NULL)
1169 s->_raw_size = 0;
1170 }
1171
1172 /* If this is a -Bsymbolic shared link, then we need to discard all PC
1173 relative relocs against symbols defined in a regular object. We
1174 allocated space for them in the check_relocs routine, but we will not
1175 fill them in in the relocate_section routine. */
1176 if (info->shared && info->symbolic)
1177 elf_m68k_link_hash_traverse (elf_m68k_hash_table (info),
1178 elf_m68k_discard_copies,
1179 (PTR) NULL);
1180
1181 /* The check_relocs and adjust_dynamic_symbol entry points have
1182 determined the sizes of the various dynamic sections. Allocate
1183 memory for them. */
1184 plt = false;
1185 relocs = false;
252b5132
RH		 1186 for (s = dynobj->sections; s != NULL; s = s->next)
1187 {
1188 const char *name;
1189 boolean strip;
1190
1191 if ((s->flags & SEC_LINKER_CREATED) == 0)
1192 continue;
1193
1194 /* It's OK to base decisions on the section name, because none
1195 of the dynobj section names depend upon the input files. */
1196 name = bfd_get_section_name (dynobj, s);
1197
1198 strip = false;
1199
1200 if (strcmp (name, ".plt") == 0)
1201 {
1202 if (s->_raw_size == 0)
1203 {
1204 /* Strip this section if we don't need it; see the
1205 comment below. */
1206 strip = true;
1207 }
1208 else
1209 {
1210 /* Remember whether there is a PLT. */
1211 plt = true;
1212 }
1213 }
1214 else if (strncmp (name, ".rela", 5) == 0)
1215 {
1216 if (s->_raw_size == 0)
1217 {
1218 /* If we don't need this section, strip it from the
1219 output file. This is mostly to handle .rela.bss and
1220 .rela.plt. We must create both sections in
1221 create_dynamic_sections, because they must be created
1222 before the linker maps input sections to output
1223 sections. The linker does that before
1224 adjust_dynamic_symbol is called, and it is that
1225 function which decides whether anything needs to go
1226 into these sections. */
1227 strip = true;
1228 }
1229 else
1230 {
aa91b392 1231 relocs = true;
252b5132
RH		 1232
1233 /* We use the reloc_count field as a counter if we need
1234 to copy relocs into the output file. */
1235 s->reloc_count = 0;
1236 }
1237 }
1238 else if (strncmp (name, ".got", 4) != 0)
1239 {
1240 /* It's not one of our sections, so don't allocate space. */
1241 continue;
1242 }
1243
1244 if (strip)
1245 {
7f8d5fc9 1246 _bfd_strip_section_from_output (info, s);
252b5132
RH		 1247 continue;
1248 }
1249
1250 /* Allocate memory for the section contents. */
7a9af8c4
NC		 1251 /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
1252 Unused entries should be reclaimed before the section's contents
1253 are written out, but at the moment this does not happen. Thus in
1254 order to prevent writing out garbage, we initialise the section's
1255 contents to zero. */
1256 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
252b5132
RH		 1257 if (s->contents == NULL && s->_raw_size != 0)
1258 return false;
1259 }
1260
1261 if (elf_hash_table (info)->dynamic_sections_created)
1262 {
1263 /* Add some entries to the .dynamic section. We fill in the
1264 values later, in elf_m68k_finish_dynamic_sections, but we
1265 must add the entries now so that we get the correct size for
1266 the .dynamic section. The DT_DEBUG entry is filled in by the
1267 dynamic linker and used by the debugger. */
dc810e39
AM		 1268#define add_dynamic_entry(TAG, VAL) \
1269 bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
1270
252b5132
RH		 1271 if (!info->shared)
1272 {
dc810e39 1273 if (!add_dynamic_entry (DT_DEBUG, 0))
252b5132
RH		 1274 return false;
1275 }
1276
1277 if (plt)
1278 {
dc810e39
AM		 1279 if (!add_dynamic_entry (DT_PLTGOT, 0)
1280 || !add_dynamic_entry (DT_PLTRELSZ, 0)
1281 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
1282 || !add_dynamic_entry (DT_JMPREL, 0))
252b5132
RH		 1283 return false;
1284 }
1285
1286 if (relocs)
1287 {
dc810e39
AM		 1288 if (!add_dynamic_entry (DT_RELA, 0)
1289 || !add_dynamic_entry (DT_RELASZ, 0)
1290 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
252b5132
RH		 1291 return false;
1292 }
1293
aa91b392 1294 if ((info->flags & DF_TEXTREL) != 0)
252b5132 1295 {
dc810e39 1296 if (!add_dynamic_entry (DT_TEXTREL, 0))
252b5132
RH		 1297 return false;
1298 }
1299 }
dc810e39 1300#undef add_dynamic_entry
252b5132 1301
252b5132
RH		 1302 return true;
1303}
1304
1305/* This function is called via elf_m68k_link_hash_traverse if we are
1306 creating a shared object with -Bsymbolic. It discards the space
1307 allocated to copy PC relative relocs against symbols which are defined
1308 in regular objects. We allocated space for them in the check_relocs
1309 routine, but we won't fill them in in the relocate_section routine. */
1310
252b5132
RH		 1311static boolean
1312elf_m68k_discard_copies (h, ignore)
1313 struct elf_m68k_link_hash_entry *h;
121089cb 1314 PTR ignore ATTRIBUTE_UNUSED;
252b5132
RH		 1315{
1316 struct elf_m68k_pcrel_relocs_copied *s;
1317
1318 /* We only discard relocs for symbols defined in a regular object. */
1319 if ((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1320 return true;
1321
1322 for (s = h->pcrel_relocs_copied; s != NULL; s = s->next)
1323 s->section->_raw_size -= s->count * sizeof (Elf32_External_Rela);
1324
1325 return true;
1326}
1327
1328/* Relocate an M68K ELF section. */
1329
1330static boolean
1331elf_m68k_relocate_section (output_bfd, info, input_bfd, input_section,
1332 contents, relocs, local_syms, local_sections)
1333 bfd *output_bfd;
1334 struct bfd_link_info *info;
1335 bfd *input_bfd;
1336 asection *input_section;
1337 bfd_byte *contents;
1338 Elf_Internal_Rela *relocs;
1339 Elf_Internal_Sym *local_syms;
1340 asection **local_sections;
1341{
1342 bfd *dynobj;
1343 Elf_Internal_Shdr *symtab_hdr;
1344 struct elf_link_hash_entry **sym_hashes;
1345 bfd_vma *local_got_offsets;
1346 asection *sgot;
1347 asection *splt;
1348 asection *sreloc;
1349 Elf_Internal_Rela *rel;
1350 Elf_Internal_Rela *relend;
1351
1352 dynobj = elf_hash_table (info)->dynobj;
1353 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1354 sym_hashes = elf_sym_hashes (input_bfd);
1355 local_got_offsets = elf_local_got_offsets (input_bfd);
1356
1357 sgot = NULL;
1358 splt = NULL;
1359 sreloc = NULL;
1360
1361 rel = relocs;
1362 relend = relocs + input_section->reloc_count;
1363 for (; rel < relend; rel++)
1364 {
1365 int r_type;
1366 reloc_howto_type *howto;
1367 unsigned long r_symndx;
1368 struct elf_link_hash_entry *h;
1369 Elf_Internal_Sym *sym;
1370 asection *sec;
1371 bfd_vma relocation;
1372 bfd_reloc_status_type r;
1373
1374 r_type = ELF32_R_TYPE (rel->r_info);
1375 if (r_type < 0 || r_type >= (int) R_68K_max)
1376 {
1377 bfd_set_error (bfd_error_bad_value);
1378 return false;
1379 }
1380 howto = howto_table + r_type;
1381
1382 r_symndx = ELF32_R_SYM (rel->r_info);
1383
1384 if (info->relocateable)
1385 {
1386 /* This is a relocateable link. We don't have to change
1387 anything, unless the reloc is against a section symbol,
1388 in which case we have to adjust according to where the
1389 section symbol winds up in the output section. */
1390 if (r_symndx < symtab_hdr->sh_info)
1391 {
1392 sym = local_syms + r_symndx;
1393 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
1394 {
1395 sec = local_sections[r_symndx];
1396 rel->r_addend += sec->output_offset + sym->st_value;
1397 }
1398 }
1399
1400 continue;
1401 }
1402
1403 /* This is a final link. */
1404 h = NULL;
1405 sym = NULL;
1406 sec = NULL;
1407 if (r_symndx < symtab_hdr->sh_info)
1408 {
1409 sym = local_syms + r_symndx;
1410 sec = local_sections[r_symndx];
1411 relocation = (sec->output_section->vma
1412 + sec->output_offset
1413 + sym->st_value);
1414 }
1415 else
1416 {
1417 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1418 while (h->root.type == bfd_link_hash_indirect
1419 || h->root.type == bfd_link_hash_warning)
1420 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1421 if (h->root.type == bfd_link_hash_defined
1422 || h->root.type == bfd_link_hash_defweak)
1423 {
1424 sec = h->root.u.def.section;
1425 if (((r_type == R_68K_PLT8
1426 || r_type == R_68K_PLT16
1427 || r_type == R_68K_PLT32
1428 || r_type == R_68K_PLT8O
1429 || r_type == R_68K_PLT16O
1430 || r_type == R_68K_PLT32O)
1431 && h->plt.offset != (bfd_vma) -1
1432 && elf_hash_table (info)->dynamic_sections_created)
1433 || ((r_type == R_68K_GOT8O
1434 || r_type == R_68K_GOT16O
1435 || r_type == R_68K_GOT32O
1436 || ((r_type == R_68K_GOT8
1437 || r_type == R_68K_GOT16
1438 || r_type == R_68K_GOT32)
1439 && strcmp (h->root.root.string,
1440 "_GLOBAL_OFFSET_TABLE_") != 0))
1441 && elf_hash_table (info)->dynamic_sections_created
1442 && (! info->shared
1443 || (! info->symbolic && h->dynindx != -1)
1444 || (h->elf_link_hash_flags
1445 & ELF_LINK_HASH_DEF_REGULAR) == 0))
1446 || (info->shared
1447 && ((! info->symbolic && h->dynindx != -1)
1448 || (h->elf_link_hash_flags
1449 & ELF_LINK_HASH_DEF_REGULAR) == 0)
95fc45e6
AS		 1450 && ((input_section->flags & SEC_ALLOC) != 0
1451 /* DWARF will emit R_68K_32 relocations in its
1452 sections against symbols defined externally
1453 in shared libraries. We can't do anything
1454 with them here. */
1455 || ((input_section->flags & SEC_DEBUGGING) != 0
1456 && (h->elf_link_hash_flags
1457 & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
252b5132
RH		 1458 && (r_type == R_68K_8
1459 || r_type == R_68K_16
1460 || r_type == R_68K_32
1461 || r_type == R_68K_PC8
1462 || r_type == R_68K_PC16
1463 || r_type == R_68K_PC32)))
1464 {
1465 /* In these cases, we don't need the relocation
1466 value. We check specially because in some
1467 obscure cases sec->output_section will be NULL. */
1468 relocation = 0;
1469 }
1470 else
1471 relocation = (h->root.u.def.value
1472 + sec->output_section->vma
1473 + sec->output_offset);
1474 }
1475 else if (h->root.type == bfd_link_hash_undefweak)
1476 relocation = 0;
671bae9c
NC		 1477 else if (info->shared
1478 && (!info->symbolic || info->allow_shlib_undefined)
3a27a730
L		 1479 && !info->no_undefined
1480 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
252b5132
RH		 1481 relocation = 0;
1482 else
1483 {
1484 if (!(info->callbacks->undefined_symbol
1485 (info, h->root.root.string, input_bfd,
5cc7c785 1486 input_section, rel->r_offset,
3a27a730
L		 1487 (!info->shared || info->no_undefined
1488 || ELF_ST_VISIBILITY (h->other)))))
252b5132
RH		 1489 return false;
1490 relocation = 0;
1491 }
1492 }
1493
1494 switch (r_type)
1495 {
1496 case R_68K_GOT8:
1497 case R_68K_GOT16:
1498 case R_68K_GOT32:
1499 /* Relocation is to the address of the entry for this symbol
1500 in the global offset table. */
1501 if (h != NULL
1502 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1503 break;
1504 /* Fall through. */
1505 case R_68K_GOT8O:
1506 case R_68K_GOT16O:
1507 case R_68K_GOT32O:
1508 /* Relocation is the offset of the entry for this symbol in
1509 the global offset table. */
1510
1511 {
1512 bfd_vma off;
1513
1514 if (sgot == NULL)
1515 {
1516 sgot = bfd_get_section_by_name (dynobj, ".got");
1517 BFD_ASSERT (sgot != NULL);
1518 }
1519
1520 if (h != NULL)
1521 {
1522 off = h->got.offset;
1523 BFD_ASSERT (off != (bfd_vma) -1);
1524
1525 if (!elf_hash_table (info)->dynamic_sections_created
1526 || (info->shared
1527 && (info->symbolic || h->dynindx == -1)
1528 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
1529 {
1530 /* This is actually a static link, or it is a
1531 -Bsymbolic link and the symbol is defined
1532 locally, or the symbol was forced to be local
1533 because of a version file.. We must initialize
1534 this entry in the global offset table. Since
1535 the offset must always be a multiple of 4, we
1536 use the least significant bit to record whether
1537 we have initialized it already.
1538
1539 When doing a dynamic link, we create a .rela.got
1540 relocation entry to initialize the value. This
1541 is done in the finish_dynamic_symbol routine. */
1542 if ((off & 1) != 0)
1543 off &= ~1;
1544 else
1545 {
1546 bfd_put_32 (output_bfd, relocation,
1547 sgot->contents + off);
1548 h->got.offset |= 1;
1549 }
1550 }
1551 }
1552 else
1553 {
1554 BFD_ASSERT (local_got_offsets != NULL
1555 && local_got_offsets[r_symndx] != (bfd_vma) -1);
1556
1557 off = local_got_offsets[r_symndx];
1558
1559 /* The offset must always be a multiple of 4. We use
1560 the least significant bit to record whether we have
1561 already generated the necessary reloc. */
1562 if ((off & 1) != 0)
1563 off &= ~1;
1564 else
1565 {
1566 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1567
1568 if (info->shared)
1569 {
1570 asection *srelgot;
1571 Elf_Internal_Rela outrel;
1572
1573 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1574 BFD_ASSERT (srelgot != NULL);
1575
1576 outrel.r_offset = (sgot->output_section->vma
1577 + sgot->output_offset
1578 + off);
1579 outrel.r_info = ELF32_R_INFO (0, R_68K_RELATIVE);
1580 outrel.r_addend = relocation;
1581 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1582 (((Elf32_External_Rela *)
1583 srelgot->contents)
1584 + srelgot->reloc_count));
1585 ++srelgot->reloc_count;
1586 }
1587
1588 local_got_offsets[r_symndx] |= 1;
1589 }
1590 }
1591
1592 relocation = sgot->output_offset + off;
1593 if (r_type == R_68K_GOT8O
1594 || r_type == R_68K_GOT16O
1595 || r_type == R_68K_GOT32O)
1596 {
1597 /* This relocation does not use the addend. */
1598 rel->r_addend = 0;
1599 }
1600 else
1601 relocation += sgot->output_section->vma;
1602 }
1603 break;
1604
1605 case R_68K_PLT8:
1606 case R_68K_PLT16:
1607 case R_68K_PLT32:
1608 /* Relocation is to the entry for this symbol in the
1609 procedure linkage table. */
1610
1611 /* Resolve a PLTxx reloc against a local symbol directly,
1612 without using the procedure linkage table. */
1613 if (h == NULL)
1614 break;
1615
1616 if (h->plt.offset == (bfd_vma) -1
1617 || !elf_hash_table (info)->dynamic_sections_created)
1618 {
1619 /* We didn't make a PLT entry for this symbol. This
1620 happens when statically linking PIC code, or when
1621 using -Bsymbolic. */
1622 break;
1623 }
1624
1625 if (splt == NULL)
1626 {
1627 splt = bfd_get_section_by_name (dynobj, ".plt");
1628 BFD_ASSERT (splt != NULL);
1629 }
1630
1631 relocation = (splt->output_section->vma
1632 + splt->output_offset
1633 + h->plt.offset);
1634 break;
1635
1636 case R_68K_PLT8O:
1637 case R_68K_PLT16O:
1638 case R_68K_PLT32O:
1639 /* Relocation is the offset of the entry for this symbol in
1640 the procedure linkage table. */
1641 BFD_ASSERT (h != NULL && h->plt.offset != (bfd_vma) -1);
1642
1643 if (splt == NULL)
1644 {
1645 splt = bfd_get_section_by_name (dynobj, ".plt");
1646 BFD_ASSERT (splt != NULL);
1647 }
1648
1649 relocation = h->plt.offset;
1650
1651 /* This relocation does not use the addend. */
1652 rel->r_addend = 0;
1653
1654 break;
1655
1656 case R_68K_PC8:
1657 case R_68K_PC16:
1658 case R_68K_PC32:
1659 if (h == NULL)
1660 break;
1661 /* Fall through. */
1662 case R_68K_8:
1663 case R_68K_16:
1664 case R_68K_32:
1665 if (info->shared
1666 && (input_section->flags & SEC_ALLOC) != 0
1667 && ((r_type != R_68K_PC8
1668 && r_type != R_68K_PC16
1669 && r_type != R_68K_PC32)
1670 || (!info->symbolic
1671 || (h->elf_link_hash_flags
1672 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
1673 {
1674 Elf_Internal_Rela outrel;
1675 boolean skip, relocate;
1676
1677 /* When generating a shared object, these relocations
1678 are copied into the output file to be resolved at run
1679 time. */
1680
1681 if (sreloc == NULL)
1682 {
1683 const char *name;
1684
1685 name = (bfd_elf_string_from_elf_section
1686 (input_bfd,
1687 elf_elfheader (input_bfd)->e_shstrndx,
1688 elf_section_data (input_section)->rel_hdr.sh_name));
1689 if (name == NULL)
1690 return false;
1691
1692 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
1693 && strcmp (bfd_get_section_name (input_bfd,
1694 input_section),
1695 name + 5) == 0);
1696
1697 sreloc = bfd_get_section_by_name (dynobj, name);
1698 BFD_ASSERT (sreloc != NULL);
1699 }
1700
1701 skip = false;
1702
1703 if (elf_section_data (input_section)->stab_info == NULL)
1704 outrel.r_offset = rel->r_offset;
1705 else
1706 {
1707 bfd_vma off;
1708
1709 off = (_bfd_stab_section_offset
1710 (output_bfd, &elf_hash_table (info)->stab_info,
1711 input_section,
1712 &elf_section_data (input_section)->stab_info,
1713 rel->r_offset));
1714 if (off == (bfd_vma) -1)
1715 skip = true;
1716 outrel.r_offset = off;
1717 }
1718
1719 outrel.r_offset += (input_section->output_section->vma
1720 + input_section->output_offset);
1721
1722 if (skip)
1723 {
1724 memset (&outrel, 0, sizeof outrel);
1725 relocate = false;
1726 }
1727 /* h->dynindx may be -1 if the symbol was marked to
1728 become local. */
1729 else if (h != NULL
1730 && ((! info->symbolic && h->dynindx != -1)
1731 || (h->elf_link_hash_flags
1732 & ELF_LINK_HASH_DEF_REGULAR) == 0))
1733 {
1734 BFD_ASSERT (h->dynindx != -1);
1735 relocate = false;
1736 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1737 outrel.r_addend = relocation + rel->r_addend;
1738 }
1739 else
1740 {
1741 if (r_type == R_68K_32)
1742 {
1743 relocate = true;
1744 outrel.r_info = ELF32_R_INFO (0, R_68K_RELATIVE);
1745 outrel.r_addend = relocation + rel->r_addend;
1746 }
1747 else
1748 {
1749 long indx;
1750
1751 if (h == NULL)
1752 sec = local_sections[r_symndx];
1753 else
1754 {
1755 BFD_ASSERT (h->root.type == bfd_link_hash_defined
1756 || (h->root.type
1757 == bfd_link_hash_defweak));
1758 sec = h->root.u.def.section;
1759 }
1760 if (sec != NULL && bfd_is_abs_section (sec))
1761 indx = 0;
1762 else if (sec == NULL || sec->owner == NULL)
1763 {
1764 bfd_set_error (bfd_error_bad_value);
1765 return false;
1766 }
1767 else
1768 {
1769 asection *osec;
1770
1771 osec = sec->output_section;
1772 indx = elf_section_data (osec)->dynindx;
1773 BFD_ASSERT (indx > 0);
1774 }
1775
1776 relocate = false;
1777 outrel.r_info = ELF32_R_INFO (indx, r_type);
1778 outrel.r_addend = relocation + rel->r_addend;
1779 }
1780 }
1781
1782 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1783 (((Elf32_External_Rela *)
1784 sreloc->contents)
1785 + sreloc->reloc_count));
1786 ++sreloc->reloc_count;
1787
1788 /* This reloc will be computed at runtime, so there's no
1789 need to do anything now, except for R_68K_32
1790 relocations that have been turned into
1791 R_68K_RELATIVE. */
1792 if (!relocate)
1793 continue;
1794 }
1795
1796 break;
1797
1798 case R_68K_GNU_VTINHERIT:
1799 case R_68K_GNU_VTENTRY:
1800 /* These are no-ops in the end. */
1801 continue;
1802
1803 default:
1804 break;
1805 }
1806
1807 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1808 contents, rel->r_offset,
1809 relocation, rel->r_addend);
1810
1811 if (r != bfd_reloc_ok)
1812 {
1813 switch (r)
1814 {
1815 default:
1816 case bfd_reloc_outofrange:
1817 abort ();
1818 case bfd_reloc_overflow:
1819 {
1820 const char *name;
1821
1822 if (h != NULL)
1823 name = h->root.root.string;
1824 else
1825 {
1826 name = bfd_elf_string_from_elf_section (input_bfd,
1827 symtab_hdr->sh_link,
1828 sym->st_name);
1829 if (name == NULL)
1830 return false;
1831 if (*name == '\0')
1832 name = bfd_section_name (input_bfd, sec);
1833 }
1834 if (!(info->callbacks->reloc_overflow
1835 (info, name, howto->name, (bfd_vma) 0,
1836 input_bfd, input_section, rel->r_offset)))
1837 return false;
1838 }
1839 break;
1840 }
1841 }
1842 }
1843
1844 return true;
1845}
1846
1847/* Finish up dynamic symbol handling. We set the contents of various
1848 dynamic sections here. */
1849
1850static boolean
1851elf_m68k_finish_dynamic_symbol (output_bfd, info, h, sym)
1852 bfd *output_bfd;
1853 struct bfd_link_info *info;
1854 struct elf_link_hash_entry *h;
1855 Elf_Internal_Sym *sym;
1856{
1857 bfd *dynobj;
9e1281c7 1858 int plt_off1, plt_off2, plt_off3;
252b5132
RH		 1859
1860 dynobj = elf_hash_table (info)->dynobj;
1861
1862 if (h->plt.offset != (bfd_vma) -1)
1863 {
1864 asection *splt;
1865 asection *sgot;
1866 asection *srela;
1867 bfd_vma plt_index;
1868 bfd_vma got_offset;
1869 Elf_Internal_Rela rela;
1870
1871 /* This symbol has an entry in the procedure linkage table. Set
1872 it up. */
1873
1874 BFD_ASSERT (h->dynindx != -1);
1875
1876 splt = bfd_get_section_by_name (dynobj, ".plt");
1877 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
1878 srela = bfd_get_section_by_name (dynobj, ".rela.plt");
1879 BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1880
1881 /* Get the index in the procedure linkage table which
1882 corresponds to this symbol. This is the index of this symbol
1883 in all the symbols for which we are making plt entries. The
1884 first entry in the procedure linkage table is reserved. */
9e1281c7
CM		 1885 if ( CPU32_FLAG (output_bfd))
1886 plt_index = h->plt.offset / PLT_CPU32_ENTRY_SIZE - 1;
1887 else
1888 plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
252b5132
RH		 1889
1890 /* Get the offset into the .got table of the entry that
1891 corresponds to this function. Each .got entry is 4 bytes.
1892 The first three are reserved. */
1893 got_offset = (plt_index + 3) * 4;
1894
9e1281c7
CM		 1895 if ( CPU32_FLAG (output_bfd))
1896 {
1897 /* Fill in the entry in the procedure linkage table. */
1898 memcpy (splt->contents + h->plt.offset, elf_cpu32_plt_entry,
1899 PLT_CPU32_ENTRY_SIZE);
1900 plt_off1 = 4;
1901 plt_off2 = 12;
1902 plt_off3 = 18;
1903 }
1904 else
1905 {
1906 /* Fill in the entry in the procedure linkage table. */
1907 memcpy (splt->contents + h->plt.offset, elf_m68k_plt_entry,
1908 PLT_ENTRY_SIZE);
1909 plt_off1 = 4;
1910 plt_off2 = 10;
1911 plt_off3 = 16;
1912 }
1913
252b5132
RH		 1914 /* The offset is relative to the first extension word. */
1915 bfd_put_32 (output_bfd,
1916 (sgot->output_section->vma
1917 + sgot->output_offset
1918 + got_offset
1919 - (splt->output_section->vma
1920 + h->plt.offset + 2)),
9e1281c7 1921 splt->contents + h->plt.offset + plt_off1);
252b5132
RH		 1922
1923 bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
9e1281c7
CM		 1924 splt->contents + h->plt.offset + plt_off2);
1925 bfd_put_32 (output_bfd, - (h->plt.offset + plt_off3),
1926 splt->contents + h->plt.offset + plt_off3);
252b5132
RH		 1927
1928 /* Fill in the entry in the global offset table. */
1929 bfd_put_32 (output_bfd,
1930 (splt->output_section->vma
1931 + splt->output_offset
1932 + h->plt.offset
1933 + 8),
1934 sgot->contents + got_offset);
1935
1936 /* Fill in the entry in the .rela.plt section. */
1937 rela.r_offset = (sgot->output_section->vma
1938 + sgot->output_offset
1939 + got_offset);
1940 rela.r_info = ELF32_R_INFO (h->dynindx, R_68K_JMP_SLOT);
1941 rela.r_addend = 0;
1942 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1943 ((Elf32_External_Rela *) srela->contents
1944 + plt_index));
1945
1946 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1947 {
1948 /* Mark the symbol as undefined, rather than as defined in
1949 the .plt section. Leave the value alone. */
1950 sym->st_shndx = SHN_UNDEF;
1951 }
1952 }
1953
1954 if (h->got.offset != (bfd_vma) -1)
1955 {
1956 asection *sgot;
1957 asection *srela;
1958 Elf_Internal_Rela rela;
1959
1960 /* This symbol has an entry in the global offset table. Set it
1961 up. */
1962
1963 sgot = bfd_get_section_by_name (dynobj, ".got");
1964 srela = bfd_get_section_by_name (dynobj, ".rela.got");
1965 BFD_ASSERT (sgot != NULL && srela != NULL);
1966
1967 rela.r_offset = (sgot->output_section->vma
1968 + sgot->output_offset
dc810e39 1969 + (h->got.offset &~ (bfd_vma) 1));
252b5132
RH		 1970
1971 /* If this is a -Bsymbolic link, and the symbol is defined
1972 locally, we just want to emit a RELATIVE reloc. Likewise if
1973 the symbol was forced to be local because of a version file.
1974 The entry in the global offset table will already have been
1975 initialized in the relocate_section function. */
1976 if (info->shared
1977 && (info->symbolic || h->dynindx == -1)
1978 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
1979 {
1980 rela.r_info = ELF32_R_INFO (0, R_68K_RELATIVE);
1981 rela.r_addend = bfd_get_signed_32 (output_bfd,
1982 (sgot->contents
dc810e39 1983 + (h->got.offset &~ (bfd_vma) 1)));
252b5132
RH		 1984 }
1985 else
1986 {
1987 bfd_put_32 (output_bfd, (bfd_vma) 0,
dc810e39 1988 sgot->contents + (h->got.offset &~ (bfd_vma) 1));
252b5132
RH		 1989 rela.r_info = ELF32_R_INFO (h->dynindx, R_68K_GLOB_DAT);
1990 rela.r_addend = 0;
1991 }
1992
1993 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1994 ((Elf32_External_Rela *) srela->contents
1995 + srela->reloc_count));
1996 ++srela->reloc_count;
1997 }
1998
1999 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
2000 {
2001 asection *s;
2002 Elf_Internal_Rela rela;
2003
2004 /* This symbol needs a copy reloc. Set it up. */
2005
2006 BFD_ASSERT (h->dynindx != -1
2007 && (h->root.type == bfd_link_hash_defined
2008 || h->root.type == bfd_link_hash_defweak));
2009
2010 s = bfd_get_section_by_name (h->root.u.def.section->owner,
2011 ".rela.bss");
2012 BFD_ASSERT (s != NULL);
2013
2014 rela.r_offset = (h->root.u.def.value
2015 + h->root.u.def.section->output_section->vma
2016 + h->root.u.def.section->output_offset);
2017 rela.r_info = ELF32_R_INFO (h->dynindx, R_68K_COPY);
2018 rela.r_addend = 0;
2019 bfd_elf32_swap_reloca_out (output_bfd, &rela,
2020 ((Elf32_External_Rela *) s->contents
2021 + s->reloc_count));
2022 ++s->reloc_count;
2023 }
2024
2025 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
2026 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
2027 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2028 sym->st_shndx = SHN_ABS;
2029
2030 return true;
2031}
2032
2033/* Finish up the dynamic sections. */
2034
2035static boolean
2036elf_m68k_finish_dynamic_sections (output_bfd, info)
2037 bfd *output_bfd;
2038 struct bfd_link_info *info;
2039{
2040 bfd *dynobj;
2041 asection *sgot;
2042 asection *sdyn;
2043
2044 dynobj = elf_hash_table (info)->dynobj;
2045
2046 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
2047 BFD_ASSERT (sgot != NULL);
2048 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
2049
2050 if (elf_hash_table (info)->dynamic_sections_created)
2051 {
2052 asection *splt;
2053 Elf32_External_Dyn *dyncon, *dynconend;
2054
2055 splt = bfd_get_section_by_name (dynobj, ".plt");
2056 BFD_ASSERT (splt != NULL && sdyn != NULL);
2057
2058 dyncon = (Elf32_External_Dyn *) sdyn->contents;
2059 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
2060 for (; dyncon < dynconend; dyncon++)
2061 {
2062 Elf_Internal_Dyn dyn;
2063 const char *name;
2064 asection *s;
2065
2066 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
2067
2068 switch (dyn.d_tag)
2069 {
2070 default:
2071 break;
2072
2073 case DT_PLTGOT:
2074 name = ".got";
2075 goto get_vma;
2076 case DT_JMPREL:
2077 name = ".rela.plt";
2078 get_vma:
2079 s = bfd_get_section_by_name (output_bfd, name);
2080 BFD_ASSERT (s != NULL);
2081 dyn.d_un.d_ptr = s->vma;
2082 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2083 break;
2084
2085 case DT_PLTRELSZ:
2086 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
2087 BFD_ASSERT (s != NULL);
2088 if (s->_cooked_size != 0)
2089 dyn.d_un.d_val = s->_cooked_size;
2090 else
2091 dyn.d_un.d_val = s->_raw_size;
2092 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2093 break;
2094
2095 case DT_RELASZ:
2096 /* The procedure linkage table relocs (DT_JMPREL) should
2097 not be included in the overall relocs (DT_RELA).
2098 Therefore, we override the DT_RELASZ entry here to
2099 make it not include the JMPREL relocs. Since the
2100 linker script arranges for .rela.plt to follow all
2101 other relocation sections, we don't have to worry
2102 about changing the DT_RELA entry. */
2103 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
2104 if (s != NULL)
2105 {
2106 if (s->_cooked_size != 0)
2107 dyn.d_un.d_val -= s->_cooked_size;
2108 else
2109 dyn.d_un.d_val -= s->_raw_size;
2110 }
2111 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2112 break;
2113 }
2114 }
2115
2116 /* Fill in the first entry in the procedure linkage table. */
2117 if (splt->_raw_size > 0)
2118 {
9e1281c7
CM		 2119 if (!CPU32_FLAG (output_bfd))
2120 {
2121 memcpy (splt->contents, elf_m68k_plt0_entry, PLT_ENTRY_SIZE);
2122 bfd_put_32 (output_bfd,
2123 (sgot->output_section->vma
2124 + sgot->output_offset + 4
2125 - (splt->output_section->vma + 2)),
2126 splt->contents + 4);
2127 bfd_put_32 (output_bfd,
2128 (sgot->output_section->vma
2129 + sgot->output_offset + 8
2130 - (splt->output_section->vma + 10)),
2131 splt->contents + 12);
c3668558 2132 elf_section_data (splt->output_section)->this_hdr.sh_entsize
9e1281c7
CM		 2133 = PLT_ENTRY_SIZE;
2134 }
2135 else /* cpu32 */
2136 {
2137 memcpy (splt->contents, elf_cpu32_plt0_entry, PLT_CPU32_ENTRY_SIZE);
2138 bfd_put_32 (output_bfd,
2139 (sgot->output_section->vma
2140 + sgot->output_offset + 4
2141 - (splt->output_section->vma + 2)),
2142 splt->contents + 4);
2143 bfd_put_32 (output_bfd,
2144 (sgot->output_section->vma
2145 + sgot->output_offset + 8
2146 - (splt->output_section->vma + 10)),
6091b433 2147 splt->contents + 12);
c3668558 2148 elf_section_data (splt->output_section)->this_hdr.sh_entsize
9e1281c7
CM		 2149 = PLT_CPU32_ENTRY_SIZE;
2150 }
252b5132 2151 }
252b5132
RH		 2152 }
2153
2154 /* Fill in the first three entries in the global offset table. */
2155 if (sgot->_raw_size > 0)
2156 {
2157 if (sdyn == NULL)
2158 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
2159 else
2160 bfd_put_32 (output_bfd,
2161 sdyn->output_section->vma + sdyn->output_offset,
2162 sgot->contents);
2163 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
2164 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
2165 }
2166
2167 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
2168
252b5132
RH		 2169 return true;
2170}
2171
0752970e
NC		 2172/* Given a .data section and a .emreloc in-memory section, store
2173 relocation information into the .emreloc section which can be
2174 used at runtime to relocate the section. This is called by the
2175 linker when the --embedded-relocs switch is used. This is called
2176 after the add_symbols entry point has been called for all the
2177 objects, and before the final_link entry point is called. */
2178
2179boolean
2180bfd_m68k_elf32_create_embedded_relocs (abfd, info, datasec, relsec, errmsg)
2181 bfd *abfd;
2182 struct bfd_link_info *info;
2183 asection *datasec;
2184 asection *relsec;
2185 char **errmsg;
2186{
2187 Elf_Internal_Shdr *symtab_hdr;
2188 Elf32_External_Sym *extsyms;
2189 Elf32_External_Sym *free_extsyms = NULL;
2190 Elf_Internal_Rela *internal_relocs;
2191 Elf_Internal_Rela *free_relocs = NULL;
2192 Elf_Internal_Rela *irel, *irelend;
2193 bfd_byte *p;
dc810e39 2194 bfd_size_type amt;
0752970e
NC		 2195
2196 BFD_ASSERT (! info->relocateable);
2197
2198 *errmsg = NULL;
2199
2200 if (datasec->reloc_count == 0)
2201 return true;
2202
2203 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2204 /* Read this BFD's symbols if we haven't done so already, or get the cached
2205 copy if it exists. */
2206 if (symtab_hdr->contents != NULL)
2207 extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
2208 else
2209 {
2210 /* Go get them off disk. */
2211 if (info->keep_memory)
dc810e39 2212 extsyms = (Elf32_External_Sym *) bfd_alloc (abfd, symtab_hdr->sh_size);
0752970e 2213 else
dc810e39 2214 extsyms = (Elf32_External_Sym *) bfd_malloc (symtab_hdr->sh_size);
0752970e
NC		 2215 if (extsyms == NULL)
2216 goto error_return;
2217 if (! info->keep_memory)
2218 free_extsyms = extsyms;
2219 if (bfd_seek (abfd, symtab_hdr->sh_offset, SEEK_SET) != 0
dc810e39 2220 || (bfd_bread (extsyms, symtab_hdr->sh_size, abfd)
0752970e
NC		 2221 != symtab_hdr->sh_size))
2222 goto error_return;
2223 if (info->keep_memory)
2224 symtab_hdr->contents = extsyms;
2225 }
2226
2227 /* Get a copy of the native relocations. */
2228 internal_relocs = (_bfd_elf32_link_read_relocs
2229 (abfd, datasec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
2230 info->keep_memory));
2231 if (internal_relocs == NULL)
2232 goto error_return;
2233 if (! info->keep_memory)
2234 free_relocs = internal_relocs;
2235
dc810e39
AM		 2236 amt = (bfd_size_type) datasec->reloc_count * 12;
2237 relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
0752970e
NC		 2238 if (relsec->contents == NULL)
2239 goto error_return;
2240
2241 p = relsec->contents;
2242
2243 irelend = internal_relocs + datasec->reloc_count;
2244 for (irel = internal_relocs; irel < irelend; irel++, p += 12)
2245 {
2246 asection *targetsec;
2247
2248 /* We are going to write a four byte longword into the runtime
2249 reloc section. The longword will be the address in the data
2250 section which must be relocated. It is followed by the name
2251 of the target section NUL-padded or truncated to 8
2252 characters. */
2253
2254 /* We can only relocate absolute longword relocs at run time. */
2255 if (ELF32_R_TYPE (irel->r_info) != (int) R_68K_32)
2256 {
2257 *errmsg = _("unsupported reloc type");
2258 bfd_set_error (bfd_error_bad_value);
2259 goto error_return;
2260 }
2261
2262 /* Get the target section referred to by the reloc. */
2263 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2264 {
2265 Elf_Internal_Sym isym;
2266
2267 /* A local symbol. */
2268 bfd_elf32_swap_symbol_in (abfd,
2269 extsyms + ELF32_R_SYM (irel->r_info),
2270 &isym);
2271
2272 targetsec = bfd_section_from_elf_index (abfd, isym.st_shndx);
2273 }
2274 else
2275 {
2276 unsigned long indx;
2277 struct elf_link_hash_entry *h;
2278
2279 /* An external symbol. */
2280 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2281 h = elf_sym_hashes (abfd)[indx];
2282 BFD_ASSERT (h != NULL);
2283 if (h->root.type == bfd_link_hash_defined
2284 || h->root.type == bfd_link_hash_defweak)
2285 targetsec = h->root.u.def.section;
2286 else
2287 targetsec = NULL;
2288 }
2289
2290 bfd_put_32 (abfd, irel->r_offset + datasec->output_offset, p);
2291 memset (p + 4, 0, 8);
2292 if (targetsec != NULL)
2293 strncpy (p + 4, targetsec->output_section->name, 8);
2294 }
c3668558 2295
0752970e
NC		 2296 if (free_extsyms != NULL)
2297 free (free_extsyms);
2298 if (free_relocs != NULL)
2299 free (free_relocs);
2300 return true;
2301
2302error_return:
2303 if (free_extsyms != NULL)
2304 free (free_extsyms);
2305 if (free_relocs != NULL)
2306 free (free_relocs);
2307 return false;
2308}
2309
aa91b392 2310static enum elf_reloc_type_class
f51e552e
AM		 2311elf32_m68k_reloc_type_class (rela)
2312 const Elf_Internal_Rela *rela;
aa91b392 2313{
f51e552e 2314 switch ((int) ELF32_R_TYPE (rela->r_info))
aa91b392
AS		 2315 {
2316 case R_68K_RELATIVE:
2317 return reloc_class_relative;
2318 case R_68K_JMP_SLOT:
2319 return reloc_class_plt;
2320 case R_68K_COPY:
2321 return reloc_class_copy;
2322 default:
2323 return reloc_class_normal;
2324 }
2325}
2326
252b5132
RH		 2327#define TARGET_BIG_SYM bfd_elf32_m68k_vec
2328#define TARGET_BIG_NAME "elf32-m68k"
2329#define ELF_MACHINE_CODE EM_68K
2330#define ELF_MAXPAGESIZE 0x2000
2331#define elf_backend_create_dynamic_sections \
2332 _bfd_elf_create_dynamic_sections
2333#define bfd_elf32_bfd_link_hash_table_create \
2334 elf_m68k_link_hash_table_create
2335#define bfd_elf32_bfd_final_link _bfd_elf32_gc_common_final_link
2336
2337#define elf_backend_check_relocs elf_m68k_check_relocs
2338#define elf_backend_adjust_dynamic_symbol \
2339 elf_m68k_adjust_dynamic_symbol
2340#define elf_backend_size_dynamic_sections \
2341 elf_m68k_size_dynamic_sections
2342#define elf_backend_relocate_section elf_m68k_relocate_section
2343#define elf_backend_finish_dynamic_symbol \
2344 elf_m68k_finish_dynamic_symbol
2345#define elf_backend_finish_dynamic_sections \
2346 elf_m68k_finish_dynamic_sections
2347#define elf_backend_gc_mark_hook elf_m68k_gc_mark_hook
2348#define elf_backend_gc_sweep_hook elf_m68k_gc_sweep_hook
9e1281c7
CM		 2349#define bfd_elf32_bfd_copy_private_bfd_data \
2350 elf32_m68k_copy_private_bfd_data
2351#define bfd_elf32_bfd_merge_private_bfd_data \
2352 elf32_m68k_merge_private_bfd_data
2353#define bfd_elf32_bfd_set_private_flags \
2354 elf32_m68k_set_private_flags
2355#define bfd_elf32_bfd_print_private_bfd_data \
2356 elf32_m68k_print_private_bfd_data
aa91b392 2357#define elf_backend_reloc_type_class elf32_m68k_reloc_type_class
9e1281c7 2358
252b5132
RH		 2359#define elf_backend_can_gc_sections 1
2360#define elf_backend_want_got_plt 1
2361#define elf_backend_plt_readonly 1
2362#define elf_backend_want_plt_sym 0
2363#define elf_backend_got_header_size 12
252b5132
RH		 2364
2365#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.197755 seconds and 4 git commands to generate.