projects / deliverable / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
* elf32-ppc.c (ppc_elf_info_to_howto): Check for invalid relocation
[deliverable/binutils-gdb.git] / bfd / elf32-ppc.c
1 /* PowerPC-specific support for 32-bit ELF
2 Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
4 Written by Ian Lance Taylor, Cygnus Support.
5
6 This file is part of BFD, the Binary File Descriptor library.
7
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
12
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the
20 Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
21 Boston, MA 02110-1301, USA. */
22
23 /* This file is based on a preliminary PowerPC ELF ABI. The
24 information may not match the final PowerPC ELF ABI. It includes
25 suggestions from the in-progress Embedded PowerPC ABI, and that
26 information may also not match. */
27
28 #include "sysdep.h"
29 #include <stdarg.h>
30 #include "bfd.h"
31 #include "bfdlink.h"
32 #include "libbfd.h"
33 #include "elf-bfd.h"
34 #include "elf/ppc.h"
35 #include "elf32-ppc.h"
36 #include "elf-vxworks.h"
37
38 /* RELA relocations are used here. */
39
40 static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
41 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
42 static bfd_reloc_status_type ppc_elf_unhandled_reloc
43 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
44
45 /* Branch prediction bit for branch taken relocs. */
46 #define BRANCH_PREDICT_BIT 0x200000
47 /* Mask to set RA in memory instructions. */
48 #define RA_REGISTER_MASK 0x001f0000
49 /* Value to shift register by to insert RA. */
50 #define RA_REGISTER_SHIFT 16
51
52 /* The name of the dynamic interpreter. This is put in the .interp
53 section. */
54 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
55
56 /* For old-style PLT. */
57 /* The number of single-slot PLT entries (the rest use two slots). */
58 #define PLT_NUM_SINGLE_ENTRIES 8192
59
60 /* For new-style .glink and .plt. */
61 #define GLINK_PLTRESOLVE 16*4
62 #define GLINK_ENTRY_SIZE 4*4
63
64 /* VxWorks uses its own plt layout, filled in by the static linker. */
65
66 /* The standard VxWorks PLT entry. */
67 #define VXWORKS_PLT_ENTRY_SIZE 32
68 static const bfd_vma ppc_elf_vxworks_plt_entry
69 [VXWORKS_PLT_ENTRY_SIZE / 4] =
70 {
71 0x3d800000, /* lis r12,0 */
72 0x818c0000, /* lwz r12,0(r12) */
73 0x7d8903a6, /* mtctr r12 */
74 0x4e800420, /* bctr */
75 0x39600000, /* li r11,0 */
76 0x48000000, /* b 14 <.PLT0resolve+0x4> */
77 0x60000000, /* nop */
78 0x60000000, /* nop */
79 };
80 static const bfd_vma ppc_elf_vxworks_pic_plt_entry
81 [VXWORKS_PLT_ENTRY_SIZE / 4] =
82 {
83 0x3d9e0000, /* addis r12,r30,0 */
84 0x818c0000, /* lwz r12,0(r12) */
85 0x7d8903a6, /* mtctr r12 */
86 0x4e800420, /* bctr */
87 0x39600000, /* li r11,0 */
88 0x48000000, /* b 14 <.PLT0resolve+0x4> 14: R_PPC_REL24 .PLTresolve */
89 0x60000000, /* nop */
90 0x60000000, /* nop */
91 };
92
93 /* The initial VxWorks PLT entry. */
94 #define VXWORKS_PLT_INITIAL_ENTRY_SIZE 32
95 static const bfd_vma ppc_elf_vxworks_plt0_entry
96 [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
97 {
98 0x3d800000, /* lis r12,0 */
99 0x398c0000, /* addi r12,r12,0 */
100 0x800c0008, /* lwz r0,8(r12) */
101 0x7c0903a6, /* mtctr r0 */
102 0x818c0004, /* lwz r12,4(r12) */
103 0x4e800420, /* bctr */
104 0x60000000, /* nop */
105 0x60000000, /* nop */
106 };
107 static const bfd_vma ppc_elf_vxworks_pic_plt0_entry
108 [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
109 {
110 0x819e0008, /* lwz r12,8(r30) */
111 0x7d8903a6, /* mtctr r12 */
112 0x819e0004, /* lwz r12,4(r30) */
113 0x4e800420, /* bctr */
114 0x60000000, /* nop */
115 0x60000000, /* nop */
116 0x60000000, /* nop */
117 0x60000000, /* nop */
118 };
119
120 /* For executables, we have some additional relocations in
121 .rela.plt.unloaded, for the kernel loader. */
122
123 /* The number of non-JMP_SLOT relocations per PLT0 slot. */
124 #define VXWORKS_PLT_NON_JMP_SLOT_RELOCS 3
125 /* The number of relocations in the PLTResolve slot. */
126 #define VXWORKS_PLTRESOLVE_RELOCS 2
127 /* The number of relocations in the PLTResolve slot when when creating
128 a shared library. */
129 #define VXWORKS_PLTRESOLVE_RELOCS_SHLIB 0
130
131 /* Some instructions. */
132 #define ADDIS_11_11 0x3d6b0000
133 #define ADDIS_11_30 0x3d7e0000
134 #define ADDIS_12_12 0x3d8c0000
135 #define ADDI_11_11 0x396b0000
136 #define ADD_0_11_11 0x7c0b5a14
137 #define ADD_11_0_11 0x7d605a14
138 #define B 0x48000000
139 #define BCL_20_31 0x429f0005
140 #define BCTR 0x4e800420
141 #define LIS_11 0x3d600000
142 #define LIS_12 0x3d800000
143 #define LWZU_0_12 0x840c0000
144 #define LWZ_0_12 0x800c0000
145 #define LWZ_11_11 0x816b0000
146 #define LWZ_11_30 0x817e0000
147 #define LWZ_12_12 0x818c0000
148 #define MFLR_0 0x7c0802a6
149 #define MFLR_12 0x7d8802a6
150 #define MTCTR_0 0x7c0903a6
151 #define MTCTR_11 0x7d6903a6
152 #define MTLR_0 0x7c0803a6
153 #define NOP 0x60000000
154 #define SUB_11_11_12 0x7d6c5850
155
156 /* Offset of tp and dtp pointers from start of TLS block. */
157 #define TP_OFFSET 0x7000
158 #define DTP_OFFSET 0x8000
159 \f
160 static reloc_howto_type *ppc_elf_howto_table[R_PPC_max];
161
162 static reloc_howto_type ppc_elf_howto_raw[] = {
163 /* This reloc does nothing. */
164 HOWTO (R_PPC_NONE, /* type */
165 0, /* rightshift */
166 2, /* size (0 = byte, 1 = short, 2 = long) */
167 32, /* bitsize */
168 FALSE, /* pc_relative */
169 0, /* bitpos */
170 complain_overflow_bitfield, /* complain_on_overflow */
171 bfd_elf_generic_reloc, /* special_function */
172 "R_PPC_NONE", /* name */
173 FALSE, /* partial_inplace */
174 0, /* src_mask */
175 0, /* dst_mask */
176 FALSE), /* pcrel_offset */
177
178 /* A standard 32 bit relocation. */
179 HOWTO (R_PPC_ADDR32, /* type */
180 0, /* rightshift */
181 2, /* size (0 = byte, 1 = short, 2 = long) */
182 32, /* bitsize */
183 FALSE, /* pc_relative */
184 0, /* bitpos */
185 complain_overflow_bitfield, /* complain_on_overflow */
186 bfd_elf_generic_reloc, /* special_function */
187 "R_PPC_ADDR32", /* name */
188 FALSE, /* partial_inplace */
189 0, /* src_mask */
190 0xffffffff, /* dst_mask */
191 FALSE), /* pcrel_offset */
192
193 /* An absolute 26 bit branch; the lower two bits must be zero.
194 FIXME: we don't check that, we just clear them. */
195 HOWTO (R_PPC_ADDR24, /* type */
196 0, /* rightshift */
197 2, /* size (0 = byte, 1 = short, 2 = long) */
198 26, /* bitsize */
199 FALSE, /* pc_relative */
200 0, /* bitpos */
201 complain_overflow_bitfield, /* complain_on_overflow */
202 bfd_elf_generic_reloc, /* special_function */
203 "R_PPC_ADDR24", /* name */
204 FALSE, /* partial_inplace */
205 0, /* src_mask */
206 0x3fffffc, /* dst_mask */
207 FALSE), /* pcrel_offset */
208
209 /* A standard 16 bit relocation. */
210 HOWTO (R_PPC_ADDR16, /* type */
211 0, /* rightshift */
212 1, /* size (0 = byte, 1 = short, 2 = long) */
213 16, /* bitsize */
214 FALSE, /* pc_relative */
215 0, /* bitpos */
216 complain_overflow_bitfield, /* complain_on_overflow */
217 bfd_elf_generic_reloc, /* special_function */
218 "R_PPC_ADDR16", /* name */
219 FALSE, /* partial_inplace */
220 0, /* src_mask */
221 0xffff, /* dst_mask */
222 FALSE), /* pcrel_offset */
223
224 /* A 16 bit relocation without overflow. */
225 HOWTO (R_PPC_ADDR16_LO, /* type */
226 0, /* rightshift */
227 1, /* size (0 = byte, 1 = short, 2 = long) */
228 16, /* bitsize */
229 FALSE, /* pc_relative */
230 0, /* bitpos */
231 complain_overflow_dont,/* complain_on_overflow */
232 bfd_elf_generic_reloc, /* special_function */
233 "R_PPC_ADDR16_LO", /* name */
234 FALSE, /* partial_inplace */
235 0, /* src_mask */
236 0xffff, /* dst_mask */
237 FALSE), /* pcrel_offset */
238
239 /* The high order 16 bits of an address. */
240 HOWTO (R_PPC_ADDR16_HI, /* type */
241 16, /* rightshift */
242 1, /* size (0 = byte, 1 = short, 2 = long) */
243 16, /* bitsize */
244 FALSE, /* pc_relative */
245 0, /* bitpos */
246 complain_overflow_dont, /* complain_on_overflow */
247 bfd_elf_generic_reloc, /* special_function */
248 "R_PPC_ADDR16_HI", /* name */
249 FALSE, /* partial_inplace */
250 0, /* src_mask */
251 0xffff, /* dst_mask */
252 FALSE), /* pcrel_offset */
253
254 /* The high order 16 bits of an address, plus 1 if the contents of
255 the low 16 bits, treated as a signed number, is negative. */
256 HOWTO (R_PPC_ADDR16_HA, /* type */
257 16, /* rightshift */
258 1, /* size (0 = byte, 1 = short, 2 = long) */
259 16, /* bitsize */
260 FALSE, /* pc_relative */
261 0, /* bitpos */
262 complain_overflow_dont, /* complain_on_overflow */
263 ppc_elf_addr16_ha_reloc, /* special_function */
264 "R_PPC_ADDR16_HA", /* name */
265 FALSE, /* partial_inplace */
266 0, /* src_mask */
267 0xffff, /* dst_mask */
268 FALSE), /* pcrel_offset */
269
270 /* An absolute 16 bit branch; the lower two bits must be zero.
271 FIXME: we don't check that, we just clear them. */
272 HOWTO (R_PPC_ADDR14, /* type */
273 0, /* rightshift */
274 2, /* size (0 = byte, 1 = short, 2 = long) */
275 16, /* bitsize */
276 FALSE, /* pc_relative */
277 0, /* bitpos */
278 complain_overflow_bitfield, /* complain_on_overflow */
279 bfd_elf_generic_reloc, /* special_function */
280 "R_PPC_ADDR14", /* name */
281 FALSE, /* partial_inplace */
282 0, /* src_mask */
283 0xfffc, /* dst_mask */
284 FALSE), /* pcrel_offset */
285
286 /* An absolute 16 bit branch, for which bit 10 should be set to
287 indicate that the branch is expected to be taken. The lower two
288 bits must be zero. */
289 HOWTO (R_PPC_ADDR14_BRTAKEN, /* type */
290 0, /* rightshift */
291 2, /* size (0 = byte, 1 = short, 2 = long) */
292 16, /* bitsize */
293 FALSE, /* pc_relative */
294 0, /* bitpos */
295 complain_overflow_bitfield, /* complain_on_overflow */
296 bfd_elf_generic_reloc, /* special_function */
297 "R_PPC_ADDR14_BRTAKEN",/* name */
298 FALSE, /* partial_inplace */
299 0, /* src_mask */
300 0xfffc, /* dst_mask */
301 FALSE), /* pcrel_offset */
302
303 /* An absolute 16 bit branch, for which bit 10 should be set to
304 indicate that the branch is not expected to be taken. The lower
305 two bits must be zero. */
306 HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
307 0, /* rightshift */
308 2, /* size (0 = byte, 1 = short, 2 = long) */
309 16, /* bitsize */
310 FALSE, /* pc_relative */
311 0, /* bitpos */
312 complain_overflow_bitfield, /* complain_on_overflow */
313 bfd_elf_generic_reloc, /* special_function */
314 "R_PPC_ADDR14_BRNTAKEN",/* name */
315 FALSE, /* partial_inplace */
316 0, /* src_mask */
317 0xfffc, /* dst_mask */
318 FALSE), /* pcrel_offset */
319
320 /* A relative 26 bit branch; the lower two bits must be zero. */
321 HOWTO (R_PPC_REL24, /* type */
322 0, /* rightshift */
323 2, /* size (0 = byte, 1 = short, 2 = long) */
324 26, /* bitsize */
325 TRUE, /* pc_relative */
326 0, /* bitpos */
327 complain_overflow_signed, /* complain_on_overflow */
328 bfd_elf_generic_reloc, /* special_function */
329 "R_PPC_REL24", /* name */
330 FALSE, /* partial_inplace */
331 0, /* src_mask */
332 0x3fffffc, /* dst_mask */
333 TRUE), /* pcrel_offset */
334
335 /* A relative 16 bit branch; the lower two bits must be zero. */
336 HOWTO (R_PPC_REL14, /* type */
337 0, /* rightshift */
338 2, /* size (0 = byte, 1 = short, 2 = long) */
339 16, /* bitsize */
340 TRUE, /* pc_relative */
341 0, /* bitpos */
342 complain_overflow_signed, /* complain_on_overflow */
343 bfd_elf_generic_reloc, /* special_function */
344 "R_PPC_REL14", /* name */
345 FALSE, /* partial_inplace */
346 0, /* src_mask */
347 0xfffc, /* dst_mask */
348 TRUE), /* pcrel_offset */
349
350 /* A relative 16 bit branch. Bit 10 should be set to indicate that
351 the branch is expected to be taken. The lower two bits must be
352 zero. */
353 HOWTO (R_PPC_REL14_BRTAKEN, /* type */
354 0, /* rightshift */
355 2, /* size (0 = byte, 1 = short, 2 = long) */
356 16, /* bitsize */
357 TRUE, /* pc_relative */
358 0, /* bitpos */
359 complain_overflow_signed, /* complain_on_overflow */
360 bfd_elf_generic_reloc, /* special_function */
361 "R_PPC_REL14_BRTAKEN", /* name */
362 FALSE, /* partial_inplace */
363 0, /* src_mask */
364 0xfffc, /* dst_mask */
365 TRUE), /* pcrel_offset */
366
367 /* A relative 16 bit branch. Bit 10 should be set to indicate that
368 the branch is not expected to be taken. The lower two bits must
369 be zero. */
370 HOWTO (R_PPC_REL14_BRNTAKEN, /* type */
371 0, /* rightshift */
372 2, /* size (0 = byte, 1 = short, 2 = long) */
373 16, /* bitsize */
374 TRUE, /* pc_relative */
375 0, /* bitpos */
376 complain_overflow_signed, /* complain_on_overflow */
377 bfd_elf_generic_reloc, /* special_function */
378 "R_PPC_REL14_BRNTAKEN",/* name */
379 FALSE, /* partial_inplace */
380 0, /* src_mask */
381 0xfffc, /* dst_mask */
382 TRUE), /* pcrel_offset */
383
384 /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
385 symbol. */
386 HOWTO (R_PPC_GOT16, /* type */
387 0, /* rightshift */
388 1, /* size (0 = byte, 1 = short, 2 = long) */
389 16, /* bitsize */
390 FALSE, /* pc_relative */
391 0, /* bitpos */
392 complain_overflow_signed, /* complain_on_overflow */
393 bfd_elf_generic_reloc, /* special_function */
394 "R_PPC_GOT16", /* name */
395 FALSE, /* partial_inplace */
396 0, /* src_mask */
397 0xffff, /* dst_mask */
398 FALSE), /* pcrel_offset */
399
400 /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
401 the symbol. */
402 HOWTO (R_PPC_GOT16_LO, /* type */
403 0, /* rightshift */
404 1, /* size (0 = byte, 1 = short, 2 = long) */
405 16, /* bitsize */
406 FALSE, /* pc_relative */
407 0, /* bitpos */
408 complain_overflow_dont, /* complain_on_overflow */
409 bfd_elf_generic_reloc, /* special_function */
410 "R_PPC_GOT16_LO", /* name */
411 FALSE, /* partial_inplace */
412 0, /* src_mask */
413 0xffff, /* dst_mask */
414 FALSE), /* pcrel_offset */
415
416 /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
417 the symbol. */
418 HOWTO (R_PPC_GOT16_HI, /* type */
419 16, /* rightshift */
420 1, /* size (0 = byte, 1 = short, 2 = long) */
421 16, /* bitsize */
422 FALSE, /* pc_relative */
423 0, /* bitpos */
424 complain_overflow_bitfield, /* complain_on_overflow */
425 bfd_elf_generic_reloc, /* special_function */
426 "R_PPC_GOT16_HI", /* name */
427 FALSE, /* partial_inplace */
428 0, /* src_mask */
429 0xffff, /* dst_mask */
430 FALSE), /* pcrel_offset */
431
432 /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
433 the symbol. */
434 HOWTO (R_PPC_GOT16_HA, /* type */
435 16, /* rightshift */
436 1, /* size (0 = byte, 1 = short, 2 = long) */
437 16, /* bitsize */
438 FALSE, /* pc_relative */
439 0, /* bitpos */
440 complain_overflow_bitfield, /* complain_on_overflow */
441 ppc_elf_addr16_ha_reloc, /* special_function */
442 "R_PPC_GOT16_HA", /* name */
443 FALSE, /* partial_inplace */
444 0, /* src_mask */
445 0xffff, /* dst_mask */
446 FALSE), /* pcrel_offset */
447
448 /* Like R_PPC_REL24, but referring to the procedure linkage table
449 entry for the symbol. */
450 HOWTO (R_PPC_PLTREL24, /* type */
451 0, /* rightshift */
452 2, /* size (0 = byte, 1 = short, 2 = long) */
453 26, /* bitsize */
454 TRUE, /* pc_relative */
455 0, /* bitpos */
456 complain_overflow_signed, /* complain_on_overflow */
457 bfd_elf_generic_reloc, /* special_function */
458 "R_PPC_PLTREL24", /* name */
459 FALSE, /* partial_inplace */
460 0, /* src_mask */
461 0x3fffffc, /* dst_mask */
462 TRUE), /* pcrel_offset */
463
464 /* This is used only by the dynamic linker. The symbol should exist
465 both in the object being run and in some shared library. The
466 dynamic linker copies the data addressed by the symbol from the
467 shared library into the object, because the object being
468 run has to have the data at some particular address. */
469 HOWTO (R_PPC_COPY, /* type */
470 0, /* rightshift */
471 2, /* size (0 = byte, 1 = short, 2 = long) */
472 32, /* bitsize */
473 FALSE, /* pc_relative */
474 0, /* bitpos */
475 complain_overflow_bitfield, /* complain_on_overflow */
476 bfd_elf_generic_reloc, /* special_function */
477 "R_PPC_COPY", /* name */
478 FALSE, /* partial_inplace */
479 0, /* src_mask */
480 0, /* dst_mask */
481 FALSE), /* pcrel_offset */
482
483 /* Like R_PPC_ADDR32, but used when setting global offset table
484 entries. */
485 HOWTO (R_PPC_GLOB_DAT, /* type */
486 0, /* rightshift */
487 2, /* size (0 = byte, 1 = short, 2 = long) */
488 32, /* bitsize */
489 FALSE, /* pc_relative */
490 0, /* bitpos */
491 complain_overflow_bitfield, /* complain_on_overflow */
492 bfd_elf_generic_reloc, /* special_function */
493 "R_PPC_GLOB_DAT", /* name */
494 FALSE, /* partial_inplace */
495 0, /* src_mask */
496 0xffffffff, /* dst_mask */
497 FALSE), /* pcrel_offset */
498
499 /* Marks a procedure linkage table entry for a symbol. */
500 HOWTO (R_PPC_JMP_SLOT, /* type */
501 0, /* rightshift */
502 2, /* size (0 = byte, 1 = short, 2 = long) */
503 32, /* bitsize */
504 FALSE, /* pc_relative */
505 0, /* bitpos */
506 complain_overflow_bitfield, /* complain_on_overflow */
507 bfd_elf_generic_reloc, /* special_function */
508 "R_PPC_JMP_SLOT", /* name */
509 FALSE, /* partial_inplace */
510 0, /* src_mask */
511 0, /* dst_mask */
512 FALSE), /* pcrel_offset */
513
514 /* Used only by the dynamic linker. When the object is run, this
515 longword is set to the load address of the object, plus the
516 addend. */
517 HOWTO (R_PPC_RELATIVE, /* type */
518 0, /* rightshift */
519 2, /* size (0 = byte, 1 = short, 2 = long) */
520 32, /* bitsize */
521 FALSE, /* pc_relative */
522 0, /* bitpos */
523 complain_overflow_bitfield, /* complain_on_overflow */
524 bfd_elf_generic_reloc, /* special_function */
525 "R_PPC_RELATIVE", /* name */
526 FALSE, /* partial_inplace */
527 0, /* src_mask */
528 0xffffffff, /* dst_mask */
529 FALSE), /* pcrel_offset */
530
531 /* Like R_PPC_REL24, but uses the value of the symbol within the
532 object rather than the final value. Normally used for
533 _GLOBAL_OFFSET_TABLE_. */
534 HOWTO (R_PPC_LOCAL24PC, /* type */
535 0, /* rightshift */
536 2, /* size (0 = byte, 1 = short, 2 = long) */
537 26, /* bitsize */
538 TRUE, /* pc_relative */
539 0, /* bitpos */
540 complain_overflow_signed, /* complain_on_overflow */
541 bfd_elf_generic_reloc, /* special_function */
542 "R_PPC_LOCAL24PC", /* name */
543 FALSE, /* partial_inplace */
544 0, /* src_mask */
545 0x3fffffc, /* dst_mask */
546 TRUE), /* pcrel_offset */
547
548 /* Like R_PPC_ADDR32, but may be unaligned. */
549 HOWTO (R_PPC_UADDR32, /* type */
550 0, /* rightshift */
551 2, /* size (0 = byte, 1 = short, 2 = long) */
552 32, /* bitsize */
553 FALSE, /* pc_relative */
554 0, /* bitpos */
555 complain_overflow_bitfield, /* complain_on_overflow */
556 bfd_elf_generic_reloc, /* special_function */
557 "R_PPC_UADDR32", /* name */
558 FALSE, /* partial_inplace */
559 0, /* src_mask */
560 0xffffffff, /* dst_mask */
561 FALSE), /* pcrel_offset */
562
563 /* Like R_PPC_ADDR16, but may be unaligned. */
564 HOWTO (R_PPC_UADDR16, /* type */
565 0, /* rightshift */
566 1, /* size (0 = byte, 1 = short, 2 = long) */
567 16, /* bitsize */
568 FALSE, /* pc_relative */
569 0, /* bitpos */
570 complain_overflow_bitfield, /* complain_on_overflow */
571 bfd_elf_generic_reloc, /* special_function */
572 "R_PPC_UADDR16", /* name */
573 FALSE, /* partial_inplace */
574 0, /* src_mask */
575 0xffff, /* dst_mask */
576 FALSE), /* pcrel_offset */
577
578 /* 32-bit PC relative */
579 HOWTO (R_PPC_REL32, /* type */
580 0, /* rightshift */
581 2, /* size (0 = byte, 1 = short, 2 = long) */
582 32, /* bitsize */
583 TRUE, /* pc_relative */
584 0, /* bitpos */
585 complain_overflow_bitfield, /* complain_on_overflow */
586 bfd_elf_generic_reloc, /* special_function */
587 "R_PPC_REL32", /* name */
588 FALSE, /* partial_inplace */
589 0, /* src_mask */
590 0xffffffff, /* dst_mask */
591 TRUE), /* pcrel_offset */
592
593 /* 32-bit relocation to the symbol's procedure linkage table.
594 FIXME: not supported. */
595 HOWTO (R_PPC_PLT32, /* type */
596 0, /* rightshift */
597 2, /* size (0 = byte, 1 = short, 2 = long) */
598 32, /* bitsize */
599 FALSE, /* pc_relative */
600 0, /* bitpos */
601 complain_overflow_bitfield, /* complain_on_overflow */
602 bfd_elf_generic_reloc, /* special_function */
603 "R_PPC_PLT32", /* name */
604 FALSE, /* partial_inplace */
605 0, /* src_mask */
606 0, /* dst_mask */
607 FALSE), /* pcrel_offset */
608
609 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
610 FIXME: not supported. */
611 HOWTO (R_PPC_PLTREL32, /* type */
612 0, /* rightshift */
613 2, /* size (0 = byte, 1 = short, 2 = long) */
614 32, /* bitsize */
615 TRUE, /* pc_relative */
616 0, /* bitpos */
617 complain_overflow_bitfield, /* complain_on_overflow */
618 bfd_elf_generic_reloc, /* special_function */
619 "R_PPC_PLTREL32", /* name */
620 FALSE, /* partial_inplace */
621 0, /* src_mask */
622 0, /* dst_mask */
623 TRUE), /* pcrel_offset */
624
625 /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
626 the symbol. */
627 HOWTO (R_PPC_PLT16_LO, /* type */
628 0, /* rightshift */
629 1, /* size (0 = byte, 1 = short, 2 = long) */
630 16, /* bitsize */
631 FALSE, /* pc_relative */
632 0, /* bitpos */
633 complain_overflow_dont, /* complain_on_overflow */
634 bfd_elf_generic_reloc, /* special_function */
635 "R_PPC_PLT16_LO", /* name */
636 FALSE, /* partial_inplace */
637 0, /* src_mask */
638 0xffff, /* dst_mask */
639 FALSE), /* pcrel_offset */
640
641 /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
642 the symbol. */
643 HOWTO (R_PPC_PLT16_HI, /* type */
644 16, /* rightshift */
645 1, /* size (0 = byte, 1 = short, 2 = long) */
646 16, /* bitsize */
647 FALSE, /* pc_relative */
648 0, /* bitpos */
649 complain_overflow_bitfield, /* complain_on_overflow */
650 bfd_elf_generic_reloc, /* special_function */
651 "R_PPC_PLT16_HI", /* name */
652 FALSE, /* partial_inplace */
653 0, /* src_mask */
654 0xffff, /* dst_mask */
655 FALSE), /* pcrel_offset */
656
657 /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
658 the symbol. */
659 HOWTO (R_PPC_PLT16_HA, /* type */
660 16, /* rightshift */
661 1, /* size (0 = byte, 1 = short, 2 = long) */
662 16, /* bitsize */
663 FALSE, /* pc_relative */
664 0, /* bitpos */
665 complain_overflow_bitfield, /* complain_on_overflow */
666 ppc_elf_addr16_ha_reloc, /* special_function */
667 "R_PPC_PLT16_HA", /* name */
668 FALSE, /* partial_inplace */
669 0, /* src_mask */
670 0xffff, /* dst_mask */
671 FALSE), /* pcrel_offset */
672
673 /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
674 small data items. */
675 HOWTO (R_PPC_SDAREL16, /* type */
676 0, /* rightshift */
677 1, /* size (0 = byte, 1 = short, 2 = long) */
678 16, /* bitsize */
679 FALSE, /* pc_relative */
680 0, /* bitpos */
681 complain_overflow_signed, /* complain_on_overflow */
682 bfd_elf_generic_reloc, /* special_function */
683 "R_PPC_SDAREL16", /* name */
684 FALSE, /* partial_inplace */
685 0, /* src_mask */
686 0xffff, /* dst_mask */
687 FALSE), /* pcrel_offset */
688
689 /* 16-bit section relative relocation. */
690 HOWTO (R_PPC_SECTOFF, /* type */
691 0, /* rightshift */
692 1, /* size (0 = byte, 1 = short, 2 = long) */
693 16, /* bitsize */
694 FALSE, /* pc_relative */
695 0, /* bitpos */
696 complain_overflow_bitfield, /* complain_on_overflow */
697 bfd_elf_generic_reloc, /* special_function */
698 "R_PPC_SECTOFF", /* name */
699 FALSE, /* partial_inplace */
700 0, /* src_mask */
701 0xffff, /* dst_mask */
702 FALSE), /* pcrel_offset */
703
704 /* 16-bit lower half section relative relocation. */
705 HOWTO (R_PPC_SECTOFF_LO, /* type */
706 0, /* rightshift */
707 1, /* size (0 = byte, 1 = short, 2 = long) */
708 16, /* bitsize */
709 FALSE, /* pc_relative */
710 0, /* bitpos */
711 complain_overflow_dont, /* complain_on_overflow */
712 bfd_elf_generic_reloc, /* special_function */
713 "R_PPC_SECTOFF_LO", /* name */
714 FALSE, /* partial_inplace */
715 0, /* src_mask */
716 0xffff, /* dst_mask */
717 FALSE), /* pcrel_offset */
718
719 /* 16-bit upper half section relative relocation. */
720 HOWTO (R_PPC_SECTOFF_HI, /* type */
721 16, /* rightshift */
722 1, /* size (0 = byte, 1 = short, 2 = long) */
723 16, /* bitsize */
724 FALSE, /* pc_relative */
725 0, /* bitpos */
726 complain_overflow_bitfield, /* complain_on_overflow */
727 bfd_elf_generic_reloc, /* special_function */
728 "R_PPC_SECTOFF_HI", /* name */
729 FALSE, /* partial_inplace */
730 0, /* src_mask */
731 0xffff, /* dst_mask */
732 FALSE), /* pcrel_offset */
733
734 /* 16-bit upper half adjusted section relative relocation. */
735 HOWTO (R_PPC_SECTOFF_HA, /* type */
736 16, /* rightshift */
737 1, /* size (0 = byte, 1 = short, 2 = long) */
738 16, /* bitsize */
739 FALSE, /* pc_relative */
740 0, /* bitpos */
741 complain_overflow_bitfield, /* complain_on_overflow */
742 ppc_elf_addr16_ha_reloc, /* special_function */
743 "R_PPC_SECTOFF_HA", /* name */
744 FALSE, /* partial_inplace */
745 0, /* src_mask */
746 0xffff, /* dst_mask */
747 FALSE), /* pcrel_offset */
748
749 /* Marker reloc for TLS. */
750 HOWTO (R_PPC_TLS,
751 0, /* rightshift */
752 2, /* size (0 = byte, 1 = short, 2 = long) */
753 32, /* bitsize */
754 FALSE, /* pc_relative */
755 0, /* bitpos */
756 complain_overflow_dont, /* complain_on_overflow */
757 bfd_elf_generic_reloc, /* special_function */
758 "R_PPC_TLS", /* name */
759 FALSE, /* partial_inplace */
760 0, /* src_mask */
761 0, /* dst_mask */
762 FALSE), /* pcrel_offset */
763
764 /* Computes the load module index of the load module that contains the
765 definition of its TLS sym. */
766 HOWTO (R_PPC_DTPMOD32,
767 0, /* rightshift */
768 2, /* size (0 = byte, 1 = short, 2 = long) */
769 32, /* bitsize */
770 FALSE, /* pc_relative */
771 0, /* bitpos */
772 complain_overflow_dont, /* complain_on_overflow */
773 ppc_elf_unhandled_reloc, /* special_function */
774 "R_PPC_DTPMOD32", /* name */
775 FALSE, /* partial_inplace */
776 0, /* src_mask */
777 0xffffffff, /* dst_mask */
778 FALSE), /* pcrel_offset */
779
780 /* Computes a dtv-relative displacement, the difference between the value
781 of sym+add and the base address of the thread-local storage block that
782 contains the definition of sym, minus 0x8000. */
783 HOWTO (R_PPC_DTPREL32,
784 0, /* rightshift */
785 2, /* size (0 = byte, 1 = short, 2 = long) */
786 32, /* bitsize */
787 FALSE, /* pc_relative */
788 0, /* bitpos */
789 complain_overflow_dont, /* complain_on_overflow */
790 ppc_elf_unhandled_reloc, /* special_function */
791 "R_PPC_DTPREL32", /* name */
792 FALSE, /* partial_inplace */
793 0, /* src_mask */
794 0xffffffff, /* dst_mask */
795 FALSE), /* pcrel_offset */
796
797 /* A 16 bit dtprel reloc. */
798 HOWTO (R_PPC_DTPREL16,
799 0, /* rightshift */
800 1, /* size (0 = byte, 1 = short, 2 = long) */
801 16, /* bitsize */
802 FALSE, /* pc_relative */
803 0, /* bitpos */
804 complain_overflow_signed, /* complain_on_overflow */
805 ppc_elf_unhandled_reloc, /* special_function */
806 "R_PPC_DTPREL16", /* name */
807 FALSE, /* partial_inplace */
808 0, /* src_mask */
809 0xffff, /* dst_mask */
810 FALSE), /* pcrel_offset */
811
812 /* Like DTPREL16, but no overflow. */
813 HOWTO (R_PPC_DTPREL16_LO,
814 0, /* rightshift */
815 1, /* size (0 = byte, 1 = short, 2 = long) */
816 16, /* bitsize */
817 FALSE, /* pc_relative */
818 0, /* bitpos */
819 complain_overflow_dont, /* complain_on_overflow */
820 ppc_elf_unhandled_reloc, /* special_function */
821 "R_PPC_DTPREL16_LO", /* name */
822 FALSE, /* partial_inplace */
823 0, /* src_mask */
824 0xffff, /* dst_mask */
825 FALSE), /* pcrel_offset */
826
827 /* Like DTPREL16_LO, but next higher group of 16 bits. */
828 HOWTO (R_PPC_DTPREL16_HI,
829 16, /* rightshift */
830 1, /* size (0 = byte, 1 = short, 2 = long) */
831 16, /* bitsize */
832 FALSE, /* pc_relative */
833 0, /* bitpos */
834 complain_overflow_dont, /* complain_on_overflow */
835 ppc_elf_unhandled_reloc, /* special_function */
836 "R_PPC_DTPREL16_HI", /* name */
837 FALSE, /* partial_inplace */
838 0, /* src_mask */
839 0xffff, /* dst_mask */
840 FALSE), /* pcrel_offset */
841
842 /* Like DTPREL16_HI, but adjust for low 16 bits. */
843 HOWTO (R_PPC_DTPREL16_HA,
844 16, /* rightshift */
845 1, /* size (0 = byte, 1 = short, 2 = long) */
846 16, /* bitsize */
847 FALSE, /* pc_relative */
848 0, /* bitpos */
849 complain_overflow_dont, /* complain_on_overflow */
850 ppc_elf_unhandled_reloc, /* special_function */
851 "R_PPC_DTPREL16_HA", /* name */
852 FALSE, /* partial_inplace */
853 0, /* src_mask */
854 0xffff, /* dst_mask */
855 FALSE), /* pcrel_offset */
856
857 /* Computes a tp-relative displacement, the difference between the value of
858 sym+add and the value of the thread pointer (r13). */
859 HOWTO (R_PPC_TPREL32,
860 0, /* rightshift */
861 2, /* size (0 = byte, 1 = short, 2 = long) */
862 32, /* bitsize */
863 FALSE, /* pc_relative */
864 0, /* bitpos */
865 complain_overflow_dont, /* complain_on_overflow */
866 ppc_elf_unhandled_reloc, /* special_function */
867 "R_PPC_TPREL32", /* name */
868 FALSE, /* partial_inplace */
869 0, /* src_mask */
870 0xffffffff, /* dst_mask */
871 FALSE), /* pcrel_offset */
872
873 /* A 16 bit tprel reloc. */
874 HOWTO (R_PPC_TPREL16,
875 0, /* rightshift */
876 1, /* size (0 = byte, 1 = short, 2 = long) */
877 16, /* bitsize */
878 FALSE, /* pc_relative */
879 0, /* bitpos */
880 complain_overflow_signed, /* complain_on_overflow */
881 ppc_elf_unhandled_reloc, /* special_function */
882 "R_PPC_TPREL16", /* name */
883 FALSE, /* partial_inplace */
884 0, /* src_mask */
885 0xffff, /* dst_mask */
886 FALSE), /* pcrel_offset */
887
888 /* Like TPREL16, but no overflow. */
889 HOWTO (R_PPC_TPREL16_LO,
890 0, /* rightshift */
891 1, /* size (0 = byte, 1 = short, 2 = long) */
892 16, /* bitsize */
893 FALSE, /* pc_relative */
894 0, /* bitpos */
895 complain_overflow_dont, /* complain_on_overflow */
896 ppc_elf_unhandled_reloc, /* special_function */
897 "R_PPC_TPREL16_LO", /* name */
898 FALSE, /* partial_inplace */
899 0, /* src_mask */
900 0xffff, /* dst_mask */
901 FALSE), /* pcrel_offset */
902
903 /* Like TPREL16_LO, but next higher group of 16 bits. */
904 HOWTO (R_PPC_TPREL16_HI,
905 16, /* rightshift */
906 1, /* size (0 = byte, 1 = short, 2 = long) */
907 16, /* bitsize */
908 FALSE, /* pc_relative */
909 0, /* bitpos */
910 complain_overflow_dont, /* complain_on_overflow */
911 ppc_elf_unhandled_reloc, /* special_function */
912 "R_PPC_TPREL16_HI", /* name */
913 FALSE, /* partial_inplace */
914 0, /* src_mask */
915 0xffff, /* dst_mask */
916 FALSE), /* pcrel_offset */
917
918 /* Like TPREL16_HI, but adjust for low 16 bits. */
919 HOWTO (R_PPC_TPREL16_HA,
920 16, /* rightshift */
921 1, /* size (0 = byte, 1 = short, 2 = long) */
922 16, /* bitsize */
923 FALSE, /* pc_relative */
924 0, /* bitpos */
925 complain_overflow_dont, /* complain_on_overflow */
926 ppc_elf_unhandled_reloc, /* special_function */
927 "R_PPC_TPREL16_HA", /* name */
928 FALSE, /* partial_inplace */
929 0, /* src_mask */
930 0xffff, /* dst_mask */
931 FALSE), /* pcrel_offset */
932
933 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
934 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
935 to the first entry. */
936 HOWTO (R_PPC_GOT_TLSGD16,
937 0, /* rightshift */
938 1, /* size (0 = byte, 1 = short, 2 = long) */
939 16, /* bitsize */
940 FALSE, /* pc_relative */
941 0, /* bitpos */
942 complain_overflow_signed, /* complain_on_overflow */
943 ppc_elf_unhandled_reloc, /* special_function */
944 "R_PPC_GOT_TLSGD16", /* name */
945 FALSE, /* partial_inplace */
946 0, /* src_mask */
947 0xffff, /* dst_mask */
948 FALSE), /* pcrel_offset */
949
950 /* Like GOT_TLSGD16, but no overflow. */
951 HOWTO (R_PPC_GOT_TLSGD16_LO,
952 0, /* rightshift */
953 1, /* size (0 = byte, 1 = short, 2 = long) */
954 16, /* bitsize */
955 FALSE, /* pc_relative */
956 0, /* bitpos */
957 complain_overflow_dont, /* complain_on_overflow */
958 ppc_elf_unhandled_reloc, /* special_function */
959 "R_PPC_GOT_TLSGD16_LO", /* name */
960 FALSE, /* partial_inplace */
961 0, /* src_mask */
962 0xffff, /* dst_mask */
963 FALSE), /* pcrel_offset */
964
965 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
966 HOWTO (R_PPC_GOT_TLSGD16_HI,
967 16, /* rightshift */
968 1, /* size (0 = byte, 1 = short, 2 = long) */
969 16, /* bitsize */
970 FALSE, /* pc_relative */
971 0, /* bitpos */
972 complain_overflow_dont, /* complain_on_overflow */
973 ppc_elf_unhandled_reloc, /* special_function */
974 "R_PPC_GOT_TLSGD16_HI", /* name */
975 FALSE, /* partial_inplace */
976 0, /* src_mask */
977 0xffff, /* dst_mask */
978 FALSE), /* pcrel_offset */
979
980 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
981 HOWTO (R_PPC_GOT_TLSGD16_HA,
982 16, /* rightshift */
983 1, /* size (0 = byte, 1 = short, 2 = long) */
984 16, /* bitsize */
985 FALSE, /* pc_relative */
986 0, /* bitpos */
987 complain_overflow_dont, /* complain_on_overflow */
988 ppc_elf_unhandled_reloc, /* special_function */
989 "R_PPC_GOT_TLSGD16_HA", /* name */
990 FALSE, /* partial_inplace */
991 0, /* src_mask */
992 0xffff, /* dst_mask */
993 FALSE), /* pcrel_offset */
994
995 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
996 with values (sym+add)@dtpmod and zero, and computes the offset to the
997 first entry. */
998 HOWTO (R_PPC_GOT_TLSLD16,
999 0, /* rightshift */
1000 1, /* size (0 = byte, 1 = short, 2 = long) */
1001 16, /* bitsize */
1002 FALSE, /* pc_relative */
1003 0, /* bitpos */
1004 complain_overflow_signed, /* complain_on_overflow */
1005 ppc_elf_unhandled_reloc, /* special_function */
1006 "R_PPC_GOT_TLSLD16", /* name */
1007 FALSE, /* partial_inplace */
1008 0, /* src_mask */
1009 0xffff, /* dst_mask */
1010 FALSE), /* pcrel_offset */
1011
1012 /* Like GOT_TLSLD16, but no overflow. */
1013 HOWTO (R_PPC_GOT_TLSLD16_LO,
1014 0, /* rightshift */
1015 1, /* size (0 = byte, 1 = short, 2 = long) */
1016 16, /* bitsize */
1017 FALSE, /* pc_relative */
1018 0, /* bitpos */
1019 complain_overflow_dont, /* complain_on_overflow */
1020 ppc_elf_unhandled_reloc, /* special_function */
1021 "R_PPC_GOT_TLSLD16_LO", /* name */
1022 FALSE, /* partial_inplace */
1023 0, /* src_mask */
1024 0xffff, /* dst_mask */
1025 FALSE), /* pcrel_offset */
1026
1027 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1028 HOWTO (R_PPC_GOT_TLSLD16_HI,
1029 16, /* rightshift */
1030 1, /* size (0 = byte, 1 = short, 2 = long) */
1031 16, /* bitsize */
1032 FALSE, /* pc_relative */
1033 0, /* bitpos */
1034 complain_overflow_dont, /* complain_on_overflow */
1035 ppc_elf_unhandled_reloc, /* special_function */
1036 "R_PPC_GOT_TLSLD16_HI", /* name */
1037 FALSE, /* partial_inplace */
1038 0, /* src_mask */
1039 0xffff, /* dst_mask */
1040 FALSE), /* pcrel_offset */
1041
1042 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1043 HOWTO (R_PPC_GOT_TLSLD16_HA,
1044 16, /* rightshift */
1045 1, /* size (0 = byte, 1 = short, 2 = long) */
1046 16, /* bitsize */
1047 FALSE, /* pc_relative */
1048 0, /* bitpos */
1049 complain_overflow_dont, /* complain_on_overflow */
1050 ppc_elf_unhandled_reloc, /* special_function */
1051 "R_PPC_GOT_TLSLD16_HA", /* name */
1052 FALSE, /* partial_inplace */
1053 0, /* src_mask */
1054 0xffff, /* dst_mask */
1055 FALSE), /* pcrel_offset */
1056
1057 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1058 the offset to the entry. */
1059 HOWTO (R_PPC_GOT_DTPREL16,
1060 0, /* rightshift */
1061 1, /* size (0 = byte, 1 = short, 2 = long) */
1062 16, /* bitsize */
1063 FALSE, /* pc_relative */
1064 0, /* bitpos */
1065 complain_overflow_signed, /* complain_on_overflow */
1066 ppc_elf_unhandled_reloc, /* special_function */
1067 "R_PPC_GOT_DTPREL16", /* name */
1068 FALSE, /* partial_inplace */
1069 0, /* src_mask */
1070 0xffff, /* dst_mask */
1071 FALSE), /* pcrel_offset */
1072
1073 /* Like GOT_DTPREL16, but no overflow. */
1074 HOWTO (R_PPC_GOT_DTPREL16_LO,
1075 0, /* rightshift */
1076 1, /* size (0 = byte, 1 = short, 2 = long) */
1077 16, /* bitsize */
1078 FALSE, /* pc_relative */
1079 0, /* bitpos */
1080 complain_overflow_dont, /* complain_on_overflow */
1081 ppc_elf_unhandled_reloc, /* special_function */
1082 "R_PPC_GOT_DTPREL16_LO", /* name */
1083 FALSE, /* partial_inplace */
1084 0, /* src_mask */
1085 0xffff, /* dst_mask */
1086 FALSE), /* pcrel_offset */
1087
1088 /* Like GOT_DTPREL16_LO, but next higher group of 16 bits. */
1089 HOWTO (R_PPC_GOT_DTPREL16_HI,
1090 16, /* rightshift */
1091 1, /* size (0 = byte, 1 = short, 2 = long) */
1092 16, /* bitsize */
1093 FALSE, /* pc_relative */
1094 0, /* bitpos */
1095 complain_overflow_dont, /* complain_on_overflow */
1096 ppc_elf_unhandled_reloc, /* special_function */
1097 "R_PPC_GOT_DTPREL16_HI", /* name */
1098 FALSE, /* partial_inplace */
1099 0, /* src_mask */
1100 0xffff, /* dst_mask */
1101 FALSE), /* pcrel_offset */
1102
1103 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1104 HOWTO (R_PPC_GOT_DTPREL16_HA,
1105 16, /* rightshift */
1106 1, /* size (0 = byte, 1 = short, 2 = long) */
1107 16, /* bitsize */
1108 FALSE, /* pc_relative */
1109 0, /* bitpos */
1110 complain_overflow_dont, /* complain_on_overflow */
1111 ppc_elf_unhandled_reloc, /* special_function */
1112 "R_PPC_GOT_DTPREL16_HA", /* name */
1113 FALSE, /* partial_inplace */
1114 0, /* src_mask */
1115 0xffff, /* dst_mask */
1116 FALSE), /* pcrel_offset */
1117
1118 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1119 offset to the entry. */
1120 HOWTO (R_PPC_GOT_TPREL16,
1121 0, /* rightshift */
1122 1, /* size (0 = byte, 1 = short, 2 = long) */
1123 16, /* bitsize */
1124 FALSE, /* pc_relative */
1125 0, /* bitpos */
1126 complain_overflow_signed, /* complain_on_overflow */
1127 ppc_elf_unhandled_reloc, /* special_function */
1128 "R_PPC_GOT_TPREL16", /* name */
1129 FALSE, /* partial_inplace */
1130 0, /* src_mask */
1131 0xffff, /* dst_mask */
1132 FALSE), /* pcrel_offset */
1133
1134 /* Like GOT_TPREL16, but no overflow. */
1135 HOWTO (R_PPC_GOT_TPREL16_LO,
1136 0, /* rightshift */
1137 1, /* size (0 = byte, 1 = short, 2 = long) */
1138 16, /* bitsize */
1139 FALSE, /* pc_relative */
1140 0, /* bitpos */
1141 complain_overflow_dont, /* complain_on_overflow */
1142 ppc_elf_unhandled_reloc, /* special_function */
1143 "R_PPC_GOT_TPREL16_LO", /* name */
1144 FALSE, /* partial_inplace */
1145 0, /* src_mask */
1146 0xffff, /* dst_mask */
1147 FALSE), /* pcrel_offset */
1148
1149 /* Like GOT_TPREL16_LO, but next higher group of 16 bits. */
1150 HOWTO (R_PPC_GOT_TPREL16_HI,
1151 16, /* rightshift */
1152 1, /* size (0 = byte, 1 = short, 2 = long) */
1153 16, /* bitsize */
1154 FALSE, /* pc_relative */
1155 0, /* bitpos */
1156 complain_overflow_dont, /* complain_on_overflow */
1157 ppc_elf_unhandled_reloc, /* special_function */
1158 "R_PPC_GOT_TPREL16_HI", /* name */
1159 FALSE, /* partial_inplace */
1160 0, /* src_mask */
1161 0xffff, /* dst_mask */
1162 FALSE), /* pcrel_offset */
1163
1164 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1165 HOWTO (R_PPC_GOT_TPREL16_HA,
1166 16, /* rightshift */
1167 1, /* size (0 = byte, 1 = short, 2 = long) */
1168 16, /* bitsize */
1169 FALSE, /* pc_relative */
1170 0, /* bitpos */
1171 complain_overflow_dont, /* complain_on_overflow */
1172 ppc_elf_unhandled_reloc, /* special_function */
1173 "R_PPC_GOT_TPREL16_HA", /* name */
1174 FALSE, /* partial_inplace */
1175 0, /* src_mask */
1176 0xffff, /* dst_mask */
1177 FALSE), /* pcrel_offset */
1178
1179 /* The remaining relocs are from the Embedded ELF ABI, and are not
1180 in the SVR4 ELF ABI. */
1181
1182 /* 32 bit value resulting from the addend minus the symbol. */
1183 HOWTO (R_PPC_EMB_NADDR32, /* type */
1184 0, /* rightshift */
1185 2, /* size (0 = byte, 1 = short, 2 = long) */
1186 32, /* bitsize */
1187 FALSE, /* pc_relative */
1188 0, /* bitpos */
1189 complain_overflow_bitfield, /* complain_on_overflow */
1190 bfd_elf_generic_reloc, /* special_function */
1191 "R_PPC_EMB_NADDR32", /* name */
1192 FALSE, /* partial_inplace */
1193 0, /* src_mask */
1194 0xffffffff, /* dst_mask */
1195 FALSE), /* pcrel_offset */
1196
1197 /* 16 bit value resulting from the addend minus the symbol. */
1198 HOWTO (R_PPC_EMB_NADDR16, /* type */
1199 0, /* rightshift */
1200 1, /* size (0 = byte, 1 = short, 2 = long) */
1201 16, /* bitsize */
1202 FALSE, /* pc_relative */
1203 0, /* bitpos */
1204 complain_overflow_bitfield, /* complain_on_overflow */
1205 bfd_elf_generic_reloc, /* special_function */
1206 "R_PPC_EMB_NADDR16", /* name */
1207 FALSE, /* partial_inplace */
1208 0, /* src_mask */
1209 0xffff, /* dst_mask */
1210 FALSE), /* pcrel_offset */
1211
1212 /* 16 bit value resulting from the addend minus the symbol. */
1213 HOWTO (R_PPC_EMB_NADDR16_LO, /* type */
1214 0, /* rightshift */
1215 1, /* size (0 = byte, 1 = short, 2 = long) */
1216 16, /* bitsize */
1217 FALSE, /* pc_relative */
1218 0, /* bitpos */
1219 complain_overflow_dont,/* complain_on_overflow */
1220 bfd_elf_generic_reloc, /* special_function */
1221 "R_PPC_EMB_ADDR16_LO", /* name */
1222 FALSE, /* partial_inplace */
1223 0, /* src_mask */
1224 0xffff, /* dst_mask */
1225 FALSE), /* pcrel_offset */
1226
1227 /* The high order 16 bits of the addend minus the symbol. */
1228 HOWTO (R_PPC_EMB_NADDR16_HI, /* type */
1229 16, /* rightshift */
1230 1, /* size (0 = byte, 1 = short, 2 = long) */
1231 16, /* bitsize */
1232 FALSE, /* pc_relative */
1233 0, /* bitpos */
1234 complain_overflow_dont, /* complain_on_overflow */
1235 bfd_elf_generic_reloc, /* special_function */
1236 "R_PPC_EMB_NADDR16_HI", /* name */
1237 FALSE, /* partial_inplace */
1238 0, /* src_mask */
1239 0xffff, /* dst_mask */
1240 FALSE), /* pcrel_offset */
1241
1242 /* The high order 16 bits of the result of the addend minus the address,
1243 plus 1 if the contents of the low 16 bits, treated as a signed number,
1244 is negative. */
1245 HOWTO (R_PPC_EMB_NADDR16_HA, /* type */
1246 16, /* rightshift */
1247 1, /* size (0 = byte, 1 = short, 2 = long) */
1248 16, /* bitsize */
1249 FALSE, /* pc_relative */
1250 0, /* bitpos */
1251 complain_overflow_dont, /* complain_on_overflow */
1252 ppc_elf_addr16_ha_reloc, /* special_function */
1253 "R_PPC_EMB_NADDR16_HA", /* name */
1254 FALSE, /* partial_inplace */
1255 0, /* src_mask */
1256 0xffff, /* dst_mask */
1257 FALSE), /* pcrel_offset */
1258
1259 /* 16 bit value resulting from allocating a 4 byte word to hold an
1260 address in the .sdata section, and returning the offset from
1261 _SDA_BASE_ for that relocation. */
1262 HOWTO (R_PPC_EMB_SDAI16, /* type */
1263 0, /* rightshift */
1264 1, /* size (0 = byte, 1 = short, 2 = long) */
1265 16, /* bitsize */
1266 FALSE, /* pc_relative */
1267 0, /* bitpos */
1268 complain_overflow_bitfield, /* complain_on_overflow */
1269 bfd_elf_generic_reloc, /* special_function */
1270 "R_PPC_EMB_SDAI16", /* name */
1271 FALSE, /* partial_inplace */
1272 0, /* src_mask */
1273 0xffff, /* dst_mask */
1274 FALSE), /* pcrel_offset */
1275
1276 /* 16 bit value resulting from allocating a 4 byte word to hold an
1277 address in the .sdata2 section, and returning the offset from
1278 _SDA2_BASE_ for that relocation. */
1279 HOWTO (R_PPC_EMB_SDA2I16, /* type */
1280 0, /* rightshift */
1281 1, /* size (0 = byte, 1 = short, 2 = long) */
1282 16, /* bitsize */
1283 FALSE, /* pc_relative */
1284 0, /* bitpos */
1285 complain_overflow_bitfield, /* complain_on_overflow */
1286 bfd_elf_generic_reloc, /* special_function */
1287 "R_PPC_EMB_SDA2I16", /* name */
1288 FALSE, /* partial_inplace */
1289 0, /* src_mask */
1290 0xffff, /* dst_mask */
1291 FALSE), /* pcrel_offset */
1292
1293 /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
1294 small data items. */
1295 HOWTO (R_PPC_EMB_SDA2REL, /* type */
1296 0, /* rightshift */
1297 1, /* size (0 = byte, 1 = short, 2 = long) */
1298 16, /* bitsize */
1299 FALSE, /* pc_relative */
1300 0, /* bitpos */
1301 complain_overflow_signed, /* complain_on_overflow */
1302 bfd_elf_generic_reloc, /* special_function */
1303 "R_PPC_EMB_SDA2REL", /* name */
1304 FALSE, /* partial_inplace */
1305 0, /* src_mask */
1306 0xffff, /* dst_mask */
1307 FALSE), /* pcrel_offset */
1308
1309 /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
1310 signed offset from the appropriate base, and filling in the register
1311 field with the appropriate register (0, 2, or 13). */
1312 HOWTO (R_PPC_EMB_SDA21, /* type */
1313 0, /* rightshift */
1314 2, /* size (0 = byte, 1 = short, 2 = long) */
1315 16, /* bitsize */
1316 FALSE, /* pc_relative */
1317 0, /* bitpos */
1318 complain_overflow_signed, /* complain_on_overflow */
1319 bfd_elf_generic_reloc, /* special_function */
1320 "R_PPC_EMB_SDA21", /* name */
1321 FALSE, /* partial_inplace */
1322 0, /* src_mask */
1323 0xffff, /* dst_mask */
1324 FALSE), /* pcrel_offset */
1325
1326 /* Relocation not handled: R_PPC_EMB_MRKREF */
1327 /* Relocation not handled: R_PPC_EMB_RELSEC16 */
1328 /* Relocation not handled: R_PPC_EMB_RELST_LO */
1329 /* Relocation not handled: R_PPC_EMB_RELST_HI */
1330 /* Relocation not handled: R_PPC_EMB_RELST_HA */
1331 /* Relocation not handled: R_PPC_EMB_BIT_FLD */
1332
1333 /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
1334 in the 16 bit signed offset from the appropriate base, and filling in the
1335 register field with the appropriate register (0, 2, or 13). */
1336 HOWTO (R_PPC_EMB_RELSDA, /* type */
1337 0, /* rightshift */
1338 1, /* size (0 = byte, 1 = short, 2 = long) */
1339 16, /* bitsize */
1340 TRUE, /* pc_relative */
1341 0, /* bitpos */
1342 complain_overflow_signed, /* complain_on_overflow */
1343 bfd_elf_generic_reloc, /* special_function */
1344 "R_PPC_EMB_RELSDA", /* name */
1345 FALSE, /* partial_inplace */
1346 0, /* src_mask */
1347 0xffff, /* dst_mask */
1348 FALSE), /* pcrel_offset */
1349
1350 /* A 16 bit relative relocation. */
1351 HOWTO (R_PPC_REL16, /* type */
1352 0, /* rightshift */
1353 1, /* size (0 = byte, 1 = short, 2 = long) */
1354 16, /* bitsize */
1355 TRUE, /* pc_relative */
1356 0, /* bitpos */
1357 complain_overflow_bitfield, /* complain_on_overflow */
1358 bfd_elf_generic_reloc, /* special_function */
1359 "R_PPC_REL16", /* name */
1360 FALSE, /* partial_inplace */
1361 0, /* src_mask */
1362 0xffff, /* dst_mask */
1363 TRUE), /* pcrel_offset */
1364
1365 /* A 16 bit relative relocation without overflow. */
1366 HOWTO (R_PPC_REL16_LO, /* type */
1367 0, /* rightshift */
1368 1, /* size (0 = byte, 1 = short, 2 = long) */
1369 16, /* bitsize */
1370 TRUE, /* pc_relative */
1371 0, /* bitpos */
1372 complain_overflow_dont,/* complain_on_overflow */
1373 bfd_elf_generic_reloc, /* special_function */
1374 "R_PPC_REL16_LO", /* name */
1375 FALSE, /* partial_inplace */
1376 0, /* src_mask */
1377 0xffff, /* dst_mask */
1378 TRUE), /* pcrel_offset */
1379
1380 /* The high order 16 bits of a relative address. */
1381 HOWTO (R_PPC_REL16_HI, /* type */
1382 16, /* rightshift */
1383 1, /* size (0 = byte, 1 = short, 2 = long) */
1384 16, /* bitsize */
1385 TRUE, /* pc_relative */
1386 0, /* bitpos */
1387 complain_overflow_dont, /* complain_on_overflow */
1388 bfd_elf_generic_reloc, /* special_function */
1389 "R_PPC_REL16_HI", /* name */
1390 FALSE, /* partial_inplace */
1391 0, /* src_mask */
1392 0xffff, /* dst_mask */
1393 TRUE), /* pcrel_offset */
1394
1395 /* The high order 16 bits of a relative address, plus 1 if the contents of
1396 the low 16 bits, treated as a signed number, is negative. */
1397 HOWTO (R_PPC_REL16_HA, /* type */
1398 16, /* rightshift */
1399 1, /* size (0 = byte, 1 = short, 2 = long) */
1400 16, /* bitsize */
1401 TRUE, /* pc_relative */
1402 0, /* bitpos */
1403 complain_overflow_dont, /* complain_on_overflow */
1404 ppc_elf_addr16_ha_reloc, /* special_function */
1405 "R_PPC_REL16_HA", /* name */
1406 FALSE, /* partial_inplace */
1407 0, /* src_mask */
1408 0xffff, /* dst_mask */
1409 TRUE), /* pcrel_offset */
1410
1411 /* GNU extension to record C++ vtable hierarchy. */
1412 HOWTO (R_PPC_GNU_VTINHERIT, /* type */
1413 0, /* rightshift */
1414 0, /* size (0 = byte, 1 = short, 2 = long) */
1415 0, /* bitsize */
1416 FALSE, /* pc_relative */
1417 0, /* bitpos */
1418 complain_overflow_dont, /* complain_on_overflow */
1419 NULL, /* special_function */
1420 "R_PPC_GNU_VTINHERIT", /* name */
1421 FALSE, /* partial_inplace */
1422 0, /* src_mask */
1423 0, /* dst_mask */
1424 FALSE), /* pcrel_offset */
1425
1426 /* GNU extension to record C++ vtable member usage. */
1427 HOWTO (R_PPC_GNU_VTENTRY, /* type */
1428 0, /* rightshift */
1429 0, /* size (0 = byte, 1 = short, 2 = long) */
1430 0, /* bitsize */
1431 FALSE, /* pc_relative */
1432 0, /* bitpos */
1433 complain_overflow_dont, /* complain_on_overflow */
1434 NULL, /* special_function */
1435 "R_PPC_GNU_VTENTRY", /* name */
1436 FALSE, /* partial_inplace */
1437 0, /* src_mask */
1438 0, /* dst_mask */
1439 FALSE), /* pcrel_offset */
1440
1441 /* Phony reloc to handle AIX style TOC entries. */
1442 HOWTO (R_PPC_TOC16, /* type */
1443 0, /* rightshift */
1444 1, /* size (0 = byte, 1 = short, 2 = long) */
1445 16, /* bitsize */
1446 FALSE, /* pc_relative */
1447 0, /* bitpos */
1448 complain_overflow_signed, /* complain_on_overflow */
1449 bfd_elf_generic_reloc, /* special_function */
1450 "R_PPC_TOC16", /* name */
1451 FALSE, /* partial_inplace */
1452 0, /* src_mask */
1453 0xffff, /* dst_mask */
1454 FALSE), /* pcrel_offset */
1455 };
1456 \f
1457 /* Initialize the ppc_elf_howto_table, so that linear accesses can be done. */
1458
1459 static void
1460 ppc_elf_howto_init (void)
1461 {
1462 unsigned int i, type;
1463
1464 for (i = 0;
1465 i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1466 i++)
1467 {
1468 type = ppc_elf_howto_raw[i].type;
1469 if (type >= (sizeof (ppc_elf_howto_table)
1470 / sizeof (ppc_elf_howto_table[0])))
1471 abort ();
1472 ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
1473 }
1474 }
1475
1476 static reloc_howto_type *
1477 ppc_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1478 bfd_reloc_code_real_type code)
1479 {
1480 enum elf_ppc_reloc_type r;
1481
1482 /* Initialize howto table if not already done. */
1483 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1484 ppc_elf_howto_init ();
1485
1486 switch (code)
1487 {
1488 default:
1489 return NULL;
1490
1491 case BFD_RELOC_NONE: r = R_PPC_NONE; break;
1492 case BFD_RELOC_32: r = R_PPC_ADDR32; break;
1493 case BFD_RELOC_PPC_BA26: r = R_PPC_ADDR24; break;
1494 case BFD_RELOC_16: r = R_PPC_ADDR16; break;
1495 case BFD_RELOC_LO16: r = R_PPC_ADDR16_LO; break;
1496 case BFD_RELOC_HI16: r = R_PPC_ADDR16_HI; break;
1497 case BFD_RELOC_HI16_S: r = R_PPC_ADDR16_HA; break;
1498 case BFD_RELOC_PPC_BA16: r = R_PPC_ADDR14; break;
1499 case BFD_RELOC_PPC_BA16_BRTAKEN: r = R_PPC_ADDR14_BRTAKEN; break;
1500 case BFD_RELOC_PPC_BA16_BRNTAKEN: r = R_PPC_ADDR14_BRNTAKEN; break;
1501 case BFD_RELOC_PPC_B26: r = R_PPC_REL24; break;
1502 case BFD_RELOC_PPC_B16: r = R_PPC_REL14; break;
1503 case BFD_RELOC_PPC_B16_BRTAKEN: r = R_PPC_REL14_BRTAKEN; break;
1504 case BFD_RELOC_PPC_B16_BRNTAKEN: r = R_PPC_REL14_BRNTAKEN; break;
1505 case BFD_RELOC_16_GOTOFF: r = R_PPC_GOT16; break;
1506 case BFD_RELOC_LO16_GOTOFF: r = R_PPC_GOT16_LO; break;
1507 case BFD_RELOC_HI16_GOTOFF: r = R_PPC_GOT16_HI; break;
1508 case BFD_RELOC_HI16_S_GOTOFF: r = R_PPC_GOT16_HA; break;
1509 case BFD_RELOC_24_PLT_PCREL: r = R_PPC_PLTREL24; break;
1510 case BFD_RELOC_PPC_COPY: r = R_PPC_COPY; break;
1511 case BFD_RELOC_PPC_GLOB_DAT: r = R_PPC_GLOB_DAT; break;
1512 case BFD_RELOC_PPC_LOCAL24PC: r = R_PPC_LOCAL24PC; break;
1513 case BFD_RELOC_32_PCREL: r = R_PPC_REL32; break;
1514 case BFD_RELOC_32_PLTOFF: r = R_PPC_PLT32; break;
1515 case BFD_RELOC_32_PLT_PCREL: r = R_PPC_PLTREL32; break;
1516 case BFD_RELOC_LO16_PLTOFF: r = R_PPC_PLT16_LO; break;
1517 case BFD_RELOC_HI16_PLTOFF: r = R_PPC_PLT16_HI; break;
1518 case BFD_RELOC_HI16_S_PLTOFF: r = R_PPC_PLT16_HA; break;
1519 case BFD_RELOC_GPREL16: r = R_PPC_SDAREL16; break;
1520 case BFD_RELOC_16_BASEREL: r = R_PPC_SECTOFF; break;
1521 case BFD_RELOC_LO16_BASEREL: r = R_PPC_SECTOFF_LO; break;
1522 case BFD_RELOC_HI16_BASEREL: r = R_PPC_SECTOFF_HI; break;
1523 case BFD_RELOC_HI16_S_BASEREL: r = R_PPC_SECTOFF_HA; break;
1524 case BFD_RELOC_CTOR: r = R_PPC_ADDR32; break;
1525 case BFD_RELOC_PPC_TOC16: r = R_PPC_TOC16; break;
1526 case BFD_RELOC_PPC_TLS: r = R_PPC_TLS; break;
1527 case BFD_RELOC_PPC_DTPMOD: r = R_PPC_DTPMOD32; break;
1528 case BFD_RELOC_PPC_TPREL16: r = R_PPC_TPREL16; break;
1529 case BFD_RELOC_PPC_TPREL16_LO: r = R_PPC_TPREL16_LO; break;
1530 case BFD_RELOC_PPC_TPREL16_HI: r = R_PPC_TPREL16_HI; break;
1531 case BFD_RELOC_PPC_TPREL16_HA: r = R_PPC_TPREL16_HA; break;
1532 case BFD_RELOC_PPC_TPREL: r = R_PPC_TPREL32; break;
1533 case BFD_RELOC_PPC_DTPREL16: r = R_PPC_DTPREL16; break;
1534 case BFD_RELOC_PPC_DTPREL16_LO: r = R_PPC_DTPREL16_LO; break;
1535 case BFD_RELOC_PPC_DTPREL16_HI: r = R_PPC_DTPREL16_HI; break;
1536 case BFD_RELOC_PPC_DTPREL16_HA: r = R_PPC_DTPREL16_HA; break;
1537 case BFD_RELOC_PPC_DTPREL: r = R_PPC_DTPREL32; break;
1538 case BFD_RELOC_PPC_GOT_TLSGD16: r = R_PPC_GOT_TLSGD16; break;
1539 case BFD_RELOC_PPC_GOT_TLSGD16_LO: r = R_PPC_GOT_TLSGD16_LO; break;
1540 case BFD_RELOC_PPC_GOT_TLSGD16_HI: r = R_PPC_GOT_TLSGD16_HI; break;
1541 case BFD_RELOC_PPC_GOT_TLSGD16_HA: r = R_PPC_GOT_TLSGD16_HA; break;
1542 case BFD_RELOC_PPC_GOT_TLSLD16: r = R_PPC_GOT_TLSLD16; break;
1543 case BFD_RELOC_PPC_GOT_TLSLD16_LO: r = R_PPC_GOT_TLSLD16_LO; break;
1544 case BFD_RELOC_PPC_GOT_TLSLD16_HI: r = R_PPC_GOT_TLSLD16_HI; break;
1545 case BFD_RELOC_PPC_GOT_TLSLD16_HA: r = R_PPC_GOT_TLSLD16_HA; break;
1546 case BFD_RELOC_PPC_GOT_TPREL16: r = R_PPC_GOT_TPREL16; break;
1547 case BFD_RELOC_PPC_GOT_TPREL16_LO: r = R_PPC_GOT_TPREL16_LO; break;
1548 case BFD_RELOC_PPC_GOT_TPREL16_HI: r = R_PPC_GOT_TPREL16_HI; break;
1549 case BFD_RELOC_PPC_GOT_TPREL16_HA: r = R_PPC_GOT_TPREL16_HA; break;
1550 case BFD_RELOC_PPC_GOT_DTPREL16: r = R_PPC_GOT_DTPREL16; break;
1551 case BFD_RELOC_PPC_GOT_DTPREL16_LO: r = R_PPC_GOT_DTPREL16_LO; break;
1552 case BFD_RELOC_PPC_GOT_DTPREL16_HI: r = R_PPC_GOT_DTPREL16_HI; break;
1553 case BFD_RELOC_PPC_GOT_DTPREL16_HA: r = R_PPC_GOT_DTPREL16_HA; break;
1554 case BFD_RELOC_PPC_EMB_NADDR32: r = R_PPC_EMB_NADDR32; break;
1555 case BFD_RELOC_PPC_EMB_NADDR16: r = R_PPC_EMB_NADDR16; break;
1556 case BFD_RELOC_PPC_EMB_NADDR16_LO: r = R_PPC_EMB_NADDR16_LO; break;
1557 case BFD_RELOC_PPC_EMB_NADDR16_HI: r = R_PPC_EMB_NADDR16_HI; break;
1558 case BFD_RELOC_PPC_EMB_NADDR16_HA: r = R_PPC_EMB_NADDR16_HA; break;
1559 case BFD_RELOC_PPC_EMB_SDAI16: r = R_PPC_EMB_SDAI16; break;
1560 case BFD_RELOC_PPC_EMB_SDA2I16: r = R_PPC_EMB_SDA2I16; break;
1561 case BFD_RELOC_PPC_EMB_SDA2REL: r = R_PPC_EMB_SDA2REL; break;
1562 case BFD_RELOC_PPC_EMB_SDA21: r = R_PPC_EMB_SDA21; break;
1563 case BFD_RELOC_PPC_EMB_MRKREF: r = R_PPC_EMB_MRKREF; break;
1564 case BFD_RELOC_PPC_EMB_RELSEC16: r = R_PPC_EMB_RELSEC16; break;
1565 case BFD_RELOC_PPC_EMB_RELST_LO: r = R_PPC_EMB_RELST_LO; break;
1566 case BFD_RELOC_PPC_EMB_RELST_HI: r = R_PPC_EMB_RELST_HI; break;
1567 case BFD_RELOC_PPC_EMB_RELST_HA: r = R_PPC_EMB_RELST_HA; break;
1568 case BFD_RELOC_PPC_EMB_BIT_FLD: r = R_PPC_EMB_BIT_FLD; break;
1569 case BFD_RELOC_PPC_EMB_RELSDA: r = R_PPC_EMB_RELSDA; break;
1570 case BFD_RELOC_16_PCREL: r = R_PPC_REL16; break;
1571 case BFD_RELOC_LO16_PCREL: r = R_PPC_REL16_LO; break;
1572 case BFD_RELOC_HI16_PCREL: r = R_PPC_REL16_HI; break;
1573 case BFD_RELOC_HI16_S_PCREL: r = R_PPC_REL16_HA; break;
1574 case BFD_RELOC_VTABLE_INHERIT: r = R_PPC_GNU_VTINHERIT; break;
1575 case BFD_RELOC_VTABLE_ENTRY: r = R_PPC_GNU_VTENTRY; break;
1576 }
1577
1578 return ppc_elf_howto_table[r];
1579 };
1580
1581 static reloc_howto_type *
1582 ppc_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1583 const char *r_name)
1584 {
1585 unsigned int i;
1586
1587 for (i = 0;
1588 i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1589 i++)
1590 if (ppc_elf_howto_raw[i].name != NULL
1591 && strcasecmp (ppc_elf_howto_raw[i].name, r_name) == 0)
1592 return &ppc_elf_howto_raw[i];
1593
1594 return NULL;
1595 }
1596
1597 /* Set the howto pointer for a PowerPC ELF reloc. */
1598
1599 static void
1600 ppc_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1601 arelent *cache_ptr,
1602 Elf_Internal_Rela *dst)
1603 {
1604 /* Initialize howto table if not already done. */
1605 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1606 ppc_elf_howto_init ();
1607
1608 BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1609 cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
1610
1611 /* Just because the above assert didn't trigger doesn't mean that
1612 ELF32_R_TYPE (dst->r_info) is necessarily a valid relocation. */
1613 if (!cache_ptr->howto)
1614 {
1615 (*_bfd_error_handler) (_("%B: invalid relocation type %d"),
1616 abfd, ELF32_R_TYPE (dst->r_info));
1617 bfd_set_error (bfd_error_bad_value);
1618
1619 cache_ptr->howto = ppc_elf_howto_table[R_PPC_NONE];
1620 }
1621 }
1622
1623 /* Handle the R_PPC_ADDR16_HA and R_PPC_REL16_HA relocs. */
1624
1625 static bfd_reloc_status_type
1626 ppc_elf_addr16_ha_reloc (bfd *abfd ATTRIBUTE_UNUSED,
1627 arelent *reloc_entry,
1628 asymbol *symbol,
1629 void *data ATTRIBUTE_UNUSED,
1630 asection *input_section,
1631 bfd *output_bfd,
1632 char **error_message ATTRIBUTE_UNUSED)
1633 {
1634 bfd_vma relocation;
1635
1636 if (output_bfd != NULL)
1637 {
1638 reloc_entry->address += input_section->output_offset;
1639 return bfd_reloc_ok;
1640 }
1641
1642 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
1643 return bfd_reloc_outofrange;
1644
1645 if (bfd_is_com_section (symbol->section))
1646 relocation = 0;
1647 else
1648 relocation = symbol->value;
1649
1650 relocation += symbol->section->output_section->vma;
1651 relocation += symbol->section->output_offset;
1652 relocation += reloc_entry->addend;
1653 if (reloc_entry->howto->pc_relative)
1654 relocation -= reloc_entry->address;
1655
1656 reloc_entry->addend += (relocation & 0x8000) << 1;
1657
1658 return bfd_reloc_continue;
1659 }
1660
1661 static bfd_reloc_status_type
1662 ppc_elf_unhandled_reloc (bfd *abfd,
1663 arelent *reloc_entry,
1664 asymbol *symbol,
1665 void *data,
1666 asection *input_section,
1667 bfd *output_bfd,
1668 char **error_message)
1669 {
1670 /* If this is a relocatable link (output_bfd test tells us), just
1671 call the generic function. Any adjustment will be done at final
1672 link time. */
1673 if (output_bfd != NULL)
1674 return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1675 input_section, output_bfd, error_message);
1676
1677 if (error_message != NULL)
1678 {
1679 static char buf[60];
1680 sprintf (buf, _("generic linker can't handle %s"),
1681 reloc_entry->howto->name);
1682 *error_message = buf;
1683 }
1684 return bfd_reloc_dangerous;
1685 }
1686 \f
1687 /* Sections created by the linker. */
1688
1689 typedef struct elf_linker_section
1690 {
1691 /* Pointer to the bfd section. */
1692 asection *section;
1693 /* Section name. */
1694 const char *name;
1695 /* Associated bss section name. */
1696 const char *bss_name;
1697 /* Associated symbol name. */
1698 const char *sym_name;
1699 /* Associated symbol. */
1700 struct elf_link_hash_entry *sym;
1701 } elf_linker_section_t;
1702
1703 /* Linked list of allocated pointer entries. This hangs off of the
1704 symbol lists, and provides allows us to return different pointers,
1705 based on different addend's. */
1706
1707 typedef struct elf_linker_section_pointers
1708 {
1709 /* next allocated pointer for this symbol */
1710 struct elf_linker_section_pointers *next;
1711 /* offset of pointer from beginning of section */
1712 bfd_vma offset;
1713 /* addend used */
1714 bfd_vma addend;
1715 /* which linker section this is */
1716 elf_linker_section_t *lsect;
1717 } elf_linker_section_pointers_t;
1718
1719 struct ppc_elf_obj_tdata
1720 {
1721 struct elf_obj_tdata elf;
1722
1723 /* A mapping from local symbols to offsets into the various linker
1724 sections added. This is index by the symbol index. */
1725 elf_linker_section_pointers_t **linker_section_pointers;
1726
1727 /* Flags used to auto-detect plt type. */
1728 unsigned int makes_plt_call : 1;
1729 unsigned int has_rel16 : 1;
1730 };
1731
1732 #define ppc_elf_tdata(bfd) \
1733 ((struct ppc_elf_obj_tdata *) (bfd)->tdata.any)
1734
1735 #define elf_local_ptr_offsets(bfd) \
1736 (ppc_elf_tdata (bfd)->linker_section_pointers)
1737
1738 /* Override the generic function because we store some extras. */
1739
1740 static bfd_boolean
1741 ppc_elf_mkobject (bfd *abfd)
1742 {
1743 if (abfd->tdata.any == NULL)
1744 {
1745 bfd_size_type amt = sizeof (struct ppc_elf_obj_tdata);
1746 abfd->tdata.any = bfd_zalloc (abfd, amt);
1747 if (abfd->tdata.any == NULL)
1748 return FALSE;
1749 }
1750 return bfd_elf_mkobject (abfd);
1751 }
1752
1753 /* Fix bad default arch selected for a 32 bit input bfd when the
1754 default is 64 bit. */
1755
1756 static bfd_boolean
1757 ppc_elf_object_p (bfd *abfd)
1758 {
1759 if (abfd->arch_info->the_default && abfd->arch_info->bits_per_word == 64)
1760 {
1761 Elf_Internal_Ehdr *i_ehdr = elf_elfheader (abfd);
1762
1763 if (i_ehdr->e_ident[EI_CLASS] == ELFCLASS32)
1764 {
1765 /* Relies on arch after 64 bit default being 32 bit default. */
1766 abfd->arch_info = abfd->arch_info->next;
1767 BFD_ASSERT (abfd->arch_info->bits_per_word == 32);
1768 }
1769 }
1770 return TRUE;
1771 }
1772
1773 /* Function to set whether a module needs the -mrelocatable bit set. */
1774
1775 static bfd_boolean
1776 ppc_elf_set_private_flags (bfd *abfd, flagword flags)
1777 {
1778 BFD_ASSERT (!elf_flags_init (abfd)
1779 || elf_elfheader (abfd)->e_flags == flags);
1780
1781 elf_elfheader (abfd)->e_flags = flags;
1782 elf_flags_init (abfd) = TRUE;
1783 return TRUE;
1784 }
1785
1786 /* Support for core dump NOTE sections. */
1787
1788 static bfd_boolean
1789 ppc_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
1790 {
1791 int offset;
1792 unsigned int size;
1793
1794 switch (note->descsz)
1795 {
1796 default:
1797 return FALSE;
1798
1799 case 268: /* Linux/PPC. */
1800 /* pr_cursig */
1801 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
1802
1803 /* pr_pid */
1804 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
1805
1806 /* pr_reg */
1807 offset = 72;
1808 size = 192;
1809
1810 break;
1811 }
1812
1813 /* Make a ".reg/999" section. */
1814 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1815 size, note->descpos + offset);
1816 }
1817
1818 static bfd_boolean
1819 ppc_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
1820 {
1821 switch (note->descsz)
1822 {
1823 default:
1824 return FALSE;
1825
1826 case 128: /* Linux/PPC elf_prpsinfo. */
1827 elf_tdata (abfd)->core_program
1828 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
1829 elf_tdata (abfd)->core_command
1830 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
1831 }
1832
1833 /* Note that for some reason, a spurious space is tacked
1834 onto the end of the args in some (at least one anyway)
1835 implementations, so strip it off if it exists. */
1836
1837 {
1838 char *command = elf_tdata (abfd)->core_command;
1839 int n = strlen (command);
1840
1841 if (0 < n && command[n - 1] == ' ')
1842 command[n - 1] = '\0';
1843 }
1844
1845 return TRUE;
1846 }
1847
1848 static char *
1849 ppc_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type, ...)
1850 {
1851 switch (note_type)
1852 {
1853 default:
1854 return NULL;
1855
1856 case NT_PRPSINFO:
1857 {
1858 char data[128];
1859 va_list ap;
1860
1861 va_start (ap, note_type);
1862 memset (data, 0, 32);
1863 strncpy (data + 32, va_arg (ap, const char *), 16);
1864 strncpy (data + 48, va_arg (ap, const char *), 80);
1865 va_end (ap);
1866 return elfcore_write_note (abfd, buf, bufsiz,
1867 "CORE", note_type, data, sizeof (data));
1868 }
1869
1870 case NT_PRSTATUS:
1871 {
1872 char data[268];
1873 va_list ap;
1874 long pid;
1875 int cursig;
1876 const void *greg;
1877
1878 va_start (ap, note_type);
1879 memset (data, 0, 72);
1880 pid = va_arg (ap, long);
1881 bfd_put_32 (abfd, pid, data + 24);
1882 cursig = va_arg (ap, int);
1883 bfd_put_16 (abfd, cursig, data + 12);
1884 greg = va_arg (ap, const void *);
1885 memcpy (data + 72, greg, 192);
1886 memset (data + 264, 0, 4);
1887 va_end (ap);
1888 return elfcore_write_note (abfd, buf, bufsiz,
1889 "CORE", note_type, data, sizeof (data));
1890 }
1891 }
1892 }
1893
1894 /* Return address for Ith PLT stub in section PLT, for relocation REL
1895 or (bfd_vma) -1 if it should not be included. */
1896
1897 static bfd_vma
1898 ppc_elf_plt_sym_val (bfd_vma i ATTRIBUTE_UNUSED,
1899 const asection *plt ATTRIBUTE_UNUSED,
1900 const arelent *rel)
1901 {
1902 return rel->address;
1903 }
1904
1905 /* Handle a PowerPC specific section when reading an object file. This
1906 is called when bfd_section_from_shdr finds a section with an unknown
1907 type. */
1908
1909 static bfd_boolean
1910 ppc_elf_section_from_shdr (bfd *abfd,
1911 Elf_Internal_Shdr *hdr,
1912 const char *name,
1913 int shindex)
1914 {
1915 asection *newsect;
1916 flagword flags;
1917
1918 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
1919 return FALSE;
1920
1921 newsect = hdr->bfd_section;
1922 flags = bfd_get_section_flags (abfd, newsect);
1923 if (hdr->sh_flags & SHF_EXCLUDE)
1924 flags |= SEC_EXCLUDE;
1925
1926 if (hdr->sh_type == SHT_ORDERED)
1927 flags |= SEC_SORT_ENTRIES;
1928
1929 bfd_set_section_flags (abfd, newsect, flags);
1930 return TRUE;
1931 }
1932
1933 /* Set up any other section flags and such that may be necessary. */
1934
1935 static bfd_boolean
1936 ppc_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
1937 Elf_Internal_Shdr *shdr,
1938 asection *asect)
1939 {
1940 if ((asect->flags & (SEC_GROUP | SEC_EXCLUDE)) == SEC_EXCLUDE)
1941 shdr->sh_flags |= SHF_EXCLUDE;
1942
1943 if ((asect->flags & SEC_SORT_ENTRIES) != 0)
1944 shdr->sh_type = SHT_ORDERED;
1945
1946 return TRUE;
1947 }
1948
1949 /* If we have .sbss2 or .PPC.EMB.sbss0 output sections, we
1950 need to bump up the number of section headers. */
1951
1952 static int
1953 ppc_elf_additional_program_headers (bfd *abfd,
1954 struct bfd_link_info *info ATTRIBUTE_UNUSED)
1955 {
1956 asection *s;
1957 int ret = 0;
1958
1959 s = bfd_get_section_by_name (abfd, ".sbss2");
1960 if (s != NULL && (s->flags & SEC_ALLOC) != 0)
1961 ++ret;
1962
1963 s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
1964 if (s != NULL && (s->flags & SEC_ALLOC) != 0)
1965 ++ret;
1966
1967 return ret;
1968 }
1969
1970 /* Add extra PPC sections -- Note, for now, make .sbss2 and
1971 .PPC.EMB.sbss0 a normal section, and not a bss section so
1972 that the linker doesn't crater when trying to make more than
1973 2 sections. */
1974
1975 static const struct bfd_elf_special_section ppc_elf_special_sections[] =
1976 {
1977 { STRING_COMMA_LEN (".plt"), 0, SHT_NOBITS, SHF_ALLOC + SHF_EXECINSTR },
1978 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS, SHF_ALLOC + SHF_WRITE },
1979 { STRING_COMMA_LEN (".sbss2"), -2, SHT_PROGBITS, SHF_ALLOC },
1980 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
1981 { STRING_COMMA_LEN (".sdata2"), -2, SHT_PROGBITS, SHF_ALLOC },
1982 { STRING_COMMA_LEN (".tags"), 0, SHT_ORDERED, SHF_ALLOC },
1983 { STRING_COMMA_LEN (".PPC.EMB.apuinfo"), 0, SHT_NOTE, 0 },
1984 { STRING_COMMA_LEN (".PPC.EMB.sbss0"), 0, SHT_PROGBITS, SHF_ALLOC },
1985 { STRING_COMMA_LEN (".PPC.EMB.sdata0"), 0, SHT_PROGBITS, SHF_ALLOC },
1986 { NULL, 0, 0, 0, 0 }
1987 };
1988
1989 /* This is what we want for new plt/got. */
1990 static struct bfd_elf_special_section ppc_alt_plt =
1991 { STRING_COMMA_LEN (".plt"), 0, SHT_PROGBITS, SHF_ALLOC };
1992
1993 static const struct bfd_elf_special_section *
1994 ppc_elf_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1995 {
1996 const struct bfd_elf_special_section *ssect;
1997
1998 /* See if this is one of the special sections. */
1999 if (sec->name == NULL)
2000 return NULL;
2001
2002 ssect = _bfd_elf_get_special_section (sec->name, ppc_elf_special_sections,
2003 sec->use_rela_p);
2004 if (ssect != NULL)
2005 {
2006 if (ssect == ppc_elf_special_sections && (sec->flags & SEC_LOAD) != 0)
2007 ssect = &ppc_alt_plt;
2008 return ssect;
2009 }
2010
2011 return _bfd_elf_get_sec_type_attr (abfd, sec);
2012 }
2013 \f
2014 /* Very simple linked list structure for recording apuinfo values. */
2015 typedef struct apuinfo_list
2016 {
2017 struct apuinfo_list *next;
2018 unsigned long value;
2019 }
2020 apuinfo_list;
2021
2022 static apuinfo_list *head;
2023
2024
2025 static void
2026 apuinfo_list_init (void)
2027 {
2028 head = NULL;
2029 }
2030
2031 static void
2032 apuinfo_list_add (unsigned long value)
2033 {
2034 apuinfo_list *entry = head;
2035
2036 while (entry != NULL)
2037 {
2038 if (entry->value == value)
2039 return;
2040 entry = entry->next;
2041 }
2042
2043 entry = bfd_malloc (sizeof (* entry));
2044 if (entry == NULL)
2045 return;
2046
2047 entry->value = value;
2048 entry->next = head;
2049 head = entry;
2050 }
2051
2052 static unsigned
2053 apuinfo_list_length (void)
2054 {
2055 apuinfo_list *entry;
2056 unsigned long count;
2057
2058 for (entry = head, count = 0;
2059 entry;
2060 entry = entry->next)
2061 ++ count;
2062
2063 return count;
2064 }
2065
2066 static inline unsigned long
2067 apuinfo_list_element (unsigned long number)
2068 {
2069 apuinfo_list * entry;
2070
2071 for (entry = head;
2072 entry && number --;
2073 entry = entry->next)
2074 ;
2075
2076 return entry ? entry->value : 0;
2077 }
2078
2079 static void
2080 apuinfo_list_finish (void)
2081 {
2082 apuinfo_list *entry;
2083
2084 for (entry = head; entry;)
2085 {
2086 apuinfo_list *next = entry->next;
2087 free (entry);
2088 entry = next;
2089 }
2090
2091 head = NULL;
2092 }
2093
2094 #define APUINFO_SECTION_NAME ".PPC.EMB.apuinfo"
2095 #define APUINFO_LABEL "APUinfo"
2096
2097 /* Scan the input BFDs and create a linked list of
2098 the APUinfo values that will need to be emitted. */
2099
2100 static void
2101 ppc_elf_begin_write_processing (bfd *abfd, struct bfd_link_info *link_info)
2102 {
2103 bfd *ibfd;
2104 asection *asec;
2105 char *buffer;
2106 unsigned num_input_sections;
2107 bfd_size_type output_section_size;
2108 unsigned i;
2109 unsigned num_entries;
2110 unsigned long offset;
2111 unsigned long length;
2112 const char *error_message = NULL;
2113
2114 if (link_info == NULL)
2115 return;
2116
2117 /* Scan the input bfds, looking for apuinfo sections. */
2118 num_input_sections = 0;
2119 output_section_size = 0;
2120
2121 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
2122 {
2123 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
2124 if (asec)
2125 {
2126 ++ num_input_sections;
2127 output_section_size += asec->size;
2128 }
2129 }
2130
2131 /* We need at least one input sections
2132 in order to make merging worthwhile. */
2133 if (num_input_sections < 1)
2134 return;
2135
2136 /* Just make sure that the output section exists as well. */
2137 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2138 if (asec == NULL)
2139 return;
2140
2141 /* Allocate a buffer for the contents of the input sections. */
2142 buffer = bfd_malloc (output_section_size);
2143 if (buffer == NULL)
2144 return;
2145
2146 offset = 0;
2147 apuinfo_list_init ();
2148
2149 /* Read in the input sections contents. */
2150 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
2151 {
2152 unsigned long datum;
2153 char *ptr;
2154
2155 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
2156 if (asec == NULL)
2157 continue;
2158
2159 length = asec->size;
2160 if (length < 24)
2161 {
2162 error_message = _("corrupt or empty %s section in %B");
2163 goto fail;
2164 }
2165
2166 if (bfd_seek (ibfd, asec->filepos, SEEK_SET) != 0
2167 || (bfd_bread (buffer + offset, length, ibfd) != length))
2168 {
2169 error_message = _("unable to read in %s section from %B");
2170 goto fail;
2171 }
2172
2173 /* Process the contents of the section. */
2174 ptr = buffer + offset;
2175 error_message = _("corrupt %s section in %B");
2176
2177 /* Verify the contents of the header. Note - we have to
2178 extract the values this way in order to allow for a
2179 host whose endian-ness is different from the target. */
2180 datum = bfd_get_32 (ibfd, ptr);
2181 if (datum != sizeof APUINFO_LABEL)
2182 goto fail;
2183
2184 datum = bfd_get_32 (ibfd, ptr + 8);
2185 if (datum != 0x2)
2186 goto fail;
2187
2188 if (strcmp (ptr + 12, APUINFO_LABEL) != 0)
2189 goto fail;
2190
2191 /* Get the number of bytes used for apuinfo entries. */
2192 datum = bfd_get_32 (ibfd, ptr + 4);
2193 if (datum + 20 != length)
2194 goto fail;
2195
2196 /* Make sure that we do not run off the end of the section. */
2197 if (offset + length > output_section_size)
2198 goto fail;
2199
2200 /* Scan the apuinfo section, building a list of apuinfo numbers. */
2201 for (i = 0; i < datum; i += 4)
2202 apuinfo_list_add (bfd_get_32 (ibfd, ptr + 20 + i));
2203
2204 /* Update the offset. */
2205 offset += length;
2206 }
2207
2208 error_message = NULL;
2209
2210 /* Compute the size of the output section. */
2211 num_entries = apuinfo_list_length ();
2212 output_section_size = 20 + num_entries * 4;
2213
2214 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2215
2216 if (! bfd_set_section_size (abfd, asec, output_section_size))
2217 ibfd = abfd,
2218 error_message = _("warning: unable to set size of %s section in %B");
2219
2220 fail:
2221 free (buffer);
2222
2223 if (error_message)
2224 (*_bfd_error_handler) (error_message, ibfd, APUINFO_SECTION_NAME);
2225 }
2226
2227 /* Prevent the output section from accumulating the input sections'
2228 contents. We have already stored this in our linked list structure. */
2229
2230 static bfd_boolean
2231 ppc_elf_write_section (bfd *abfd ATTRIBUTE_UNUSED,
2232 struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
2233 asection *asec,
2234 bfd_byte *contents ATTRIBUTE_UNUSED)
2235 {
2236 return (apuinfo_list_length ()
2237 && strcmp (asec->name, APUINFO_SECTION_NAME) == 0);
2238 }
2239
2240 /* Finally we can generate the output section. */
2241
2242 static void
2243 ppc_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
2244 {
2245 bfd_byte *buffer;
2246 asection *asec;
2247 unsigned i;
2248 unsigned num_entries;
2249 bfd_size_type length;
2250
2251 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2252 if (asec == NULL)
2253 return;
2254
2255 if (apuinfo_list_length () == 0)
2256 return;
2257
2258 length = asec->size;
2259 if (length < 20)
2260 return;
2261
2262 buffer = bfd_malloc (length);
2263 if (buffer == NULL)
2264 {
2265 (*_bfd_error_handler)
2266 (_("failed to allocate space for new APUinfo section."));
2267 return;
2268 }
2269
2270 /* Create the apuinfo header. */
2271 num_entries = apuinfo_list_length ();
2272 bfd_put_32 (abfd, sizeof APUINFO_LABEL, buffer);
2273 bfd_put_32 (abfd, num_entries * 4, buffer + 4);
2274 bfd_put_32 (abfd, 0x2, buffer + 8);
2275 strcpy ((char *) buffer + 12, APUINFO_LABEL);
2276
2277 length = 20;
2278 for (i = 0; i < num_entries; i++)
2279 {
2280 bfd_put_32 (abfd, apuinfo_list_element (i), buffer + length);
2281 length += 4;
2282 }
2283
2284 if (length != asec->size)
2285 (*_bfd_error_handler) (_("failed to compute new APUinfo section."));
2286
2287 if (! bfd_set_section_contents (abfd, asec, buffer, (file_ptr) 0, length))
2288 (*_bfd_error_handler) (_("failed to install new APUinfo section."));
2289
2290 free (buffer);
2291
2292 apuinfo_list_finish ();
2293 }
2294 \f
2295 /* The following functions are specific to the ELF linker, while
2296 functions above are used generally. They appear in this file more
2297 or less in the order in which they are called. eg.
2298 ppc_elf_check_relocs is called early in the link process,
2299 ppc_elf_finish_dynamic_sections is one of the last functions
2300 called. */
2301
2302 /* The PPC linker needs to keep track of the number of relocs that it
2303 decides to copy as dynamic relocs in check_relocs for each symbol.
2304 This is so that it can later discard them if they are found to be
2305 unnecessary. We store the information in a field extending the
2306 regular ELF linker hash table. */
2307
2308 struct ppc_elf_dyn_relocs
2309 {
2310 struct ppc_elf_dyn_relocs *next;
2311
2312 /* The input section of the reloc. */
2313 asection *sec;
2314
2315 /* Total number of relocs copied for the input section. */
2316 bfd_size_type count;
2317
2318 /* Number of pc-relative relocs copied for the input section. */
2319 bfd_size_type pc_count;
2320 };
2321
2322 /* Track PLT entries needed for a given symbol. We might need more
2323 than one glink entry per symbol. */
2324 struct plt_entry
2325 {
2326 struct plt_entry *next;
2327
2328 /* -fPIC uses multiple GOT sections, one per file, called ".got2".
2329 This field stores the offset into .got2 used to initialise the
2330 GOT pointer reg. It will always be at least 32768 (and for
2331 current gcc this is the only offset used). */
2332 bfd_vma addend;
2333
2334 /* The .got2 section. */
2335 asection *sec;
2336
2337 /* PLT refcount or offset. */
2338 union
2339 {
2340 bfd_signed_vma refcount;
2341 bfd_vma offset;
2342 } plt;
2343
2344 /* .glink stub offset. */
2345 bfd_vma glink_offset;
2346 };
2347
2348 /* Of those relocs that might be copied as dynamic relocs, this macro
2349 selects those that must be copied when linking a shared library,
2350 even when the symbol is local. */
2351
2352 #define MUST_BE_DYN_RELOC(RTYPE) \
2353 ((RTYPE) != R_PPC_REL24 \
2354 && (RTYPE) != R_PPC_REL14 \
2355 && (RTYPE) != R_PPC_REL14_BRTAKEN \
2356 && (RTYPE) != R_PPC_REL14_BRNTAKEN \
2357 && (RTYPE) != R_PPC_REL32)
2358
2359 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
2360 copying dynamic variables from a shared lib into an app's dynbss
2361 section, and instead use a dynamic relocation to point into the
2362 shared lib. */
2363 #define ELIMINATE_COPY_RELOCS 1
2364
2365 /* PPC ELF linker hash entry. */
2366
2367 struct ppc_elf_link_hash_entry
2368 {
2369 struct elf_link_hash_entry elf;
2370
2371 /* If this symbol is used in the linker created sections, the processor
2372 specific backend uses this field to map the field into the offset
2373 from the beginning of the section. */
2374 elf_linker_section_pointers_t *linker_section_pointer;
2375
2376 /* Track dynamic relocs copied for this symbol. */
2377 struct ppc_elf_dyn_relocs *dyn_relocs;
2378
2379 /* Contexts in which symbol is used in the GOT (or TOC).
2380 TLS_GD .. TLS_TLS bits are or'd into the mask as the
2381 corresponding relocs are encountered during check_relocs.
2382 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
2383 indicate the corresponding GOT entry type is not needed. */
2384 #define TLS_GD 1 /* GD reloc. */
2385 #define TLS_LD 2 /* LD reloc. */
2386 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
2387 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
2388 #define TLS_TLS 16 /* Any TLS reloc. */
2389 #define TLS_TPRELGD 32 /* TPREL reloc resulting from GD->IE. */
2390 char tls_mask;
2391
2392 /* Nonzero if we have seen a small data relocation referring to this
2393 symbol. */
2394 unsigned char has_sda_refs;
2395 };
2396
2397 #define ppc_elf_hash_entry(ent) ((struct ppc_elf_link_hash_entry *) (ent))
2398
2399 /* PPC ELF linker hash table. */
2400
2401 struct ppc_elf_link_hash_table
2402 {
2403 struct elf_link_hash_table elf;
2404
2405 /* Short-cuts to get to dynamic linker sections. */
2406 asection *got;
2407 asection *relgot;
2408 asection *glink;
2409 asection *plt;
2410 asection *relplt;
2411 asection *dynbss;
2412 asection *relbss;
2413 asection *dynsbss;
2414 asection *relsbss;
2415 elf_linker_section_t sdata[2];
2416 asection *sbss;
2417
2418 /* The (unloaded but important) .rela.plt.unloaded on VxWorks. */
2419 asection *srelplt2;
2420
2421 /* The .got.plt section (VxWorks only)*/
2422 asection *sgotplt;
2423
2424 /* Shortcut to .__tls_get_addr. */
2425 struct elf_link_hash_entry *tls_get_addr;
2426
2427 /* The bfd that forced an old-style PLT. */
2428 bfd *old_bfd;
2429
2430 /* TLS local dynamic got entry handling. */
2431 union {
2432 bfd_signed_vma refcount;
2433 bfd_vma offset;
2434 } tlsld_got;
2435
2436 /* Offset of PltResolve function in glink. */
2437 bfd_vma glink_pltresolve;
2438
2439 /* Size of reserved GOT entries. */
2440 unsigned int got_header_size;
2441 /* Non-zero if allocating the header left a gap. */
2442 unsigned int got_gap;
2443
2444 /* The type of PLT we have chosen to use. */
2445 enum ppc_elf_plt_type plt_type;
2446
2447 /* Set if we should emit symbols for stubs. */
2448 unsigned int emit_stub_syms:1;
2449
2450 /* True if the target system is VxWorks. */
2451 unsigned int is_vxworks:1;
2452
2453 /* The size of PLT entries. */
2454 int plt_entry_size;
2455 /* The distance between adjacent PLT slots. */
2456 int plt_slot_size;
2457 /* The size of the first PLT entry. */
2458 int plt_initial_entry_size;
2459
2460 /* Small local sym to section mapping cache. */
2461 struct sym_sec_cache sym_sec;
2462 };
2463
2464 /* Get the PPC ELF linker hash table from a link_info structure. */
2465
2466 #define ppc_elf_hash_table(p) \
2467 ((struct ppc_elf_link_hash_table *) (p)->hash)
2468
2469 /* Create an entry in a PPC ELF linker hash table. */
2470
2471 static struct bfd_hash_entry *
2472 ppc_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
2473 struct bfd_hash_table *table,
2474 const char *string)
2475 {
2476 /* Allocate the structure if it has not already been allocated by a
2477 subclass. */
2478 if (entry == NULL)
2479 {
2480 entry = bfd_hash_allocate (table,
2481 sizeof (struct ppc_elf_link_hash_entry));
2482 if (entry == NULL)
2483 return entry;
2484 }
2485
2486 /* Call the allocation method of the superclass. */
2487 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
2488 if (entry != NULL)
2489 {
2490 ppc_elf_hash_entry (entry)->linker_section_pointer = NULL;
2491 ppc_elf_hash_entry (entry)->dyn_relocs = NULL;
2492 ppc_elf_hash_entry (entry)->tls_mask = 0;
2493 }
2494
2495 return entry;
2496 }
2497
2498 /* Create a PPC ELF linker hash table. */
2499
2500 static struct bfd_link_hash_table *
2501 ppc_elf_link_hash_table_create (bfd *abfd)
2502 {
2503 struct ppc_elf_link_hash_table *ret;
2504
2505 ret = bfd_zmalloc (sizeof (struct ppc_elf_link_hash_table));
2506 if (ret == NULL)
2507 return NULL;
2508
2509 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
2510 ppc_elf_link_hash_newfunc,
2511 sizeof (struct ppc_elf_link_hash_entry)))
2512 {
2513 free (ret);
2514 return NULL;
2515 }
2516
2517 ret->elf.init_plt_refcount.refcount = 0;
2518 ret->elf.init_plt_refcount.glist = NULL;
2519 ret->elf.init_plt_offset.offset = 0;
2520 ret->elf.init_plt_offset.glist = NULL;
2521
2522 ret->sdata[0].name = ".sdata";
2523 ret->sdata[0].sym_name = "_SDA_BASE_";
2524 ret->sdata[0].bss_name = ".sbss";
2525
2526 ret->sdata[1].name = ".sdata2";
2527 ret->sdata[1].sym_name = "_SDA2_BASE_";
2528 ret->sdata[1].bss_name = ".sbss2";
2529
2530 ret->plt_entry_size = 12;
2531 ret->plt_slot_size = 8;
2532 ret->plt_initial_entry_size = 72;
2533
2534 return &ret->elf.root;
2535 }
2536
2537 /* Create .got and the related sections. */
2538
2539 static bfd_boolean
2540 ppc_elf_create_got (bfd *abfd, struct bfd_link_info *info)
2541 {
2542 struct ppc_elf_link_hash_table *htab;
2543 asection *s;
2544 flagword flags;
2545
2546 if (!_bfd_elf_create_got_section (abfd, info))
2547 return FALSE;
2548
2549 htab = ppc_elf_hash_table (info);
2550 htab->got = s = bfd_get_section_by_name (abfd, ".got");
2551 if (s == NULL)
2552 abort ();
2553
2554 if (htab->is_vxworks)
2555 {
2556 htab->sgotplt = bfd_get_section_by_name (abfd, ".got.plt");
2557 if (!htab->sgotplt)
2558 abort ();
2559 }
2560 else
2561 {
2562 /* The powerpc .got has a blrl instruction in it. Mark it
2563 executable. */
2564 flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS
2565 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2566 if (!bfd_set_section_flags (abfd, s, flags))
2567 return FALSE;
2568 }
2569
2570 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2571 | SEC_LINKER_CREATED | SEC_READONLY);
2572 htab->relgot = bfd_make_section_with_flags (abfd, ".rela.got", flags);
2573 if (!htab->relgot
2574 || ! bfd_set_section_alignment (abfd, htab->relgot, 2))
2575 return FALSE;
2576
2577 return TRUE;
2578 }
2579
2580 /* We have to create .dynsbss and .rela.sbss here so that they get mapped
2581 to output sections (just like _bfd_elf_create_dynamic_sections has
2582 to create .dynbss and .rela.bss). */
2583
2584 static bfd_boolean
2585 ppc_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2586 {
2587 struct ppc_elf_link_hash_table *htab;
2588 asection *s;
2589 flagword flags;
2590
2591 htab = ppc_elf_hash_table (info);
2592
2593 if (htab->got == NULL
2594 && !ppc_elf_create_got (abfd, info))
2595 return FALSE;
2596
2597 if (!_bfd_elf_create_dynamic_sections (abfd, info))
2598 return FALSE;
2599
2600 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
2601 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2602
2603 s = bfd_make_section_anyway_with_flags (abfd, ".glink", flags | SEC_CODE);
2604 htab->glink = s;
2605 if (s == NULL
2606 || !bfd_set_section_alignment (abfd, s, 4))
2607 return FALSE;
2608
2609 htab->dynbss = bfd_get_section_by_name (abfd, ".dynbss");
2610 s = bfd_make_section_with_flags (abfd, ".dynsbss",
2611 SEC_ALLOC | SEC_LINKER_CREATED);
2612 htab->dynsbss = s;
2613 if (s == NULL)
2614 return FALSE;
2615
2616 if (! info->shared)
2617 {
2618 htab->relbss = bfd_get_section_by_name (abfd, ".rela.bss");
2619 s = bfd_make_section_with_flags (abfd, ".rela.sbss", flags);
2620 htab->relsbss = s;
2621 if (s == NULL
2622 || ! bfd_set_section_alignment (abfd, s, 2))
2623 return FALSE;
2624 }
2625
2626 if (htab->is_vxworks
2627 && !elf_vxworks_create_dynamic_sections (abfd, info, &htab->srelplt2))
2628 return FALSE;
2629
2630 htab->relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2631 htab->plt = s = bfd_get_section_by_name (abfd, ".plt");
2632 if (s == NULL)
2633 abort ();
2634
2635 flags = SEC_ALLOC | SEC_CODE | SEC_LINKER_CREATED;
2636 if (htab->plt_type == PLT_VXWORKS)
2637 /* The VxWorks PLT is a loaded section with contents. */
2638 flags |= SEC_HAS_CONTENTS | SEC_LOAD | SEC_READONLY;
2639 return bfd_set_section_flags (abfd, s, flags);
2640 }
2641
2642 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2643
2644 static void
2645 ppc_elf_copy_indirect_symbol (struct bfd_link_info *info,
2646 struct elf_link_hash_entry *dir,
2647 struct elf_link_hash_entry *ind)
2648 {
2649 struct ppc_elf_link_hash_entry *edir, *eind;
2650
2651 edir = (struct ppc_elf_link_hash_entry *) dir;
2652 eind = (struct ppc_elf_link_hash_entry *) ind;
2653
2654 if (eind->dyn_relocs != NULL)
2655 {
2656 if (edir->dyn_relocs != NULL)
2657 {
2658 struct ppc_elf_dyn_relocs **pp;
2659 struct ppc_elf_dyn_relocs *p;
2660
2661 /* Add reloc counts against the indirect sym to the direct sym
2662 list. Merge any entries against the same section. */
2663 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
2664 {
2665 struct ppc_elf_dyn_relocs *q;
2666
2667 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2668 if (q->sec == p->sec)
2669 {
2670 q->pc_count += p->pc_count;
2671 q->count += p->count;
2672 *pp = p->next;
2673 break;
2674 }
2675 if (q == NULL)
2676 pp = &p->next;
2677 }
2678 *pp = edir->dyn_relocs;
2679 }
2680
2681 edir->dyn_relocs = eind->dyn_relocs;
2682 eind->dyn_relocs = NULL;
2683 }
2684
2685 edir->tls_mask |= eind->tls_mask;
2686 edir->has_sda_refs |= eind->has_sda_refs;
2687
2688 /* If called to transfer flags for a weakdef during processing
2689 of elf_adjust_dynamic_symbol, don't copy non_got_ref.
2690 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
2691 if (!(ELIMINATE_COPY_RELOCS
2692 && eind->elf.root.type != bfd_link_hash_indirect
2693 && edir->elf.dynamic_adjusted))
2694 edir->elf.non_got_ref |= eind->elf.non_got_ref;
2695
2696 edir->elf.ref_dynamic |= eind->elf.ref_dynamic;
2697 edir->elf.ref_regular |= eind->elf.ref_regular;
2698 edir->elf.ref_regular_nonweak |= eind->elf.ref_regular_nonweak;
2699 edir->elf.needs_plt |= eind->elf.needs_plt;
2700
2701 /* If we were called to copy over info for a weak sym, that's all. */
2702 if (eind->elf.root.type != bfd_link_hash_indirect)
2703 return;
2704
2705 /* Copy over the GOT refcount entries that we may have already seen to
2706 the symbol which just became indirect. */
2707 edir->elf.got.refcount += eind->elf.got.refcount;
2708 eind->elf.got.refcount = 0;
2709
2710 /* And plt entries. */
2711 if (eind->elf.plt.plist != NULL)
2712 {
2713 if (edir->elf.plt.plist != NULL)
2714 {
2715 struct plt_entry **entp;
2716 struct plt_entry *ent;
2717
2718 for (entp = &eind->elf.plt.plist; (ent = *entp) != NULL; )
2719 {
2720 struct plt_entry *dent;
2721
2722 for (dent = edir->elf.plt.plist; dent != NULL; dent = dent->next)
2723 if (dent->sec == ent->sec && dent->addend == ent->addend)
2724 {
2725 dent->plt.refcount += ent->plt.refcount;
2726 *entp = ent->next;
2727 break;
2728 }
2729 if (dent == NULL)
2730 entp = &ent->next;
2731 }
2732 *entp = edir->elf.plt.plist;
2733 }
2734
2735 edir->elf.plt.plist = eind->elf.plt.plist;
2736 eind->elf.plt.plist = NULL;
2737 }
2738
2739 if (eind->elf.dynindx != -1)
2740 {
2741 if (edir->elf.dynindx != -1)
2742 _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
2743 edir->elf.dynstr_index);
2744 edir->elf.dynindx = eind->elf.dynindx;
2745 edir->elf.dynstr_index = eind->elf.dynstr_index;
2746 eind->elf.dynindx = -1;
2747 eind->elf.dynstr_index = 0;
2748 }
2749 }
2750
2751 /* Return 1 if target is one of ours. */
2752
2753 static bfd_boolean
2754 is_ppc_elf_target (const struct bfd_target *targ)
2755 {
2756 extern const bfd_target bfd_elf32_powerpc_vec;
2757 extern const bfd_target bfd_elf32_powerpc_vxworks_vec;
2758 extern const bfd_target bfd_elf32_powerpcle_vec;
2759
2760 return (targ == &bfd_elf32_powerpc_vec
2761 || targ == &bfd_elf32_powerpc_vxworks_vec
2762 || targ == &bfd_elf32_powerpcle_vec);
2763 }
2764
2765 /* Hook called by the linker routine which adds symbols from an object
2766 file. We use it to put .comm items in .sbss, and not .bss. */
2767
2768 static bfd_boolean
2769 ppc_elf_add_symbol_hook (bfd *abfd,
2770 struct bfd_link_info *info,
2771 Elf_Internal_Sym *sym,
2772 const char **namep ATTRIBUTE_UNUSED,
2773 flagword *flagsp ATTRIBUTE_UNUSED,
2774 asection **secp,
2775 bfd_vma *valp)
2776 {
2777 if (sym->st_shndx == SHN_COMMON
2778 && !info->relocatable
2779 && sym->st_size <= elf_gp_size (abfd)
2780 && is_ppc_elf_target (info->hash->creator))
2781 {
2782 /* Common symbols less than or equal to -G nn bytes are automatically
2783 put into .sbss. */
2784 struct ppc_elf_link_hash_table *htab;
2785
2786 htab = ppc_elf_hash_table (info);
2787 if (htab->sbss == NULL)
2788 {
2789 flagword flags = SEC_IS_COMMON | SEC_LINKER_CREATED;
2790
2791 if (!htab->elf.dynobj)
2792 htab->elf.dynobj = abfd;
2793
2794 htab->sbss = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
2795 ".sbss",
2796 flags);
2797 if (htab->sbss == NULL)
2798 return FALSE;
2799 }
2800
2801 *secp = htab->sbss;
2802 *valp = sym->st_size;
2803 }
2804
2805 return TRUE;
2806 }
2807 \f
2808 static bfd_boolean
2809 create_sdata_sym (struct ppc_elf_link_hash_table *htab,
2810 elf_linker_section_t *lsect)
2811 {
2812 lsect->sym = elf_link_hash_lookup (&htab->elf, lsect->sym_name,
2813 TRUE, FALSE, TRUE);
2814 if (lsect->sym == NULL)
2815 return FALSE;
2816 if (lsect->sym->root.type == bfd_link_hash_new)
2817 lsect->sym->non_elf = 0;
2818 lsect->sym->ref_regular = 1;
2819 return TRUE;
2820 }
2821
2822 /* Create a special linker section. */
2823
2824 static bfd_boolean
2825 ppc_elf_create_linker_section (bfd *abfd,
2826 struct bfd_link_info *info,
2827 flagword flags,
2828 elf_linker_section_t *lsect)
2829 {
2830 struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
2831 asection *s;
2832
2833 flags |= (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2834 | SEC_LINKER_CREATED);
2835
2836 /* Record the first bfd that needs the special sections. */
2837 if (!htab->elf.dynobj)
2838 htab->elf.dynobj = abfd;
2839
2840 s = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
2841 lsect->name,
2842 flags);
2843 if (s == NULL
2844 || !bfd_set_section_alignment (htab->elf.dynobj, s, 2))
2845 return FALSE;
2846 lsect->section = s;
2847
2848 return create_sdata_sym (htab, lsect);
2849 }
2850
2851 /* Find a linker generated pointer with a given addend and type. */
2852
2853 static elf_linker_section_pointers_t *
2854 elf_find_pointer_linker_section
2855 (elf_linker_section_pointers_t *linker_pointers,
2856 bfd_vma addend,
2857 elf_linker_section_t *lsect)
2858 {
2859 for ( ; linker_pointers != NULL; linker_pointers = linker_pointers->next)
2860 if (lsect == linker_pointers->lsect && addend == linker_pointers->addend)
2861 return linker_pointers;
2862
2863 return NULL;
2864 }
2865
2866 /* Allocate a pointer to live in a linker created section. */
2867
2868 static bfd_boolean
2869 elf_create_pointer_linker_section (bfd *abfd,
2870 elf_linker_section_t *lsect,
2871 struct elf_link_hash_entry *h,
2872 const Elf_Internal_Rela *rel)
2873 {
2874 elf_linker_section_pointers_t **ptr_linker_section_ptr = NULL;
2875 elf_linker_section_pointers_t *linker_section_ptr;
2876 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
2877 bfd_size_type amt;
2878
2879 BFD_ASSERT (lsect != NULL);
2880
2881 /* Is this a global symbol? */
2882 if (h != NULL)
2883 {
2884 struct ppc_elf_link_hash_entry *eh;
2885
2886 /* Has this symbol already been allocated? If so, our work is done. */
2887 eh = (struct ppc_elf_link_hash_entry *) h;
2888 if (elf_find_pointer_linker_section (eh->linker_section_pointer,
2889 rel->r_addend,
2890 lsect))
2891 return TRUE;
2892
2893 ptr_linker_section_ptr = &eh->linker_section_pointer;
2894 }
2895 else
2896 {
2897 /* Allocation of a pointer to a local symbol. */
2898 elf_linker_section_pointers_t **ptr = elf_local_ptr_offsets (abfd);
2899
2900 /* Allocate a table to hold the local symbols if first time. */
2901 if (!ptr)
2902 {
2903 unsigned int num_symbols = elf_tdata (abfd)->symtab_hdr.sh_info;
2904
2905 amt = num_symbols;
2906 amt *= sizeof (elf_linker_section_pointers_t *);
2907 ptr = bfd_zalloc (abfd, amt);
2908
2909 if (!ptr)
2910 return FALSE;
2911
2912 elf_local_ptr_offsets (abfd) = ptr;
2913 }
2914
2915 /* Has this symbol already been allocated? If so, our work is done. */
2916 if (elf_find_pointer_linker_section (ptr[r_symndx],
2917 rel->r_addend,
2918 lsect))
2919 return TRUE;
2920
2921 ptr_linker_section_ptr = &ptr[r_symndx];
2922 }
2923
2924 /* Allocate space for a pointer in the linker section, and allocate
2925 a new pointer record from internal memory. */
2926 BFD_ASSERT (ptr_linker_section_ptr != NULL);
2927 amt = sizeof (elf_linker_section_pointers_t);
2928 linker_section_ptr = bfd_alloc (abfd, amt);
2929
2930 if (!linker_section_ptr)
2931 return FALSE;
2932
2933 linker_section_ptr->next = *ptr_linker_section_ptr;
2934 linker_section_ptr->addend = rel->r_addend;
2935 linker_section_ptr->lsect = lsect;
2936 *ptr_linker_section_ptr = linker_section_ptr;
2937
2938 linker_section_ptr->offset = lsect->section->size;
2939 lsect->section->size += 4;
2940
2941 #ifdef DEBUG
2942 fprintf (stderr,
2943 "Create pointer in linker section %s, offset = %ld, section size = %ld\n",
2944 lsect->name, (long) linker_section_ptr->offset,
2945 (long) lsect->section->size);
2946 #endif
2947
2948 return TRUE;
2949 }
2950
2951 static bfd_boolean
2952 update_local_sym_info (bfd *abfd,
2953 Elf_Internal_Shdr *symtab_hdr,
2954 unsigned long r_symndx,
2955 int tls_type)
2956 {
2957 bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
2958 char *local_got_tls_masks;
2959
2960 if (local_got_refcounts == NULL)
2961 {
2962 bfd_size_type size = symtab_hdr->sh_info;
2963
2964 size *= sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks);
2965 local_got_refcounts = bfd_zalloc (abfd, size);
2966 if (local_got_refcounts == NULL)
2967 return FALSE;
2968 elf_local_got_refcounts (abfd) = local_got_refcounts;
2969 }
2970
2971 local_got_refcounts[r_symndx] += 1;
2972 local_got_tls_masks = (char *) (local_got_refcounts + symtab_hdr->sh_info);
2973 local_got_tls_masks[r_symndx] |= tls_type;
2974 return TRUE;
2975 }
2976
2977 static bfd_boolean
2978 update_plt_info (bfd *abfd, struct elf_link_hash_entry *h,
2979 asection *sec, bfd_vma addend)
2980 {
2981 struct plt_entry *ent;
2982
2983 if (addend < 32768)
2984 sec = NULL;
2985 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
2986 if (ent->sec == sec && ent->addend == addend)
2987 break;
2988 if (ent == NULL)
2989 {
2990 bfd_size_type amt = sizeof (*ent);
2991 ent = bfd_alloc (abfd, amt);
2992 if (ent == NULL)
2993 return FALSE;
2994 ent->next = h->plt.plist;
2995 ent->sec = sec;
2996 ent->addend = addend;
2997 ent->plt.refcount = 0;
2998 h->plt.plist = ent;
2999 }
3000 ent->plt.refcount += 1;
3001 return TRUE;
3002 }
3003
3004 static struct plt_entry *
3005 find_plt_ent (struct elf_link_hash_entry *h, asection *sec, bfd_vma addend)
3006 {
3007 struct plt_entry *ent;
3008
3009 if (addend < 32768)
3010 sec = NULL;
3011 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
3012 if (ent->sec == sec && ent->addend == addend)
3013 break;
3014 return ent;
3015 }
3016
3017 static void
3018 bad_shared_reloc (bfd *abfd, enum elf_ppc_reloc_type r_type)
3019 {
3020 (*_bfd_error_handler)
3021 (_("%B: relocation %s cannot be used when making a shared object"),
3022 abfd,
3023 ppc_elf_howto_table[r_type]->name);
3024 bfd_set_error (bfd_error_bad_value);
3025 }
3026
3027 /* Look through the relocs for a section during the first phase, and
3028 allocate space in the global offset table or procedure linkage
3029 table. */
3030
3031 static bfd_boolean
3032 ppc_elf_check_relocs (bfd *abfd,
3033 struct bfd_link_info *info,
3034 asection *sec,
3035 const Elf_Internal_Rela *relocs)
3036 {
3037 struct ppc_elf_link_hash_table *htab;
3038 Elf_Internal_Shdr *symtab_hdr;
3039 struct elf_link_hash_entry **sym_hashes;
3040 const Elf_Internal_Rela *rel;
3041 const Elf_Internal_Rela *rel_end;
3042 asection *got2, *sreloc;
3043
3044 if (info->relocatable)
3045 return TRUE;
3046
3047 /* Don't do anything special with non-loaded, non-alloced sections.
3048 In particular, any relocs in such sections should not affect GOT
3049 and PLT reference counting (ie. we don't allow them to create GOT
3050 or PLT entries), there's no possibility or desire to optimize TLS
3051 relocs, and there's not much point in propagating relocs to shared
3052 libs that the dynamic linker won't relocate. */
3053 if ((sec->flags & SEC_ALLOC) == 0)
3054 return TRUE;
3055
3056 #ifdef DEBUG
3057 _bfd_error_handler ("ppc_elf_check_relocs called for section %A in %B",
3058 sec, abfd);
3059 #endif
3060
3061 /* Initialize howto table if not already done. */
3062 if (!ppc_elf_howto_table[R_PPC_ADDR32])
3063 ppc_elf_howto_init ();
3064
3065 htab = ppc_elf_hash_table (info);
3066 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3067 sym_hashes = elf_sym_hashes (abfd);
3068 got2 = bfd_get_section_by_name (abfd, ".got2");
3069 sreloc = NULL;
3070
3071 rel_end = relocs + sec->reloc_count;
3072 for (rel = relocs; rel < rel_end; rel++)
3073 {
3074 unsigned long r_symndx;
3075 enum elf_ppc_reloc_type r_type;
3076 struct elf_link_hash_entry *h;
3077 int tls_type = 0;
3078
3079 r_symndx = ELF32_R_SYM (rel->r_info);
3080 if (r_symndx < symtab_hdr->sh_info)
3081 h = NULL;
3082 else
3083 {
3084 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3085 while (h->root.type == bfd_link_hash_indirect
3086 || h->root.type == bfd_link_hash_warning)
3087 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3088 }
3089
3090 /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
3091 This shows up in particular in an R_PPC_ADDR32 in the eabi
3092 startup code. */
3093 if (h != NULL
3094 && htab->got == NULL
3095 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3096 {
3097 if (htab->elf.dynobj == NULL)
3098 htab->elf.dynobj = abfd;
3099 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3100 return FALSE;
3101 BFD_ASSERT (h == htab->elf.hgot);
3102 }
3103
3104 r_type = ELF32_R_TYPE (rel->r_info);
3105 switch (r_type)
3106 {
3107 case R_PPC_GOT_TLSLD16:
3108 case R_PPC_GOT_TLSLD16_LO:
3109 case R_PPC_GOT_TLSLD16_HI:
3110 case R_PPC_GOT_TLSLD16_HA:
3111 htab->tlsld_got.refcount += 1;
3112 tls_type = TLS_TLS | TLS_LD;
3113 goto dogottls;
3114
3115 case R_PPC_GOT_TLSGD16:
3116 case R_PPC_GOT_TLSGD16_LO:
3117 case R_PPC_GOT_TLSGD16_HI:
3118 case R_PPC_GOT_TLSGD16_HA:
3119 tls_type = TLS_TLS | TLS_GD;
3120 goto dogottls;
3121
3122 case R_PPC_GOT_TPREL16:
3123 case R_PPC_GOT_TPREL16_LO:
3124 case R_PPC_GOT_TPREL16_HI:
3125 case R_PPC_GOT_TPREL16_HA:
3126 if (info->shared)
3127 info->flags |= DF_STATIC_TLS;
3128 tls_type = TLS_TLS | TLS_TPREL;
3129 goto dogottls;
3130
3131 case R_PPC_GOT_DTPREL16:
3132 case R_PPC_GOT_DTPREL16_LO:
3133 case R_PPC_GOT_DTPREL16_HI:
3134 case R_PPC_GOT_DTPREL16_HA:
3135 tls_type = TLS_TLS | TLS_DTPREL;
3136 dogottls:
3137 sec->has_tls_reloc = 1;
3138 /* Fall thru */
3139
3140 /* GOT16 relocations */
3141 case R_PPC_GOT16:
3142 case R_PPC_GOT16_LO:
3143 case R_PPC_GOT16_HI:
3144 case R_PPC_GOT16_HA:
3145 /* This symbol requires a global offset table entry. */
3146 if (htab->got == NULL)
3147 {
3148 if (htab->elf.dynobj == NULL)
3149 htab->elf.dynobj = abfd;
3150 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3151 return FALSE;
3152 }
3153 if (h != NULL)
3154 {
3155 h->got.refcount += 1;
3156 ppc_elf_hash_entry (h)->tls_mask |= tls_type;
3157 }
3158 else
3159 /* This is a global offset table entry for a local symbol. */
3160 if (!update_local_sym_info (abfd, symtab_hdr, r_symndx, tls_type))
3161 return FALSE;
3162 break;
3163
3164 /* Indirect .sdata relocation. */
3165 case R_PPC_EMB_SDAI16:
3166 if (info->shared)
3167 {
3168 bad_shared_reloc (abfd, r_type);
3169 return FALSE;
3170 }
3171 if (htab->sdata[0].section == NULL
3172 && !ppc_elf_create_linker_section (abfd, info, 0,
3173 &htab->sdata[0]))
3174 return FALSE;
3175 if (!elf_create_pointer_linker_section (abfd, &htab->sdata[0],
3176 h, rel))
3177 return FALSE;
3178 if (h != NULL)
3179 {
3180 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3181 h->non_got_ref = TRUE;
3182 }
3183 break;
3184
3185 /* Indirect .sdata2 relocation. */
3186 case R_PPC_EMB_SDA2I16:
3187 if (info->shared)
3188 {
3189 bad_shared_reloc (abfd, r_type);
3190 return FALSE;
3191 }
3192 if (htab->sdata[1].section == NULL
3193 && !ppc_elf_create_linker_section (abfd, info, SEC_READONLY,
3194 &htab->sdata[1]))
3195 return FALSE;
3196 if (!elf_create_pointer_linker_section (abfd, &htab->sdata[1],
3197 h, rel))
3198 return FALSE;
3199 if (h != NULL)
3200 {
3201 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3202 h->non_got_ref = TRUE;
3203 }
3204 break;
3205
3206 case R_PPC_SDAREL16:
3207 if (info->shared)
3208 {
3209 bad_shared_reloc (abfd, r_type);
3210 return FALSE;
3211 }
3212 if (htab->sdata[0].sym == NULL
3213 && !create_sdata_sym (htab, &htab->sdata[0]))
3214 return FALSE;
3215 if (h != NULL)
3216 {
3217 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3218 h->non_got_ref = TRUE;
3219 }
3220 break;
3221
3222 case R_PPC_EMB_SDA2REL:
3223 if (info->shared)
3224 {
3225 bad_shared_reloc (abfd, r_type);
3226 return FALSE;
3227 }
3228 if (htab->sdata[1].sym == NULL
3229 && !create_sdata_sym (htab, &htab->sdata[1]))
3230 return FALSE;
3231 if (h != NULL)
3232 {
3233 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3234 h->non_got_ref = TRUE;
3235 }
3236 break;
3237
3238 case R_PPC_EMB_SDA21:
3239 case R_PPC_EMB_RELSDA:
3240 if (info->shared)
3241 {
3242 bad_shared_reloc (abfd, r_type);
3243 return FALSE;
3244 }
3245 if (htab->sdata[0].sym == NULL
3246 && !create_sdata_sym (htab, &htab->sdata[0]))
3247 return FALSE;
3248 if (htab->sdata[1].sym == NULL
3249 && !create_sdata_sym (htab, &htab->sdata[1]))
3250 return FALSE;
3251 if (h != NULL)
3252 {
3253 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3254 h->non_got_ref = TRUE;
3255 }
3256 break;
3257
3258 case R_PPC_EMB_NADDR32:
3259 case R_PPC_EMB_NADDR16:
3260 case R_PPC_EMB_NADDR16_LO:
3261 case R_PPC_EMB_NADDR16_HI:
3262 case R_PPC_EMB_NADDR16_HA:
3263 if (info->shared)
3264 {
3265 bad_shared_reloc (abfd, r_type);
3266 return FALSE;
3267 }
3268 if (h != NULL)
3269 h->non_got_ref = TRUE;
3270 break;
3271
3272 case R_PPC_PLT32:
3273 case R_PPC_PLTREL24:
3274 case R_PPC_PLTREL32:
3275 case R_PPC_PLT16_LO:
3276 case R_PPC_PLT16_HI:
3277 case R_PPC_PLT16_HA:
3278 #ifdef DEBUG
3279 fprintf (stderr, "Reloc requires a PLT entry\n");
3280 #endif
3281 /* This symbol requires a procedure linkage table entry. We
3282 actually build the entry in finish_dynamic_symbol,
3283 because this might be a case of linking PIC code without
3284 linking in any dynamic objects, in which case we don't
3285 need to generate a procedure linkage table after all. */
3286
3287 if (h == NULL)
3288 {
3289 /* It does not make sense to have a procedure linkage
3290 table entry for a local symbol. */
3291 (*_bfd_error_handler) (_("%B(%A+0x%lx): %s reloc against "
3292 "local symbol"),
3293 abfd,
3294 sec,
3295 (long) rel->r_offset,
3296 ppc_elf_howto_table[r_type]->name);
3297 bfd_set_error (bfd_error_bad_value);
3298 return FALSE;
3299 }
3300 else
3301 {
3302 bfd_vma addend = 0;
3303
3304 if (r_type == R_PPC_PLTREL24)
3305 {
3306 ppc_elf_tdata (abfd)->makes_plt_call = 1;
3307 addend = rel->r_addend;
3308 }
3309 h->needs_plt = 1;
3310 if (!update_plt_info (abfd, h, got2, addend))
3311 return FALSE;
3312 }
3313 break;
3314
3315 /* The following relocations don't need to propagate the
3316 relocation if linking a shared object since they are
3317 section relative. */
3318 case R_PPC_SECTOFF:
3319 case R_PPC_SECTOFF_LO:
3320 case R_PPC_SECTOFF_HI:
3321 case R_PPC_SECTOFF_HA:
3322 case R_PPC_DTPREL16:
3323 case R_PPC_DTPREL16_LO:
3324 case R_PPC_DTPREL16_HI:
3325 case R_PPC_DTPREL16_HA:
3326 case R_PPC_TOC16:
3327 break;
3328
3329 case R_PPC_REL16:
3330 case R_PPC_REL16_LO:
3331 case R_PPC_REL16_HI:
3332 case R_PPC_REL16_HA:
3333 ppc_elf_tdata (abfd)->has_rel16 = 1;
3334 break;
3335
3336 /* These are just markers. */
3337 case R_PPC_TLS:
3338 case R_PPC_EMB_MRKREF:
3339 case R_PPC_NONE:
3340 case R_PPC_max:
3341 break;
3342
3343 /* These should only appear in dynamic objects. */
3344 case R_PPC_COPY:
3345 case R_PPC_GLOB_DAT:
3346 case R_PPC_JMP_SLOT:
3347 case R_PPC_RELATIVE:
3348 break;
3349
3350 /* These aren't handled yet. We'll report an error later. */
3351 case R_PPC_ADDR30:
3352 case R_PPC_EMB_RELSEC16:
3353 case R_PPC_EMB_RELST_LO:
3354 case R_PPC_EMB_RELST_HI:
3355 case R_PPC_EMB_RELST_HA:
3356 case R_PPC_EMB_BIT_FLD:
3357 break;
3358
3359 /* This refers only to functions defined in the shared library. */
3360 case R_PPC_LOCAL24PC:
3361 if (h && h == htab->elf.hgot && htab->plt_type == PLT_UNSET)
3362 {
3363 htab->plt_type = PLT_OLD;
3364 htab->old_bfd = abfd;
3365 }
3366 break;
3367
3368 /* This relocation describes the C++ object vtable hierarchy.
3369 Reconstruct it for later use during GC. */
3370 case R_PPC_GNU_VTINHERIT:
3371 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
3372 return FALSE;
3373 break;
3374
3375 /* This relocation describes which C++ vtable entries are actually
3376 used. Record for later use during GC. */
3377 case R_PPC_GNU_VTENTRY:
3378 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
3379 return FALSE;
3380 break;
3381
3382 /* We shouldn't really be seeing these. */
3383 case R_PPC_TPREL32:
3384 if (info->shared)
3385 info->flags |= DF_STATIC_TLS;
3386 goto dodyn;
3387
3388 /* Nor these. */
3389 case R_PPC_DTPMOD32:
3390 case R_PPC_DTPREL32:
3391 goto dodyn;
3392
3393 case R_PPC_TPREL16:
3394 case R_PPC_TPREL16_LO:
3395 case R_PPC_TPREL16_HI:
3396 case R_PPC_TPREL16_HA:
3397 if (info->shared)
3398 info->flags |= DF_STATIC_TLS;
3399 goto dodyn;
3400
3401 case R_PPC_REL32:
3402 if (h == NULL
3403 && got2 != NULL
3404 && (sec->flags & SEC_CODE) != 0
3405 && (info->shared || info->pie)
3406 && htab->plt_type == PLT_UNSET)
3407 {
3408 /* Old -fPIC gcc code has .long LCTOC1-LCFx just before
3409 the start of a function, which assembles to a REL32
3410 reference to .got2. If we detect one of these, then
3411 force the old PLT layout because the linker cannot
3412 reliably deduce the GOT pointer value needed for
3413 PLT call stubs. */
3414 asection *s;
3415
3416 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec, sec,
3417 r_symndx);
3418 if (s == got2)
3419 {
3420 htab->plt_type = PLT_OLD;
3421 htab->old_bfd = abfd;
3422 }
3423 }
3424 if (h == NULL || h == htab->elf.hgot)
3425 break;
3426 goto dodyn1;
3427
3428 case R_PPC_REL24:
3429 case R_PPC_REL14:
3430 case R_PPC_REL14_BRTAKEN:
3431 case R_PPC_REL14_BRNTAKEN:
3432 if (h == NULL)
3433 break;
3434 if (h == htab->elf.hgot)
3435 {
3436 if (htab->plt_type == PLT_UNSET)
3437 {
3438 htab->plt_type = PLT_OLD;
3439 htab->old_bfd = abfd;
3440 }
3441 break;
3442 }
3443 /* fall through */
3444
3445 case R_PPC_ADDR32:
3446 case R_PPC_ADDR24:
3447 case R_PPC_ADDR16:
3448 case R_PPC_ADDR16_LO:
3449 case R_PPC_ADDR16_HI:
3450 case R_PPC_ADDR16_HA:
3451 case R_PPC_ADDR14:
3452 case R_PPC_ADDR14_BRTAKEN:
3453 case R_PPC_ADDR14_BRNTAKEN:
3454 case R_PPC_UADDR32:
3455 case R_PPC_UADDR16:
3456 dodyn1:
3457 if (h != NULL && !info->shared)
3458 {
3459 /* We may need a plt entry if the symbol turns out to be
3460 a function defined in a dynamic object. */
3461 if (!update_plt_info (abfd, h, NULL, 0))
3462 return FALSE;
3463
3464 /* We may need a copy reloc too. */
3465 h->non_got_ref = 1;
3466 }
3467
3468 dodyn:
3469 /* If we are creating a shared library, and this is a reloc
3470 against a global symbol, or a non PC relative reloc
3471 against a local symbol, then we need to copy the reloc
3472 into the shared library. However, if we are linking with
3473 -Bsymbolic, we do not need to copy a reloc against a
3474 global symbol which is defined in an object we are
3475 including in the link (i.e., DEF_REGULAR is set). At
3476 this point we have not seen all the input files, so it is
3477 possible that DEF_REGULAR is not set now but will be set
3478 later (it is never cleared). In case of a weak definition,
3479 DEF_REGULAR may be cleared later by a strong definition in
3480 a shared library. We account for that possibility below by
3481 storing information in the dyn_relocs field of the hash
3482 table entry. A similar situation occurs when creating
3483 shared libraries and symbol visibility changes render the
3484 symbol local.
3485
3486 If on the other hand, we are creating an executable, we
3487 may need to keep relocations for symbols satisfied by a
3488 dynamic library if we manage to avoid copy relocs for the
3489 symbol. */
3490 if ((info->shared
3491 && (MUST_BE_DYN_RELOC (r_type)
3492 || (h != NULL
3493 && (! info->symbolic
3494 || h->root.type == bfd_link_hash_defweak
3495 || !h->def_regular))))
3496 || (ELIMINATE_COPY_RELOCS
3497 && !info->shared
3498 && h != NULL
3499 && (h->root.type == bfd_link_hash_defweak
3500 || !h->def_regular)))
3501 {
3502 struct ppc_elf_dyn_relocs *p;
3503 struct ppc_elf_dyn_relocs **head;
3504
3505 #ifdef DEBUG
3506 fprintf (stderr,
3507 "ppc_elf_check_relocs needs to "
3508 "create relocation for %s\n",
3509 (h && h->root.root.string
3510 ? h->root.root.string : "<unknown>"));
3511 #endif
3512 if (sreloc == NULL)
3513 {
3514 const char *name;
3515
3516 name = (bfd_elf_string_from_elf_section
3517 (abfd,
3518 elf_elfheader (abfd)->e_shstrndx,
3519 elf_section_data (sec)->rel_hdr.sh_name));
3520 if (name == NULL)
3521 return FALSE;
3522
3523 BFD_ASSERT (CONST_STRNEQ (name, ".rela")
3524 && strcmp (bfd_get_section_name (abfd, sec),
3525 name + 5) == 0);
3526
3527 if (htab->elf.dynobj == NULL)
3528 htab->elf.dynobj = abfd;
3529 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
3530 if (sreloc == NULL)
3531 {
3532 flagword flags;
3533
3534 flags = (SEC_HAS_CONTENTS | SEC_READONLY
3535 | SEC_IN_MEMORY | SEC_LINKER_CREATED
3536 | SEC_ALLOC | SEC_LOAD);
3537 sreloc = bfd_make_section_with_flags (htab->elf.dynobj,
3538 name,
3539 flags);
3540 if (sreloc == NULL
3541 || ! bfd_set_section_alignment (htab->elf.dynobj,
3542 sreloc, 2))
3543 return FALSE;
3544 }
3545 elf_section_data (sec)->sreloc = sreloc;
3546 }
3547
3548 /* If this is a global symbol, we count the number of
3549 relocations we need for this symbol. */
3550 if (h != NULL)
3551 {
3552 head = &ppc_elf_hash_entry (h)->dyn_relocs;
3553 }
3554 else
3555 {
3556 /* Track dynamic relocs needed for local syms too.
3557 We really need local syms available to do this
3558 easily. Oh well. */
3559
3560 asection *s;
3561 void *vpp;
3562
3563 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
3564 sec, r_symndx);
3565 if (s == NULL)
3566 return FALSE;
3567
3568 vpp = &elf_section_data (s)->local_dynrel;
3569 head = (struct ppc_elf_dyn_relocs **) vpp;
3570 }
3571
3572 p = *head;
3573 if (p == NULL || p->sec != sec)
3574 {
3575 p = bfd_alloc (htab->elf.dynobj, sizeof *p);
3576 if (p == NULL)
3577 return FALSE;
3578 p->next = *head;
3579 *head = p;
3580 p->sec = sec;
3581 p->count = 0;
3582 p->pc_count = 0;
3583 }
3584
3585 p->count += 1;
3586 if (!MUST_BE_DYN_RELOC (r_type))
3587 p->pc_count += 1;
3588 }
3589
3590 break;
3591 }
3592 }
3593
3594 return TRUE;
3595 }
3596 \f
3597 /* Merge backend specific data from an object file to the output
3598 object file when linking. */
3599
3600 static bfd_boolean
3601 ppc_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
3602 {
3603 flagword old_flags;
3604 flagword new_flags;
3605 bfd_boolean error;
3606
3607 if (!is_ppc_elf_target (ibfd->xvec)
3608 || !is_ppc_elf_target (obfd->xvec))
3609 return TRUE;
3610
3611 /* Check if we have the same endianess. */
3612 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
3613 return FALSE;
3614
3615 new_flags = elf_elfheader (ibfd)->e_flags;
3616 old_flags = elf_elfheader (obfd)->e_flags;
3617 if (!elf_flags_init (obfd))
3618 {
3619 /* First call, no flags set. */
3620 elf_flags_init (obfd) = TRUE;
3621 elf_elfheader (obfd)->e_flags = new_flags;
3622 }
3623
3624 /* Compatible flags are ok. */
3625 else if (new_flags == old_flags)
3626 ;
3627
3628 /* Incompatible flags. */
3629 else
3630 {
3631 /* Warn about -mrelocatable mismatch. Allow -mrelocatable-lib
3632 to be linked with either. */
3633 error = FALSE;
3634 if ((new_flags & EF_PPC_RELOCATABLE) != 0
3635 && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
3636 {
3637 error = TRUE;
3638 (*_bfd_error_handler)
3639 (_("%B: compiled with -mrelocatable and linked with "
3640 "modules compiled normally"), ibfd);
3641 }
3642 else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
3643 && (old_flags & EF_PPC_RELOCATABLE) != 0)
3644 {
3645 error = TRUE;
3646 (*_bfd_error_handler)
3647 (_("%B: compiled normally and linked with "
3648 "modules compiled with -mrelocatable"), ibfd);
3649 }
3650
3651 /* The output is -mrelocatable-lib iff both the input files are. */
3652 if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
3653 elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
3654
3655 /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
3656 but each input file is either -mrelocatable or -mrelocatable-lib. */
3657 if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
3658 && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
3659 && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
3660 elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
3661
3662 /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if
3663 any module uses it. */
3664 elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
3665
3666 new_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
3667 old_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
3668
3669 /* Warn about any other mismatches. */
3670 if (new_flags != old_flags)
3671 {
3672 error = TRUE;
3673 (*_bfd_error_handler)
3674 (_("%B: uses different e_flags (0x%lx) fields "
3675 "than previous modules (0x%lx)"),
3676 ibfd, (long) new_flags, (long) old_flags);
3677 }
3678
3679 if (error)
3680 {
3681 bfd_set_error (bfd_error_bad_value);
3682 return FALSE;
3683 }
3684 }
3685
3686 return TRUE;
3687 }
3688 \f
3689 /* Choose which PLT scheme to use, and set .plt flags appropriately.
3690 Returns -1 on error, 0 for old PLT, 1 for new PLT. */
3691 int
3692 ppc_elf_select_plt_layout (bfd *output_bfd ATTRIBUTE_UNUSED,
3693 struct bfd_link_info *info,
3694 enum ppc_elf_plt_type plt_style,
3695 int emit_stub_syms)
3696 {
3697 struct ppc_elf_link_hash_table *htab;
3698 flagword flags;
3699
3700 htab = ppc_elf_hash_table (info);
3701
3702 if (htab->plt_type == PLT_UNSET)
3703 {
3704 if (plt_style == PLT_OLD)
3705 htab->plt_type = PLT_OLD;
3706 else
3707 {
3708 bfd *ibfd;
3709 enum ppc_elf_plt_type plt_type = plt_style;
3710
3711 /* Look through the reloc flags left by ppc_elf_check_relocs.
3712 Use the old style bss plt if a file makes plt calls
3713 without using the new relocs, and if ld isn't given
3714 --secure-plt and we never see REL16 relocs. */
3715 if (plt_type == PLT_UNSET)
3716 plt_type = PLT_OLD;
3717 for (ibfd = info->input_bfds; ibfd; ibfd = ibfd->link_next)
3718 if (is_ppc_elf_target (ibfd->xvec))
3719 {
3720 if (ppc_elf_tdata (ibfd)->has_rel16)
3721 plt_type = PLT_NEW;
3722 else if (ppc_elf_tdata (ibfd)->makes_plt_call)
3723 {
3724 plt_type = PLT_OLD;
3725 htab->old_bfd = ibfd;
3726 break;
3727 }
3728 }
3729 htab->plt_type = plt_type;
3730 }
3731 }
3732 if (htab->plt_type == PLT_OLD && plt_style == PLT_NEW)
3733 info->callbacks->info (_("Using bss-plt due to %B"), htab->old_bfd);
3734
3735 htab->emit_stub_syms = emit_stub_syms;
3736
3737 BFD_ASSERT (htab->plt_type != PLT_VXWORKS);
3738
3739 if (htab->plt_type == PLT_NEW)
3740 {
3741 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
3742 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3743
3744 /* The new PLT is a loaded section. */
3745 if (htab->plt != NULL
3746 && !bfd_set_section_flags (htab->elf.dynobj, htab->plt, flags))
3747 return -1;
3748
3749 /* The new GOT is not executable. */
3750 if (htab->got != NULL
3751 && !bfd_set_section_flags (htab->elf.dynobj, htab->got, flags))
3752 return -1;
3753 }
3754 else
3755 {
3756 /* Stop an unused .glink section from affecting .text alignment. */
3757 if (htab->glink != NULL
3758 && !bfd_set_section_alignment (htab->elf.dynobj, htab->glink, 0))
3759 return -1;
3760 }
3761 return htab->plt_type == PLT_NEW;
3762 }
3763 \f
3764 /* Return the section that should be marked against GC for a given
3765 relocation. */
3766
3767 static asection *
3768 ppc_elf_gc_mark_hook (asection *sec,
3769 struct bfd_link_info *info,
3770 Elf_Internal_Rela *rel,
3771 struct elf_link_hash_entry *h,
3772 Elf_Internal_Sym *sym)
3773 {
3774 if (h != NULL)
3775 switch (ELF32_R_TYPE (rel->r_info))
3776 {
3777 case R_PPC_GNU_VTINHERIT:
3778 case R_PPC_GNU_VTENTRY:
3779 return NULL;
3780 }
3781
3782 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
3783 }
3784
3785 /* Update the got, plt and dynamic reloc reference counts for the
3786 section being removed. */
3787
3788 static bfd_boolean
3789 ppc_elf_gc_sweep_hook (bfd *abfd,
3790 struct bfd_link_info *info,
3791 asection *sec,
3792 const Elf_Internal_Rela *relocs)
3793 {
3794 struct ppc_elf_link_hash_table *htab;
3795 Elf_Internal_Shdr *symtab_hdr;
3796 struct elf_link_hash_entry **sym_hashes;
3797 bfd_signed_vma *local_got_refcounts;
3798 const Elf_Internal_Rela *rel, *relend;
3799 asection *got2;
3800
3801 if ((sec->flags & SEC_ALLOC) == 0)
3802 return TRUE;
3803
3804 elf_section_data (sec)->local_dynrel = NULL;
3805
3806 htab = ppc_elf_hash_table (info);
3807 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3808 sym_hashes = elf_sym_hashes (abfd);
3809 local_got_refcounts = elf_local_got_refcounts (abfd);
3810 got2 = bfd_get_section_by_name (abfd, ".got2");
3811
3812 relend = relocs + sec->reloc_count;
3813 for (rel = relocs; rel < relend; rel++)
3814 {
3815 unsigned long r_symndx;
3816 enum elf_ppc_reloc_type r_type;
3817 struct elf_link_hash_entry *h = NULL;
3818
3819 r_symndx = ELF32_R_SYM (rel->r_info);
3820 if (r_symndx >= symtab_hdr->sh_info)
3821 {
3822 struct ppc_elf_dyn_relocs **pp, *p;
3823 struct ppc_elf_link_hash_entry *eh;
3824
3825 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3826 while (h->root.type == bfd_link_hash_indirect
3827 || h->root.type == bfd_link_hash_warning)
3828 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3829 eh = (struct ppc_elf_link_hash_entry *) h;
3830
3831 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
3832 if (p->sec == sec)
3833 {
3834 /* Everything must go for SEC. */
3835 *pp = p->next;
3836 break;
3837 }
3838 }
3839
3840 r_type = ELF32_R_TYPE (rel->r_info);
3841 switch (r_type)
3842 {
3843 case R_PPC_GOT_TLSLD16:
3844 case R_PPC_GOT_TLSLD16_LO:
3845 case R_PPC_GOT_TLSLD16_HI:
3846 case R_PPC_GOT_TLSLD16_HA:
3847 htab->tlsld_got.refcount -= 1;
3848 /* Fall thru */
3849
3850 case R_PPC_GOT_TLSGD16:
3851 case R_PPC_GOT_TLSGD16_LO:
3852 case R_PPC_GOT_TLSGD16_HI:
3853 case R_PPC_GOT_TLSGD16_HA:
3854 case R_PPC_GOT_TPREL16:
3855 case R_PPC_GOT_TPREL16_LO:
3856 case R_PPC_GOT_TPREL16_HI:
3857 case R_PPC_GOT_TPREL16_HA:
3858 case R_PPC_GOT_DTPREL16:
3859 case R_PPC_GOT_DTPREL16_LO:
3860 case R_PPC_GOT_DTPREL16_HI:
3861 case R_PPC_GOT_DTPREL16_HA:
3862 case R_PPC_GOT16:
3863 case R_PPC_GOT16_LO:
3864 case R_PPC_GOT16_HI:
3865 case R_PPC_GOT16_HA:
3866 if (h != NULL)
3867 {
3868 if (h->got.refcount > 0)
3869 h->got.refcount--;
3870 }
3871 else if (local_got_refcounts != NULL)
3872 {
3873 if (local_got_refcounts[r_symndx] > 0)
3874 local_got_refcounts[r_symndx]--;
3875 }
3876 break;
3877
3878 case R_PPC_REL24:
3879 case R_PPC_REL14:
3880 case R_PPC_REL14_BRTAKEN:
3881 case R_PPC_REL14_BRNTAKEN:
3882 case R_PPC_REL32:
3883 if (h == NULL || h == htab->elf.hgot)
3884 break;
3885 /* Fall thru */
3886
3887 case R_PPC_ADDR32:
3888 case R_PPC_ADDR24:
3889 case R_PPC_ADDR16:
3890 case R_PPC_ADDR16_LO:
3891 case R_PPC_ADDR16_HI:
3892 case R_PPC_ADDR16_HA:
3893 case R_PPC_ADDR14:
3894 case R_PPC_ADDR14_BRTAKEN:
3895 case R_PPC_ADDR14_BRNTAKEN:
3896 case R_PPC_UADDR32:
3897 case R_PPC_UADDR16:
3898 if (info->shared)
3899 break;
3900
3901 case R_PPC_PLT32:
3902 case R_PPC_PLTREL24:
3903 case R_PPC_PLTREL32:
3904 case R_PPC_PLT16_LO:
3905 case R_PPC_PLT16_HI:
3906 case R_PPC_PLT16_HA:
3907 if (h != NULL)
3908 {
3909 bfd_vma addend = r_type == R_PPC_PLTREL24 ? rel->r_addend : 0;
3910 struct plt_entry *ent = find_plt_ent (h, got2, addend);
3911 if (ent->plt.refcount > 0)
3912 ent->plt.refcount -= 1;
3913 }
3914 break;
3915
3916 default:
3917 break;
3918 }
3919 }
3920 return TRUE;
3921 }
3922 \f
3923 /* Set htab->tls_get_addr and call the generic ELF tls_setup function. */
3924
3925 asection *
3926 ppc_elf_tls_setup (bfd *obfd, struct bfd_link_info *info)
3927 {
3928 struct ppc_elf_link_hash_table *htab;
3929
3930 htab = ppc_elf_hash_table (info);
3931 if (htab->plt_type == PLT_NEW
3932 && htab->plt != NULL
3933 && htab->plt->output_section != NULL)
3934 {
3935 elf_section_type (htab->plt->output_section) = SHT_PROGBITS;
3936 elf_section_flags (htab->plt->output_section) = SHF_ALLOC + SHF_WRITE;
3937 }
3938
3939 htab->tls_get_addr = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
3940 FALSE, FALSE, TRUE);
3941 return _bfd_elf_tls_setup (obfd, info);
3942 }
3943
3944 /* Run through all the TLS relocs looking for optimization
3945 opportunities. */
3946
3947 bfd_boolean
3948 ppc_elf_tls_optimize (bfd *obfd ATTRIBUTE_UNUSED,
3949 struct bfd_link_info *info)
3950 {
3951 bfd *ibfd;
3952 asection *sec;
3953 struct ppc_elf_link_hash_table *htab;
3954
3955 if (info->relocatable || info->shared)
3956 return TRUE;
3957
3958 htab = ppc_elf_hash_table (info);
3959 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
3960 {
3961 Elf_Internal_Sym *locsyms = NULL;
3962 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3963
3964 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
3965 if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
3966 {
3967 Elf_Internal_Rela *relstart, *rel, *relend;
3968 int expecting_tls_get_addr;
3969
3970 /* Read the relocations. */
3971 relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
3972 info->keep_memory);
3973 if (relstart == NULL)
3974 return FALSE;
3975
3976 expecting_tls_get_addr = 0;
3977 relend = relstart + sec->reloc_count;
3978 for (rel = relstart; rel < relend; rel++)
3979 {
3980 enum elf_ppc_reloc_type r_type;
3981 unsigned long r_symndx;
3982 struct elf_link_hash_entry *h = NULL;
3983 char *tls_mask;
3984 char tls_set, tls_clear;
3985 bfd_boolean is_local;
3986
3987 r_symndx = ELF32_R_SYM (rel->r_info);
3988 if (r_symndx >= symtab_hdr->sh_info)
3989 {
3990 struct elf_link_hash_entry **sym_hashes;
3991
3992 sym_hashes = elf_sym_hashes (ibfd);
3993 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3994 while (h->root.type == bfd_link_hash_indirect
3995 || h->root.type == bfd_link_hash_warning)
3996 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3997 }
3998
3999 is_local = FALSE;
4000 if (h == NULL
4001 || !h->def_dynamic)
4002 is_local = TRUE;
4003
4004 r_type = ELF32_R_TYPE (rel->r_info);
4005 switch (r_type)
4006 {
4007 case R_PPC_GOT_TLSLD16:
4008 case R_PPC_GOT_TLSLD16_LO:
4009 case R_PPC_GOT_TLSLD16_HI:
4010 case R_PPC_GOT_TLSLD16_HA:
4011 /* These relocs should never be against a symbol
4012 defined in a shared lib. Leave them alone if
4013 that turns out to be the case. */
4014 expecting_tls_get_addr = 0;
4015 htab->tlsld_got.refcount -= 1;
4016 if (!is_local)
4017 continue;
4018
4019 /* LD -> LE */
4020 tls_set = 0;
4021 tls_clear = TLS_LD;
4022 expecting_tls_get_addr = 1;
4023 break;
4024
4025 case R_PPC_GOT_TLSGD16:
4026 case R_PPC_GOT_TLSGD16_LO:
4027 case R_PPC_GOT_TLSGD16_HI:
4028 case R_PPC_GOT_TLSGD16_HA:
4029 if (is_local)
4030 /* GD -> LE */
4031 tls_set = 0;
4032 else
4033 /* GD -> IE */
4034 tls_set = TLS_TLS | TLS_TPRELGD;
4035 tls_clear = TLS_GD;
4036 expecting_tls_get_addr = 1;
4037 break;
4038
4039 case R_PPC_GOT_TPREL16:
4040 case R_PPC_GOT_TPREL16_LO:
4041 case R_PPC_GOT_TPREL16_HI:
4042 case R_PPC_GOT_TPREL16_HA:
4043 expecting_tls_get_addr = 0;
4044 if (is_local)
4045 {
4046 /* IE -> LE */
4047 tls_set = 0;
4048 tls_clear = TLS_TPREL;
4049 break;
4050 }
4051 else
4052 continue;
4053
4054 case R_PPC_REL14:
4055 case R_PPC_REL14_BRTAKEN:
4056 case R_PPC_REL14_BRNTAKEN:
4057 case R_PPC_REL24:
4058 if (expecting_tls_get_addr
4059 && h != NULL
4060 && h == htab->tls_get_addr)
4061 {
4062 struct plt_entry *ent = find_plt_ent (h, NULL, 0);
4063 if (ent != NULL && ent->plt.refcount > 0)
4064 ent->plt.refcount -= 1;
4065 }
4066 expecting_tls_get_addr = 0;
4067 continue;
4068
4069 default:
4070 expecting_tls_get_addr = 0;
4071 continue;
4072 }
4073
4074 if (h != NULL)
4075 {
4076 if (tls_set == 0)
4077 {
4078 /* We managed to get rid of a got entry. */
4079 if (h->got.refcount > 0)
4080 h->got.refcount -= 1;
4081 }
4082 tls_mask = &ppc_elf_hash_entry (h)->tls_mask;
4083 }
4084 else
4085 {
4086 Elf_Internal_Sym *sym;
4087 bfd_signed_vma *lgot_refs;
4088 char *lgot_masks;
4089
4090 if (locsyms == NULL)
4091 {
4092 locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
4093 if (locsyms == NULL)
4094 locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
4095 symtab_hdr->sh_info,
4096 0, NULL, NULL, NULL);
4097 if (locsyms == NULL)
4098 {
4099 if (elf_section_data (sec)->relocs != relstart)
4100 free (relstart);
4101 return FALSE;
4102 }
4103 }
4104 sym = locsyms + r_symndx;
4105 lgot_refs = elf_local_got_refcounts (ibfd);
4106 if (lgot_refs == NULL)
4107 abort ();
4108 if (tls_set == 0)
4109 {
4110 /* We managed to get rid of a got entry. */
4111 if (lgot_refs[r_symndx] > 0)
4112 lgot_refs[r_symndx] -= 1;
4113 }
4114 lgot_masks = (char *) (lgot_refs + symtab_hdr->sh_info);
4115 tls_mask = &lgot_masks[r_symndx];
4116 }
4117
4118 *tls_mask |= tls_set;
4119 *tls_mask &= ~tls_clear;
4120 }
4121
4122 if (elf_section_data (sec)->relocs != relstart)
4123 free (relstart);
4124 }
4125
4126 if (locsyms != NULL
4127 && (symtab_hdr->contents != (unsigned char *) locsyms))
4128 {
4129 if (!info->keep_memory)
4130 free (locsyms);
4131 else
4132 symtab_hdr->contents = (unsigned char *) locsyms;
4133 }
4134 }
4135 return TRUE;
4136 }
4137 \f
4138 /* Adjust a symbol defined by a dynamic object and referenced by a
4139 regular object. The current definition is in some section of the
4140 dynamic object, but we're not including those sections. We have to
4141 change the definition to something the rest of the link can
4142 understand. */
4143
4144 static bfd_boolean
4145 ppc_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
4146 struct elf_link_hash_entry *h)
4147 {
4148 struct ppc_elf_link_hash_table *htab;
4149 asection *s;
4150
4151 #ifdef DEBUG
4152 fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n",
4153 h->root.root.string);
4154 #endif
4155
4156 /* Make sure we know what is going on here. */
4157 htab = ppc_elf_hash_table (info);
4158 BFD_ASSERT (htab->elf.dynobj != NULL
4159 && (h->needs_plt
4160 || h->u.weakdef != NULL
4161 || (h->def_dynamic
4162 && h->ref_regular
4163 && !h->def_regular)));
4164
4165 /* Deal with function syms. */
4166 if (h->type == STT_FUNC
4167 || h->needs_plt)
4168 {
4169 /* Clear procedure linkage table information for any symbol that
4170 won't need a .plt entry. */
4171 struct plt_entry *ent;
4172 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
4173 if (ent->plt.refcount > 0)
4174 break;
4175 if (ent == NULL
4176 || SYMBOL_CALLS_LOCAL (info, h)
4177 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
4178 && h->root.type == bfd_link_hash_undefweak))
4179 {
4180 /* A PLT entry is not required/allowed when:
4181
4182 1. We are not using ld.so; because then the PLT entry
4183 can't be set up, so we can't use one. In this case,
4184 ppc_elf_adjust_dynamic_symbol won't even be called.
4185
4186 2. GC has rendered the entry unused.
4187
4188 3. We know for certain that a call to this symbol
4189 will go to this object, or will remain undefined. */
4190 h->plt.plist = NULL;
4191 h->needs_plt = 0;
4192 }
4193 return TRUE;
4194 }
4195 else
4196 h->plt.plist = NULL;
4197
4198 /* If this is a weak symbol, and there is a real definition, the
4199 processor independent code will have arranged for us to see the
4200 real definition first, and we can just use the same value. */
4201 if (h->u.weakdef != NULL)
4202 {
4203 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4204 || h->u.weakdef->root.type == bfd_link_hash_defweak);
4205 h->root.u.def.section = h->u.weakdef->root.u.def.section;
4206 h->root.u.def.value = h->u.weakdef->root.u.def.value;
4207 if (ELIMINATE_COPY_RELOCS)
4208 h->non_got_ref = h->u.weakdef->non_got_ref;
4209 return TRUE;
4210 }
4211
4212 /* This is a reference to a symbol defined by a dynamic object which
4213 is not a function. */
4214
4215 /* If we are creating a shared library, we must presume that the
4216 only references to the symbol are via the global offset table.
4217 For such cases we need not do anything here; the relocations will
4218 be handled correctly by relocate_section. */
4219 if (info->shared)
4220 return TRUE;
4221
4222 /* If there are no references to this symbol that do not use the
4223 GOT, we don't need to generate a copy reloc. */
4224 if (!h->non_got_ref)
4225 return TRUE;
4226
4227 /* If we didn't find any dynamic relocs in read-only sections, then we'll
4228 be keeping the dynamic relocs and avoiding the copy reloc. We can't
4229 do this if there are any small data relocations. */
4230 if (ELIMINATE_COPY_RELOCS
4231 && !ppc_elf_hash_entry (h)->has_sda_refs)
4232 {
4233 struct ppc_elf_dyn_relocs *p;
4234 for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
4235 {
4236 s = p->sec->output_section;
4237 if (s != NULL && (s->flags & SEC_READONLY) != 0)
4238 break;
4239 }
4240
4241 if (p == NULL)
4242 {
4243 h->non_got_ref = 0;
4244 return TRUE;
4245 }
4246 }
4247
4248 if (h->size == 0)
4249 {
4250 (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
4251 h->root.root.string);
4252 return TRUE;
4253 }
4254
4255 /* We must allocate the symbol in our .dynbss section, which will
4256 become part of the .bss section of the executable. There will be
4257 an entry for this symbol in the .dynsym section. The dynamic
4258 object will contain position independent code, so all references
4259 from the dynamic object to this symbol will go through the global
4260 offset table. The dynamic linker will use the .dynsym entry to
4261 determine the address it must put in the global offset table, so
4262 both the dynamic object and the regular object will refer to the
4263 same memory location for the variable.
4264
4265 Of course, if the symbol is referenced using SDAREL relocs, we
4266 must instead allocate it in .sbss. */
4267
4268 if (ppc_elf_hash_entry (h)->has_sda_refs)
4269 s = htab->dynsbss;
4270 else
4271 s = htab->dynbss;
4272 BFD_ASSERT (s != NULL);
4273
4274 /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
4275 copy the initial value out of the dynamic object and into the
4276 runtime process image. We need to remember the offset into the
4277 .rela.bss section we are going to use. */
4278 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
4279 {
4280 asection *srel;
4281
4282 if (ppc_elf_hash_entry (h)->has_sda_refs)
4283 srel = htab->relsbss;
4284 else
4285 srel = htab->relbss;
4286 BFD_ASSERT (srel != NULL);
4287 srel->size += sizeof (Elf32_External_Rela);
4288 h->needs_copy = 1;
4289 }
4290
4291 return _bfd_elf_adjust_dynamic_copy (h, s);
4292 }
4293 \f
4294 /* Generate a symbol to mark plt call stubs. For non-PIC code the sym is
4295 xxxxxxxx.plt_call32.<callee> where xxxxxxxx is a hex number, usually 0,
4296 specifying the addend on the plt relocation. For -fpic code, the sym
4297 is xxxxxxxx.plt_pic32.<callee>, and for -fPIC
4298 xxxxxxxx.got2.plt_pic32.<callee>. */
4299
4300 static bfd_boolean
4301 add_stub_sym (struct plt_entry *ent,
4302 struct elf_link_hash_entry *h,
4303 struct bfd_link_info *info)
4304 {
4305 struct elf_link_hash_entry *sh;
4306 size_t len1, len2, len3;
4307 char *name;
4308 const char *stub;
4309 struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
4310
4311 if (info->shared || info->pie)
4312 stub = ".plt_pic32.";
4313 else
4314 stub = ".plt_call32.";
4315
4316 len1 = strlen (h->root.root.string);
4317 len2 = strlen (stub);
4318 len3 = 0;
4319 if (ent->sec)
4320 len3 = strlen (ent->sec->name);
4321 name = bfd_malloc (len1 + len2 + len3 + 9);
4322 if (name == NULL)
4323 return FALSE;
4324 sprintf (name, "%08x", (unsigned) ent->addend & 0xffffffff);
4325 if (ent->sec)
4326 memcpy (name + 8, ent->sec->name, len3);
4327 memcpy (name + 8 + len3, stub, len2);
4328 memcpy (name + 8 + len3 + len2, h->root.root.string, len1 + 1);
4329 sh = elf_link_hash_lookup (&htab->elf, name, TRUE, FALSE, FALSE);
4330 if (sh == NULL)
4331 return FALSE;
4332 if (sh->root.type == bfd_link_hash_new)
4333 {
4334 sh->root.type = bfd_link_hash_defined;
4335 sh->root.u.def.section = htab->glink;
4336 sh->root.u.def.value = ent->glink_offset;
4337 sh->ref_regular = 1;
4338 sh->def_regular = 1;
4339 sh->ref_regular_nonweak = 1;
4340 sh->forced_local = 1;
4341 sh->non_elf = 0;
4342 }
4343 return TRUE;
4344 }
4345
4346 /* Allocate NEED contiguous space in .got, and return the offset.
4347 Handles allocation of the got header when crossing 32k. */
4348
4349 static bfd_vma
4350 allocate_got (struct ppc_elf_link_hash_table *htab, unsigned int need)
4351 {
4352 bfd_vma where;
4353 unsigned int max_before_header;
4354
4355 if (htab->plt_type == PLT_VXWORKS)
4356 {
4357 where = htab->got->size;
4358 htab->got->size += need;
4359 }
4360 else
4361 {
4362 max_before_header = htab->plt_type == PLT_NEW ? 32768 : 32764;
4363 if (need <= htab->got_gap)
4364 {
4365 where = max_before_header - htab->got_gap;
4366 htab->got_gap -= need;
4367 }
4368 else
4369 {
4370 if (htab->got->size + need > max_before_header
4371 && htab->got->size <= max_before_header)
4372 {
4373 htab->got_gap = max_before_header - htab->got->size;
4374 htab->got->size = max_before_header + htab->got_header_size;
4375 }
4376 where = htab->got->size;
4377 htab->got->size += need;
4378 }
4379 }
4380 return where;
4381 }
4382
4383 /* Allocate space in associated reloc sections for dynamic relocs. */
4384
4385 static bfd_boolean
4386 allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
4387 {
4388 struct bfd_link_info *info = inf;
4389 struct ppc_elf_link_hash_entry *eh;
4390 struct ppc_elf_link_hash_table *htab;
4391 struct ppc_elf_dyn_relocs *p;
4392
4393 if (h->root.type == bfd_link_hash_indirect)
4394 return TRUE;
4395
4396 if (h->root.type == bfd_link_hash_warning)
4397 /* When warning symbols are created, they **replace** the "real"
4398 entry in the hash table, thus we never get to see the real
4399 symbol in a hash traversal. So look at it now. */
4400 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4401
4402 htab = ppc_elf_hash_table (info);
4403 if (htab->elf.dynamic_sections_created)
4404 {
4405 struct plt_entry *ent;
4406 bfd_boolean doneone = FALSE;
4407 bfd_vma plt_offset = 0, glink_offset = 0;
4408
4409 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
4410 if (ent->plt.refcount > 0)
4411 {
4412 /* Make sure this symbol is output as a dynamic symbol. */
4413 if (h->dynindx == -1
4414 && !h->forced_local)
4415 {
4416 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4417 return FALSE;
4418 }
4419
4420 if (info->shared
4421 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
4422 {
4423 asection *s = htab->plt;
4424
4425 if (htab->plt_type == PLT_NEW)
4426 {
4427 if (!doneone)
4428 {
4429 plt_offset = s->size;
4430 s->size += 4;
4431 }
4432 ent->plt.offset = plt_offset;
4433
4434 s = htab->glink;
4435 if (!doneone || info->shared || info->pie)
4436 {
4437 glink_offset = s->size;
4438 s->size += GLINK_ENTRY_SIZE;
4439 }
4440 if (!doneone
4441 && !info->shared
4442 && !h->def_regular)
4443 {
4444 h->root.u.def.section = s;
4445 h->root.u.def.value = glink_offset;
4446 }
4447 ent->glink_offset = glink_offset;
4448
4449 if (htab->emit_stub_syms
4450 && !add_stub_sym (ent, h, info))
4451 return FALSE;
4452 }
4453 else
4454 {
4455 if (!doneone)
4456 {
4457 /* If this is the first .plt entry, make room
4458 for the special first entry. */
4459 if (s->size == 0)
4460 s->size += htab->plt_initial_entry_size;
4461
4462 /* The PowerPC PLT is actually composed of two
4463 parts, the first part is 2 words (for a load
4464 and a jump), and then there is a remaining
4465 word available at the end. */
4466 plt_offset = (htab->plt_initial_entry_size
4467 + (htab->plt_slot_size
4468 * ((s->size
4469 - htab->plt_initial_entry_size)
4470 / htab->plt_entry_size)));
4471
4472 /* If this symbol is not defined in a regular
4473 file, and we are not generating a shared
4474 library, then set the symbol to this location
4475 in the .plt. This is required to make
4476 function pointers compare as equal between
4477 the normal executable and the shared library. */
4478 if (! info->shared
4479 && !h->def_regular)
4480 {
4481 h->root.u.def.section = s;
4482 h->root.u.def.value = plt_offset;
4483 }
4484
4485 /* Make room for this entry. */
4486 s->size += htab->plt_entry_size;
4487 /* After the 8192nd entry, room for two entries
4488 is allocated. */
4489 if (htab->plt_type == PLT_OLD
4490 && (s->size - htab->plt_initial_entry_size)
4491 / htab->plt_entry_size
4492 > PLT_NUM_SINGLE_ENTRIES)
4493 s->size += htab->plt_entry_size;
4494 }
4495 ent->plt.offset = plt_offset;
4496 }
4497
4498 /* We also need to make an entry in the .rela.plt section. */
4499 if (!doneone)
4500 {
4501 htab->relplt->size += sizeof (Elf32_External_Rela);
4502
4503 if (htab->plt_type == PLT_VXWORKS)
4504 {
4505 /* Allocate space for the unloaded relocations. */
4506 if (!info->shared)
4507 {
4508 if (ent->plt.offset
4509 == (bfd_vma) htab->plt_initial_entry_size)
4510 {
4511 htab->srelplt2->size
4512 += sizeof (Elf32_External_Rela)
4513 * VXWORKS_PLTRESOLVE_RELOCS;
4514 }
4515
4516 htab->srelplt2->size
4517 += sizeof (Elf32_External_Rela)
4518 * VXWORKS_PLT_NON_JMP_SLOT_RELOCS;
4519 }
4520
4521 /* Every PLT entry has an associated GOT entry in
4522 .got.plt. */
4523 htab->sgotplt->size += 4;
4524 }
4525 doneone = TRUE;
4526 }
4527 }
4528 else
4529 ent->plt.offset = (bfd_vma) -1;
4530 }
4531 else
4532 ent->plt.offset = (bfd_vma) -1;
4533
4534 if (!doneone)
4535 {
4536 h->plt.plist = NULL;
4537 h->needs_plt = 0;
4538 }
4539 }
4540 else
4541 {
4542 h->plt.plist = NULL;
4543 h->needs_plt = 0;
4544 }
4545
4546 eh = (struct ppc_elf_link_hash_entry *) h;
4547 if (eh->elf.got.refcount > 0)
4548 {
4549 /* Make sure this symbol is output as a dynamic symbol. */
4550 if (eh->elf.dynindx == -1
4551 && !eh->elf.forced_local)
4552 {
4553 if (!bfd_elf_link_record_dynamic_symbol (info, &eh->elf))
4554 return FALSE;
4555 }
4556
4557 if (eh->tls_mask == (TLS_TLS | TLS_LD)
4558 && !eh->elf.def_dynamic)
4559 /* If just an LD reloc, we'll just use htab->tlsld_got.offset. */
4560 eh->elf.got.offset = (bfd_vma) -1;
4561 else
4562 {
4563 bfd_boolean dyn;
4564 unsigned int need = 0;
4565 if ((eh->tls_mask & TLS_TLS) != 0)
4566 {
4567 if ((eh->tls_mask & TLS_LD) != 0)
4568 need += 8;
4569 if ((eh->tls_mask & TLS_GD) != 0)
4570 need += 8;
4571 if ((eh->tls_mask & (TLS_TPREL | TLS_TPRELGD)) != 0)
4572 need += 4;
4573 if ((eh->tls_mask & TLS_DTPREL) != 0)
4574 need += 4;
4575 }
4576 else
4577 need += 4;
4578 eh->elf.got.offset = allocate_got (htab, need);
4579 dyn = htab->elf.dynamic_sections_created;
4580 if ((info->shared
4581 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, &eh->elf))
4582 && (ELF_ST_VISIBILITY (eh->elf.other) == STV_DEFAULT
4583 || eh->elf.root.type != bfd_link_hash_undefweak))
4584 {
4585 /* All the entries we allocated need relocs.
4586 Except LD only needs one. */
4587 if ((eh->tls_mask & TLS_LD) != 0)
4588 need -= 4;
4589 htab->relgot->size += need * (sizeof (Elf32_External_Rela) / 4);
4590 }
4591 }
4592 }
4593 else
4594 eh->elf.got.offset = (bfd_vma) -1;
4595
4596 if (eh->dyn_relocs == NULL)
4597 return TRUE;
4598
4599 /* In the shared -Bsymbolic case, discard space allocated for
4600 dynamic pc-relative relocs against symbols which turn out to be
4601 defined in regular objects. For the normal shared case, discard
4602 space for relocs that have become local due to symbol visibility
4603 changes. */
4604
4605 if (info->shared)
4606 {
4607 /* Relocs that use pc_count are those that appear on a call insn,
4608 or certain REL relocs (see MUST_BE_DYN_RELOC) that can be
4609 generated via assembly. We want calls to protected symbols to
4610 resolve directly to the function rather than going via the plt.
4611 If people want function pointer comparisons to work as expected
4612 then they should avoid writing weird assembly. */
4613 if (SYMBOL_CALLS_LOCAL (info, h))
4614 {
4615 struct ppc_elf_dyn_relocs **pp;
4616
4617 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
4618 {
4619 p->count -= p->pc_count;
4620 p->pc_count = 0;
4621 if (p->count == 0)
4622 *pp = p->next;
4623 else
4624 pp = &p->next;
4625 }
4626 }
4627
4628 /* Also discard relocs on undefined weak syms with non-default
4629 visibility. */
4630 if (eh->dyn_relocs != NULL
4631 && h->root.type == bfd_link_hash_undefweak)
4632 {
4633 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
4634 eh->dyn_relocs = NULL;
4635
4636 /* Make sure undefined weak symbols are output as a dynamic
4637 symbol in PIEs. */
4638 else if (h->dynindx == -1
4639 && !h->forced_local)
4640 {
4641 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4642 return FALSE;
4643 }
4644 }
4645 }
4646 else if (ELIMINATE_COPY_RELOCS)
4647 {
4648 /* For the non-shared case, discard space for relocs against
4649 symbols which turn out to need copy relocs or are not
4650 dynamic. */
4651
4652 if (!h->non_got_ref
4653 && h->def_dynamic
4654 && !h->def_regular)
4655 {
4656 /* Make sure this symbol is output as a dynamic symbol.
4657 Undefined weak syms won't yet be marked as dynamic. */
4658 if (h->dynindx == -1
4659 && !h->forced_local)
4660 {
4661 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4662 return FALSE;
4663 }
4664
4665 /* If that succeeded, we know we'll be keeping all the
4666 relocs. */
4667 if (h->dynindx != -1)
4668 goto keep;
4669 }
4670
4671 eh->dyn_relocs = NULL;
4672
4673 keep: ;
4674 }
4675
4676 /* Finally, allocate space. */
4677 for (p = eh->dyn_relocs; p != NULL; p = p->next)
4678 {
4679 asection *sreloc = elf_section_data (p->sec)->sreloc;
4680 sreloc->size += p->count * sizeof (Elf32_External_Rela);
4681 }
4682
4683 return TRUE;
4684 }
4685
4686 /* Find any dynamic relocs that apply to read-only sections. */
4687
4688 static bfd_boolean
4689 readonly_dynrelocs (struct elf_link_hash_entry *h, void *info)
4690 {
4691 struct ppc_elf_dyn_relocs *p;
4692
4693 if (h->root.type == bfd_link_hash_indirect)
4694 return TRUE;
4695
4696 if (h->root.type == bfd_link_hash_warning)
4697 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4698
4699 for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
4700 {
4701 asection *s = p->sec->output_section;
4702
4703 if (s != NULL
4704 && ((s->flags & (SEC_READONLY | SEC_ALLOC))
4705 == (SEC_READONLY | SEC_ALLOC)))
4706 {
4707 ((struct bfd_link_info *) info)->flags |= DF_TEXTREL;
4708
4709 /* Not an error, just cut short the traversal. */
4710 return FALSE;
4711 }
4712 }
4713 return TRUE;
4714 }
4715
4716 /* Set the sizes of the dynamic sections. */
4717
4718 static bfd_boolean
4719 ppc_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
4720 struct bfd_link_info *info)
4721 {
4722 struct ppc_elf_link_hash_table *htab;
4723 asection *s;
4724 bfd_boolean relocs;
4725 bfd *ibfd;
4726
4727 #ifdef DEBUG
4728 fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
4729 #endif
4730
4731 htab = ppc_elf_hash_table (info);
4732 BFD_ASSERT (htab->elf.dynobj != NULL);
4733
4734 if (elf_hash_table (info)->dynamic_sections_created)
4735 {
4736 /* Set the contents of the .interp section to the interpreter. */
4737 if (info->executable)
4738 {
4739 s = bfd_get_section_by_name (htab->elf.dynobj, ".interp");
4740 BFD_ASSERT (s != NULL);
4741 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4742 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
4743 }
4744 }
4745
4746 if (htab->plt_type == PLT_OLD)
4747 htab->got_header_size = 16;
4748 else if (htab->plt_type == PLT_NEW)
4749 htab->got_header_size = 12;
4750
4751 /* Set up .got offsets for local syms, and space for local dynamic
4752 relocs. */
4753 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
4754 {
4755 bfd_signed_vma *local_got;
4756 bfd_signed_vma *end_local_got;
4757 char *lgot_masks;
4758 bfd_size_type locsymcount;
4759 Elf_Internal_Shdr *symtab_hdr;
4760
4761 if (!is_ppc_elf_target (ibfd->xvec))
4762 continue;
4763
4764 for (s = ibfd->sections; s != NULL; s = s->next)
4765 {
4766 struct ppc_elf_dyn_relocs *p;
4767
4768 for (p = ((struct ppc_elf_dyn_relocs *)
4769 elf_section_data (s)->local_dynrel);
4770 p != NULL;
4771 p = p->next)
4772 {
4773 if (!bfd_is_abs_section (p->sec)
4774 && bfd_is_abs_section (p->sec->output_section))
4775 {
4776 /* Input section has been discarded, either because
4777 it is a copy of a linkonce section or due to
4778 linker script /DISCARD/, so we'll be discarding
4779 the relocs too. */
4780 }
4781 else if (p->count != 0)
4782 {
4783 elf_section_data (p->sec)->sreloc->size
4784 += p->count * sizeof (Elf32_External_Rela);
4785 if ((p->sec->output_section->flags
4786 & (SEC_READONLY | SEC_ALLOC))
4787 == (SEC_READONLY | SEC_ALLOC))
4788 info->flags |= DF_TEXTREL;
4789 }
4790 }
4791 }
4792
4793 local_got = elf_local_got_refcounts (ibfd);
4794 if (!local_got)
4795 continue;
4796
4797 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
4798 locsymcount = symtab_hdr->sh_info;
4799 end_local_got = local_got + locsymcount;
4800 lgot_masks = (char *) end_local_got;
4801 for (; local_got < end_local_got; ++local_got, ++lgot_masks)
4802 if (*local_got > 0)
4803 {
4804 if (*lgot_masks == (TLS_TLS | TLS_LD))
4805 {
4806 /* If just an LD reloc, we'll just use
4807 htab->tlsld_got.offset. */
4808 htab->tlsld_got.refcount += 1;
4809 *local_got = (bfd_vma) -1;
4810 }
4811 else
4812 {
4813 unsigned int need = 0;
4814 if ((*lgot_masks & TLS_TLS) != 0)
4815 {
4816 if ((*lgot_masks & TLS_GD) != 0)
4817 need += 8;
4818 if ((*lgot_masks & (TLS_TPREL | TLS_TPRELGD)) != 0)
4819 need += 4;
4820 if ((*lgot_masks & TLS_DTPREL) != 0)
4821 need += 4;
4822 }
4823 else
4824 need += 4;
4825 *local_got = allocate_got (htab, need);
4826 if (info->shared)
4827 htab->relgot->size += (need
4828 * (sizeof (Elf32_External_Rela) / 4));
4829 }
4830 }
4831 else
4832 *local_got = (bfd_vma) -1;
4833 }
4834
4835 if (htab->tlsld_got.refcount > 0)
4836 {
4837 htab->tlsld_got.offset = allocate_got (htab, 8);
4838 if (info->shared)
4839 htab->relgot->size += sizeof (Elf32_External_Rela);
4840 }
4841 else
4842 htab->tlsld_got.offset = (bfd_vma) -1;
4843
4844 /* Allocate space for global sym dynamic relocs. */
4845 elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
4846
4847 if (htab->got != NULL && htab->plt_type != PLT_VXWORKS)
4848 {
4849 unsigned int g_o_t = 32768;
4850
4851 /* If we haven't allocated the header, do so now. When we get here,
4852 for old plt/got the got size will be 0 to 32764 (not allocated),
4853 or 32780 to 65536 (header allocated). For new plt/got, the
4854 corresponding ranges are 0 to 32768 and 32780 to 65536. */
4855 if (htab->got->size <= 32768)
4856 {
4857 g_o_t = htab->got->size;
4858 if (htab->plt_type == PLT_OLD)
4859 g_o_t += 4;
4860 htab->got->size += htab->got_header_size;
4861 }
4862
4863 htab->elf.hgot->root.u.def.value = g_o_t;
4864 }
4865
4866 if (htab->glink != NULL && htab->glink->size != 0)
4867 {
4868 htab->glink_pltresolve = htab->glink->size;
4869 /* Space for the branch table. */
4870 htab->glink->size += htab->glink->size / (GLINK_ENTRY_SIZE / 4) - 4;
4871 /* Pad out to align the start of PLTresolve. */
4872 htab->glink->size += -htab->glink->size & 15;
4873 htab->glink->size += GLINK_PLTRESOLVE;
4874
4875 if (htab->emit_stub_syms)
4876 {
4877 struct elf_link_hash_entry *sh;
4878 sh = elf_link_hash_lookup (&htab->elf, "__glink",
4879 TRUE, FALSE, FALSE);
4880 if (sh == NULL)
4881 return FALSE;
4882 if (sh->root.type == bfd_link_hash_new)
4883 {
4884 sh->root.type = bfd_link_hash_defined;
4885 sh->root.u.def.section = htab->glink;
4886 sh->root.u.def.value = htab->glink_pltresolve;
4887 sh->ref_regular = 1;
4888 sh->def_regular = 1;
4889 sh->ref_regular_nonweak = 1;
4890 sh->forced_local = 1;
4891 sh->non_elf = 0;
4892 }
4893 sh = elf_link_hash_lookup (&htab->elf, "__glink_PLTresolve",
4894 TRUE, FALSE, FALSE);
4895 if (sh == NULL)
4896 return FALSE;
4897 if (sh->root.type == bfd_link_hash_new)
4898 {
4899 sh->root.type = bfd_link_hash_defined;
4900 sh->root.u.def.section = htab->glink;
4901 sh->root.u.def.value = htab->glink->size - GLINK_PLTRESOLVE;
4902 sh->ref_regular = 1;
4903 sh->def_regular = 1;
4904 sh->ref_regular_nonweak = 1;
4905 sh->forced_local = 1;
4906 sh->non_elf = 0;
4907 }
4908 }
4909 }
4910
4911 /* We've now determined the sizes of the various dynamic sections.
4912 Allocate memory for them. */
4913 relocs = FALSE;
4914 for (s = htab->elf.dynobj->sections; s != NULL; s = s->next)
4915 {
4916 bfd_boolean strip_section = TRUE;
4917
4918 if ((s->flags & SEC_LINKER_CREATED) == 0)
4919 continue;
4920
4921 if (s == htab->plt
4922 || s == htab->glink
4923 || s == htab->got
4924 || s == htab->sgotplt
4925 || s == htab->sbss
4926 || s == htab->dynbss
4927 || s == htab->dynsbss)
4928 {
4929 /* We'd like to strip these sections if they aren't needed, but if
4930 we've exported dynamic symbols from them we must leave them.
4931 It's too late to tell BFD to get rid of the symbols. */
4932 if ((s == htab->plt || s == htab->got) && htab->elf.hplt != NULL)
4933 strip_section = FALSE;
4934 /* Strip this section if we don't need it; see the
4935 comment below. */
4936 }
4937 else if (s == htab->sdata[0].section
4938 || s == htab->sdata[1].section)
4939 {
4940 /* Strip these too. */
4941 }
4942 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
4943 {
4944 if (s->size != 0)
4945 {
4946 /* Remember whether there are any relocation sections. */
4947 relocs = TRUE;
4948
4949 /* We use the reloc_count field as a counter if we need
4950 to copy relocs into the output file. */
4951 s->reloc_count = 0;
4952 }
4953 }
4954 else
4955 {
4956 /* It's not one of our sections, so don't allocate space. */
4957 continue;
4958 }
4959
4960 if (s->size == 0 && strip_section)
4961 {
4962 /* If we don't need this section, strip it from the
4963 output file. This is mostly to handle .rela.bss and
4964 .rela.plt. We must create both sections in
4965 create_dynamic_sections, because they must be created
4966 before the linker maps input sections to output
4967 sections. The linker does that before
4968 adjust_dynamic_symbol is called, and it is that
4969 function which decides whether anything needs to go
4970 into these sections. */
4971 s->flags |= SEC_EXCLUDE;
4972 continue;
4973 }
4974
4975 if ((s->flags & SEC_HAS_CONTENTS) == 0)
4976 continue;
4977
4978 /* Allocate memory for the section contents. */
4979 s->contents = bfd_zalloc (htab->elf.dynobj, s->size);
4980 if (s->contents == NULL)
4981 return FALSE;
4982 }
4983
4984 if (htab->elf.dynamic_sections_created)
4985 {
4986 /* Add some entries to the .dynamic section. We fill in the
4987 values later, in ppc_elf_finish_dynamic_sections, but we
4988 must add the entries now so that we get the correct size for
4989 the .dynamic section. The DT_DEBUG entry is filled in by the
4990 dynamic linker and used by the debugger. */
4991 #define add_dynamic_entry(TAG, VAL) \
4992 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
4993
4994 if (info->executable)
4995 {
4996 if (!add_dynamic_entry (DT_DEBUG, 0))
4997 return FALSE;
4998 }
4999
5000 if (htab->plt != NULL && htab->plt->size != 0)
5001 {
5002 if (!add_dynamic_entry (DT_PLTGOT, 0)
5003 || !add_dynamic_entry (DT_PLTRELSZ, 0)
5004 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
5005 || !add_dynamic_entry (DT_JMPREL, 0))
5006 return FALSE;
5007 }
5008
5009 if (htab->glink != NULL && htab->glink->size != 0)
5010 {
5011 if (!add_dynamic_entry (DT_PPC_GOT, 0))
5012 return FALSE;
5013 }
5014
5015 if (relocs)
5016 {
5017 if (!add_dynamic_entry (DT_RELA, 0)
5018 || !add_dynamic_entry (DT_RELASZ, 0)
5019 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
5020 return FALSE;
5021 }
5022
5023 /* If any dynamic relocs apply to a read-only section, then we
5024 need a DT_TEXTREL entry. */
5025 if ((info->flags & DF_TEXTREL) == 0)
5026 elf_link_hash_traverse (elf_hash_table (info), readonly_dynrelocs,
5027 info);
5028
5029 if ((info->flags & DF_TEXTREL) != 0)
5030 {
5031 if (!add_dynamic_entry (DT_TEXTREL, 0))
5032 return FALSE;
5033 }
5034 }
5035 #undef add_dynamic_entry
5036
5037 return TRUE;
5038 }
5039 \f
5040 #define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
5041
5042 static const int shared_stub_entry[] =
5043 {
5044 0x7c0802a6, /* mflr 0 */
5045 0x429f0005, /* bcl 20, 31, .Lxxx */
5046 0x7d6802a6, /* mflr 11 */
5047 0x3d6b0000, /* addis 11, 11, (xxx-.Lxxx)@ha */
5048 0x396b0018, /* addi 11, 11, (xxx-.Lxxx)@l */
5049 0x7c0803a6, /* mtlr 0 */
5050 0x7d6903a6, /* mtctr 11 */
5051 0x4e800420, /* bctr */
5052 };
5053
5054 static const int stub_entry[] =
5055 {
5056 0x3d600000, /* lis 11,xxx@ha */
5057 0x396b0000, /* addi 11,11,xxx@l */
5058 0x7d6903a6, /* mtctr 11 */
5059 0x4e800420, /* bctr */
5060 };
5061
5062 static bfd_boolean
5063 ppc_elf_relax_section (bfd *abfd,
5064 asection *isec,
5065 struct bfd_link_info *link_info,
5066 bfd_boolean *again)
5067 {
5068 struct one_fixup
5069 {
5070 struct one_fixup *next;
5071 asection *tsec;
5072 bfd_vma toff;
5073 bfd_vma trampoff;
5074 };
5075
5076 Elf_Internal_Shdr *symtab_hdr;
5077 bfd_byte *contents = NULL;
5078 Elf_Internal_Sym *isymbuf = NULL;
5079 Elf_Internal_Rela *internal_relocs = NULL;
5080 Elf_Internal_Rela *irel, *irelend;
5081 struct one_fixup *fixups = NULL;
5082 bfd_boolean changed;
5083 struct ppc_elf_link_hash_table *htab;
5084 bfd_size_type trampoff;
5085 asection *got2;
5086
5087 *again = FALSE;
5088
5089 /* Nothing to do if there are no relocations, and no need to do
5090 anything with non-alloc sections. */
5091 if ((isec->flags & SEC_ALLOC) == 0
5092 || (isec->flags & SEC_RELOC) == 0
5093 || isec->reloc_count == 0)
5094 return TRUE;
5095
5096 trampoff = (isec->size + 3) & (bfd_vma) -4;
5097 /* Space for a branch around any trampolines. */
5098 trampoff += 4;
5099
5100 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5101
5102 /* Get a copy of the native relocations. */
5103 internal_relocs = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL,
5104 link_info->keep_memory);
5105 if (internal_relocs == NULL)
5106 goto error_return;
5107
5108 htab = ppc_elf_hash_table (link_info);
5109 got2 = bfd_get_section_by_name (abfd, ".got2");
5110
5111 irelend = internal_relocs + isec->reloc_count;
5112 for (irel = internal_relocs; irel < irelend; irel++)
5113 {
5114 unsigned long r_type = ELF32_R_TYPE (irel->r_info);
5115 bfd_vma symaddr, reladdr, toff, roff;
5116 asection *tsec;
5117 struct one_fixup *f;
5118 size_t insn_offset = 0;
5119 bfd_vma max_branch_offset, val;
5120 bfd_byte *hit_addr;
5121 unsigned long t0;
5122 unsigned char sym_type;
5123
5124 switch (r_type)
5125 {
5126 case R_PPC_REL24:
5127 case R_PPC_LOCAL24PC:
5128 case R_PPC_PLTREL24:
5129 max_branch_offset = 1 << 25;
5130 break;
5131
5132 case R_PPC_REL14:
5133 case R_PPC_REL14_BRTAKEN:
5134 case R_PPC_REL14_BRNTAKEN:
5135 max_branch_offset = 1 << 15;
5136 break;
5137
5138 default:
5139 continue;
5140 }
5141
5142 /* Get the value of the symbol referred to by the reloc. */
5143 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
5144 {
5145 /* A local symbol. */
5146 Elf_Internal_Sym *isym;
5147
5148 /* Read this BFD's local symbols. */
5149 if (isymbuf == NULL)
5150 {
5151 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
5152 if (isymbuf == NULL)
5153 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
5154 symtab_hdr->sh_info, 0,
5155 NULL, NULL, NULL);
5156 if (isymbuf == 0)
5157 goto error_return;
5158 }
5159 isym = isymbuf + ELF32_R_SYM (irel->r_info);
5160 if (isym->st_shndx == SHN_UNDEF)
5161 continue; /* We can't do anything with undefined symbols. */
5162 else if (isym->st_shndx == SHN_ABS)
5163 tsec = bfd_abs_section_ptr;
5164 else if (isym->st_shndx == SHN_COMMON)
5165 tsec = bfd_com_section_ptr;
5166 else
5167 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
5168
5169 toff = isym->st_value;
5170 sym_type = ELF_ST_TYPE (isym->st_info);
5171 }
5172 else
5173 {
5174 /* Global symbol handling. */
5175 unsigned long indx;
5176 struct elf_link_hash_entry *h;
5177
5178 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
5179 h = elf_sym_hashes (abfd)[indx];
5180
5181 while (h->root.type == bfd_link_hash_indirect
5182 || h->root.type == bfd_link_hash_warning)
5183 h = (struct elf_link_hash_entry *) h->root.u.i.link;
5184
5185 tsec = NULL;
5186 toff = 0;
5187 if (r_type == R_PPC_PLTREL24
5188 && htab->plt != NULL)
5189 {
5190 struct plt_entry *ent = find_plt_ent (h, got2, irel->r_addend);
5191
5192 if (ent != NULL)
5193 {
5194 if (htab->plt_type == PLT_NEW)
5195 {
5196 tsec = htab->glink;
5197 toff = ent->glink_offset;
5198 }
5199 else
5200 {
5201 tsec = htab->plt;
5202 toff = ent->plt.offset;
5203 }
5204 }
5205 }
5206 if (tsec != NULL)
5207 ;
5208 else if (h->root.type == bfd_link_hash_defined
5209 || h->root.type == bfd_link_hash_defweak)
5210 {
5211 tsec = h->root.u.def.section;
5212 toff = h->root.u.def.value;
5213 }
5214 else
5215 continue;
5216
5217 sym_type = h->type;
5218 }
5219
5220 /* If the branch and target are in the same section, you have
5221 no hope of adding stubs. We'll error out later should the
5222 branch overflow. */
5223 if (tsec == isec)
5224 continue;
5225
5226 /* There probably isn't any reason to handle symbols in
5227 SEC_MERGE sections; SEC_MERGE doesn't seem a likely
5228 attribute for a code section, and we are only looking at
5229 branches. However, implement it correctly here as a
5230 reference for other target relax_section functions. */
5231 if (0 && tsec->sec_info_type == ELF_INFO_TYPE_MERGE)
5232 {
5233 /* At this stage in linking, no SEC_MERGE symbol has been
5234 adjusted, so all references to such symbols need to be
5235 passed through _bfd_merged_section_offset. (Later, in
5236 relocate_section, all SEC_MERGE symbols *except* for
5237 section symbols have been adjusted.)
5238
5239 gas may reduce relocations against symbols in SEC_MERGE
5240 sections to a relocation against the section symbol when
5241 the original addend was zero. When the reloc is against
5242 a section symbol we should include the addend in the
5243 offset passed to _bfd_merged_section_offset, since the
5244 location of interest is the original symbol. On the
5245 other hand, an access to "sym+addend" where "sym" is not
5246 a section symbol should not include the addend; Such an
5247 access is presumed to be an offset from "sym"; The
5248 location of interest is just "sym". */
5249 if (sym_type == STT_SECTION)
5250 toff += irel->r_addend;
5251
5252 toff = _bfd_merged_section_offset (abfd, &tsec,
5253 elf_section_data (tsec)->sec_info,
5254 toff);
5255
5256 if (sym_type != STT_SECTION)
5257 toff += irel->r_addend;
5258 }
5259 /* PLTREL24 addends are special. */
5260 else if (r_type != R_PPC_PLTREL24)
5261 toff += irel->r_addend;
5262
5263 /* Attempted -shared link of non-pic code loses. */
5264 if (tsec->output_section == NULL)
5265 continue;
5266
5267 symaddr = tsec->output_section->vma + tsec->output_offset + toff;
5268
5269 roff = irel->r_offset;
5270 reladdr = isec->output_section->vma + isec->output_offset + roff;
5271
5272 /* If the branch is in range, no need to do anything. */
5273 if (symaddr - reladdr + max_branch_offset < 2 * max_branch_offset)
5274 continue;
5275
5276 /* Look for an existing fixup to this address. */
5277 for (f = fixups; f ; f = f->next)
5278 if (f->tsec == tsec && f->toff == toff)
5279 break;
5280
5281 if (f == NULL)
5282 {
5283 size_t size;
5284 unsigned long stub_rtype;
5285
5286 val = trampoff - roff;
5287 if (val >= max_branch_offset)
5288 /* Oh dear, we can't reach a trampoline. Don't try to add
5289 one. We'll report an error later. */
5290 continue;
5291
5292 if (link_info->shared)
5293 {
5294 size = 4 * ARRAY_SIZE (shared_stub_entry);
5295 insn_offset = 12;
5296 stub_rtype = R_PPC_RELAX32PC;
5297 }
5298 else
5299 {
5300 size = 4 * ARRAY_SIZE (stub_entry);
5301 insn_offset = 0;
5302 stub_rtype = R_PPC_RELAX32;
5303 }
5304
5305 if (R_PPC_RELAX32_PLT - R_PPC_RELAX32
5306 != R_PPC_RELAX32PC_PLT - R_PPC_RELAX32PC)
5307 abort ();
5308 if (tsec == htab->plt
5309 || tsec == htab->glink)
5310 stub_rtype += R_PPC_RELAX32_PLT - R_PPC_RELAX32;
5311
5312 /* Hijack the old relocation. Since we need two
5313 relocations for this use a "composite" reloc. */
5314 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
5315 stub_rtype);
5316 irel->r_offset = trampoff + insn_offset;
5317
5318 /* Record the fixup so we don't do it again this section. */
5319 f = bfd_malloc (sizeof (*f));
5320 f->next = fixups;
5321 f->tsec = tsec;
5322 f->toff = toff;
5323 f->trampoff = trampoff;
5324 fixups = f;
5325
5326 trampoff += size;
5327 }
5328 else
5329 {
5330 val = f->trampoff - roff;
5331 if (val >= max_branch_offset)
5332 continue;
5333
5334 /* Nop out the reloc, since we're finalizing things here. */
5335 irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
5336 }
5337
5338 /* Get the section contents. */
5339 if (contents == NULL)
5340 {
5341 /* Get cached copy if it exists. */
5342 if (elf_section_data (isec)->this_hdr.contents != NULL)
5343 contents = elf_section_data (isec)->this_hdr.contents;
5344 else
5345 {
5346 /* Go get them off disk. */
5347 if (!bfd_malloc_and_get_section (abfd, isec, &contents))
5348 goto error_return;
5349 }
5350 }
5351
5352 /* Fix up the existing branch to hit the trampoline. */
5353 hit_addr = contents + roff;
5354 switch (r_type)
5355 {
5356 case R_PPC_REL24:
5357 case R_PPC_LOCAL24PC:
5358 case R_PPC_PLTREL24:
5359 t0 = bfd_get_32 (abfd, hit_addr);
5360 t0 &= ~0x3fffffc;
5361 t0 |= val & 0x3fffffc;
5362 bfd_put_32 (abfd, t0, hit_addr);
5363 break;
5364
5365 case R_PPC_REL14:
5366 case R_PPC_REL14_BRTAKEN:
5367 case R_PPC_REL14_BRNTAKEN:
5368 t0 = bfd_get_32 (abfd, hit_addr);
5369 t0 &= ~0xfffc;
5370 t0 |= val & 0xfffc;
5371 bfd_put_32 (abfd, t0, hit_addr);
5372 break;
5373 }
5374 }
5375
5376 /* Write out the trampolines. */
5377 changed = fixups != NULL;
5378 if (fixups != NULL)
5379 {
5380 const int *stub;
5381 bfd_byte *dest;
5382 bfd_vma val;
5383 int i, size;
5384
5385 do
5386 {
5387 struct one_fixup *f = fixups;
5388 fixups = fixups->next;
5389 free (f);
5390 }
5391 while (fixups);
5392
5393 contents = bfd_realloc (contents, trampoff);
5394 if (contents == NULL)
5395 goto error_return;
5396
5397 isec->size = (isec->size + 3) & (bfd_vma) -4;
5398 /* Branch around the trampolines. */
5399 val = trampoff - isec->size + 0x48000000;
5400 dest = contents + isec->size;
5401 isec->size = trampoff;
5402 bfd_put_32 (abfd, val, dest);
5403 dest += 4;
5404
5405 if (link_info->shared)
5406 {
5407 stub = shared_stub_entry;
5408 size = ARRAY_SIZE (shared_stub_entry);
5409 }
5410 else
5411 {
5412 stub = stub_entry;
5413 size = ARRAY_SIZE (stub_entry);
5414 }
5415
5416 i = 0;
5417 while (dest < contents + trampoff)
5418 {
5419 bfd_put_32 (abfd, stub[i], dest);
5420 i++;
5421 if (i == size)
5422 i = 0;
5423 dest += 4;
5424 }
5425 BFD_ASSERT (i == 0);
5426 }
5427
5428 if (isymbuf != NULL
5429 && symtab_hdr->contents != (unsigned char *) isymbuf)
5430 {
5431 if (! link_info->keep_memory)
5432 free (isymbuf);
5433 else
5434 {
5435 /* Cache the symbols for elf_link_input_bfd. */
5436 symtab_hdr->contents = (unsigned char *) isymbuf;
5437 }
5438 }
5439
5440 if (contents != NULL
5441 && elf_section_data (isec)->this_hdr.contents != contents)
5442 {
5443 if (!changed && !link_info->keep_memory)
5444 free (contents);
5445 else
5446 {
5447 /* Cache the section contents for elf_link_input_bfd. */
5448 elf_section_data (isec)->this_hdr.contents = contents;
5449 }
5450 }
5451
5452 if (elf_section_data (isec)->relocs != internal_relocs)
5453 {
5454 if (!changed)
5455 free (internal_relocs);
5456 else
5457 elf_section_data (isec)->relocs = internal_relocs;
5458 }
5459
5460 *again = changed;
5461 return TRUE;
5462
5463 error_return:
5464 if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
5465 free (isymbuf);
5466 if (contents != NULL
5467 && elf_section_data (isec)->this_hdr.contents != contents)
5468 free (contents);
5469 if (internal_relocs != NULL
5470 && elf_section_data (isec)->relocs != internal_relocs)
5471 free (internal_relocs);
5472 return FALSE;
5473 }
5474 \f
5475 /* What to do when ld finds relocations against symbols defined in
5476 discarded sections. */
5477
5478 static unsigned int
5479 ppc_elf_action_discarded (asection *sec)
5480 {
5481 if (strcmp (".fixup", sec->name) == 0)
5482 return 0;
5483
5484 if (strcmp (".got2", sec->name) == 0)
5485 return 0;
5486
5487 return _bfd_elf_default_action_discarded (sec);
5488 }
5489 \f
5490 /* Fill in the address for a pointer generated in a linker section. */
5491
5492 static bfd_vma
5493 elf_finish_pointer_linker_section (bfd *input_bfd,
5494 elf_linker_section_t *lsect,
5495 struct elf_link_hash_entry *h,
5496 bfd_vma relocation,
5497 const Elf_Internal_Rela *rel)
5498 {
5499 elf_linker_section_pointers_t *linker_section_ptr;
5500
5501 BFD_ASSERT (lsect != NULL);
5502
5503 if (h != NULL)
5504 {
5505 /* Handle global symbol. */
5506 struct ppc_elf_link_hash_entry *eh;
5507
5508 eh = (struct ppc_elf_link_hash_entry *) h;
5509 BFD_ASSERT (eh->elf.def_regular);
5510 linker_section_ptr = eh->linker_section_pointer;
5511 }
5512 else
5513 {
5514 /* Handle local symbol. */
5515 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
5516
5517 BFD_ASSERT (elf_local_ptr_offsets (input_bfd) != NULL);
5518 linker_section_ptr = elf_local_ptr_offsets (input_bfd)[r_symndx];
5519 }
5520
5521 linker_section_ptr = elf_find_pointer_linker_section (linker_section_ptr,
5522 rel->r_addend,
5523 lsect);
5524 BFD_ASSERT (linker_section_ptr != NULL);
5525
5526 /* Offset will always be a multiple of four, so use the bottom bit
5527 as a "written" flag. */
5528 if ((linker_section_ptr->offset & 1) == 0)
5529 {
5530 bfd_put_32 (lsect->section->owner,
5531 relocation + linker_section_ptr->addend,
5532 lsect->section->contents + linker_section_ptr->offset);
5533 linker_section_ptr->offset += 1;
5534 }
5535
5536 relocation = (lsect->section->output_offset
5537 + linker_section_ptr->offset - 1
5538 - 0x8000);
5539
5540 #ifdef DEBUG
5541 fprintf (stderr,
5542 "Finish pointer in linker section %s, offset = %ld (0x%lx)\n",
5543 lsect->name, (long) relocation, (long) relocation);
5544 #endif
5545
5546 /* Subtract out the addend, because it will get added back in by the normal
5547 processing. */
5548 return relocation - linker_section_ptr->addend;
5549 }
5550
5551 /* The RELOCATE_SECTION function is called by the ELF backend linker
5552 to handle the relocations for a section.
5553
5554 The relocs are always passed as Rela structures; if the section
5555 actually uses Rel structures, the r_addend field will always be
5556 zero.
5557
5558 This function is responsible for adjust the section contents as
5559 necessary, and (if using Rela relocs and generating a
5560 relocatable output file) adjusting the reloc addend as
5561 necessary.
5562
5563 This function does not have to worry about setting the reloc
5564 address or the reloc symbol index.
5565
5566 LOCAL_SYMS is a pointer to the swapped in local symbols.
5567
5568 LOCAL_SECTIONS is an array giving the section in the input file
5569 corresponding to the st_shndx field of each local symbol.
5570
5571 The global hash table entry for the global symbols can be found
5572 via elf_sym_hashes (input_bfd).
5573
5574 When generating relocatable output, this function must handle
5575 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
5576 going to be the section symbol corresponding to the output
5577 section, which means that the addend must be adjusted
5578 accordingly. */
5579
5580 static bfd_boolean
5581 ppc_elf_relocate_section (bfd *output_bfd,
5582 struct bfd_link_info *info,
5583 bfd *input_bfd,
5584 asection *input_section,
5585 bfd_byte *contents,
5586 Elf_Internal_Rela *relocs,
5587 Elf_Internal_Sym *local_syms,
5588 asection **local_sections)
5589 {
5590 Elf_Internal_Shdr *symtab_hdr;
5591 struct elf_link_hash_entry **sym_hashes;
5592 struct ppc_elf_link_hash_table *htab;
5593 Elf_Internal_Rela *rel;
5594 Elf_Internal_Rela *relend;
5595 Elf_Internal_Rela outrel;
5596 bfd_byte *loc;
5597 asection *got2, *sreloc = NULL;
5598 bfd_vma *local_got_offsets;
5599 bfd_boolean ret = TRUE;
5600 bfd_vma d_offset = (bfd_big_endian (output_bfd) ? 2 : 0);
5601
5602 #ifdef DEBUG
5603 _bfd_error_handler ("ppc_elf_relocate_section called for %B section %A, "
5604 "%ld relocations%s",
5605 input_bfd, input_section,
5606 (long) input_section->reloc_count,
5607 (info->relocatable) ? " (relocatable)" : "");
5608 #endif
5609
5610 got2 = bfd_get_section_by_name (input_bfd, ".got2");
5611
5612 /* Initialize howto table if not already done. */
5613 if (!ppc_elf_howto_table[R_PPC_ADDR32])
5614 ppc_elf_howto_init ();
5615
5616 htab = ppc_elf_hash_table (info);
5617 local_got_offsets = elf_local_got_offsets (input_bfd);
5618 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
5619 sym_hashes = elf_sym_hashes (input_bfd);
5620 rel = relocs;
5621 relend = relocs + input_section->reloc_count;
5622 for (; rel < relend; rel++)
5623 {
5624 enum elf_ppc_reloc_type r_type;
5625 bfd_vma addend;
5626 bfd_reloc_status_type r;
5627 Elf_Internal_Sym *sym;
5628 asection *sec;
5629 struct elf_link_hash_entry *h;
5630 const char *sym_name;
5631 reloc_howto_type *howto;
5632 unsigned long r_symndx;
5633 bfd_vma relocation;
5634 bfd_vma branch_bit, insn, from;
5635 bfd_boolean unresolved_reloc;
5636 bfd_boolean warned;
5637 unsigned int tls_type, tls_mask, tls_gd;
5638
5639 r_type = ELF32_R_TYPE (rel->r_info);
5640 sym = NULL;
5641 sec = NULL;
5642 h = NULL;
5643 unresolved_reloc = FALSE;
5644 warned = FALSE;
5645 r_symndx = ELF32_R_SYM (rel->r_info);
5646
5647 if (r_symndx < symtab_hdr->sh_info)
5648 {
5649 sym = local_syms + r_symndx;
5650 sec = local_sections[r_symndx];
5651 sym_name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym, sec);
5652
5653 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
5654 }
5655 else
5656 {
5657 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
5658 r_symndx, symtab_hdr, sym_hashes,
5659 h, sec, relocation,
5660 unresolved_reloc, warned);
5661
5662 sym_name = h->root.root.string;
5663 }
5664
5665 if (sec != NULL && elf_discarded_section (sec))
5666 {
5667 /* For relocs against symbols from removed linkonce sections,
5668 or sections discarded by a linker script, we just want the
5669 section contents zeroed. Avoid any special processing. */
5670 howto = NULL;
5671 if (r_type < R_PPC_max)
5672 howto = ppc_elf_howto_table[r_type];
5673 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
5674 rel->r_info = 0;
5675 rel->r_addend = 0;
5676 continue;
5677 }
5678
5679 if (info->relocatable)
5680 {
5681 if (got2 != NULL
5682 && r_type == R_PPC_PLTREL24
5683 && rel->r_addend >= 32768)
5684 {
5685 /* R_PPC_PLTREL24 is rather special. If non-zero, the
5686 addend specifies the GOT pointer offset within .got2. */
5687 rel->r_addend += got2->output_offset;
5688 }
5689 continue;
5690 }
5691
5692 /* TLS optimizations. Replace instruction sequences and relocs
5693 based on information we collected in tls_optimize. We edit
5694 RELOCS so that --emit-relocs will output something sensible
5695 for the final instruction stream. */
5696 tls_mask = 0;
5697 tls_gd = 0;
5698 if (IS_PPC_TLS_RELOC (r_type))
5699 {
5700 if (h != NULL)
5701 tls_mask = ((struct ppc_elf_link_hash_entry *) h)->tls_mask;
5702 else if (local_got_offsets != NULL)
5703 {
5704 char *lgot_masks;
5705 lgot_masks = (char *) (local_got_offsets + symtab_hdr->sh_info);
5706 tls_mask = lgot_masks[r_symndx];
5707 }
5708 }
5709
5710 /* Ensure reloc mapping code below stays sane. */
5711 if ((R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TLSGD16 & 3)
5712 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TLSGD16_LO & 3)
5713 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TLSGD16_HI & 3)
5714 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TLSGD16_HA & 3)
5715 || (R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TPREL16 & 3)
5716 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TPREL16_LO & 3)
5717 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TPREL16_HI & 3)
5718 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TPREL16_HA & 3))
5719 abort ();
5720 switch (r_type)
5721 {
5722 default:
5723 break;
5724
5725 case R_PPC_GOT_TPREL16:
5726 case R_PPC_GOT_TPREL16_LO:
5727 if (tls_mask != 0
5728 && (tls_mask & TLS_TPREL) == 0)
5729 {
5730 bfd_vma insn;
5731 insn = bfd_get_32 (output_bfd, contents + rel->r_offset - d_offset);
5732 insn &= 31 << 21;
5733 insn |= 0x3c020000; /* addis 0,2,0 */
5734 bfd_put_32 (output_bfd, insn, contents + rel->r_offset - d_offset);
5735 r_type = R_PPC_TPREL16_HA;
5736 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
5737 }
5738 break;
5739
5740 case R_PPC_TLS:
5741 if (tls_mask != 0
5742 && (tls_mask & TLS_TPREL) == 0)
5743 {
5744 bfd_vma insn, rtra;
5745 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
5746 if ((insn & ((31 << 26) | (31 << 11)))
5747 == ((31 << 26) | (2 << 11)))
5748 rtra = insn & ((1 << 26) - (1 << 16));
5749 else if ((insn & ((31 << 26) | (31 << 16)))
5750 == ((31 << 26) | (2 << 16)))
5751 rtra = (insn & (31 << 21)) | ((insn & (31 << 11)) << 5);
5752 else
5753 abort ();
5754 if ((insn & ((1 << 11) - (1 << 1))) == 266 << 1)
5755 /* add -> addi. */
5756 insn = 14 << 26;
5757 else if ((insn & (31 << 1)) == 23 << 1
5758 && ((insn & (31 << 6)) < 14 << 6
5759 || ((insn & (31 << 6)) >= 16 << 6
5760 && (insn & (31 << 6)) < 24 << 6)))
5761 /* load and store indexed -> dform. */
5762 insn = (32 | ((insn >> 6) & 31)) << 26;
5763 else if ((insn & (31 << 1)) == 21 << 1
5764 && (insn & (0x1a << 6)) == 0)
5765 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
5766 insn = (((58 | ((insn >> 6) & 4)) << 26)
5767 | ((insn >> 6) & 1));
5768 else if ((insn & (31 << 1)) == 21 << 1
5769 && (insn & ((1 << 11) - (1 << 1))) == 341 << 1)
5770 /* lwax -> lwa. */
5771 insn = (58 << 26) | 2;
5772 else
5773 abort ();
5774 insn |= rtra;
5775 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
5776 r_type = R_PPC_TPREL16_LO;
5777 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
5778
5779 /* Was PPC_TLS which sits on insn boundary, now
5780 PPC_TPREL16_LO which is at low-order half-word. */
5781 rel->r_offset += d_offset;
5782 }
5783 break;
5784
5785 case R_PPC_GOT_TLSGD16_HI:
5786 case R_PPC_GOT_TLSGD16_HA:
5787 tls_gd = TLS_TPRELGD;
5788 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
5789 goto tls_gdld_hi;
5790 break;
5791
5792 case R_PPC_GOT_TLSLD16_HI:
5793 case R_PPC_GOT_TLSLD16_HA:
5794 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
5795 {
5796 tls_gdld_hi:
5797 if ((tls_mask & tls_gd) != 0)
5798 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
5799 + R_PPC_GOT_TPREL16);
5800 else
5801 {
5802 bfd_put_32 (output_bfd, NOP, contents + rel->r_offset);
5803 rel->r_offset -= d_offset;
5804 r_type = R_PPC_NONE;
5805 }
5806 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
5807 }
5808 break;
5809
5810 case R_PPC_GOT_TLSGD16:
5811 case R_PPC_GOT_TLSGD16_LO:
5812 tls_gd = TLS_TPRELGD;
5813 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
5814 goto tls_get_addr_check;
5815 break;
5816
5817 case R_PPC_GOT_TLSLD16:
5818 case R_PPC_GOT_TLSLD16_LO:
5819 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
5820 {
5821 tls_get_addr_check:
5822 if (rel + 1 < relend)
5823 {
5824 enum elf_ppc_reloc_type r_type2;
5825 unsigned long r_symndx2;
5826 struct elf_link_hash_entry *h2;
5827 bfd_vma insn1, insn2;
5828 bfd_vma offset;
5829
5830 /* The next instruction should be a call to
5831 __tls_get_addr. Peek at the reloc to be sure. */
5832 r_type2 = ELF32_R_TYPE (rel[1].r_info);
5833 r_symndx2 = ELF32_R_SYM (rel[1].r_info);
5834 if (r_symndx2 < symtab_hdr->sh_info
5835 || (r_type2 != R_PPC_REL14
5836 && r_type2 != R_PPC_REL14_BRTAKEN
5837 && r_type2 != R_PPC_REL14_BRNTAKEN
5838 && r_type2 != R_PPC_REL24
5839 && r_type2 != R_PPC_PLTREL24))
5840 break;
5841
5842 h2 = sym_hashes[r_symndx2 - symtab_hdr->sh_info];
5843 while (h2->root.type == bfd_link_hash_indirect
5844 || h2->root.type == bfd_link_hash_warning)
5845 h2 = (struct elf_link_hash_entry *) h2->root.u.i.link;
5846 if (h2 == NULL || h2 != htab->tls_get_addr)
5847 break;
5848
5849 /* OK, it checks out. Replace the call. */
5850 offset = rel[1].r_offset;
5851 insn1 = bfd_get_32 (output_bfd,
5852 contents + rel->r_offset - d_offset);
5853 if ((tls_mask & tls_gd) != 0)
5854 {
5855 /* IE */
5856 insn1 &= (1 << 26) - 1;
5857 insn1 |= 32 << 26; /* lwz */
5858 insn2 = 0x7c631214; /* add 3,3,2 */
5859 rel[1].r_info = ELF32_R_INFO (r_symndx2, R_PPC_NONE);
5860 rel[1].r_addend = 0;
5861 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
5862 + R_PPC_GOT_TPREL16);
5863 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
5864 }
5865 else
5866 {
5867 /* LE */
5868 insn1 = 0x3c620000; /* addis 3,2,0 */
5869 insn2 = 0x38630000; /* addi 3,3,0 */
5870 if (tls_gd == 0)
5871 {
5872 /* Was an LD reloc. */
5873 r_symndx = 0;
5874 rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
5875 }
5876 r_type = R_PPC_TPREL16_HA;
5877 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
5878 rel[1].r_info = ELF32_R_INFO (r_symndx,
5879 R_PPC_TPREL16_LO);
5880 rel[1].r_offset += d_offset;
5881 rel[1].r_addend = rel->r_addend;
5882 }
5883 bfd_put_32 (output_bfd, insn1, contents + rel->r_offset - d_offset);
5884 bfd_put_32 (output_bfd, insn2, contents + offset);
5885 if (tls_gd == 0)
5886 {
5887 /* We changed the symbol on an LD reloc. Start over
5888 in order to get h, sym, sec etc. right. */
5889 rel--;
5890 continue;
5891 }
5892 }
5893 }
5894 break;
5895 }
5896
5897 /* Handle other relocations that tweak non-addend part of insn. */
5898 branch_bit = 0;
5899 switch (r_type)
5900 {
5901 default:
5902 break;
5903
5904 /* Branch taken prediction relocations. */
5905 case R_PPC_ADDR14_BRTAKEN:
5906 case R_PPC_REL14_BRTAKEN:
5907 branch_bit = BRANCH_PREDICT_BIT;
5908 /* Fall thru */
5909
5910 /* Branch not taken prediction relocations. */
5911 case R_PPC_ADDR14_BRNTAKEN:
5912 case R_PPC_REL14_BRNTAKEN:
5913 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
5914 insn &= ~BRANCH_PREDICT_BIT;
5915 insn |= branch_bit;
5916
5917 from = (rel->r_offset
5918 + input_section->output_offset
5919 + input_section->output_section->vma);
5920
5921 /* Invert 'y' bit if not the default. */
5922 if ((bfd_signed_vma) (relocation + rel->r_addend - from) < 0)
5923 insn ^= BRANCH_PREDICT_BIT;
5924
5925 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
5926 break;
5927 }
5928
5929 addend = rel->r_addend;
5930 tls_type = 0;
5931 howto = NULL;
5932 if (r_type < R_PPC_max)
5933 howto = ppc_elf_howto_table[r_type];
5934 switch (r_type)
5935 {
5936 default:
5937 (*_bfd_error_handler)
5938 (_("%B: unknown relocation type %d for symbol %s"),
5939 input_bfd, (int) r_type, sym_name);
5940
5941 bfd_set_error (bfd_error_bad_value);
5942 ret = FALSE;
5943 continue;
5944
5945 case R_PPC_NONE:
5946 case R_PPC_TLS:
5947 case R_PPC_EMB_MRKREF:
5948 case R_PPC_GNU_VTINHERIT:
5949 case R_PPC_GNU_VTENTRY:
5950 continue;
5951
5952 /* GOT16 relocations. Like an ADDR16 using the symbol's
5953 address in the GOT as relocation value instead of the
5954 symbol's value itself. Also, create a GOT entry for the
5955 symbol and put the symbol value there. */
5956 case R_PPC_GOT_TLSGD16:
5957 case R_PPC_GOT_TLSGD16_LO:
5958 case R_PPC_GOT_TLSGD16_HI:
5959 case R_PPC_GOT_TLSGD16_HA:
5960 tls_type = TLS_TLS | TLS_GD;
5961 goto dogot;
5962
5963 case R_PPC_GOT_TLSLD16:
5964 case R_PPC_GOT_TLSLD16_LO:
5965 case R_PPC_GOT_TLSLD16_HI:
5966 case R_PPC_GOT_TLSLD16_HA:
5967 tls_type = TLS_TLS | TLS_LD;
5968 goto dogot;
5969
5970 case R_PPC_GOT_TPREL16:
5971 case R_PPC_GOT_TPREL16_LO:
5972 case R_PPC_GOT_TPREL16_HI:
5973 case R_PPC_GOT_TPREL16_HA:
5974 tls_type = TLS_TLS | TLS_TPREL;
5975 goto dogot;
5976
5977 case R_PPC_GOT_DTPREL16:
5978 case R_PPC_GOT_DTPREL16_LO:
5979 case R_PPC_GOT_DTPREL16_HI:
5980 case R_PPC_GOT_DTPREL16_HA:
5981 tls_type = TLS_TLS | TLS_DTPREL;
5982 goto dogot;
5983
5984 case R_PPC_GOT16:
5985 case R_PPC_GOT16_LO:
5986 case R_PPC_GOT16_HI:
5987 case R_PPC_GOT16_HA:
5988 dogot:
5989 {
5990 /* Relocation is to the entry for this symbol in the global
5991 offset table. */
5992 bfd_vma off;
5993 bfd_vma *offp;
5994 unsigned long indx;
5995
5996 if (htab->got == NULL)
5997 abort ();
5998
5999 indx = 0;
6000 if (tls_type == (TLS_TLS | TLS_LD)
6001 && (h == NULL
6002 || !h->def_dynamic))
6003 offp = &htab->tlsld_got.offset;
6004 else if (h != NULL)
6005 {
6006 bfd_boolean dyn;
6007 dyn = htab->elf.dynamic_sections_created;
6008 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
6009 || (info->shared
6010 && SYMBOL_REFERENCES_LOCAL (info, h)))
6011 /* This is actually a static link, or it is a
6012 -Bsymbolic link and the symbol is defined
6013 locally, or the symbol was forced to be local
6014 because of a version file. */
6015 ;
6016 else
6017 {
6018 indx = h->dynindx;
6019 unresolved_reloc = FALSE;
6020 }
6021 offp = &h->got.offset;
6022 }
6023 else
6024 {
6025 if (local_got_offsets == NULL)
6026 abort ();
6027 offp = &local_got_offsets[r_symndx];
6028 }
6029
6030 /* The offset must always be a multiple of 4. We use the
6031 least significant bit to record whether we have already
6032 processed this entry. */
6033 off = *offp;
6034 if ((off & 1) != 0)
6035 off &= ~1;
6036 else
6037 {
6038 unsigned int tls_m = (tls_mask
6039 & (TLS_LD | TLS_GD | TLS_DTPREL
6040 | TLS_TPREL | TLS_TPRELGD));
6041
6042 if (offp == &htab->tlsld_got.offset)
6043 tls_m = TLS_LD;
6044 else if (h == NULL
6045 || !h->def_dynamic)
6046 tls_m &= ~TLS_LD;
6047
6048 /* We might have multiple got entries for this sym.
6049 Initialize them all. */
6050 do
6051 {
6052 int tls_ty = 0;
6053
6054 if ((tls_m & TLS_LD) != 0)
6055 {
6056 tls_ty = TLS_TLS | TLS_LD;
6057 tls_m &= ~TLS_LD;
6058 }
6059 else if ((tls_m & TLS_GD) != 0)
6060 {
6061 tls_ty = TLS_TLS | TLS_GD;
6062 tls_m &= ~TLS_GD;
6063 }
6064 else if ((tls_m & TLS_DTPREL) != 0)
6065 {
6066 tls_ty = TLS_TLS | TLS_DTPREL;
6067 tls_m &= ~TLS_DTPREL;
6068 }
6069 else if ((tls_m & (TLS_TPREL | TLS_TPRELGD)) != 0)
6070 {
6071 tls_ty = TLS_TLS | TLS_TPREL;
6072 tls_m = 0;
6073 }
6074
6075 /* Generate relocs for the dynamic linker. */
6076 if ((info->shared || indx != 0)
6077 && (h == NULL
6078 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
6079 || h->root.type != bfd_link_hash_undefweak))
6080 {
6081 outrel.r_offset = (htab->got->output_section->vma
6082 + htab->got->output_offset
6083 + off);
6084 outrel.r_addend = 0;
6085 if (tls_ty & (TLS_LD | TLS_GD))
6086 {
6087 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPMOD32);
6088 if (tls_ty == (TLS_TLS | TLS_GD))
6089 {
6090 loc = htab->relgot->contents;
6091 loc += (htab->relgot->reloc_count++
6092 * sizeof (Elf32_External_Rela));
6093 bfd_elf32_swap_reloca_out (output_bfd,
6094 &outrel, loc);
6095 outrel.r_offset += 4;
6096 outrel.r_info
6097 = ELF32_R_INFO (indx, R_PPC_DTPREL32);
6098 }
6099 }
6100 else if (tls_ty == (TLS_TLS | TLS_DTPREL))
6101 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPREL32);
6102 else if (tls_ty == (TLS_TLS | TLS_TPREL))
6103 outrel.r_info = ELF32_R_INFO (indx, R_PPC_TPREL32);
6104 else if (indx == 0)
6105 outrel.r_info = ELF32_R_INFO (indx, R_PPC_RELATIVE);
6106 else
6107 outrel.r_info = ELF32_R_INFO (indx, R_PPC_GLOB_DAT);
6108 if (indx == 0)
6109 {
6110 outrel.r_addend += relocation;
6111 if (tls_ty & (TLS_GD | TLS_DTPREL | TLS_TPREL))
6112 outrel.r_addend -= htab->elf.tls_sec->vma;
6113 }
6114 loc = htab->relgot->contents;
6115 loc += (htab->relgot->reloc_count++
6116 * sizeof (Elf32_External_Rela));
6117 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
6118 }
6119
6120 /* Init the .got section contents if we're not
6121 emitting a reloc. */
6122 else
6123 {
6124 bfd_vma value = relocation;
6125
6126 if (tls_ty == (TLS_TLS | TLS_LD))
6127 value = 1;
6128 else if (tls_ty != 0)
6129 {
6130 value -= htab->elf.tls_sec->vma + DTP_OFFSET;
6131 if (tls_ty == (TLS_TLS | TLS_TPREL))
6132 value += DTP_OFFSET - TP_OFFSET;
6133
6134 if (tls_ty == (TLS_TLS | TLS_GD))
6135 {
6136 bfd_put_32 (output_bfd, value,
6137 htab->got->contents + off + 4);
6138 value = 1;
6139 }
6140 }
6141 bfd_put_32 (output_bfd, value,
6142 htab->got->contents + off);
6143 }
6144
6145 off += 4;
6146 if (tls_ty & (TLS_LD | TLS_GD))
6147 off += 4;
6148 }
6149 while (tls_m != 0);
6150
6151 off = *offp;
6152 *offp = off | 1;
6153 }
6154
6155 if (off >= (bfd_vma) -2)
6156 abort ();
6157
6158 if ((tls_type & TLS_TLS) != 0)
6159 {
6160 if (tls_type != (TLS_TLS | TLS_LD))
6161 {
6162 if ((tls_mask & TLS_LD) != 0
6163 && !(h == NULL
6164 || !h->def_dynamic))
6165 off += 8;
6166 if (tls_type != (TLS_TLS | TLS_GD))
6167 {
6168 if ((tls_mask & TLS_GD) != 0)
6169 off += 8;
6170 if (tls_type != (TLS_TLS | TLS_DTPREL))
6171 {
6172 if ((tls_mask & TLS_DTPREL) != 0)
6173 off += 4;
6174 }
6175 }
6176 }
6177 }
6178
6179 relocation = htab->got->output_offset + off;
6180 relocation -= htab->elf.hgot->root.u.def.value;
6181
6182 /* Addends on got relocations don't make much sense.
6183 x+off@got is actually x@got+off, and since the got is
6184 generated by a hash table traversal, the value in the
6185 got at entry m+n bears little relation to the entry m. */
6186 if (addend != 0)
6187 (*_bfd_error_handler)
6188 (_("%B(%A+0x%lx): non-zero addend on %s reloc against `%s'"),
6189 input_bfd,
6190 input_section,
6191 (long) rel->r_offset,
6192 howto->name,
6193 sym_name);
6194 }
6195 break;
6196
6197 /* Relocations that need no special processing. */
6198 case R_PPC_LOCAL24PC:
6199 /* It makes no sense to point a local relocation
6200 at a symbol not in this object. */
6201 if (unresolved_reloc)
6202 {
6203 if (! (*info->callbacks->undefined_symbol) (info,
6204 h->root.root.string,
6205 input_bfd,
6206 input_section,
6207 rel->r_offset,
6208 TRUE))
6209 return FALSE;
6210 continue;
6211 }
6212 break;
6213
6214 case R_PPC_DTPREL16:
6215 case R_PPC_DTPREL16_LO:
6216 case R_PPC_DTPREL16_HI:
6217 case R_PPC_DTPREL16_HA:
6218 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
6219 break;
6220
6221 /* Relocations that may need to be propagated if this is a shared
6222 object. */
6223 case R_PPC_TPREL16:
6224 case R_PPC_TPREL16_LO:
6225 case R_PPC_TPREL16_HI:
6226 case R_PPC_TPREL16_HA:
6227 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
6228 /* The TPREL16 relocs shouldn't really be used in shared
6229 libs as they will result in DT_TEXTREL being set, but
6230 support them anyway. */
6231 goto dodyn;
6232
6233 case R_PPC_TPREL32:
6234 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
6235 goto dodyn;
6236
6237 case R_PPC_DTPREL32:
6238 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
6239 goto dodyn;
6240
6241 case R_PPC_DTPMOD32:
6242 relocation = 1;
6243 addend = 0;
6244 goto dodyn;
6245
6246 case R_PPC_REL16:
6247 case R_PPC_REL16_LO:
6248 case R_PPC_REL16_HI:
6249 case R_PPC_REL16_HA:
6250 break;
6251
6252 case R_PPC_REL24:
6253 case R_PPC_REL32:
6254 case R_PPC_REL14:
6255 case R_PPC_REL14_BRTAKEN:
6256 case R_PPC_REL14_BRNTAKEN:
6257 /* If these relocations are not to a named symbol, they can be
6258 handled right here, no need to bother the dynamic linker. */
6259 if (SYMBOL_REFERENCES_LOCAL (info, h)
6260 || h == htab->elf.hgot)
6261 break;
6262 /* fall through */
6263
6264 /* Relocations that always need to be propagated if this is a shared
6265 object. */
6266 case R_PPC_ADDR32:
6267 case R_PPC_ADDR24:
6268 case R_PPC_ADDR16:
6269 case R_PPC_ADDR16_LO:
6270 case R_PPC_ADDR16_HI:
6271 case R_PPC_ADDR16_HA:
6272 case R_PPC_ADDR14:
6273 case R_PPC_ADDR14_BRTAKEN:
6274 case R_PPC_ADDR14_BRNTAKEN:
6275 case R_PPC_UADDR32:
6276 case R_PPC_UADDR16:
6277 dodyn:
6278 if ((input_section->flags & SEC_ALLOC) == 0)
6279 break;
6280 /* Fall thru. */
6281
6282 if ((info->shared
6283 && (h == NULL
6284 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
6285 || h->root.type != bfd_link_hash_undefweak)
6286 && (MUST_BE_DYN_RELOC (r_type)
6287 || !SYMBOL_CALLS_LOCAL (info, h)))
6288 || (ELIMINATE_COPY_RELOCS
6289 && !info->shared
6290 && h != NULL
6291 && h->dynindx != -1
6292 && !h->non_got_ref
6293 && h->def_dynamic
6294 && !h->def_regular))
6295 {
6296 int skip;
6297
6298 #ifdef DEBUG
6299 fprintf (stderr, "ppc_elf_relocate_section needs to "
6300 "create relocation for %s\n",
6301 (h && h->root.root.string
6302 ? h->root.root.string : "<unknown>"));
6303 #endif
6304
6305 /* When generating a shared object, these relocations
6306 are copied into the output file to be resolved at run
6307 time. */
6308 if (sreloc == NULL)
6309 {
6310 const char *name;
6311
6312 name = (bfd_elf_string_from_elf_section
6313 (input_bfd,
6314 elf_elfheader (input_bfd)->e_shstrndx,
6315 elf_section_data (input_section)->rel_hdr.sh_name));
6316 if (name == NULL)
6317 return FALSE;
6318
6319 BFD_ASSERT (CONST_STRNEQ (name, ".rela")
6320 && strcmp (bfd_get_section_name (input_bfd,
6321 input_section),
6322 name + 5) == 0);
6323
6324 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
6325 BFD_ASSERT (sreloc != NULL);
6326 }
6327
6328 skip = 0;
6329
6330 outrel.r_offset =
6331 _bfd_elf_section_offset (output_bfd, info, input_section,
6332 rel->r_offset);
6333 if (outrel.r_offset == (bfd_vma) -1
6334 || outrel.r_offset == (bfd_vma) -2)
6335 skip = (int) outrel.r_offset;
6336 outrel.r_offset += (input_section->output_section->vma
6337 + input_section->output_offset);
6338
6339 if (skip)
6340 memset (&outrel, 0, sizeof outrel);
6341 else if (!SYMBOL_REFERENCES_LOCAL (info, h))
6342 {
6343 unresolved_reloc = FALSE;
6344 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
6345 outrel.r_addend = rel->r_addend;
6346 }
6347 else
6348 {
6349 outrel.r_addend = relocation + rel->r_addend;
6350
6351 if (r_type == R_PPC_ADDR32)
6352 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
6353 else
6354 {
6355 long indx;
6356
6357 if (bfd_is_abs_section (sec))
6358 indx = 0;
6359 else if (sec == NULL || sec->owner == NULL)
6360 {
6361 bfd_set_error (bfd_error_bad_value);
6362 return FALSE;
6363 }
6364 else
6365 {
6366 asection *osec;
6367
6368 /* We are turning this relocation into one
6369 against a section symbol. It would be
6370 proper to subtract the symbol's value,
6371 osec->vma, from the emitted reloc addend,
6372 but ld.so expects buggy relocs. */
6373 osec = sec->output_section;
6374 indx = elf_section_data (osec)->dynindx;
6375 if (indx == 0)
6376 {
6377 osec = htab->elf.text_index_section;
6378 indx = elf_section_data (osec)->dynindx;
6379 }
6380 BFD_ASSERT (indx != 0);
6381 #ifdef DEBUG
6382 if (indx == 0)
6383 printf ("indx=%ld section=%s flags=%08x name=%s\n",
6384 indx, osec->name, osec->flags,
6385 h->root.root.string);
6386 #endif
6387 }
6388
6389 outrel.r_info = ELF32_R_INFO (indx, r_type);
6390 }
6391 }
6392
6393 loc = sreloc->contents;
6394 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
6395 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
6396
6397 if (skip == -1)
6398 continue;
6399
6400 /* This reloc will be computed at runtime. We clear the memory
6401 so that it contains predictable value. */
6402 if (! skip
6403 && ((input_section->flags & SEC_ALLOC) != 0
6404 || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE))
6405 {
6406 relocation = howto->pc_relative ? outrel.r_offset : 0;
6407 addend = 0;
6408 break;
6409 }
6410 }
6411 break;
6412
6413 case R_PPC_RELAX32PC_PLT:
6414 case R_PPC_RELAX32_PLT:
6415 {
6416 struct plt_entry *ent = find_plt_ent (h, got2, addend);
6417
6418 if (htab->plt_type == PLT_NEW)
6419 relocation = (htab->glink->output_section->vma
6420 + htab->glink->output_offset
6421 + ent->glink_offset);
6422 else
6423 relocation = (htab->plt->output_section->vma
6424 + htab->plt->output_offset
6425 + ent->plt.offset);
6426 addend = 0;
6427 }
6428 if (r_type == R_PPC_RELAX32_PLT)
6429 goto relax32;
6430 /* Fall thru */
6431
6432 case R_PPC_RELAX32PC:
6433 relocation -= (input_section->output_section->vma
6434 + input_section->output_offset
6435 + rel->r_offset - 4);
6436 /* Fall thru */
6437
6438 case R_PPC_RELAX32:
6439 relax32:
6440 {
6441 unsigned long t0;
6442 unsigned long t1;
6443
6444 t0 = bfd_get_32 (output_bfd, contents + rel->r_offset);
6445 t1 = bfd_get_32 (output_bfd, contents + rel->r_offset + 4);
6446
6447 /* We're clearing the bits for R_PPC_ADDR16_HA
6448 and R_PPC_ADDR16_LO here. */
6449 t0 &= ~0xffff;
6450 t1 &= ~0xffff;
6451
6452 /* t0 is HA, t1 is LO */
6453 relocation += addend;
6454 t0 |= ((relocation + 0x8000) >> 16) & 0xffff;
6455 t1 |= relocation & 0xffff;
6456
6457 bfd_put_32 (output_bfd, t0, contents + rel->r_offset);
6458 bfd_put_32 (output_bfd, t1, contents + rel->r_offset + 4);
6459 }
6460 continue;
6461
6462 /* Indirect .sdata relocation. */
6463 case R_PPC_EMB_SDAI16:
6464 BFD_ASSERT (htab->sdata[0].section != NULL);
6465 relocation
6466 = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[0],
6467 h, relocation, rel);
6468 break;
6469
6470 /* Indirect .sdata2 relocation. */
6471 case R_PPC_EMB_SDA2I16:
6472 BFD_ASSERT (htab->sdata[1].section != NULL);
6473 relocation
6474 = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[1],
6475 h, relocation, rel);
6476 break;
6477
6478 /* Handle the TOC16 reloc. We want to use the offset within the .got
6479 section, not the actual VMA. This is appropriate when generating
6480 an embedded ELF object, for which the .got section acts like the
6481 AIX .toc section. */
6482 case R_PPC_TOC16: /* phony GOT16 relocations */
6483 BFD_ASSERT (sec != NULL);
6484 BFD_ASSERT (bfd_is_und_section (sec)
6485 || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
6486 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0);
6487
6488 addend -= sec->output_section->vma + sec->output_offset + 0x8000;
6489 break;
6490
6491 case R_PPC_PLTREL24:
6492 /* Relocation is to the entry for this symbol in the
6493 procedure linkage table. */
6494 {
6495 struct plt_entry *ent = find_plt_ent (h, got2, addend);
6496
6497 addend = 0;
6498 if (ent == NULL
6499 || htab->plt == NULL)
6500 {
6501 /* We didn't make a PLT entry for this symbol. This
6502 happens when statically linking PIC code, or when
6503 using -Bsymbolic. */
6504 break;
6505 }
6506
6507 unresolved_reloc = FALSE;
6508 if (htab->plt_type == PLT_NEW)
6509 relocation = (htab->glink->output_section->vma
6510 + htab->glink->output_offset
6511 + ent->glink_offset);
6512 else
6513 relocation = (htab->plt->output_section->vma
6514 + htab->plt->output_offset
6515 + ent->plt.offset);
6516 }
6517 break;
6518
6519 /* Relocate against _SDA_BASE_. */
6520 case R_PPC_SDAREL16:
6521 {
6522 const char *name;
6523 struct elf_link_hash_entry *sh;
6524
6525 BFD_ASSERT (sec != NULL);
6526 name = bfd_get_section_name (abfd, sec->output_section);
6527 if (! ((CONST_STRNEQ (name, ".sdata")
6528 && (name[6] == 0 || name[6] == '.'))
6529 || (CONST_STRNEQ (name, ".sbss")
6530 && (name[5] == 0 || name[5] == '.'))))
6531 {
6532 (*_bfd_error_handler)
6533 (_("%B: the target (%s) of a %s relocation is "
6534 "in the wrong output section (%s)"),
6535 input_bfd,
6536 sym_name,
6537 howto->name,
6538 name);
6539 }
6540 sh = htab->sdata[0].sym;
6541 addend -= (sh->root.u.def.value
6542 + sh->root.u.def.section->output_offset
6543 + sh->root.u.def.section->output_section->vma);
6544 }
6545 break;
6546
6547 /* Relocate against _SDA2_BASE_. */
6548 case R_PPC_EMB_SDA2REL:
6549 {
6550 const char *name;
6551 struct elf_link_hash_entry *sh;
6552
6553 BFD_ASSERT (sec != NULL);
6554 name = bfd_get_section_name (abfd, sec->output_section);
6555 if (! (CONST_STRNEQ (name, ".sdata2")
6556 || CONST_STRNEQ (name, ".sbss2")))
6557 {
6558 (*_bfd_error_handler)
6559 (_("%B: the target (%s) of a %s relocation is "
6560 "in the wrong output section (%s)"),
6561 input_bfd,
6562 sym_name,
6563 howto->name,
6564 name);
6565
6566 bfd_set_error (bfd_error_bad_value);
6567 ret = FALSE;
6568 continue;
6569 }
6570 sh = htab->sdata[1].sym;
6571 addend -= (sh->root.u.def.value
6572 + sh->root.u.def.section->output_offset
6573 + sh->root.u.def.section->output_section->vma);
6574 }
6575 break;
6576
6577 /* Relocate against either _SDA_BASE_, _SDA2_BASE_, or 0. */
6578 case R_PPC_EMB_SDA21:
6579 case R_PPC_EMB_RELSDA:
6580 {
6581 const char *name;
6582 int reg;
6583 struct elf_link_hash_entry *sh;
6584
6585 BFD_ASSERT (sec != NULL);
6586 name = bfd_get_section_name (abfd, sec->output_section);
6587 if (((CONST_STRNEQ (name, ".sdata")
6588 && (name[6] == 0 || name[6] == '.'))
6589 || (CONST_STRNEQ (name, ".sbss")
6590 && (name[5] == 0 || name[5] == '.'))))
6591 {
6592 reg = 13;
6593 sh = htab->sdata[0].sym;
6594 addend -= (sh->root.u.def.value
6595 + sh->root.u.def.section->output_offset
6596 + sh->root.u.def.section->output_section->vma);
6597 }
6598
6599 else if (CONST_STRNEQ (name, ".sdata2")
6600 || CONST_STRNEQ (name, ".sbss2"))
6601 {
6602 reg = 2;
6603 sh = htab->sdata[1].sym;
6604 addend -= (sh->root.u.def.value
6605 + sh->root.u.def.section->output_offset
6606 + sh->root.u.def.section->output_section->vma);
6607 }
6608
6609 else if (strcmp (name, ".PPC.EMB.sdata0") == 0
6610 || strcmp (name, ".PPC.EMB.sbss0") == 0)
6611 {
6612 reg = 0;
6613 }
6614
6615 else
6616 {
6617 (*_bfd_error_handler)
6618 (_("%B: the target (%s) of a %s relocation is "
6619 "in the wrong output section (%s)"),
6620 input_bfd,
6621 sym_name,
6622 howto->name,
6623 name);
6624
6625 bfd_set_error (bfd_error_bad_value);
6626 ret = FALSE;
6627 continue;
6628 }
6629
6630 if (r_type == R_PPC_EMB_SDA21)
6631 { /* fill in register field */
6632 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
6633 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
6634 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
6635 }
6636 }
6637 break;
6638
6639 /* Relocate against the beginning of the section. */
6640 case R_PPC_SECTOFF:
6641 case R_PPC_SECTOFF_LO:
6642 case R_PPC_SECTOFF_HI:
6643 case R_PPC_SECTOFF_HA:
6644 BFD_ASSERT (sec != NULL);
6645 addend -= sec->output_section->vma;
6646 break;
6647
6648 /* Negative relocations. */
6649 case R_PPC_EMB_NADDR32:
6650 case R_PPC_EMB_NADDR16:
6651 case R_PPC_EMB_NADDR16_LO:
6652 case R_PPC_EMB_NADDR16_HI:
6653 case R_PPC_EMB_NADDR16_HA:
6654 addend -= 2 * relocation;
6655 break;
6656
6657 case R_PPC_COPY:
6658 case R_PPC_GLOB_DAT:
6659 case R_PPC_JMP_SLOT:
6660 case R_PPC_RELATIVE:
6661 case R_PPC_PLT32:
6662 case R_PPC_PLTREL32:
6663 case R_PPC_PLT16_LO:
6664 case R_PPC_PLT16_HI:
6665 case R_PPC_PLT16_HA:
6666 case R_PPC_ADDR30:
6667 case R_PPC_EMB_RELSEC16:
6668 case R_PPC_EMB_RELST_LO:
6669 case R_PPC_EMB_RELST_HI:
6670 case R_PPC_EMB_RELST_HA:
6671 case R_PPC_EMB_BIT_FLD:
6672 (*_bfd_error_handler)
6673 (_("%B: relocation %s is not yet supported for symbol %s."),
6674 input_bfd,
6675 howto->name,
6676 sym_name);
6677
6678 bfd_set_error (bfd_error_invalid_operation);
6679 ret = FALSE;
6680 continue;
6681 }
6682
6683 /* Do any further special processing. */
6684 switch (r_type)
6685 {
6686 default:
6687 break;
6688
6689 case R_PPC_ADDR16_HA:
6690 case R_PPC_REL16_HA:
6691 case R_PPC_SECTOFF_HA:
6692 case R_PPC_TPREL16_HA:
6693 case R_PPC_DTPREL16_HA:
6694 case R_PPC_EMB_NADDR16_HA:
6695 case R_PPC_EMB_RELST_HA:
6696 /* It's just possible that this symbol is a weak symbol
6697 that's not actually defined anywhere. In that case,
6698 'sec' would be NULL, and we should leave the symbol
6699 alone (it will be set to zero elsewhere in the link). */
6700 if (sec == NULL)
6701 break;
6702 /* Fall thru */
6703
6704 case R_PPC_PLT16_HA:
6705 case R_PPC_GOT16_HA:
6706 case R_PPC_GOT_TLSGD16_HA:
6707 case R_PPC_GOT_TLSLD16_HA:
6708 case R_PPC_GOT_TPREL16_HA:
6709 case R_PPC_GOT_DTPREL16_HA:
6710 /* Add 0x10000 if sign bit in 0:15 is set.
6711 Bits 0:15 are not used. */
6712 addend += 0x8000;
6713 break;
6714 }
6715
6716 #ifdef DEBUG
6717 fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, "
6718 "offset = %ld, addend = %ld\n",
6719 howto->name,
6720 (int) r_type,
6721 sym_name,
6722 r_symndx,
6723 (long) rel->r_offset,
6724 (long) addend);
6725 #endif
6726
6727 if (unresolved_reloc
6728 && !((input_section->flags & SEC_DEBUGGING) != 0
6729 && h->def_dynamic))
6730 {
6731 (*_bfd_error_handler)
6732 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
6733 input_bfd,
6734 input_section,
6735 (long) rel->r_offset,
6736 howto->name,
6737 sym_name);
6738 ret = FALSE;
6739 }
6740
6741 r = _bfd_final_link_relocate (howto,
6742 input_bfd,
6743 input_section,
6744 contents,
6745 rel->r_offset,
6746 relocation,
6747 addend);
6748
6749 if (r != bfd_reloc_ok)
6750 {
6751 if (r == bfd_reloc_overflow)
6752 {
6753 if (warned)
6754 continue;
6755 if (h != NULL
6756 && h->root.type == bfd_link_hash_undefweak
6757 && howto->pc_relative)
6758 {
6759 /* Assume this is a call protected by other code that
6760 detect the symbol is undefined. If this is the case,
6761 we can safely ignore the overflow. If not, the
6762 program is hosed anyway, and a little warning isn't
6763 going to help. */
6764
6765 continue;
6766 }
6767
6768 if (! (*info->callbacks->reloc_overflow) (info,
6769 (h ? &h->root : NULL),
6770 sym_name,
6771 howto->name,
6772 rel->r_addend,
6773 input_bfd,
6774 input_section,
6775 rel->r_offset))
6776 return FALSE;
6777 }
6778 else
6779 {
6780 (*_bfd_error_handler)
6781 (_("%B(%A+0x%lx): %s reloc against `%s': error %d"),
6782 input_bfd, input_section,
6783 (long) rel->r_offset, howto->name, sym_name, (int) r);
6784 ret = FALSE;
6785 }
6786 }
6787 }
6788
6789 #ifdef DEBUG
6790 fprintf (stderr, "\n");
6791 #endif
6792
6793 return ret;
6794 }
6795 \f
6796 #define PPC_LO(v) ((v) & 0xffff)
6797 #define PPC_HI(v) (((v) >> 16) & 0xffff)
6798 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
6799
6800 /* Finish up dynamic symbol handling. We set the contents of various
6801 dynamic sections here. */
6802
6803 static bfd_boolean
6804 ppc_elf_finish_dynamic_symbol (bfd *output_bfd,
6805 struct bfd_link_info *info,
6806 struct elf_link_hash_entry *h,
6807 Elf_Internal_Sym *sym)
6808 {
6809 struct ppc_elf_link_hash_table *htab;
6810 struct plt_entry *ent;
6811 bfd_boolean doneone;
6812
6813 #ifdef DEBUG
6814 fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
6815 h->root.root.string);
6816 #endif
6817
6818 htab = ppc_elf_hash_table (info);
6819 BFD_ASSERT (htab->elf.dynobj != NULL);
6820
6821 doneone = FALSE;
6822 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
6823 if (ent->plt.offset != (bfd_vma) -1)
6824 {
6825 if (!doneone)
6826 {
6827 Elf_Internal_Rela rela;
6828 bfd_byte *loc;
6829 bfd_vma reloc_index;
6830
6831 if (htab->plt_type == PLT_NEW)
6832 reloc_index = ent->plt.offset / 4;
6833 else
6834 {
6835 reloc_index = ((ent->plt.offset - htab->plt_initial_entry_size)
6836 / htab->plt_slot_size);
6837 if (reloc_index > PLT_NUM_SINGLE_ENTRIES
6838 && htab->plt_type == PLT_OLD)
6839 reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
6840 }
6841
6842 /* This symbol has an entry in the procedure linkage table.
6843 Set it up. */
6844 if (htab->plt_type == PLT_VXWORKS)
6845 {
6846 bfd_vma got_offset;
6847 const bfd_vma *plt_entry;
6848
6849 /* The first three entries in .got.plt are reserved. */
6850 got_offset = (reloc_index + 3) * 4;
6851
6852 /* Use the right PLT. */
6853 plt_entry = info->shared ? ppc_elf_vxworks_pic_plt_entry
6854 : ppc_elf_vxworks_plt_entry;
6855
6856 /* Fill in the .plt on VxWorks. */
6857 if (info->shared)
6858 {
6859 bfd_vma got_offset_hi = (got_offset >> 16)
6860 + ((got_offset & 0x8000) >> 15);
6861
6862 bfd_put_32 (output_bfd,
6863 plt_entry[0] | (got_offset_hi & 0xffff),
6864 htab->plt->contents + ent->plt.offset + 0);
6865 bfd_put_32 (output_bfd,
6866 plt_entry[1] | (got_offset & 0xffff),
6867 htab->plt->contents + ent->plt.offset + 4);
6868 }
6869 else
6870 {
6871 bfd_vma got_loc
6872 = (got_offset
6873 + htab->elf.hgot->root.u.def.value
6874 + htab->elf.hgot->root.u.def.section->output_offset
6875 + htab->elf.hgot->root.u.def.section->output_section->vma);
6876 bfd_vma got_loc_hi = (got_loc >> 16)
6877 + ((got_loc & 0x8000) >> 15);
6878
6879 bfd_put_32 (output_bfd,
6880 plt_entry[0] | (got_loc_hi & 0xffff),
6881 htab->plt->contents + ent->plt.offset + 0);
6882 bfd_put_32 (output_bfd,
6883 plt_entry[1] | (got_loc & 0xffff),
6884 htab->plt->contents + ent->plt.offset + 4);
6885 }
6886
6887 bfd_put_32 (output_bfd, plt_entry[2],
6888 htab->plt->contents + ent->plt.offset + 8);
6889 bfd_put_32 (output_bfd, plt_entry[3],
6890 htab->plt->contents + ent->plt.offset + 12);
6891
6892 /* This instruction is an immediate load. The value loaded is
6893 the byte offset of the R_PPC_JMP_SLOT relocation from the
6894 start of the .rela.plt section. The value is stored in the
6895 low-order 16 bits of the load instruction. */
6896 /* NOTE: It appears that this is now an index rather than a
6897 prescaled offset. */
6898 bfd_put_32 (output_bfd,
6899 plt_entry[4] | reloc_index,
6900 htab->plt->contents + ent->plt.offset + 16);
6901 /* This instruction is a PC-relative branch whose target is
6902 the start of the PLT section. The address of this branch
6903 instruction is 20 bytes beyond the start of this PLT entry.
6904 The address is encoded in bits 6-29, inclusive. The value
6905 stored is right-shifted by two bits, permitting a 26-bit
6906 offset. */
6907 bfd_put_32 (output_bfd,
6908 (plt_entry[5]
6909 | (-(ent->plt.offset + 20) & 0x03fffffc)),
6910 htab->plt->contents + ent->plt.offset + 20);
6911 bfd_put_32 (output_bfd, plt_entry[6],
6912 htab->plt->contents + ent->plt.offset + 24);
6913 bfd_put_32 (output_bfd, plt_entry[7],
6914 htab->plt->contents + ent->plt.offset + 28);
6915
6916 /* Fill in the GOT entry corresponding to this PLT slot with
6917 the address immediately after the the "bctr" instruction
6918 in this PLT entry. */
6919 bfd_put_32 (output_bfd, (htab->plt->output_section->vma
6920 + htab->plt->output_offset
6921 + ent->plt.offset + 16),
6922 htab->sgotplt->contents + got_offset);
6923
6924 if (!info->shared)
6925 {
6926 /* Fill in a couple of entries in .rela.plt.unloaded. */
6927 loc = htab->srelplt2->contents
6928 + ((VXWORKS_PLTRESOLVE_RELOCS + reloc_index
6929 * VXWORKS_PLT_NON_JMP_SLOT_RELOCS)
6930 * sizeof (Elf32_External_Rela));
6931
6932 /* Provide the @ha relocation for the first instruction. */
6933 rela.r_offset = (htab->plt->output_section->vma
6934 + htab->plt->output_offset
6935 + ent->plt.offset + 2);
6936 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
6937 R_PPC_ADDR16_HA);
6938 rela.r_addend = got_offset;
6939 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
6940 loc += sizeof (Elf32_External_Rela);
6941
6942 /* Provide the @l relocation for the second instruction. */
6943 rela.r_offset = (htab->plt->output_section->vma
6944 + htab->plt->output_offset
6945 + ent->plt.offset + 6);
6946 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
6947 R_PPC_ADDR16_LO);
6948 rela.r_addend = got_offset;
6949 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
6950 loc += sizeof (Elf32_External_Rela);
6951
6952 /* Provide a relocation for the GOT entry corresponding to this
6953 PLT slot. Point it at the middle of the .plt entry. */
6954 rela.r_offset = (htab->sgotplt->output_section->vma
6955 + htab->sgotplt->output_offset
6956 + got_offset);
6957 rela.r_info = ELF32_R_INFO (htab->elf.hplt->indx,
6958 R_PPC_ADDR32);
6959 rela.r_addend = ent->plt.offset + 16;
6960 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
6961 }
6962
6963 /* VxWorks uses non-standard semantics for R_PPC_JMP_SLOT.
6964 In particular, the offset for the relocation is not the
6965 address of the PLT entry for this function, as specified
6966 by the ABI. Instead, the offset is set to the address of
6967 the GOT slot for this function. See EABI 4.4.4.1. */
6968 rela.r_offset = (htab->sgotplt->output_section->vma
6969 + htab->sgotplt->output_offset
6970 + got_offset);
6971
6972 }
6973 else
6974 {
6975 rela.r_offset = (htab->plt->output_section->vma
6976 + htab->plt->output_offset
6977 + ent->plt.offset);
6978 if (htab->plt_type == PLT_OLD)
6979 {
6980 /* We don't need to fill in the .plt. The ppc dynamic
6981 linker will fill it in. */
6982 }
6983 else
6984 {
6985 bfd_vma val = (htab->glink_pltresolve + ent->plt.offset
6986 + htab->glink->output_section->vma
6987 + htab->glink->output_offset);
6988 bfd_put_32 (output_bfd, val,
6989 htab->plt->contents + ent->plt.offset);
6990 }
6991 }
6992
6993 /* Fill in the entry in the .rela.plt section. */
6994 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
6995 rela.r_addend = 0;
6996
6997 loc = (htab->relplt->contents
6998 + reloc_index * sizeof (Elf32_External_Rela));
6999 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7000
7001 if (!h->def_regular)
7002 {
7003 /* Mark the symbol as undefined, rather than as defined in
7004 the .plt section. Leave the value alone. */
7005 sym->st_shndx = SHN_UNDEF;
7006 /* If the symbol is weak, we do need to clear the value.
7007 Otherwise, the PLT entry would provide a definition for
7008 the symbol even if the symbol wasn't defined anywhere,
7009 and so the symbol would never be NULL. */
7010 if (!h->ref_regular_nonweak)
7011 sym->st_value = 0;
7012 }
7013 doneone = TRUE;
7014 }
7015
7016 if (htab->plt_type == PLT_NEW)
7017 {
7018 bfd_vma plt;
7019 unsigned char *p;
7020
7021 plt = (ent->plt.offset
7022 + htab->plt->output_section->vma
7023 + htab->plt->output_offset);
7024 p = (unsigned char *) htab->glink->contents + ent->glink_offset;
7025
7026 if (info->shared || info->pie)
7027 {
7028 bfd_vma got = 0;
7029
7030 if (ent->addend >= 32768)
7031 got = (ent->addend
7032 + ent->sec->output_section->vma
7033 + ent->sec->output_offset);
7034 else if (htab->elf.hgot != NULL)
7035 got = (htab->elf.hgot->root.u.def.value
7036 + htab->elf.hgot->root.u.def.section->output_section->vma
7037 + htab->elf.hgot->root.u.def.section->output_offset);
7038
7039 plt -= got;
7040
7041 if (plt + 0x8000 < 0x10000)
7042 {
7043 bfd_put_32 (output_bfd, LWZ_11_30 + PPC_LO (plt), p);
7044 p += 4;
7045 bfd_put_32 (output_bfd, MTCTR_11, p);
7046 p += 4;
7047 bfd_put_32 (output_bfd, BCTR, p);
7048 p += 4;
7049 bfd_put_32 (output_bfd, NOP, p);
7050 p += 4;
7051 }
7052 else
7053 {
7054 bfd_put_32 (output_bfd, ADDIS_11_30 + PPC_HA (plt), p);
7055 p += 4;
7056 bfd_put_32 (output_bfd, LWZ_11_11 + PPC_LO (plt), p);
7057 p += 4;
7058 bfd_put_32 (output_bfd, MTCTR_11, p);
7059 p += 4;
7060 bfd_put_32 (output_bfd, BCTR, p);
7061 p += 4;
7062 }
7063 }
7064 else
7065 {
7066 bfd_put_32 (output_bfd, LIS_11 + PPC_HA (plt), p);
7067 p += 4;
7068 bfd_put_32 (output_bfd, LWZ_11_11 + PPC_LO (plt), p);
7069 p += 4;
7070 bfd_put_32 (output_bfd, MTCTR_11, p);
7071 p += 4;
7072 bfd_put_32 (output_bfd, BCTR, p);
7073 p += 4;
7074
7075 /* We only need one non-PIC glink stub. */
7076 break;
7077 }
7078 }
7079 else
7080 break;
7081 }
7082
7083 if (h->needs_copy)
7084 {
7085 asection *s;
7086 Elf_Internal_Rela rela;
7087 bfd_byte *loc;
7088
7089 /* This symbols needs a copy reloc. Set it up. */
7090
7091 #ifdef DEBUG
7092 fprintf (stderr, ", copy");
7093 #endif
7094
7095 BFD_ASSERT (h->dynindx != -1);
7096
7097 if (ppc_elf_hash_entry (h)->has_sda_refs)
7098 s = htab->relsbss;
7099 else
7100 s = htab->relbss;
7101 BFD_ASSERT (s != NULL);
7102
7103 rela.r_offset = (h->root.u.def.value
7104 + h->root.u.def.section->output_section->vma
7105 + h->root.u.def.section->output_offset);
7106 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
7107 rela.r_addend = 0;
7108 loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
7109 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7110 }
7111
7112 #ifdef DEBUG
7113 fprintf (stderr, "\n");
7114 #endif
7115
7116 /* Mark some specially defined symbols as absolute. */
7117 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
7118 || (!htab->is_vxworks
7119 && (h == htab->elf.hgot
7120 || strcmp (h->root.root.string,
7121 "_PROCEDURE_LINKAGE_TABLE_") == 0)))
7122 sym->st_shndx = SHN_ABS;
7123
7124 return TRUE;
7125 }
7126 \f
7127 static enum elf_reloc_type_class
7128 ppc_elf_reloc_type_class (const Elf_Internal_Rela *rela)
7129 {
7130 switch (ELF32_R_TYPE (rela->r_info))
7131 {
7132 case R_PPC_RELATIVE:
7133 return reloc_class_relative;
7134 case R_PPC_REL24:
7135 case R_PPC_ADDR24:
7136 case R_PPC_JMP_SLOT:
7137 return reloc_class_plt;
7138 case R_PPC_COPY:
7139 return reloc_class_copy;
7140 default:
7141 return reloc_class_normal;
7142 }
7143 }
7144 \f
7145 /* Finish up the dynamic sections. */
7146
7147 static bfd_boolean
7148 ppc_elf_finish_dynamic_sections (bfd *output_bfd,
7149 struct bfd_link_info *info)
7150 {
7151 asection *sdyn;
7152 asection *splt;
7153 struct ppc_elf_link_hash_table *htab;
7154 bfd_vma got;
7155 bfd * dynobj;
7156
7157 #ifdef DEBUG
7158 fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
7159 #endif
7160
7161 htab = ppc_elf_hash_table (info);
7162 dynobj = elf_hash_table (info)->dynobj;
7163 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
7164 if (htab->is_vxworks)
7165 splt = bfd_get_section_by_name (dynobj, ".plt");
7166 else
7167 splt = NULL;
7168
7169 got = 0;
7170 if (htab->elf.hgot != NULL)
7171 got = (htab->elf.hgot->root.u.def.value
7172 + htab->elf.hgot->root.u.def.section->output_section->vma
7173 + htab->elf.hgot->root.u.def.section->output_offset);
7174
7175 if (htab->elf.dynamic_sections_created)
7176 {
7177 Elf32_External_Dyn *dyncon, *dynconend;
7178
7179 BFD_ASSERT (htab->plt != NULL && sdyn != NULL);
7180
7181 dyncon = (Elf32_External_Dyn *) sdyn->contents;
7182 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
7183 for (; dyncon < dynconend; dyncon++)
7184 {
7185 Elf_Internal_Dyn dyn;
7186 asection *s;
7187
7188 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
7189
7190 switch (dyn.d_tag)
7191 {
7192 case DT_PLTGOT:
7193 if (htab->is_vxworks)
7194 s = htab->sgotplt;
7195 else
7196 s = htab->plt;
7197 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
7198 break;
7199
7200 case DT_PLTRELSZ:
7201 dyn.d_un.d_val = htab->relplt->size;
7202 break;
7203
7204 case DT_JMPREL:
7205 s = htab->relplt;
7206 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
7207 break;
7208
7209 case DT_PPC_GOT:
7210 dyn.d_un.d_ptr = got;
7211 break;
7212
7213 case DT_RELASZ:
7214 if (htab->is_vxworks)
7215 {
7216 if (htab->relplt)
7217 dyn.d_un.d_ptr -= htab->relplt->size;
7218 break;
7219 }
7220 continue;
7221
7222 default:
7223 continue;
7224 }
7225
7226 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
7227 }
7228 }
7229
7230 /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
7231 easily find the address of the _GLOBAL_OFFSET_TABLE_. */
7232 if (htab->got != NULL)
7233 {
7234 unsigned char *p = htab->got->contents;
7235 bfd_vma val;
7236
7237 p += htab->elf.hgot->root.u.def.value;
7238 if (htab->plt_type == PLT_OLD)
7239 bfd_put_32 (output_bfd, 0x4e800021 /* blrl */, p - 4);
7240
7241 val = 0;
7242 if (sdyn != NULL)
7243 val = sdyn->output_section->vma + sdyn->output_offset;
7244 bfd_put_32 (output_bfd, val, p);
7245
7246 elf_section_data (htab->got->output_section)->this_hdr.sh_entsize = 4;
7247 }
7248
7249 /* Fill in the first entry in the VxWorks procedure linkage table. */
7250 if (splt && splt->size > 0)
7251 {
7252 /* Use the right PLT. */
7253 static const bfd_vma *plt_entry = NULL;
7254 plt_entry = info->shared ?
7255 ppc_elf_vxworks_pic_plt0_entry : ppc_elf_vxworks_plt0_entry;
7256
7257 if (!info->shared)
7258 {
7259 bfd_vma got_value =
7260 (htab->elf.hgot->root.u.def.section->output_section->vma
7261 + htab->elf.hgot->root.u.def.section->output_offset
7262 + htab->elf.hgot->root.u.def.value);
7263 bfd_vma got_hi = (got_value >> 16) + ((got_value & 0x8000) >> 15);
7264
7265 bfd_put_32 (output_bfd, plt_entry[0] | (got_hi & 0xffff),
7266 splt->contents + 0);
7267 bfd_put_32 (output_bfd, plt_entry[1] | (got_value & 0xffff),
7268 splt->contents + 4);
7269 }
7270 else
7271 {
7272 bfd_put_32 (output_bfd, plt_entry[0], splt->contents + 0);
7273 bfd_put_32 (output_bfd, plt_entry[1], splt->contents + 4);
7274 }
7275 bfd_put_32 (output_bfd, plt_entry[2], splt->contents + 8);
7276 bfd_put_32 (output_bfd, plt_entry[3], splt->contents + 12);
7277 bfd_put_32 (output_bfd, plt_entry[4], splt->contents + 16);
7278 bfd_put_32 (output_bfd, plt_entry[5], splt->contents + 20);
7279 bfd_put_32 (output_bfd, plt_entry[6], splt->contents + 24);
7280 bfd_put_32 (output_bfd, plt_entry[7], splt->contents + 28);
7281
7282 if (! info->shared)
7283 {
7284 Elf_Internal_Rela rela;
7285 bfd_byte *loc;
7286
7287 loc = htab->srelplt2->contents;
7288
7289 /* Output the @ha relocation for the first instruction. */
7290 rela.r_offset = (htab->plt->output_section->vma
7291 + htab->plt->output_offset
7292 + 2);
7293 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
7294 rela.r_addend = 0;
7295 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7296 loc += sizeof (Elf32_External_Rela);
7297
7298 /* Output the @l relocation for the second instruction. */
7299 rela.r_offset = (htab->plt->output_section->vma
7300 + htab->plt->output_offset
7301 + 6);
7302 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
7303 rela.r_addend = 0;
7304 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7305 loc += sizeof (Elf32_External_Rela);
7306
7307 /* Fix up the remaining relocations. They may have the wrong
7308 symbol index for _G_O_T_ or _P_L_T_ depending on the order
7309 in which symbols were output. */
7310 while (loc < htab->srelplt2->contents + htab->srelplt2->size)
7311 {
7312 Elf_Internal_Rela rel;
7313
7314 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
7315 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
7316 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
7317 loc += sizeof (Elf32_External_Rela);
7318
7319 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
7320 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
7321 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
7322 loc += sizeof (Elf32_External_Rela);
7323
7324 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
7325 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_PPC_ADDR32);
7326 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
7327 loc += sizeof (Elf32_External_Rela);
7328 }
7329 }
7330 }
7331
7332 if (htab->glink != NULL && htab->glink->contents != NULL)
7333 {
7334 unsigned char *p;
7335 unsigned char *endp;
7336 bfd_vma res0;
7337 unsigned int i;
7338
7339 /*
7340 * PIC glink code is the following:
7341 *
7342 * # ith PLT code stub.
7343 * addis 11,30,(plt+(i-1)*4-got)@ha
7344 * lwz 11,(plt+(i-1)*4-got)@l(11)
7345 * mtctr 11
7346 * bctr
7347 *
7348 * # A table of branches, one for each plt entry.
7349 * # The idea is that the plt call stub loads ctr (and r11) with these
7350 * # addresses, so (r11 - res_0) gives the plt index * 4.
7351 * res_0: b PLTresolve
7352 * res_1: b PLTresolve
7353 * .
7354 * # Some number of entries towards the end can be nops
7355 * res_n_m3: nop
7356 * res_n_m2: nop
7357 * res_n_m1:
7358 *
7359 * PLTresolve:
7360 * addis 11,11,(1f-res_0)@ha
7361 * mflr 0
7362 * bcl 20,31,1f
7363 * 1: addi 11,11,(1b-res_0)@l
7364 * mflr 12
7365 * mtlr 0
7366 * sub 11,11,12 # r11 = index * 4
7367 * addis 12,12,(got+4-1b)@ha
7368 * lwz 0,(got+4-1b)@l(12) # got[1] address of dl_runtime_resolve
7369 * lwz 12,(got+8-1b)@l(12) # got[2] contains the map address
7370 * mtctr 0
7371 * add 0,11,11
7372 * add 11,0,11 # r11 = index * 12 = reloc offset.
7373 * bctr
7374 */
7375 static const unsigned int pic_plt_resolve[] =
7376 {
7377 ADDIS_11_11,
7378 MFLR_0,
7379 BCL_20_31,
7380 ADDI_11_11,
7381 MFLR_12,
7382 MTLR_0,
7383 SUB_11_11_12,
7384 ADDIS_12_12,
7385 LWZ_0_12,
7386 LWZ_12_12,
7387 MTCTR_0,
7388 ADD_0_11_11,
7389 ADD_11_0_11,
7390 BCTR,
7391 NOP,
7392 NOP
7393 };
7394
7395 static const unsigned int plt_resolve[] =
7396 {
7397 LIS_12,
7398 ADDIS_11_11,
7399 LWZ_0_12,
7400 ADDI_11_11,
7401 MTCTR_0,
7402 ADD_0_11_11,
7403 LWZ_12_12,
7404 ADD_11_0_11,
7405 BCTR,
7406 NOP,
7407 NOP,
7408 NOP,
7409 NOP,
7410 NOP,
7411 NOP,
7412 NOP
7413 };
7414
7415 if (ARRAY_SIZE (pic_plt_resolve) != GLINK_PLTRESOLVE / 4)
7416 abort ();
7417 if (ARRAY_SIZE (plt_resolve) != GLINK_PLTRESOLVE / 4)
7418 abort ();
7419
7420 /* Build the branch table, one for each plt entry (less one),
7421 and perhaps some padding. */
7422 p = htab->glink->contents;
7423 p += htab->glink_pltresolve;
7424 endp = htab->glink->contents;
7425 endp += htab->glink->size - GLINK_PLTRESOLVE;
7426 while (p < endp - 8 * 4)
7427 {
7428 bfd_put_32 (output_bfd, B + endp - p, p);
7429 p += 4;
7430 }
7431 while (p < endp)
7432 {
7433 bfd_put_32 (output_bfd, NOP, p);
7434 p += 4;
7435 }
7436
7437 res0 = (htab->glink_pltresolve
7438 + htab->glink->output_section->vma
7439 + htab->glink->output_offset);
7440
7441 /* Last comes the PLTresolve stub. */
7442 if (info->shared || info->pie)
7443 {
7444 bfd_vma bcl;
7445
7446 for (i = 0; i < ARRAY_SIZE (pic_plt_resolve); i++)
7447 {
7448 bfd_put_32 (output_bfd, pic_plt_resolve[i], p);
7449 p += 4;
7450 }
7451 p -= 4 * ARRAY_SIZE (pic_plt_resolve);
7452
7453 bcl = (htab->glink->size - GLINK_PLTRESOLVE + 3*4
7454 + htab->glink->output_section->vma
7455 + htab->glink->output_offset);
7456
7457 bfd_put_32 (output_bfd,
7458 ADDIS_11_11 + PPC_HA (bcl - res0), p + 0*4);
7459 bfd_put_32 (output_bfd,
7460 ADDI_11_11 + PPC_LO (bcl - res0), p + 3*4);
7461 bfd_put_32 (output_bfd,
7462 ADDIS_12_12 + PPC_HA (got + 4 - bcl), p + 7*4);
7463 if (PPC_HA (got + 4 - bcl) == PPC_HA (got + 8 - bcl))
7464 {
7465 bfd_put_32 (output_bfd,
7466 LWZ_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
7467 bfd_put_32 (output_bfd,
7468 LWZ_12_12 + PPC_LO (got + 8 - bcl), p + 9*4);
7469 }
7470 else
7471 {
7472 bfd_put_32 (output_bfd,
7473 LWZU_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
7474 bfd_put_32 (output_bfd,
7475 LWZ_12_12 + 4, p + 9*4);
7476 }
7477 }
7478 else
7479 {
7480 for (i = 0; i < ARRAY_SIZE (plt_resolve); i++)
7481 {
7482 bfd_put_32 (output_bfd, plt_resolve[i], p);
7483 p += 4;
7484 }
7485 p -= 4 * ARRAY_SIZE (plt_resolve);
7486
7487 bfd_put_32 (output_bfd,
7488 LIS_12 + PPC_HA (got + 4), p + 0*4);
7489 bfd_put_32 (output_bfd,
7490 ADDIS_11_11 + PPC_HA (-res0), p + 1*4);
7491 bfd_put_32 (output_bfd,
7492 ADDI_11_11 + PPC_LO (-res0), p + 3*4);
7493 if (PPC_HA (got + 4) == PPC_HA (got + 8))
7494 {
7495 bfd_put_32 (output_bfd,
7496 LWZ_0_12 + PPC_LO (got + 4), p + 2*4);
7497 bfd_put_32 (output_bfd,
7498 LWZ_12_12 + PPC_LO (got + 8), p + 6*4);
7499 }
7500 else
7501 {
7502 bfd_put_32 (output_bfd,
7503 LWZU_0_12 + PPC_LO (got + 4), p + 2*4);
7504 bfd_put_32 (output_bfd,
7505 LWZ_12_12 + 4, p + 6*4);
7506 }
7507 }
7508 }
7509
7510 return TRUE;
7511 }
7512 \f
7513 #define TARGET_LITTLE_SYM bfd_elf32_powerpcle_vec
7514 #define TARGET_LITTLE_NAME "elf32-powerpcle"
7515 #define TARGET_BIG_SYM bfd_elf32_powerpc_vec
7516 #define TARGET_BIG_NAME "elf32-powerpc"
7517 #define ELF_ARCH bfd_arch_powerpc
7518 #define ELF_MACHINE_CODE EM_PPC
7519 #ifdef __QNXTARGET__
7520 #define ELF_MAXPAGESIZE 0x1000
7521 #else
7522 #define ELF_MAXPAGESIZE 0x10000
7523 #endif
7524 #define ELF_MINPAGESIZE 0x1000
7525 #define ELF_COMMONPAGESIZE 0x1000
7526 #define elf_info_to_howto ppc_elf_info_to_howto
7527
7528 #ifdef EM_CYGNUS_POWERPC
7529 #define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
7530 #endif
7531
7532 #ifdef EM_PPC_OLD
7533 #define ELF_MACHINE_ALT2 EM_PPC_OLD
7534 #endif
7535
7536 #define elf_backend_plt_not_loaded 1
7537 #define elf_backend_can_gc_sections 1
7538 #define elf_backend_can_refcount 1
7539 #define elf_backend_rela_normal 1
7540
7541 #define bfd_elf32_mkobject ppc_elf_mkobject
7542 #define bfd_elf32_bfd_merge_private_bfd_data ppc_elf_merge_private_bfd_data
7543 #define bfd_elf32_bfd_relax_section ppc_elf_relax_section
7544 #define bfd_elf32_bfd_reloc_type_lookup ppc_elf_reloc_type_lookup
7545 #define bfd_elf32_bfd_reloc_name_lookup ppc_elf_reloc_name_lookup
7546 #define bfd_elf32_bfd_set_private_flags ppc_elf_set_private_flags
7547 #define bfd_elf32_bfd_link_hash_table_create ppc_elf_link_hash_table_create
7548
7549 #define elf_backend_object_p ppc_elf_object_p
7550 #define elf_backend_gc_mark_hook ppc_elf_gc_mark_hook
7551 #define elf_backend_gc_sweep_hook ppc_elf_gc_sweep_hook
7552 #define elf_backend_section_from_shdr ppc_elf_section_from_shdr
7553 #define elf_backend_relocate_section ppc_elf_relocate_section
7554 #define elf_backend_create_dynamic_sections ppc_elf_create_dynamic_sections
7555 #define elf_backend_check_relocs ppc_elf_check_relocs
7556 #define elf_backend_copy_indirect_symbol ppc_elf_copy_indirect_symbol
7557 #define elf_backend_adjust_dynamic_symbol ppc_elf_adjust_dynamic_symbol
7558 #define elf_backend_add_symbol_hook ppc_elf_add_symbol_hook
7559 #define elf_backend_size_dynamic_sections ppc_elf_size_dynamic_sections
7560 #define elf_backend_finish_dynamic_symbol ppc_elf_finish_dynamic_symbol
7561 #define elf_backend_finish_dynamic_sections ppc_elf_finish_dynamic_sections
7562 #define elf_backend_fake_sections ppc_elf_fake_sections
7563 #define elf_backend_additional_program_headers ppc_elf_additional_program_headers
7564 #define elf_backend_grok_prstatus ppc_elf_grok_prstatus
7565 #define elf_backend_grok_psinfo ppc_elf_grok_psinfo
7566 #define elf_backend_write_core_note ppc_elf_write_core_note
7567 #define elf_backend_reloc_type_class ppc_elf_reloc_type_class
7568 #define elf_backend_begin_write_processing ppc_elf_begin_write_processing
7569 #define elf_backend_final_write_processing ppc_elf_final_write_processing
7570 #define elf_backend_write_section ppc_elf_write_section
7571 #define elf_backend_get_sec_type_attr ppc_elf_get_sec_type_attr
7572 #define elf_backend_plt_sym_val ppc_elf_plt_sym_val
7573 #define elf_backend_action_discarded ppc_elf_action_discarded
7574 #define elf_backend_init_index_section _bfd_elf_init_1_index_section
7575
7576 #include "elf32-target.h"
7577
7578 /* VxWorks Target */
7579
7580 #undef TARGET_LITTLE_SYM
7581 #undef TARGET_LITTLE_NAME
7582
7583 #undef TARGET_BIG_SYM
7584 #define TARGET_BIG_SYM bfd_elf32_powerpc_vxworks_vec
7585 #undef TARGET_BIG_NAME
7586 #define TARGET_BIG_NAME "elf32-powerpc-vxworks"
7587
7588 /* VxWorks uses the elf default section flags for .plt. */
7589 static const struct bfd_elf_special_section *
7590 ppc_elf_vxworks_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
7591 {
7592 if (sec->name == NULL)
7593 return NULL;
7594
7595 if (strcmp (sec->name, ".plt") == 0)
7596 return _bfd_elf_get_sec_type_attr (abfd, sec);
7597
7598 return ppc_elf_get_sec_type_attr (abfd, sec);
7599 }
7600
7601 /* Like ppc_elf_link_hash_table_create, but overrides
7602 appropriately for VxWorks. */
7603 static struct bfd_link_hash_table *
7604 ppc_elf_vxworks_link_hash_table_create (bfd *abfd)
7605 {
7606 struct bfd_link_hash_table *ret;
7607
7608 ret = ppc_elf_link_hash_table_create (abfd);
7609 if (ret)
7610 {
7611 struct ppc_elf_link_hash_table *htab
7612 = (struct ppc_elf_link_hash_table *)ret;
7613 htab->is_vxworks = 1;
7614 htab->plt_type = PLT_VXWORKS;
7615 htab->plt_entry_size = VXWORKS_PLT_ENTRY_SIZE;
7616 htab->plt_slot_size = VXWORKS_PLT_ENTRY_SIZE;
7617 htab->plt_initial_entry_size = VXWORKS_PLT_INITIAL_ENTRY_SIZE;
7618 }
7619 return ret;
7620 }
7621
7622 /* Tweak magic VxWorks symbols as they are loaded. */
7623 static bfd_boolean
7624 ppc_elf_vxworks_add_symbol_hook (bfd *abfd,
7625 struct bfd_link_info *info,
7626 Elf_Internal_Sym *sym,
7627 const char **namep ATTRIBUTE_UNUSED,
7628 flagword *flagsp ATTRIBUTE_UNUSED,
7629 asection **secp,
7630 bfd_vma *valp)
7631 {
7632 if (!elf_vxworks_add_symbol_hook(abfd, info, sym,namep, flagsp, secp,
7633 valp))
7634 return FALSE;
7635
7636 return ppc_elf_add_symbol_hook(abfd, info, sym,namep, flagsp, secp, valp);
7637 }
7638
7639 static void
7640 ppc_elf_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
7641 {
7642 ppc_elf_final_write_processing(abfd, linker);
7643 elf_vxworks_final_write_processing(abfd, linker);
7644 }
7645
7646 /* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
7647 define it. */
7648 #undef elf_backend_want_plt_sym
7649 #define elf_backend_want_plt_sym 1
7650 #undef elf_backend_want_got_plt
7651 #define elf_backend_want_got_plt 1
7652 #undef elf_backend_got_symbol_offset
7653 #define elf_backend_got_symbol_offset 0
7654 #undef elf_backend_plt_not_loaded
7655 #define elf_backend_plt_not_loaded 0
7656 #undef elf_backend_plt_readonly
7657 #define elf_backend_plt_readonly 1
7658 #undef elf_backend_got_header_size
7659 #define elf_backend_got_header_size 12
7660
7661 #undef bfd_elf32_bfd_link_hash_table_create
7662 #define bfd_elf32_bfd_link_hash_table_create \
7663 ppc_elf_vxworks_link_hash_table_create
7664 #undef elf_backend_add_symbol_hook
7665 #define elf_backend_add_symbol_hook \
7666 ppc_elf_vxworks_add_symbol_hook
7667 #undef elf_backend_link_output_symbol_hook
7668 #define elf_backend_link_output_symbol_hook \
7669 elf_vxworks_link_output_symbol_hook
7670 #undef elf_backend_final_write_processing
7671 #define elf_backend_final_write_processing \
7672 ppc_elf_vxworks_final_write_processing
7673 #undef elf_backend_get_sec_type_attr
7674 #define elf_backend_get_sec_type_attr \
7675 ppc_elf_vxworks_get_sec_type_attr
7676 #undef elf_backend_emit_relocs
7677 #define elf_backend_emit_relocs \
7678 elf_vxworks_emit_relocs
7679
7680 #undef elf32_bed
7681 #define elf32_bed ppc_elf_vxworks_bed
7682
7683 #include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.178436 seconds and 5 git commands to generate.