?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
arm: PR gas/25472 Enable DSP instructions with +mve
[binutils-gdb.git] / bfd / elf32-lm32.c
blobc329af95002c28c81e8652fcdad0e1d7d8afc2ec
1 /* Lattice Mico32-specific support for 32-bit ELF
2 Copyright (C) 2008-2020 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 (lm32fdpic_fixup32_section (info), 2))
199 return FALSE;
200
201 return TRUE;
202 }
203
204 static reloc_howto_type lm32_elf_howto_table [] =
205 {
206 /* This reloc does nothing. */
207 HOWTO (R_LM32_NONE, /* type */
208 0, /* rightshift */
209 3, /* size (0 = byte, 1 = short, 2 = long) */
210 0, /* bitsize */
211 FALSE, /* pc_relative */
212 0, /* bitpos */
213 complain_overflow_dont, /* complain_on_overflow */
214 bfd_elf_generic_reloc, /* special_function */
215 "R_LM32_NONE", /* name */
216 FALSE, /* partial_inplace */
217 0, /* src_mask */
218 0, /* dst_mask */
219 FALSE), /* pcrel_offset */
220
221 /* An 8 bit absolute relocation. */
222 HOWTO (R_LM32_8, /* type */
223 0, /* rightshift */
224 0, /* size (0 = byte, 1 = short, 2 = long) */
225 8, /* bitsize */
226 FALSE, /* pc_relative */
227 0, /* bitpos */
228 complain_overflow_bitfield,/* complain_on_overflow */
229 bfd_elf_generic_reloc, /* special_function */
230 "R_LM32_8", /* name */
231 FALSE, /* partial_inplace */
232 0, /* src_mask */
233 0xff, /* dst_mask */
234 FALSE), /* pcrel_offset */
235
236 /* A 16 bit absolute relocation. */
237 HOWTO (R_LM32_16, /* type */
238 0, /* rightshift */
239 1, /* size (0 = byte, 1 = short, 2 = long) */
240 16, /* bitsize */
241 FALSE, /* pc_relative */
242 0, /* bitpos */
243 complain_overflow_bitfield,/* complain_on_overflow */
244 bfd_elf_generic_reloc, /* special_function */
245 "R_LM32_16", /* name */
246 FALSE, /* partial_inplace */
247 0, /* src_mask */
248 0xffff, /* dst_mask */
249 FALSE), /* pcrel_offset */
250
251 /* A 32 bit absolute relocation. */
252 HOWTO (R_LM32_32, /* type */
253 0, /* rightshift */
254 2, /* size (0 = byte, 1 = short, 2 = long) */
255 32, /* bitsize */
256 FALSE, /* pc_relative */
257 0, /* bitpos */
258 complain_overflow_bitfield,/* complain_on_overflow */
259 bfd_elf_generic_reloc, /* special_function */
260 "R_LM32_32", /* name */
261 FALSE, /* partial_inplace */
262 0, /* src_mask */
263 0xffffffff, /* dst_mask */
264 FALSE), /* pcrel_offset */
265
266 HOWTO (R_LM32_HI16, /* type */
267 16, /* rightshift */
268 2, /* size (0 = byte, 1 = short, 2 = long) */
269 16, /* bitsize */
270 FALSE, /* pc_relative */
271 0, /* bitpos */
272 complain_overflow_bitfield,/* complain_on_overflow */
273 bfd_elf_generic_reloc, /* special_function */
274 "R_LM32_HI16", /* name */
275 FALSE, /* partial_inplace */
276 0, /* src_mask */
277 0xffff, /* dst_mask */
278 FALSE), /* pcrel_offset */
279
280 HOWTO (R_LM32_LO16, /* type */
281 0, /* rightshift */
282 2, /* size (0 = byte, 1 = short, 2 = long) */
283 16, /* bitsize */
284 FALSE, /* pc_relative */
285 0, /* bitpos */
286 complain_overflow_dont, /* complain_on_overflow */
287 bfd_elf_generic_reloc, /* special_function */
288 "R_LM32_LO16", /* name */
289 FALSE, /* partial_inplace */
290 0, /* src_mask */
291 0xffff, /* dst_mask */
292 FALSE), /* pcrel_offset */
293
294 HOWTO (R_LM32_GPREL16, /* type */
295 0, /* rightshift */
296 2, /* size (0 = byte, 1 = short, 2 = long) */
297 16, /* bitsize */
298 FALSE, /* pc_relative */
299 0, /* bitpos */
300 complain_overflow_dont, /* complain_on_overflow */
301 lm32_elf_gprel_reloc, /* special_function */
302 "R_LM32_GPREL16", /* name */
303 FALSE, /* partial_inplace */
304 0, /* src_mask */
305 0xffff, /* dst_mask */
306 FALSE), /* pcrel_offset */
307
308 HOWTO (R_LM32_CALL, /* type */
309 2, /* rightshift */
310 2, /* size (0 = byte, 1 = short, 2 = long) */
311 26, /* bitsize */
312 TRUE, /* pc_relative */
313 0, /* bitpos */
314 complain_overflow_signed, /* complain_on_overflow */
315 bfd_elf_generic_reloc, /* special_function */
316 "R_LM32_CALL", /* name */
317 FALSE, /* partial_inplace */
318 0, /* src_mask */
319 0x3ffffff, /* dst_mask */
320 TRUE), /* pcrel_offset */
321
322 HOWTO (R_LM32_BRANCH, /* type */
323 2, /* rightshift */
324 2, /* size (0 = byte, 1 = short, 2 = long) */
325 16, /* bitsize */
326 TRUE, /* pc_relative */
327 0, /* bitpos */
328 complain_overflow_signed, /* complain_on_overflow */
329 bfd_elf_generic_reloc, /* special_function */
330 "R_LM32_BRANCH", /* name */
331 FALSE, /* partial_inplace */
332 0, /* src_mask */
333 0xffff, /* dst_mask */
334 TRUE), /* pcrel_offset */
335
336 /* GNU extension to record C++ vtable hierarchy. */
337 HOWTO (R_LM32_GNU_VTINHERIT, /* type */
338 0, /* rightshift */
339 2, /* size (0 = byte, 1 = short, 2 = long) */
340 0, /* bitsize */
341 FALSE, /* pc_relative */
342 0, /* bitpos */
343 complain_overflow_dont, /* complain_on_overflow */
344 NULL, /* special_function */
345 "R_LM32_GNU_VTINHERIT", /* name */
346 FALSE, /* partial_inplace */
347 0, /* src_mask */
348 0, /* dst_mask */
349 FALSE), /* pcrel_offset */
350
351 /* GNU extension to record C++ vtable member usage. */
352 HOWTO (R_LM32_GNU_VTENTRY, /* type */
353 0, /* rightshift */
354 2, /* size (0 = byte, 1 = short, 2 = long) */
355 0, /* bitsize */
356 FALSE, /* pc_relative */
357 0, /* bitpos */
358 complain_overflow_dont, /* complain_on_overflow */
359 _bfd_elf_rel_vtable_reloc_fn,/* special_function */
360 "R_LM32_GNU_VTENTRY", /* name */
361 FALSE, /* partial_inplace */
362 0, /* src_mask */
363 0, /* dst_mask */
364 FALSE), /* pcrel_offset */
365
366 HOWTO (R_LM32_16_GOT, /* type */
367 0, /* rightshift */
368 2, /* size (0 = byte, 1 = short, 2 = long) */
369 16, /* bitsize */
370 FALSE, /* pc_relative */
371 0, /* bitpos */
372 complain_overflow_signed, /* complain_on_overflow */
373 bfd_elf_generic_reloc, /* special_function */
374 "R_LM32_16_GOT", /* name */
375 FALSE, /* partial_inplace */
376 0, /* src_mask */
377 0xffff, /* dst_mask */
378 FALSE), /* pcrel_offset */
379
380 HOWTO (R_LM32_GOTOFF_HI16, /* type */
381 16, /* rightshift */
382 2, /* size (0 = byte, 1 = short, 2 = long) */
383 16, /* bitsize */
384 FALSE, /* pc_relative */
385 0, /* bitpos */
386 complain_overflow_dont, /* complain_on_overflow */
387 bfd_elf_generic_reloc, /* special_function */
388 "R_LM32_GOTOFF_HI16", /* name */
389 FALSE, /* partial_inplace */
390 0xffff, /* src_mask */
391 0xffff, /* dst_mask */
392 FALSE), /* pcrel_offset */
393
394 HOWTO (R_LM32_GOTOFF_LO16, /* type */
395 0, /* rightshift */
396 2, /* size (0 = byte, 1 = short, 2 = long) */
397 16, /* bitsize */
398 FALSE, /* pc_relative */
399 0, /* bitpos */
400 complain_overflow_dont, /* complain_on_overflow */
401 bfd_elf_generic_reloc, /* special_function */
402 "R_LM32_GOTOFF_LO16", /* name */
403 FALSE, /* partial_inplace */
404 0xffff, /* src_mask */
405 0xffff, /* dst_mask */
406 FALSE), /* pcrel_offset */
407
408 HOWTO (R_LM32_COPY, /* type */
409 0, /* rightshift */
410 2, /* size (0 = byte, 1 = short, 2 = long) */
411 32, /* bitsize */
412 FALSE, /* pc_relative */
413 0, /* bitpos */
414 complain_overflow_bitfield, /* complain_on_overflow */
415 bfd_elf_generic_reloc, /* special_function */
416 "R_LM32_COPY", /* name */
417 FALSE, /* partial_inplace */
418 0xffffffff, /* src_mask */
419 0xffffffff, /* dst_mask */
420 FALSE), /* pcrel_offset */
421
422 HOWTO (R_LM32_GLOB_DAT, /* type */
423 0, /* rightshift */
424 2, /* size (0 = byte, 1 = short, 2 = long) */
425 32, /* bitsize */
426 FALSE, /* pc_relative */
427 0, /* bitpos */
428 complain_overflow_bitfield, /* complain_on_overflow */
429 bfd_elf_generic_reloc, /* special_function */
430 "R_LM32_GLOB_DAT", /* name */
431 FALSE, /* partial_inplace */
432 0xffffffff, /* src_mask */
433 0xffffffff, /* dst_mask */
434 FALSE), /* pcrel_offset */
435
436 HOWTO (R_LM32_JMP_SLOT, /* type */
437 0, /* rightshift */
438 2, /* size (0 = byte, 1 = short, 2 = long) */
439 32, /* bitsize */
440 FALSE, /* pc_relative */
441 0, /* bitpos */
442 complain_overflow_bitfield, /* complain_on_overflow */
443 bfd_elf_generic_reloc, /* special_function */
444 "R_LM32_JMP_SLOT", /* name */
445 FALSE, /* partial_inplace */
446 0xffffffff, /* src_mask */
447 0xffffffff, /* dst_mask */
448 FALSE), /* pcrel_offset */
449
450 HOWTO (R_LM32_RELATIVE, /* type */
451 0, /* rightshift */
452 2, /* size (0 = byte, 1 = short, 2 = long) */
453 32, /* bitsize */
454 FALSE, /* pc_relative */
455 0, /* bitpos */
456 complain_overflow_bitfield, /* complain_on_overflow */
457 bfd_elf_generic_reloc, /* special_function */
458 "R_LM32_RELATIVE", /* name */
459 FALSE, /* partial_inplace */
460 0xffffffff, /* src_mask */
461 0xffffffff, /* dst_mask */
462 FALSE), /* pcrel_offset */
463
464 };
465
466 /* Map BFD reloc types to lm32 ELF reloc types. */
467
468 struct lm32_reloc_map
469 {
470 bfd_reloc_code_real_type bfd_reloc_val;
471 unsigned char elf_reloc_val;
472 };
473
474 static const struct lm32_reloc_map lm32_reloc_map[] =
475 {
476 { BFD_RELOC_NONE, R_LM32_NONE },
477 { BFD_RELOC_8, R_LM32_8 },
478 { BFD_RELOC_16, R_LM32_16 },
479 { BFD_RELOC_32, R_LM32_32 },
480 { BFD_RELOC_HI16, R_LM32_HI16 },
481 { BFD_RELOC_LO16, R_LM32_LO16 },
482 { BFD_RELOC_GPREL16, R_LM32_GPREL16 },
483 { BFD_RELOC_LM32_CALL, R_LM32_CALL },
484 { BFD_RELOC_LM32_BRANCH, R_LM32_BRANCH },
485 { BFD_RELOC_VTABLE_INHERIT, R_LM32_GNU_VTINHERIT },
486 { BFD_RELOC_VTABLE_ENTRY, R_LM32_GNU_VTENTRY },
487 { BFD_RELOC_LM32_16_GOT, R_LM32_16_GOT },
488 { BFD_RELOC_LM32_GOTOFF_HI16, R_LM32_GOTOFF_HI16 },
489 { BFD_RELOC_LM32_GOTOFF_LO16, R_LM32_GOTOFF_LO16 },
490 { BFD_RELOC_LM32_COPY, R_LM32_COPY },
491 { BFD_RELOC_LM32_GLOB_DAT, R_LM32_GLOB_DAT },
492 { BFD_RELOC_LM32_JMP_SLOT, R_LM32_JMP_SLOT },
493 { BFD_RELOC_LM32_RELATIVE, R_LM32_RELATIVE },
494 };
495
496 static reloc_howto_type *
497 lm32_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
498 bfd_reloc_code_real_type code)
499 {
500 unsigned int i;
501
502 for (i = 0; i < sizeof (lm32_reloc_map) / sizeof (lm32_reloc_map[0]); i++)
503 if (lm32_reloc_map[i].bfd_reloc_val == code)
504 return &lm32_elf_howto_table[lm32_reloc_map[i].elf_reloc_val];
505 return NULL;
506 }
507
508 static reloc_howto_type *
509 lm32_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
510 const char *r_name)
511 {
512 unsigned int i;
513
514 for (i = 0;
515 i < sizeof (lm32_elf_howto_table) / sizeof (lm32_elf_howto_table[0]);
516 i++)
517 if (lm32_elf_howto_table[i].name != NULL
518 && strcasecmp (lm32_elf_howto_table[i].name, r_name) == 0)
519 return &lm32_elf_howto_table[i];
520
521 return NULL;
522 }
523
524
525 /* Set the howto pointer for an Lattice Mico32 ELF reloc. */
526
527 static bfd_boolean
528 lm32_info_to_howto_rela (bfd *abfd,
529 arelent *cache_ptr,
530 Elf_Internal_Rela *dst)
531 {
532 unsigned int r_type;
533
534 r_type = ELF32_R_TYPE (dst->r_info);
535 if (r_type >= (unsigned int) R_LM32_max)
536 {
537 /* xgettext:c-format */
538 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
539 abfd, r_type);
540 bfd_set_error (bfd_error_bad_value);
541 return FALSE;
542 }
543 cache_ptr->howto = &lm32_elf_howto_table[r_type];
544 return TRUE;
545 }
546
547 /* Set the right machine number for an Lattice Mico32 ELF file. */
548
549 static bfd_boolean
550 lm32_elf_object_p (bfd *abfd)
551 {
552 return bfd_default_set_arch_mach (abfd, bfd_arch_lm32, bfd_mach_lm32);
553 }
554
555 /* Set machine type flags just before file is written out. */
556
557 static bfd_boolean
558 lm32_elf_final_write_processing (bfd *abfd)
559 {
560 elf_elfheader (abfd)->e_machine = EM_LATTICEMICO32;
561 elf_elfheader (abfd)->e_flags &=~ EF_LM32_MACH;
562 switch (bfd_get_mach (abfd))
563 {
564 case bfd_mach_lm32:
565 elf_elfheader (abfd)->e_flags |= E_LM32_MACH;
566 break;
567 default:
568 abort ();
569 }
570 return _bfd_elf_final_write_processing (abfd);
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 (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_section_flags (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 (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 && hend->u.def.section->output_section != NULL)
1449 {
1450 bfd_vma value =
1451 lm32fdpic_fixup32_section (info)->output_section->vma
1452 + lm32fdpic_fixup32_section (info)->output_offset
1453 + lm32fdpic_fixup32_section (info)->size
1454 - hend->u.def.section->output_section->vma
1455 - hend->u.def.section->output_offset;
1456 BFD_ASSERT (hend->u.def.value == value);
1457 if (hend->u.def.value != value)
1458 {
1459 _bfd_error_handler
1460 ("LINKER BUG: .rofixup section hend->u.def.value != value: %"
1461 PRId64 " != %" PRId64,
1462 (int64_t) hend->u.def.value, (int64_t) value);
1463 return FALSE;
1464 }
1465 }
1466 }
1467
1468 return TRUE;
1469 }
1470
1471 /* Finish up dynamic symbol handling. We set the contents of various
1472 dynamic sections here. */
1473
1474 static bfd_boolean
1475 lm32_elf_finish_dynamic_symbol (bfd *output_bfd,
1476 struct bfd_link_info *info,
1477 struct elf_link_hash_entry *h,
1478 Elf_Internal_Sym *sym)
1479 {
1480 struct elf_lm32_link_hash_table *htab;
1481 bfd_byte *loc;
1482
1483 htab = lm32_elf_hash_table (info);
1484 if (htab == NULL)
1485 return FALSE;
1486
1487 if (h->plt.offset != (bfd_vma) -1)
1488 {
1489 asection *splt;
1490 asection *sgot;
1491 asection *srela;
1492
1493 bfd_vma plt_index;
1494 bfd_vma got_offset;
1495 Elf_Internal_Rela rela;
1496
1497 /* This symbol has an entry in the procedure linkage table. Set
1498 it up. */
1499 BFD_ASSERT (h->dynindx != -1);
1500
1501 splt = htab->root.splt;
1502 sgot = htab->root.sgotplt;
1503 srela = htab->root.srelplt;
1504 BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1505
1506 /* Get the index in the procedure linkage table which
1507 corresponds to this symbol. This is the index of this symbol
1508 in all the symbols for which we are making plt entries. The
1509 first entry in the procedure linkage table is reserved. */
1510 plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1511
1512 /* Get the offset into the .got table of the entry that
1513 corresponds to this function. Each .got entry is 4 bytes.
1514 The first three are reserved. */
1515 got_offset = (plt_index + 3) * 4;
1516
1517 /* Fill in the entry in the procedure linkage table. */
1518 if (! bfd_link_pic (info))
1519 {
1520 /* TODO */
1521 }
1522 else
1523 {
1524 /* TODO */
1525 }
1526
1527 /* Fill in the entry in the global offset table. */
1528 bfd_put_32 (output_bfd,
1529 (splt->output_section->vma
1530 + splt->output_offset
1531 + h->plt.offset
1532 + 12), /* same offset */
1533 sgot->contents + got_offset);
1534
1535 /* Fill in the entry in the .rela.plt section. */
1536 rela.r_offset = (sgot->output_section->vma
1537 + sgot->output_offset
1538 + got_offset);
1539 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_JMP_SLOT);
1540 rela.r_addend = 0;
1541 loc = srela->contents;
1542 loc += plt_index * sizeof (Elf32_External_Rela);
1543 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1544
1545 if (!h->def_regular)
1546 {
1547 /* Mark the symbol as undefined, rather than as defined in
1548 the .plt section. Leave the value alone. */
1549 sym->st_shndx = SHN_UNDEF;
1550 }
1551
1552 }
1553
1554 if (h->got.offset != (bfd_vma) -1)
1555 {
1556 asection *sgot;
1557 asection *srela;
1558 Elf_Internal_Rela rela;
1559
1560 /* This symbol has an entry in the global offset table. Set it
1561 up. */
1562 sgot = htab->root.sgot;
1563 srela = htab->root.srelgot;
1564 BFD_ASSERT (sgot != NULL && srela != NULL);
1565
1566 rela.r_offset = (sgot->output_section->vma
1567 + sgot->output_offset
1568 + (h->got.offset &~ 1));
1569
1570 /* If this is a -Bsymbolic link, and the symbol is defined
1571 locally, we just want to emit a RELATIVE reloc. Likewise if
1572 the symbol was forced to be local because of a version file.
1573 The entry in the global offset table will already have been
1574 initialized in the relocate_section function. */
1575 if (bfd_link_pic (info)
1576 && (info->symbolic
1577 || h->dynindx == -1
1578 || h->forced_local)
1579 && h->def_regular)
1580 {
1581 rela.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
1582 rela.r_addend = (h->root.u.def.value
1583 + h->root.u.def.section->output_section->vma
1584 + h->root.u.def.section->output_offset);
1585 }
1586 else
1587 {
1588 BFD_ASSERT ((h->got.offset & 1) == 0);
1589 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
1590 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_GLOB_DAT);
1591 rela.r_addend = 0;
1592 }
1593
1594 loc = srela->contents;
1595 loc += srela->reloc_count * sizeof (Elf32_External_Rela);
1596 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1597 ++srela->reloc_count;
1598 }
1599
1600 if (h->needs_copy)
1601 {
1602 asection *s;
1603 Elf_Internal_Rela rela;
1604
1605 /* This symbols needs a copy reloc. Set it up. */
1606 BFD_ASSERT (h->dynindx != -1
1607 && (h->root.type == bfd_link_hash_defined
1608 || h->root.type == bfd_link_hash_defweak));
1609
1610 s = bfd_get_linker_section (htab->root.dynobj, ".rela.bss");
1611 BFD_ASSERT (s != NULL);
1612
1613 rela.r_offset = (h->root.u.def.value
1614 + h->root.u.def.section->output_section->vma
1615 + h->root.u.def.section->output_offset);
1616 rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_COPY);
1617 rela.r_addend = 0;
1618 loc = s->contents;
1619 loc += s->reloc_count * sizeof (Elf32_External_Rela);
1620 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1621 ++s->reloc_count;
1622 }
1623
1624 /* Mark some specially defined symbols as absolute. */
1625 if (h == htab->root.hdynamic || h == htab->root.hgot)
1626 sym->st_shndx = SHN_ABS;
1627
1628 return TRUE;
1629 }
1630
1631 static enum elf_reloc_type_class
1632 lm32_elf_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
1633 const asection *rel_sec ATTRIBUTE_UNUSED,
1634 const Elf_Internal_Rela *rela)
1635 {
1636 switch ((int) ELF32_R_TYPE (rela->r_info))
1637 {
1638 case R_LM32_RELATIVE: return reloc_class_relative;
1639 case R_LM32_JMP_SLOT: return reloc_class_plt;
1640 case R_LM32_COPY: return reloc_class_copy;
1641 default: return reloc_class_normal;
1642 }
1643 }
1644
1645 /* Find dynamic relocs for H that apply to read-only sections. */
1646
1647 static asection *
1648 readonly_dynrelocs (struct elf_link_hash_entry *h)
1649 {
1650 struct elf_dyn_relocs *p;
1651 struct elf_lm32_link_hash_entry *eh = (struct elf_lm32_link_hash_entry *) h;
1652
1653 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1654 {
1655 asection *s = p->sec->output_section;
1656
1657 if (s != NULL && (s->flags & SEC_READONLY) != 0)
1658 return p->sec;
1659 }
1660 return NULL;
1661 }
1662
1663 /* Adjust a symbol defined by a dynamic object and referenced by a
1664 regular object. The current definition is in some section of the
1665 dynamic object, but we're not including those sections. We have to
1666 change the definition to something the rest of the link can
1667 understand. */
1668
1669 static bfd_boolean
1670 lm32_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
1671 struct elf_link_hash_entry *h)
1672 {
1673 struct elf_lm32_link_hash_table *htab;
1674 bfd *dynobj;
1675 asection *s;
1676
1677 dynobj = elf_hash_table (info)->dynobj;
1678
1679 /* Make sure we know what is going on here. */
1680 BFD_ASSERT (dynobj != NULL
1681 && (h->needs_plt
1682 || h->is_weakalias
1683 || (h->def_dynamic
1684 && h->ref_regular
1685 && !h->def_regular)));
1686
1687 /* If this is a function, put it in the procedure linkage table. We
1688 will fill in the contents of the procedure linkage table later,
1689 when we know the address of the .got section. */
1690 if (h->type == STT_FUNC
1691 || h->needs_plt)
1692 {
1693 if (! bfd_link_pic (info)
1694 && !h->def_dynamic
1695 && !h->ref_dynamic
1696 && h->root.type != bfd_link_hash_undefweak
1697 && h->root.type != bfd_link_hash_undefined)
1698 {
1699 /* This case can occur if we saw a PLT reloc in an input
1700 file, but the symbol was never referred to by a dynamic
1701 object. In such a case, we don't actually need to build
1702 a procedure linkage table, and we can just do a PCREL
1703 reloc instead. */
1704 h->plt.offset = (bfd_vma) -1;
1705 h->needs_plt = 0;
1706 }
1707
1708 return TRUE;
1709 }
1710 else
1711 h->plt.offset = (bfd_vma) -1;
1712
1713 /* If this is a weak symbol, and there is a real definition, the
1714 processor independent code will have arranged for us to see the
1715 real definition first, and we can just use the same value. */
1716 if (h->is_weakalias)
1717 {
1718 struct elf_link_hash_entry *def = weakdef (h);
1719 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
1720 h->root.u.def.section = def->root.u.def.section;
1721 h->root.u.def.value = def->root.u.def.value;
1722 return TRUE;
1723 }
1724
1725 /* This is a reference to a symbol defined by a dynamic object which
1726 is not a function. */
1727
1728 /* If we are creating a shared library, we must presume that the
1729 only references to the symbol are via the global offset table.
1730 For such cases we need not do anything here; the relocations will
1731 be handled correctly by relocate_section. */
1732 if (bfd_link_pic (info))
1733 return TRUE;
1734
1735 /* If there are no references to this symbol that do not use the
1736 GOT, we don't need to generate a copy reloc. */
1737 if (!h->non_got_ref)
1738 return TRUE;
1739
1740 /* If -z nocopyreloc was given, we won't generate them either. */
1741 if (0 && info->nocopyreloc)
1742 {
1743 h->non_got_ref = 0;
1744 return TRUE;
1745 }
1746
1747 /* If we don't find any dynamic relocs in read-only sections, then
1748 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
1749 if (0 && !readonly_dynrelocs (h))
1750 {
1751 h->non_got_ref = 0;
1752 return TRUE;
1753 }
1754
1755 /* We must allocate the symbol in our .dynbss section, which will
1756 become part of the .bss section of the executable. There will be
1757 an entry for this symbol in the .dynsym section. The dynamic
1758 object will contain position independent code, so all references
1759 from the dynamic object to this symbol will go through the global
1760 offset table. The dynamic linker will use the .dynsym entry to
1761 determine the address it must put in the global offset table, so
1762 both the dynamic object and the regular object will refer to the
1763 same memory location for the variable. */
1764
1765 htab = lm32_elf_hash_table (info);
1766 if (htab == NULL)
1767 return FALSE;
1768
1769 s = htab->sdynbss;
1770 BFD_ASSERT (s != NULL);
1771
1772 /* We must generate a R_LM32_COPY reloc to tell the dynamic linker
1773 to copy the initial value out of the dynamic object and into the
1774 runtime process image. We need to remember the offset into the
1775 .rela.bss section we are going to use. */
1776 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
1777 {
1778 asection *srel;
1779
1780 srel = htab->srelbss;
1781 BFD_ASSERT (srel != NULL);
1782 srel->size += sizeof (Elf32_External_Rela);
1783 h->needs_copy = 1;
1784 }
1785
1786 return _bfd_elf_adjust_dynamic_copy (info, h, s);
1787 }
1788
1789 /* Allocate space in .plt, .got and associated reloc sections for
1790 dynamic relocs. */
1791
1792 static bfd_boolean
1793 allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1794 {
1795 struct bfd_link_info *info;
1796 struct elf_lm32_link_hash_table *htab;
1797 struct elf_lm32_link_hash_entry *eh;
1798 struct elf_dyn_relocs *p;
1799
1800 if (h->root.type == bfd_link_hash_indirect)
1801 return TRUE;
1802
1803 info = (struct bfd_link_info *) inf;
1804 htab = lm32_elf_hash_table (info);
1805 if (htab == NULL)
1806 return FALSE;
1807
1808 eh = (struct elf_lm32_link_hash_entry *) h;
1809
1810 if (htab->root.dynamic_sections_created
1811 && h->plt.refcount > 0)
1812 {
1813 /* Make sure this symbol is output as a dynamic symbol.
1814 Undefined weak syms won't yet be marked as dynamic. */
1815 if (h->dynindx == -1
1816 && !h->forced_local)
1817 {
1818 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1819 return FALSE;
1820 }
1821
1822 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
1823 {
1824 asection *s = htab->root.splt;
1825
1826 /* If this is the first .plt entry, make room for the special
1827 first entry. */
1828 if (s->size == 0)
1829 s->size += PLT_ENTRY_SIZE;
1830
1831 h->plt.offset = s->size;
1832
1833 /* If this symbol is not defined in a regular file, and we are
1834 not generating a shared library, then set the symbol to this
1835 location in the .plt. This is required to make function
1836 pointers compare as equal between the normal executable and
1837 the shared library. */
1838 if (! bfd_link_pic (info)
1839 && !h->def_regular)
1840 {
1841 h->root.u.def.section = s;
1842 h->root.u.def.value = h->plt.offset;
1843 }
1844
1845 /* Make room for this entry. */
1846 s->size += PLT_ENTRY_SIZE;
1847
1848 /* We also need to make an entry in the .got.plt section, which
1849 will be placed in the .got section by the linker script. */
1850 htab->root.sgotplt->size += 4;
1851
1852 /* We also need to make an entry in the .rel.plt section. */
1853 htab->root.srelplt->size += sizeof (Elf32_External_Rela);
1854 }
1855 else
1856 {
1857 h->plt.offset = (bfd_vma) -1;
1858 h->needs_plt = 0;
1859 }
1860 }
1861 else
1862 {
1863 h->plt.offset = (bfd_vma) -1;
1864 h->needs_plt = 0;
1865 }
1866
1867 if (h->got.refcount > 0)
1868 {
1869 asection *s;
1870 bfd_boolean dyn;
1871
1872 /* Make sure this symbol is output as a dynamic symbol.
1873 Undefined weak syms won't yet be marked as dynamic. */
1874 if (h->dynindx == -1
1875 && !h->forced_local)
1876 {
1877 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1878 return FALSE;
1879 }
1880
1881 s = htab->root.sgot;
1882
1883 h->got.offset = s->size;
1884 s->size += 4;
1885 dyn = htab->root.dynamic_sections_created;
1886 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h))
1887 htab->root.srelgot->size += sizeof (Elf32_External_Rela);
1888 }
1889 else
1890 h->got.offset = (bfd_vma) -1;
1891
1892 if (eh->dyn_relocs == NULL)
1893 return TRUE;
1894
1895 /* In the shared -Bsymbolic case, discard space allocated for
1896 dynamic pc-relative relocs against symbols which turn out to be
1897 defined in regular objects. For the normal shared case, discard
1898 space for pc-relative relocs that have become local due to symbol
1899 visibility changes. */
1900
1901 if (bfd_link_pic (info))
1902 {
1903 if (h->def_regular
1904 && (h->forced_local
1905 || info->symbolic))
1906 {
1907 struct elf_dyn_relocs **pp;
1908
1909 for (pp = &eh->dyn_relocs; (p = *pp) != NULL;)
1910 {
1911 p->count -= p->pc_count;
1912 p->pc_count = 0;
1913 if (p->count == 0)
1914 *pp = p->next;
1915 else
1916 pp = &p->next;
1917 }
1918 }
1919
1920 /* Also discard relocs on undefined weak syms with non-default
1921 visibility. */
1922 if (eh->dyn_relocs != NULL
1923 && h->root.type == bfd_link_hash_undefweak)
1924 {
1925 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1926 eh->dyn_relocs = NULL;
1927
1928 /* Make sure undefined weak symbols are output as a dynamic
1929 symbol in PIEs. */
1930 else if (h->dynindx == -1
1931 && !h->forced_local)
1932 {
1933 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1934 return FALSE;
1935 }
1936 }
1937 }
1938 else
1939 {
1940 /* For the non-shared case, discard space for relocs against
1941 symbols which turn out to need copy relocs or are not
1942 dynamic. */
1943
1944 if (!h->non_got_ref
1945 && ((h->def_dynamic
1946 && !h->def_regular)
1947 || (htab->root.dynamic_sections_created
1948 && (h->root.type == bfd_link_hash_undefweak
1949 || h->root.type == bfd_link_hash_undefined))))
1950 {
1951 /* Make sure this symbol is output as a dynamic symbol.
1952 Undefined weak syms won't yet be marked as dynamic. */
1953 if (h->dynindx == -1
1954 && !h->forced_local)
1955 {
1956 if (! bfd_elf_link_record_dynamic_symbol (info, h))
1957 return FALSE;
1958 }
1959
1960 /* If that succeeded, we know we'll be keeping all the
1961 relocs. */
1962 if (h->dynindx != -1)
1963 goto keep;
1964 }
1965
1966 eh->dyn_relocs = NULL;
1967
1968 keep: ;
1969 }
1970
1971 /* Finally, allocate space. */
1972 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1973 {
1974 asection *sreloc = elf_section_data (p->sec)->sreloc;
1975 sreloc->size += p->count * sizeof (Elf32_External_Rela);
1976 }
1977
1978 return TRUE;
1979 }
1980
1981 /* Set DF_TEXTREL if we find any dynamic relocs that apply to
1982 read-only sections. */
1983
1984 static bfd_boolean
1985 maybe_set_textrel (struct elf_link_hash_entry *h, void *info_p)
1986 {
1987 asection *sec;
1988
1989 if (h->root.type == bfd_link_hash_indirect)
1990 return TRUE;
1991
1992 sec = readonly_dynrelocs (h);
1993 if (sec != NULL)
1994 {
1995 struct bfd_link_info *info = (struct bfd_link_info *) info_p;
1996
1997 info->flags |= DF_TEXTREL;
1998 info->callbacks->minfo
1999 (_("%pB: dynamic relocation against `%pT' in read-only section `%pA'\n"),
2000 sec->owner, h->root.root.string, sec);
2001
2002 /* Not an error, just cut short the traversal. */
2003 return FALSE;
2004 }
2005 return TRUE;
2006 }
2007
2008 /* Set the sizes of the dynamic sections. */
2009
2010 static bfd_boolean
2011 lm32_elf_size_dynamic_sections (bfd *output_bfd,
2012 struct bfd_link_info *info)
2013 {
2014 struct elf_lm32_link_hash_table *htab;
2015 bfd *dynobj;
2016 asection *s;
2017 bfd_boolean relocs;
2018 bfd *ibfd;
2019
2020 htab = lm32_elf_hash_table (info);
2021 if (htab == NULL)
2022 return FALSE;
2023
2024 dynobj = htab->root.dynobj;
2025 BFD_ASSERT (dynobj != NULL);
2026
2027 if (htab->root.dynamic_sections_created)
2028 {
2029 /* Set the contents of the .interp section to the interpreter. */
2030 if (bfd_link_executable (info) && !info->nointerp)
2031 {
2032 s = bfd_get_linker_section (dynobj, ".interp");
2033 BFD_ASSERT (s != NULL);
2034 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
2035 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2036 }
2037 }
2038
2039 /* Set up .got offsets for local syms, and space for local dynamic
2040 relocs. */
2041 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2042 {
2043 bfd_signed_vma *local_got;
2044 bfd_signed_vma *end_local_got;
2045 bfd_size_type locsymcount;
2046 Elf_Internal_Shdr *symtab_hdr;
2047 asection *srel;
2048
2049 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2050 continue;
2051
2052 for (s = ibfd->sections; s != NULL; s = s->next)
2053 {
2054 struct elf_dyn_relocs *p;
2055
2056 for (p = ((struct elf_dyn_relocs *)
2057 elf_section_data (s)->local_dynrel);
2058 p != NULL;
2059 p = p->next)
2060 {
2061 if (! bfd_is_abs_section (p->sec)
2062 && bfd_is_abs_section (p->sec->output_section))
2063 {
2064 /* Input section has been discarded, either because
2065 it is a copy of a linkonce section or due to
2066 linker script /DISCARD/, so we'll be discarding
2067 the relocs too. */
2068 }
2069 else if (p->count != 0)
2070 {
2071 srel = elf_section_data (p->sec)->sreloc;
2072 srel->size += p->count * sizeof (Elf32_External_Rela);
2073 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2074 info->flags |= DF_TEXTREL;
2075 }
2076 }
2077 }
2078
2079 local_got = elf_local_got_refcounts (ibfd);
2080 if (!local_got)
2081 continue;
2082
2083 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2084 locsymcount = symtab_hdr->sh_info;
2085 end_local_got = local_got + locsymcount;
2086 s = htab->root.sgot;
2087 srel = htab->root.srelgot;
2088 for (; local_got < end_local_got; ++local_got)
2089 {
2090 if (*local_got > 0)
2091 {
2092 *local_got = s->size;
2093 s->size += 4;
2094 if (bfd_link_pic (info))
2095 srel->size += sizeof (Elf32_External_Rela);
2096 }
2097 else
2098 *local_got = (bfd_vma) -1;
2099 }
2100 }
2101
2102 /* Allocate global sym .plt and .got entries, and space for global
2103 sym dynamic relocs. */
2104 elf_link_hash_traverse (&htab->root, allocate_dynrelocs, info);
2105
2106 /* We now have determined the sizes of the various dynamic sections.
2107 Allocate memory for them. */
2108 relocs = FALSE;
2109 for (s = dynobj->sections; s != NULL; s = s->next)
2110 {
2111 if ((s->flags & SEC_LINKER_CREATED) == 0)
2112 continue;
2113
2114 if (s == htab->root.splt
2115 || s == htab->root.sgot
2116 || s == htab->root.sgotplt
2117 || s == htab->sdynbss)
2118 {
2119 /* Strip this section if we don't need it; see the
2120 comment below. */
2121 }
2122 else if (CONST_STRNEQ (bfd_section_name (s), ".rela"))
2123 {
2124 if (s->size != 0 && s != htab->root.srelplt)
2125 relocs = TRUE;
2126
2127 /* We use the reloc_count field as a counter if we need
2128 to copy relocs into the output file. */
2129 s->reloc_count = 0;
2130 }
2131 else
2132 /* It's not one of our sections, so don't allocate space. */
2133 continue;
2134
2135 if (s->size == 0)
2136 {
2137 /* If we don't need this section, strip it from the
2138 output file. This is mostly to handle .rela.bss and
2139 .rela.plt. We must create both sections in
2140 create_dynamic_sections, because they must be created
2141 before the linker maps input sections to output
2142 sections. The linker does that before
2143 adjust_dynamic_symbol is called, and it is that
2144 function which decides whether anything needs to go
2145 into these sections. */
2146 s->flags |= SEC_EXCLUDE;
2147 continue;
2148 }
2149
2150 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2151 continue;
2152
2153 /* Allocate memory for the section contents. We use bfd_zalloc
2154 here in case unused entries are not reclaimed before the
2155 section's contents are written out. This should not happen,
2156 but this way if it does, we get a R_LM32_NONE reloc instead
2157 of garbage. */
2158 s->contents = bfd_zalloc (dynobj, s->size);
2159 if (s->contents == NULL)
2160 return FALSE;
2161 }
2162
2163 if (htab->root.dynamic_sections_created)
2164 {
2165 /* Add some entries to the .dynamic section. We fill in the
2166 values later, in lm32_elf_finish_dynamic_sections, but we
2167 must add the entries now so that we get the correct size for
2168 the .dynamic section. The DT_DEBUG entry is filled in by the
2169 dynamic linker and used by the debugger. */
2170 #define add_dynamic_entry(TAG, VAL) \
2171 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2172
2173 if (bfd_link_executable (info))
2174 {
2175 if (! add_dynamic_entry (DT_DEBUG, 0))
2176 return FALSE;
2177 }
2178
2179 if (htab->root.splt->size != 0)
2180 {
2181 if (! add_dynamic_entry (DT_PLTGOT, 0)
2182 || ! add_dynamic_entry (DT_PLTRELSZ, 0)
2183 || ! add_dynamic_entry (DT_PLTREL, DT_RELA)
2184 || ! add_dynamic_entry (DT_JMPREL, 0))
2185 return FALSE;
2186 }
2187
2188 if (relocs)
2189 {
2190 if (! add_dynamic_entry (DT_RELA, 0)
2191 || ! add_dynamic_entry (DT_RELASZ, 0)
2192 || ! add_dynamic_entry (DT_RELAENT,
2193 sizeof (Elf32_External_Rela)))
2194 return FALSE;
2195
2196 /* If any dynamic relocs apply to a read-only section,
2197 then we need a DT_TEXTREL entry. */
2198 if ((info->flags & DF_TEXTREL) == 0)
2199 elf_link_hash_traverse (&htab->root, maybe_set_textrel, info);
2200
2201 if ((info->flags & DF_TEXTREL) != 0)
2202 {
2203 if (! add_dynamic_entry (DT_TEXTREL, 0))
2204 return FALSE;
2205 }
2206 }
2207 }
2208 #undef add_dynamic_entry
2209
2210 /* Allocate .rofixup section. */
2211 if (IS_FDPIC (output_bfd))
2212 {
2213 struct weak_symbol_list *list_start = NULL, *list_end = NULL;
2214 int rgot_weak_count = 0;
2215 int r32_count = 0;
2216 int rgot_count = 0;
2217 /* Look for deleted sections. */
2218 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2219 {
2220 for (s = ibfd->sections; s != NULL; s = s->next)
2221 {
2222 if (s->reloc_count)
2223 {
2224 /* Count relocs that need .rofixup entires. */
2225 Elf_Internal_Rela *internal_relocs, *end;
2226 internal_relocs = elf_section_data (s)->relocs;
2227 if (internal_relocs == NULL)
2228 internal_relocs = (_bfd_elf_link_read_relocs (ibfd, s, NULL, NULL, FALSE));
2229 if (internal_relocs != NULL)
2230 {
2231 end = internal_relocs + s->reloc_count;
2232 while (internal_relocs < end)
2233 {
2234 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2235 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
2236 unsigned long r_symndx;
2237 struct elf_link_hash_entry *h;
2238
2239 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2240 sym_hashes = elf_sym_hashes (ibfd);
2241 r_symndx = ELF32_R_SYM (internal_relocs->r_info);
2242 h = NULL;
2243 if (r_symndx < symtab_hdr->sh_info)
2244 {
2245 }
2246 else
2247 {
2248 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2249 while (h->root.type == bfd_link_hash_indirect
2250 || h->root.type == bfd_link_hash_warning)
2251 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2252 }
2253
2254 /* Don't generate entries for weak symbols. */
2255 if (!h || (h && h->root.type != bfd_link_hash_undefweak))
2256 {
2257 if (!discarded_section (s) && !((bfd_section_flags (s) & SEC_ALLOC) == 0))
2258 {
2259 switch (ELF32_R_TYPE (internal_relocs->r_info))
2260 {
2261 case R_LM32_32:
2262 r32_count++;
2263 break;
2264 case R_LM32_16_GOT:
2265 rgot_count++;
2266 break;
2267 }
2268 }
2269 }
2270 else
2271 {
2272 struct weak_symbol_list *current, *new_entry;
2273 /* Is this symbol already in the list? */
2274 for (current = list_start; current; current = current->next)
2275 {
2276 if (!strcmp (current->name, h->root.root.string))
2277 break;
2278 }
2279 if (!current && !discarded_section (s) && (bfd_section_flags (s) & SEC_ALLOC))
2280 {
2281 /* Will this have an entry in the GOT. */
2282 if (ELF32_R_TYPE (internal_relocs->r_info) == R_LM32_16_GOT)
2283 {
2284 /* Create a new entry. */
2285 new_entry = malloc (sizeof (struct weak_symbol_list));
2286 if (!new_entry)
2287 return FALSE;
2288 new_entry->name = h->root.root.string;
2289 new_entry->next = NULL;
2290 /* Add to list */
2291 if (list_start == NULL)
2292 {
2293 list_start = new_entry;
2294 list_end = new_entry;
2295 }
2296 else
2297 {
2298 list_end->next = new_entry;
2299 list_end = new_entry;
2300 }
2301 /* Increase count of undefined weak symbols in the got. */
2302 rgot_weak_count++;
2303 }
2304 }
2305 }
2306 internal_relocs++;
2307 }
2308 }
2309 else
2310 return FALSE;
2311 }
2312 }
2313 }
2314 /* Free list. */
2315 while (list_start)
2316 {
2317 list_end = list_start->next;
2318 free (list_start);
2319 list_start = list_end;
2320 }
2321
2322 /* Size sections. */
2323 lm32fdpic_fixup32_section (info)->size
2324 = (r32_count + (htab->root.sgot->size / 4) - rgot_weak_count + 1) * 4;
2325 if (lm32fdpic_fixup32_section (info)->size == 0)
2326 lm32fdpic_fixup32_section (info)->flags |= SEC_EXCLUDE;
2327 else
2328 {
2329 lm32fdpic_fixup32_section (info)->contents =
2330 bfd_zalloc (dynobj, lm32fdpic_fixup32_section (info)->size);
2331 if (lm32fdpic_fixup32_section (info)->contents == NULL)
2332 return FALSE;
2333 }
2334 }
2335
2336 return TRUE;
2337 }
2338
2339 /* Create dynamic sections when linking against a dynamic object. */
2340
2341 static bfd_boolean
2342 lm32_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2343 {
2344 struct elf_lm32_link_hash_table *htab;
2345 flagword flags, pltflags;
2346 asection *s;
2347 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2348 int ptralign = 2; /* 32bit */
2349
2350 htab = lm32_elf_hash_table (info);
2351 if (htab == NULL)
2352 return FALSE;
2353
2354 /* Make sure we have a GOT - For the case where we have a dynamic object
2355 but none of the relocs in check_relocs */
2356 if (!_bfd_elf_create_got_section (abfd, info))
2357 return FALSE;
2358 if (IS_FDPIC (abfd) && (htab->sfixup32 == NULL))
2359 {
2360 if (! create_rofixup_section (abfd, info))
2361 return FALSE;
2362 }
2363
2364 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
2365 .rel[a].bss sections. */
2366 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2367 | SEC_LINKER_CREATED);
2368
2369 pltflags = flags;
2370 pltflags |= SEC_CODE;
2371 if (bed->plt_not_loaded)
2372 pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
2373 if (bed->plt_readonly)
2374 pltflags |= SEC_READONLY;
2375
2376 s = bfd_make_section_anyway_with_flags (abfd, ".plt", pltflags);
2377 htab->root.splt = s;
2378 if (s == NULL
2379 || !bfd_set_section_alignment (s, bed->plt_alignment))
2380 return FALSE;
2381
2382 if (bed->want_plt_sym)
2383 {
2384 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
2385 .plt section. */
2386 struct bfd_link_hash_entry *bh = NULL;
2387 struct elf_link_hash_entry *h;
2388
2389 if (! (_bfd_generic_link_add_one_symbol
2390 (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s,
2391 (bfd_vma) 0, NULL, FALSE,
2392 get_elf_backend_data (abfd)->collect, &bh)))
2393 return FALSE;
2394 h = (struct elf_link_hash_entry *) bh;
2395 h->def_regular = 1;
2396 h->type = STT_OBJECT;
2397 htab->root.hplt = h;
2398
2399 if (bfd_link_pic (info)
2400 && ! bfd_elf_link_record_dynamic_symbol (info, h))
2401 return FALSE;
2402 }
2403
2404 s = bfd_make_section_anyway_with_flags (abfd,
2405 bed->default_use_rela_p
2406 ? ".rela.plt" : ".rel.plt",
2407 flags | SEC_READONLY);
2408 htab->root.srelplt = s;
2409 if (s == NULL
2410 || !bfd_set_section_alignment (s, ptralign))
2411 return FALSE;
2412
2413 if (htab->root.sgot == NULL
2414 && !_bfd_elf_create_got_section (abfd, info))
2415 return FALSE;
2416
2417 if (bed->want_dynbss)
2418 {
2419 /* The .dynbss section is a place to put symbols which are defined
2420 by dynamic objects, are referenced by regular objects, and are
2421 not functions. We must allocate space for them in the process
2422 image and use a R_*_COPY reloc to tell the dynamic linker to
2423 initialize them at run time. The linker script puts the .dynbss
2424 section into the .bss section of the final image. */
2425 s = bfd_make_section_anyway_with_flags (abfd, ".dynbss",
2426 SEC_ALLOC | SEC_LINKER_CREATED);
2427 htab->sdynbss = s;
2428 if (s == NULL)
2429 return FALSE;
2430 /* The .rel[a].bss section holds copy relocs. This section is not
2431 normally needed. We need to create it here, though, so that the
2432 linker will map it to an output section. We can't just create it
2433 only if we need it, because we will not know whether we need it
2434 until we have seen all the input files, and the first time the
2435 main linker code calls BFD after examining all the input files
2436 (size_dynamic_sections) the input sections have already been
2437 mapped to the output sections. If the section turns out not to
2438 be needed, we can discard it later. We will never need this
2439 section when generating a shared object, since they do not use
2440 copy relocs. */
2441 if (! bfd_link_pic (info))
2442 {
2443 s = bfd_make_section_anyway_with_flags (abfd,
2444 (bed->default_use_rela_p
2445 ? ".rela.bss" : ".rel.bss"),
2446 flags | SEC_READONLY);
2447 htab->srelbss = s;
2448 if (s == NULL
2449 || !bfd_set_section_alignment (s, ptralign))
2450 return FALSE;
2451 }
2452 }
2453
2454 return TRUE;
2455 }
2456
2457 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2458
2459 static void
2460 lm32_elf_copy_indirect_symbol (struct bfd_link_info *info,
2461 struct elf_link_hash_entry *dir,
2462 struct elf_link_hash_entry *ind)
2463 {
2464 struct elf_lm32_link_hash_entry * edir;
2465 struct elf_lm32_link_hash_entry * eind;
2466
2467 edir = (struct elf_lm32_link_hash_entry *) dir;
2468 eind = (struct elf_lm32_link_hash_entry *) ind;
2469
2470 if (eind->dyn_relocs != NULL)
2471 {
2472 if (edir->dyn_relocs != NULL)
2473 {
2474 struct elf_dyn_relocs **pp;
2475 struct elf_dyn_relocs *p;
2476
2477 /* Add reloc counts against the indirect sym to the direct sym
2478 list. Merge any entries against the same section. */
2479 for (pp = &eind->dyn_relocs; (p = *pp) != NULL;)
2480 {
2481 struct elf_dyn_relocs *q;
2482
2483 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2484 if (q->sec == p->sec)
2485 {
2486 q->pc_count += p->pc_count;
2487 q->count += p->count;
2488 *pp = p->next;
2489 break;
2490 }
2491 if (q == NULL)
2492 pp = &p->next;
2493 }
2494 *pp = edir->dyn_relocs;
2495 }
2496
2497 edir->dyn_relocs = eind->dyn_relocs;
2498 eind->dyn_relocs = NULL;
2499 }
2500
2501 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2502 }
2503
2504 static bfd_boolean
2505 lm32_elf_always_size_sections (bfd *output_bfd, struct bfd_link_info *info)
2506 {
2507 if (!bfd_link_relocatable (info))
2508 {
2509 if (!bfd_elf_stack_segment_size (output_bfd, info,
2510 "__stacksize", DEFAULT_STACK_SIZE))
2511 return FALSE;
2512
2513 asection *sec = bfd_get_section_by_name (output_bfd, ".stack");
2514 if (sec)
2515 sec->size = info->stacksize >= 0 ? info->stacksize : 0;
2516 }
2517
2518 return TRUE;
2519 }
2520
2521 static bfd_boolean
2522 lm32_elf_fdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2523 {
2524 unsigned i;
2525
2526 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2527 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2528 return TRUE;
2529
2530 if (! _bfd_elf_copy_private_bfd_data (ibfd, obfd))
2531 return FALSE;
2532
2533 if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
2534 || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
2535 return TRUE;
2536
2537 /* Copy the stack size. */
2538 for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
2539 if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
2540 {
2541 Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
2542
2543 for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
2544 if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
2545 {
2546 memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
2547
2548 /* Rewrite the phdrs, since we're only called after they were first written. */
2549 if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
2550 ->s->sizeof_ehdr, SEEK_SET) != 0
2551 || get_elf_backend_data (obfd)->s->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
2552 elf_elfheader (obfd)->e_phnum) != 0)
2553 return FALSE;
2554 break;
2555 }
2556
2557 break;
2558 }
2559
2560 return TRUE;
2561 }
2562
2563
2564 #define ELF_ARCH bfd_arch_lm32
2565 #define ELF_TARGET_ID LM32_ELF_DATA
2566 #define ELF_MACHINE_CODE EM_LATTICEMICO32
2567 #define ELF_MAXPAGESIZE 0x1000
2568
2569 #define TARGET_BIG_SYM lm32_elf32_vec
2570 #define TARGET_BIG_NAME "elf32-lm32"
2571
2572 #define bfd_elf32_bfd_reloc_type_lookup lm32_reloc_type_lookup
2573 #define bfd_elf32_bfd_reloc_name_lookup lm32_reloc_name_lookup
2574 #define elf_info_to_howto lm32_info_to_howto_rela
2575 #define elf_info_to_howto_rel NULL
2576 #define elf_backend_rela_normal 1
2577 #define elf_backend_object_p lm32_elf_object_p
2578 #define elf_backend_final_write_processing lm32_elf_final_write_processing
2579 #define elf_backend_stack_align 8
2580 #define elf_backend_can_gc_sections 1
2581 #define elf_backend_can_refcount 1
2582 #define elf_backend_gc_mark_hook lm32_elf_gc_mark_hook
2583 #define elf_backend_plt_readonly 1
2584 #define elf_backend_want_got_plt 1
2585 #define elf_backend_want_plt_sym 0
2586 #define elf_backend_got_header_size 12
2587 #define elf_backend_dtrel_excludes_plt 1
2588 #define bfd_elf32_bfd_link_hash_table_create lm32_elf_link_hash_table_create
2589 #define elf_backend_check_relocs lm32_elf_check_relocs
2590 #define elf_backend_reloc_type_class lm32_elf_reloc_type_class
2591 #define elf_backend_copy_indirect_symbol lm32_elf_copy_indirect_symbol
2592 #define elf_backend_size_dynamic_sections lm32_elf_size_dynamic_sections
2593 #define elf_backend_omit_section_dynsym _bfd_elf_omit_section_dynsym_all
2594 #define elf_backend_create_dynamic_sections lm32_elf_create_dynamic_sections
2595 #define elf_backend_finish_dynamic_sections lm32_elf_finish_dynamic_sections
2596 #define elf_backend_adjust_dynamic_symbol lm32_elf_adjust_dynamic_symbol
2597 #define elf_backend_finish_dynamic_symbol lm32_elf_finish_dynamic_symbol
2598 #define elf_backend_relocate_section lm32_elf_relocate_section
2599
2600 #include "elf32-target.h"
2601
2602 #undef ELF_MAXPAGESIZE
2603 #define ELF_MAXPAGESIZE 0x4000
2604
2605
2606 #undef TARGET_BIG_SYM
2607 #define TARGET_BIG_SYM lm32_elf32_fdpic_vec
2608 #undef TARGET_BIG_NAME
2609 #define TARGET_BIG_NAME "elf32-lm32fdpic"
2610 #undef elf32_bed
2611 #define elf32_bed elf32_lm32fdpic_bed
2612
2613 #undef elf_backend_always_size_sections
2614 #define elf_backend_always_size_sections lm32_elf_always_size_sections
2615 #undef bfd_elf32_bfd_copy_private_bfd_data
2616 #define bfd_elf32_bfd_copy_private_bfd_data lm32_elf_fdpic_copy_private_bfd_data
2617
2618 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.