?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
[PATCH 40/57][Arm][OBJDUMP] Add support for MVE instructions: vdup, veor, vfma, vfms...
[binutils-gdb.git] / bfd / elf32-lm32.c
blob3a72eaa4069c9b24ce729309075809df3e25a9ae
1 /* Lattice Mico32-specific support for 32-bit ELF
2 Copyright (C) 2008-2019 Free Software Foundation, Inc.
3 Contributed by Jon Beniston <jon@beniston.com>
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libbfd.h"
25 #include "elf-bfd.h"
26 #include "elf/lm32.h"
27
28 #define DEFAULT_STACK_SIZE 0x20000
29
30 #define PLT_ENTRY_SIZE 20
31
32 #define PLT0_ENTRY_WORD0 0
33 #define PLT0_ENTRY_WORD1 0
34 #define PLT0_ENTRY_WORD2 0
35 #define PLT0_ENTRY_WORD3 0
36 #define PLT0_ENTRY_WORD4 0
37
38 #define PLT0_PIC_ENTRY_WORD0 0
39 #define PLT0_PIC_ENTRY_WORD1 0
40 #define PLT0_PIC_ENTRY_WORD2 0
41 #define PLT0_PIC_ENTRY_WORD3 0
42 #define PLT0_PIC_ENTRY_WORD4 0
43
44 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/libc.so.1"
45
46 extern const bfd_target lm32_elf32_fdpic_vec;
47
48 #define IS_FDPIC(bfd) ((bfd)->xvec == &lm32_elf32_fdpic_vec)
49
50 static bfd_reloc_status_type lm32_elf_gprel_reloc
51 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
52
53 /* lm32 ELF linker hash entry. */
54
55 struct elf_lm32_link_hash_entry
56 {
57 struct elf_link_hash_entry root;
58
59 /* Track dynamic relocs copied for this symbol. */
60 struct elf_dyn_relocs *dyn_relocs;
61 };
62
63 /* lm32 ELF linker hash table. */
64
65 struct elf_lm32_link_hash_table
66 {
67 struct elf_link_hash_table root;
68
69 /* Short-cuts to get to dynamic linker sections. */
70 asection *sfixup32;
71 asection *sdynbss;
72 asection *srelbss;
73
74 int relocs32;
75 };
76
77 /* Get the lm32 ELF linker hash table from a link_info structure. */
78
79 #define lm32_elf_hash_table(p) \
80 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
81 == LM32_ELF_DATA ? ((struct elf_lm32_link_hash_table *) ((p)->hash)) : NULL)
82
83 #define lm32fdpic_got_section(info) \
84 (lm32_elf_hash_table (info)->root.sgot)
85 #define lm32fdpic_gotrel_section(info) \
86 (lm32_elf_hash_table (info)->root.srelgot)
87 #define lm32fdpic_fixup32_section(info) \
88 (lm32_elf_hash_table (info)->sfixup32)
89
90 struct weak_symbol_list
91 {
92 const char *name;
93 struct weak_symbol_list *next;
94 };
95
96 /* Create an entry in an lm32 ELF linker hash table. */
97
98 static struct bfd_hash_entry *
99 lm32_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
100 struct bfd_hash_table *table,
101 const char *string)
102 {
103 struct elf_lm32_link_hash_entry *ret =
104 (struct elf_lm32_link_hash_entry *) entry;
105
106 /* Allocate the structure if it has not already been allocated by a
107 subclass. */
108 if (ret == NULL)
109 ret = bfd_hash_allocate (table,
110 sizeof (struct elf_lm32_link_hash_entry));
111 if (ret == NULL)
112 return NULL;
113
114 /* Call the allocation method of the superclass. */
115 ret = ((struct elf_lm32_link_hash_entry *)
116 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
117 table, string));
118 if (ret != NULL)
119 {
120 struct elf_lm32_link_hash_entry *eh;
121
122 eh = (struct elf_lm32_link_hash_entry *) ret;
123 eh->dyn_relocs = NULL;
124 }
125
126 return (struct bfd_hash_entry *) ret;
127 }
128
129 /* Create an lm32 ELF linker hash table. */
130
131 static struct bfd_link_hash_table *
132 lm32_elf_link_hash_table_create (bfd *abfd)
133 {
134 struct elf_lm32_link_hash_table *ret;
135 bfd_size_type amt = sizeof (struct elf_lm32_link_hash_table);
136
137 ret = bfd_zmalloc (amt);
138 if (ret == NULL)
139 return NULL;
140
141 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
142 lm32_elf_link_hash_newfunc,
143 sizeof (struct elf_lm32_link_hash_entry),
144 LM32_ELF_DATA))
145 {
146 free (ret);
147 return NULL;
148 }
149
150 return &ret->root.root;
151 }
152
153 /* Add a fixup to the ROFIXUP section. */
154
155 static bfd_vma
156 _lm32fdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma relocation)
157 {
158 bfd_vma fixup_offset;
159
160 if (rofixup->flags & SEC_EXCLUDE)
161 return -1;
162
163 fixup_offset = rofixup->reloc_count * 4;
164 if (rofixup->contents)
165 {
166 BFD_ASSERT (fixup_offset < rofixup->size);
167 if (fixup_offset < rofixup->size)
168 bfd_put_32 (output_bfd, relocation, rofixup->contents + fixup_offset);
169 }
170 rofixup->reloc_count++;
171
172 return fixup_offset;
173 }
174
175 /* Create .rofixup sections in DYNOBJ, and set up
176 shortcuts to them in our hash table. */
177
178 static bfd_boolean
179 create_rofixup_section (bfd *dynobj, struct bfd_link_info *info)
180 {
181 struct elf_lm32_link_hash_table *htab;
182 htab = lm32_elf_hash_table (info);
183
184 if (htab == NULL)
185 return FALSE;
186
187 /* Fixup section for R_LM32_32 relocs. */
188 lm32fdpic_fixup32_section (info)
189 = bfd_make_section_anyway_with_flags (dynobj,
190 ".rofixup",
191 (SEC_ALLOC
192 | SEC_LOAD
193 | SEC_HAS_CONTENTS
194 | SEC_IN_MEMORY
195 | SEC_LINKER_CREATED
196 | SEC_READONLY));
197 if (lm32fdpic_fixup32_section (info) == NULL
198 || ! bfd_set_section_alignment (dynobj,
199 lm32fdpic_fixup32_section (info), 2))
200 return FALSE;
201
202 return TRUE;
203 }
204
205 static reloc_howto_type lm32_elf_howto_table [] =
206 {
207 /* This reloc does nothing. */
208 HOWTO (R_LM32_NONE, /* type */
209 0, /* rightshift */
210 3, /* size (0 = byte, 1 = short, 2 = long) */
211 0, /* bitsize */
212 FALSE, /* pc_relative */
213 0, /* bitpos */
214 complain_overflow_dont, /* complain_on_overflow */
215 bfd_elf_generic_reloc, /* special_function */
216 "R_LM32_NONE", /* name */
217 FALSE, /* partial_inplace */
218 0, /* src_mask */
219 0, /* dst_mask */
220 FALSE), /* pcrel_offset */
221
222 /* An 8 bit absolute relocation. */
223 HOWTO (R_LM32_8, /* type */
224 0, /* rightshift */
225 0, /* size (0 = byte, 1 = short, 2 = long) */
226 8, /* bitsize */
227 FALSE, /* pc_relative */
228 0, /* bitpos */
229 complain_overflow_bitfield,/* complain_on_overflow */
230 bfd_elf_generic_reloc, /* special_function */
231 "R_LM32_8", /* name */
232 FALSE, /* partial_inplace */
233 0, /* src_mask */
234 0xff, /* dst_mask */
235 FALSE), /* pcrel_offset */
236
237 /* A 16 bit absolute relocation. */
238 HOWTO (R_LM32_16, /* type */
239 0, /* rightshift */
240 1, /* size (0 = byte, 1 = short, 2 = long) */
241 16, /* bitsize */
242 FALSE, /* pc_relative */
243 0, /* bitpos */
244 complain_overflow_bitfield,/* complain_on_overflow */
245 bfd_elf_generic_reloc, /* special_function */
246 "R_LM32_16", /* name */
247 FALSE, /* partial_inplace */
248 0, /* src_mask */
249 0xffff, /* dst_mask */
250 FALSE), /* pcrel_offset */
251
252 /* A 32 bit absolute relocation. */
253 HOWTO (R_LM32_32, /* type */
254 0, /* rightshift */
255 2, /* size (0 = byte, 1 = short, 2 = long) */
256 32, /* bitsize */
257 FALSE, /* pc_relative */
258 0, /* bitpos */
259 complain_overflow_bitfield,/* complain_on_overflow */
260 bfd_elf_generic_reloc, /* special_function */
261 "R_LM32_32", /* name */
262 FALSE, /* partial_inplace */
263 0, /* src_mask */
264 0xffffffff, /* dst_mask */
265 FALSE), /* pcrel_offset */
266
267 HOWTO (R_LM32_HI16, /* type */
268 16, /* rightshift */
269 2, /* size (0 = byte, 1 = short, 2 = long) */
270 16, /* bitsize */
271 FALSE, /* pc_relative */
272 0, /* bitpos */
273 complain_overflow_bitfield,/* complain_on_overflow */
274 bfd_elf_generic_reloc, /* special_function */
275 "R_LM32_HI16", /* name */
276 FALSE, /* partial_inplace */
277 0, /* src_mask */
278 0xffff, /* dst_mask */
279 FALSE), /* pcrel_offset */
280
281 HOWTO (R_LM32_LO16, /* type */
282 0, /* rightshift */
283 2, /* size (0 = byte, 1 = short, 2 = long) */
284 16, /* bitsize */
285 FALSE, /* pc_relative */
286 0, /* bitpos */
287 complain_overflow_dont, /* complain_on_overflow */
288 bfd_elf_generic_reloc, /* special_function */
289 "R_LM32_LO16", /* name */
290 FALSE, /* partial_inplace */
291 0, /* src_mask */
292 0xffff, /* dst_mask */
293 FALSE), /* pcrel_offset */
294
295 HOWTO (R_LM32_GPREL16, /* type */
296 0, /* rightshift */
297 2, /* size (0 = byte, 1 = short, 2 = long) */
298 16, /* bitsize */
299 FALSE, /* pc_relative */
300 0, /* bitpos */
301 complain_overflow_dont, /* complain_on_overflow */
302 lm32_elf_gprel_reloc, /* special_function */
303 "R_LM32_GPREL16", /* name */
304 FALSE, /* partial_inplace */
305 0, /* src_mask */
306 0xffff, /* dst_mask */
307 FALSE), /* pcrel_offset */
308
309 HOWTO (R_LM32_CALL, /* type */
310 2, /* rightshift */
311 2, /* size (0 = byte, 1 = short, 2 = long) */
312 26, /* bitsize */
313 TRUE, /* pc_relative */
314 0, /* bitpos */
315 complain_overflow_signed, /* complain_on_overflow */
316 bfd_elf_generic_reloc, /* special_function */
317 "R_LM32_CALL", /* name */
318 FALSE, /* partial_inplace */
319 0, /* src_mask */
320 0x3ffffff, /* dst_mask */
321 TRUE), /* pcrel_offset */
322
323 HOWTO (R_LM32_BRANCH, /* type */
324 2, /* rightshift */
325 2, /* size (0 = byte, 1 = short, 2 = long) */
326 16, /* bitsize */
327 TRUE, /* pc_relative */
328 0, /* bitpos */
329 complain_overflow_signed, /* complain_on_overflow */
330 bfd_elf_generic_reloc, /* special_function */
331 "R_LM32_BRANCH", /* name */
332 FALSE, /* partial_inplace */
333 0, /* src_mask */
334 0xffff, /* dst_mask */
335 TRUE), /* pcrel_offset */
336
337 /* GNU extension to record C++ vtable hierarchy. */
338 HOWTO (R_LM32_GNU_VTINHERIT, /* type */
339 0, /* rightshift */
340 2, /* size (0 = byte, 1 = short, 2 = long) */
341 0, /* bitsize */
342 FALSE, /* pc_relative */
343 0, /* bitpos */
344 complain_overflow_dont, /* complain_on_overflow */
345 NULL, /* special_function */
346 "R_LM32_GNU_VTINHERIT", /* name */
347 FALSE, /* partial_inplace */
348 0, /* src_mask */
349 0, /* dst_mask */
350 FALSE), /* pcrel_offset */
351
352 /* GNU extension to record C++ vtable member usage. */
353 HOWTO (R_LM32_GNU_VTENTRY, /* type */
354 0, /* rightshift */
355 2, /* size (0 = byte, 1 = short, 2 = long) */
356 0, /* bitsize */
357 FALSE, /* pc_relative */
358 0, /* bitpos */
359 complain_overflow_dont, /* complain_on_overflow */
360 _bfd_elf_rel_vtable_reloc_fn,/* special_function */
361 "R_LM32_GNU_VTENTRY", /* name */
362 FALSE, /* partial_inplace */
363 0, /* src_mask */
364 0, /* dst_mask */
365 FALSE), /* pcrel_offset */
366
367 HOWTO (R_LM32_16_GOT, /* type */
368 0, /* rightshift */
369 2, /* size (0 = byte, 1 = short, 2 = long) */
370 16, /* bitsize */
371 FALSE, /* pc_relative */
372 0, /* bitpos */
373 complain_overflow_signed, /* complain_on_overflow */
374 bfd_elf_generic_reloc, /* special_function */
375 "R_LM32_16_GOT", /* name */
376 FALSE, /* partial_inplace */
377 0, /* src_mask */
378 0xffff, /* dst_mask */
379 FALSE), /* pcrel_offset */
380
381 HOWTO (R_LM32_GOTOFF_HI16, /* type */
382 16, /* rightshift */
383 2, /* size (0 = byte, 1 = short, 2 = long) */
384 16, /* bitsize */
385 FALSE, /* pc_relative */
386 0, /* bitpos */
387 complain_overflow_dont, /* complain_on_overflow */
388 bfd_elf_generic_reloc, /* special_function */
389 "R_LM32_GOTOFF_HI16", /* name */
390 FALSE, /* partial_inplace */
391 0xffff, /* src_mask */
392 0xffff, /* dst_mask */
393 FALSE), /* pcrel_offset */
394
395 HOWTO (R_LM32_GOTOFF_LO16, /* type */
396 0, /* rightshift */
397 2, /* size (0 = byte, 1 = short, 2 = long) */
398 16, /* bitsize */
399 FALSE, /* pc_relative */
400 0, /* bitpos */
401 complain_overflow_dont, /* complain_on_overflow */
402 bfd_elf_generic_reloc, /* special_function */
403 "R_LM32_GOTOFF_LO16", /* name */
404 FALSE, /* partial_inplace */
405 0xffff, /* src_mask */
406 0xffff, /* dst_mask */
407 FALSE), /* pcrel_offset */
408
409 HOWTO (R_LM32_COPY, /* type */
410 0, /* rightshift */
411 2, /* size (0 = byte, 1 = short, 2 = long) */
412 32, /* bitsize */
413 FALSE, /* pc_relative */
414 0, /* bitpos */
415 complain_overflow_bitfield, /* complain_on_overflow */
416 bfd_elf_generic_reloc, /* special_function */
417 "R_LM32_COPY", /* name */
418 FALSE, /* partial_inplace */
419 0xffffffff, /* src_mask */
420 0xffffffff, /* dst_mask */
421 FALSE), /* pcrel_offset */
422
423 HOWTO (R_LM32_GLOB_DAT, /* type */
424 0, /* rightshift */
425 2, /* size (0 = byte, 1 = short, 2 = long) */
426 32, /* bitsize */
427 FALSE, /* pc_relative */
428 0, /* bitpos */
429 complain_overflow_bitfield, /* complain_on_overflow */
430 bfd_elf_generic_reloc, /* special_function */
431 "R_LM32_GLOB_DAT", /* name */
432 FALSE, /* partial_inplace */
433 0xffffffff, /* src_mask */
434 0xffffffff, /* dst_mask */
435 FALSE), /* pcrel_offset */
436
437 HOWTO (R_LM32_JMP_SLOT, /* type */
438 0, /* rightshift */
439 2, /* size (0 = byte, 1 = short, 2 = long) */
440 32, /* bitsize */
441 FALSE, /* pc_relative */
442 0, /* bitpos */
443 complain_overflow_bitfield, /* complain_on_overflow */
444 bfd_elf_generic_reloc, /* special_function */
445 "R_LM32_JMP_SLOT", /* name */
446 FALSE, /* partial_inplace */
447 0xffffffff, /* src_mask */
448 0xffffffff, /* dst_mask */
449 FALSE), /* pcrel_offset */
450
451 HOWTO (R_LM32_RELATIVE, /* type */
452 0, /* rightshift */
453 2, /* size (0 = byte, 1 = short, 2 = long) */
454 32, /* bitsize */
455 FALSE, /* pc_relative */
456 0, /* bitpos */
457 complain_overflow_bitfield, /* complain_on_overflow */
458 bfd_elf_generic_reloc, /* special_function */
459 "R_LM32_RELATIVE", /* name */
460 FALSE, /* partial_inplace */
461 0xffffffff, /* src_mask */
462 0xffffffff, /* dst_mask */
463 FALSE), /* pcrel_offset */
464
465 };
466
467 /* Map BFD reloc types to lm32 ELF reloc types. */
468
469 struct lm32_reloc_map
470 {
471 bfd_reloc_code_real_type bfd_reloc_val;
472 unsigned char elf_reloc_val;
473 };
474
475 static const struct lm32_reloc_map lm32_reloc_map[] =
476 {
477 { BFD_RELOC_NONE, R_LM32_NONE },
478 { BFD_RELOC_8, R_LM32_8 },
479 { BFD_RELOC_16, R_LM32_16 },
480 { BFD_RELOC_32, R_LM32_32 },
481 { BFD_RELOC_HI16, R_LM32_HI16 },
482 { BFD_RELOC_LO16, R_LM32_LO16 },
483 { BFD_RELOC_GPREL16, R_LM32_GPREL16 },
484 { BFD_RELOC_LM32_CALL, R_LM32_CALL },
485 { BFD_RELOC_LM32_BRANCH, R_LM32_BRANCH },
486 { BFD_RELOC_VTABLE_INHERIT, R_LM32_GNU_VTINHERIT },
487 { BFD_RELOC_VTABLE_ENTRY, R_LM32_GNU_VTENTRY },
488 { BFD_RELOC_LM32_16_GOT, R_LM32_16_GOT },
489 { BFD_RELOC_LM32_GOTOFF_HI16, R_LM32_GOTOFF_HI16 },
490 { BFD_RELOC_LM32_GOTOFF_LO16, R_LM32_GOTOFF_LO16 },
491 { BFD_RELOC_LM32_COPY, R_LM32_COPY },
492 { BFD_RELOC_LM32_GLOB_DAT, R_LM32_GLOB_DAT },
493 { BFD_RELOC_LM32_JMP_SLOT, R_LM32_JMP_SLOT },
494 { BFD_RELOC_LM32_RELATIVE, R_LM32_RELATIVE },
495 };
496
497 static reloc_howto_type *
498 lm32_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
499 bfd_reloc_code_real_type code)
500 {
501 unsigned int i;
502
503 for (i = 0; i < sizeof (lm32_reloc_map) / sizeof (lm32_reloc_map[0]); i++)
504 if (lm32_reloc_map[i].bfd_reloc_val == code)
505 return &lm32_elf_howto_table[lm32_reloc_map[i].elf_reloc_val];
506 return NULL;
507 }
508
509 static reloc_howto_type *
510 lm32_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
511 const char *r_name)
512 {
513 unsigned int i;
514
515 for (i = 0;
516 i < sizeof (lm32_elf_howto_table) / sizeof (lm32_elf_howto_table[0]);
517 i++)
518 if (lm32_elf_howto_table[i].name != NULL
519 && strcasecmp (lm32_elf_howto_table[i].name, r_name) == 0)
520 return &lm32_elf_howto_table[i];
521
522 return NULL;
523 }
524
525
526 /* Set the howto pointer for an Lattice Mico32 ELF reloc. */
527
528 static bfd_boolean
529 lm32_info_to_howto_rela (bfd *abfd,
530 arelent *cache_ptr,
531 Elf_Internal_Rela *dst)
532 {
533 unsigned int r_type;
534
535 r_type = ELF32_R_TYPE (dst->r_info);
536 if (r_type >= (unsigned int) R_LM32_max)
537 {
538 /* xgettext:c-format */
539 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
540 abfd, r_type);
541 bfd_set_error (bfd_error_bad_value);
542 return FALSE;
543 }
544 cache_ptr->howto = &lm32_elf_howto_table[r_type];
545 return TRUE;
546 }
547
548 /* Set the right machine number for an Lattice Mico32 ELF file. */
549
550 static bfd_boolean
551 lm32_elf_object_p (bfd *abfd)
552 {
553 return bfd_default_set_arch_mach (abfd, bfd_arch_lm32, bfd_mach_lm32);
554 }
555
556 /* Set machine type flags just before file is written out. */
557
558 static void
559 lm32_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
560 {
561 elf_elfheader (abfd)->e_machine = EM_LATTICEMICO32;
562 elf_elfheader (abfd)->e_flags &=~ EF_LM32_MACH;
563 switch (bfd_get_mach (abfd))
564 {
565 case bfd_mach_lm32:
566 elf_elfheader (abfd)->e_flags |= E_LM32_MACH;
567 break;
568 default:
569 abort ();
570 }
571 }
572
573 /* Set the GP value for OUTPUT_BFD. Returns FALSE if this is a
574 dangerous relocation. */
575
576 static bfd_boolean
577 lm32_elf_assign_gp (bfd *output_bfd, bfd_vma *pgp)
578 {
579 unsigned int count;
580 asymbol **sym;
581 unsigned int i;
582
583 /* If we've already figured out what GP will be, just return it. */
584 *pgp = _bfd_get_gp_value (output_bfd);
585 if (*pgp)
586 return TRUE;
587
588 count = bfd_get_symcount (output_bfd);
589 sym = bfd_get_outsymbols (output_bfd);
590
591 /* The linker script will have created a symbol named `_gp' with the
592 appropriate value. */
593 if (sym == NULL)
594 i = count;
595 else
596 {
597 for (i = 0; i < count; i++, sym++)
598 {
599 const char *name;
600
601 name = bfd_asymbol_name (*sym);
602 if (*name == '_' && strcmp (name, "_gp") == 0)
603 {
604 *pgp = bfd_asymbol_value (*sym);
605 _bfd_set_gp_value (output_bfd, *pgp);
606 break;
607 }
608 }
609 }
610
611 if (i >= count)
612 {
613 /* Only get the error once. */
614 *pgp = 4;
615 _bfd_set_gp_value (output_bfd, *pgp);
616 return FALSE;
617 }
618
619 return TRUE;
620 }
621
622 /* We have to figure out the gp value, so that we can adjust the
623 symbol value correctly. We look up the symbol _gp in the output
624 BFD. If we can't find it, we're stuck. We cache it in the ELF
625 target data. We don't need to adjust the symbol value for an
626 external symbol if we are producing relocatable output. */
627
628 static bfd_reloc_status_type
629 lm32_elf_final_gp (bfd *output_bfd, asymbol *symbol, bfd_boolean relocatable,
630 char **error_message, bfd_vma *pgp)
631 {
632 if (bfd_is_und_section (symbol->section) && !relocatable)
633 {
634 *pgp = 0;
635 return bfd_reloc_undefined;
636 }
637
638 *pgp = _bfd_get_gp_value (output_bfd);
639 if (*pgp == 0 && (!relocatable || (symbol->flags & BSF_SECTION_SYM) != 0))
640 {
641 if (relocatable)
642 {
643 /* Make up a value. */
644 *pgp = symbol->section->output_section->vma + 0x4000;
645 _bfd_set_gp_value (output_bfd, *pgp);
646 }
647 else if (!lm32_elf_assign_gp (output_bfd, pgp))
648 {
649 *error_message =
650 (char *)
651 _("global pointer relative relocation when _gp not defined");
652 return bfd_reloc_dangerous;
653 }
654 }
655
656 return bfd_reloc_ok;
657 }
658
659 static bfd_reloc_status_type
660 lm32_elf_do_gprel_relocate (bfd *abfd,
661 reloc_howto_type *howto,
662 asection *input_section ATTRIBUTE_UNUSED,
663 bfd_byte *data,
664 bfd_vma offset,
665 bfd_vma symbol_value,
666 bfd_vma addend)
667 {
668 return _bfd_final_link_relocate (howto, abfd, input_section,
669 data, offset, symbol_value, addend);
670 }
671
672 static bfd_reloc_status_type
673 lm32_elf_gprel_reloc (bfd *abfd,
674 arelent *reloc_entry,
675 asymbol *symbol,
676 void *data,
677 asection *input_section,
678 bfd *output_bfd,
679 char **msg)
680 {
681 bfd_vma relocation;
682 bfd_vma gp;
683 bfd_reloc_status_type r;
684
685 if (output_bfd != (bfd *) NULL
686 && (symbol->flags & BSF_SECTION_SYM) == 0
687 && (!reloc_entry->howto->partial_inplace || reloc_entry->addend == 0))
688 {
689 reloc_entry->address += input_section->output_offset;
690 return bfd_reloc_ok;
691 }
692
693 if (output_bfd != NULL)
694 return bfd_reloc_ok;
695
696 relocation = symbol->value
697 + symbol->section->output_section->vma + symbol->section->output_offset;
698
699 if ((r =
700 lm32_elf_final_gp (abfd, symbol, FALSE, msg, &gp)) == bfd_reloc_ok)
701 {
702 relocation = relocation + reloc_entry->addend - gp;
703 reloc_entry->addend = 0;
704 if ((signed) relocation < -32768 || (signed) relocation > 32767)
705 {
706 *msg = _("global pointer relative address out of range");
707 r = bfd_reloc_outofrange;
708 }
709 else
710 {
711 r = lm32_elf_do_gprel_relocate (abfd, reloc_entry->howto,
712 input_section,
713 data, reloc_entry->address,
714 relocation, reloc_entry->addend);
715 }
716 }
717
718 return r;
719 }
720
721 /* Find the segment number in which OSEC, and output section, is
722 located. */
723
724 static unsigned
725 _lm32fdpic_osec_to_segment (bfd *output_bfd, asection *osec)
726 {
727 struct elf_segment_map *m;
728 Elf_Internal_Phdr *p;
729
730 /* Find the segment that contains the output_section. */
731 for (m = elf_seg_map (output_bfd), p = elf_tdata (output_bfd)->phdr;
732 m != NULL;
733 m = m->next, p++)
734 {
735 int i;
736
737 for (i = m->count - 1; i >= 0; i--)
738 if (m->sections[i] == osec)
739 break;
740
741 if (i >= 0)
742 break;
743 }
744
745 return p - elf_tdata (output_bfd)->phdr;
746 }
747
748 /* Determine if an output section is read-only. */
749
750 inline static bfd_boolean
751 _lm32fdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
752 {
753 unsigned seg = _lm32fdpic_osec_to_segment (output_bfd, osec);
754
755 return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
756 }
757
758 /* Relocate a section */
759
760 static bfd_boolean
761 lm32_elf_relocate_section (bfd *output_bfd,
762 struct bfd_link_info *info,
763 bfd *input_bfd,
764 asection *input_section,
765 bfd_byte *contents,
766 Elf_Internal_Rela *relocs,
767 Elf_Internal_Sym *local_syms,
768 asection **local_sections)
769 {
770 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
771 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
772 Elf_Internal_Rela *rel, *relend;
773 struct elf_lm32_link_hash_table *htab = lm32_elf_hash_table (info);
774 bfd_vma *local_got_offsets;
775 asection *sgot;
776
777 if (htab == NULL)
778 return FALSE;
779
780 local_got_offsets = elf_local_got_offsets (input_bfd);
781
782 sgot = htab->root.sgot;
783
784 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
785 sym_hashes = elf_sym_hashes (input_bfd);
786
787 rel = relocs;
788 relend = relocs + input_section->reloc_count;
789 for (; rel < relend; rel++)
790 {
791 reloc_howto_type *howto;
792 unsigned int r_type;
793 unsigned long r_symndx;
794 Elf_Internal_Sym *sym;
795 asection *sec;
796 struct elf_link_hash_entry *h;
797 bfd_vma relocation;
798 bfd_vma gp;
799 bfd_reloc_status_type r;
800 const char *name = NULL;
801
802 r_symndx = ELF32_R_SYM (rel->r_info);
803 r_type = ELF32_R_TYPE (rel->r_info);
804
805 if (r_type == R_LM32_GNU_VTENTRY
806 || r_type == R_LM32_GNU_VTINHERIT )
807 continue;
808
809 h = NULL;
810 sym = NULL;
811 sec = NULL;
812
813 howto = lm32_elf_howto_table + r_type;
814
815 if (r_symndx < symtab_hdr->sh_info)
816 {
817 /* It's a local symbol. */
818 sym = local_syms + r_symndx;
819 sec = local_sections[r_symndx];
820 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
821 name = bfd_elf_string_from_elf_section
822 (input_bfd, symtab_hdr->sh_link, sym->st_name);
823 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
824 }
825 else
826 {
827 /* It's a global symbol. */
828 bfd_boolean unresolved_reloc;
829 bfd_boolean warned, ignored;
830
831 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
832 r_symndx, symtab_hdr, sym_hashes,
833 h, sec, relocation,
834 unresolved_reloc, warned, ignored);
835 name = h->root.root.string;
836 }
837
838 if (sec != NULL && discarded_section (sec))
839 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
840 rel, 1, relend, howto, 0, contents);
841
842 if (bfd_link_relocatable (info))
843 {
844 /* This is a relocatable link. We don't have to change
845 anything, unless the reloc is against a section symbol,
846 in which case we have to adjust according to where the
847 section symbol winds up in the output section. */
848 if (sym == NULL || ELF_ST_TYPE (sym->st_info) != STT_SECTION)
849 continue;
850
851 /* If partial_inplace, we need to store any additional addend
852 back in the section. */
853 if (! howto->partial_inplace)
854 continue;
855
856 /* Shouldn't reach here. */
857 abort ();
858 r = bfd_reloc_ok;
859 }
860 else
861 {
862 switch (howto->type)
863 {
864 case R_LM32_GPREL16:
865 if (!lm32_elf_assign_gp (output_bfd, &gp))
866 r = bfd_reloc_dangerous;
867 else
868 {
869 relocation = relocation + rel->r_addend - gp;
870 rel->r_addend = 0;
871 if ((signed)relocation < -32768 || (signed)relocation > 32767)
872 r = bfd_reloc_outofrange;
873 else
874 {
875 r = _bfd_final_link_relocate (howto, input_bfd,
876 input_section, contents,
877 rel->r_offset, relocation,
878 rel->r_addend);
879 }
880 }
881 break;
882 case R_LM32_16_GOT:
883 /* Relocation is to the entry for this symbol in the global
884 offset table. */
885 BFD_ASSERT (sgot != NULL);
886 if (h != NULL)
887 {
888 bfd_boolean dyn;
889 bfd_vma off;
890
891 off = h->got.offset;
892 BFD_ASSERT (off != (bfd_vma) -1);
893
894 dyn = htab->root.dynamic_sections_created;
895 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
896 bfd_link_pic (info),
897 h)
898 || (bfd_link_pic (info)
899 && (info->symbolic
900 || h->dynindx == -1
901 || h->forced_local)
902 && h->def_regular))
903 {
904 /* This is actually a static link, or it is a
905 -Bsymbolic link and the symbol is defined
906 locally, or the symbol was forced to be local
907 because of a version file. We must initialize
908 this entry in the global offset table. Since the
909 offset must always be a multiple of 4, we use the
910 least significant bit to record whether we have
911 initialized it already.
912
913 When doing a dynamic link, we create a .rela.got
914 relocation entry to initialize the value. This
915 is done in the finish_dynamic_symbol routine. */
916 if ((off & 1) != 0)
917 off &= ~1;
918 else
919 {
920 /* Write entry in GOT */
921 bfd_put_32 (output_bfd, relocation,
922 sgot->contents + off);
923 /* Create entry in .rofixup pointing to GOT entry. */
924 if (IS_FDPIC (output_bfd) && h->root.type != bfd_link_hash_undefweak)
925 {
926 _lm32fdpic_add_rofixup (output_bfd,
927 lm32fdpic_fixup32_section
928 (info),
929 sgot->output_section->vma
930 + sgot->output_offset
931 + off);
932 }
933 /* Mark GOT entry as having been written. */
934 h->got.offset |= 1;
935 }
936 }
937
938 relocation = sgot->output_offset + off;
939 }
940 else
941 {
942 bfd_vma off;
943 bfd_byte *loc;
944
945 BFD_ASSERT (local_got_offsets != NULL
946 && local_got_offsets[r_symndx] != (bfd_vma) -1);
947
948 /* Get offset into GOT table. */
949 off = local_got_offsets[r_symndx];
950
951 /* The offset must always be a multiple of 4. We use
952 the least significant bit to record whether we have
953 already processed this entry. */
954 if ((off & 1) != 0)
955 off &= ~1;
956 else
957 {
958 /* Write entry in GOT. */
959 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
960 /* Create entry in .rofixup pointing to GOT entry. */
961 if (IS_FDPIC (output_bfd))
962 {
963 _lm32fdpic_add_rofixup (output_bfd,
964 lm32fdpic_fixup32_section
965 (info),
966 sgot->output_section->vma
967 + sgot->output_offset
968 + off);
969 }
970
971 if (bfd_link_pic (info))
972 {
973 asection *srelgot;
974 Elf_Internal_Rela outrel;
975
976 /* We need to generate a R_LM32_RELATIVE reloc
977 for the dynamic linker. */
978 srelgot = htab->root.srelgot;
979 BFD_ASSERT (srelgot != NULL);
980
981 outrel.r_offset = (sgot->output_section->vma
982 + sgot->output_offset
983 + off);
984 outrel.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
985 outrel.r_addend = relocation;
986 loc = srelgot->contents;
987 loc += srelgot->reloc_count * sizeof (Elf32_External_Rela);
988 bfd_elf32_swap_reloca_out (output_bfd, &outrel,loc);
989 ++srelgot->reloc_count;
990 }
991
992 local_got_offsets[r_symndx] |= 1;
993 }
994
995
996 relocation = sgot->output_offset + off;
997 }
998
999 /* Addend should be zero. */
1000 if (rel->r_addend != 0)
1001 _bfd_error_handler
1002 (_("internal error: addend should be zero for %s"),
1003 "R_LM32_16_GOT");
1004
1005 r = _bfd_final_link_relocate (howto,
1006 input_bfd,
1007 input_section,
1008 contents,
1009 rel->r_offset,
1010 relocation,
1011 rel->r_addend);
1012 break;
1013
1014 case R_LM32_GOTOFF_LO16:
1015 case R_LM32_GOTOFF_HI16:
1016 /* Relocation is offset from GOT. */
1017 BFD_ASSERT (sgot != NULL);
1018 relocation -= sgot->output_section->vma;
1019 /* Account for sign-extension. */
1020 if ((r_type == R_LM32_GOTOFF_HI16)
1021 && ((relocation + rel->r_addend) & 0x8000))
1022 rel->r_addend += 0x10000;
1023 r = _bfd_final_link_relocate (howto,
1024 input_bfd,
1025 input_section,
1026 contents,
1027 rel->r_offset,
1028 relocation,
1029 rel->r_addend);
1030 break;
1031
1032 case R_LM32_32:
1033 if (IS_FDPIC (output_bfd))
1034 {
1035 if ((!h) || (h && h->root.type != bfd_link_hash_undefweak))
1036 {
1037 /* Only create .rofixup entries for relocs in loadable sections. */
1038 if ((bfd_get_section_flags (output_bfd, input_section->output_section)
1039 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
1040
1041 {
1042 /* Check address to be modified is writable. */
1043 if (_lm32fdpic_osec_readonly_p (output_bfd,
1044 input_section
1045 ->output_section))
1046 {
1047 info->callbacks->warning
1048 (info,
1049 _("cannot emit dynamic relocations in read-only section"),
1050 name, input_bfd, input_section, rel->r_offset);
1051 return FALSE;
1052 }
1053 /* Create entry in .rofixup section. */
1054 _lm32fdpic_add_rofixup (output_bfd,
1055 lm32fdpic_fixup32_section (info),
1056 input_section->output_section->vma
1057 + input_section->output_offset
1058 + rel->r_offset);
1059 }
1060 }
1061 }
1062 /* Fall through. */
1063
1064 default:
1065 r = _bfd_final_link_relocate (howto,
1066 input_bfd,
1067 input_section,
1068 contents,
1069 rel->r_offset,
1070 relocation,
1071 rel->r_addend);
1072 break;
1073 }
1074 }
1075
1076 if (r != bfd_reloc_ok)
1077 {
1078 const char *msg = NULL;
1079 arelent bfd_reloc;
1080
1081 if (! lm32_info_to_howto_rela (input_bfd, &bfd_reloc, rel))
1082 continue;
1083 howto = bfd_reloc.howto;
1084
1085 if (h != NULL)
1086 name = h->root.root.string;
1087 else
1088 {
1089 name = (bfd_elf_string_from_elf_section
1090 (input_bfd, symtab_hdr->sh_link, sym->st_name));
1091 if (name == NULL || *name == '\0')
1092 name = bfd_section_name (input_bfd, sec);
1093 }
1094
1095 switch (r)
1096 {
1097 case bfd_reloc_overflow:
1098 if ((h != NULL)
1099 && (h->root.type == bfd_link_hash_undefweak))
1100 break;
1101 (*info->callbacks->reloc_overflow)
1102 (info, (h ? &h->root : NULL), name, howto->name,
1103 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
1104 break;
1105
1106 case bfd_reloc_undefined:
1107 (*info->callbacks->undefined_symbol)
1108 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
1109 break;
1110
1111 case bfd_reloc_outofrange:
1112 msg = _("internal error: out of range error");
1113 goto common_error;
1114
1115 case bfd_reloc_notsupported:
1116 msg = _("internal error: unsupported relocation error");
1117 goto common_error;
1118
1119 case bfd_reloc_dangerous:
1120 msg = _("internal error: dangerous error");
1121 goto common_error;
1122
1123 default:
1124 msg = _("internal error: unknown error");
1125 /* fall through */
1126
1127 common_error:
1128 (*info->callbacks->warning) (info, msg, name, input_bfd,
1129 input_section, rel->r_offset);
1130 break;
1131 }
1132 }
1133 }
1134
1135 return TRUE;
1136 }
1137
1138 static asection *
1139 lm32_elf_gc_mark_hook (asection *sec,
1140 struct bfd_link_info *info,
1141 Elf_Internal_Rela *rel,
1142 struct elf_link_hash_entry *h,
1143 Elf_Internal_Sym *sym)
1144 {
1145 if (h != NULL)
1146 switch (ELF32_R_TYPE (rel->r_info))
1147 {
1148 case R_LM32_GNU_VTINHERIT:
1149 case R_LM32_GNU_VTENTRY:
1150 return NULL;
1151 }
1152
1153 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1154 }
1155
1156 /* Look through the relocs for a section during the first phase. */
1157
1158 static bfd_boolean
1159 lm32_elf_check_relocs (bfd *abfd,
1160 struct bfd_link_info *info,
1161 asection *sec,
1162 const Elf_Internal_Rela *relocs)
1163 {
1164 Elf_Internal_Shdr *symtab_hdr;
1165 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
1166 const Elf_Internal_Rela *rel;
1167 const Elf_Internal_Rela *rel_end;
1168 struct elf_lm32_link_hash_table *htab;
1169 bfd *dynobj;
1170
1171 if (bfd_link_relocatable (info))
1172 return TRUE;
1173
1174 /* Don't do anything special with non-loaded, non-alloced sections.
1175 In particular, any relocs in such sections should not affect GOT
1176 and PLT reference counting (ie. we don't allow them to create GOT
1177 or PLT entries), there's no possibility or desire to optimize TLS
1178 relocs, and there's not much point in propagating relocs to shared
1179 libs that the dynamic linker won't relocate. */
1180 if ((sec->flags & SEC_ALLOC) == 0)
1181 return TRUE;
1182
1183 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1184 sym_hashes = elf_sym_hashes (abfd);
1185 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
1186 if (!elf_bad_symtab (abfd))
1187 sym_hashes_end -= symtab_hdr->sh_info;
1188
1189 htab = lm32_elf_hash_table (info);
1190 if (htab == NULL)
1191 return FALSE;
1192
1193 dynobj = htab->root.dynobj;
1194
1195 rel_end = relocs + sec->reloc_count;
1196 for (rel = relocs; rel < rel_end; rel++)
1197 {
1198 int r_type;
1199 struct elf_link_hash_entry *h;
1200 unsigned long r_symndx;
1201
1202 r_symndx = ELF32_R_SYM (rel->r_info);
1203 r_type = ELF32_R_TYPE (rel->r_info);
1204 if (r_symndx < symtab_hdr->sh_info)
1205 h = NULL;
1206 else
1207 {
1208 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1209 while (h->root.type == bfd_link_hash_indirect
1210 || h->root.type == bfd_link_hash_warning)
1211 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1212 }
1213
1214 /* Some relocs require a global offset table. */
1215 if (htab->root.sgot == NULL)
1216 {
1217 switch (r_type)
1218 {
1219 case R_LM32_16_GOT:
1220 case R_LM32_GOTOFF_HI16:
1221 case R_LM32_GOTOFF_LO16:
1222 if (dynobj == NULL)
1223 htab->root.dynobj = dynobj = abfd;
1224 if (!_bfd_elf_create_got_section (dynobj, info))
1225 return FALSE;
1226 break;
1227 }
1228 }
1229
1230 /* Some relocs require a rofixup table. */
1231 if (IS_FDPIC (abfd))
1232 {
1233 switch (r_type)
1234 {
1235 case R_LM32_32:
1236 /* FDPIC requires a GOT if there is a .rofixup section
1237 (Normal ELF doesn't). */
1238 if (dynobj == NULL)
1239 htab->root.dynobj = dynobj = abfd;
1240 if (!_bfd_elf_create_got_section (dynobj, info))
1241 return FALSE;
1242 /* Create .rofixup section */
1243 if (htab->sfixup32 == NULL)
1244 {
1245 if (! create_rofixup_section (dynobj, info))
1246 return FALSE;
1247 }
1248 break;
1249 case R_LM32_16_GOT:
1250 case R_LM32_GOTOFF_HI16:
1251 case R_LM32_GOTOFF_LO16:
1252 /* Create .rofixup section. */
1253 if (htab->sfixup32 == NULL)
1254 {
1255 if (dynobj == NULL)
1256 htab->root.dynobj = dynobj = abfd;
1257 if (! create_rofixup_section (dynobj, info))
1258 return FALSE;
1259 }
1260 break;
1261 }
1262 }
1263
1264 switch (r_type)
1265 {
1266 case R_LM32_16_GOT:
1267 if (h != NULL)
1268 h->got.refcount += 1;
1269 else
1270 {
1271 bfd_signed_vma *local_got_refcounts;
1272
1273 /* This is a global offset table entry for a local symbol. */
1274 local_got_refcounts = elf_local_got_refcounts (abfd);
1275 if (local_got_refcounts == NULL)
1276 {
1277 bfd_size_type size;
1278
1279 size = symtab_hdr->sh_info;
1280 size *= sizeof (bfd_signed_vma);
1281 local_got_refcounts = bfd_zalloc (abfd, size);
1282 if (local_got_refcounts == NULL)
1283 return FALSE;
1284 elf_local_got_refcounts (abfd) = local_got_refcounts;
1285 }
1286 local_got_refcounts[r_symndx] += 1;
1287 }
1288 break;
1289
1290 /* This relocation describes the C++ object vtable hierarchy.
1291 Reconstruct it for later use during GC. */
1292 case R_LM32_GNU_VTINHERIT:
1293 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1294 return FALSE;
1295 break;
1296
1297 /* This relocation describes which C++ vtable entries are actually
1298 used. Record for later use during GC. */
1299 case R_LM32_GNU_VTENTRY:
1300 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1301 return FALSE;
1302 break;
1303
1304 }
1305 }
1306
1307 return TRUE;
1308 }
1309
1310 /* Finish up the dynamic sections. */
1311
1312 static bfd_boolean
1313 lm32_elf_finish_dynamic_sections (bfd *output_bfd,
1314 struct bfd_link_info *info)
1315 {
1316 struct elf_lm32_link_hash_table *htab;
1317 bfd *dynobj;
1318 asection *sdyn;
1319 asection *sgot;
1320
1321 htab = lm32_elf_hash_table (info);
1322 if (htab == NULL)
1323 return FALSE;
1324
1325 dynobj = htab->root.dynobj;
1326
1327 sgot = htab->root.sgotplt;
1328 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
1329
1330 if (htab->root.dynamic_sections_created)
1331 {
1332 asection *splt;
1333 Elf32_External_Dyn *dyncon, *dynconend;
1334
1335 BFD_ASSERT (sgot != NULL && sdyn != NULL);
1336
1337 dyncon = (Elf32_External_Dyn *) sdyn->contents;
1338 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
1339
1340 for (; dyncon < dynconend; dyncon++)
1341 {
1342 Elf_Internal_Dyn dyn;
1343 asection *s;
1344
1345 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1346
1347 switch (dyn.d_tag)
1348 {
1349 default:
1350 break;
1351
1352 case DT_PLTGOT:
1353 s = htab->root.sgotplt;
1354 goto get_vma;
1355 case DT_JMPREL:
1356 s = htab->root.srelplt;
1357 get_vma:
1358 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
1359 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1360 break;
1361
1362 case DT_PLTRELSZ:
1363 s = htab->root.srelplt;
1364 dyn.d_un.d_val = s->size;
1365 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1366 break;
1367 }
1368 }
1369
1370 /* Fill in the first entry in the procedure linkage table. */
1371 splt = htab->root.splt;
1372 if (splt && splt->size > 0)
1373 {
1374 if (bfd_link_pic (info))
1375 {
1376 bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD0, splt->contents);
1377 bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD1, splt->contents + 4);
1378 bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD2, splt->contents + 8);
1379 bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD3, splt->contents + 12);
1380 bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD4, splt->contents + 16);
1381 }
1382 else
1383 {
1384 unsigned long addr;
1385 /* addr = .got + 4 */
1386 addr = sgot->output_section->vma + sgot->output_offset + 4;
1387 bfd_put_32 (output_bfd,
1388 PLT0_ENTRY_WORD0 | ((addr >> 16) & 0xffff),
1389 splt->contents);
1390 bfd_put_32 (output_bfd,
1391 PLT0_ENTRY_WORD1 | (addr & 0xffff),
1392 splt->contents + 4);
1393 bfd_put_32 (output_bfd, PLT0_ENTRY_WORD2, splt->contents + 8);
1394 bfd_put_32 (output_bfd, PLT0_ENTRY_WORD3, splt->contents + 12);
1395 bfd_put_32 (output_bfd, PLT0_ENTRY_WORD4, splt->contents + 16);
1396 }
1397
1398 elf_section_data (splt->output_section)->this_hdr.sh_entsize =
1399 PLT_ENTRY_SIZE;
1400 }
1401 }
1402
1403 /* Fill in the first three entries in the global offset table. */
1404 if (sgot && sgot->size > 0)
1405 {
1406 if (sdyn == NULL)
1407 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
1408 else
1409 bfd_put_32 (output_bfd,
1410 sdyn->output_section->vma + sdyn->output_offset,
1411 sgot->contents);
1412 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
1413 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
1414
1415 /* FIXME: This can be null if create_dynamic_sections wasn't called. */
1416 if (elf_section_data (sgot->output_section) != NULL)
1417 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
1418 }
1419
1420 if (lm32fdpic_fixup32_section (info))
1421 {
1422 struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
1423 bfd_vma got_value = hgot->root.u.def.value
1424 + hgot->root.u.def.section->output_section->vma
1425 + hgot->root.u.def.section->output_offset;
1426 struct bfd_link_hash_entry *hend;
1427
1428 /* Last entry is pointer to GOT. */
1429 _lm32fdpic_add_rofixup (output_bfd, lm32fdpic_fixup32_section (info), got_value);
1430
1431 /* Check we wrote enough entries. */
1432 if (lm32fdpic_fixup32_section (info)->size
1433 != (lm32fdpic_fixup32_section (info)->reloc_count * 4))
1434 {
1435 _bfd_error_handler
1436 ("LINKER BUG: .rofixup section size mismatch: size/4 %" PRId64
1437 " != relocs %d",
1438 (int64_t) (lm32fdpic_fixup32_section (info)->size / 4),
1439 lm32fdpic_fixup32_section (info)->reloc_count);
1440 return FALSE;
1441 }
1442
1443 hend = bfd_link_hash_lookup (info->hash, "__ROFIXUP_END__",
1444 FALSE, FALSE, TRUE);
1445 if (hend
1446 && (hend->type == bfd_link_hash_defined
1447 || hend->type == bfd_link_hash_defweak))
1448 {
1449 bfd_vma value =
1450 lm32fdpic_fixup32_section (info)->output_section->vma
1451 + lm32fdpic_fixup32_section (info)->output_offset
1452 + lm32fdpic_fixup32_section (info)->size
1453 - hend->u.def.section->output_section->vma
1454 - hend->u.def.section->output_offset;
1455 BFD_ASSERT (hend->u.def.value == value);
1456 if (hend->u.def.value != value)
1457 {
1458 _bfd_error_handler
1459 ("LINKER BUG: .rofixup section hend->u.def.value != value: %"
1460 PRId64 " != %" PRId64,
1461 (int64_t) hend->u.def.value, (int64_t) value);
1462 return FALSE;
1463 }
1464 }
1465 }
1466
1467 return TRUE;
1468 }
1469
1470 /* Finish up dynamic symbol handling. We set the contents of various
1471 dynamic sections here. */
1472
1473 static bfd_boolean
1474 lm32_elf_finish_dynamic_symbol (bfd *output_bfd,
1475 struct bfd_link_info *info,
1476 struct elf_link_hash_entry *h,
1477 Elf_Internal_Sym *sym)
1478 {
1479 struct elf_lm32_link_hash_table *htab;
1480 bfd_byte *loc;
1481
1482 htab = lm32_elf_hash_table (info);
1483 if (htab == NULL)
1484 return FALSE;
1485
1486 if (h->plt.offset != (bfd_vma) -1)
1487 {
1488 asection *splt;
1489 asection *sgot;
1490 asection *srela;
1491
1492 bfd_vma plt_index;
1493 bfd_vma got_offset;
1494 Elf_Internal_Rela rela;
1495
1496 /* This symbol has an entry in the procedure linkage table. Set
1497 it up. */
1498 BFD_ASSERT (h->dynindx != -1);
1499
1500 splt = htab->root.splt;
1501 sgot = htab->root.sgotplt;
1502 srela = htab->root.srelplt;
1503 BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1504
1505 /* Get the index in the procedure linkage table which
1506 corresponds to this symbol. This is the index of this symbol
1507 in all the symbols for which we are making plt entries. The
1508 first entry in the procedure linkage table is reserved. */
1509 plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1510
1511 /* Get the offset into the .got table of the entry that
1512 corresponds to this function. Each .got entry is 4 bytes.
1513 The first three are reserved. */
1514 got_offset = (plt_index + 3) * 4;
1515
1516 /* Fill in the entry in the procedure linkage table. */
1517 if (! bfd_link_pic (info))
1518 {
1519 /* TODO */
1520 }
1521 else
1522 {
1523 /* TODO */
1524 }
1525
1526 /* Fill in the entry in the global offset table. */
1527 bfd_put_32 (output_bfd,
1528 (splt->output_section->vma
1529 + splt->output_offset
1530 + h->plt.offset
1531 + 12), /* same offset */
1532 sgot->contents + got_offset);
1533
1534 /* Fill in the entry in the .rela.plt section. */
1535 rela.r_offset = (sgot->output_section->vma
1536 + sgot->output_offset
1537 + got_offset);
1538 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_JMP_SLOT);
1539 rela.r_addend = 0;
1540 loc = srela->contents;
1541 loc += plt_index * sizeof (Elf32_External_Rela);
1542 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1543
1544 if (!h->def_regular)
1545 {
1546 /* Mark the symbol as undefined, rather than as defined in
1547 the .plt section. Leave the value alone. */
1548 sym->st_shndx = SHN_UNDEF;
1549 }
1550
1551 }
1552
1553 if (h->got.offset != (bfd_vma) -1)
1554 {
1555 asection *sgot;
1556 asection *srela;
1557 Elf_Internal_Rela rela;
1558
1559 /* This symbol has an entry in the global offset table. Set it
1560 up. */
1561 sgot = htab->root.sgot;
1562 srela = htab->root.srelgot;
1563 BFD_ASSERT (sgot != NULL && srela != NULL);
1564
1565 rela.r_offset = (sgot->output_section->vma
1566 + sgot->output_offset
1567 + (h->got.offset &~ 1));
1568
1569 /* If this is a -Bsymbolic link, and the symbol is defined
1570 locally, we just want to emit a RELATIVE reloc. Likewise if
1571 the symbol was forced to be local because of a version file.
1572 The entry in the global offset table will already have been
1573 initialized in the relocate_section function. */
1574 if (bfd_link_pic (info)
1575 && (info->symbolic
1576 || h->dynindx == -1
1577 || h->forced_local)
1578 && h->def_regular)
1579 {
1580 rela.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
1581 rela.r_addend = (h->root.u.def.value
1582 + h->root.u.def.section->output_section->vma
1583 + h->root.u.def.section->output_offset);
1584 }
1585 else
1586 {
1587 BFD_ASSERT ((h->got.offset & 1) == 0);
1588 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
1589 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_GLOB_DAT);
1590 rela.r_addend = 0;
1591 }
1592
1593 loc = srela->contents;
1594 loc += srela->reloc_count * sizeof (Elf32_External_Rela);
1595 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1596 ++srela->reloc_count;
1597 }
1598
1599 if (h->needs_copy)
1600 {
1601 asection *s;
1602 Elf_Internal_Rela rela;
1603
1604 /* This symbols needs a copy reloc. Set it up. */
1605 BFD_ASSERT (h->dynindx != -1
1606 && (h->root.type == bfd_link_hash_defined
1607 || h->root.type == bfd_link_hash_defweak));
1608
1609 s = bfd_get_linker_section (htab->root.dynobj, ".rela.bss");
1610 BFD_ASSERT (s != NULL);
1611
1612 rela.r_offset = (h->root.u.def.value
1613 + h->root.u.def.section->output_section->vma
1614 + h->root.u.def.section->output_offset);
1615 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_COPY);
1616 rela.r_addend = 0;
1617 loc = s->contents;
1618 loc += s->reloc_count * sizeof (Elf32_External_Rela);
1619 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1620 ++s->reloc_count;
1621 }
1622
1623 /* Mark some specially defined symbols as absolute. */
1624 if (h == htab->root.hdynamic || h == htab->root.hgot)
1625 sym->st_shndx = SHN_ABS;
1626
1627 return TRUE;
1628 }
1629
1630 static enum elf_reloc_type_class
1631 lm32_elf_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
1632 const asection *rel_sec ATTRIBUTE_UNUSED,
1633 const Elf_Internal_Rela *rela)
1634 {
1635 switch ((int) ELF32_R_TYPE (rela->r_info))
1636 {
1637 case R_LM32_RELATIVE: return reloc_class_relative;
1638 case R_LM32_JMP_SLOT: return reloc_class_plt;
1639 case R_LM32_COPY: return reloc_class_copy;
1640 default: return reloc_class_normal;
1641 }
1642 }
1643
1644 /* Find dynamic relocs for H that apply to read-only sections. */
1645
1646 static asection *
1647 readonly_dynrelocs (struct elf_link_hash_entry *h)
1648 {
1649 struct elf_dyn_relocs *p;
1650 struct elf_lm32_link_hash_entry *eh = (struct elf_lm32_link_hash_entry *) h;
1651
1652 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1653 {
1654 asection *s = p->sec->output_section;
1655
1656 if (s != NULL && (s->flags & SEC_READONLY) != 0)
1657 return p->sec;
1658 }
1659 return NULL;
1660 }
1661
1662 /* Adjust a symbol defined by a dynamic object and referenced by a
1663 regular object. The current definition is in some section of the
1664 dynamic object, but we're not including those sections. We have to
1665 change the definition to something the rest of the link can
1666 understand. */
1667
1668 static bfd_boolean
1669 lm32_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
1670 struct elf_link_hash_entry *h)
1671 {
1672 struct elf_lm32_link_hash_table *htab;
1673 bfd *dynobj;
1674 asection *s;
1675
1676 dynobj = elf_hash_table (info)->dynobj;
1677
1678 /* Make sure we know what is going on here. */
1679 BFD_ASSERT (dynobj != NULL
1680 && (h->needs_plt
1681 || h->is_weakalias
1682 || (h->def_dynamic
1683 && h->ref_regular
1684 && !h->def_regular)));
1685
1686 /* If this is a function, put it in the procedure linkage table. We
1687 will fill in the contents of the procedure linkage table later,
1688 when we know the address of the .got section. */
1689 if (h->type == STT_FUNC
1690 || h->needs_plt)
1691 {
1692 if (! bfd_link_pic (info)
1693 && !h->def_dynamic
1694 && !h->ref_dynamic
1695 && h->root.type != bfd_link_hash_undefweak
1696 && h->root.type != bfd_link_hash_undefined)
1697 {
1698 /* This case can occur if we saw a PLT reloc in an input
1699 file, but the symbol was never referred to by a dynamic
1700 object. In such a case, we don't actually need to build
1701 a procedure linkage table, and we can just do a PCREL
1702 reloc instead. */
1703 h->plt.offset = (bfd_vma) -1;
1704 h->needs_plt = 0;
1705 }
1706
1707 return TRUE;
1708 }
1709 else
1710 h->plt.offset = (bfd_vma) -1;
1711
1712 /* If this is a weak symbol, and there is a real definition, the
1713 processor independent code will have arranged for us to see the
1714 real definition first, and we can just use the same value. */
1715 if (h->is_weakalias)
1716 {
1717 struct elf_link_hash_entry *def = weakdef (h);
1718 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
1719 h->root.u.def.section = def->root.u.def.section;
1720 h->root.u.def.value = def->root.u.def.value;
1721 return TRUE;
1722 }
1723
1724 /* This is a reference to a symbol defined by a dynamic object which
1725 is not a function. */
1726
1727 /* If we are creating a shared library, we must presume that the
1728 only references to the symbol are via the global offset table.
1729 For such cases we need not do anything here; the relocations will
1730 be handled correctly by relocate_section. */
1731 if (bfd_link_pic (info))
1732 return TRUE;
1733
1734 /* If there are no references to this symbol that do not use the
1735 GOT, we don't need to generate a copy reloc. */
1736 if (!h->non_got_ref)
1737 return TRUE;
1738
1739 /* If -z nocopyreloc was given, we won't generate them either. */
1740 if (0 && info->nocopyreloc)
1741 {
1742 h->non_got_ref = 0;
1743 return TRUE;
1744 }
1745
1746 /* If we don't find any dynamic relocs in read-only sections, then
1747 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
1748 if (0 && !readonly_dynrelocs (h))
1749 {
1750 h->non_got_ref = 0;
1751 return TRUE;
1752 }
1753
1754 /* We must allocate the symbol in our .dynbss section, which will
1755 become part of the .bss section of the executable. There will be
1756 an entry for this symbol in the .dynsym section. The dynamic
1757 object will contain position independent code, so all references
1758 from the dynamic object to this symbol will go through the global
1759 offset table. The dynamic linker will use the .dynsym entry to
1760 determine the address it must put in the global offset table, so
1761 both the dynamic object and the regular object will refer to the
1762 same memory location for the variable. */
1763
1764 htab = lm32_elf_hash_table (info);
1765 if (htab == NULL)
1766 return FALSE;
1767
1768 s = htab->sdynbss;
1769 BFD_ASSERT (s != NULL);
1770
1771 /* We must generate a R_LM32_COPY reloc to tell the dynamic linker
1772 to copy the initial value out of the dynamic object and into the
1773 runtime process image. We need to remember the offset into the
1774 .rela.bss section we are going to use. */
1775 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
1776 {
1777 asection *srel;
1778
1779 srel = htab->srelbss;
1780 BFD_ASSERT (srel != NULL);
1781 srel->size += sizeof (Elf32_External_Rela);
1782 h->needs_copy = 1;
1783 }
1784
1785 return _bfd_elf_adjust_dynamic_copy (info, h, s);
1786 }
1787
1788 /* Allocate space in .plt, .got and associated reloc sections for
1789 dynamic relocs. */
1790
1791 static bfd_boolean
1792 allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1793 {
1794 struct bfd_link_info *info;
1795 struct elf_lm32_link_hash_table *htab;
1796 struct elf_lm32_link_hash_entry *eh;
1797 struct elf_dyn_relocs *p;
1798
1799 if (h->root.type == bfd_link_hash_indirect)
1800 return TRUE;
1801
1802 info = (struct bfd_link_info *) inf;
1803 htab = lm32_elf_hash_table (info);
1804 if (htab == NULL)
1805 return FALSE;
1806
1807 eh = (struct elf_lm32_link_hash_entry *) h;
1808
1809 if (htab->root.dynamic_sections_created
1810 && h->plt.refcount > 0)
1811 {
1812 /* Make sure this symbol is output as a dynamic symbol.
1813 Undefined weak syms won't yet be marked as dynamic. */
1814 if (h->dynindx == -1
1815 && !h->forced_local)
1816 {
1817 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1818 return FALSE;
1819 }
1820
1821 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
1822 {
1823 asection *s = htab->root.splt;
1824
1825 /* If this is the first .plt entry, make room for the special
1826 first entry. */
1827 if (s->size == 0)
1828 s->size += PLT_ENTRY_SIZE;
1829
1830 h->plt.offset = s->size;
1831
1832 /* If this symbol is not defined in a regular file, and we are
1833 not generating a shared library, then set the symbol to this
1834 location in the .plt. This is required to make function
1835 pointers compare as equal between the normal executable and
1836 the shared library. */
1837 if (! bfd_link_pic (info)
1838 && !h->def_regular)
1839 {
1840 h->root.u.def.section = s;
1841 h->root.u.def.value = h->plt.offset;
1842 }
1843
1844 /* Make room for this entry. */
1845 s->size += PLT_ENTRY_SIZE;
1846
1847 /* We also need to make an entry in the .got.plt section, which
1848 will be placed in the .got section by the linker script. */
1849 htab->root.sgotplt->size += 4;
1850
1851 /* We also need to make an entry in the .rel.plt section. */
1852 htab->root.srelplt->size += sizeof (Elf32_External_Rela);
1853 }
1854 else
1855 {
1856 h->plt.offset = (bfd_vma) -1;
1857 h->needs_plt = 0;
1858 }
1859 }
1860 else
1861 {
1862 h->plt.offset = (bfd_vma) -1;
1863 h->needs_plt = 0;
1864 }
1865
1866 if (h->got.refcount > 0)
1867 {
1868 asection *s;
1869 bfd_boolean dyn;
1870
1871 /* Make sure this symbol is output as a dynamic symbol.
1872 Undefined weak syms won't yet be marked as dynamic. */
1873 if (h->dynindx == -1
1874 && !h->forced_local)
1875 {
1876 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1877 return FALSE;
1878 }
1879
1880 s = htab->root.sgot;
1881
1882 h->got.offset = s->size;
1883 s->size += 4;
1884 dyn = htab->root.dynamic_sections_created;
1885 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h))
1886 htab->root.srelgot->size += sizeof (Elf32_External_Rela);
1887 }
1888 else
1889 h->got.offset = (bfd_vma) -1;
1890
1891 if (eh->dyn_relocs == NULL)
1892 return TRUE;
1893
1894 /* In the shared -Bsymbolic case, discard space allocated for
1895 dynamic pc-relative relocs against symbols which turn out to be
1896 defined in regular objects. For the normal shared case, discard
1897 space for pc-relative relocs that have become local due to symbol
1898 visibility changes. */
1899
1900 if (bfd_link_pic (info))
1901 {
1902 if (h->def_regular
1903 && (h->forced_local
1904 || info->symbolic))
1905 {
1906 struct elf_dyn_relocs **pp;
1907
1908 for (pp = &eh->dyn_relocs; (p = *pp) != NULL;)
1909 {
1910 p->count -= p->pc_count;
1911 p->pc_count = 0;
1912 if (p->count == 0)
1913 *pp = p->next;
1914 else
1915 pp = &p->next;
1916 }
1917 }
1918
1919 /* Also discard relocs on undefined weak syms with non-default
1920 visibility. */
1921 if (eh->dyn_relocs != NULL
1922 && h->root.type == bfd_link_hash_undefweak)
1923 {
1924 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1925 eh->dyn_relocs = NULL;
1926
1927 /* Make sure undefined weak symbols are output as a dynamic
1928 symbol in PIEs. */
1929 else if (h->dynindx == -1
1930 && !h->forced_local)
1931 {
1932 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1933 return FALSE;
1934 }
1935 }
1936 }
1937 else
1938 {
1939 /* For the non-shared case, discard space for relocs against
1940 symbols which turn out to need copy relocs or are not
1941 dynamic. */
1942
1943 if (!h->non_got_ref
1944 && ((h->def_dynamic
1945 && !h->def_regular)
1946 || (htab->root.dynamic_sections_created
1947 && (h->root.type == bfd_link_hash_undefweak
1948 || h->root.type == bfd_link_hash_undefined))))
1949 {
1950 /* Make sure this symbol is output as a dynamic symbol.
1951 Undefined weak syms won't yet be marked as dynamic. */
1952 if (h->dynindx == -1
1953 && !h->forced_local)
1954 {
1955 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1956 return FALSE;
1957 }
1958
1959 /* If that succeeded, we know we'll be keeping all the
1960 relocs. */
1961 if (h->dynindx != -1)
1962 goto keep;
1963 }
1964
1965 eh->dyn_relocs = NULL;
1966
1967 keep: ;
1968 }
1969
1970 /* Finally, allocate space. */
1971 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1972 {
1973 asection *sreloc = elf_section_data (p->sec)->sreloc;
1974 sreloc->size += p->count * sizeof (Elf32_External_Rela);
1975 }
1976
1977 return TRUE;
1978 }
1979
1980 /* Set DF_TEXTREL if we find any dynamic relocs that apply to
1981 read-only sections. */
1982
1983 static bfd_boolean
1984 maybe_set_textrel (struct elf_link_hash_entry *h, void *info_p)
1985 {
1986 asection *sec;
1987
1988 if (h->root.type == bfd_link_hash_indirect)
1989 return TRUE;
1990
1991 sec = readonly_dynrelocs (h);
1992 if (sec != NULL)
1993 {
1994 struct bfd_link_info *info = (struct bfd_link_info *) info_p;
1995
1996 info->flags |= DF_TEXTREL;
1997 info->callbacks->minfo
1998 (_("%pB: dynamic relocation against `%pT' in read-only section `%pA'\n"),
1999 sec->owner, h->root.root.string, sec);
2000
2001 /* Not an error, just cut short the traversal. */
2002 return FALSE;
2003 }
2004 return TRUE;
2005 }
2006
2007 /* Set the sizes of the dynamic sections. */
2008
2009 static bfd_boolean
2010 lm32_elf_size_dynamic_sections (bfd *output_bfd,
2011 struct bfd_link_info *info)
2012 {
2013 struct elf_lm32_link_hash_table *htab;
2014 bfd *dynobj;
2015 asection *s;
2016 bfd_boolean relocs;
2017 bfd *ibfd;
2018
2019 htab = lm32_elf_hash_table (info);
2020 if (htab == NULL)
2021 return FALSE;
2022
2023 dynobj = htab->root.dynobj;
2024 BFD_ASSERT (dynobj != NULL);
2025
2026 if (htab->root.dynamic_sections_created)
2027 {
2028 /* Set the contents of the .interp section to the interpreter. */
2029 if (bfd_link_executable (info) && !info->nointerp)
2030 {
2031 s = bfd_get_linker_section (dynobj, ".interp");
2032 BFD_ASSERT (s != NULL);
2033 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
2034 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2035 }
2036 }
2037
2038 /* Set up .got offsets for local syms, and space for local dynamic
2039 relocs. */
2040 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2041 {
2042 bfd_signed_vma *local_got;
2043 bfd_signed_vma *end_local_got;
2044 bfd_size_type locsymcount;
2045 Elf_Internal_Shdr *symtab_hdr;
2046 asection *srel;
2047
2048 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2049 continue;
2050
2051 for (s = ibfd->sections; s != NULL; s = s->next)
2052 {
2053 struct elf_dyn_relocs *p;
2054
2055 for (p = ((struct elf_dyn_relocs *)
2056 elf_section_data (s)->local_dynrel);
2057 p != NULL;
2058 p = p->next)
2059 {
2060 if (! bfd_is_abs_section (p->sec)
2061 && bfd_is_abs_section (p->sec->output_section))
2062 {
2063 /* Input section has been discarded, either because
2064 it is a copy of a linkonce section or due to
2065 linker script /DISCARD/, so we'll be discarding
2066 the relocs too. */
2067 }
2068 else if (p->count != 0)
2069 {
2070 srel = elf_section_data (p->sec)->sreloc;
2071 srel->size += p->count * sizeof (Elf32_External_Rela);
2072 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2073 info->flags |= DF_TEXTREL;
2074 }
2075 }
2076 }
2077
2078 local_got = elf_local_got_refcounts (ibfd);
2079 if (!local_got)
2080 continue;
2081
2082 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2083 locsymcount = symtab_hdr->sh_info;
2084 end_local_got = local_got + locsymcount;
2085 s = htab->root.sgot;
2086 srel = htab->root.srelgot;
2087 for (; local_got < end_local_got; ++local_got)
2088 {
2089 if (*local_got > 0)
2090 {
2091 *local_got = s->size;
2092 s->size += 4;
2093 if (bfd_link_pic (info))
2094 srel->size += sizeof (Elf32_External_Rela);
2095 }
2096 else
2097 *local_got = (bfd_vma) -1;
2098 }
2099 }
2100
2101 /* Allocate global sym .plt and .got entries, and space for global
2102 sym dynamic relocs. */
2103 elf_link_hash_traverse (&htab->root, allocate_dynrelocs, info);
2104
2105 /* We now have determined the sizes of the various dynamic sections.
2106 Allocate memory for them. */
2107 relocs = FALSE;
2108 for (s = dynobj->sections; s != NULL; s = s->next)
2109 {
2110 if ((s->flags & SEC_LINKER_CREATED) == 0)
2111 continue;
2112
2113 if (s == htab->root.splt
2114 || s == htab->root.sgot
2115 || s == htab->root.sgotplt
2116 || s == htab->sdynbss)
2117 {
2118 /* Strip this section if we don't need it; see the
2119 comment below. */
2120 }
2121 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
2122 {
2123 if (s->size != 0 && s != htab->root.srelplt)
2124 relocs = TRUE;
2125
2126 /* We use the reloc_count field as a counter if we need
2127 to copy relocs into the output file. */
2128 s->reloc_count = 0;
2129 }
2130 else
2131 /* It's not one of our sections, so don't allocate space. */
2132 continue;
2133
2134 if (s->size == 0)
2135 {
2136 /* If we don't need this section, strip it from the
2137 output file. This is mostly to handle .rela.bss and
2138 .rela.plt. We must create both sections in
2139 create_dynamic_sections, because they must be created
2140 before the linker maps input sections to output
2141 sections. The linker does that before
2142 adjust_dynamic_symbol is called, and it is that
2143 function which decides whether anything needs to go
2144 into these sections. */
2145 s->flags |= SEC_EXCLUDE;
2146 continue;
2147 }
2148
2149 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2150 continue;
2151
2152 /* Allocate memory for the section contents. We use bfd_zalloc
2153 here in case unused entries are not reclaimed before the
2154 section's contents are written out. This should not happen,
2155 but this way if it does, we get a R_LM32_NONE reloc instead
2156 of garbage. */
2157 s->contents = bfd_zalloc (dynobj, s->size);
2158 if (s->contents == NULL)
2159 return FALSE;
2160 }
2161
2162 if (htab->root.dynamic_sections_created)
2163 {
2164 /* Add some entries to the .dynamic section. We fill in the
2165 values later, in lm32_elf_finish_dynamic_sections, but we
2166 must add the entries now so that we get the correct size for
2167 the .dynamic section. The DT_DEBUG entry is filled in by the
2168 dynamic linker and used by the debugger. */
2169 #define add_dynamic_entry(TAG, VAL) \
2170 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2171
2172 if (bfd_link_executable (info))
2173 {
2174 if (! add_dynamic_entry (DT_DEBUG, 0))
2175 return FALSE;
2176 }
2177
2178 if (htab->root.splt->size != 0)
2179 {
2180 if (! add_dynamic_entry (DT_PLTGOT, 0)
2181 || ! add_dynamic_entry (DT_PLTRELSZ, 0)
2182 || ! add_dynamic_entry (DT_PLTREL, DT_RELA)
2183 || ! add_dynamic_entry (DT_JMPREL, 0))
2184 return FALSE;
2185 }
2186
2187 if (relocs)
2188 {
2189 if (! add_dynamic_entry (DT_RELA, 0)
2190 || ! add_dynamic_entry (DT_RELASZ, 0)
2191 || ! add_dynamic_entry (DT_RELAENT,
2192 sizeof (Elf32_External_Rela)))
2193 return FALSE;
2194
2195 /* If any dynamic relocs apply to a read-only section,
2196 then we need a DT_TEXTREL entry. */
2197 if ((info->flags & DF_TEXTREL) == 0)
2198 elf_link_hash_traverse (&htab->root, maybe_set_textrel, info);
2199
2200 if ((info->flags & DF_TEXTREL) != 0)
2201 {
2202 if (! add_dynamic_entry (DT_TEXTREL, 0))
2203 return FALSE;
2204 }
2205 }
2206 }
2207 #undef add_dynamic_entry
2208
2209 /* Allocate .rofixup section. */
2210 if (IS_FDPIC (output_bfd))
2211 {
2212 struct weak_symbol_list *list_start = NULL, *list_end = NULL;
2213 int rgot_weak_count = 0;
2214 int r32_count = 0;
2215 int rgot_count = 0;
2216 /* Look for deleted sections. */
2217 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2218 {
2219 for (s = ibfd->sections; s != NULL; s = s->next)
2220 {
2221 if (s->reloc_count)
2222 {
2223 /* Count relocs that need .rofixup entires. */
2224 Elf_Internal_Rela *internal_relocs, *end;
2225 internal_relocs = elf_section_data (s)->relocs;
2226 if (internal_relocs == NULL)
2227 internal_relocs = (_bfd_elf_link_read_relocs (ibfd, s, NULL, NULL, FALSE));
2228 if (internal_relocs != NULL)
2229 {
2230 end = internal_relocs + s->reloc_count;
2231 while (internal_relocs < end)
2232 {
2233 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2234 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
2235 unsigned long r_symndx;
2236 struct elf_link_hash_entry *h;
2237
2238 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2239 sym_hashes = elf_sym_hashes (ibfd);
2240 r_symndx = ELF32_R_SYM (internal_relocs->r_info);
2241 h = NULL;
2242 if (r_symndx < symtab_hdr->sh_info)
2243 {
2244 }
2245 else
2246 {
2247 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2248 while (h->root.type == bfd_link_hash_indirect
2249 || h->root.type == bfd_link_hash_warning)
2250 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2251 }
2252
2253 /* Don't generate entries for weak symbols. */
2254 if (!h || (h && h->root.type != bfd_link_hash_undefweak))
2255 {
2256 if (!discarded_section (s) && !((bfd_get_section_flags (ibfd, s) & SEC_ALLOC) == 0))
2257 {
2258 switch (ELF32_R_TYPE (internal_relocs->r_info))
2259 {
2260 case R_LM32_32:
2261 r32_count++;
2262 break;
2263 case R_LM32_16_GOT:
2264 rgot_count++;
2265 break;
2266 }
2267 }
2268 }
2269 else
2270 {
2271 struct weak_symbol_list *current, *new_entry;
2272 /* Is this symbol already in the list? */
2273 for (current = list_start; current; current = current->next)
2274 {
2275 if (!strcmp (current->name, h->root.root.string))
2276 break;
2277 }
2278 if (!current && !discarded_section (s) && (bfd_get_section_flags (ibfd, s) & SEC_ALLOC))
2279 {
2280 /* Will this have an entry in the GOT. */
2281 if (ELF32_R_TYPE (internal_relocs->r_info) == R_LM32_16_GOT)
2282 {
2283 /* Create a new entry. */
2284 new_entry = malloc (sizeof (struct weak_symbol_list));
2285 if (!new_entry)
2286 return FALSE;
2287 new_entry->name = h->root.root.string;
2288 new_entry->next = NULL;
2289 /* Add to list */
2290 if (list_start == NULL)
2291 {
2292 list_start = new_entry;
2293 list_end = new_entry;
2294 }
2295 else
2296 {
2297 list_end->next = new_entry;
2298 list_end = new_entry;
2299 }
2300 /* Increase count of undefined weak symbols in the got. */
2301 rgot_weak_count++;
2302 }
2303 }
2304 }
2305 internal_relocs++;
2306 }
2307 }
2308 else
2309 return FALSE;
2310 }
2311 }
2312 }
2313 /* Free list. */
2314 while (list_start)
2315 {
2316 list_end = list_start->next;
2317 free (list_start);
2318 list_start = list_end;
2319 }
2320
2321 /* Size sections. */
2322 lm32fdpic_fixup32_section (info)->size
2323 = (r32_count + (htab->root.sgot->size / 4) - rgot_weak_count + 1) * 4;
2324 if (lm32fdpic_fixup32_section (info)->size == 0)
2325 lm32fdpic_fixup32_section (info)->flags |= SEC_EXCLUDE;
2326 else
2327 {
2328 lm32fdpic_fixup32_section (info)->contents =
2329 bfd_zalloc (dynobj, lm32fdpic_fixup32_section (info)->size);
2330 if (lm32fdpic_fixup32_section (info)->contents == NULL)
2331 return FALSE;
2332 }
2333 }
2334
2335 return TRUE;
2336 }
2337
2338 /* Create dynamic sections when linking against a dynamic object. */
2339
2340 static bfd_boolean
2341 lm32_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2342 {
2343 struct elf_lm32_link_hash_table *htab;
2344 flagword flags, pltflags;
2345 asection *s;
2346 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2347 int ptralign = 2; /* 32bit */
2348
2349 htab = lm32_elf_hash_table (info);
2350 if (htab == NULL)
2351 return FALSE;
2352
2353 /* Make sure we have a GOT - For the case where we have a dynamic object
2354 but none of the relocs in check_relocs */
2355 if (!_bfd_elf_create_got_section (abfd, info))
2356 return FALSE;
2357 if (IS_FDPIC (abfd) && (htab->sfixup32 == NULL))
2358 {
2359 if (! create_rofixup_section (abfd, info))
2360 return FALSE;
2361 }
2362
2363 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
2364 .rel[a].bss sections. */
2365 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2366 | SEC_LINKER_CREATED);
2367
2368 pltflags = flags;
2369 pltflags |= SEC_CODE;
2370 if (bed->plt_not_loaded)
2371 pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
2372 if (bed->plt_readonly)
2373 pltflags |= SEC_READONLY;
2374
2375 s = bfd_make_section_anyway_with_flags (abfd, ".plt", pltflags);
2376 htab->root.splt = s;
2377 if (s == NULL
2378 || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
2379 return FALSE;
2380
2381 if (bed->want_plt_sym)
2382 {
2383 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
2384 .plt section. */
2385 struct bfd_link_hash_entry *bh = NULL;
2386 struct elf_link_hash_entry *h;
2387
2388 if (! (_bfd_generic_link_add_one_symbol
2389 (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s,
2390 (bfd_vma) 0, NULL, FALSE,
2391 get_elf_backend_data (abfd)->collect, &bh)))
2392 return FALSE;
2393 h = (struct elf_link_hash_entry *) bh;
2394 h->def_regular = 1;
2395 h->type = STT_OBJECT;
2396 htab->root.hplt = h;
2397
2398 if (bfd_link_pic (info)
2399 && ! bfd_elf_link_record_dynamic_symbol (info, h))
2400 return FALSE;
2401 }
2402
2403 s = bfd_make_section_anyway_with_flags (abfd,
2404 bed->default_use_rela_p
2405 ? ".rela.plt" : ".rel.plt",
2406 flags | SEC_READONLY);
2407 htab->root.srelplt = s;
2408 if (s == NULL
2409 || ! bfd_set_section_alignment (abfd, s, ptralign))
2410 return FALSE;
2411
2412 if (htab->root.sgot == NULL
2413 && !_bfd_elf_create_got_section (abfd, info))
2414 return FALSE;
2415
2416 if (bed->want_dynbss)
2417 {
2418 /* The .dynbss section is a place to put symbols which are defined
2419 by dynamic objects, are referenced by regular objects, and are
2420 not functions. We must allocate space for them in the process
2421 image and use a R_*_COPY reloc to tell the dynamic linker to
2422 initialize them at run time. The linker script puts the .dynbss
2423 section into the .bss section of the final image. */
2424 s = bfd_make_section_anyway_with_flags (abfd, ".dynbss",
2425 SEC_ALLOC | SEC_LINKER_CREATED);
2426 htab->sdynbss = s;
2427 if (s == NULL)
2428 return FALSE;
2429 /* The .rel[a].bss section holds copy relocs. This section is not
2430 normally needed. We need to create it here, though, so that the
2431 linker will map it to an output section. We can't just create it
2432 only if we need it, because we will not know whether we need it
2433 until we have seen all the input files, and the first time the
2434 main linker code calls BFD after examining all the input files
2435 (size_dynamic_sections) the input sections have already been
2436 mapped to the output sections. If the section turns out not to
2437 be needed, we can discard it later. We will never need this
2438 section when generating a shared object, since they do not use
2439 copy relocs. */
2440 if (! bfd_link_pic (info))
2441 {
2442 s = bfd_make_section_anyway_with_flags (abfd,
2443 (bed->default_use_rela_p
2444 ? ".rela.bss" : ".rel.bss"),
2445 flags | SEC_READONLY);
2446 htab->srelbss = s;
2447 if (s == NULL
2448 || ! bfd_set_section_alignment (abfd, s, ptralign))
2449 return FALSE;
2450 }
2451 }
2452
2453 return TRUE;
2454 }
2455
2456 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2457
2458 static void
2459 lm32_elf_copy_indirect_symbol (struct bfd_link_info *info,
2460 struct elf_link_hash_entry *dir,
2461 struct elf_link_hash_entry *ind)
2462 {
2463 struct elf_lm32_link_hash_entry * edir;
2464 struct elf_lm32_link_hash_entry * eind;
2465
2466 edir = (struct elf_lm32_link_hash_entry *) dir;
2467 eind = (struct elf_lm32_link_hash_entry *) ind;
2468
2469 if (eind->dyn_relocs != NULL)
2470 {
2471 if (edir->dyn_relocs != NULL)
2472 {
2473 struct elf_dyn_relocs **pp;
2474 struct elf_dyn_relocs *p;
2475
2476 /* Add reloc counts against the indirect sym to the direct sym
2477 list. Merge any entries against the same section. */
2478 for (pp = &eind->dyn_relocs; (p = *pp) != NULL;)
2479 {
2480 struct elf_dyn_relocs *q;
2481
2482 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2483 if (q->sec == p->sec)
2484 {
2485 q->pc_count += p->pc_count;
2486 q->count += p->count;
2487 *pp = p->next;
2488 break;
2489 }
2490 if (q == NULL)
2491 pp = &p->next;
2492 }
2493 *pp = edir->dyn_relocs;
2494 }
2495
2496 edir->dyn_relocs = eind->dyn_relocs;
2497 eind->dyn_relocs = NULL;
2498 }
2499
2500 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2501 }
2502
2503 static bfd_boolean
2504 lm32_elf_always_size_sections (bfd *output_bfd, struct bfd_link_info *info)
2505 {
2506 if (!bfd_link_relocatable (info))
2507 {
2508 if (!bfd_elf_stack_segment_size (output_bfd, info,
2509 "__stacksize", DEFAULT_STACK_SIZE))
2510 return FALSE;
2511
2512 asection *sec = bfd_get_section_by_name (output_bfd, ".stack");
2513 if (sec)
2514 sec->size = info->stacksize >= 0 ? info->stacksize : 0;
2515 }
2516
2517 return TRUE;
2518 }
2519
2520 static bfd_boolean
2521 lm32_elf_fdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2522 {
2523 unsigned i;
2524
2525 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2526 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2527 return TRUE;
2528
2529 if (! _bfd_elf_copy_private_bfd_data (ibfd, obfd))
2530 return FALSE;
2531
2532 if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
2533 || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
2534 return TRUE;
2535
2536 /* Copy the stack size. */
2537 for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
2538 if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
2539 {
2540 Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
2541
2542 for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
2543 if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
2544 {
2545 memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
2546
2547 /* Rewrite the phdrs, since we're only called after they were first written. */
2548 if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
2549 ->s->sizeof_ehdr, SEEK_SET) != 0
2550 || get_elf_backend_data (obfd)->s->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
2551 elf_elfheader (obfd)->e_phnum) != 0)
2552 return FALSE;
2553 break;
2554 }
2555
2556 break;
2557 }
2558
2559 return TRUE;
2560 }
2561
2562
2563 #define ELF_ARCH bfd_arch_lm32
2564 #define ELF_TARGET_ID LM32_ELF_DATA
2565 #define ELF_MACHINE_CODE EM_LATTICEMICO32
2566 #define ELF_MAXPAGESIZE 0x1000
2567
2568 #define TARGET_BIG_SYM lm32_elf32_vec
2569 #define TARGET_BIG_NAME "elf32-lm32"
2570
2571 #define bfd_elf32_bfd_reloc_type_lookup lm32_reloc_type_lookup
2572 #define bfd_elf32_bfd_reloc_name_lookup lm32_reloc_name_lookup
2573 #define elf_info_to_howto lm32_info_to_howto_rela
2574 #define elf_info_to_howto_rel NULL
2575 #define elf_backend_rela_normal 1
2576 #define elf_backend_object_p lm32_elf_object_p
2577 #define elf_backend_final_write_processing lm32_elf_final_write_processing
2578 #define elf_backend_stack_align 8
2579 #define elf_backend_can_gc_sections 1
2580 #define elf_backend_can_refcount 1
2581 #define elf_backend_gc_mark_hook lm32_elf_gc_mark_hook
2582 #define elf_backend_plt_readonly 1
2583 #define elf_backend_want_got_plt 1
2584 #define elf_backend_want_plt_sym 0
2585 #define elf_backend_got_header_size 12
2586 #define elf_backend_dtrel_excludes_plt 1
2587 #define bfd_elf32_bfd_link_hash_table_create lm32_elf_link_hash_table_create
2588 #define elf_backend_check_relocs lm32_elf_check_relocs
2589 #define elf_backend_reloc_type_class lm32_elf_reloc_type_class
2590 #define elf_backend_copy_indirect_symbol lm32_elf_copy_indirect_symbol
2591 #define elf_backend_size_dynamic_sections lm32_elf_size_dynamic_sections
2592 #define elf_backend_omit_section_dynsym _bfd_elf_omit_section_dynsym_all
2593 #define elf_backend_create_dynamic_sections lm32_elf_create_dynamic_sections
2594 #define elf_backend_finish_dynamic_sections lm32_elf_finish_dynamic_sections
2595 #define elf_backend_adjust_dynamic_symbol lm32_elf_adjust_dynamic_symbol
2596 #define elf_backend_finish_dynamic_symbol lm32_elf_finish_dynamic_symbol
2597 #define elf_backend_relocate_section lm32_elf_relocate_section
2598
2599 #include "elf32-target.h"
2600
2601 #undef ELF_MAXPAGESIZE
2602 #define ELF_MAXPAGESIZE 0x4000
2603
2604
2605 #undef TARGET_BIG_SYM
2606 #define TARGET_BIG_SYM lm32_elf32_fdpic_vec
2607 #undef TARGET_BIG_NAME
2608 #define TARGET_BIG_NAME "elf32-lm32fdpic"
2609 #undef elf32_bed
2610 #define elf32_bed elf32_lm32fdpic_bed
2611
2612 #undef elf_backend_always_size_sections
2613 #define elf_backend_always_size_sections lm32_elf_always_size_sections
2614 #undef bfd_elf32_bfd_copy_private_bfd_data
2615 #define bfd_elf32_bfd_copy_private_bfd_data lm32_elf_fdpic_copy_private_bfd_data
2616
2617 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.