?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* opncls.c (bfd_fopen): New API.
[binutils.git] / bfd / elf-m10300.c
blobc78f04069ec3250b526dacaf431357c33e57bc48
1 /* Matsushita 10300 specific support for 32-bit ELF
2 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
3 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
20
21 #include "bfd.h"
22 #include "sysdep.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/mn10300.h"
26
27 static bfd_reloc_status_type mn10300_elf_final_link_relocate
28 PARAMS ((reloc_howto_type *, bfd *, bfd *, asection *, bfd_byte *,
29 bfd_vma, bfd_vma, bfd_vma,
30 struct elf_link_hash_entry *, unsigned long, struct bfd_link_info *,
31 asection *, int));
32 static bfd_boolean mn10300_elf_relocate_section
33 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
34 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
35 static bfd_boolean mn10300_elf_relax_section
36 PARAMS ((bfd *, asection *, struct bfd_link_info *, bfd_boolean *));
37 static bfd_byte * mn10300_elf_get_relocated_section_contents
38 PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *,
39 bfd_byte *, bfd_boolean, asymbol **));
40 static unsigned long elf_mn10300_mach
41 PARAMS ((flagword));
42 void _bfd_mn10300_elf_final_write_processing
43 PARAMS ((bfd *, bfd_boolean));
44 bfd_boolean _bfd_mn10300_elf_object_p
45 PARAMS ((bfd *));
46 bfd_boolean _bfd_mn10300_elf_merge_private_bfd_data
47 PARAMS ((bfd *,bfd *));
48
49 /* The mn10300 linker needs to keep track of the number of relocs that
50 it decides to copy in check_relocs for each symbol. This is so
51 that it can discard PC relative relocs if it doesn't need them when
52 linking with -Bsymbolic. We store the information in a field
53 extending the regular ELF linker hash table. */
54
55 struct elf32_mn10300_link_hash_entry {
56 /* The basic elf link hash table entry. */
57 struct elf_link_hash_entry root;
58
59 /* For function symbols, the number of times this function is
60 called directly (ie by name). */
61 unsigned int direct_calls;
62
63 /* For function symbols, the size of this function's stack
64 (if <= 255 bytes). We stuff this into "call" instructions
65 to this target when it's valid and profitable to do so.
66
67 This does not include stack allocated by movm! */
68 unsigned char stack_size;
69
70 /* For function symbols, arguments (if any) for movm instruction
71 in the prologue. We stuff this value into "call" instructions
72 to the target when it's valid and profitable to do so. */
73 unsigned char movm_args;
74
75 /* For function symbols, the amount of stack space that would be allocated
76 by the movm instruction. This is redundant with movm_args, but we
77 add it to the hash table to avoid computing it over and over. */
78 unsigned char movm_stack_size;
79
80 /* When set, convert all "call" instructions to this target into "calls"
81 instructions. */
82 #define MN10300_CONVERT_CALL_TO_CALLS 0x1
83
84 /* Used to mark functions which have had redundant parts of their
85 prologue deleted. */
86 #define MN10300_DELETED_PROLOGUE_BYTES 0x2
87 unsigned char flags;
88 };
89
90 /* We derive a hash table from the main elf linker hash table so
91 we can store state variables and a secondary hash table without
92 resorting to global variables. */
93 struct elf32_mn10300_link_hash_table {
94 /* The main hash table. */
95 struct elf_link_hash_table root;
96
97 /* A hash table for static functions. We could derive a new hash table
98 instead of using the full elf32_mn10300_link_hash_table if we wanted
99 to save some memory. */
100 struct elf32_mn10300_link_hash_table *static_hash_table;
101
102 /* Random linker state flags. */
103 #define MN10300_HASH_ENTRIES_INITIALIZED 0x1
104 char flags;
105 };
106
107 /* For MN10300 linker hash table. */
108
109 /* Get the MN10300 ELF linker hash table from a link_info structure. */
110
111 #define elf32_mn10300_hash_table(p) \
112 ((struct elf32_mn10300_link_hash_table *) ((p)->hash))
113
114 #define elf32_mn10300_link_hash_traverse(table, func, info) \
115 (elf_link_hash_traverse \
116 (&(table)->root, \
117 (bfd_boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \
118 (info)))
119
120 static struct bfd_hash_entry *elf32_mn10300_link_hash_newfunc
121 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
122 static struct bfd_link_hash_table *elf32_mn10300_link_hash_table_create
123 PARAMS ((bfd *));
124 static void elf32_mn10300_link_hash_table_free
125 PARAMS ((struct bfd_link_hash_table *));
126
127 static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
128 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
129 static void mn10300_info_to_howto
130 PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
131 static bfd_boolean mn10300_elf_check_relocs
132 PARAMS ((bfd *, struct bfd_link_info *, asection *,
133 const Elf_Internal_Rela *));
134 static asection *mn10300_elf_gc_mark_hook
135 PARAMS ((asection *, struct bfd_link_info *info, Elf_Internal_Rela *,
136 struct elf_link_hash_entry *, Elf_Internal_Sym *));
137 static bfd_boolean mn10300_elf_relax_delete_bytes
138 PARAMS ((bfd *, asection *, bfd_vma, int));
139 static bfd_boolean mn10300_elf_symbol_address_p
140 PARAMS ((bfd *, asection *, Elf_Internal_Sym *, bfd_vma));
141 static bfd_boolean elf32_mn10300_finish_hash_table_entry
142 PARAMS ((struct bfd_hash_entry *, PTR));
143 static void compute_function_info
144 PARAMS ((bfd *, struct elf32_mn10300_link_hash_entry *,
145 bfd_vma, unsigned char *));
146
147 static bfd_boolean _bfd_mn10300_elf_create_got_section
148 PARAMS ((bfd *, struct bfd_link_info *));
149 static bfd_boolean _bfd_mn10300_elf_create_dynamic_sections
150 PARAMS ((bfd *, struct bfd_link_info *));
151 static bfd_boolean _bfd_mn10300_elf_adjust_dynamic_symbol
152 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
153 static bfd_boolean _bfd_mn10300_elf_size_dynamic_sections
154 PARAMS ((bfd *, struct bfd_link_info *));
155 static bfd_boolean _bfd_mn10300_elf_finish_dynamic_symbol
156 PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *,
157 Elf_Internal_Sym *));
158 static bfd_boolean _bfd_mn10300_elf_finish_dynamic_sections
159 PARAMS ((bfd *, struct bfd_link_info *));
160
161 static reloc_howto_type elf_mn10300_howto_table[] = {
162 /* Dummy relocation. Does nothing. */
163 HOWTO (R_MN10300_NONE,
164 0,
165 2,
166 16,
167 FALSE,
168 0,
169 complain_overflow_bitfield,
170 bfd_elf_generic_reloc,
171 "R_MN10300_NONE",
172 FALSE,
173 0,
174 0,
175 FALSE),
176 /* Standard 32 bit reloc. */
177 HOWTO (R_MN10300_32,
178 0,
179 2,
180 32,
181 FALSE,
182 0,
183 complain_overflow_bitfield,
184 bfd_elf_generic_reloc,
185 "R_MN10300_32",
186 FALSE,
187 0xffffffff,
188 0xffffffff,
189 FALSE),
190 /* Standard 16 bit reloc. */
191 HOWTO (R_MN10300_16,
192 0,
193 1,
194 16,
195 FALSE,
196 0,
197 complain_overflow_bitfield,
198 bfd_elf_generic_reloc,
199 "R_MN10300_16",
200 FALSE,
201 0xffff,
202 0xffff,
203 FALSE),
204 /* Standard 8 bit reloc. */
205 HOWTO (R_MN10300_8,
206 0,
207 0,
208 8,
209 FALSE,
210 0,
211 complain_overflow_bitfield,
212 bfd_elf_generic_reloc,
213 "R_MN10300_8",
214 FALSE,
215 0xff,
216 0xff,
217 FALSE),
218 /* Standard 32bit pc-relative reloc. */
219 HOWTO (R_MN10300_PCREL32,
220 0,
221 2,
222 32,
223 TRUE,
224 0,
225 complain_overflow_bitfield,
226 bfd_elf_generic_reloc,
227 "R_MN10300_PCREL32",
228 FALSE,
229 0xffffffff,
230 0xffffffff,
231 TRUE),
232 /* Standard 16bit pc-relative reloc. */
233 HOWTO (R_MN10300_PCREL16,
234 0,
235 1,
236 16,
237 TRUE,
238 0,
239 complain_overflow_bitfield,
240 bfd_elf_generic_reloc,
241 "R_MN10300_PCREL16",
242 FALSE,
243 0xffff,
244 0xffff,
245 TRUE),
246 /* Standard 8 pc-relative reloc. */
247 HOWTO (R_MN10300_PCREL8,
248 0,
249 0,
250 8,
251 TRUE,
252 0,
253 complain_overflow_bitfield,
254 bfd_elf_generic_reloc,
255 "R_MN10300_PCREL8",
256 FALSE,
257 0xff,
258 0xff,
259 TRUE),
260
261 /* GNU extension to record C++ vtable hierarchy */
262 HOWTO (R_MN10300_GNU_VTINHERIT, /* type */
263 0, /* rightshift */
264 0, /* size (0 = byte, 1 = short, 2 = long) */
265 0, /* bitsize */
266 FALSE, /* pc_relative */
267 0, /* bitpos */
268 complain_overflow_dont, /* complain_on_overflow */
269 NULL, /* special_function */
270 "R_MN10300_GNU_VTINHERIT", /* name */
271 FALSE, /* partial_inplace */
272 0, /* src_mask */
273 0, /* dst_mask */
274 FALSE), /* pcrel_offset */
275
276 /* GNU extension to record C++ vtable member usage */
277 HOWTO (R_MN10300_GNU_VTENTRY, /* type */
278 0, /* rightshift */
279 0, /* size (0 = byte, 1 = short, 2 = long) */
280 0, /* bitsize */
281 FALSE, /* pc_relative */
282 0, /* bitpos */
283 complain_overflow_dont, /* complain_on_overflow */
284 NULL, /* special_function */
285 "R_MN10300_GNU_VTENTRY", /* name */
286 FALSE, /* partial_inplace */
287 0, /* src_mask */
288 0, /* dst_mask */
289 FALSE), /* pcrel_offset */
290
291 /* Standard 24 bit reloc. */
292 HOWTO (R_MN10300_24,
293 0,
294 2,
295 24,
296 FALSE,
297 0,
298 complain_overflow_bitfield,
299 bfd_elf_generic_reloc,
300 "R_MN10300_24",
301 FALSE,
302 0xffffff,
303 0xffffff,
304 FALSE),
305 HOWTO (R_MN10300_GOTPC32, /* type */
306 0, /* rightshift */
307 2, /* size (0 = byte, 1 = short, 2 = long) */
308 32, /* bitsize */
309 TRUE, /* pc_relative */
310 0, /* bitpos */
311 complain_overflow_bitfield, /* complain_on_overflow */
312 bfd_elf_generic_reloc, /* */
313 "R_MN10300_GOTPC32", /* name */
314 FALSE, /* partial_inplace */
315 0xffffffff, /* src_mask */
316 0xffffffff, /* dst_mask */
317 TRUE), /* pcrel_offset */
318
319 HOWTO (R_MN10300_GOTPC16, /* type */
320 0, /* rightshift */
321 1, /* size (0 = byte, 1 = short, 2 = long) */
322 16, /* bitsize */
323 TRUE, /* pc_relative */
324 0, /* bitpos */
325 complain_overflow_bitfield, /* complain_on_overflow */
326 bfd_elf_generic_reloc, /* */
327 "R_MN10300_GOTPC16", /* name */
328 FALSE, /* partial_inplace */
329 0xffff, /* src_mask */
330 0xffff, /* dst_mask */
331 TRUE), /* pcrel_offset */
332
333 HOWTO (R_MN10300_GOTOFF32, /* type */
334 0, /* rightshift */
335 2, /* size (0 = byte, 1 = short, 2 = long) */
336 32, /* bitsize */
337 FALSE, /* pc_relative */
338 0, /* bitpos */
339 complain_overflow_bitfield, /* complain_on_overflow */
340 bfd_elf_generic_reloc, /* */
341 "R_MN10300_GOTOFF32", /* name */
342 FALSE, /* partial_inplace */
343 0xffffffff, /* src_mask */
344 0xffffffff, /* dst_mask */
345 FALSE), /* pcrel_offset */
346
347 HOWTO (R_MN10300_GOTOFF24, /* type */
348 0, /* rightshift */
349 2, /* size (0 = byte, 1 = short, 2 = long) */
350 24, /* bitsize */
351 FALSE, /* pc_relative */
352 0, /* bitpos */
353 complain_overflow_bitfield, /* complain_on_overflow */
354 bfd_elf_generic_reloc, /* */
355 "R_MN10300_GOTOFF24", /* name */
356 FALSE, /* partial_inplace */
357 0xffffff, /* src_mask */
358 0xffffff, /* dst_mask */
359 FALSE), /* pcrel_offset */
360
361 HOWTO (R_MN10300_GOTOFF16, /* type */
362 0, /* rightshift */
363 1, /* size (0 = byte, 1 = short, 2 = long) */
364 16, /* bitsize */
365 FALSE, /* pc_relative */
366 0, /* bitpos */
367 complain_overflow_bitfield, /* complain_on_overflow */
368 bfd_elf_generic_reloc, /* */
369 "R_MN10300_GOTOFF16", /* name */
370 FALSE, /* partial_inplace */
371 0xffff, /* src_mask */
372 0xffff, /* dst_mask */
373 FALSE), /* pcrel_offset */
374
375 HOWTO (R_MN10300_PLT32, /* type */
376 0, /* rightshift */
377 2, /* size (0 = byte, 1 = short, 2 = long) */
378 32, /* bitsize */
379 TRUE, /* pc_relative */
380 0, /* bitpos */
381 complain_overflow_bitfield, /* complain_on_overflow */
382 bfd_elf_generic_reloc, /* */
383 "R_MN10300_PLT32", /* name */
384 FALSE, /* partial_inplace */
385 0xffffffff, /* src_mask */
386 0xffffffff, /* dst_mask */
387 TRUE), /* pcrel_offset */
388
389 HOWTO (R_MN10300_PLT16, /* type */
390 0, /* rightshift */
391 1, /* size (0 = byte, 1 = short, 2 = long) */
392 16, /* bitsize */
393 TRUE, /* pc_relative */
394 0, /* bitpos */
395 complain_overflow_bitfield, /* complain_on_overflow */
396 bfd_elf_generic_reloc, /* */
397 "R_MN10300_PLT16", /* name */
398 FALSE, /* partial_inplace */
399 0xffff, /* src_mask */
400 0xffff, /* dst_mask */
401 TRUE), /* pcrel_offset */
402
403 HOWTO (R_MN10300_GOT32, /* type */
404 0, /* rightshift */
405 2, /* size (0 = byte, 1 = short, 2 = long) */
406 32, /* bitsize */
407 FALSE, /* pc_relative */
408 0, /* bitpos */
409 complain_overflow_bitfield, /* complain_on_overflow */
410 bfd_elf_generic_reloc, /* */
411 "R_MN10300_GOT32", /* name */
412 FALSE, /* partial_inplace */
413 0xffffffff, /* src_mask */
414 0xffffffff, /* dst_mask */
415 FALSE), /* pcrel_offset */
416
417 HOWTO (R_MN10300_GOT24, /* type */
418 0, /* rightshift */
419 2, /* size (0 = byte, 1 = short, 2 = long) */
420 24, /* bitsize */
421 FALSE, /* pc_relative */
422 0, /* bitpos */
423 complain_overflow_bitfield, /* complain_on_overflow */
424 bfd_elf_generic_reloc, /* */
425 "R_MN10300_GOT24", /* name */
426 FALSE, /* partial_inplace */
427 0xffffffff, /* src_mask */
428 0xffffffff, /* dst_mask */
429 FALSE), /* pcrel_offset */
430
431 HOWTO (R_MN10300_GOT16, /* type */
432 0, /* rightshift */
433 1, /* size (0 = byte, 1 = short, 2 = long) */
434 16, /* bitsize */
435 FALSE, /* pc_relative */
436 0, /* bitpos */
437 complain_overflow_bitfield, /* complain_on_overflow */
438 bfd_elf_generic_reloc, /* */
439 "R_MN10300_GOT16", /* name */
440 FALSE, /* partial_inplace */
441 0xffffffff, /* src_mask */
442 0xffffffff, /* dst_mask */
443 FALSE), /* pcrel_offset */
444
445 HOWTO (R_MN10300_COPY, /* type */
446 0, /* rightshift */
447 2, /* size (0 = byte, 1 = short, 2 = long) */
448 32, /* bitsize */
449 FALSE, /* pc_relative */
450 0, /* bitpos */
451 complain_overflow_bitfield, /* complain_on_overflow */
452 bfd_elf_generic_reloc, /* */
453 "R_MN10300_COPY", /* name */
454 FALSE, /* partial_inplace */
455 0xffffffff, /* src_mask */
456 0xffffffff, /* dst_mask */
457 FALSE), /* pcrel_offset */
458
459 HOWTO (R_MN10300_GLOB_DAT, /* type */
460 0, /* rightshift */
461 2, /* size (0 = byte, 1 = short, 2 = long) */
462 32, /* bitsize */
463 FALSE, /* pc_relative */
464 0, /* bitpos */
465 complain_overflow_bitfield, /* complain_on_overflow */
466 bfd_elf_generic_reloc, /* */
467 "R_MN10300_GLOB_DAT", /* name */
468 FALSE, /* partial_inplace */
469 0xffffffff, /* src_mask */
470 0xffffffff, /* dst_mask */
471 FALSE), /* pcrel_offset */
472
473 HOWTO (R_MN10300_JMP_SLOT, /* type */
474 0, /* rightshift */
475 2, /* size (0 = byte, 1 = short, 2 = long) */
476 32, /* bitsize */
477 FALSE, /* pc_relative */
478 0, /* bitpos */
479 complain_overflow_bitfield, /* complain_on_overflow */
480 bfd_elf_generic_reloc, /* */
481 "R_MN10300_JMP_SLOT", /* name */
482 FALSE, /* partial_inplace */
483 0xffffffff, /* src_mask */
484 0xffffffff, /* dst_mask */
485 FALSE), /* pcrel_offset */
486
487 HOWTO (R_MN10300_RELATIVE, /* type */
488 0, /* rightshift */
489 2, /* size (0 = byte, 1 = short, 2 = long) */
490 32, /* bitsize */
491 FALSE, /* pc_relative */
492 0, /* bitpos */
493 complain_overflow_bitfield, /* complain_on_overflow */
494 bfd_elf_generic_reloc, /* */
495 "R_MN10300_RELATIVE", /* name */
496 FALSE, /* partial_inplace */
497 0xffffffff, /* src_mask */
498 0xffffffff, /* dst_mask */
499 FALSE), /* pcrel_offset */
500
501 };
502
503 struct mn10300_reloc_map {
504 bfd_reloc_code_real_type bfd_reloc_val;
505 unsigned char elf_reloc_val;
506 };
507
508 static const struct mn10300_reloc_map mn10300_reloc_map[] = {
509 { BFD_RELOC_NONE, R_MN10300_NONE, },
510 { BFD_RELOC_32, R_MN10300_32, },
511 { BFD_RELOC_16, R_MN10300_16, },
512 { BFD_RELOC_8, R_MN10300_8, },
513 { BFD_RELOC_32_PCREL, R_MN10300_PCREL32, },
514 { BFD_RELOC_16_PCREL, R_MN10300_PCREL16, },
515 { BFD_RELOC_8_PCREL, R_MN10300_PCREL8, },
516 { BFD_RELOC_24, R_MN10300_24, },
517 { BFD_RELOC_VTABLE_INHERIT, R_MN10300_GNU_VTINHERIT },
518 { BFD_RELOC_VTABLE_ENTRY, R_MN10300_GNU_VTENTRY },
519 { BFD_RELOC_32_GOT_PCREL, R_MN10300_GOTPC32 },
520 { BFD_RELOC_16_GOT_PCREL, R_MN10300_GOTPC16 },
521 { BFD_RELOC_32_GOTOFF, R_MN10300_GOTOFF32 },
522 { BFD_RELOC_MN10300_GOTOFF24, R_MN10300_GOTOFF24 },
523 { BFD_RELOC_16_GOTOFF, R_MN10300_GOTOFF16 },
524 { BFD_RELOC_32_PLT_PCREL, R_MN10300_PLT32 },
525 { BFD_RELOC_16_PLT_PCREL, R_MN10300_PLT16 },
526 { BFD_RELOC_MN10300_GOT32, R_MN10300_GOT32 },
527 { BFD_RELOC_MN10300_GOT24, R_MN10300_GOT24 },
528 { BFD_RELOC_MN10300_GOT16, R_MN10300_GOT16 },
529 { BFD_RELOC_MN10300_COPY, R_MN10300_COPY },
530 { BFD_RELOC_MN10300_GLOB_DAT, R_MN10300_GLOB_DAT },
531 { BFD_RELOC_MN10300_JMP_SLOT, R_MN10300_JMP_SLOT },
532 { BFD_RELOC_MN10300_RELATIVE, R_MN10300_RELATIVE },
533 };
534
535 /* Create the GOT section. */
536
537 static bfd_boolean
538 _bfd_mn10300_elf_create_got_section (abfd, info)
539 bfd * abfd;
540 struct bfd_link_info * info;
541 {
542 flagword flags;
543 flagword pltflags;
544 asection * s;
545 struct bfd_link_hash_entry * bh;
546 struct elf_link_hash_entry * h;
547 const struct elf_backend_data * bed = get_elf_backend_data (abfd);
548 int ptralign;
549
550 /* This function may be called more than once. */
551 if (bfd_get_section_by_name (abfd, ".got") != NULL)
552 return TRUE;
553
554 switch (bed->s->arch_size)
555 {
556 case 32:
557 ptralign = 2;
558 break;
559
560 case 64:
561 ptralign = 3;
562 break;
563
564 default:
565 bfd_set_error (bfd_error_bad_value);
566 return FALSE;
567 }
568
569 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
570 | SEC_LINKER_CREATED);
571
572 pltflags = flags;
573 pltflags |= SEC_CODE;
574 if (bed->plt_not_loaded)
575 pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
576 if (bed->plt_readonly)
577 pltflags |= SEC_READONLY;
578
579 s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
580 if (s == NULL
581 || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
582 return FALSE;
583
584 if (bed->want_plt_sym)
585 {
586 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
587 .plt section. */
588 bh = NULL;
589 if (! (_bfd_generic_link_add_one_symbol
590 (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s,
591 (bfd_vma) 0, (const char *) NULL, FALSE,
592 get_elf_backend_data (abfd)->collect, &bh)))
593 return FALSE;
594 h = (struct elf_link_hash_entry *) bh;
595 h->def_regular = 1;
596 h->type = STT_OBJECT;
597
598 if (info->shared
599 && ! bfd_elf_link_record_dynamic_symbol (info, h))
600 return FALSE;
601 }
602
603 s = bfd_make_section_with_flags (abfd, ".got", flags);
604 if (s == NULL
605 || ! bfd_set_section_alignment (abfd, s, ptralign))
606 return FALSE;
607
608 if (bed->want_got_plt)
609 {
610 s = bfd_make_section_with_flags (abfd, ".got.plt", flags);
611 if (s == NULL
612 || ! bfd_set_section_alignment (abfd, s, ptralign))
613 return FALSE;
614 }
615
616 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
617 (or .got.plt) section. We don't do this in the linker script
618 because we don't want to define the symbol if we are not creating
619 a global offset table. */
620 bh = NULL;
621 if (!(_bfd_generic_link_add_one_symbol
622 (info, abfd, "_GLOBAL_OFFSET_TABLE_", BSF_GLOBAL, s,
623 0, (const char *) NULL, FALSE, bed->collect, &bh)))
624 return FALSE;
625 h = (struct elf_link_hash_entry *) bh;
626 h->def_regular = 1;
627 h->type = STT_OBJECT;
628
629 if (info->shared
630 && ! bfd_elf_link_record_dynamic_symbol (info, h))
631 return FALSE;
632
633 elf_hash_table (info)->hgot = h;
634
635 /* The first bit of the global offset table is the header. */
636 s->size += bed->got_header_size;
637
638 return TRUE;
639 }
640
641 static reloc_howto_type *
642 bfd_elf32_bfd_reloc_type_lookup (abfd, code)
643 bfd *abfd ATTRIBUTE_UNUSED;
644 bfd_reloc_code_real_type code;
645 {
646 unsigned int i;
647
648 for (i = 0;
649 i < sizeof (mn10300_reloc_map) / sizeof (struct mn10300_reloc_map);
650 i++)
651 {
652 if (mn10300_reloc_map[i].bfd_reloc_val == code)
653 return &elf_mn10300_howto_table[mn10300_reloc_map[i].elf_reloc_val];
654 }
655
656 return NULL;
657 }
658
659 /* Set the howto pointer for an MN10300 ELF reloc. */
660
661 static void
662 mn10300_info_to_howto (abfd, cache_ptr, dst)
663 bfd *abfd ATTRIBUTE_UNUSED;
664 arelent *cache_ptr;
665 Elf_Internal_Rela *dst;
666 {
667 unsigned int r_type;
668
669 r_type = ELF32_R_TYPE (dst->r_info);
670 BFD_ASSERT (r_type < (unsigned int) R_MN10300_MAX);
671 cache_ptr->howto = &elf_mn10300_howto_table[r_type];
672 }
673
674 /* Look through the relocs for a section during the first phase.
675 Since we don't do .gots or .plts, we just need to consider the
676 virtual table relocs for gc. */
677
678 static bfd_boolean
679 mn10300_elf_check_relocs (abfd, info, sec, relocs)
680 bfd *abfd;
681 struct bfd_link_info *info;
682 asection *sec;
683 const Elf_Internal_Rela *relocs;
684 {
685 Elf_Internal_Shdr *symtab_hdr;
686 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
687 const Elf_Internal_Rela *rel;
688 const Elf_Internal_Rela *rel_end;
689 bfd * dynobj;
690 bfd_vma * local_got_offsets;
691 asection * sgot;
692 asection * srelgot;
693 asection * sreloc;
694
695 sgot = NULL;
696 srelgot = NULL;
697 sreloc = NULL;
698
699 if (info->relocatable)
700 return TRUE;
701
702 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
703 sym_hashes = elf_sym_hashes (abfd);
704 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
705 if (!elf_bad_symtab (abfd))
706 sym_hashes_end -= symtab_hdr->sh_info;
707
708 dynobj = elf_hash_table (info)->dynobj;
709 local_got_offsets = elf_local_got_offsets (abfd);
710 rel_end = relocs + sec->reloc_count;
711 for (rel = relocs; rel < rel_end; rel++)
712 {
713 struct elf_link_hash_entry *h;
714 unsigned long r_symndx;
715
716 r_symndx = ELF32_R_SYM (rel->r_info);
717 if (r_symndx < symtab_hdr->sh_info)
718 h = NULL;
719 else
720 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
721
722 /* Some relocs require a global offset table. */
723 if (dynobj == NULL)
724 {
725 switch (ELF32_R_TYPE (rel->r_info))
726 {
727 case R_MN10300_GOT32:
728 case R_MN10300_GOT24:
729 case R_MN10300_GOT16:
730 case R_MN10300_GOTOFF32:
731 case R_MN10300_GOTOFF24:
732 case R_MN10300_GOTOFF16:
733 case R_MN10300_GOTPC32:
734 case R_MN10300_GOTPC16:
735 elf_hash_table (info)->dynobj = dynobj = abfd;
736 if (! _bfd_mn10300_elf_create_got_section (dynobj, info))
737 return FALSE;
738 break;
739
740 default:
741 break;
742 }
743 }
744
745 switch (ELF32_R_TYPE (rel->r_info))
746 {
747 /* This relocation describes the C++ object vtable hierarchy.
748 Reconstruct it for later use during GC. */
749 case R_MN10300_GNU_VTINHERIT:
750 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
751 return FALSE;
752 break;
753
754 /* This relocation describes which C++ vtable entries are actually
755 used. Record for later use during GC. */
756 case R_MN10300_GNU_VTENTRY:
757 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
758 return FALSE;
759 break;
760 case R_MN10300_GOT32:
761 case R_MN10300_GOT24:
762 case R_MN10300_GOT16:
763 /* This symbol requires a global offset table entry. */
764
765 if (sgot == NULL)
766 {
767 sgot = bfd_get_section_by_name (dynobj, ".got");
768 BFD_ASSERT (sgot != NULL);
769 }
770
771 if (srelgot == NULL
772 && (h != NULL || info->shared))
773 {
774 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
775 if (srelgot == NULL)
776 {
777 srelgot = bfd_make_section_with_flags (dynobj,
778 ".rela.got",
779 (SEC_ALLOC
780 | SEC_LOAD
781 | SEC_HAS_CONTENTS
782 | SEC_IN_MEMORY
783 | SEC_LINKER_CREATED
784 | SEC_READONLY));
785 if (srelgot == NULL
786 || ! bfd_set_section_alignment (dynobj, srelgot, 2))
787 return FALSE;
788 }
789 }
790
791 if (h != NULL)
792 {
793 if (h->got.offset != (bfd_vma) -1)
794 /* We have already allocated space in the .got. */
795 break;
796
797 h->got.offset = sgot->size;
798
799 /* Make sure this symbol is output as a dynamic symbol. */
800 if (h->dynindx == -1)
801 {
802 if (! bfd_elf_link_record_dynamic_symbol (info, h))
803 return FALSE;
804 }
805
806 srelgot->size += sizeof (Elf32_External_Rela);
807 }
808 else
809 {
810 /* This is a global offset table entry for a local
811 symbol. */
812 if (local_got_offsets == NULL)
813 {
814 size_t size;
815 unsigned int i;
816
817 size = symtab_hdr->sh_info * sizeof (bfd_vma);
818 local_got_offsets = (bfd_vma *) bfd_alloc (abfd, size);
819
820 if (local_got_offsets == NULL)
821 return FALSE;
822 elf_local_got_offsets (abfd) = local_got_offsets;
823
824 for (i = 0; i < symtab_hdr->sh_info; i++)
825 local_got_offsets[i] = (bfd_vma) -1;
826 }
827
828 if (local_got_offsets[r_symndx] != (bfd_vma) -1)
829 /* We have already allocated space in the .got. */
830 break;
831
832 local_got_offsets[r_symndx] = sgot->size;
833
834 if (info->shared)
835 /* If we are generating a shared object, we need to
836 output a R_MN10300_RELATIVE reloc so that the dynamic
837 linker can adjust this GOT entry. */
838 srelgot->size += sizeof (Elf32_External_Rela);
839 }
840
841 sgot->size += 4;
842
843 break;
844
845 case R_MN10300_PLT32:
846 case R_MN10300_PLT16:
847 /* This symbol requires a procedure linkage table entry. We
848 actually build the entry in adjust_dynamic_symbol,
849 because this might be a case of linking PIC code which is
850 never referenced by a dynamic object, in which case we
851 don't need to generate a procedure linkage table entry
852 after all. */
853
854 /* If this is a local symbol, we resolve it directly without
855 creating a procedure linkage table entry. */
856 if (h == NULL)
857 continue;
858
859 if (ELF_ST_VISIBILITY (h->other) == STV_INTERNAL
860 || ELF_ST_VISIBILITY (h->other) == STV_HIDDEN)
861 break;
862
863 h->needs_plt = 1;
864
865 break;
866
867 case R_MN10300_24:
868 case R_MN10300_16:
869 case R_MN10300_8:
870 case R_MN10300_PCREL32:
871 case R_MN10300_PCREL16:
872 case R_MN10300_PCREL8:
873 if (h != NULL)
874 h->non_got_ref = 1;
875 break;
876
877 case R_MN10300_32:
878 if (h != NULL)
879 h->non_got_ref = 1;
880
881 /* If we are creating a shared library, then we need to copy
882 the reloc into the shared library. */
883 if (info->shared
884 && (sec->flags & SEC_ALLOC) != 0)
885 {
886 /* When creating a shared object, we must copy these
887 reloc types into the output file. We create a reloc
888 section in dynobj and make room for this reloc. */
889 if (sreloc == NULL)
890 {
891 const char * name;
892
893 name = (bfd_elf_string_from_elf_section
894 (abfd,
895 elf_elfheader (abfd)->e_shstrndx,
896 elf_section_data (sec)->rel_hdr.sh_name));
897 if (name == NULL)
898 return FALSE;
899
900 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
901 && strcmp (bfd_get_section_name (abfd, sec),
902 name + 5) == 0);
903
904 sreloc = bfd_get_section_by_name (dynobj, name);
905 if (sreloc == NULL)
906 {
907 flagword flags;
908
909 flags = (SEC_HAS_CONTENTS | SEC_READONLY
910 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
911 if ((sec->flags & SEC_ALLOC) != 0)
912 flags |= SEC_ALLOC | SEC_LOAD;
913 sreloc = bfd_make_section_with_flags (dynobj,
914 name,
915 flags);
916 if (sreloc == NULL
917 || ! bfd_set_section_alignment (dynobj, sreloc, 2))
918 return FALSE;
919 }
920 }
921
922 sreloc->size += sizeof (Elf32_External_Rela);
923 }
924
925 break;
926 }
927 }
928
929 return TRUE;
930 }
931
932 /* Return the section that should be marked against GC for a given
933 relocation. */
934
935 static asection *
936 mn10300_elf_gc_mark_hook (sec, info, rel, h, sym)
937 asection *sec;
938 struct bfd_link_info *info ATTRIBUTE_UNUSED;
939 Elf_Internal_Rela *rel;
940 struct elf_link_hash_entry *h;
941 Elf_Internal_Sym *sym;
942 {
943 if (h != NULL)
944 {
945 switch (ELF32_R_TYPE (rel->r_info))
946 {
947 case R_MN10300_GNU_VTINHERIT:
948 case R_MN10300_GNU_VTENTRY:
949 break;
950
951 default:
952 switch (h->root.type)
953 {
954 case bfd_link_hash_defined:
955 case bfd_link_hash_defweak:
956 return h->root.u.def.section;
957
958 case bfd_link_hash_common:
959 return h->root.u.c.p->section;
960
961 default:
962 break;
963 }
964 }
965 }
966 else
967 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
968
969 return NULL;
970 }
971
972 /* Perform a relocation as part of a final link. */
973 static bfd_reloc_status_type
974 mn10300_elf_final_link_relocate (howto, input_bfd, output_bfd,
975 input_section, contents, offset, value,
976 addend, h, symndx, info, sym_sec, is_local)
977 reloc_howto_type *howto;
978 bfd *input_bfd;
979 bfd *output_bfd ATTRIBUTE_UNUSED;
980 asection *input_section;
981 bfd_byte *contents;
982 bfd_vma offset;
983 bfd_vma value;
984 bfd_vma addend;
985 struct elf_link_hash_entry * h;
986 unsigned long symndx;
987 struct bfd_link_info *info;
988 asection *sym_sec ATTRIBUTE_UNUSED;
989 int is_local ATTRIBUTE_UNUSED;
990 {
991 unsigned long r_type = howto->type;
992 bfd_byte *hit_data = contents + offset;
993 bfd * dynobj;
994 bfd_vma * local_got_offsets;
995 asection * sgot;
996 asection * splt;
997 asection * sreloc;
998
999 dynobj = elf_hash_table (info)->dynobj;
1000 local_got_offsets = elf_local_got_offsets (input_bfd);
1001
1002 sgot = NULL;
1003 splt = NULL;
1004 sreloc = NULL;
1005
1006 switch (r_type)
1007 {
1008 case R_MN10300_24:
1009 case R_MN10300_16:
1010 case R_MN10300_8:
1011 case R_MN10300_PCREL8:
1012 case R_MN10300_PCREL16:
1013 case R_MN10300_PCREL32:
1014 case R_MN10300_GOTOFF32:
1015 case R_MN10300_GOTOFF24:
1016 case R_MN10300_GOTOFF16:
1017 if (info->shared
1018 && (input_section->flags & SEC_ALLOC) != 0
1019 && h != NULL
1020 && ! SYMBOL_REFERENCES_LOCAL (info, h))
1021 return bfd_reloc_dangerous;
1022 }
1023
1024 switch (r_type)
1025 {
1026 case R_MN10300_NONE:
1027 return bfd_reloc_ok;
1028
1029 case R_MN10300_32:
1030 if (info->shared
1031 && (input_section->flags & SEC_ALLOC) != 0)
1032 {
1033 Elf_Internal_Rela outrel;
1034 bfd_boolean skip, relocate;
1035
1036 /* When generating a shared object, these relocations are
1037 copied into the output file to be resolved at run
1038 time. */
1039 if (sreloc == NULL)
1040 {
1041 const char * name;
1042
1043 name = (bfd_elf_string_from_elf_section
1044 (input_bfd,
1045 elf_elfheader (input_bfd)->e_shstrndx,
1046 elf_section_data (input_section)->rel_hdr.sh_name));
1047 if (name == NULL)
1048 return FALSE;
1049
1050 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
1051 && strcmp (bfd_get_section_name (input_bfd,
1052 input_section),
1053 name + 5) == 0);
1054
1055 sreloc = bfd_get_section_by_name (dynobj, name);
1056 BFD_ASSERT (sreloc != NULL);
1057 }
1058
1059 skip = FALSE;
1060
1061 outrel.r_offset = _bfd_elf_section_offset (input_bfd, info,
1062 input_section, offset);
1063 if (outrel.r_offset == (bfd_vma) -1)
1064 skip = TRUE;
1065
1066 outrel.r_offset += (input_section->output_section->vma
1067 + input_section->output_offset);
1068
1069 if (skip)
1070 {
1071 memset (&outrel, 0, sizeof outrel);
1072 relocate = FALSE;
1073 }
1074 else
1075 {
1076 /* h->dynindx may be -1 if this symbol was marked to
1077 become local. */
1078 if (h == NULL
1079 || SYMBOL_REFERENCES_LOCAL (info, h))
1080 {
1081 relocate = TRUE;
1082 outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1083 outrel.r_addend = value + addend;
1084 }
1085 else
1086 {
1087 BFD_ASSERT (h->dynindx != -1);
1088 relocate = FALSE;
1089 outrel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_32);
1090 outrel.r_addend = value + addend;
1091 }
1092 }
1093
1094 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1095 (bfd_byte *) (((Elf32_External_Rela *) sreloc->contents)
1096 + sreloc->reloc_count));
1097 ++sreloc->reloc_count;
1098
1099 /* If this reloc is against an external symbol, we do
1100 not want to fiddle with the addend. Otherwise, we
1101 need to include the symbol value so that it becomes
1102 an addend for the dynamic reloc. */
1103 if (! relocate)
1104 return bfd_reloc_ok;
1105 }
1106 value += addend;
1107 bfd_put_32 (input_bfd, value, hit_data);
1108 return bfd_reloc_ok;
1109
1110 case R_MN10300_24:
1111 value += addend;
1112
1113 if ((long) value > 0x7fffff || (long) value < -0x800000)
1114 return bfd_reloc_overflow;
1115
1116 bfd_put_8 (input_bfd, value & 0xff, hit_data);
1117 bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1118 bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1119 return bfd_reloc_ok;
1120
1121 case R_MN10300_16:
1122 value += addend;
1123
1124 if ((long) value > 0x7fff || (long) value < -0x8000)
1125 return bfd_reloc_overflow;
1126
1127 bfd_put_16 (input_bfd, value, hit_data);
1128 return bfd_reloc_ok;
1129
1130 case R_MN10300_8:
1131 value += addend;
1132
1133 if ((long) value > 0x7f || (long) value < -0x80)
1134 return bfd_reloc_overflow;
1135
1136 bfd_put_8 (input_bfd, value, hit_data);
1137 return bfd_reloc_ok;
1138
1139 case R_MN10300_PCREL8:
1140 value -= (input_section->output_section->vma
1141 + input_section->output_offset);
1142 value -= offset;
1143 value += addend;
1144
1145 if ((long) value > 0xff || (long) value < -0x100)
1146 return bfd_reloc_overflow;
1147
1148 bfd_put_8 (input_bfd, value, hit_data);
1149 return bfd_reloc_ok;
1150
1151 case R_MN10300_PCREL16:
1152 value -= (input_section->output_section->vma
1153 + input_section->output_offset);
1154 value -= offset;
1155 value += addend;
1156
1157 if ((long) value > 0xffff || (long) value < -0x10000)
1158 return bfd_reloc_overflow;
1159
1160 bfd_put_16 (input_bfd, value, hit_data);
1161 return bfd_reloc_ok;
1162
1163 case R_MN10300_PCREL32:
1164 value -= (input_section->output_section->vma
1165 + input_section->output_offset);
1166 value -= offset;
1167 value += addend;
1168
1169 bfd_put_32 (input_bfd, value, hit_data);
1170 return bfd_reloc_ok;
1171
1172 case R_MN10300_GNU_VTINHERIT:
1173 case R_MN10300_GNU_VTENTRY:
1174 return bfd_reloc_ok;
1175
1176 case R_MN10300_GOTPC32:
1177 /* Use global offset table as symbol value. */
1178
1179 value = bfd_get_section_by_name (dynobj,
1180 ".got")->output_section->vma;
1181 value -= (input_section->output_section->vma
1182 + input_section->output_offset);
1183 value -= offset;
1184 value += addend;
1185
1186 bfd_put_32 (input_bfd, value, hit_data);
1187 return bfd_reloc_ok;
1188
1189 case R_MN10300_GOTPC16:
1190 /* Use global offset table as symbol value. */
1191
1192 value = bfd_get_section_by_name (dynobj,
1193 ".got")->output_section->vma;
1194 value -= (input_section->output_section->vma
1195 + input_section->output_offset);
1196 value -= offset;
1197 value += addend;
1198
1199 if ((long) value > 0xffff || (long) value < -0x10000)
1200 return bfd_reloc_overflow;
1201
1202 bfd_put_16 (input_bfd, value, hit_data);
1203 return bfd_reloc_ok;
1204
1205 case R_MN10300_GOTOFF32:
1206 value -= bfd_get_section_by_name (dynobj,
1207 ".got")->output_section->vma;
1208 value += addend;
1209
1210 bfd_put_32 (input_bfd, value, hit_data);
1211 return bfd_reloc_ok;
1212
1213 case R_MN10300_GOTOFF24:
1214 value -= bfd_get_section_by_name (dynobj,
1215 ".got")->output_section->vma;
1216 value += addend;
1217
1218 if ((long) value > 0x7fffff || (long) value < -0x800000)
1219 return bfd_reloc_overflow;
1220
1221 bfd_put_8 (input_bfd, value, hit_data);
1222 bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1223 bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1224 return bfd_reloc_ok;
1225
1226 case R_MN10300_GOTOFF16:
1227 value -= bfd_get_section_by_name (dynobj,
1228 ".got")->output_section->vma;
1229 value += addend;
1230
1231 if ((long) value > 0xffff || (long) value < -0x10000)
1232 return bfd_reloc_overflow;
1233
1234 bfd_put_16 (input_bfd, value, hit_data);
1235 return bfd_reloc_ok;
1236
1237 case R_MN10300_PLT32:
1238 if (h != NULL
1239 && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1240 && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1241 && h->plt.offset != (bfd_vma) -1)
1242 {
1243 asection * splt;
1244
1245 splt = bfd_get_section_by_name (dynobj, ".plt");
1246
1247 value = (splt->output_section->vma
1248 + splt->output_offset
1249 + h->plt.offset) - value;
1250 }
1251
1252 value -= (input_section->output_section->vma
1253 + input_section->output_offset);
1254 value -= offset;
1255 value += addend;
1256
1257 bfd_put_32 (input_bfd, value, hit_data);
1258 return bfd_reloc_ok;
1259
1260 case R_MN10300_PLT16:
1261 if (h != NULL
1262 && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1263 && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1264 && h->plt.offset != (bfd_vma) -1)
1265 {
1266 asection * splt;
1267
1268 splt = bfd_get_section_by_name (dynobj, ".plt");
1269
1270 value = (splt->output_section->vma
1271 + splt->output_offset
1272 + h->plt.offset) - value;
1273 }
1274
1275 value -= (input_section->output_section->vma
1276 + input_section->output_offset);
1277 value -= offset;
1278 value += addend;
1279
1280 if ((long) value > 0xffff || (long) value < -0x10000)
1281 return bfd_reloc_overflow;
1282
1283 bfd_put_16 (input_bfd, value, hit_data);
1284 return bfd_reloc_ok;
1285
1286 case R_MN10300_GOT32:
1287 case R_MN10300_GOT24:
1288 case R_MN10300_GOT16:
1289 {
1290 asection * sgot;
1291
1292 sgot = bfd_get_section_by_name (dynobj, ".got");
1293
1294 if (h != NULL)
1295 {
1296 bfd_vma off;
1297
1298 off = h->got.offset;
1299 BFD_ASSERT (off != (bfd_vma) -1);
1300
1301 if (! elf_hash_table (info)->dynamic_sections_created
1302 || SYMBOL_REFERENCES_LOCAL (info, h))
1303 /* This is actually a static link, or it is a
1304 -Bsymbolic link and the symbol is defined
1305 locally, or the symbol was forced to be local
1306 because of a version file. We must initialize
1307 this entry in the global offset table.
1308
1309 When doing a dynamic link, we create a .rela.got
1310 relocation entry to initialize the value. This
1311 is done in the finish_dynamic_symbol routine. */
1312 bfd_put_32 (output_bfd, value,
1313 sgot->contents + off);
1314
1315 value = sgot->output_offset + off;
1316 }
1317 else
1318 {
1319 bfd_vma off;
1320
1321 off = elf_local_got_offsets (input_bfd)[symndx];
1322
1323 bfd_put_32 (output_bfd, value, sgot->contents + off);
1324
1325 if (info->shared)
1326 {
1327 asection * srelgot;
1328 Elf_Internal_Rela outrel;
1329
1330 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1331 BFD_ASSERT (srelgot != NULL);
1332
1333 outrel.r_offset = (sgot->output_section->vma
1334 + sgot->output_offset
1335 + off);
1336 outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1337 outrel.r_addend = value;
1338 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1339 (bfd_byte *) (((Elf32_External_Rela *)
1340 srelgot->contents)
1341 + srelgot->reloc_count));
1342 ++ srelgot->reloc_count;
1343 }
1344
1345 value = sgot->output_offset + off;
1346 }
1347 }
1348
1349 value += addend;
1350
1351 if (r_type == R_MN10300_GOT32)
1352 {
1353 bfd_put_32 (input_bfd, value, hit_data);
1354 return bfd_reloc_ok;
1355 }
1356 else if (r_type == R_MN10300_GOT24)
1357 {
1358 if ((long) value > 0x7fffff || (long) value < -0x800000)
1359 return bfd_reloc_overflow;
1360
1361 bfd_put_8 (input_bfd, value & 0xff, hit_data);
1362 bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1363 bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1364 return bfd_reloc_ok;
1365 }
1366 else if (r_type == R_MN10300_GOT16)
1367 {
1368 if ((long) value > 0xffff || (long) value < -0x10000)
1369 return bfd_reloc_overflow;
1370
1371 bfd_put_16 (input_bfd, value, hit_data);
1372 return bfd_reloc_ok;
1373 }
1374 /* Fall through. */
1375
1376 default:
1377 return bfd_reloc_notsupported;
1378 }
1379 }
1380 \f
1381 /* Relocate an MN10300 ELF section. */
1382 static bfd_boolean
1383 mn10300_elf_relocate_section (output_bfd, info, input_bfd, input_section,
1384 contents, relocs, local_syms, local_sections)
1385 bfd *output_bfd;
1386 struct bfd_link_info *info;
1387 bfd *input_bfd;
1388 asection *input_section;
1389 bfd_byte *contents;
1390 Elf_Internal_Rela *relocs;
1391 Elf_Internal_Sym *local_syms;
1392 asection **local_sections;
1393 {
1394 Elf_Internal_Shdr *symtab_hdr;
1395 struct elf_link_hash_entry **sym_hashes;
1396 Elf_Internal_Rela *rel, *relend;
1397
1398 if (info->relocatable)
1399 return TRUE;
1400
1401 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1402 sym_hashes = elf_sym_hashes (input_bfd);
1403
1404 rel = relocs;
1405 relend = relocs + input_section->reloc_count;
1406 for (; rel < relend; rel++)
1407 {
1408 int r_type;
1409 reloc_howto_type *howto;
1410 unsigned long r_symndx;
1411 Elf_Internal_Sym *sym;
1412 asection *sec;
1413 struct elf32_mn10300_link_hash_entry *h;
1414 bfd_vma relocation;
1415 bfd_reloc_status_type r;
1416
1417 r_symndx = ELF32_R_SYM (rel->r_info);
1418 r_type = ELF32_R_TYPE (rel->r_info);
1419 howto = elf_mn10300_howto_table + r_type;
1420
1421 /* Just skip the vtable gc relocs. */
1422 if (r_type == R_MN10300_GNU_VTINHERIT
1423 || r_type == R_MN10300_GNU_VTENTRY)
1424 continue;
1425
1426 h = NULL;
1427 sym = NULL;
1428 sec = NULL;
1429 if (r_symndx < symtab_hdr->sh_info)
1430 {
1431 sym = local_syms + r_symndx;
1432 sec = local_sections[r_symndx];
1433 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1434 }
1435 else
1436 {
1437 bfd_boolean unresolved_reloc;
1438 bfd_boolean warned;
1439 struct elf_link_hash_entry *hh;
1440
1441 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1442 r_symndx, symtab_hdr, sym_hashes,
1443 hh, sec, relocation,
1444 unresolved_reloc, warned);
1445
1446 h = (struct elf32_mn10300_link_hash_entry *) hh;
1447
1448 if ((h->root.root.type == bfd_link_hash_defined
1449 || h->root.root.type == bfd_link_hash_defweak)
1450 && ( r_type == R_MN10300_GOTPC32
1451 || r_type == R_MN10300_GOTPC16
1452 || (( r_type == R_MN10300_PLT32
1453 || r_type == R_MN10300_PLT16)
1454 && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
1455 && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
1456 && h->root.plt.offset != (bfd_vma) -1)
1457 || (( r_type == R_MN10300_GOT32
1458 || r_type == R_MN10300_GOT24
1459 || r_type == R_MN10300_GOT16)
1460 && elf_hash_table (info)->dynamic_sections_created
1461 && !SYMBOL_REFERENCES_LOCAL (info, hh))
1462 || (r_type == R_MN10300_32
1463 && !SYMBOL_REFERENCES_LOCAL (info, hh)
1464 && ((input_section->flags & SEC_ALLOC) != 0
1465 /* DWARF will emit R_MN10300_32 relocations
1466 in its sections against symbols defined
1467 externally in shared libraries. We can't
1468 do anything with them here. */
1469 || ((input_section->flags & SEC_DEBUGGING) != 0
1470 && h->root.def_dynamic)))))
1471 /* In these cases, we don't need the relocation
1472 value. We check specially because in some
1473 obscure cases sec->output_section will be NULL. */
1474 relocation = 0;
1475
1476 else if (unresolved_reloc)
1477 (*_bfd_error_handler)
1478 (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
1479 bfd_get_filename (input_bfd), h->root.root.root.string,
1480 bfd_get_section_name (input_bfd, input_section));
1481 }
1482
1483 r = mn10300_elf_final_link_relocate (howto, input_bfd, output_bfd,
1484 input_section,
1485 contents, rel->r_offset,
1486 relocation, rel->r_addend,
1487 (struct elf_link_hash_entry *)h,
1488 r_symndx,
1489 info, sec, h == NULL);
1490
1491 if (r != bfd_reloc_ok)
1492 {
1493 const char *name;
1494 const char *msg = (const char *) 0;
1495
1496 if (h != NULL)
1497 name = h->root.root.root.string;
1498 else
1499 {
1500 name = (bfd_elf_string_from_elf_section
1501 (input_bfd, symtab_hdr->sh_link, sym->st_name));
1502 if (name == NULL || *name == '\0')
1503 name = bfd_section_name (input_bfd, sec);
1504 }
1505
1506 switch (r)
1507 {
1508 case bfd_reloc_overflow:
1509 if (! ((*info->callbacks->reloc_overflow)
1510 (info, (h ? &h->root.root : NULL), name,
1511 howto->name, (bfd_vma) 0, input_bfd,
1512 input_section, rel->r_offset)))
1513 return FALSE;
1514 break;
1515
1516 case bfd_reloc_undefined:
1517 if (! ((*info->callbacks->undefined_symbol)
1518 (info, name, input_bfd, input_section,
1519 rel->r_offset, TRUE)))
1520 return FALSE;
1521 break;
1522
1523 case bfd_reloc_outofrange:
1524 msg = _("internal error: out of range error");
1525 goto common_error;
1526
1527 case bfd_reloc_notsupported:
1528 msg = _("internal error: unsupported relocation error");
1529 goto common_error;
1530
1531 case bfd_reloc_dangerous:
1532 msg = _("internal error: dangerous error");
1533 goto common_error;
1534
1535 default:
1536 msg = _("internal error: unknown error");
1537 /* fall through */
1538
1539 common_error:
1540 if (!((*info->callbacks->warning)
1541 (info, msg, name, input_bfd, input_section,
1542 rel->r_offset)))
1543 return FALSE;
1544 break;
1545 }
1546 }
1547 }
1548
1549 return TRUE;
1550 }
1551
1552 /* Finish initializing one hash table entry. */
1553 static bfd_boolean
1554 elf32_mn10300_finish_hash_table_entry (gen_entry, in_args)
1555 struct bfd_hash_entry *gen_entry;
1556 PTR in_args;
1557 {
1558 struct elf32_mn10300_link_hash_entry *entry;
1559 struct bfd_link_info *link_info = (struct bfd_link_info *)in_args;
1560 unsigned int byte_count = 0;
1561
1562 entry = (struct elf32_mn10300_link_hash_entry *) gen_entry;
1563
1564 if (entry->root.root.type == bfd_link_hash_warning)
1565 entry = (struct elf32_mn10300_link_hash_entry *) entry->root.root.u.i.link;
1566
1567 /* If we already know we want to convert "call" to "calls" for calls
1568 to this symbol, then return now. */
1569 if (entry->flags == MN10300_CONVERT_CALL_TO_CALLS)
1570 return TRUE;
1571
1572 /* If there are no named calls to this symbol, or there's nothing we
1573 can move from the function itself into the "call" instruction,
1574 then note that all "call" instructions should be converted into
1575 "calls" instructions and return. If a symbol is available for
1576 dynamic symbol resolution (overridable or overriding), avoid
1577 custom calling conventions. */
1578 if (entry->direct_calls == 0
1579 || (entry->stack_size == 0 && entry->movm_args == 0)
1580 || (elf_hash_table (link_info)->dynamic_sections_created
1581 && ELF_ST_VISIBILITY (entry->root.other) != STV_INTERNAL
1582 && ELF_ST_VISIBILITY (entry->root.other) != STV_HIDDEN))
1583 {
1584 /* Make a note that we should convert "call" instructions to "calls"
1585 instructions for calls to this symbol. */
1586 entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1587 return TRUE;
1588 }
1589
1590 /* We may be able to move some instructions from the function itself into
1591 the "call" instruction. Count how many bytes we might be able to
1592 eliminate in the function itself. */
1593
1594 /* A movm instruction is two bytes. */
1595 if (entry->movm_args)
1596 byte_count += 2;
1597
1598 /* Count the insn to allocate stack space too. */
1599 if (entry->stack_size > 0)
1600 {
1601 if (entry->stack_size <= 128)
1602 byte_count += 3;
1603 else
1604 byte_count += 4;
1605 }
1606
1607 /* If using "call" will result in larger code, then turn all
1608 the associated "call" instructions into "calls" instructions. */
1609 if (byte_count < entry->direct_calls)
1610 entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1611
1612 /* This routine never fails. */
1613 return TRUE;
1614 }
1615
1616 /* This function handles relaxing for the mn10300.
1617
1618 There are quite a few relaxing opportunities available on the mn10300:
1619
1620 * calls:32 -> calls:16 2 bytes
1621 * call:32 -> call:16 2 bytes
1622
1623 * call:32 -> calls:32 1 byte
1624 * call:16 -> calls:16 1 byte
1625 * These are done anytime using "calls" would result
1626 in smaller code, or when necessary to preserve the
1627 meaning of the program.
1628
1629 * call:32 varies
1630 * call:16
1631 * In some circumstances we can move instructions
1632 from a function prologue into a "call" instruction.
1633 This is only done if the resulting code is no larger
1634 than the original code.
1635
1636 * jmp:32 -> jmp:16 2 bytes
1637 * jmp:16 -> bra:8 1 byte
1638
1639 * If the previous instruction is a conditional branch
1640 around the jump/bra, we may be able to reverse its condition
1641 and change its target to the jump's target. The jump/bra
1642 can then be deleted. 2 bytes
1643
1644 * mov abs32 -> mov abs16 1 or 2 bytes
1645
1646 * Most instructions which accept imm32 can relax to imm16 1 or 2 bytes
1647 - Most instructions which accept imm16 can relax to imm8 1 or 2 bytes
1648
1649 * Most instructions which accept d32 can relax to d16 1 or 2 bytes
1650 - Most instructions which accept d16 can relax to d8 1 or 2 bytes
1651
1652 We don't handle imm16->imm8 or d16->d8 as they're very rare
1653 and somewhat more difficult to support. */
1654
1655 static bfd_boolean
1656 mn10300_elf_relax_section (abfd, sec, link_info, again)
1657 bfd *abfd;
1658 asection *sec;
1659 struct bfd_link_info *link_info;
1660 bfd_boolean *again;
1661 {
1662 Elf_Internal_Shdr *symtab_hdr;
1663 Elf_Internal_Rela *internal_relocs = NULL;
1664 Elf_Internal_Rela *irel, *irelend;
1665 bfd_byte *contents = NULL;
1666 Elf_Internal_Sym *isymbuf = NULL;
1667 struct elf32_mn10300_link_hash_table *hash_table;
1668 asection *section = sec;
1669
1670 /* Assume nothing changes. */
1671 *again = FALSE;
1672
1673 /* We need a pointer to the mn10300 specific hash table. */
1674 hash_table = elf32_mn10300_hash_table (link_info);
1675
1676 /* Initialize fields in each hash table entry the first time through. */
1677 if ((hash_table->flags & MN10300_HASH_ENTRIES_INITIALIZED) == 0)
1678 {
1679 bfd *input_bfd;
1680
1681 /* Iterate over all the input bfds. */
1682 for (input_bfd = link_info->input_bfds;
1683 input_bfd != NULL;
1684 input_bfd = input_bfd->link_next)
1685 {
1686 /* We're going to need all the symbols for each bfd. */
1687 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1688 if (symtab_hdr->sh_info != 0)
1689 {
1690 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1691 if (isymbuf == NULL)
1692 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
1693 symtab_hdr->sh_info, 0,
1694 NULL, NULL, NULL);
1695 if (isymbuf == NULL)
1696 goto error_return;
1697 }
1698
1699 /* Iterate over each section in this bfd. */
1700 for (section = input_bfd->sections;
1701 section != NULL;
1702 section = section->next)
1703 {
1704 struct elf32_mn10300_link_hash_entry *hash;
1705 Elf_Internal_Sym *sym;
1706 asection *sym_sec = NULL;
1707 const char *sym_name;
1708 char *new_name;
1709
1710 /* If there's nothing to do in this section, skip it. */
1711 if (! (((section->flags & SEC_RELOC) != 0
1712 && section->reloc_count != 0)
1713 || (section->flags & SEC_CODE) != 0))
1714 continue;
1715
1716 /* Get cached copy of section contents if it exists. */
1717 if (elf_section_data (section)->this_hdr.contents != NULL)
1718 contents = elf_section_data (section)->this_hdr.contents;
1719 else if (section->size != 0)
1720 {
1721 /* Go get them off disk. */
1722 if (!bfd_malloc_and_get_section (input_bfd, section,
1723 &contents))
1724 goto error_return;
1725 }
1726 else
1727 contents = NULL;
1728
1729 /* If there aren't any relocs, then there's nothing to do. */
1730 if ((section->flags & SEC_RELOC) != 0
1731 && section->reloc_count != 0)
1732 {
1733
1734 /* Get a copy of the native relocations. */
1735 internal_relocs = (_bfd_elf_link_read_relocs
1736 (input_bfd, section, (PTR) NULL,
1737 (Elf_Internal_Rela *) NULL,
1738 link_info->keep_memory));
1739 if (internal_relocs == NULL)
1740 goto error_return;
1741
1742 /* Now examine each relocation. */
1743 irel = internal_relocs;
1744 irelend = irel + section->reloc_count;
1745 for (; irel < irelend; irel++)
1746 {
1747 long r_type;
1748 unsigned long r_index;
1749 unsigned char code;
1750
1751 r_type = ELF32_R_TYPE (irel->r_info);
1752 r_index = ELF32_R_SYM (irel->r_info);
1753
1754 if (r_type < 0 || r_type >= (int) R_MN10300_MAX)
1755 goto error_return;
1756
1757 /* We need the name and hash table entry of the target
1758 symbol! */
1759 hash = NULL;
1760 sym = NULL;
1761 sym_sec = NULL;
1762
1763 if (r_index < symtab_hdr->sh_info)
1764 {
1765 /* A local symbol. */
1766 Elf_Internal_Sym *isym;
1767 struct elf_link_hash_table *elftab;
1768 bfd_size_type amt;
1769
1770 isym = isymbuf + r_index;
1771 if (isym->st_shndx == SHN_UNDEF)
1772 sym_sec = bfd_und_section_ptr;
1773 else if (isym->st_shndx == SHN_ABS)
1774 sym_sec = bfd_abs_section_ptr;
1775 else if (isym->st_shndx == SHN_COMMON)
1776 sym_sec = bfd_com_section_ptr;
1777 else
1778 sym_sec
1779 = bfd_section_from_elf_index (input_bfd,
1780 isym->st_shndx);
1781
1782 sym_name
1783 = bfd_elf_string_from_elf_section (input_bfd,
1784 (symtab_hdr
1785 ->sh_link),
1786 isym->st_name);
1787
1788 /* If it isn't a function, then we don't care
1789 about it. */
1790 if (ELF_ST_TYPE (isym->st_info) != STT_FUNC)
1791 continue;
1792
1793 /* Tack on an ID so we can uniquely identify this
1794 local symbol in the global hash table. */
1795 amt = strlen (sym_name) + 10;
1796 new_name = bfd_malloc (amt);
1797 if (new_name == 0)
1798 goto error_return;
1799
1800 sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
1801 sym_name = new_name;
1802
1803 elftab = &hash_table->static_hash_table->root;
1804 hash = ((struct elf32_mn10300_link_hash_entry *)
1805 elf_link_hash_lookup (elftab, sym_name,
1806 TRUE, TRUE, FALSE));
1807 free (new_name);
1808 }
1809 else
1810 {
1811 r_index -= symtab_hdr->sh_info;
1812 hash = (struct elf32_mn10300_link_hash_entry *)
1813 elf_sym_hashes (input_bfd)[r_index];
1814 }
1815
1816 /* If this is not a "call" instruction, then we
1817 should convert "call" instructions to "calls"
1818 instructions. */
1819 code = bfd_get_8 (input_bfd,
1820 contents + irel->r_offset - 1);
1821 if (code != 0xdd && code != 0xcd)
1822 hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1823
1824 /* If this is a jump/call, then bump the
1825 direct_calls counter. Else force "call" to
1826 "calls" conversions. */
1827 if (r_type == R_MN10300_PCREL32
1828 || r_type == R_MN10300_PLT32
1829 || r_type == R_MN10300_PLT16
1830 || r_type == R_MN10300_PCREL16)
1831 hash->direct_calls++;
1832 else
1833 hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1834 }
1835 }
1836
1837 /* Now look at the actual contents to get the stack size,
1838 and a list of what registers were saved in the prologue
1839 (ie movm_args). */
1840 if ((section->flags & SEC_CODE) != 0)
1841 {
1842 Elf_Internal_Sym *isym, *isymend;
1843 unsigned int sec_shndx;
1844 struct elf_link_hash_entry **hashes;
1845 struct elf_link_hash_entry **end_hashes;
1846 unsigned int symcount;
1847
1848 sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
1849 section);
1850
1851 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1852 - symtab_hdr->sh_info);
1853 hashes = elf_sym_hashes (input_bfd);
1854 end_hashes = hashes + symcount;
1855
1856 /* Look at each function defined in this section and
1857 update info for that function. */
1858 isymend = isymbuf + symtab_hdr->sh_info;
1859 for (isym = isymbuf; isym < isymend; isym++)
1860 {
1861 if (isym->st_shndx == sec_shndx
1862 && ELF_ST_TYPE (isym->st_info) == STT_FUNC)
1863 {
1864 struct elf_link_hash_table *elftab;
1865 bfd_size_type amt;
1866 struct elf_link_hash_entry **lhashes = hashes;
1867
1868 /* Skip a local symbol if it aliases a
1869 global one. */
1870 for (; lhashes < end_hashes; lhashes++)
1871 {
1872 hash = (struct elf32_mn10300_link_hash_entry *) *lhashes;
1873 if ((hash->root.root.type == bfd_link_hash_defined
1874 || hash->root.root.type == bfd_link_hash_defweak)
1875 && hash->root.root.u.def.section == section
1876 && hash->root.type == STT_FUNC
1877 && hash->root.root.u.def.value == isym->st_value)
1878 break;
1879 }
1880 if (lhashes != end_hashes)
1881 continue;
1882
1883 if (isym->st_shndx == SHN_UNDEF)
1884 sym_sec = bfd_und_section_ptr;
1885 else if (isym->st_shndx == SHN_ABS)
1886 sym_sec = bfd_abs_section_ptr;
1887 else if (isym->st_shndx == SHN_COMMON)
1888 sym_sec = bfd_com_section_ptr;
1889 else
1890 sym_sec
1891 = bfd_section_from_elf_index (input_bfd,
1892 isym->st_shndx);
1893
1894 sym_name = (bfd_elf_string_from_elf_section
1895 (input_bfd, symtab_hdr->sh_link,
1896 isym->st_name));
1897
1898 /* Tack on an ID so we can uniquely identify this
1899 local symbol in the global hash table. */
1900 amt = strlen (sym_name) + 10;
1901 new_name = bfd_malloc (amt);
1902 if (new_name == 0)
1903 goto error_return;
1904
1905 sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
1906 sym_name = new_name;
1907
1908 elftab = &hash_table->static_hash_table->root;
1909 hash = ((struct elf32_mn10300_link_hash_entry *)
1910 elf_link_hash_lookup (elftab, sym_name,
1911 TRUE, TRUE, FALSE));
1912 free (new_name);
1913 compute_function_info (input_bfd, hash,
1914 isym->st_value, contents);
1915 }
1916 }
1917
1918 for (; hashes < end_hashes; hashes++)
1919 {
1920 hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
1921 if ((hash->root.root.type == bfd_link_hash_defined
1922 || hash->root.root.type == bfd_link_hash_defweak)
1923 && hash->root.root.u.def.section == section
1924 && hash->root.type == STT_FUNC)
1925 compute_function_info (input_bfd, hash,
1926 (hash)->root.root.u.def.value,
1927 contents);
1928 }
1929 }
1930
1931 /* Cache or free any memory we allocated for the relocs. */
1932 if (internal_relocs != NULL
1933 && elf_section_data (section)->relocs != internal_relocs)
1934 free (internal_relocs);
1935 internal_relocs = NULL;
1936
1937 /* Cache or free any memory we allocated for the contents. */
1938 if (contents != NULL
1939 && elf_section_data (section)->this_hdr.contents != contents)
1940 {
1941 if (! link_info->keep_memory)
1942 free (contents);
1943 else
1944 {
1945 /* Cache the section contents for elf_link_input_bfd. */
1946 elf_section_data (section)->this_hdr.contents = contents;
1947 }
1948 }
1949 contents = NULL;
1950 }
1951
1952 /* Cache or free any memory we allocated for the symbols. */
1953 if (isymbuf != NULL
1954 && symtab_hdr->contents != (unsigned char *) isymbuf)
1955 {
1956 if (! link_info->keep_memory)
1957 free (isymbuf);
1958 else
1959 {
1960 /* Cache the symbols for elf_link_input_bfd. */
1961 symtab_hdr->contents = (unsigned char *) isymbuf;
1962 }
1963 }
1964 isymbuf = NULL;
1965 }
1966
1967 /* Now iterate on each symbol in the hash table and perform
1968 the final initialization steps on each. */
1969 elf32_mn10300_link_hash_traverse (hash_table,
1970 elf32_mn10300_finish_hash_table_entry,
1971 link_info);
1972 elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
1973 elf32_mn10300_finish_hash_table_entry,
1974 link_info);
1975
1976 /* All entries in the hash table are fully initialized. */
1977 hash_table->flags |= MN10300_HASH_ENTRIES_INITIALIZED;
1978
1979 /* Now that everything has been initialized, go through each
1980 code section and delete any prologue insns which will be
1981 redundant because their operations will be performed by
1982 a "call" instruction. */
1983 for (input_bfd = link_info->input_bfds;
1984 input_bfd != NULL;
1985 input_bfd = input_bfd->link_next)
1986 {
1987 /* We're going to need all the local symbols for each bfd. */
1988 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1989 if (symtab_hdr->sh_info != 0)
1990 {
1991 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1992 if (isymbuf == NULL)
1993 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
1994 symtab_hdr->sh_info, 0,
1995 NULL, NULL, NULL);
1996 if (isymbuf == NULL)
1997 goto error_return;
1998 }
1999
2000 /* Walk over each section in this bfd. */
2001 for (section = input_bfd->sections;
2002 section != NULL;
2003 section = section->next)
2004 {
2005 unsigned int sec_shndx;
2006 Elf_Internal_Sym *isym, *isymend;
2007 struct elf_link_hash_entry **hashes;
2008 struct elf_link_hash_entry **end_hashes;
2009 unsigned int symcount;
2010
2011 /* Skip non-code sections and empty sections. */
2012 if ((section->flags & SEC_CODE) == 0 || section->size == 0)
2013 continue;
2014
2015 if (section->reloc_count != 0)
2016 {
2017 /* Get a copy of the native relocations. */
2018 internal_relocs = (_bfd_elf_link_read_relocs
2019 (input_bfd, section, (PTR) NULL,
2020 (Elf_Internal_Rela *) NULL,
2021 link_info->keep_memory));
2022 if (internal_relocs == NULL)
2023 goto error_return;
2024 }
2025
2026 /* Get cached copy of section contents if it exists. */
2027 if (elf_section_data (section)->this_hdr.contents != NULL)
2028 contents = elf_section_data (section)->this_hdr.contents;
2029 else
2030 {
2031 /* Go get them off disk. */
2032 if (!bfd_malloc_and_get_section (input_bfd, section,
2033 &contents))
2034 goto error_return;
2035 }
2036
2037 sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
2038 section);
2039
2040 /* Now look for any function in this section which needs
2041 insns deleted from its prologue. */
2042 isymend = isymbuf + symtab_hdr->sh_info;
2043 for (isym = isymbuf; isym < isymend; isym++)
2044 {
2045 struct elf32_mn10300_link_hash_entry *sym_hash;
2046 asection *sym_sec = NULL;
2047 const char *sym_name;
2048 char *new_name;
2049 struct elf_link_hash_table *elftab;
2050 bfd_size_type amt;
2051
2052 if (isym->st_shndx != sec_shndx)
2053 continue;
2054
2055 if (isym->st_shndx == SHN_UNDEF)
2056 sym_sec = bfd_und_section_ptr;
2057 else if (isym->st_shndx == SHN_ABS)
2058 sym_sec = bfd_abs_section_ptr;
2059 else if (isym->st_shndx == SHN_COMMON)
2060 sym_sec = bfd_com_section_ptr;
2061 else
2062 sym_sec
2063 = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
2064
2065 sym_name
2066 = bfd_elf_string_from_elf_section (input_bfd,
2067 symtab_hdr->sh_link,
2068 isym->st_name);
2069
2070 /* Tack on an ID so we can uniquely identify this
2071 local symbol in the global hash table. */
2072 amt = strlen (sym_name) + 10;
2073 new_name = bfd_malloc (amt);
2074 if (new_name == 0)
2075 goto error_return;
2076 sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2077 sym_name = new_name;
2078
2079 elftab = &hash_table->static_hash_table->root;
2080 sym_hash = ((struct elf32_mn10300_link_hash_entry *)
2081 elf_link_hash_lookup (elftab, sym_name,
2082 FALSE, FALSE, FALSE));
2083
2084 free (new_name);
2085 if (sym_hash == NULL)
2086 continue;
2087
2088 if (! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2089 && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2090 {
2091 int bytes = 0;
2092
2093 /* Note that we've changed things. */
2094 elf_section_data (section)->relocs = internal_relocs;
2095 elf_section_data (section)->this_hdr.contents = contents;
2096 symtab_hdr->contents = (unsigned char *) isymbuf;
2097
2098 /* Count how many bytes we're going to delete. */
2099 if (sym_hash->movm_args)
2100 bytes += 2;
2101
2102 if (sym_hash->stack_size > 0)
2103 {
2104 if (sym_hash->stack_size <= 128)
2105 bytes += 3;
2106 else
2107 bytes += 4;
2108 }
2109
2110 /* Note that we've deleted prologue bytes for this
2111 function. */
2112 sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2113
2114 /* Actually delete the bytes. */
2115 if (!mn10300_elf_relax_delete_bytes (input_bfd,
2116 section,
2117 isym->st_value,
2118 bytes))
2119 goto error_return;
2120
2121 /* Something changed. Not strictly necessary, but
2122 may lead to more relaxing opportunities. */
2123 *again = TRUE;
2124 }
2125 }
2126
2127 /* Look for any global functions in this section which
2128 need insns deleted from their prologues. */
2129 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2130 - symtab_hdr->sh_info);
2131 hashes = elf_sym_hashes (input_bfd);
2132 end_hashes = hashes + symcount;
2133 for (; hashes < end_hashes; hashes++)
2134 {
2135 struct elf32_mn10300_link_hash_entry *sym_hash;
2136
2137 sym_hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
2138 if ((sym_hash->root.root.type == bfd_link_hash_defined
2139 || sym_hash->root.root.type == bfd_link_hash_defweak)
2140 && sym_hash->root.root.u.def.section == section
2141 && ! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2142 && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2143 {
2144 int bytes = 0;
2145 bfd_vma symval;
2146
2147 /* Note that we've changed things. */
2148 elf_section_data (section)->relocs = internal_relocs;
2149 elf_section_data (section)->this_hdr.contents = contents;
2150 symtab_hdr->contents = (unsigned char *) isymbuf;
2151
2152 /* Count how many bytes we're going to delete. */
2153 if (sym_hash->movm_args)
2154 bytes += 2;
2155
2156 if (sym_hash->stack_size > 0)
2157 {
2158 if (sym_hash->stack_size <= 128)
2159 bytes += 3;
2160 else
2161 bytes += 4;
2162 }
2163
2164 /* Note that we've deleted prologue bytes for this
2165 function. */
2166 sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2167
2168 /* Actually delete the bytes. */
2169 symval = sym_hash->root.root.u.def.value;
2170 if (!mn10300_elf_relax_delete_bytes (input_bfd,
2171 section,
2172 symval,
2173 bytes))
2174 goto error_return;
2175
2176 /* Something changed. Not strictly necessary, but
2177 may lead to more relaxing opportunities. */
2178 *again = TRUE;
2179 }
2180 }
2181
2182 /* Cache or free any memory we allocated for the relocs. */
2183 if (internal_relocs != NULL
2184 && elf_section_data (section)->relocs != internal_relocs)
2185 free (internal_relocs);
2186 internal_relocs = NULL;
2187
2188 /* Cache or free any memory we allocated for the contents. */
2189 if (contents != NULL
2190 && elf_section_data (section)->this_hdr.contents != contents)
2191 {
2192 if (! link_info->keep_memory)
2193 free (contents);
2194 else
2195 {
2196 /* Cache the section contents for elf_link_input_bfd. */
2197 elf_section_data (section)->this_hdr.contents = contents;
2198 }
2199 }
2200 contents = NULL;
2201 }
2202
2203 /* Cache or free any memory we allocated for the symbols. */
2204 if (isymbuf != NULL
2205 && symtab_hdr->contents != (unsigned char *) isymbuf)
2206 {
2207 if (! link_info->keep_memory)
2208 free (isymbuf);
2209 else
2210 {
2211 /* Cache the symbols for elf_link_input_bfd. */
2212 symtab_hdr->contents = (unsigned char *) isymbuf;
2213 }
2214 }
2215 isymbuf = NULL;
2216 }
2217 }
2218
2219 /* (Re)initialize for the basic instruction shortening/relaxing pass. */
2220 contents = NULL;
2221 internal_relocs = NULL;
2222 isymbuf = NULL;
2223 /* For error_return. */
2224 section = sec;
2225
2226 /* We don't have to do anything for a relocatable link, if
2227 this section does not have relocs, or if this is not a
2228 code section. */
2229 if (link_info->relocatable
2230 || (sec->flags & SEC_RELOC) == 0
2231 || sec->reloc_count == 0
2232 || (sec->flags & SEC_CODE) == 0)
2233 return TRUE;
2234
2235 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2236
2237 /* Get a copy of the native relocations. */
2238 internal_relocs = (_bfd_elf_link_read_relocs
2239 (abfd, sec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
2240 link_info->keep_memory));
2241 if (internal_relocs == NULL)
2242 goto error_return;
2243
2244 /* Walk through them looking for relaxing opportunities. */
2245 irelend = internal_relocs + sec->reloc_count;
2246 for (irel = internal_relocs; irel < irelend; irel++)
2247 {
2248 bfd_vma symval;
2249 struct elf32_mn10300_link_hash_entry *h = NULL;
2250
2251 /* If this isn't something that can be relaxed, then ignore
2252 this reloc. */
2253 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_NONE
2254 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_8
2255 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_MAX)
2256 continue;
2257
2258 /* Get the section contents if we haven't done so already. */
2259 if (contents == NULL)
2260 {
2261 /* Get cached copy if it exists. */
2262 if (elf_section_data (sec)->this_hdr.contents != NULL)
2263 contents = elf_section_data (sec)->this_hdr.contents;
2264 else
2265 {
2266 /* Go get them off disk. */
2267 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
2268 goto error_return;
2269 }
2270 }
2271
2272 /* Read this BFD's symbols if we haven't done so already. */
2273 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2274 {
2275 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2276 if (isymbuf == NULL)
2277 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2278 symtab_hdr->sh_info, 0,
2279 NULL, NULL, NULL);
2280 if (isymbuf == NULL)
2281 goto error_return;
2282 }
2283
2284 /* Get the value of the symbol referred to by the reloc. */
2285 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2286 {
2287 Elf_Internal_Sym *isym;
2288 asection *sym_sec = NULL;
2289 const char *sym_name;
2290 char *new_name;
2291 bfd_vma saved_addend;
2292
2293 /* A local symbol. */
2294 isym = isymbuf + ELF32_R_SYM (irel->r_info);
2295 if (isym->st_shndx == SHN_UNDEF)
2296 sym_sec = bfd_und_section_ptr;
2297 else if (isym->st_shndx == SHN_ABS)
2298 sym_sec = bfd_abs_section_ptr;
2299 else if (isym->st_shndx == SHN_COMMON)
2300 sym_sec = bfd_com_section_ptr;
2301 else
2302 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2303
2304 sym_name = bfd_elf_string_from_elf_section (abfd,
2305 symtab_hdr->sh_link,
2306 isym->st_name);
2307
2308 if ((sym_sec->flags & SEC_MERGE)
2309 && ELF_ST_TYPE (isym->st_info) == STT_SECTION
2310 && sym_sec->sec_info_type == ELF_INFO_TYPE_MERGE)
2311 {
2312 saved_addend = irel->r_addend;
2313 symval = _bfd_elf_rela_local_sym (abfd, isym, &sym_sec, irel);
2314 symval += irel->r_addend;
2315 irel->r_addend = saved_addend;
2316 }
2317 else
2318 {
2319 symval = (isym->st_value
2320 + sym_sec->output_section->vma
2321 + sym_sec->output_offset);
2322 }
2323 /* Tack on an ID so we can uniquely identify this
2324 local symbol in the global hash table. */
2325 new_name = bfd_malloc ((bfd_size_type) strlen (sym_name) + 10);
2326 if (new_name == 0)
2327 goto error_return;
2328 sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2329 sym_name = new_name;
2330
2331 h = (struct elf32_mn10300_link_hash_entry *)
2332 elf_link_hash_lookup (&hash_table->static_hash_table->root,
2333 sym_name, FALSE, FALSE, FALSE);
2334 free (new_name);
2335 }
2336 else
2337 {
2338 unsigned long indx;
2339
2340 /* An external symbol. */
2341 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2342 h = (struct elf32_mn10300_link_hash_entry *)
2343 (elf_sym_hashes (abfd)[indx]);
2344 BFD_ASSERT (h != NULL);
2345 if (h->root.root.type != bfd_link_hash_defined
2346 && h->root.root.type != bfd_link_hash_defweak)
2347 {
2348 /* This appears to be a reference to an undefined
2349 symbol. Just ignore it--it will be caught by the
2350 regular reloc processing. */
2351 continue;
2352 }
2353
2354 symval = (h->root.root.u.def.value
2355 + h->root.root.u.def.section->output_section->vma
2356 + h->root.root.u.def.section->output_offset);
2357 }
2358
2359 /* For simplicity of coding, we are going to modify the section
2360 contents, the section relocs, and the BFD symbol table. We
2361 must tell the rest of the code not to free up this
2362 information. It would be possible to instead create a table
2363 of changes which have to be made, as is done in coff-mips.c;
2364 that would be more work, but would require less memory when
2365 the linker is run. */
2366
2367 /* Try to turn a 32bit pc-relative branch/call into a 16bit pc-relative
2368 branch/call, also deal with "call" -> "calls" conversions and
2369 insertion of prologue data into "call" instructions. */
2370 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL32
2371 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32)
2372 {
2373 bfd_vma value = symval;
2374
2375 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32
2376 && h != NULL
2377 && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
2378 && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
2379 && h->root.plt.offset != (bfd_vma) -1)
2380 {
2381 asection * splt;
2382
2383 splt = bfd_get_section_by_name (elf_hash_table (link_info)
2384 ->dynobj, ".plt");
2385
2386 value = ((splt->output_section->vma
2387 + splt->output_offset
2388 + h->root.plt.offset)
2389 - (sec->output_section->vma
2390 + sec->output_offset
2391 + irel->r_offset));
2392 }
2393
2394 /* If we've got a "call" instruction that needs to be turned
2395 into a "calls" instruction, do so now. It saves a byte. */
2396 if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
2397 {
2398 unsigned char code;
2399
2400 /* Get the opcode. */
2401 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2402
2403 /* Make sure we're working with a "call" instruction! */
2404 if (code == 0xdd)
2405 {
2406 /* Note that we've changed the relocs, section contents,
2407 etc. */
2408 elf_section_data (sec)->relocs = internal_relocs;
2409 elf_section_data (sec)->this_hdr.contents = contents;
2410 symtab_hdr->contents = (unsigned char *) isymbuf;
2411
2412 /* Fix the opcode. */
2413 bfd_put_8 (abfd, 0xfc, contents + irel->r_offset - 1);
2414 bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
2415
2416 /* Fix irel->r_offset and irel->r_addend. */
2417 irel->r_offset += 1;
2418 irel->r_addend += 1;
2419
2420 /* Delete one byte of data. */
2421 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2422 irel->r_offset + 3, 1))
2423 goto error_return;
2424
2425 /* That will change things, so, we should relax again.
2426 Note that this is not required, and it may be slow. */
2427 *again = TRUE;
2428 }
2429 }
2430 else if (h)
2431 {
2432 /* We've got a "call" instruction which needs some data
2433 from target function filled in. */
2434 unsigned char code;
2435
2436 /* Get the opcode. */
2437 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2438
2439 /* Insert data from the target function into the "call"
2440 instruction if needed. */
2441 if (code == 0xdd)
2442 {
2443 bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 4);
2444 bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
2445 contents + irel->r_offset + 5);
2446 }
2447 }
2448
2449 /* Deal with pc-relative gunk. */
2450 value -= (sec->output_section->vma + sec->output_offset);
2451 value -= irel->r_offset;
2452 value += irel->r_addend;
2453
2454 /* See if the value will fit in 16 bits, note the high value is
2455 0x7fff + 2 as the target will be two bytes closer if we are
2456 able to relax. */
2457 if ((long) value < 0x8001 && (long) value > -0x8000)
2458 {
2459 unsigned char code;
2460
2461 /* Get the opcode. */
2462 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2463
2464 if (code != 0xdc && code != 0xdd && code != 0xff)
2465 continue;
2466
2467 /* Note that we've changed the relocs, section contents, etc. */
2468 elf_section_data (sec)->relocs = internal_relocs;
2469 elf_section_data (sec)->this_hdr.contents = contents;
2470 symtab_hdr->contents = (unsigned char *) isymbuf;
2471
2472 /* Fix the opcode. */
2473 if (code == 0xdc)
2474 bfd_put_8 (abfd, 0xcc, contents + irel->r_offset - 1);
2475 else if (code == 0xdd)
2476 bfd_put_8 (abfd, 0xcd, contents + irel->r_offset - 1);
2477 else if (code == 0xff)
2478 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
2479
2480 /* Fix the relocation's type. */
2481 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2482 (ELF32_R_TYPE (irel->r_info)
2483 == (int) R_MN10300_PLT32)
2484 ? R_MN10300_PLT16 :
2485 R_MN10300_PCREL16);
2486
2487 /* Delete two bytes of data. */
2488 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2489 irel->r_offset + 1, 2))
2490 goto error_return;
2491
2492 /* That will change things, so, we should relax again.
2493 Note that this is not required, and it may be slow. */
2494 *again = TRUE;
2495 }
2496 }
2497
2498 /* Try to turn a 16bit pc-relative branch into a 8bit pc-relative
2499 branch. */
2500 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL16)
2501 {
2502 bfd_vma value = symval;
2503
2504 /* If we've got a "call" instruction that needs to be turned
2505 into a "calls" instruction, do so now. It saves a byte. */
2506 if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
2507 {
2508 unsigned char code;
2509
2510 /* Get the opcode. */
2511 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2512
2513 /* Make sure we're working with a "call" instruction! */
2514 if (code == 0xcd)
2515 {
2516 /* Note that we've changed the relocs, section contents,
2517 etc. */
2518 elf_section_data (sec)->relocs = internal_relocs;
2519 elf_section_data (sec)->this_hdr.contents = contents;
2520 symtab_hdr->contents = (unsigned char *) isymbuf;
2521
2522 /* Fix the opcode. */
2523 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 1);
2524 bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
2525
2526 /* Fix irel->r_offset and irel->r_addend. */
2527 irel->r_offset += 1;
2528 irel->r_addend += 1;
2529
2530 /* Delete one byte of data. */
2531 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2532 irel->r_offset + 1, 1))
2533 goto error_return;
2534
2535 /* That will change things, so, we should relax again.
2536 Note that this is not required, and it may be slow. */
2537 *again = TRUE;
2538 }
2539 }
2540 else if (h)
2541 {
2542 unsigned char code;
2543
2544 /* Get the opcode. */
2545 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2546
2547 /* Insert data from the target function into the "call"
2548 instruction if needed. */
2549 if (code == 0xcd)
2550 {
2551 bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 2);
2552 bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
2553 contents + irel->r_offset + 3);
2554 }
2555 }
2556
2557 /* Deal with pc-relative gunk. */
2558 value -= (sec->output_section->vma + sec->output_offset);
2559 value -= irel->r_offset;
2560 value += irel->r_addend;
2561
2562 /* See if the value will fit in 8 bits, note the high value is
2563 0x7f + 1 as the target will be one bytes closer if we are
2564 able to relax. */
2565 if ((long) value < 0x80 && (long) value > -0x80)
2566 {
2567 unsigned char code;
2568
2569 /* Get the opcode. */
2570 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2571
2572 if (code != 0xcc)
2573 continue;
2574
2575 /* Note that we've changed the relocs, section contents, etc. */
2576 elf_section_data (sec)->relocs = internal_relocs;
2577 elf_section_data (sec)->this_hdr.contents = contents;
2578 symtab_hdr->contents = (unsigned char *) isymbuf;
2579
2580 /* Fix the opcode. */
2581 bfd_put_8 (abfd, 0xca, contents + irel->r_offset - 1);
2582
2583 /* Fix the relocation's type. */
2584 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2585 R_MN10300_PCREL8);
2586
2587 /* Delete one byte of data. */
2588 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2589 irel->r_offset + 1, 1))
2590 goto error_return;
2591
2592 /* That will change things, so, we should relax again.
2593 Note that this is not required, and it may be slow. */
2594 *again = TRUE;
2595 }
2596 }
2597
2598 /* Try to eliminate an unconditional 8 bit pc-relative branch
2599 which immediately follows a conditional 8 bit pc-relative
2600 branch around the unconditional branch.
2601
2602 original: new:
2603 bCC lab1 bCC' lab2
2604 bra lab2
2605 lab1: lab1:
2606
2607 This happens when the bCC can't reach lab2 at assembly time,
2608 but due to other relaxations it can reach at link time. */
2609 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL8)
2610 {
2611 Elf_Internal_Rela *nrel;
2612 bfd_vma value = symval;
2613 unsigned char code;
2614
2615 /* Deal with pc-relative gunk. */
2616 value -= (sec->output_section->vma + sec->output_offset);
2617 value -= irel->r_offset;
2618 value += irel->r_addend;
2619
2620 /* Do nothing if this reloc is the last byte in the section. */
2621 if (irel->r_offset == sec->size)
2622 continue;
2623
2624 /* See if the next instruction is an unconditional pc-relative
2625 branch, more often than not this test will fail, so we
2626 test it first to speed things up. */
2627 code = bfd_get_8 (abfd, contents + irel->r_offset + 1);
2628 if (code != 0xca)
2629 continue;
2630
2631 /* Also make sure the next relocation applies to the next
2632 instruction and that it's a pc-relative 8 bit branch. */
2633 nrel = irel + 1;
2634 if (nrel == irelend
2635 || irel->r_offset + 2 != nrel->r_offset
2636 || ELF32_R_TYPE (nrel->r_info) != (int) R_MN10300_PCREL8)
2637 continue;
2638
2639 /* Make sure our destination immediately follows the
2640 unconditional branch. */
2641 if (symval != (sec->output_section->vma + sec->output_offset
2642 + irel->r_offset + 3))
2643 continue;
2644
2645 /* Now make sure we are a conditional branch. This may not
2646 be necessary, but why take the chance.
2647
2648 Note these checks assume that R_MN10300_PCREL8 relocs
2649 only occur on bCC and bCCx insns. If they occured
2650 elsewhere, we'd need to know the start of this insn
2651 for this check to be accurate. */
2652 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2653 if (code != 0xc0 && code != 0xc1 && code != 0xc2
2654 && code != 0xc3 && code != 0xc4 && code != 0xc5
2655 && code != 0xc6 && code != 0xc7 && code != 0xc8
2656 && code != 0xc9 && code != 0xe8 && code != 0xe9
2657 && code != 0xea && code != 0xeb)
2658 continue;
2659
2660 /* We also have to be sure there is no symbol/label
2661 at the unconditional branch. */
2662 if (mn10300_elf_symbol_address_p (abfd, sec, isymbuf,
2663 irel->r_offset + 1))
2664 continue;
2665
2666 /* Note that we've changed the relocs, section contents, etc. */
2667 elf_section_data (sec)->relocs = internal_relocs;
2668 elf_section_data (sec)->this_hdr.contents = contents;
2669 symtab_hdr->contents = (unsigned char *) isymbuf;
2670
2671 /* Reverse the condition of the first branch. */
2672 switch (code)
2673 {
2674 case 0xc8:
2675 code = 0xc9;
2676 break;
2677 case 0xc9:
2678 code = 0xc8;
2679 break;
2680 case 0xc0:
2681 code = 0xc2;
2682 break;
2683 case 0xc2:
2684 code = 0xc0;
2685 break;
2686 case 0xc3:
2687 code = 0xc1;
2688 break;
2689 case 0xc1:
2690 code = 0xc3;
2691 break;
2692 case 0xc4:
2693 code = 0xc6;
2694 break;
2695 case 0xc6:
2696 code = 0xc4;
2697 break;
2698 case 0xc7:
2699 code = 0xc5;
2700 break;
2701 case 0xc5:
2702 code = 0xc7;
2703 break;
2704 case 0xe8:
2705 code = 0xe9;
2706 break;
2707 case 0x9d:
2708 code = 0xe8;
2709 break;
2710 case 0xea:
2711 code = 0xeb;
2712 break;
2713 case 0xeb:
2714 code = 0xea;
2715 break;
2716 }
2717 bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
2718
2719 /* Set the reloc type and symbol for the first branch
2720 from the second branch. */
2721 irel->r_info = nrel->r_info;
2722
2723 /* Make the reloc for the second branch a null reloc. */
2724 nrel->r_info = ELF32_R_INFO (ELF32_R_SYM (nrel->r_info),
2725 R_MN10300_NONE);
2726
2727 /* Delete two bytes of data. */
2728 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2729 irel->r_offset + 1, 2))
2730 goto error_return;
2731
2732 /* That will change things, so, we should relax again.
2733 Note that this is not required, and it may be slow. */
2734 *again = TRUE;
2735 }
2736
2737 /* Try to turn a 24 immediate, displacement or absolute address
2738 into a 8 immediate, displacement or absolute address. */
2739 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_24)
2740 {
2741 bfd_vma value = symval;
2742 value += irel->r_addend;
2743
2744 /* See if the value will fit in 8 bits. */
2745 if ((long) value < 0x7f && (long) value > -0x80)
2746 {
2747 unsigned char code;
2748
2749 /* AM33 insns which have 24 operands are 6 bytes long and
2750 will have 0xfd as the first byte. */
2751
2752 /* Get the first opcode. */
2753 code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
2754
2755 if (code == 0xfd)
2756 {
2757 /* Get the second opcode. */
2758 code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
2759
2760 /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
2761 equivalent instructions exists. */
2762 if (code != 0x6b && code != 0x7b
2763 && code != 0x8b && code != 0x9b
2764 && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
2765 || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
2766 || (code & 0x0f) == 0x0e))
2767 {
2768 /* Not safe if the high bit is on as relaxing may
2769 move the value out of high mem and thus not fit
2770 in a signed 8bit value. This is currently over
2771 conservative. */
2772 if ((value & 0x80) == 0)
2773 {
2774 /* Note that we've changed the relocation contents,
2775 etc. */
2776 elf_section_data (sec)->relocs = internal_relocs;
2777 elf_section_data (sec)->this_hdr.contents = contents;
2778 symtab_hdr->contents = (unsigned char *) isymbuf;
2779
2780 /* Fix the opcode. */
2781 bfd_put_8 (abfd, 0xfb, contents + irel->r_offset - 3);
2782 bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
2783
2784 /* Fix the relocation's type. */
2785 irel->r_info =
2786 ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2787 R_MN10300_8);
2788
2789 /* Delete two bytes of data. */
2790 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2791 irel->r_offset + 1, 2))
2792 goto error_return;
2793
2794 /* That will change things, so, we should relax
2795 again. Note that this is not required, and it
2796 may be slow. */
2797 *again = TRUE;
2798 break;
2799 }
2800 }
2801 }
2802 }
2803 }
2804
2805 /* Try to turn a 32bit immediate, displacement or absolute address
2806 into a 16bit immediate, displacement or absolute address. */
2807 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_32
2808 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32
2809 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32
2810 || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTPC32)
2811 {
2812 bfd_vma value = symval;
2813
2814 if (ELF32_R_TYPE (irel->r_info) != (int) R_MN10300_32)
2815 {
2816 asection * sgot;
2817
2818 sgot = bfd_get_section_by_name (elf_hash_table (link_info)
2819 ->dynobj, ".got");
2820
2821 if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32)
2822 {
2823 value = sgot->output_offset;
2824
2825 if (h)
2826 value += h->root.got.offset;
2827 else
2828 value += (elf_local_got_offsets
2829 (abfd)[ELF32_R_SYM (irel->r_info)]);
2830 }
2831 else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32)
2832 value -= sgot->output_section->vma;
2833 else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTPC32)
2834 value = (sgot->output_section->vma
2835 - (sec->output_section->vma
2836 + sec->output_offset
2837 + irel->r_offset));
2838 else
2839 abort ();
2840 }
2841
2842 value += irel->r_addend;
2843
2844 /* See if the value will fit in 24 bits.
2845 We allow any 16bit match here. We prune those we can't
2846 handle below. */
2847 if ((long) value < 0x7fffff && (long) value > -0x800000)
2848 {
2849 unsigned char code;
2850
2851 /* AM33 insns which have 32bit operands are 7 bytes long and
2852 will have 0xfe as the first byte. */
2853
2854 /* Get the first opcode. */
2855 code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
2856
2857 if (code == 0xfe)
2858 {
2859 /* Get the second opcode. */
2860 code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
2861
2862 /* All the am33 32 -> 24 relaxing possibilities. */
2863 /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
2864 equivalent instructions exists. */
2865 if (code != 0x6b && code != 0x7b
2866 && code != 0x8b && code != 0x9b
2867 && (ELF32_R_TYPE (irel->r_info)
2868 != (int) R_MN10300_GOTPC32)
2869 && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
2870 || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
2871 || (code & 0x0f) == 0x0e))
2872 {
2873 /* Not safe if the high bit is on as relaxing may
2874 move the value out of high mem and thus not fit
2875 in a signed 16bit value. This is currently over
2876 conservative. */
2877 if ((value & 0x8000) == 0)
2878 {
2879 /* Note that we've changed the relocation contents,
2880 etc. */
2881 elf_section_data (sec)->relocs = internal_relocs;
2882 elf_section_data (sec)->this_hdr.contents = contents;
2883 symtab_hdr->contents = (unsigned char *) isymbuf;
2884
2885 /* Fix the opcode. */
2886 bfd_put_8 (abfd, 0xfd, contents + irel->r_offset - 3);
2887 bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
2888
2889 /* Fix the relocation's type. */
2890 irel->r_info =
2891 ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2892 (ELF32_R_TYPE (irel->r_info)
2893 == (int) R_MN10300_GOTOFF32)
2894 ? R_MN10300_GOTOFF24
2895 : (ELF32_R_TYPE (irel->r_info)
2896 == (int) R_MN10300_GOT32)
2897 ? R_MN10300_GOT24 :
2898 R_MN10300_24);
2899
2900 /* Delete one byte of data. */
2901 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2902 irel->r_offset + 3, 1))
2903 goto error_return;
2904
2905 /* That will change things, so, we should relax
2906 again. Note that this is not required, and it
2907 may be slow. */
2908 *again = TRUE;
2909 break;
2910 }
2911 }
2912 }
2913 }
2914
2915 /* See if the value will fit in 16 bits.
2916 We allow any 16bit match here. We prune those we can't
2917 handle below. */
2918 if ((long) value < 0x7fff && (long) value > -0x8000)
2919 {
2920 unsigned char code;
2921
2922 /* Most insns which have 32bit operands are 6 bytes long;
2923 exceptions are pcrel insns and bit insns.
2924
2925 We handle pcrel insns above. We don't bother trying
2926 to handle the bit insns here.
2927
2928 The first byte of the remaining insns will be 0xfc. */
2929
2930 /* Get the first opcode. */
2931 code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
2932
2933 if (code != 0xfc)
2934 continue;
2935
2936 /* Get the second opcode. */
2937 code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2938
2939 if ((code & 0xf0) < 0x80)
2940 switch (code & 0xf0)
2941 {
2942 /* mov (d32,am),dn -> mov (d32,am),dn
2943 mov dm,(d32,am) -> mov dn,(d32,am)
2944 mov (d32,am),an -> mov (d32,am),an
2945 mov dm,(d32,am) -> mov dn,(d32,am)
2946 movbu (d32,am),dn -> movbu (d32,am),dn
2947 movbu dm,(d32,am) -> movbu dn,(d32,am)
2948 movhu (d32,am),dn -> movhu (d32,am),dn
2949 movhu dm,(d32,am) -> movhu dn,(d32,am) */
2950 case 0x00:
2951 case 0x10:
2952 case 0x20:
2953 case 0x30:
2954 case 0x40:
2955 case 0x50:
2956 case 0x60:
2957 case 0x70:
2958 /* Not safe if the high bit is on as relaxing may
2959 move the value out of high mem and thus not fit
2960 in a signed 16bit value. */
2961 if (code == 0xcc
2962 && (value & 0x8000))
2963 continue;
2964
2965 /* Note that we've changed the relocation contents, etc. */
2966 elf_section_data (sec)->relocs = internal_relocs;
2967 elf_section_data (sec)->this_hdr.contents = contents;
2968 symtab_hdr->contents = (unsigned char *) isymbuf;
2969
2970 /* Fix the opcode. */
2971 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
2972 bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
2973
2974 /* Fix the relocation's type. */
2975 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2976 (ELF32_R_TYPE (irel->r_info)
2977 == (int) R_MN10300_GOTOFF32)
2978 ? R_MN10300_GOTOFF16
2979 : (ELF32_R_TYPE (irel->r_info)
2980 == (int) R_MN10300_GOT32)
2981 ? R_MN10300_GOT16
2982 : (ELF32_R_TYPE (irel->r_info)
2983 == (int) R_MN10300_GOTPC32)
2984 ? R_MN10300_GOTPC16 :
2985 R_MN10300_16);
2986
2987 /* Delete two bytes of data. */
2988 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2989 irel->r_offset + 2, 2))
2990 goto error_return;
2991
2992 /* That will change things, so, we should relax again.
2993 Note that this is not required, and it may be slow. */
2994 *again = TRUE;
2995 break;
2996 }
2997 else if ((code & 0xf0) == 0x80
2998 || (code & 0xf0) == 0x90)
2999 switch (code & 0xf3)
3000 {
3001 /* mov dn,(abs32) -> mov dn,(abs16)
3002 movbu dn,(abs32) -> movbu dn,(abs16)
3003 movhu dn,(abs32) -> movhu dn,(abs16) */
3004 case 0x81:
3005 case 0x82:
3006 case 0x83:
3007 /* Note that we've changed the relocation contents, etc. */
3008 elf_section_data (sec)->relocs = internal_relocs;
3009 elf_section_data (sec)->this_hdr.contents = contents;
3010 symtab_hdr->contents = (unsigned char *) isymbuf;
3011
3012 if ((code & 0xf3) == 0x81)
3013 code = 0x01 + (code & 0x0c);
3014 else if ((code & 0xf3) == 0x82)
3015 code = 0x02 + (code & 0x0c);
3016 else if ((code & 0xf3) == 0x83)
3017 code = 0x03 + (code & 0x0c);
3018 else
3019 abort ();
3020
3021 /* Fix the opcode. */
3022 bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3023
3024 /* Fix the relocation's type. */
3025 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3026 (ELF32_R_TYPE (irel->r_info)
3027 == (int) R_MN10300_GOTOFF32)
3028 ? R_MN10300_GOTOFF16
3029 : (ELF32_R_TYPE (irel->r_info)
3030 == (int) R_MN10300_GOT32)
3031 ? R_MN10300_GOT16
3032 : (ELF32_R_TYPE (irel->r_info)
3033 == (int) R_MN10300_GOTPC32)
3034 ? R_MN10300_GOTPC16 :
3035 R_MN10300_16);
3036
3037 /* The opcode got shorter too, so we have to fix the
3038 addend and offset too! */
3039 irel->r_offset -= 1;
3040
3041 /* Delete three bytes of data. */
3042 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3043 irel->r_offset + 1, 3))
3044 goto error_return;
3045
3046 /* That will change things, so, we should relax again.
3047 Note that this is not required, and it may be slow. */
3048 *again = TRUE;
3049 break;
3050
3051 /* mov am,(abs32) -> mov am,(abs16)
3052 mov am,(d32,sp) -> mov am,(d16,sp)
3053 mov dm,(d32,sp) -> mov dm,(d32,sp)
3054 movbu dm,(d32,sp) -> movbu dm,(d32,sp)
3055 movhu dm,(d32,sp) -> movhu dm,(d32,sp) */
3056 case 0x80:
3057 case 0x90:
3058 case 0x91:
3059 case 0x92:
3060 case 0x93:
3061 /* sp-based offsets are zero-extended. */
3062 if (code >= 0x90 && code <= 0x93
3063 && (long)value < 0)
3064 continue;
3065
3066 /* Note that we've changed the relocation contents, etc. */
3067 elf_section_data (sec)->relocs = internal_relocs;
3068 elf_section_data (sec)->this_hdr.contents = contents;
3069 symtab_hdr->contents = (unsigned char *) isymbuf;
3070
3071 /* Fix the opcode. */
3072 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3073 bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3074
3075 /* Fix the relocation's type. */
3076 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3077 (ELF32_R_TYPE (irel->r_info)
3078 == (int) R_MN10300_GOTOFF32)
3079 ? R_MN10300_GOTOFF16
3080 : (ELF32_R_TYPE (irel->r_info)
3081 == (int) R_MN10300_GOT32)
3082 ? R_MN10300_GOT16
3083 : (ELF32_R_TYPE (irel->r_info)
3084 == (int) R_MN10300_GOTPC32)
3085 ? R_MN10300_GOTPC16 :
3086 R_MN10300_16);
3087
3088 /* Delete two bytes of data. */
3089 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3090 irel->r_offset + 2, 2))
3091 goto error_return;
3092
3093 /* That will change things, so, we should relax again.
3094 Note that this is not required, and it may be slow. */
3095 *again = TRUE;
3096 break;
3097 }
3098 else if ((code & 0xf0) < 0xf0)
3099 switch (code & 0xfc)
3100 {
3101 /* mov imm32,dn -> mov imm16,dn
3102 mov imm32,an -> mov imm16,an
3103 mov (abs32),dn -> mov (abs16),dn
3104 movbu (abs32),dn -> movbu (abs16),dn
3105 movhu (abs32),dn -> movhu (abs16),dn */
3106 case 0xcc:
3107 case 0xdc:
3108 case 0xa4:
3109 case 0xa8:
3110 case 0xac:
3111 /* Not safe if the high bit is on as relaxing may
3112 move the value out of high mem and thus not fit
3113 in a signed 16bit value. */
3114 if (code == 0xcc
3115 && (value & 0x8000))
3116 continue;
3117
3118 /* mov imm16, an zero-extends the immediate. */
3119 if (code == 0xdc
3120 && (long)value < 0)
3121 continue;
3122
3123 /* Note that we've changed the relocation contents, etc. */
3124 elf_section_data (sec)->relocs = internal_relocs;
3125 elf_section_data (sec)->this_hdr.contents = contents;
3126 symtab_hdr->contents = (unsigned char *) isymbuf;
3127
3128 if ((code & 0xfc) == 0xcc)
3129 code = 0x2c + (code & 0x03);
3130 else if ((code & 0xfc) == 0xdc)
3131 code = 0x24 + (code & 0x03);
3132 else if ((code & 0xfc) == 0xa4)
3133 code = 0x30 + (code & 0x03);
3134 else if ((code & 0xfc) == 0xa8)
3135 code = 0x34 + (code & 0x03);
3136 else if ((code & 0xfc) == 0xac)
3137 code = 0x38 + (code & 0x03);
3138 else
3139 abort ();
3140
3141 /* Fix the opcode. */
3142 bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3143
3144 /* Fix the relocation's type. */
3145 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3146 (ELF32_R_TYPE (irel->r_info)
3147 == (int) R_MN10300_GOTOFF32)
3148 ? R_MN10300_GOTOFF16
3149 : (ELF32_R_TYPE (irel->r_info)
3150 == (int) R_MN10300_GOT32)
3151 ? R_MN10300_GOT16
3152 : (ELF32_R_TYPE (irel->r_info)
3153 == (int) R_MN10300_GOTPC32)
3154 ? R_MN10300_GOTPC16 :
3155 R_MN10300_16);
3156
3157 /* The opcode got shorter too, so we have to fix the
3158 addend and offset too! */
3159 irel->r_offset -= 1;
3160
3161 /* Delete three bytes of data. */
3162 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3163 irel->r_offset + 1, 3))
3164 goto error_return;
3165
3166 /* That will change things, so, we should relax again.
3167 Note that this is not required, and it may be slow. */
3168 *again = TRUE;
3169 break;
3170
3171 /* mov (abs32),an -> mov (abs16),an
3172 mov (d32,sp),an -> mov (d16,sp),an
3173 mov (d32,sp),dn -> mov (d16,sp),dn
3174 movbu (d32,sp),dn -> movbu (d16,sp),dn
3175 movhu (d32,sp),dn -> movhu (d16,sp),dn
3176 add imm32,dn -> add imm16,dn
3177 cmp imm32,dn -> cmp imm16,dn
3178 add imm32,an -> add imm16,an
3179 cmp imm32,an -> cmp imm16,an
3180 and imm32,dn -> and imm16,dn
3181 or imm32,dn -> or imm16,dn
3182 xor imm32,dn -> xor imm16,dn
3183 btst imm32,dn -> btst imm16,dn */
3184
3185 case 0xa0:
3186 case 0xb0:
3187 case 0xb1:
3188 case 0xb2:
3189 case 0xb3:
3190 case 0xc0:
3191 case 0xc8:
3192
3193 case 0xd0:
3194 case 0xd8:
3195 case 0xe0:
3196 case 0xe1:
3197 case 0xe2:
3198 case 0xe3:
3199 /* cmp imm16, an zero-extends the immediate. */
3200 if (code == 0xdc
3201 && (long)value < 0)
3202 continue;
3203
3204 /* So do sp-based offsets. */
3205 if (code >= 0xb0 && code <= 0xb3
3206 && (long)value < 0)
3207 continue;
3208
3209 /* Note that we've changed the relocation contents, etc. */
3210 elf_section_data (sec)->relocs = internal_relocs;
3211 elf_section_data (sec)->this_hdr.contents = contents;
3212 symtab_hdr->contents = (unsigned char *) isymbuf;
3213
3214 /* Fix the opcode. */
3215 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3216 bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3217
3218 /* Fix the relocation's type. */
3219 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3220 (ELF32_R_TYPE (irel->r_info)
3221 == (int) R_MN10300_GOTOFF32)
3222 ? R_MN10300_GOTOFF16
3223 : (ELF32_R_TYPE (irel->r_info)
3224 == (int) R_MN10300_GOT32)
3225 ? R_MN10300_GOT16
3226 : (ELF32_R_TYPE (irel->r_info)
3227 == (int) R_MN10300_GOTPC32)
3228 ? R_MN10300_GOTPC16 :
3229 R_MN10300_16);
3230
3231 /* Delete two bytes of data. */
3232 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3233 irel->r_offset + 2, 2))
3234 goto error_return;
3235
3236 /* That will change things, so, we should relax again.
3237 Note that this is not required, and it may be slow. */
3238 *again = TRUE;
3239 break;
3240 }
3241 else if (code == 0xfe)
3242 {
3243 /* add imm32,sp -> add imm16,sp */
3244
3245 /* Note that we've changed the relocation contents, etc. */
3246 elf_section_data (sec)->relocs = internal_relocs;
3247 elf_section_data (sec)->this_hdr.contents = contents;
3248 symtab_hdr->contents = (unsigned char *) isymbuf;
3249
3250 /* Fix the opcode. */
3251 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3252 bfd_put_8 (abfd, 0xfe, contents + irel->r_offset - 1);
3253
3254 /* Fix the relocation's type. */
3255 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3256 (ELF32_R_TYPE (irel->r_info)
3257 == (int) R_MN10300_GOT32)
3258 ? R_MN10300_GOT16
3259 : (ELF32_R_TYPE (irel->r_info)
3260 == (int) R_MN10300_GOTOFF32)
3261 ? R_MN10300_GOTOFF16
3262 : (ELF32_R_TYPE (irel->r_info)
3263 == (int) R_MN10300_GOTPC32)
3264 ? R_MN10300_GOTPC16 :
3265 R_MN10300_16);
3266
3267 /* Delete two bytes of data. */
3268 if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3269 irel->r_offset + 2, 2))
3270 goto error_return;
3271
3272 /* That will change things, so, we should relax again.
3273 Note that this is not required, and it may be slow. */
3274 *again = TRUE;
3275 break;
3276 }
3277 }
3278 }
3279 }
3280
3281 if (isymbuf != NULL
3282 && symtab_hdr->contents != (unsigned char *) isymbuf)
3283 {
3284 if (! link_info->keep_memory)
3285 free (isymbuf);
3286 else
3287 {
3288 /* Cache the symbols for elf_link_input_bfd. */
3289 symtab_hdr->contents = (unsigned char *) isymbuf;
3290 }
3291 }
3292
3293 if (contents != NULL
3294 && elf_section_data (sec)->this_hdr.contents != contents)
3295 {
3296 if (! link_info->keep_memory)
3297 free (contents);
3298 else
3299 {
3300 /* Cache the section contents for elf_link_input_bfd. */
3301 elf_section_data (sec)->this_hdr.contents = contents;
3302 }
3303 }
3304
3305 if (internal_relocs != NULL
3306 && elf_section_data (sec)->relocs != internal_relocs)
3307 free (internal_relocs);
3308
3309 return TRUE;
3310
3311 error_return:
3312 if (isymbuf != NULL
3313 && symtab_hdr->contents != (unsigned char *) isymbuf)
3314 free (isymbuf);
3315 if (contents != NULL
3316 && elf_section_data (section)->this_hdr.contents != contents)
3317 free (contents);
3318 if (internal_relocs != NULL
3319 && elf_section_data (section)->relocs != internal_relocs)
3320 free (internal_relocs);
3321
3322 return FALSE;
3323 }
3324
3325 /* Compute the stack size and movm arguments for the function
3326 referred to by HASH at address ADDR in section with
3327 contents CONTENTS, store the information in the hash table. */
3328 static void
3329 compute_function_info (abfd, hash, addr, contents)
3330 bfd *abfd;
3331 struct elf32_mn10300_link_hash_entry *hash;
3332 bfd_vma addr;
3333 unsigned char *contents;
3334 {
3335 unsigned char byte1, byte2;
3336 /* We only care about a very small subset of the possible prologue
3337 sequences here. Basically we look for:
3338
3339 movm [d2,d3,a2,a3],sp (optional)
3340 add <size>,sp (optional, and only for sizes which fit in an unsigned
3341 8 bit number)
3342
3343 If we find anything else, we quit. */
3344
3345 /* Look for movm [regs],sp */
3346 byte1 = bfd_get_8 (abfd, contents + addr);
3347 byte2 = bfd_get_8 (abfd, contents + addr + 1);
3348
3349 if (byte1 == 0xcf)
3350 {
3351 hash->movm_args = byte2;
3352 addr += 2;
3353 byte1 = bfd_get_8 (abfd, contents + addr);
3354 byte2 = bfd_get_8 (abfd, contents + addr + 1);
3355 }
3356
3357 /* Now figure out how much stack space will be allocated by the movm
3358 instruction. We need this kept separate from the function's normal
3359 stack space. */
3360 if (hash->movm_args)
3361 {
3362 /* Space for d2. */
3363 if (hash->movm_args & 0x80)
3364 hash->movm_stack_size += 4;
3365
3366 /* Space for d3. */
3367 if (hash->movm_args & 0x40)
3368 hash->movm_stack_size += 4;
3369
3370 /* Space for a2. */
3371 if (hash->movm_args & 0x20)
3372 hash->movm_stack_size += 4;
3373
3374 /* Space for a3. */
3375 if (hash->movm_args & 0x10)
3376 hash->movm_stack_size += 4;
3377
3378 /* "other" space. d0, d1, a0, a1, mdr, lir, lar, 4 byte pad. */
3379 if (hash->movm_args & 0x08)
3380 hash->movm_stack_size += 8 * 4;
3381
3382 if (bfd_get_mach (abfd) == bfd_mach_am33
3383 || bfd_get_mach (abfd) == bfd_mach_am33_2)
3384 {
3385 /* "exother" space. e0, e1, mdrq, mcrh, mcrl, mcvf */
3386 if (hash->movm_args & 0x1)
3387 hash->movm_stack_size += 6 * 4;
3388
3389 /* exreg1 space. e4, e5, e6, e7 */
3390 if (hash->movm_args & 0x2)
3391 hash->movm_stack_size += 4 * 4;
3392
3393 /* exreg0 space. e2, e3 */
3394 if (hash->movm_args & 0x4)
3395 hash->movm_stack_size += 2 * 4;
3396 }
3397 }
3398
3399 /* Now look for the two stack adjustment variants. */
3400 if (byte1 == 0xf8 && byte2 == 0xfe)
3401 {
3402 int temp = bfd_get_8 (abfd, contents + addr + 2);
3403 temp = ((temp & 0xff) ^ (~0x7f)) + 0x80;
3404
3405 hash->stack_size = -temp;
3406 }
3407 else if (byte1 == 0xfa && byte2 == 0xfe)
3408 {
3409 int temp = bfd_get_16 (abfd, contents + addr + 2);
3410 temp = ((temp & 0xffff) ^ (~0x7fff)) + 0x8000;
3411 temp = -temp;
3412
3413 if (temp < 255)
3414 hash->stack_size = temp;
3415 }
3416
3417 /* If the total stack to be allocated by the call instruction is more
3418 than 255 bytes, then we can't remove the stack adjustment by using
3419 "call" (we might still be able to remove the "movm" instruction. */
3420 if (hash->stack_size + hash->movm_stack_size > 255)
3421 hash->stack_size = 0;
3422
3423 return;
3424 }
3425
3426 /* Delete some bytes from a section while relaxing. */
3427
3428 static bfd_boolean
3429 mn10300_elf_relax_delete_bytes (abfd, sec, addr, count)
3430 bfd *abfd;
3431 asection *sec;
3432 bfd_vma addr;
3433 int count;
3434 {
3435 Elf_Internal_Shdr *symtab_hdr;
3436 unsigned int sec_shndx;
3437 bfd_byte *contents;
3438 Elf_Internal_Rela *irel, *irelend;
3439 Elf_Internal_Rela *irelalign;
3440 bfd_vma toaddr;
3441 Elf_Internal_Sym *isym, *isymend;
3442 struct elf_link_hash_entry **sym_hashes;
3443 struct elf_link_hash_entry **end_hashes;
3444 unsigned int symcount;
3445
3446 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
3447
3448 contents = elf_section_data (sec)->this_hdr.contents;
3449
3450 /* The deletion must stop at the next ALIGN reloc for an aligment
3451 power larger than the number of bytes we are deleting. */
3452
3453 irelalign = NULL;
3454 toaddr = sec->size;
3455
3456 irel = elf_section_data (sec)->relocs;
3457 irelend = irel + sec->reloc_count;
3458
3459 /* Actually delete the bytes. */
3460 memmove (contents + addr, contents + addr + count,
3461 (size_t) (toaddr - addr - count));
3462 sec->size -= count;
3463
3464 /* Adjust all the relocs. */
3465 for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
3466 {
3467 /* Get the new reloc address. */
3468 if ((irel->r_offset > addr
3469 && irel->r_offset < toaddr))
3470 irel->r_offset -= count;
3471 }
3472
3473 /* Adjust the local symbols defined in this section. */
3474 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3475 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
3476 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
3477 {
3478 if (isym->st_shndx == sec_shndx
3479 && isym->st_value > addr
3480 && isym->st_value < toaddr)
3481 isym->st_value -= count;
3482 }
3483
3484 /* Now adjust the global symbols defined in this section. */
3485 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
3486 - symtab_hdr->sh_info);
3487 sym_hashes = elf_sym_hashes (abfd);
3488 end_hashes = sym_hashes + symcount;
3489 for (; sym_hashes < end_hashes; sym_hashes++)
3490 {
3491 struct elf_link_hash_entry *sym_hash = *sym_hashes;
3492 if ((sym_hash->root.type == bfd_link_hash_defined
3493 || sym_hash->root.type == bfd_link_hash_defweak)
3494 && sym_hash->root.u.def.section == sec
3495 && sym_hash->root.u.def.value > addr
3496 && sym_hash->root.u.def.value < toaddr)
3497 {
3498 sym_hash->root.u.def.value -= count;
3499 }
3500 }
3501
3502 return TRUE;
3503 }
3504
3505 /* Return TRUE if a symbol exists at the given address, else return
3506 FALSE. */
3507 static bfd_boolean
3508 mn10300_elf_symbol_address_p (abfd, sec, isym, addr)
3509 bfd *abfd;
3510 asection *sec;
3511 Elf_Internal_Sym *isym;
3512 bfd_vma addr;
3513 {
3514 Elf_Internal_Shdr *symtab_hdr;
3515 unsigned int sec_shndx;
3516 Elf_Internal_Sym *isymend;
3517 struct elf_link_hash_entry **sym_hashes;
3518 struct elf_link_hash_entry **end_hashes;
3519 unsigned int symcount;
3520
3521 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
3522
3523 /* Examine all the symbols. */
3524 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3525 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
3526 {
3527 if (isym->st_shndx == sec_shndx
3528 && isym->st_value == addr)
3529 return TRUE;
3530 }
3531
3532 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
3533 - symtab_hdr->sh_info);
3534 sym_hashes = elf_sym_hashes (abfd);
3535 end_hashes = sym_hashes + symcount;
3536 for (; sym_hashes < end_hashes; sym_hashes++)
3537 {
3538 struct elf_link_hash_entry *sym_hash = *sym_hashes;
3539 if ((sym_hash->root.type == bfd_link_hash_defined
3540 || sym_hash->root.type == bfd_link_hash_defweak)
3541 && sym_hash->root.u.def.section == sec
3542 && sym_hash->root.u.def.value == addr)
3543 return TRUE;
3544 }
3545
3546 return FALSE;
3547 }
3548
3549 /* This is a version of bfd_generic_get_relocated_section_contents
3550 which uses mn10300_elf_relocate_section. */
3551
3552 static bfd_byte *
3553 mn10300_elf_get_relocated_section_contents (output_bfd, link_info, link_order,
3554 data, relocatable, symbols)
3555 bfd *output_bfd;
3556 struct bfd_link_info *link_info;
3557 struct bfd_link_order *link_order;
3558 bfd_byte *data;
3559 bfd_boolean relocatable;
3560 asymbol **symbols;
3561 {
3562 Elf_Internal_Shdr *symtab_hdr;
3563 asection *input_section = link_order->u.indirect.section;
3564 bfd *input_bfd = input_section->owner;
3565 asection **sections = NULL;
3566 Elf_Internal_Rela *internal_relocs = NULL;
3567 Elf_Internal_Sym *isymbuf = NULL;
3568
3569 /* We only need to handle the case of relaxing, or of having a
3570 particular set of section contents, specially. */
3571 if (relocatable
3572 || elf_section_data (input_section)->this_hdr.contents == NULL)
3573 return bfd_generic_get_relocated_section_contents (output_bfd, link_info,
3574 link_order, data,
3575 relocatable,
3576 symbols);
3577
3578 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3579
3580 memcpy (data, elf_section_data (input_section)->this_hdr.contents,
3581 (size_t) input_section->size);
3582
3583 if ((input_section->flags & SEC_RELOC) != 0
3584 && input_section->reloc_count > 0)
3585 {
3586 asection **secpp;
3587 Elf_Internal_Sym *isym, *isymend;
3588 bfd_size_type amt;
3589
3590 internal_relocs = (_bfd_elf_link_read_relocs
3591 (input_bfd, input_section, (PTR) NULL,
3592 (Elf_Internal_Rela *) NULL, FALSE));
3593 if (internal_relocs == NULL)
3594 goto error_return;
3595
3596 if (symtab_hdr->sh_info != 0)
3597 {
3598 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3599 if (isymbuf == NULL)
3600 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
3601 symtab_hdr->sh_info, 0,
3602 NULL, NULL, NULL);
3603 if (isymbuf == NULL)
3604 goto error_return;
3605 }
3606
3607 amt = symtab_hdr->sh_info;
3608 amt *= sizeof (asection *);
3609 sections = (asection **) bfd_malloc (amt);
3610 if (sections == NULL && amt != 0)
3611 goto error_return;
3612
3613 isymend = isymbuf + symtab_hdr->sh_info;
3614 for (isym = isymbuf, secpp = sections; isym < isymend; ++isym, ++secpp)
3615 {
3616 asection *isec;
3617
3618 if (isym->st_shndx == SHN_UNDEF)
3619 isec = bfd_und_section_ptr;
3620 else if (isym->st_shndx == SHN_ABS)
3621 isec = bfd_abs_section_ptr;
3622 else if (isym->st_shndx == SHN_COMMON)
3623 isec = bfd_com_section_ptr;
3624 else
3625 isec = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
3626
3627 *secpp = isec;
3628 }
3629
3630 if (! mn10300_elf_relocate_section (output_bfd, link_info, input_bfd,
3631 input_section, data, internal_relocs,
3632 isymbuf, sections))
3633 goto error_return;
3634
3635 if (sections != NULL)
3636 free (sections);
3637 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3638 free (isymbuf);
3639 if (internal_relocs != elf_section_data (input_section)->relocs)
3640 free (internal_relocs);
3641 }
3642
3643 return data;
3644
3645 error_return:
3646 if (sections != NULL)
3647 free (sections);
3648 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3649 free (isymbuf);
3650 if (internal_relocs != NULL
3651 && internal_relocs != elf_section_data (input_section)->relocs)
3652 free (internal_relocs);
3653 return NULL;
3654 }
3655
3656 /* Assorted hash table functions. */
3657
3658 /* Initialize an entry in the link hash table. */
3659
3660 /* Create an entry in an MN10300 ELF linker hash table. */
3661
3662 static struct bfd_hash_entry *
3663 elf32_mn10300_link_hash_newfunc (entry, table, string)
3664 struct bfd_hash_entry *entry;
3665 struct bfd_hash_table *table;
3666 const char *string;
3667 {
3668 struct elf32_mn10300_link_hash_entry *ret =
3669 (struct elf32_mn10300_link_hash_entry *) entry;
3670
3671 /* Allocate the structure if it has not already been allocated by a
3672 subclass. */
3673 if (ret == (struct elf32_mn10300_link_hash_entry *) NULL)
3674 ret = ((struct elf32_mn10300_link_hash_entry *)
3675 bfd_hash_allocate (table,
3676 sizeof (struct elf32_mn10300_link_hash_entry)));
3677 if (ret == (struct elf32_mn10300_link_hash_entry *) NULL)
3678 return (struct bfd_hash_entry *) ret;
3679
3680 /* Call the allocation method of the superclass. */
3681 ret = ((struct elf32_mn10300_link_hash_entry *)
3682 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3683 table, string));
3684 if (ret != (struct elf32_mn10300_link_hash_entry *) NULL)
3685 {
3686 ret->direct_calls = 0;
3687 ret->stack_size = 0;
3688 ret->movm_args = 0;
3689 ret->movm_stack_size = 0;
3690 ret->flags = 0;
3691 }
3692
3693 return (struct bfd_hash_entry *) ret;
3694 }
3695
3696 /* Create an mn10300 ELF linker hash table. */
3697
3698 static struct bfd_link_hash_table *
3699 elf32_mn10300_link_hash_table_create (abfd)
3700 bfd *abfd;
3701 {
3702 struct elf32_mn10300_link_hash_table *ret;
3703 bfd_size_type amt = sizeof (struct elf32_mn10300_link_hash_table);
3704
3705 ret = (struct elf32_mn10300_link_hash_table *) bfd_malloc (amt);
3706 if (ret == (struct elf32_mn10300_link_hash_table *) NULL)
3707 return NULL;
3708
3709 if (! _bfd_elf_link_hash_table_init (&ret->root, abfd,
3710 elf32_mn10300_link_hash_newfunc))
3711 {
3712 free (ret);
3713 return NULL;
3714 }
3715
3716 ret->flags = 0;
3717 amt = sizeof (struct elf_link_hash_table);
3718 ret->static_hash_table
3719 = (struct elf32_mn10300_link_hash_table *) bfd_malloc (amt);
3720 if (ret->static_hash_table == NULL)
3721 {
3722 free (ret);
3723 return NULL;
3724 }
3725
3726 if (! _bfd_elf_link_hash_table_init (&ret->static_hash_table->root, abfd,
3727 elf32_mn10300_link_hash_newfunc))
3728 {
3729 free (ret->static_hash_table);
3730 free (ret);
3731 return NULL;
3732 }
3733 return &ret->root.root;
3734 }
3735
3736 /* Free an mn10300 ELF linker hash table. */
3737
3738 static void
3739 elf32_mn10300_link_hash_table_free (hash)
3740 struct bfd_link_hash_table *hash;
3741 {
3742 struct elf32_mn10300_link_hash_table *ret
3743 = (struct elf32_mn10300_link_hash_table *) hash;
3744
3745 _bfd_generic_link_hash_table_free
3746 ((struct bfd_link_hash_table *) ret->static_hash_table);
3747 _bfd_generic_link_hash_table_free
3748 ((struct bfd_link_hash_table *) ret);
3749 }
3750
3751 static unsigned long
3752 elf_mn10300_mach (flags)
3753 flagword flags;
3754 {
3755 switch (flags & EF_MN10300_MACH)
3756 {
3757 case E_MN10300_MACH_MN10300:
3758 default:
3759 return bfd_mach_mn10300;
3760
3761 case E_MN10300_MACH_AM33:
3762 return bfd_mach_am33;
3763
3764 case E_MN10300_MACH_AM33_2:
3765 return bfd_mach_am33_2;
3766 }
3767 }
3768
3769 /* The final processing done just before writing out a MN10300 ELF object
3770 file. This gets the MN10300 architecture right based on the machine
3771 number. */
3772
3773 void
3774 _bfd_mn10300_elf_final_write_processing (abfd, linker)
3775 bfd *abfd;
3776 bfd_boolean linker ATTRIBUTE_UNUSED;
3777 {
3778 unsigned long val;
3779
3780 switch (bfd_get_mach (abfd))
3781 {
3782 default:
3783 case bfd_mach_mn10300:
3784 val = E_MN10300_MACH_MN10300;
3785 break;
3786
3787 case bfd_mach_am33:
3788 val = E_MN10300_MACH_AM33;
3789 break;
3790
3791 case bfd_mach_am33_2:
3792 val = E_MN10300_MACH_AM33_2;
3793 break;
3794 }
3795
3796 elf_elfheader (abfd)->e_flags &= ~ (EF_MN10300_MACH);
3797 elf_elfheader (abfd)->e_flags |= val;
3798 }
3799
3800 bfd_boolean
3801 _bfd_mn10300_elf_object_p (abfd)
3802 bfd *abfd;
3803 {
3804 bfd_default_set_arch_mach (abfd, bfd_arch_mn10300,
3805 elf_mn10300_mach (elf_elfheader (abfd)->e_flags));
3806 return TRUE;
3807 }
3808
3809 /* Merge backend specific data from an object file to the output
3810 object file when linking. */
3811
3812 bfd_boolean
3813 _bfd_mn10300_elf_merge_private_bfd_data (ibfd, obfd)
3814 bfd *ibfd;
3815 bfd *obfd;
3816 {
3817 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
3818 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
3819 return TRUE;
3820
3821 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
3822 && bfd_get_mach (obfd) < bfd_get_mach (ibfd))
3823 {
3824 if (! bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
3825 bfd_get_mach (ibfd)))
3826 return FALSE;
3827 }
3828
3829 return TRUE;
3830 }
3831
3832 #define PLT0_ENTRY_SIZE 15
3833 #define PLT_ENTRY_SIZE 20
3834 #define PIC_PLT_ENTRY_SIZE 24
3835
3836 static const bfd_byte elf_mn10300_plt0_entry[PLT0_ENTRY_SIZE] =
3837 {
3838 0xfc, 0xa0, 0, 0, 0, 0, /* mov (.got+8),a0 */
3839 0xfe, 0xe, 0x10, 0, 0, 0, 0, /* mov (.got+4),r1 */
3840 0xf0, 0xf4, /* jmp (a0) */
3841 };
3842
3843 static const bfd_byte elf_mn10300_plt_entry[PLT_ENTRY_SIZE] =
3844 {
3845 0xfc, 0xa0, 0, 0, 0, 0, /* mov (nameN@GOT + .got),a0 */
3846 0xf0, 0xf4, /* jmp (a0) */
3847 0xfe, 8, 0, 0, 0, 0, 0, /* mov reloc-table-address,r0 */
3848 0xdc, 0, 0, 0, 0, /* jmp .plt0 */
3849 };
3850
3851 static const bfd_byte elf_mn10300_pic_plt_entry[PIC_PLT_ENTRY_SIZE] =
3852 {
3853 0xfc, 0x22, 0, 0, 0, 0, /* mov (nameN@GOT,a2),a0 */
3854 0xf0, 0xf4, /* jmp (a0) */
3855 0xfe, 8, 0, 0, 0, 0, 0, /* mov reloc-table-address,r0 */
3856 0xf8, 0x22, 8, /* mov (8,a2),a0 */
3857 0xfb, 0xa, 0x1a, 4, /* mov (4,a2),r1 */
3858 0xf0, 0xf4, /* jmp (a0) */
3859 };
3860
3861 /* Return size of the first PLT entry. */
3862 #define elf_mn10300_sizeof_plt0(info) \
3863 (info->shared ? PIC_PLT_ENTRY_SIZE : PLT0_ENTRY_SIZE)
3864
3865 /* Return size of a PLT entry. */
3866 #define elf_mn10300_sizeof_plt(info) \
3867 (info->shared ? PIC_PLT_ENTRY_SIZE : PLT_ENTRY_SIZE)
3868
3869 /* Return offset of the PLT0 address in an absolute PLT entry. */
3870 #define elf_mn10300_plt_plt0_offset(info) 16
3871
3872 /* Return offset of the linker in PLT0 entry. */
3873 #define elf_mn10300_plt0_linker_offset(info) 2
3874
3875 /* Return offset of the GOT id in PLT0 entry. */
3876 #define elf_mn10300_plt0_gotid_offset(info) 9
3877
3878 /* Return offset of the temporary in PLT entry */
3879 #define elf_mn10300_plt_temp_offset(info) 8
3880
3881 /* Return offset of the symbol in PLT entry. */
3882 #define elf_mn10300_plt_symbol_offset(info) 2
3883
3884 /* Return offset of the relocation in PLT entry. */
3885 #define elf_mn10300_plt_reloc_offset(info) 11
3886
3887 /* The name of the dynamic interpreter. This is put in the .interp
3888 section. */
3889
3890 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
3891
3892 /* Create dynamic sections when linking against a dynamic object. */
3893
3894 static bfd_boolean
3895 _bfd_mn10300_elf_create_dynamic_sections (abfd, info)
3896 bfd *abfd;
3897 struct bfd_link_info *info;
3898 {
3899 flagword flags;
3900 asection * s;
3901 const struct elf_backend_data * bed = get_elf_backend_data (abfd);
3902 int ptralign = 0;
3903
3904 switch (bed->s->arch_size)
3905 {
3906 case 32:
3907 ptralign = 2;
3908 break;
3909
3910 case 64:
3911 ptralign = 3;
3912 break;
3913
3914 default:
3915 bfd_set_error (bfd_error_bad_value);
3916 return FALSE;
3917 }
3918
3919 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
3920 .rel[a].bss sections. */
3921
3922 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3923 | SEC_LINKER_CREATED);
3924
3925 s = bfd_make_section_with_flags (abfd,
3926 (bed->default_use_rela_p
3927 ? ".rela.plt" : ".rel.plt"),
3928 flags | SEC_READONLY);
3929 if (s == NULL
3930 || ! bfd_set_section_alignment (abfd, s, ptralign))
3931 return FALSE;
3932
3933 if (! _bfd_mn10300_elf_create_got_section (abfd, info))
3934 return FALSE;
3935
3936 {
3937 const char * secname;
3938 char * relname;
3939 flagword secflags;
3940 asection * sec;
3941
3942 for (sec = abfd->sections; sec; sec = sec->next)
3943 {
3944 secflags = bfd_get_section_flags (abfd, sec);
3945 if ((secflags & (SEC_DATA | SEC_LINKER_CREATED))
3946 || ((secflags & SEC_HAS_CONTENTS) != SEC_HAS_CONTENTS))
3947 continue;
3948
3949 secname = bfd_get_section_name (abfd, sec);
3950 relname = (char *) bfd_malloc (strlen (secname) + 6);
3951 strcpy (relname, ".rela");
3952 strcat (relname, secname);
3953
3954 s = bfd_make_section_with_flags (abfd, relname,
3955 flags | SEC_READONLY);
3956 if (s == NULL
3957 || ! bfd_set_section_alignment (abfd, s, ptralign))
3958 return FALSE;
3959 }
3960 }
3961
3962 if (bed->want_dynbss)
3963 {
3964 /* The .dynbss section is a place to put symbols which are defined
3965 by dynamic objects, are referenced by regular objects, and are
3966 not functions. We must allocate space for them in the process
3967 image and use a R_*_COPY reloc to tell the dynamic linker to
3968 initialize them at run time. The linker script puts the .dynbss
3969 section into the .bss section of the final image. */
3970 s = bfd_make_section_with_flags (abfd, ".dynbss",
3971 SEC_ALLOC | SEC_LINKER_CREATED);
3972 if (s == NULL)
3973 return FALSE;
3974
3975 /* The .rel[a].bss section holds copy relocs. This section is not
3976 normally needed. We need to create it here, though, so that the
3977 linker will map it to an output section. We can't just create it
3978 only if we need it, because we will not know whether we need it
3979 until we have seen all the input files, and the first time the
3980 main linker code calls BFD after examining all the input files
3981 (size_dynamic_sections) the input sections have already been
3982 mapped to the output sections. If the section turns out not to
3983 be needed, we can discard it later. We will never need this
3984 section when generating a shared object, since they do not use
3985 copy relocs. */
3986 if (! info->shared)
3987 {
3988 s = bfd_make_section_with_flags (abfd,
3989 (bed->default_use_rela_p
3990 ? ".rela.bss" : ".rel.bss"),
3991 flags | SEC_READONLY);
3992 if (s == NULL
3993 || ! bfd_set_section_alignment (abfd, s, ptralign))
3994 return FALSE;
3995 }
3996 }
3997
3998 return TRUE;
3999 }
4000 \f
4001 /* Adjust a symbol defined by a dynamic object and referenced by a
4002 regular object. The current definition is in some section of the
4003 dynamic object, but we're not including those sections. We have to
4004 change the definition to something the rest of the link can
4005 understand. */
4006
4007 static bfd_boolean
4008 _bfd_mn10300_elf_adjust_dynamic_symbol (info, h)
4009 struct bfd_link_info * info;
4010 struct elf_link_hash_entry * h;
4011 {
4012 bfd * dynobj;
4013 asection * s;
4014 unsigned int power_of_two;
4015
4016 dynobj = elf_hash_table (info)->dynobj;
4017
4018 /* Make sure we know what is going on here. */
4019 BFD_ASSERT (dynobj != NULL
4020 && (h->needs_plt
4021 || h->u.weakdef != NULL
4022 || (h->def_dynamic
4023 && h->ref_regular
4024 && !h->def_regular)));
4025
4026 /* If this is a function, put it in the procedure linkage table. We
4027 will fill in the contents of the procedure linkage table later,
4028 when we know the address of the .got section. */
4029 if (h->type == STT_FUNC
4030 || h->needs_plt)
4031 {
4032 if (! info->shared
4033 && !h->def_dynamic
4034 && !h->ref_dynamic)
4035 {
4036 /* This case can occur if we saw a PLT reloc in an input
4037 file, but the symbol was never referred to by a dynamic
4038 object. In such a case, we don't actually need to build
4039 a procedure linkage table, and we can just do a REL32
4040 reloc instead. */
4041 BFD_ASSERT (h->needs_plt);
4042 return TRUE;
4043 }
4044
4045 /* Make sure this symbol is output as a dynamic symbol. */
4046 if (h->dynindx == -1)
4047 {
4048 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4049 return FALSE;
4050 }
4051
4052 s = bfd_get_section_by_name (dynobj, ".plt");
4053 BFD_ASSERT (s != NULL);
4054
4055 /* If this is the first .plt entry, make room for the special
4056 first entry. */
4057 if (s->size == 0)
4058 s->size += elf_mn10300_sizeof_plt0 (info);
4059
4060 /* If this symbol is not defined in a regular file, and we are
4061 not generating a shared library, then set the symbol to this
4062 location in the .plt. This is required to make function
4063 pointers compare as equal between the normal executable and
4064 the shared library. */
4065 if (! info->shared
4066 && !h->def_regular)
4067 {
4068 h->root.u.def.section = s;
4069 h->root.u.def.value = s->size;
4070 }
4071
4072 h->plt.offset = s->size;
4073
4074 /* Make room for this entry. */
4075 s->size += elf_mn10300_sizeof_plt (info);
4076
4077 /* We also need to make an entry in the .got.plt section, which
4078 will be placed in the .got section by the linker script. */
4079
4080 s = bfd_get_section_by_name (dynobj, ".got.plt");
4081 BFD_ASSERT (s != NULL);
4082 s->size += 4;
4083
4084 /* We also need to make an entry in the .rela.plt section. */
4085
4086 s = bfd_get_section_by_name (dynobj, ".rela.plt");
4087 BFD_ASSERT (s != NULL);
4088 s->size += sizeof (Elf32_External_Rela);
4089
4090 return TRUE;
4091 }
4092
4093 /* If this is a weak symbol, and there is a real definition, the
4094 processor independent code will have arranged for us to see the
4095 real definition first, and we can just use the same value. */
4096 if (h->u.weakdef != NULL)
4097 {
4098 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4099 || h->u.weakdef->root.type == bfd_link_hash_defweak);
4100 h->root.u.def.section = h->u.weakdef->root.u.def.section;
4101 h->root.u.def.value = h->u.weakdef->root.u.def.value;
4102 return TRUE;
4103 }
4104
4105 /* This is a reference to a symbol defined by a dynamic object which
4106 is not a function. */
4107
4108 /* If we are creating a shared library, we must presume that the
4109 only references to the symbol are via the global offset table.
4110 For such cases we need not do anything here; the relocations will
4111 be handled correctly by relocate_section. */
4112 if (info->shared)
4113 return TRUE;
4114
4115 /* If there are no references to this symbol that do not use the
4116 GOT, we don't need to generate a copy reloc. */
4117 if (!h->non_got_ref)
4118 return TRUE;
4119
4120 /* We must allocate the symbol in our .dynbss section, which will
4121 become part of the .bss section of the executable. There will be
4122 an entry for this symbol in the .dynsym section. The dynamic
4123 object will contain position independent code, so all references
4124 from the dynamic object to this symbol will go through the global
4125 offset table. The dynamic linker will use the .dynsym entry to
4126 determine the address it must put in the global offset table, so
4127 both the dynamic object and the regular object will refer to the
4128 same memory location for the variable. */
4129
4130 s = bfd_get_section_by_name (dynobj, ".dynbss");
4131 BFD_ASSERT (s != NULL);
4132
4133 /* We must generate a R_MN10300_COPY reloc to tell the dynamic linker to
4134 copy the initial value out of the dynamic object and into the
4135 runtime process image. We need to remember the offset into the
4136 .rela.bss section we are going to use. */
4137 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
4138 {
4139 asection * srel;
4140
4141 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
4142 BFD_ASSERT (srel != NULL);
4143 srel->size += sizeof (Elf32_External_Rela);
4144 h->needs_copy = 1;
4145 }
4146
4147 /* We need to figure out the alignment required for this symbol. I
4148 have no idea how ELF linkers handle this. */
4149 power_of_two = bfd_log2 (h->size);
4150 if (power_of_two > 3)
4151 power_of_two = 3;
4152
4153 /* Apply the required alignment. */
4154 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
4155 if (power_of_two > bfd_get_section_alignment (dynobj, s))
4156 {
4157 if (! bfd_set_section_alignment (dynobj, s, power_of_two))
4158 return FALSE;
4159 }
4160
4161 /* Define the symbol as being at this point in the section. */
4162 h->root.u.def.section = s;
4163 h->root.u.def.value = s->size;
4164
4165 /* Increment the section size to make room for the symbol. */
4166 s->size += h->size;
4167
4168 return TRUE;
4169 }
4170
4171 /* Set the sizes of the dynamic sections. */
4172
4173 static bfd_boolean
4174 _bfd_mn10300_elf_size_dynamic_sections (output_bfd, info)
4175 bfd * output_bfd;
4176 struct bfd_link_info * info;
4177 {
4178 bfd * dynobj;
4179 asection * s;
4180 bfd_boolean plt;
4181 bfd_boolean relocs;
4182 bfd_boolean reltext;
4183
4184 dynobj = elf_hash_table (info)->dynobj;
4185 BFD_ASSERT (dynobj != NULL);
4186
4187 if (elf_hash_table (info)->dynamic_sections_created)
4188 {
4189 /* Set the contents of the .interp section to the interpreter. */
4190 if (info->executable)
4191 {
4192 s = bfd_get_section_by_name (dynobj, ".interp");
4193 BFD_ASSERT (s != NULL);
4194 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4195 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
4196 }
4197 }
4198 else
4199 {
4200 /* We may have created entries in the .rela.got section.
4201 However, if we are not creating the dynamic sections, we will
4202 not actually use these entries. Reset the size of .rela.got,
4203 which will cause it to get stripped from the output file
4204 below. */
4205 s = bfd_get_section_by_name (dynobj, ".rela.got");
4206 if (s != NULL)
4207 s->size = 0;
4208 }
4209
4210 /* The check_relocs and adjust_dynamic_symbol entry points have
4211 determined the sizes of the various dynamic sections. Allocate
4212 memory for them. */
4213 plt = FALSE;
4214 relocs = FALSE;
4215 reltext = FALSE;
4216 for (s = dynobj->sections; s != NULL; s = s->next)
4217 {
4218 const char * name;
4219 bfd_boolean strip;
4220
4221 if ((s->flags & SEC_LINKER_CREATED) == 0)
4222 continue;
4223
4224 /* It's OK to base decisions on the section name, because none
4225 of the dynobj section names depend upon the input files. */
4226 name = bfd_get_section_name (dynobj, s);
4227
4228 strip = FALSE;
4229
4230 if (strcmp (name, ".plt") == 0)
4231 {
4232 if (s->size == 0)
4233 /* Strip this section if we don't need it; see the
4234 comment below. */
4235 strip = TRUE;
4236 else
4237 /* Remember whether there is a PLT. */
4238 plt = TRUE;
4239 }
4240 else if (strncmp (name, ".rela", 5) == 0)
4241 {
4242 if (s->size == 0)
4243 {
4244 /* If we don't need this section, strip it from the
4245 output file. This is mostly to handle .rela.bss and
4246 .rela.plt. We must create both sections in
4247 create_dynamic_sections, because they must be created
4248 before the linker maps input sections to output
4249 sections. The linker does that before
4250 adjust_dynamic_symbol is called, and it is that
4251 function which decides whether anything needs to go
4252 into these sections. */
4253 strip = TRUE;
4254 }
4255 else
4256 {
4257 asection * target;
4258
4259 /* Remember whether there are any reloc sections other
4260 than .rela.plt. */
4261 if (strcmp (name, ".rela.plt") != 0)
4262 {
4263 const char * outname;
4264
4265 relocs = TRUE;
4266
4267 /* If this relocation section applies to a read only
4268 section, then we probably need a DT_TEXTREL
4269 entry. The entries in the .rela.plt section
4270 really apply to the .got section, which we
4271 created ourselves and so know is not readonly. */
4272 outname = bfd_get_section_name (output_bfd,
4273 s->output_section);
4274 target = bfd_get_section_by_name (output_bfd, outname + 5);
4275 if (target != NULL
4276 && (target->flags & SEC_READONLY) != 0
4277 && (target->flags & SEC_ALLOC) != 0)
4278 reltext = TRUE;
4279 }
4280
4281 /* We use the reloc_count field as a counter if we need
4282 to copy relocs into the output file. */
4283 s->reloc_count = 0;
4284 }
4285 }
4286 else if (strncmp (name, ".got", 4) != 0)
4287 /* It's not one of our sections, so don't allocate space. */
4288 continue;
4289
4290 if (strip)
4291 {
4292 s->flags |= SEC_EXCLUDE;
4293 continue;
4294 }
4295
4296 /* Allocate memory for the section contents. We use bfd_zalloc
4297 here in case unused entries are not reclaimed before the
4298 section's contents are written out. This should not happen,
4299 but this way if it does, we get a R_MN10300_NONE reloc
4300 instead of garbage. */
4301 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
4302 if (s->contents == NULL && s->size != 0)
4303 return FALSE;
4304 }
4305
4306 if (elf_hash_table (info)->dynamic_sections_created)
4307 {
4308 /* Add some entries to the .dynamic section. We fill in the
4309 values later, in _bfd_mn10300_elf_finish_dynamic_sections,
4310 but we must add the entries now so that we get the correct
4311 size for the .dynamic section. The DT_DEBUG entry is filled
4312 in by the dynamic linker and used by the debugger. */
4313 if (! info->shared)
4314 {
4315 if (!_bfd_elf_add_dynamic_entry (info, DT_DEBUG, 0))
4316 return FALSE;
4317 }
4318
4319 if (plt)
4320 {
4321 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0)
4322 || !_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4323 || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_RELA)
4324 || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4325 return FALSE;
4326 }
4327
4328 if (relocs)
4329 {
4330 if (!_bfd_elf_add_dynamic_entry (info, DT_RELA, 0)
4331 || !_bfd_elf_add_dynamic_entry (info, DT_RELASZ, 0)
4332 || !_bfd_elf_add_dynamic_entry (info, DT_RELAENT,
4333 sizeof (Elf32_External_Rela)))
4334 return FALSE;
4335 }
4336
4337 if (reltext)
4338 {
4339 if (!_bfd_elf_add_dynamic_entry (info, DT_TEXTREL, 0))
4340 return FALSE;
4341 }
4342 }
4343
4344 return TRUE;
4345 }
4346
4347 /* Finish up dynamic symbol handling. We set the contents of various
4348 dynamic sections here. */
4349
4350 static bfd_boolean
4351 _bfd_mn10300_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
4352 bfd * output_bfd;
4353 struct bfd_link_info * info;
4354 struct elf_link_hash_entry * h;
4355 Elf_Internal_Sym * sym;
4356 {
4357 bfd * dynobj;
4358
4359 dynobj = elf_hash_table (info)->dynobj;
4360
4361 if (h->plt.offset != (bfd_vma) -1)
4362 {
4363 asection * splt;
4364 asection * sgot;
4365 asection * srel;
4366 bfd_vma plt_index;
4367 bfd_vma got_offset;
4368 Elf_Internal_Rela rel;
4369
4370 /* This symbol has an entry in the procedure linkage table. Set
4371 it up. */
4372
4373 BFD_ASSERT (h->dynindx != -1);
4374
4375 splt = bfd_get_section_by_name (dynobj, ".plt");
4376 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4377 srel = bfd_get_section_by_name (dynobj, ".rela.plt");
4378 BFD_ASSERT (splt != NULL && sgot != NULL && srel != NULL);
4379
4380 /* Get the index in the procedure linkage table which
4381 corresponds to this symbol. This is the index of this symbol
4382 in all the symbols for which we are making plt entries. The
4383 first entry in the procedure linkage table is reserved. */
4384 plt_index = ((h->plt.offset - elf_mn10300_sizeof_plt0 (info))
4385 / elf_mn10300_sizeof_plt (info));
4386
4387 /* Get the offset into the .got table of the entry that
4388 corresponds to this function. Each .got entry is 4 bytes.
4389 The first three are reserved. */
4390 got_offset = (plt_index + 3) * 4;
4391
4392 /* Fill in the entry in the procedure linkage table. */
4393 if (! info->shared)
4394 {
4395 memcpy (splt->contents + h->plt.offset, elf_mn10300_plt_entry,
4396 elf_mn10300_sizeof_plt (info));
4397 bfd_put_32 (output_bfd,
4398 (sgot->output_section->vma
4399 + sgot->output_offset
4400 + got_offset),
4401 (splt->contents + h->plt.offset
4402 + elf_mn10300_plt_symbol_offset (info)));
4403
4404 bfd_put_32 (output_bfd,
4405 (1 - h->plt.offset - elf_mn10300_plt_plt0_offset (info)),
4406 (splt->contents + h->plt.offset
4407 + elf_mn10300_plt_plt0_offset (info)));
4408 }
4409 else
4410 {
4411 memcpy (splt->contents + h->plt.offset, elf_mn10300_pic_plt_entry,
4412 elf_mn10300_sizeof_plt (info));
4413
4414 bfd_put_32 (output_bfd, got_offset,
4415 (splt->contents + h->plt.offset
4416 + elf_mn10300_plt_symbol_offset (info)));
4417 }
4418
4419 bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
4420 (splt->contents + h->plt.offset
4421 + elf_mn10300_plt_reloc_offset (info)));
4422
4423 /* Fill in the entry in the global offset table. */
4424 bfd_put_32 (output_bfd,
4425 (splt->output_section->vma
4426 + splt->output_offset
4427 + h->plt.offset
4428 + elf_mn10300_plt_temp_offset (info)),
4429 sgot->contents + got_offset);
4430
4431 /* Fill in the entry in the .rela.plt section. */
4432 rel.r_offset = (sgot->output_section->vma
4433 + sgot->output_offset
4434 + got_offset);
4435 rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_JMP_SLOT);
4436 rel.r_addend = 0;
4437 bfd_elf32_swap_reloca_out (output_bfd, &rel,
4438 (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4439 + plt_index));
4440
4441 if (!h->def_regular)
4442 /* Mark the symbol as undefined, rather than as defined in
4443 the .plt section. Leave the value alone. */
4444 sym->st_shndx = SHN_UNDEF;
4445 }
4446
4447 if (h->got.offset != (bfd_vma) -1)
4448 {
4449 asection * sgot;
4450 asection * srel;
4451 Elf_Internal_Rela rel;
4452
4453 /* This symbol has an entry in the global offset table. Set it up. */
4454
4455 sgot = bfd_get_section_by_name (dynobj, ".got");
4456 srel = bfd_get_section_by_name (dynobj, ".rela.got");
4457 BFD_ASSERT (sgot != NULL && srel != NULL);
4458
4459 rel.r_offset = (sgot->output_section->vma
4460 + sgot->output_offset
4461 + (h->got.offset &~ 1));
4462
4463 /* If this is a -Bsymbolic link, and the symbol is defined
4464 locally, we just want to emit a RELATIVE reloc. Likewise if
4465 the symbol was forced to be local because of a version file.
4466 The entry in the global offset table will already have been
4467 initialized in the relocate_section function. */
4468 if (info->shared
4469 && (info->symbolic || h->dynindx == -1)
4470 && h->def_regular)
4471 {
4472 rel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
4473 rel.r_addend = (h->root.u.def.value
4474 + h->root.u.def.section->output_section->vma
4475 + h->root.u.def.section->output_offset);
4476 }
4477 else
4478 {
4479 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
4480 rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_GLOB_DAT);
4481 rel.r_addend = 0;
4482 }
4483
4484 bfd_elf32_swap_reloca_out (output_bfd, &rel,
4485 (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4486 + srel->reloc_count));
4487 ++ srel->reloc_count;
4488 }
4489
4490 if (h->needs_copy)
4491 {
4492 asection * s;
4493 Elf_Internal_Rela rel;
4494
4495 /* This symbol needs a copy reloc. Set it up. */
4496 BFD_ASSERT (h->dynindx != -1
4497 && (h->root.type == bfd_link_hash_defined
4498 || h->root.type == bfd_link_hash_defweak));
4499
4500 s = bfd_get_section_by_name (h->root.u.def.section->owner,
4501 ".rela.bss");
4502 BFD_ASSERT (s != NULL);
4503
4504 rel.r_offset = (h->root.u.def.value
4505 + h->root.u.def.section->output_section->vma
4506 + h->root.u.def.section->output_offset);
4507 rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_COPY);
4508 rel.r_addend = 0;
4509 bfd_elf32_swap_reloca_out (output_bfd, &rel,
4510 (bfd_byte *) ((Elf32_External_Rela *) s->contents
4511 + s->reloc_count));
4512 ++ s->reloc_count;
4513 }
4514
4515 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
4516 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
4517 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
4518 sym->st_shndx = SHN_ABS;
4519
4520 return TRUE;
4521 }
4522
4523 /* Finish up the dynamic sections. */
4524
4525 static bfd_boolean
4526 _bfd_mn10300_elf_finish_dynamic_sections (output_bfd, info)
4527 bfd * output_bfd;
4528 struct bfd_link_info * info;
4529 {
4530 bfd * dynobj;
4531 asection * sgot;
4532 asection * sdyn;
4533
4534 dynobj = elf_hash_table (info)->dynobj;
4535
4536 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4537 BFD_ASSERT (sgot != NULL);
4538 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4539
4540 if (elf_hash_table (info)->dynamic_sections_created)
4541 {
4542 asection * splt;
4543 Elf32_External_Dyn * dyncon;
4544 Elf32_External_Dyn * dynconend;
4545
4546 BFD_ASSERT (sdyn != NULL);
4547
4548 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4549 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4550
4551 for (; dyncon < dynconend; dyncon++)
4552 {
4553 Elf_Internal_Dyn dyn;
4554 const char * name;
4555 asection * s;
4556
4557 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4558
4559 switch (dyn.d_tag)
4560 {
4561 default:
4562 break;
4563
4564 case DT_PLTGOT:
4565 name = ".got";
4566 goto get_vma;
4567
4568 case DT_JMPREL:
4569 name = ".rela.plt";
4570 get_vma:
4571 s = bfd_get_section_by_name (output_bfd, name);
4572 BFD_ASSERT (s != NULL);
4573 dyn.d_un.d_ptr = s->vma;
4574 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4575 break;
4576
4577 case DT_PLTRELSZ:
4578 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4579 BFD_ASSERT (s != NULL);
4580 dyn.d_un.d_val = s->size;
4581 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4582 break;
4583
4584 case DT_RELASZ:
4585 /* My reading of the SVR4 ABI indicates that the
4586 procedure linkage table relocs (DT_JMPREL) should be
4587 included in the overall relocs (DT_RELA). This is
4588 what Solaris does. However, UnixWare can not handle
4589 that case. Therefore, we override the DT_RELASZ entry
4590 here to make it not include the JMPREL relocs. Since
4591 the linker script arranges for .rela.plt to follow all
4592 other relocation sections, we don't have to worry
4593 about changing the DT_RELA entry. */
4594 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4595 if (s != NULL)
4596 dyn.d_un.d_val -= s->size;
4597 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4598 break;
4599 }
4600 }
4601
4602 /* Fill in the first entry in the procedure linkage table. */
4603 splt = bfd_get_section_by_name (dynobj, ".plt");
4604 if (splt && splt->size > 0)
4605 {
4606 if (info->shared)
4607 {
4608 memcpy (splt->contents, elf_mn10300_pic_plt_entry,
4609 elf_mn10300_sizeof_plt (info));
4610 }
4611 else
4612 {
4613 memcpy (splt->contents, elf_mn10300_plt0_entry, PLT0_ENTRY_SIZE);
4614 bfd_put_32 (output_bfd,
4615 sgot->output_section->vma + sgot->output_offset + 4,
4616 splt->contents + elf_mn10300_plt0_gotid_offset (info));
4617 bfd_put_32 (output_bfd,
4618 sgot->output_section->vma + sgot->output_offset + 8,
4619 splt->contents + elf_mn10300_plt0_linker_offset (info));
4620 }
4621
4622 /* UnixWare sets the entsize of .plt to 4, although that doesn't
4623 really seem like the right value. */
4624 elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
4625 }
4626 }
4627
4628 /* Fill in the first three entries in the global offset table. */
4629 if (sgot->size > 0)
4630 {
4631 if (sdyn == NULL)
4632 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
4633 else
4634 bfd_put_32 (output_bfd,
4635 sdyn->output_section->vma + sdyn->output_offset,
4636 sgot->contents);
4637 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
4638 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
4639 }
4640
4641 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
4642
4643 return TRUE;
4644 }
4645
4646 /* Classify relocation types, such that combreloc can sort them
4647 properly. */
4648
4649 static enum elf_reloc_type_class
4650 _bfd_mn10300_elf_reloc_type_class (const Elf_Internal_Rela *rela)
4651 {
4652 switch ((int) ELF32_R_TYPE (rela->r_info))
4653 {
4654 case R_MN10300_RELATIVE:
4655 return reloc_class_relative;
4656 case R_MN10300_JMP_SLOT:
4657 return reloc_class_plt;
4658 case R_MN10300_COPY:
4659 return reloc_class_copy;
4660 default:
4661 return reloc_class_normal;
4662 }
4663 }
4664
4665 #ifndef ELF_ARCH
4666 #define TARGET_LITTLE_SYM bfd_elf32_mn10300_vec
4667 #define TARGET_LITTLE_NAME "elf32-mn10300"
4668 #define ELF_ARCH bfd_arch_mn10300
4669 #define ELF_MACHINE_CODE EM_MN10300
4670 #define ELF_MACHINE_ALT1 EM_CYGNUS_MN10300
4671 #define ELF_MAXPAGESIZE 0x1000
4672 #endif
4673
4674 #define elf_info_to_howto mn10300_info_to_howto
4675 #define elf_info_to_howto_rel 0
4676 #define elf_backend_can_gc_sections 1
4677 #define elf_backend_rela_normal 1
4678 #define elf_backend_check_relocs mn10300_elf_check_relocs
4679 #define elf_backend_gc_mark_hook mn10300_elf_gc_mark_hook
4680 #define elf_backend_relocate_section mn10300_elf_relocate_section
4681 #define bfd_elf32_bfd_relax_section mn10300_elf_relax_section
4682 #define bfd_elf32_bfd_get_relocated_section_contents \
4683 mn10300_elf_get_relocated_section_contents
4684 #define bfd_elf32_bfd_link_hash_table_create \
4685 elf32_mn10300_link_hash_table_create
4686 #define bfd_elf32_bfd_link_hash_table_free \
4687 elf32_mn10300_link_hash_table_free
4688
4689 #ifndef elf_symbol_leading_char
4690 #define elf_symbol_leading_char '_'
4691 #endif
4692
4693 /* So we can set bits in e_flags. */
4694 #define elf_backend_final_write_processing \
4695 _bfd_mn10300_elf_final_write_processing
4696 #define elf_backend_object_p _bfd_mn10300_elf_object_p
4697
4698 #define bfd_elf32_bfd_merge_private_bfd_data \
4699 _bfd_mn10300_elf_merge_private_bfd_data
4700
4701 #define elf_backend_can_gc_sections 1
4702 #define elf_backend_create_dynamic_sections \
4703 _bfd_mn10300_elf_create_dynamic_sections
4704 #define elf_backend_adjust_dynamic_symbol \
4705 _bfd_mn10300_elf_adjust_dynamic_symbol
4706 #define elf_backend_size_dynamic_sections \
4707 _bfd_mn10300_elf_size_dynamic_sections
4708 #define elf_backend_finish_dynamic_symbol \
4709 _bfd_mn10300_elf_finish_dynamic_symbol
4710 #define elf_backend_finish_dynamic_sections \
4711 _bfd_mn10300_elf_finish_dynamic_sections
4712
4713 #define elf_backend_reloc_type_class \
4714 _bfd_mn10300_elf_reloc_type_class
4715
4716 #define elf_backend_want_got_plt 1
4717 #define elf_backend_plt_readonly 1
4718 #define elf_backend_want_plt_sym 0
4719 #define elf_backend_got_header_size 12
4720
4721 #include "elf32-target.h"
git-cvsimport of binutils cvsroot