bfd/
[external/binutils.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, 2008, 2009, 2010, 2011, 2012
4    Free Software Foundation, Inc.
5    Written by Ian Lance Taylor, Cygnus Support.
6
7    This file is part of BFD, the Binary File Descriptor library.
8
9    This program is free software; you can redistribute it and/or modify
10    it under the terms of the GNU General Public License as published by
11    the Free Software Foundation; either version 3 of the License, or
12    (at your option) any later version.
13
14    This program is distributed in the hope that it will be useful,
15    but WITHOUT ANY WARRANTY; without even the implied warranty of
16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17    GNU General Public License for more details.
18
19    You should have received a copy of the GNU General Public License
20    along with this program; if not, write to the
21    Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
22    Boston, MA 02110-1301, USA.  */
23
24
25 /* This file is based on a preliminary PowerPC ELF ABI.  The
26    information may not match the final PowerPC ELF ABI.  It includes
27    suggestions from the in-progress Embedded PowerPC ABI, and that
28    information may also not match.  */
29
30 #include "sysdep.h"
31 #include <stdarg.h>
32 #include "bfd.h"
33 #include "bfdlink.h"
34 #include "libbfd.h"
35 #include "elf-bfd.h"
36 #include "elf/ppc.h"
37 #include "elf32-ppc.h"
38 #include "elf-vxworks.h"
39 #include "dwarf2.h"
40
41 typedef enum split16_format_type
42 {
43   split16a_type = 0,
44   split16d_type
45 }
46 split16_format_type;
47
48 /* RELA relocations are used here.  */
49
50 static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
51   (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
52 static bfd_reloc_status_type ppc_elf_unhandled_reloc
53   (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
54 static void ppc_elf_vle_split16
55   (bfd *, bfd_byte *, bfd_vma, bfd_vma, split16_format_type);
56
57 /* Branch prediction bit for branch taken relocs.  */
58 #define BRANCH_PREDICT_BIT 0x200000
59 /* Mask to set RA in memory instructions.  */
60 #define RA_REGISTER_MASK 0x001f0000
61 /* Value to shift register by to insert RA.  */
62 #define RA_REGISTER_SHIFT 16
63
64 /* The name of the dynamic interpreter.  This is put in the .interp
65    section.  */
66 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
67
68 /* For old-style PLT.  */
69 /* The number of single-slot PLT entries (the rest use two slots).  */
70 #define PLT_NUM_SINGLE_ENTRIES 8192
71
72 /* For new-style .glink and .plt.  */
73 #define GLINK_PLTRESOLVE 16*4
74 #define GLINK_ENTRY_SIZE 4*4
75 #define TLS_GET_ADDR_GLINK_SIZE 12*4
76
77 /* VxWorks uses its own plt layout, filled in by the static linker.  */
78
79 /* The standard VxWorks PLT entry.  */
80 #define VXWORKS_PLT_ENTRY_SIZE 32
81 static const bfd_vma ppc_elf_vxworks_plt_entry
82     [VXWORKS_PLT_ENTRY_SIZE / 4] =
83   {
84     0x3d800000, /* lis     r12,0                 */
85     0x818c0000, /* lwz     r12,0(r12)            */
86     0x7d8903a6, /* mtctr   r12                   */
87     0x4e800420, /* bctr                          */
88     0x39600000, /* li      r11,0                 */
89     0x48000000, /* b       14 <.PLT0resolve+0x4> */
90     0x60000000, /* nop                           */
91     0x60000000, /* nop                           */
92   };
93 static const bfd_vma ppc_elf_vxworks_pic_plt_entry
94     [VXWORKS_PLT_ENTRY_SIZE / 4] =
95   {
96     0x3d9e0000, /* addis r12,r30,0 */
97     0x818c0000, /* lwz   r12,0(r12) */
98     0x7d8903a6, /* mtctr r12 */
99     0x4e800420, /* bctr */
100     0x39600000, /* li    r11,0 */
101     0x48000000, /* b     14 <.PLT0resolve+0x4> 14: R_PPC_REL24 .PLTresolve */
102     0x60000000, /* nop */
103     0x60000000, /* nop */
104   };
105
106 /* The initial VxWorks PLT entry.  */
107 #define VXWORKS_PLT_INITIAL_ENTRY_SIZE 32
108 static const bfd_vma ppc_elf_vxworks_plt0_entry
109     [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
110   {
111     0x3d800000, /* lis     r12,0        */
112     0x398c0000, /* addi    r12,r12,0    */
113     0x800c0008, /* lwz     r0,8(r12)    */
114     0x7c0903a6, /* mtctr   r0           */
115     0x818c0004, /* lwz     r12,4(r12)   */
116     0x4e800420, /* bctr                 */
117     0x60000000, /* nop                  */
118     0x60000000, /* nop                  */
119   };
120 static const bfd_vma ppc_elf_vxworks_pic_plt0_entry
121     [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
122   {
123     0x819e0008, /* lwz   r12,8(r30) */
124     0x7d8903a6, /* mtctr r12        */
125     0x819e0004, /* lwz   r12,4(r30) */
126     0x4e800420, /* bctr             */
127     0x60000000, /* nop              */
128     0x60000000, /* nop              */
129     0x60000000, /* nop              */
130     0x60000000, /* nop              */
131   };
132
133 /* For executables, we have some additional relocations in
134    .rela.plt.unloaded, for the kernel loader.  */
135
136 /* The number of non-JMP_SLOT relocations per PLT0 slot. */
137 #define VXWORKS_PLT_NON_JMP_SLOT_RELOCS 3
138 /* The number of relocations in the PLTResolve slot. */
139 #define VXWORKS_PLTRESOLVE_RELOCS 2
140 /* The number of relocations in the PLTResolve slot when when creating
141    a shared library. */
142 #define VXWORKS_PLTRESOLVE_RELOCS_SHLIB 0
143
144 /* Some instructions.  */
145 #define ADDIS_11_11     0x3d6b0000
146 #define ADDIS_11_30     0x3d7e0000
147 #define ADDIS_12_12     0x3d8c0000
148 #define ADDI_11_11      0x396b0000
149 #define ADD_0_11_11     0x7c0b5a14
150 #define ADD_3_12_2      0x7c6c1214
151 #define ADD_11_0_11     0x7d605a14
152 #define B               0x48000000
153 #define BCL_20_31       0x429f0005
154 #define BCTR            0x4e800420
155 #define BEQLR           0x4d820020
156 #define CMPWI_11_0      0x2c0b0000
157 #define LIS_11          0x3d600000
158 #define LIS_12          0x3d800000
159 #define LWZU_0_12       0x840c0000
160 #define LWZ_0_12        0x800c0000
161 #define LWZ_11_3        0x81630000
162 #define LWZ_11_11       0x816b0000
163 #define LWZ_11_30       0x817e0000
164 #define LWZ_12_3        0x81830000
165 #define LWZ_12_12       0x818c0000
166 #define MR_0_3          0x7c601b78
167 #define MR_3_0          0x7c030378
168 #define MFLR_0          0x7c0802a6
169 #define MFLR_12         0x7d8802a6
170 #define MTCTR_0         0x7c0903a6
171 #define MTCTR_11        0x7d6903a6
172 #define MTLR_0          0x7c0803a6
173 #define NOP             0x60000000
174 #define SUB_11_11_12    0x7d6c5850
175
176 /* Offset of tp and dtp pointers from start of TLS block.  */
177 #define TP_OFFSET       0x7000
178 #define DTP_OFFSET      0x8000
179
180 /* The value of a defined global symbol.  */
181 #define SYM_VAL(SYM) \
182   ((SYM)->root.u.def.section->output_section->vma       \
183    + (SYM)->root.u.def.section->output_offset           \
184    + (SYM)->root.u.def.value)
185 \f
186 static reloc_howto_type *ppc_elf_howto_table[R_PPC_max];
187
188 static reloc_howto_type ppc_elf_howto_raw[] = {
189   /* This reloc does nothing.  */
190   HOWTO (R_PPC_NONE,            /* type */
191          0,                     /* rightshift */
192          2,                     /* size (0 = byte, 1 = short, 2 = long) */
193          32,                    /* bitsize */
194          FALSE,                 /* pc_relative */
195          0,                     /* bitpos */
196          complain_overflow_bitfield, /* complain_on_overflow */
197          bfd_elf_generic_reloc, /* special_function */
198          "R_PPC_NONE",          /* name */
199          FALSE,                 /* partial_inplace */
200          0,                     /* src_mask */
201          0,                     /* dst_mask */
202          FALSE),                /* pcrel_offset */
203
204   /* A standard 32 bit relocation.  */
205   HOWTO (R_PPC_ADDR32,          /* type */
206          0,                     /* rightshift */
207          2,                     /* size (0 = byte, 1 = short, 2 = long) */
208          32,                    /* bitsize */
209          FALSE,                 /* pc_relative */
210          0,                     /* bitpos */
211          complain_overflow_bitfield, /* complain_on_overflow */
212          bfd_elf_generic_reloc, /* special_function */
213          "R_PPC_ADDR32",        /* name */
214          FALSE,                 /* partial_inplace */
215          0,                     /* src_mask */
216          0xffffffff,            /* dst_mask */
217          FALSE),                /* pcrel_offset */
218
219   /* An absolute 26 bit branch; the lower two bits must be zero.
220      FIXME: we don't check that, we just clear them.  */
221   HOWTO (R_PPC_ADDR24,          /* type */
222          0,                     /* rightshift */
223          2,                     /* size (0 = byte, 1 = short, 2 = long) */
224          26,                    /* bitsize */
225          FALSE,                 /* pc_relative */
226          0,                     /* bitpos */
227          complain_overflow_bitfield, /* complain_on_overflow */
228          bfd_elf_generic_reloc, /* special_function */
229          "R_PPC_ADDR24",        /* name */
230          FALSE,                 /* partial_inplace */
231          0,                     /* src_mask */
232          0x3fffffc,             /* dst_mask */
233          FALSE),                /* pcrel_offset */
234
235   /* A standard 16 bit relocation.  */
236   HOWTO (R_PPC_ADDR16,          /* type */
237          0,                     /* rightshift */
238          1,                     /* size (0 = byte, 1 = short, 2 = long) */
239          16,                    /* bitsize */
240          FALSE,                 /* pc_relative */
241          0,                     /* bitpos */
242          complain_overflow_bitfield, /* complain_on_overflow */
243          bfd_elf_generic_reloc, /* special_function */
244          "R_PPC_ADDR16",        /* name */
245          FALSE,                 /* partial_inplace */
246          0,                     /* src_mask */
247          0xffff,                /* dst_mask */
248          FALSE),                /* pcrel_offset */
249
250   /* A 16 bit relocation without overflow.  */
251   HOWTO (R_PPC_ADDR16_LO,       /* type */
252          0,                     /* rightshift */
253          1,                     /* size (0 = byte, 1 = short, 2 = long) */
254          16,                    /* bitsize */
255          FALSE,                 /* pc_relative */
256          0,                     /* bitpos */
257          complain_overflow_dont,/* complain_on_overflow */
258          bfd_elf_generic_reloc, /* special_function */
259          "R_PPC_ADDR16_LO",     /* name */
260          FALSE,                 /* partial_inplace */
261          0,                     /* src_mask */
262          0xffff,                /* dst_mask */
263          FALSE),                /* pcrel_offset */
264
265   /* The high order 16 bits of an address.  */
266   HOWTO (R_PPC_ADDR16_HI,       /* type */
267          16,                    /* rightshift */
268          1,                     /* size (0 = byte, 1 = short, 2 = long) */
269          16,                    /* bitsize */
270          FALSE,                 /* pc_relative */
271          0,                     /* bitpos */
272          complain_overflow_dont, /* complain_on_overflow */
273          bfd_elf_generic_reloc, /* special_function */
274          "R_PPC_ADDR16_HI",     /* name */
275          FALSE,                 /* partial_inplace */
276          0,                     /* src_mask */
277          0xffff,                /* dst_mask */
278          FALSE),                /* pcrel_offset */
279
280   /* The high order 16 bits of an address, plus 1 if the contents of
281      the low 16 bits, treated as a signed number, is negative.  */
282   HOWTO (R_PPC_ADDR16_HA,       /* type */
283          16,                    /* rightshift */
284          1,                     /* size (0 = byte, 1 = short, 2 = long) */
285          16,                    /* bitsize */
286          FALSE,                 /* pc_relative */
287          0,                     /* bitpos */
288          complain_overflow_dont, /* complain_on_overflow */
289          ppc_elf_addr16_ha_reloc, /* special_function */
290          "R_PPC_ADDR16_HA",     /* name */
291          FALSE,                 /* partial_inplace */
292          0,                     /* src_mask */
293          0xffff,                /* dst_mask */
294          FALSE),                /* pcrel_offset */
295
296   /* An absolute 16 bit branch; the lower two bits must be zero.
297      FIXME: we don't check that, we just clear them.  */
298   HOWTO (R_PPC_ADDR14,          /* type */
299          0,                     /* rightshift */
300          2,                     /* size (0 = byte, 1 = short, 2 = long) */
301          16,                    /* bitsize */
302          FALSE,                 /* pc_relative */
303          0,                     /* bitpos */
304          complain_overflow_bitfield, /* complain_on_overflow */
305          bfd_elf_generic_reloc, /* special_function */
306          "R_PPC_ADDR14",        /* name */
307          FALSE,                 /* partial_inplace */
308          0,                     /* src_mask */
309          0xfffc,                /* dst_mask */
310          FALSE),                /* pcrel_offset */
311
312   /* An absolute 16 bit branch, for which bit 10 should be set to
313      indicate that the branch is expected to be taken.  The lower two
314      bits must be zero.  */
315   HOWTO (R_PPC_ADDR14_BRTAKEN,  /* type */
316          0,                     /* rightshift */
317          2,                     /* size (0 = byte, 1 = short, 2 = long) */
318          16,                    /* bitsize */
319          FALSE,                 /* pc_relative */
320          0,                     /* bitpos */
321          complain_overflow_bitfield, /* complain_on_overflow */
322          bfd_elf_generic_reloc, /* special_function */
323          "R_PPC_ADDR14_BRTAKEN",/* name */
324          FALSE,                 /* partial_inplace */
325          0,                     /* src_mask */
326          0xfffc,                /* dst_mask */
327          FALSE),                /* pcrel_offset */
328
329   /* An absolute 16 bit branch, for which bit 10 should be set to
330      indicate that the branch is not expected to be taken.  The lower
331      two bits must be zero.  */
332   HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
333          0,                     /* rightshift */
334          2,                     /* size (0 = byte, 1 = short, 2 = long) */
335          16,                    /* bitsize */
336          FALSE,                 /* pc_relative */
337          0,                     /* bitpos */
338          complain_overflow_bitfield, /* complain_on_overflow */
339          bfd_elf_generic_reloc, /* special_function */
340          "R_PPC_ADDR14_BRNTAKEN",/* name */
341          FALSE,                 /* partial_inplace */
342          0,                     /* src_mask */
343          0xfffc,                /* dst_mask */
344          FALSE),                /* pcrel_offset */
345
346   /* A relative 26 bit branch; the lower two bits must be zero.  */
347   HOWTO (R_PPC_REL24,           /* type */
348          0,                     /* rightshift */
349          2,                     /* size (0 = byte, 1 = short, 2 = long) */
350          26,                    /* bitsize */
351          TRUE,                  /* pc_relative */
352          0,                     /* bitpos */
353          complain_overflow_signed, /* complain_on_overflow */
354          bfd_elf_generic_reloc, /* special_function */
355          "R_PPC_REL24",         /* name */
356          FALSE,                 /* partial_inplace */
357          0,                     /* src_mask */
358          0x3fffffc,             /* dst_mask */
359          TRUE),                 /* pcrel_offset */
360
361   /* A relative 16 bit branch; the lower two bits must be zero.  */
362   HOWTO (R_PPC_REL14,           /* type */
363          0,                     /* rightshift */
364          2,                     /* size (0 = byte, 1 = short, 2 = long) */
365          16,                    /* bitsize */
366          TRUE,                  /* pc_relative */
367          0,                     /* bitpos */
368          complain_overflow_signed, /* complain_on_overflow */
369          bfd_elf_generic_reloc, /* special_function */
370          "R_PPC_REL14",         /* name */
371          FALSE,                 /* partial_inplace */
372          0,                     /* src_mask */
373          0xfffc,                /* dst_mask */
374          TRUE),                 /* pcrel_offset */
375
376   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
377      the branch is expected to be taken.  The lower two bits must be
378      zero.  */
379   HOWTO (R_PPC_REL14_BRTAKEN,   /* type */
380          0,                     /* rightshift */
381          2,                     /* size (0 = byte, 1 = short, 2 = long) */
382          16,                    /* bitsize */
383          TRUE,                  /* pc_relative */
384          0,                     /* bitpos */
385          complain_overflow_signed, /* complain_on_overflow */
386          bfd_elf_generic_reloc, /* special_function */
387          "R_PPC_REL14_BRTAKEN", /* name */
388          FALSE,                 /* partial_inplace */
389          0,                     /* src_mask */
390          0xfffc,                /* dst_mask */
391          TRUE),                 /* pcrel_offset */
392
393   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
394      the branch is not expected to be taken.  The lower two bits must
395      be zero.  */
396   HOWTO (R_PPC_REL14_BRNTAKEN,  /* type */
397          0,                     /* rightshift */
398          2,                     /* size (0 = byte, 1 = short, 2 = long) */
399          16,                    /* bitsize */
400          TRUE,                  /* pc_relative */
401          0,                     /* bitpos */
402          complain_overflow_signed, /* complain_on_overflow */
403          bfd_elf_generic_reloc, /* special_function */
404          "R_PPC_REL14_BRNTAKEN",/* name */
405          FALSE,                 /* partial_inplace */
406          0,                     /* src_mask */
407          0xfffc,                /* dst_mask */
408          TRUE),                 /* pcrel_offset */
409
410   /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
411      symbol.  */
412   HOWTO (R_PPC_GOT16,           /* type */
413          0,                     /* rightshift */
414          1,                     /* size (0 = byte, 1 = short, 2 = long) */
415          16,                    /* bitsize */
416          FALSE,                 /* pc_relative */
417          0,                     /* bitpos */
418          complain_overflow_signed, /* complain_on_overflow */
419          bfd_elf_generic_reloc, /* special_function */
420          "R_PPC_GOT16",         /* name */
421          FALSE,                 /* partial_inplace */
422          0,                     /* src_mask */
423          0xffff,                /* dst_mask */
424          FALSE),                /* pcrel_offset */
425
426   /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
427      the symbol.  */
428   HOWTO (R_PPC_GOT16_LO,        /* type */
429          0,                     /* rightshift */
430          1,                     /* size (0 = byte, 1 = short, 2 = long) */
431          16,                    /* bitsize */
432          FALSE,                 /* pc_relative */
433          0,                     /* bitpos */
434          complain_overflow_dont, /* complain_on_overflow */
435          bfd_elf_generic_reloc, /* special_function */
436          "R_PPC_GOT16_LO",      /* name */
437          FALSE,                 /* partial_inplace */
438          0,                     /* src_mask */
439          0xffff,                /* dst_mask */
440          FALSE),                /* pcrel_offset */
441
442   /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
443      the symbol.  */
444   HOWTO (R_PPC_GOT16_HI,        /* type */
445          16,                    /* rightshift */
446          1,                     /* size (0 = byte, 1 = short, 2 = long) */
447          16,                    /* bitsize */
448          FALSE,                 /* pc_relative */
449          0,                     /* bitpos */
450          complain_overflow_bitfield, /* complain_on_overflow */
451          bfd_elf_generic_reloc, /* special_function */
452          "R_PPC_GOT16_HI",      /* name */
453          FALSE,                 /* partial_inplace */
454          0,                     /* src_mask */
455          0xffff,                /* dst_mask */
456          FALSE),                 /* pcrel_offset */
457
458   /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
459      the symbol.  */
460   HOWTO (R_PPC_GOT16_HA,        /* type */
461          16,                    /* rightshift */
462          1,                     /* size (0 = byte, 1 = short, 2 = long) */
463          16,                    /* bitsize */
464          FALSE,                 /* pc_relative */
465          0,                     /* bitpos */
466          complain_overflow_bitfield, /* complain_on_overflow */
467          ppc_elf_addr16_ha_reloc, /* special_function */
468          "R_PPC_GOT16_HA",      /* name */
469          FALSE,                 /* partial_inplace */
470          0,                     /* src_mask */
471          0xffff,                /* dst_mask */
472          FALSE),                /* pcrel_offset */
473
474   /* Like R_PPC_REL24, but referring to the procedure linkage table
475      entry for the symbol.  */
476   HOWTO (R_PPC_PLTREL24,        /* type */
477          0,                     /* rightshift */
478          2,                     /* size (0 = byte, 1 = short, 2 = long) */
479          26,                    /* bitsize */
480          TRUE,                  /* pc_relative */
481          0,                     /* bitpos */
482          complain_overflow_signed,  /* complain_on_overflow */
483          bfd_elf_generic_reloc, /* special_function */
484          "R_PPC_PLTREL24",      /* name */
485          FALSE,                 /* partial_inplace */
486          0,                     /* src_mask */
487          0x3fffffc,             /* dst_mask */
488          TRUE),                 /* pcrel_offset */
489
490   /* This is used only by the dynamic linker.  The symbol should exist
491      both in the object being run and in some shared library.  The
492      dynamic linker copies the data addressed by the symbol from the
493      shared library into the object, because the object being
494      run has to have the data at some particular address.  */
495   HOWTO (R_PPC_COPY,            /* type */
496          0,                     /* rightshift */
497          2,                     /* size (0 = byte, 1 = short, 2 = long) */
498          32,                    /* bitsize */
499          FALSE,                 /* pc_relative */
500          0,                     /* bitpos */
501          complain_overflow_bitfield, /* complain_on_overflow */
502          bfd_elf_generic_reloc,  /* special_function */
503          "R_PPC_COPY",          /* name */
504          FALSE,                 /* partial_inplace */
505          0,                     /* src_mask */
506          0,                     /* dst_mask */
507          FALSE),                /* pcrel_offset */
508
509   /* Like R_PPC_ADDR32, but used when setting global offset table
510      entries.  */
511   HOWTO (R_PPC_GLOB_DAT,        /* type */
512          0,                     /* rightshift */
513          2,                     /* size (0 = byte, 1 = short, 2 = long) */
514          32,                    /* bitsize */
515          FALSE,                 /* pc_relative */
516          0,                     /* bitpos */
517          complain_overflow_bitfield, /* complain_on_overflow */
518          bfd_elf_generic_reloc,  /* special_function */
519          "R_PPC_GLOB_DAT",      /* name */
520          FALSE,                 /* partial_inplace */
521          0,                     /* src_mask */
522          0xffffffff,            /* dst_mask */
523          FALSE),                /* pcrel_offset */
524
525   /* Marks a procedure linkage table entry for a symbol.  */
526   HOWTO (R_PPC_JMP_SLOT,        /* type */
527          0,                     /* rightshift */
528          2,                     /* size (0 = byte, 1 = short, 2 = long) */
529          32,                    /* bitsize */
530          FALSE,                 /* pc_relative */
531          0,                     /* bitpos */
532          complain_overflow_bitfield, /* complain_on_overflow */
533          bfd_elf_generic_reloc,  /* special_function */
534          "R_PPC_JMP_SLOT",      /* name */
535          FALSE,                 /* partial_inplace */
536          0,                     /* src_mask */
537          0,                     /* dst_mask */
538          FALSE),                /* pcrel_offset */
539
540   /* Used only by the dynamic linker.  When the object is run, this
541      longword is set to the load address of the object, plus the
542      addend.  */
543   HOWTO (R_PPC_RELATIVE,        /* type */
544          0,                     /* rightshift */
545          2,                     /* size (0 = byte, 1 = short, 2 = long) */
546          32,                    /* bitsize */
547          FALSE,                 /* pc_relative */
548          0,                     /* bitpos */
549          complain_overflow_bitfield, /* complain_on_overflow */
550          bfd_elf_generic_reloc,  /* special_function */
551          "R_PPC_RELATIVE",      /* name */
552          FALSE,                 /* partial_inplace */
553          0,                     /* src_mask */
554          0xffffffff,            /* dst_mask */
555          FALSE),                /* pcrel_offset */
556
557   /* Like R_PPC_REL24, but uses the value of the symbol within the
558      object rather than the final value.  Normally used for
559      _GLOBAL_OFFSET_TABLE_.  */
560   HOWTO (R_PPC_LOCAL24PC,       /* type */
561          0,                     /* rightshift */
562          2,                     /* size (0 = byte, 1 = short, 2 = long) */
563          26,                    /* bitsize */
564          TRUE,                  /* pc_relative */
565          0,                     /* bitpos */
566          complain_overflow_signed, /* complain_on_overflow */
567          bfd_elf_generic_reloc, /* special_function */
568          "R_PPC_LOCAL24PC",     /* name */
569          FALSE,                 /* partial_inplace */
570          0,                     /* src_mask */
571          0x3fffffc,             /* dst_mask */
572          TRUE),                 /* pcrel_offset */
573
574   /* Like R_PPC_ADDR32, but may be unaligned.  */
575   HOWTO (R_PPC_UADDR32,         /* type */
576          0,                     /* rightshift */
577          2,                     /* size (0 = byte, 1 = short, 2 = long) */
578          32,                    /* bitsize */
579          FALSE,                 /* pc_relative */
580          0,                     /* bitpos */
581          complain_overflow_bitfield, /* complain_on_overflow */
582          bfd_elf_generic_reloc, /* special_function */
583          "R_PPC_UADDR32",       /* name */
584          FALSE,                 /* partial_inplace */
585          0,                     /* src_mask */
586          0xffffffff,            /* dst_mask */
587          FALSE),                /* pcrel_offset */
588
589   /* Like R_PPC_ADDR16, but may be unaligned.  */
590   HOWTO (R_PPC_UADDR16,         /* type */
591          0,                     /* rightshift */
592          1,                     /* size (0 = byte, 1 = short, 2 = long) */
593          16,                    /* bitsize */
594          FALSE,                 /* pc_relative */
595          0,                     /* bitpos */
596          complain_overflow_bitfield, /* complain_on_overflow */
597          bfd_elf_generic_reloc, /* special_function */
598          "R_PPC_UADDR16",       /* name */
599          FALSE,                 /* partial_inplace */
600          0,                     /* src_mask */
601          0xffff,                /* dst_mask */
602          FALSE),                /* pcrel_offset */
603
604   /* 32-bit PC relative */
605   HOWTO (R_PPC_REL32,           /* type */
606          0,                     /* rightshift */
607          2,                     /* size (0 = byte, 1 = short, 2 = long) */
608          32,                    /* bitsize */
609          TRUE,                  /* pc_relative */
610          0,                     /* bitpos */
611          complain_overflow_bitfield, /* complain_on_overflow */
612          bfd_elf_generic_reloc, /* special_function */
613          "R_PPC_REL32",         /* name */
614          FALSE,                 /* partial_inplace */
615          0,                     /* src_mask */
616          0xffffffff,            /* dst_mask */
617          TRUE),                 /* pcrel_offset */
618
619   /* 32-bit relocation to the symbol's procedure linkage table.
620      FIXME: not supported.  */
621   HOWTO (R_PPC_PLT32,           /* type */
622          0,                     /* rightshift */
623          2,                     /* size (0 = byte, 1 = short, 2 = long) */
624          32,                    /* bitsize */
625          FALSE,                 /* pc_relative */
626          0,                     /* bitpos */
627          complain_overflow_bitfield, /* complain_on_overflow */
628          bfd_elf_generic_reloc, /* special_function */
629          "R_PPC_PLT32",         /* name */
630          FALSE,                 /* partial_inplace */
631          0,                     /* src_mask */
632          0,                     /* dst_mask */
633          FALSE),                /* pcrel_offset */
634
635   /* 32-bit PC relative relocation to the symbol's procedure linkage table.
636      FIXME: not supported.  */
637   HOWTO (R_PPC_PLTREL32,        /* type */
638          0,                     /* rightshift */
639          2,                     /* size (0 = byte, 1 = short, 2 = long) */
640          32,                    /* bitsize */
641          TRUE,                  /* pc_relative */
642          0,                     /* bitpos */
643          complain_overflow_bitfield, /* complain_on_overflow */
644          bfd_elf_generic_reloc, /* special_function */
645          "R_PPC_PLTREL32",      /* name */
646          FALSE,                 /* partial_inplace */
647          0,                     /* src_mask */
648          0,                     /* dst_mask */
649          TRUE),                 /* pcrel_offset */
650
651   /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
652      the symbol.  */
653   HOWTO (R_PPC_PLT16_LO,        /* type */
654          0,                     /* rightshift */
655          1,                     /* size (0 = byte, 1 = short, 2 = long) */
656          16,                    /* bitsize */
657          FALSE,                 /* pc_relative */
658          0,                     /* bitpos */
659          complain_overflow_dont, /* complain_on_overflow */
660          bfd_elf_generic_reloc, /* special_function */
661          "R_PPC_PLT16_LO",      /* name */
662          FALSE,                 /* partial_inplace */
663          0,                     /* src_mask */
664          0xffff,                /* dst_mask */
665          FALSE),                /* pcrel_offset */
666
667   /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
668      the symbol.  */
669   HOWTO (R_PPC_PLT16_HI,        /* type */
670          16,                    /* rightshift */
671          1,                     /* size (0 = byte, 1 = short, 2 = long) */
672          16,                    /* bitsize */
673          FALSE,                 /* pc_relative */
674          0,                     /* bitpos */
675          complain_overflow_bitfield, /* complain_on_overflow */
676          bfd_elf_generic_reloc, /* special_function */
677          "R_PPC_PLT16_HI",      /* name */
678          FALSE,                 /* partial_inplace */
679          0,                     /* src_mask */
680          0xffff,                /* dst_mask */
681          FALSE),                 /* pcrel_offset */
682
683   /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
684      the symbol.  */
685   HOWTO (R_PPC_PLT16_HA,        /* type */
686          16,                    /* rightshift */
687          1,                     /* size (0 = byte, 1 = short, 2 = long) */
688          16,                    /* bitsize */
689          FALSE,                 /* pc_relative */
690          0,                     /* bitpos */
691          complain_overflow_bitfield, /* complain_on_overflow */
692          ppc_elf_addr16_ha_reloc, /* special_function */
693          "R_PPC_PLT16_HA",      /* name */
694          FALSE,                 /* partial_inplace */
695          0,                     /* src_mask */
696          0xffff,                /* dst_mask */
697          FALSE),                /* pcrel_offset */
698
699   /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
700      small data items.  */
701   HOWTO (R_PPC_SDAREL16,        /* type */
702          0,                     /* rightshift */
703          1,                     /* size (0 = byte, 1 = short, 2 = long) */
704          16,                    /* bitsize */
705          FALSE,                 /* pc_relative */
706          0,                     /* bitpos */
707          complain_overflow_signed, /* complain_on_overflow */
708          bfd_elf_generic_reloc, /* special_function */
709          "R_PPC_SDAREL16",      /* name */
710          FALSE,                 /* partial_inplace */
711          0,                     /* src_mask */
712          0xffff,                /* dst_mask */
713          FALSE),                /* pcrel_offset */
714
715   /* 16-bit section relative relocation.  */
716   HOWTO (R_PPC_SECTOFF,         /* type */
717          0,                     /* rightshift */
718          1,                     /* size (0 = byte, 1 = short, 2 = long) */
719          16,                    /* bitsize */
720          FALSE,                 /* pc_relative */
721          0,                     /* bitpos */
722          complain_overflow_bitfield, /* complain_on_overflow */
723          bfd_elf_generic_reloc, /* special_function */
724          "R_PPC_SECTOFF",       /* name */
725          FALSE,                 /* partial_inplace */
726          0,                     /* src_mask */
727          0xffff,                /* dst_mask */
728          FALSE),                /* pcrel_offset */
729
730   /* 16-bit lower half section relative relocation.  */
731   HOWTO (R_PPC_SECTOFF_LO,        /* type */
732          0,                     /* rightshift */
733          1,                     /* size (0 = byte, 1 = short, 2 = long) */
734          16,                    /* bitsize */
735          FALSE,                 /* pc_relative */
736          0,                     /* bitpos */
737          complain_overflow_dont, /* complain_on_overflow */
738          bfd_elf_generic_reloc, /* special_function */
739          "R_PPC_SECTOFF_LO",    /* name */
740          FALSE,                 /* partial_inplace */
741          0,                     /* src_mask */
742          0xffff,                /* dst_mask */
743          FALSE),                /* pcrel_offset */
744
745   /* 16-bit upper half section relative relocation.  */
746   HOWTO (R_PPC_SECTOFF_HI,      /* type */
747          16,                    /* rightshift */
748          1,                     /* size (0 = byte, 1 = short, 2 = long) */
749          16,                    /* bitsize */
750          FALSE,                 /* pc_relative */
751          0,                     /* bitpos */
752          complain_overflow_bitfield, /* complain_on_overflow */
753          bfd_elf_generic_reloc, /* special_function */
754          "R_PPC_SECTOFF_HI",    /* name */
755          FALSE,                 /* partial_inplace */
756          0,                     /* src_mask */
757          0xffff,                /* dst_mask */
758          FALSE),                 /* pcrel_offset */
759
760   /* 16-bit upper half adjusted section relative relocation.  */
761   HOWTO (R_PPC_SECTOFF_HA,      /* type */
762          16,                    /* rightshift */
763          1,                     /* size (0 = byte, 1 = short, 2 = long) */
764          16,                    /* bitsize */
765          FALSE,                 /* pc_relative */
766          0,                     /* bitpos */
767          complain_overflow_bitfield, /* complain_on_overflow */
768          ppc_elf_addr16_ha_reloc, /* special_function */
769          "R_PPC_SECTOFF_HA",    /* name */
770          FALSE,                 /* partial_inplace */
771          0,                     /* src_mask */
772          0xffff,                /* dst_mask */
773          FALSE),                /* pcrel_offset */
774
775   /* Marker relocs for TLS.  */
776   HOWTO (R_PPC_TLS,
777          0,                     /* rightshift */
778          2,                     /* size (0 = byte, 1 = short, 2 = long) */
779          32,                    /* bitsize */
780          FALSE,                 /* pc_relative */
781          0,                     /* bitpos */
782          complain_overflow_dont, /* complain_on_overflow */
783          bfd_elf_generic_reloc, /* special_function */
784          "R_PPC_TLS",           /* name */
785          FALSE,                 /* partial_inplace */
786          0,                     /* src_mask */
787          0,                     /* dst_mask */
788          FALSE),                /* pcrel_offset */
789
790   HOWTO (R_PPC_TLSGD,
791          0,                     /* rightshift */
792          2,                     /* size (0 = byte, 1 = short, 2 = long) */
793          32,                    /* bitsize */
794          FALSE,                 /* pc_relative */
795          0,                     /* bitpos */
796          complain_overflow_dont, /* complain_on_overflow */
797          bfd_elf_generic_reloc, /* special_function */
798          "R_PPC_TLSGD",         /* name */
799          FALSE,                 /* partial_inplace */
800          0,                     /* src_mask */
801          0,                     /* dst_mask */
802          FALSE),                /* pcrel_offset */
803
804   HOWTO (R_PPC_TLSLD,
805          0,                     /* rightshift */
806          2,                     /* size (0 = byte, 1 = short, 2 = long) */
807          32,                    /* bitsize */
808          FALSE,                 /* pc_relative */
809          0,                     /* bitpos */
810          complain_overflow_dont, /* complain_on_overflow */
811          bfd_elf_generic_reloc, /* special_function */
812          "R_PPC_TLSLD",         /* name */
813          FALSE,                 /* partial_inplace */
814          0,                     /* src_mask */
815          0,                     /* dst_mask */
816          FALSE),                /* pcrel_offset */
817
818   /* Computes the load module index of the load module that contains the
819      definition of its TLS sym.  */
820   HOWTO (R_PPC_DTPMOD32,
821          0,                     /* rightshift */
822          2,                     /* size (0 = byte, 1 = short, 2 = long) */
823          32,                    /* bitsize */
824          FALSE,                 /* pc_relative */
825          0,                     /* bitpos */
826          complain_overflow_dont, /* complain_on_overflow */
827          ppc_elf_unhandled_reloc, /* special_function */
828          "R_PPC_DTPMOD32",      /* name */
829          FALSE,                 /* partial_inplace */
830          0,                     /* src_mask */
831          0xffffffff,            /* dst_mask */
832          FALSE),                /* pcrel_offset */
833
834   /* Computes a dtv-relative displacement, the difference between the value
835      of sym+add and the base address of the thread-local storage block that
836      contains the definition of sym, minus 0x8000.  */
837   HOWTO (R_PPC_DTPREL32,
838          0,                     /* rightshift */
839          2,                     /* size (0 = byte, 1 = short, 2 = long) */
840          32,                    /* bitsize */
841          FALSE,                 /* pc_relative */
842          0,                     /* bitpos */
843          complain_overflow_dont, /* complain_on_overflow */
844          ppc_elf_unhandled_reloc, /* special_function */
845          "R_PPC_DTPREL32",      /* name */
846          FALSE,                 /* partial_inplace */
847          0,                     /* src_mask */
848          0xffffffff,            /* dst_mask */
849          FALSE),                /* pcrel_offset */
850
851   /* A 16 bit dtprel reloc.  */
852   HOWTO (R_PPC_DTPREL16,
853          0,                     /* rightshift */
854          1,                     /* size (0 = byte, 1 = short, 2 = long) */
855          16,                    /* bitsize */
856          FALSE,                 /* pc_relative */
857          0,                     /* bitpos */
858          complain_overflow_signed, /* complain_on_overflow */
859          ppc_elf_unhandled_reloc, /* special_function */
860          "R_PPC_DTPREL16",      /* name */
861          FALSE,                 /* partial_inplace */
862          0,                     /* src_mask */
863          0xffff,                /* dst_mask */
864          FALSE),                /* pcrel_offset */
865
866   /* Like DTPREL16, but no overflow.  */
867   HOWTO (R_PPC_DTPREL16_LO,
868          0,                     /* rightshift */
869          1,                     /* size (0 = byte, 1 = short, 2 = long) */
870          16,                    /* bitsize */
871          FALSE,                 /* pc_relative */
872          0,                     /* bitpos */
873          complain_overflow_dont, /* complain_on_overflow */
874          ppc_elf_unhandled_reloc, /* special_function */
875          "R_PPC_DTPREL16_LO",   /* name */
876          FALSE,                 /* partial_inplace */
877          0,                     /* src_mask */
878          0xffff,                /* dst_mask */
879          FALSE),                /* pcrel_offset */
880
881   /* Like DTPREL16_LO, but next higher group of 16 bits.  */
882   HOWTO (R_PPC_DTPREL16_HI,
883          16,                    /* rightshift */
884          1,                     /* size (0 = byte, 1 = short, 2 = long) */
885          16,                    /* bitsize */
886          FALSE,                 /* pc_relative */
887          0,                     /* bitpos */
888          complain_overflow_dont, /* complain_on_overflow */
889          ppc_elf_unhandled_reloc, /* special_function */
890          "R_PPC_DTPREL16_HI",   /* name */
891          FALSE,                 /* partial_inplace */
892          0,                     /* src_mask */
893          0xffff,                /* dst_mask */
894          FALSE),                /* pcrel_offset */
895
896   /* Like DTPREL16_HI, but adjust for low 16 bits.  */
897   HOWTO (R_PPC_DTPREL16_HA,
898          16,                    /* rightshift */
899          1,                     /* size (0 = byte, 1 = short, 2 = long) */
900          16,                    /* bitsize */
901          FALSE,                 /* pc_relative */
902          0,                     /* bitpos */
903          complain_overflow_dont, /* complain_on_overflow */
904          ppc_elf_unhandled_reloc, /* special_function */
905          "R_PPC_DTPREL16_HA",   /* name */
906          FALSE,                 /* partial_inplace */
907          0,                     /* src_mask */
908          0xffff,                /* dst_mask */
909          FALSE),                /* pcrel_offset */
910
911   /* Computes a tp-relative displacement, the difference between the value of
912      sym+add and the value of the thread pointer (r13).  */
913   HOWTO (R_PPC_TPREL32,
914          0,                     /* rightshift */
915          2,                     /* size (0 = byte, 1 = short, 2 = long) */
916          32,                    /* bitsize */
917          FALSE,                 /* pc_relative */
918          0,                     /* bitpos */
919          complain_overflow_dont, /* complain_on_overflow */
920          ppc_elf_unhandled_reloc, /* special_function */
921          "R_PPC_TPREL32",       /* name */
922          FALSE,                 /* partial_inplace */
923          0,                     /* src_mask */
924          0xffffffff,            /* dst_mask */
925          FALSE),                /* pcrel_offset */
926
927   /* A 16 bit tprel reloc.  */
928   HOWTO (R_PPC_TPREL16,
929          0,                     /* rightshift */
930          1,                     /* size (0 = byte, 1 = short, 2 = long) */
931          16,                    /* bitsize */
932          FALSE,                 /* pc_relative */
933          0,                     /* bitpos */
934          complain_overflow_signed, /* complain_on_overflow */
935          ppc_elf_unhandled_reloc, /* special_function */
936          "R_PPC_TPREL16",       /* name */
937          FALSE,                 /* partial_inplace */
938          0,                     /* src_mask */
939          0xffff,                /* dst_mask */
940          FALSE),                /* pcrel_offset */
941
942   /* Like TPREL16, but no overflow.  */
943   HOWTO (R_PPC_TPREL16_LO,
944          0,                     /* rightshift */
945          1,                     /* size (0 = byte, 1 = short, 2 = long) */
946          16,                    /* bitsize */
947          FALSE,                 /* pc_relative */
948          0,                     /* bitpos */
949          complain_overflow_dont, /* complain_on_overflow */
950          ppc_elf_unhandled_reloc, /* special_function */
951          "R_PPC_TPREL16_LO",    /* name */
952          FALSE,                 /* partial_inplace */
953          0,                     /* src_mask */
954          0xffff,                /* dst_mask */
955          FALSE),                /* pcrel_offset */
956
957   /* Like TPREL16_LO, but next higher group of 16 bits.  */
958   HOWTO (R_PPC_TPREL16_HI,
959          16,                    /* rightshift */
960          1,                     /* size (0 = byte, 1 = short, 2 = long) */
961          16,                    /* bitsize */
962          FALSE,                 /* pc_relative */
963          0,                     /* bitpos */
964          complain_overflow_dont, /* complain_on_overflow */
965          ppc_elf_unhandled_reloc, /* special_function */
966          "R_PPC_TPREL16_HI",    /* name */
967          FALSE,                 /* partial_inplace */
968          0,                     /* src_mask */
969          0xffff,                /* dst_mask */
970          FALSE),                /* pcrel_offset */
971
972   /* Like TPREL16_HI, but adjust for low 16 bits.  */
973   HOWTO (R_PPC_TPREL16_HA,
974          16,                    /* rightshift */
975          1,                     /* size (0 = byte, 1 = short, 2 = long) */
976          16,                    /* bitsize */
977          FALSE,                 /* pc_relative */
978          0,                     /* bitpos */
979          complain_overflow_dont, /* complain_on_overflow */
980          ppc_elf_unhandled_reloc, /* special_function */
981          "R_PPC_TPREL16_HA",    /* name */
982          FALSE,                 /* partial_inplace */
983          0,                     /* src_mask */
984          0xffff,                /* dst_mask */
985          FALSE),                /* pcrel_offset */
986
987   /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
988      with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
989      to the first entry.  */
990   HOWTO (R_PPC_GOT_TLSGD16,
991          0,                     /* rightshift */
992          1,                     /* size (0 = byte, 1 = short, 2 = long) */
993          16,                    /* bitsize */
994          FALSE,                 /* pc_relative */
995          0,                     /* bitpos */
996          complain_overflow_signed, /* complain_on_overflow */
997          ppc_elf_unhandled_reloc, /* special_function */
998          "R_PPC_GOT_TLSGD16",   /* name */
999          FALSE,                 /* partial_inplace */
1000          0,                     /* src_mask */
1001          0xffff,                /* dst_mask */
1002          FALSE),                /* pcrel_offset */
1003
1004   /* Like GOT_TLSGD16, but no overflow.  */
1005   HOWTO (R_PPC_GOT_TLSGD16_LO,
1006          0,                     /* rightshift */
1007          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1008          16,                    /* bitsize */
1009          FALSE,                 /* pc_relative */
1010          0,                     /* bitpos */
1011          complain_overflow_dont, /* complain_on_overflow */
1012          ppc_elf_unhandled_reloc, /* special_function */
1013          "R_PPC_GOT_TLSGD16_LO", /* name */
1014          FALSE,                 /* partial_inplace */
1015          0,                     /* src_mask */
1016          0xffff,                /* dst_mask */
1017          FALSE),                /* pcrel_offset */
1018
1019   /* Like GOT_TLSGD16_LO, but next higher group of 16 bits.  */
1020   HOWTO (R_PPC_GOT_TLSGD16_HI,
1021          16,                    /* rightshift */
1022          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1023          16,                    /* bitsize */
1024          FALSE,                 /* pc_relative */
1025          0,                     /* bitpos */
1026          complain_overflow_dont, /* complain_on_overflow */
1027          ppc_elf_unhandled_reloc, /* special_function */
1028          "R_PPC_GOT_TLSGD16_HI", /* name */
1029          FALSE,                 /* partial_inplace */
1030          0,                     /* src_mask */
1031          0xffff,                /* dst_mask */
1032          FALSE),                /* pcrel_offset */
1033
1034   /* Like GOT_TLSGD16_HI, but adjust for low 16 bits.  */
1035   HOWTO (R_PPC_GOT_TLSGD16_HA,
1036          16,                    /* rightshift */
1037          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1038          16,                    /* bitsize */
1039          FALSE,                 /* pc_relative */
1040          0,                     /* bitpos */
1041          complain_overflow_dont, /* complain_on_overflow */
1042          ppc_elf_unhandled_reloc, /* special_function */
1043          "R_PPC_GOT_TLSGD16_HA", /* name */
1044          FALSE,                 /* partial_inplace */
1045          0,                     /* src_mask */
1046          0xffff,                /* dst_mask */
1047          FALSE),                /* pcrel_offset */
1048
1049   /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1050      with values (sym+add)@dtpmod and zero, and computes the offset to the
1051      first entry.  */
1052   HOWTO (R_PPC_GOT_TLSLD16,
1053          0,                     /* rightshift */
1054          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1055          16,                    /* bitsize */
1056          FALSE,                 /* pc_relative */
1057          0,                     /* bitpos */
1058          complain_overflow_signed, /* complain_on_overflow */
1059          ppc_elf_unhandled_reloc, /* special_function */
1060          "R_PPC_GOT_TLSLD16",   /* name */
1061          FALSE,                 /* partial_inplace */
1062          0,                     /* src_mask */
1063          0xffff,                /* dst_mask */
1064          FALSE),                /* pcrel_offset */
1065
1066   /* Like GOT_TLSLD16, but no overflow.  */
1067   HOWTO (R_PPC_GOT_TLSLD16_LO,
1068          0,                     /* rightshift */
1069          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1070          16,                    /* bitsize */
1071          FALSE,                 /* pc_relative */
1072          0,                     /* bitpos */
1073          complain_overflow_dont, /* complain_on_overflow */
1074          ppc_elf_unhandled_reloc, /* special_function */
1075          "R_PPC_GOT_TLSLD16_LO", /* name */
1076          FALSE,                 /* partial_inplace */
1077          0,                     /* src_mask */
1078          0xffff,                /* dst_mask */
1079          FALSE),                /* pcrel_offset */
1080
1081   /* Like GOT_TLSLD16_LO, but next higher group of 16 bits.  */
1082   HOWTO (R_PPC_GOT_TLSLD16_HI,
1083          16,                    /* rightshift */
1084          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1085          16,                    /* bitsize */
1086          FALSE,                 /* pc_relative */
1087          0,                     /* bitpos */
1088          complain_overflow_dont, /* complain_on_overflow */
1089          ppc_elf_unhandled_reloc, /* special_function */
1090          "R_PPC_GOT_TLSLD16_HI", /* name */
1091          FALSE,                 /* partial_inplace */
1092          0,                     /* src_mask */
1093          0xffff,                /* dst_mask */
1094          FALSE),                /* pcrel_offset */
1095
1096   /* Like GOT_TLSLD16_HI, but adjust for low 16 bits.  */
1097   HOWTO (R_PPC_GOT_TLSLD16_HA,
1098          16,                    /* rightshift */
1099          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1100          16,                    /* bitsize */
1101          FALSE,                 /* pc_relative */
1102          0,                     /* bitpos */
1103          complain_overflow_dont, /* complain_on_overflow */
1104          ppc_elf_unhandled_reloc, /* special_function */
1105          "R_PPC_GOT_TLSLD16_HA", /* name */
1106          FALSE,                 /* partial_inplace */
1107          0,                     /* src_mask */
1108          0xffff,                /* dst_mask */
1109          FALSE),                /* pcrel_offset */
1110
1111   /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1112      the offset to the entry.  */
1113   HOWTO (R_PPC_GOT_DTPREL16,
1114          0,                     /* rightshift */
1115          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1116          16,                    /* bitsize */
1117          FALSE,                 /* pc_relative */
1118          0,                     /* bitpos */
1119          complain_overflow_signed, /* complain_on_overflow */
1120          ppc_elf_unhandled_reloc, /* special_function */
1121          "R_PPC_GOT_DTPREL16",  /* name */
1122          FALSE,                 /* partial_inplace */
1123          0,                     /* src_mask */
1124          0xffff,                /* dst_mask */
1125          FALSE),                /* pcrel_offset */
1126
1127   /* Like GOT_DTPREL16, but no overflow.  */
1128   HOWTO (R_PPC_GOT_DTPREL16_LO,
1129          0,                     /* rightshift */
1130          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1131          16,                    /* bitsize */
1132          FALSE,                 /* pc_relative */
1133          0,                     /* bitpos */
1134          complain_overflow_dont, /* complain_on_overflow */
1135          ppc_elf_unhandled_reloc, /* special_function */
1136          "R_PPC_GOT_DTPREL16_LO", /* name */
1137          FALSE,                 /* partial_inplace */
1138          0,                     /* src_mask */
1139          0xffff,                /* dst_mask */
1140          FALSE),                /* pcrel_offset */
1141
1142   /* Like GOT_DTPREL16_LO, but next higher group of 16 bits.  */
1143   HOWTO (R_PPC_GOT_DTPREL16_HI,
1144          16,                    /* rightshift */
1145          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1146          16,                    /* bitsize */
1147          FALSE,                 /* pc_relative */
1148          0,                     /* bitpos */
1149          complain_overflow_dont, /* complain_on_overflow */
1150          ppc_elf_unhandled_reloc, /* special_function */
1151          "R_PPC_GOT_DTPREL16_HI", /* name */
1152          FALSE,                 /* partial_inplace */
1153          0,                     /* src_mask */
1154          0xffff,                /* dst_mask */
1155          FALSE),                /* pcrel_offset */
1156
1157   /* Like GOT_DTPREL16_HI, but adjust for low 16 bits.  */
1158   HOWTO (R_PPC_GOT_DTPREL16_HA,
1159          16,                    /* rightshift */
1160          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1161          16,                    /* bitsize */
1162          FALSE,                 /* pc_relative */
1163          0,                     /* bitpos */
1164          complain_overflow_dont, /* complain_on_overflow */
1165          ppc_elf_unhandled_reloc, /* special_function */
1166          "R_PPC_GOT_DTPREL16_HA", /* name */
1167          FALSE,                 /* partial_inplace */
1168          0,                     /* src_mask */
1169          0xffff,                /* dst_mask */
1170          FALSE),                /* pcrel_offset */
1171
1172   /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1173      offset to the entry.  */
1174   HOWTO (R_PPC_GOT_TPREL16,
1175          0,                     /* rightshift */
1176          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1177          16,                    /* bitsize */
1178          FALSE,                 /* pc_relative */
1179          0,                     /* bitpos */
1180          complain_overflow_signed, /* complain_on_overflow */
1181          ppc_elf_unhandled_reloc, /* special_function */
1182          "R_PPC_GOT_TPREL16",   /* name */
1183          FALSE,                 /* partial_inplace */
1184          0,                     /* src_mask */
1185          0xffff,                /* dst_mask */
1186          FALSE),                /* pcrel_offset */
1187
1188   /* Like GOT_TPREL16, but no overflow.  */
1189   HOWTO (R_PPC_GOT_TPREL16_LO,
1190          0,                     /* rightshift */
1191          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1192          16,                    /* bitsize */
1193          FALSE,                 /* pc_relative */
1194          0,                     /* bitpos */
1195          complain_overflow_dont, /* complain_on_overflow */
1196          ppc_elf_unhandled_reloc, /* special_function */
1197          "R_PPC_GOT_TPREL16_LO", /* name */
1198          FALSE,                 /* partial_inplace */
1199          0,                     /* src_mask */
1200          0xffff,                /* dst_mask */
1201          FALSE),                /* pcrel_offset */
1202
1203   /* Like GOT_TPREL16_LO, but next higher group of 16 bits.  */
1204   HOWTO (R_PPC_GOT_TPREL16_HI,
1205          16,                    /* rightshift */
1206          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1207          16,                    /* bitsize */
1208          FALSE,                 /* pc_relative */
1209          0,                     /* bitpos */
1210          complain_overflow_dont, /* complain_on_overflow */
1211          ppc_elf_unhandled_reloc, /* special_function */
1212          "R_PPC_GOT_TPREL16_HI", /* name */
1213          FALSE,                 /* partial_inplace */
1214          0,                     /* src_mask */
1215          0xffff,                /* dst_mask */
1216          FALSE),                /* pcrel_offset */
1217
1218   /* Like GOT_TPREL16_HI, but adjust for low 16 bits.  */
1219   HOWTO (R_PPC_GOT_TPREL16_HA,
1220          16,                    /* rightshift */
1221          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1222          16,                    /* bitsize */
1223          FALSE,                 /* pc_relative */
1224          0,                     /* bitpos */
1225          complain_overflow_dont, /* complain_on_overflow */
1226          ppc_elf_unhandled_reloc, /* special_function */
1227          "R_PPC_GOT_TPREL16_HA", /* name */
1228          FALSE,                 /* partial_inplace */
1229          0,                     /* src_mask */
1230          0xffff,                /* dst_mask */
1231          FALSE),                /* pcrel_offset */
1232
1233   /* The remaining relocs are from the Embedded ELF ABI, and are not
1234      in the SVR4 ELF ABI.  */
1235
1236   /* 32 bit value resulting from the addend minus the symbol.  */
1237   HOWTO (R_PPC_EMB_NADDR32,     /* type */
1238          0,                     /* rightshift */
1239          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1240          32,                    /* bitsize */
1241          FALSE,                 /* pc_relative */
1242          0,                     /* bitpos */
1243          complain_overflow_bitfield, /* complain_on_overflow */
1244          bfd_elf_generic_reloc, /* special_function */
1245          "R_PPC_EMB_NADDR32",   /* name */
1246          FALSE,                 /* partial_inplace */
1247          0,                     /* src_mask */
1248          0xffffffff,            /* dst_mask */
1249          FALSE),                /* pcrel_offset */
1250
1251   /* 16 bit value resulting from the addend minus the symbol.  */
1252   HOWTO (R_PPC_EMB_NADDR16,     /* type */
1253          0,                     /* rightshift */
1254          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1255          16,                    /* bitsize */
1256          FALSE,                 /* pc_relative */
1257          0,                     /* bitpos */
1258          complain_overflow_bitfield, /* complain_on_overflow */
1259          bfd_elf_generic_reloc, /* special_function */
1260          "R_PPC_EMB_NADDR16",   /* name */
1261          FALSE,                 /* partial_inplace */
1262          0,                     /* src_mask */
1263          0xffff,                /* dst_mask */
1264          FALSE),                /* pcrel_offset */
1265
1266   /* 16 bit value resulting from the addend minus the symbol.  */
1267   HOWTO (R_PPC_EMB_NADDR16_LO,  /* type */
1268          0,                     /* rightshift */
1269          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1270          16,                    /* bitsize */
1271          FALSE,                 /* pc_relative */
1272          0,                     /* bitpos */
1273          complain_overflow_dont,/* complain_on_overflow */
1274          bfd_elf_generic_reloc, /* special_function */
1275          "R_PPC_EMB_ADDR16_LO", /* name */
1276          FALSE,                 /* partial_inplace */
1277          0,                     /* src_mask */
1278          0xffff,                /* dst_mask */
1279          FALSE),                /* pcrel_offset */
1280
1281   /* The high order 16 bits of the addend minus the symbol.  */
1282   HOWTO (R_PPC_EMB_NADDR16_HI,  /* type */
1283          16,                    /* rightshift */
1284          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1285          16,                    /* bitsize */
1286          FALSE,                 /* pc_relative */
1287          0,                     /* bitpos */
1288          complain_overflow_dont, /* complain_on_overflow */
1289          bfd_elf_generic_reloc, /* special_function */
1290          "R_PPC_EMB_NADDR16_HI", /* name */
1291          FALSE,                 /* partial_inplace */
1292          0,                     /* src_mask */
1293          0xffff,                /* dst_mask */
1294          FALSE),                /* pcrel_offset */
1295
1296   /* The high order 16 bits of the result of the addend minus the address,
1297      plus 1 if the contents of the low 16 bits, treated as a signed number,
1298      is negative.  */
1299   HOWTO (R_PPC_EMB_NADDR16_HA,  /* type */
1300          16,                    /* rightshift */
1301          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1302          16,                    /* bitsize */
1303          FALSE,                 /* pc_relative */
1304          0,                     /* bitpos */
1305          complain_overflow_dont, /* complain_on_overflow */
1306          ppc_elf_addr16_ha_reloc, /* special_function */
1307          "R_PPC_EMB_NADDR16_HA", /* name */
1308          FALSE,                 /* partial_inplace */
1309          0,                     /* src_mask */
1310          0xffff,                /* dst_mask */
1311          FALSE),                /* pcrel_offset */
1312
1313   /* 16 bit value resulting from allocating a 4 byte word to hold an
1314      address in the .sdata section, and returning the offset from
1315      _SDA_BASE_ for that relocation.  */
1316   HOWTO (R_PPC_EMB_SDAI16,      /* type */
1317          0,                     /* rightshift */
1318          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1319          16,                    /* bitsize */
1320          FALSE,                 /* pc_relative */
1321          0,                     /* bitpos */
1322          complain_overflow_signed, /* complain_on_overflow */
1323          bfd_elf_generic_reloc, /* special_function */
1324          "R_PPC_EMB_SDAI16",    /* name */
1325          FALSE,                 /* partial_inplace */
1326          0,                     /* src_mask */
1327          0xffff,                /* dst_mask */
1328          FALSE),                /* pcrel_offset */
1329
1330   /* 16 bit value resulting from allocating a 4 byte word to hold an
1331      address in the .sdata2 section, and returning the offset from
1332      _SDA2_BASE_ for that relocation.  */
1333   HOWTO (R_PPC_EMB_SDA2I16,     /* type */
1334          0,                     /* rightshift */
1335          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1336          16,                    /* bitsize */
1337          FALSE,                 /* pc_relative */
1338          0,                     /* bitpos */
1339          complain_overflow_signed, /* complain_on_overflow */
1340          bfd_elf_generic_reloc, /* special_function */
1341          "R_PPC_EMB_SDA2I16",   /* name */
1342          FALSE,                 /* partial_inplace */
1343          0,                     /* src_mask */
1344          0xffff,                /* dst_mask */
1345          FALSE),                /* pcrel_offset */
1346
1347   /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
1348      small data items.   */
1349   HOWTO (R_PPC_EMB_SDA2REL,     /* type */
1350          0,                     /* rightshift */
1351          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1352          16,                    /* bitsize */
1353          FALSE,                 /* pc_relative */
1354          0,                     /* bitpos */
1355          complain_overflow_signed, /* complain_on_overflow */
1356          bfd_elf_generic_reloc, /* special_function */
1357          "R_PPC_EMB_SDA2REL",   /* name */
1358          FALSE,                 /* partial_inplace */
1359          0,                     /* src_mask */
1360          0xffff,                /* dst_mask */
1361          FALSE),                /* pcrel_offset */
1362
1363   /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
1364      signed offset from the appropriate base, and filling in the register
1365      field with the appropriate register (0, 2, or 13).  */
1366   HOWTO (R_PPC_EMB_SDA21,       /* type */
1367          0,                     /* rightshift */
1368          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1369          16,                    /* bitsize */
1370          FALSE,                 /* pc_relative */
1371          0,                     /* bitpos */
1372          complain_overflow_signed, /* complain_on_overflow */
1373          bfd_elf_generic_reloc, /* special_function */
1374          "R_PPC_EMB_SDA21",     /* name */
1375          FALSE,                 /* partial_inplace */
1376          0,                     /* src_mask */
1377          0xffff,                /* dst_mask */
1378          FALSE),                /* pcrel_offset */
1379
1380   /* Relocation not handled: R_PPC_EMB_MRKREF */
1381   /* Relocation not handled: R_PPC_EMB_RELSEC16 */
1382   /* Relocation not handled: R_PPC_EMB_RELST_LO */
1383   /* Relocation not handled: R_PPC_EMB_RELST_HI */
1384   /* Relocation not handled: R_PPC_EMB_RELST_HA */
1385   /* Relocation not handled: R_PPC_EMB_BIT_FLD */
1386
1387   /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
1388      in the 16 bit signed offset from the appropriate base, and filling in the
1389      register field with the appropriate register (0, 2, or 13).  */
1390   HOWTO (R_PPC_EMB_RELSDA,      /* type */
1391          0,                     /* rightshift */
1392          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1393          16,                    /* bitsize */
1394          FALSE,                 /* pc_relative */
1395          0,                     /* bitpos */
1396          complain_overflow_signed, /* complain_on_overflow */
1397          bfd_elf_generic_reloc, /* special_function */
1398          "R_PPC_EMB_RELSDA",    /* name */
1399          FALSE,                 /* partial_inplace */
1400          0,                     /* src_mask */
1401          0xffff,                /* dst_mask */
1402          FALSE),                /* pcrel_offset */
1403
1404   /* A relative 8 bit branch.  */
1405   HOWTO (R_PPC_VLE_REL8,        /* type */
1406          1,                     /* rightshift */
1407          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1408          8,                     /* bitsize */
1409          TRUE,                  /* pc_relative */
1410          0,                     /* bitpos */
1411          complain_overflow_signed, /* complain_on_overflow */
1412          bfd_elf_generic_reloc, /* special_function */
1413          "R_PPC_VLE_REL8",      /* name */
1414          FALSE,                 /* partial_inplace */
1415          0,                     /* src_mask */
1416          0xff,                  /* dst_mask */
1417          TRUE),                 /* pcrel_offset */
1418          
1419   /* A relative 15 bit branch.  */
1420   HOWTO (R_PPC_VLE_REL15,       /* type */
1421          1,                     /* rightshift */
1422          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1423          15,                    /* bitsize */
1424          TRUE,                  /* pc_relative */
1425          1,                     /* bitpos */
1426          complain_overflow_signed, /* complain_on_overflow */
1427          bfd_elf_generic_reloc, /* special_function */
1428          "R_PPC_VLE_REL15",     /* name */
1429          FALSE,                 /* partial_inplace */
1430          0,                     /* src_mask */
1431          0xfe,                  /* dst_mask */
1432          TRUE),                 /* pcrel_offset */
1433
1434   /* A relative 24 bit branch.  */ 
1435   HOWTO (R_PPC_VLE_REL24,       /* type */
1436          1,                     /* rightshift */
1437          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1438          24,                    /* bitsize */
1439          TRUE,                  /* pc_relative */
1440          1,                     /* bitpos */
1441          complain_overflow_signed, /* complain_on_overflow */
1442          bfd_elf_generic_reloc, /* special_function */
1443          "R_PPC_VLE_REL24",     /* name */
1444          FALSE,                 /* partial_inplace */
1445          0,                     /* src_mask */
1446          0x1fffffe,             /* dst_mask */
1447          TRUE),                 /* pcrel_offset */
1448
1449   /* The 16 LSBS in split16a format.  */
1450   HOWTO (R_PPC_VLE_LO16A,       /* type */
1451          0,                     /* rightshift */
1452          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1453          32,                    /* bitsize */
1454          FALSE,                 /* pc_relative */  /* FIXME: Does this apply to split relocs? */
1455          0,                     /* bitpos */
1456          complain_overflow_bitfield, /* complain_on_overflow */
1457          bfd_elf_generic_reloc,  /* special_function */
1458          "R_PPC_VLE_LO16A",     /* name */
1459          FALSE,                 /* partial_inplace */
1460          0,                     /* src_mask */
1461          0x1f00fff,             /* dst_mask */
1462          FALSE),                /* pcrel_offset */
1463
1464   /* The 16 LSBS in split16d format.  */
1465   HOWTO (R_PPC_VLE_LO16D,       /* type */
1466          0,                     /* rightshift */
1467          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1468          32,                    /* bitsize */
1469          FALSE,                 /* pc_relative */
1470          0,                     /* bitpos */
1471          complain_overflow_bitfield, /* complain_on_overflow */
1472          bfd_elf_generic_reloc,  /* special_function */
1473          "R_PPC_VLE_LO16D",             /* name */
1474          FALSE,                 /* partial_inplace */
1475          0,                     /* src_mask */
1476          0x1f07ff,              /* dst_mask */
1477          FALSE),                /* pcrel_offset */
1478
1479   /* Bits 16-31 split16a format.  */
1480   HOWTO (R_PPC_VLE_HI16A,       /* type */
1481          0,                     /* rightshift */
1482          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1483          32,                    /* bitsize */
1484          FALSE,                 /* pc_relative */
1485          0,                     /* bitpos */
1486          complain_overflow_bitfield, /* complain_on_overflow */
1487          bfd_elf_generic_reloc,  /* special_function */
1488          "R_PPC_VLE_HI16A",             /* name */
1489          FALSE,                 /* partial_inplace */
1490          0,                     /* src_mask */
1491          0x1f00fff,             /* dst_mask */
1492          FALSE),                /* pcrel_offset */
1493
1494   /* Bits 16-31 split16d format.  */
1495   HOWTO (R_PPC_VLE_HI16D,       /* type */
1496          0,                     /* rightshift */
1497          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1498          32,                    /* bitsize */
1499          FALSE,                 /* pc_relative */
1500          0,                     /* bitpos */
1501          complain_overflow_bitfield, /* complain_on_overflow */
1502          bfd_elf_generic_reloc,  /* special_function */
1503          "R_PPC_VLE_HI16D",             /* name */
1504          FALSE,                 /* partial_inplace */
1505          0,                     /* src_mask */
1506          0x1f07ff,              /* dst_mask */
1507          FALSE),                /* pcrel_offset */
1508
1509   /* Bits 16-31 (High Adjusted) in split16a format.  */
1510   HOWTO (R_PPC_VLE_HA16A,       /* type */
1511          0,                     /* rightshift */
1512          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1513          32,                    /* bitsize */
1514          FALSE,                 /* pc_relative */
1515          0,                     /* bitpos */
1516          complain_overflow_bitfield, /* complain_on_overflow */
1517          bfd_elf_generic_reloc,  /* special_function */
1518          "R_PPC_VLE_HA16A",             /* name */
1519          FALSE,                 /* partial_inplace */
1520          0,                     /* src_mask */
1521          0x1f00fff,             /* dst_mask */
1522          FALSE),                /* pcrel_offset */
1523
1524   /* Bits 16-31 (High Adjusted) in split16d format.  */
1525   HOWTO (R_PPC_VLE_HA16D,       /* type */
1526          0,                     /* rightshift */
1527          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1528          32,                    /* bitsize */
1529          FALSE,                 /* pc_relative */
1530          0,                     /* bitpos */
1531          complain_overflow_bitfield, /* complain_on_overflow */
1532          bfd_elf_generic_reloc,  /* special_function */
1533          "R_PPC_VLE_HA16D",             /* name */
1534          FALSE,                 /* partial_inplace */
1535          0,                     /* src_mask */
1536          0x1f07ff,              /* dst_mask */
1537          FALSE),                /* pcrel_offset */
1538
1539   /* This reloc does nothing.  */
1540   HOWTO (R_PPC_VLE_SDA21,               /* type */
1541          0,                     /* rightshift */
1542          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1543          32,                    /* bitsize */
1544          FALSE,                 /* pc_relative */
1545          0,                     /* bitpos */
1546          complain_overflow_bitfield, /* complain_on_overflow */
1547          bfd_elf_generic_reloc, /* special_function */
1548          "R_PPC_VLE_SDA21",             /* name */
1549          FALSE,                 /* partial_inplace */
1550          0,                     /* src_mask */
1551          0xffff,                /* dst_mask */
1552          FALSE),                /* pcrel_offset */
1553
1554   /* This reloc does nothing.  */
1555   HOWTO (R_PPC_VLE_SDA21_LO,    /* type */
1556          0,                     /* rightshift */
1557          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1558          32,                    /* bitsize */
1559          FALSE,                 /* pc_relative */
1560          0,                     /* bitpos */
1561          complain_overflow_bitfield, /* complain_on_overflow */
1562          bfd_elf_generic_reloc, /* special_function */
1563          "R_PPC_VLE_SDA21_LO",  /* name */
1564          FALSE,                 /* partial_inplace */
1565          0,                     /* src_mask */
1566          0,                     /* dst_mask */
1567          FALSE),                /* pcrel_offset */
1568
1569   /* The 16 LSBS relative to _SDA_BASE_ in split16a format.  */
1570   HOWTO (R_PPC_VLE_SDAREL_LO16A,/* type */
1571          0,                     /* rightshift */
1572          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1573          32,                    /* bitsize */
1574          FALSE,                 /* pc_relative */
1575          0,                     /* bitpos */
1576          complain_overflow_bitfield,    /* complain_on_overflow */
1577          bfd_elf_generic_reloc,  /* special_function */
1578          "R_PPC_VLE_SDAREL_LO16A",      /* name */
1579          FALSE,                 /* partial_inplace */
1580          0,                     /* src_mask */
1581          0x1f00fff,             /* dst_mask */
1582          FALSE),                /* pcrel_offset */
1583
1584   /* The 16 LSBS relative to _SDA_BASE_ in split16d format.  */
1585   /* This reloc does nothing.  */
1586   HOWTO (R_PPC_VLE_SDAREL_LO16D, /* type */
1587          0,                     /* rightshift */
1588          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1589          32,                    /* bitsize */
1590          FALSE,                 /* pc_relative */
1591          0,                     /* bitpos */
1592          complain_overflow_bitfield,    /* complain_on_overflow */
1593          bfd_elf_generic_reloc,  /* special_function */
1594          "R_PPC_VLE_SDAREL_LO16D",              /* name */
1595          FALSE,                 /* partial_inplace */
1596          0,                     /* src_mask */
1597          0x1f07ff,              /* dst_mask */
1598          FALSE),                /* pcrel_offset */
1599
1600   /* Bits 16-31 relative to _SDA_BASE_ in split16a format.  */
1601   HOWTO (R_PPC_VLE_SDAREL_HI16A,        /* type */
1602          0,                     /* rightshift */
1603          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1604          32,                    /* bitsize */
1605          FALSE,                 /* pc_relative */
1606          0,                     /* bitpos */
1607          complain_overflow_bitfield,    /* complain_on_overflow */
1608          bfd_elf_generic_reloc,  /* special_function */
1609          "R_PPC_VLE_SDAREL_HI16A",      /* name */
1610          FALSE,                 /* partial_inplace */
1611          0,                     /* src_mask */
1612          0x1f00fff,             /* dst_mask */
1613          FALSE),                /* pcrel_offset */
1614
1615   /* Bits 16-31 relative to _SDA_BASE_ in split16d format.  */
1616   HOWTO (R_PPC_VLE_SDAREL_HI16D,        /* type */
1617          0,                     /* rightshift */
1618          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1619          32,                    /* bitsize */
1620          FALSE,                 /* pc_relative */
1621          0,                     /* bitpos */
1622          complain_overflow_bitfield,    /* complain_on_overflow */
1623          bfd_elf_generic_reloc,  /* special_function */
1624          "R_PPC_VLE_SDAREL_HI16D",      /* name */
1625          FALSE,                 /* partial_inplace */
1626          0,                     /* src_mask */
1627          0x1f07ff,              /* dst_mask */
1628          FALSE),                /* pcrel_offset */
1629
1630   /* Bits 16-31 (HA) relative to _SDA_BASE split16a format.  */
1631   HOWTO (R_PPC_VLE_SDAREL_HA16A,        /* type */
1632          0,                     /* rightshift */
1633          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1634          32,                    /* bitsize */
1635          FALSE,                 /* pc_relative */
1636          0,                     /* bitpos */
1637          complain_overflow_bitfield,    /* complain_on_overflow */
1638          bfd_elf_generic_reloc,  /* special_function */
1639          "R_PPC_VLE_SDAREL_HA16A",      /* name */
1640          FALSE,                 /* partial_inplace */
1641          0,                     /* src_mask */
1642          0x1f00fff,             /* dst_mask */
1643          FALSE),                /* pcrel_offset */
1644
1645   /* Bits 16-31 (HA) relative to _SDA_BASE split16d format.  */
1646   HOWTO (R_PPC_VLE_SDAREL_HA16D,        /* type */
1647          0,                     /* rightshift */
1648          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1649          32,                    /* bitsize */
1650          FALSE,                 /* pc_relative */
1651          0,                     /* bitpos */
1652          complain_overflow_bitfield,    /* complain_on_overflow */
1653          bfd_elf_generic_reloc,  /* special_function */
1654          "R_PPC_VLE_SDAREL_HA16D",      /* name */
1655          FALSE,                 /* partial_inplace */
1656          0,                     /* src_mask */
1657          0x1f07ff,              /* dst_mask */
1658          FALSE),                /* pcrel_offset */
1659
1660   HOWTO (R_PPC_IRELATIVE,       /* type */
1661          0,                     /* rightshift */
1662          2,                     /* size (0 = byte, 1 = short, 2 = long) */
1663          32,                    /* bitsize */
1664          FALSE,                 /* pc_relative */
1665          0,                     /* bitpos */
1666          complain_overflow_bitfield, /* complain_on_overflow */
1667          bfd_elf_generic_reloc,  /* special_function */
1668          "R_PPC_IRELATIVE",     /* name */
1669          FALSE,                 /* partial_inplace */
1670          0,                     /* src_mask */
1671          0xffffffff,            /* dst_mask */
1672          FALSE),                /* pcrel_offset */
1673
1674   /* A 16 bit relative relocation.  */
1675   HOWTO (R_PPC_REL16,           /* type */
1676          0,                     /* rightshift */
1677          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1678          16,                    /* bitsize */
1679          TRUE,                  /* pc_relative */
1680          0,                     /* bitpos */
1681          complain_overflow_bitfield, /* complain_on_overflow */
1682          bfd_elf_generic_reloc, /* special_function */
1683          "R_PPC_REL16",         /* name */
1684          FALSE,                 /* partial_inplace */
1685          0,                     /* src_mask */
1686          0xffff,                /* dst_mask */
1687          TRUE),                 /* pcrel_offset */
1688
1689   /* A 16 bit relative relocation without overflow.  */
1690   HOWTO (R_PPC_REL16_LO,        /* type */
1691          0,                     /* rightshift */
1692          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1693          16,                    /* bitsize */
1694          TRUE,                  /* pc_relative */
1695          0,                     /* bitpos */
1696          complain_overflow_dont,/* complain_on_overflow */
1697          bfd_elf_generic_reloc, /* special_function */
1698          "R_PPC_REL16_LO",      /* name */
1699          FALSE,                 /* partial_inplace */
1700          0,                     /* src_mask */
1701          0xffff,                /* dst_mask */
1702          TRUE),                 /* pcrel_offset */
1703
1704   /* The high order 16 bits of a relative address.  */
1705   HOWTO (R_PPC_REL16_HI,        /* type */
1706          16,                    /* rightshift */
1707          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1708          16,                    /* bitsize */
1709          TRUE,                  /* pc_relative */
1710          0,                     /* bitpos */
1711          complain_overflow_dont, /* complain_on_overflow */
1712          bfd_elf_generic_reloc, /* special_function */
1713          "R_PPC_REL16_HI",      /* name */
1714          FALSE,                 /* partial_inplace */
1715          0,                     /* src_mask */
1716          0xffff,                /* dst_mask */
1717          TRUE),                 /* pcrel_offset */
1718
1719   /* The high order 16 bits of a relative address, plus 1 if the contents of
1720      the low 16 bits, treated as a signed number, is negative.  */
1721   HOWTO (R_PPC_REL16_HA,        /* type */
1722          16,                    /* rightshift */
1723          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1724          16,                    /* bitsize */
1725          TRUE,                  /* pc_relative */
1726          0,                     /* bitpos */
1727          complain_overflow_dont, /* complain_on_overflow */
1728          ppc_elf_addr16_ha_reloc, /* special_function */
1729          "R_PPC_REL16_HA",      /* name */
1730          FALSE,                 /* partial_inplace */
1731          0,                     /* src_mask */
1732          0xffff,                /* dst_mask */
1733          TRUE),                 /* pcrel_offset */
1734
1735   /* GNU extension to record C++ vtable hierarchy.  */
1736   HOWTO (R_PPC_GNU_VTINHERIT,   /* type */
1737          0,                     /* rightshift */
1738          0,                     /* size (0 = byte, 1 = short, 2 = long) */
1739          0,                     /* bitsize */
1740          FALSE,                 /* pc_relative */
1741          0,                     /* bitpos */
1742          complain_overflow_dont, /* complain_on_overflow */
1743          NULL,                  /* special_function */
1744          "R_PPC_GNU_VTINHERIT", /* name */
1745          FALSE,                 /* partial_inplace */
1746          0,                     /* src_mask */
1747          0,                     /* dst_mask */
1748          FALSE),                /* pcrel_offset */
1749
1750   /* GNU extension to record C++ vtable member usage.  */
1751   HOWTO (R_PPC_GNU_VTENTRY,     /* type */
1752          0,                     /* rightshift */
1753          0,                     /* size (0 = byte, 1 = short, 2 = long) */
1754          0,                     /* bitsize */
1755          FALSE,                 /* pc_relative */
1756          0,                     /* bitpos */
1757          complain_overflow_dont, /* complain_on_overflow */
1758          NULL,                  /* special_function */
1759          "R_PPC_GNU_VTENTRY",   /* name */
1760          FALSE,                 /* partial_inplace */
1761          0,                     /* src_mask */
1762          0,                     /* dst_mask */
1763          FALSE),                /* pcrel_offset */
1764
1765   /* Phony reloc to handle AIX style TOC entries.  */
1766   HOWTO (R_PPC_TOC16,           /* type */
1767          0,                     /* rightshift */
1768          1,                     /* size (0 = byte, 1 = short, 2 = long) */
1769          16,                    /* bitsize */
1770          FALSE,                 /* pc_relative */
1771          0,                     /* bitpos */
1772          complain_overflow_signed, /* complain_on_overflow */
1773          bfd_elf_generic_reloc, /* special_function */
1774          "R_PPC_TOC16",         /* name */
1775          FALSE,                 /* partial_inplace */
1776          0,                     /* src_mask */
1777          0xffff,                /* dst_mask */
1778          FALSE),                /* pcrel_offset */
1779 };
1780 \f
1781 /* Initialize the ppc_elf_howto_table, so that linear accesses can be done.  */
1782
1783 static void
1784 ppc_elf_howto_init (void)
1785 {
1786   unsigned int i, type;
1787
1788   for (i = 0;
1789        i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1790        i++)
1791     {
1792       type = ppc_elf_howto_raw[i].type;
1793       if (type >= (sizeof (ppc_elf_howto_table)
1794                    / sizeof (ppc_elf_howto_table[0])))
1795         abort ();
1796       ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
1797     }
1798 }
1799
1800 static reloc_howto_type *
1801 ppc_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1802                            bfd_reloc_code_real_type code)
1803 {
1804   enum elf_ppc_reloc_type r;
1805
1806   /* Initialize howto table if not already done.  */
1807   if (!ppc_elf_howto_table[R_PPC_ADDR32])
1808     ppc_elf_howto_init ();
1809
1810   switch (code)
1811     {
1812     default:
1813       return NULL;
1814
1815     case BFD_RELOC_NONE:                r = R_PPC_NONE;                 break;
1816     case BFD_RELOC_32:                  r = R_PPC_ADDR32;               break;
1817     case BFD_RELOC_PPC_BA26:            r = R_PPC_ADDR24;               break;
1818     case BFD_RELOC_16:                  r = R_PPC_ADDR16;               break;
1819     case BFD_RELOC_LO16:                r = R_PPC_ADDR16_LO;            break;
1820     case BFD_RELOC_HI16:                r = R_PPC_ADDR16_HI;            break;
1821     case BFD_RELOC_HI16_S:              r = R_PPC_ADDR16_HA;            break;
1822     case BFD_RELOC_PPC_BA16:            r = R_PPC_ADDR14;               break;
1823     case BFD_RELOC_PPC_BA16_BRTAKEN:    r = R_PPC_ADDR14_BRTAKEN;       break;
1824     case BFD_RELOC_PPC_BA16_BRNTAKEN:   r = R_PPC_ADDR14_BRNTAKEN;      break;
1825     case BFD_RELOC_PPC_B26:             r = R_PPC_REL24;                break;
1826     case BFD_RELOC_PPC_B16:             r = R_PPC_REL14;                break;
1827     case BFD_RELOC_PPC_B16_BRTAKEN:     r = R_PPC_REL14_BRTAKEN;        break;
1828     case BFD_RELOC_PPC_B16_BRNTAKEN:    r = R_PPC_REL14_BRNTAKEN;       break;
1829     case BFD_RELOC_16_GOTOFF:           r = R_PPC_GOT16;                break;
1830     case BFD_RELOC_LO16_GOTOFF:         r = R_PPC_GOT16_LO;             break;
1831     case BFD_RELOC_HI16_GOTOFF:         r = R_PPC_GOT16_HI;             break;
1832     case BFD_RELOC_HI16_S_GOTOFF:       r = R_PPC_GOT16_HA;             break;
1833     case BFD_RELOC_24_PLT_PCREL:        r = R_PPC_PLTREL24;             break;
1834     case BFD_RELOC_PPC_COPY:            r = R_PPC_COPY;                 break;
1835     case BFD_RELOC_PPC_GLOB_DAT:        r = R_PPC_GLOB_DAT;             break;
1836     case BFD_RELOC_PPC_LOCAL24PC:       r = R_PPC_LOCAL24PC;            break;
1837     case BFD_RELOC_32_PCREL:            r = R_PPC_REL32;                break;
1838     case BFD_RELOC_32_PLTOFF:           r = R_PPC_PLT32;                break;
1839     case BFD_RELOC_32_PLT_PCREL:        r = R_PPC_PLTREL32;             break;
1840     case BFD_RELOC_LO16_PLTOFF:         r = R_PPC_PLT16_LO;             break;
1841     case BFD_RELOC_HI16_PLTOFF:         r = R_PPC_PLT16_HI;             break;
1842     case BFD_RELOC_HI16_S_PLTOFF:       r = R_PPC_PLT16_HA;             break;
1843     case BFD_RELOC_GPREL16:             r = R_PPC_SDAREL16;             break;
1844     case BFD_RELOC_16_BASEREL:          r = R_PPC_SECTOFF;              break;
1845     case BFD_RELOC_LO16_BASEREL:        r = R_PPC_SECTOFF_LO;           break;
1846     case BFD_RELOC_HI16_BASEREL:        r = R_PPC_SECTOFF_HI;           break;
1847     case BFD_RELOC_HI16_S_BASEREL:      r = R_PPC_SECTOFF_HA;           break;
1848     case BFD_RELOC_CTOR:                r = R_PPC_ADDR32;               break;
1849     case BFD_RELOC_PPC_TOC16:           r = R_PPC_TOC16;                break;
1850     case BFD_RELOC_PPC_TLS:             r = R_PPC_TLS;                  break;
1851     case BFD_RELOC_PPC_TLSGD:           r = R_PPC_TLSGD;                break;
1852     case BFD_RELOC_PPC_TLSLD:           r = R_PPC_TLSLD;                break;
1853     case BFD_RELOC_PPC_DTPMOD:          r = R_PPC_DTPMOD32;             break;
1854     case BFD_RELOC_PPC_TPREL16:         r = R_PPC_TPREL16;              break;
1855     case BFD_RELOC_PPC_TPREL16_LO:      r = R_PPC_TPREL16_LO;           break;
1856     case BFD_RELOC_PPC_TPREL16_HI:      r = R_PPC_TPREL16_HI;           break;
1857     case BFD_RELOC_PPC_TPREL16_HA:      r = R_PPC_TPREL16_HA;           break;
1858     case BFD_RELOC_PPC_TPREL:           r = R_PPC_TPREL32;              break;
1859     case BFD_RELOC_PPC_DTPREL16:        r = R_PPC_DTPREL16;             break;
1860     case BFD_RELOC_PPC_DTPREL16_LO:     r = R_PPC_DTPREL16_LO;          break;
1861     case BFD_RELOC_PPC_DTPREL16_HI:     r = R_PPC_DTPREL16_HI;          break;
1862     case BFD_RELOC_PPC_DTPREL16_HA:     r = R_PPC_DTPREL16_HA;          break;
1863     case BFD_RELOC_PPC_DTPREL:          r = R_PPC_DTPREL32;             break;
1864     case BFD_RELOC_PPC_GOT_TLSGD16:     r = R_PPC_GOT_TLSGD16;          break;
1865     case BFD_RELOC_PPC_GOT_TLSGD16_LO:  r = R_PPC_GOT_TLSGD16_LO;       break;
1866     case BFD_RELOC_PPC_GOT_TLSGD16_HI:  r = R_PPC_GOT_TLSGD16_HI;       break;
1867     case BFD_RELOC_PPC_GOT_TLSGD16_HA:  r = R_PPC_GOT_TLSGD16_HA;       break;
1868     case BFD_RELOC_PPC_GOT_TLSLD16:     r = R_PPC_GOT_TLSLD16;          break;
1869     case BFD_RELOC_PPC_GOT_TLSLD16_LO:  r = R_PPC_GOT_TLSLD16_LO;       break;
1870     case BFD_RELOC_PPC_GOT_TLSLD16_HI:  r = R_PPC_GOT_TLSLD16_HI;       break;
1871     case BFD_RELOC_PPC_GOT_TLSLD16_HA:  r = R_PPC_GOT_TLSLD16_HA;       break;
1872     case BFD_RELOC_PPC_GOT_TPREL16:     r = R_PPC_GOT_TPREL16;          break;
1873     case BFD_RELOC_PPC_GOT_TPREL16_LO:  r = R_PPC_GOT_TPREL16_LO;       break;
1874     case BFD_RELOC_PPC_GOT_TPREL16_HI:  r = R_PPC_GOT_TPREL16_HI;       break;
1875     case BFD_RELOC_PPC_GOT_TPREL16_HA:  r = R_PPC_GOT_TPREL16_HA;       break;
1876     case BFD_RELOC_PPC_GOT_DTPREL16:    r = R_PPC_GOT_DTPREL16;         break;
1877     case BFD_RELOC_PPC_GOT_DTPREL16_LO: r = R_PPC_GOT_DTPREL16_LO;      break;
1878     case BFD_RELOC_PPC_GOT_DTPREL16_HI: r = R_PPC_GOT_DTPREL16_HI;      break;
1879     case BFD_RELOC_PPC_GOT_DTPREL16_HA: r = R_PPC_GOT_DTPREL16_HA;      break;
1880     case BFD_RELOC_PPC_EMB_NADDR32:     r = R_PPC_EMB_NADDR32;          break;
1881     case BFD_RELOC_PPC_EMB_NADDR16:     r = R_PPC_EMB_NADDR16;          break;
1882     case BFD_RELOC_PPC_EMB_NADDR16_LO:  r = R_PPC_EMB_NADDR16_LO;       break;
1883     case BFD_RELOC_PPC_EMB_NADDR16_HI:  r = R_PPC_EMB_NADDR16_HI;       break;
1884     case BFD_RELOC_PPC_EMB_NADDR16_HA:  r = R_PPC_EMB_NADDR16_HA;       break;
1885     case BFD_RELOC_PPC_EMB_SDAI16:      r = R_PPC_EMB_SDAI16;           break;
1886     case BFD_RELOC_PPC_EMB_SDA2I16:     r = R_PPC_EMB_SDA2I16;          break;
1887     case BFD_RELOC_PPC_EMB_SDA2REL:     r = R_PPC_EMB_SDA2REL;          break;
1888     case BFD_RELOC_PPC_EMB_SDA21:       r = R_PPC_EMB_SDA21;            break;
1889     case BFD_RELOC_PPC_EMB_MRKREF:      r = R_PPC_EMB_MRKREF;           break;
1890     case BFD_RELOC_PPC_EMB_RELSEC16:    r = R_PPC_EMB_RELSEC16;         break;
1891     case BFD_RELOC_PPC_EMB_RELST_LO:    r = R_PPC_EMB_RELST_LO;         break;
1892     case BFD_RELOC_PPC_EMB_RELST_HI:    r = R_PPC_EMB_RELST_HI;         break;
1893     case BFD_RELOC_PPC_EMB_RELST_HA:    r = R_PPC_EMB_RELST_HA;         break;
1894     case BFD_RELOC_PPC_EMB_BIT_FLD:     r = R_PPC_EMB_BIT_FLD;          break;
1895     case BFD_RELOC_PPC_EMB_RELSDA:      r = R_PPC_EMB_RELSDA;           break;
1896     case BFD_RELOC_PPC_VLE_REL8:        r = R_PPC_VLE_REL8;             break;
1897     case BFD_RELOC_PPC_VLE_REL15:       r = R_PPC_VLE_REL15;            break;
1898     case BFD_RELOC_PPC_VLE_REL24:       r = R_PPC_VLE_REL24;            break;
1899     case BFD_RELOC_PPC_VLE_LO16A:       r = R_PPC_VLE_LO16A;            break;
1900     case BFD_RELOC_PPC_VLE_LO16D:       r = R_PPC_VLE_LO16D;            break;
1901     case BFD_RELOC_PPC_VLE_HI16A:       r = R_PPC_VLE_HI16A;            break;
1902     case BFD_RELOC_PPC_VLE_HI16D:       r = R_PPC_VLE_HI16D;            break;
1903     case BFD_RELOC_PPC_VLE_HA16A:       r = R_PPC_VLE_HA16A;            break;
1904     case BFD_RELOC_PPC_VLE_HA16D:       r = R_PPC_VLE_HA16D;            break;
1905     case BFD_RELOC_PPC_VLE_SDA21:       r = R_PPC_VLE_SDA21;            break;
1906     case BFD_RELOC_PPC_VLE_SDA21_LO:    r = R_PPC_VLE_SDA21_LO;         break;
1907     case BFD_RELOC_PPC_VLE_SDAREL_LO16A:
1908       r = R_PPC_VLE_SDAREL_LO16A;
1909       break;
1910     case BFD_RELOC_PPC_VLE_SDAREL_LO16D:
1911       r = R_PPC_VLE_SDAREL_LO16D;
1912       break;
1913     case BFD_RELOC_PPC_VLE_SDAREL_HI16A:
1914       r = R_PPC_VLE_SDAREL_HI16A;
1915       break;
1916     case BFD_RELOC_PPC_VLE_SDAREL_HI16D:
1917       r = R_PPC_VLE_SDAREL_HI16D;
1918       break;
1919     case BFD_RELOC_PPC_VLE_SDAREL_HA16A:
1920       r = R_PPC_VLE_SDAREL_HA16A;
1921       break;
1922     case BFD_RELOC_PPC_VLE_SDAREL_HA16D:
1923       r = R_PPC_VLE_SDAREL_HA16D;
1924       break;
1925     case BFD_RELOC_16_PCREL:            r = R_PPC_REL16;                break;
1926     case BFD_RELOC_LO16_PCREL:          r = R_PPC_REL16_LO;             break;
1927     case BFD_RELOC_HI16_PCREL:          r = R_PPC_REL16_HI;             break;
1928     case BFD_RELOC_HI16_S_PCREL:        r = R_PPC_REL16_HA;             break;
1929     case BFD_RELOC_VTABLE_INHERIT:      r = R_PPC_GNU_VTINHERIT;        break;
1930     case BFD_RELOC_VTABLE_ENTRY:        r = R_PPC_GNU_VTENTRY;          break;
1931     }
1932
1933   return ppc_elf_howto_table[r];
1934 };
1935
1936 static reloc_howto_type *
1937 ppc_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1938                            const char *r_name)
1939 {
1940   unsigned int i;
1941
1942   for (i = 0;
1943        i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1944        i++)
1945     if (ppc_elf_howto_raw[i].name != NULL
1946         && strcasecmp (ppc_elf_howto_raw[i].name, r_name) == 0)
1947       return &ppc_elf_howto_raw[i];
1948
1949   return NULL;
1950 }
1951
1952 /* Set the howto pointer for a PowerPC ELF reloc.  */
1953
1954 static void
1955 ppc_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1956                        arelent *cache_ptr,
1957                        Elf_Internal_Rela *dst)
1958 {
1959   /* Initialize howto table if not already done.  */
1960   if (!ppc_elf_howto_table[R_PPC_ADDR32])
1961     ppc_elf_howto_init ();
1962
1963   BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1964   cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
1965
1966   /* Just because the above assert didn't trigger doesn't mean that
1967      ELF32_R_TYPE (dst->r_info) is necessarily a valid relocation.  */
1968   if (!cache_ptr->howto)
1969     {
1970       (*_bfd_error_handler) (_("%B: invalid relocation type %d"),
1971                              abfd, ELF32_R_TYPE (dst->r_info));
1972       bfd_set_error (bfd_error_bad_value);
1973
1974       cache_ptr->howto = ppc_elf_howto_table[R_PPC_NONE];
1975     }
1976 }
1977
1978 /* Handle the R_PPC_ADDR16_HA and R_PPC_REL16_HA relocs.  */
1979
1980 static bfd_reloc_status_type
1981 ppc_elf_addr16_ha_reloc (bfd *abfd ATTRIBUTE_UNUSED,
1982                          arelent *reloc_entry,
1983                          asymbol *symbol,
1984                          void *data ATTRIBUTE_UNUSED,
1985                          asection *input_section,
1986                          bfd *output_bfd,
1987                          char **error_message ATTRIBUTE_UNUSED)
1988 {
1989   bfd_vma relocation;
1990
1991   if (output_bfd != NULL)
1992     {
1993       reloc_entry->address += input_section->output_offset;
1994       return bfd_reloc_ok;
1995     }
1996
1997   if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
1998     return bfd_reloc_outofrange;
1999
2000   if (bfd_is_com_section (symbol->section))
2001     relocation = 0;
2002   else
2003     relocation = symbol->value;
2004
2005   relocation += symbol->section->output_section->vma;
2006   relocation += symbol->section->output_offset;
2007   relocation += reloc_entry->addend;
2008   if (reloc_entry->howto->pc_relative)
2009     relocation -= reloc_entry->address;
2010
2011   reloc_entry->addend += (relocation & 0x8000) << 1;
2012
2013   return bfd_reloc_continue;
2014 }
2015
2016 static bfd_reloc_status_type
2017 ppc_elf_unhandled_reloc (bfd *abfd,
2018                          arelent *reloc_entry,
2019                          asymbol *symbol,
2020                          void *data,
2021                          asection *input_section,
2022                          bfd *output_bfd,
2023                          char **error_message)
2024 {
2025   /* If this is a relocatable link (output_bfd test tells us), just
2026      call the generic function.  Any adjustment will be done at final
2027      link time.  */
2028   if (output_bfd != NULL)
2029     return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
2030                                   input_section, output_bfd, error_message);
2031
2032   if (error_message != NULL)
2033     {
2034       static char buf[60];
2035       sprintf (buf, _("generic linker can't handle %s"),
2036                reloc_entry->howto->name);
2037       *error_message = buf;
2038     }
2039   return bfd_reloc_dangerous;
2040 }
2041 \f
2042 /* Sections created by the linker.  */
2043
2044 typedef struct elf_linker_section
2045 {
2046   /* Pointer to the bfd section.  */
2047   asection *section;
2048   /* Section name.  */
2049   const char *name;
2050   /* Associated bss section name.  */
2051   const char *bss_name;
2052   /* Associated symbol name.  */
2053   const char *sym_name;
2054   /* Associated symbol.  */
2055   struct elf_link_hash_entry *sym;
2056 } elf_linker_section_t;
2057
2058 /* Linked list of allocated pointer entries.  This hangs off of the
2059    symbol lists, and provides allows us to return different pointers,
2060    based on different addend's.  */
2061
2062 typedef struct elf_linker_section_pointers
2063 {
2064   /* next allocated pointer for this symbol */
2065   struct elf_linker_section_pointers *next;
2066   /* offset of pointer from beginning of section */
2067   bfd_vma offset;
2068   /* addend used */
2069   bfd_vma addend;
2070   /* which linker section this is */
2071   elf_linker_section_t *lsect;
2072 } elf_linker_section_pointers_t;
2073
2074 struct ppc_elf_obj_tdata
2075 {
2076   struct elf_obj_tdata elf;
2077
2078   /* A mapping from local symbols to offsets into the various linker
2079      sections added.  This is index by the symbol index.  */
2080   elf_linker_section_pointers_t **linker_section_pointers;
2081
2082   /* Flags used to auto-detect plt type.  */
2083   unsigned int makes_plt_call : 1;
2084   unsigned int has_rel16 : 1;
2085 };
2086
2087 #define ppc_elf_tdata(bfd) \
2088   ((struct ppc_elf_obj_tdata *) (bfd)->tdata.any)
2089
2090 #define elf_local_ptr_offsets(bfd) \
2091   (ppc_elf_tdata (bfd)->linker_section_pointers)
2092
2093 #define is_ppc_elf(bfd) \
2094   (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
2095    && elf_object_id (bfd) == PPC32_ELF_DATA)
2096
2097 /* Override the generic function because we store some extras.  */
2098
2099 static bfd_boolean
2100 ppc_elf_mkobject (bfd *abfd)
2101 {
2102   return bfd_elf_allocate_object (abfd, sizeof (struct ppc_elf_obj_tdata),
2103                                   PPC32_ELF_DATA);
2104 }
2105
2106 /* Fix bad default arch selected for a 32 bit input bfd when the
2107    default is 64 bit.  */
2108
2109 static bfd_boolean
2110 ppc_elf_object_p (bfd *abfd)
2111 {
2112   if (abfd->arch_info->the_default && abfd->arch_info->bits_per_word == 64)
2113     {
2114       Elf_Internal_Ehdr *i_ehdr = elf_elfheader (abfd);
2115
2116       if (i_ehdr->e_ident[EI_CLASS] == ELFCLASS32)
2117         {
2118           /* Relies on arch after 64 bit default being 32 bit default.  */
2119           abfd->arch_info = abfd->arch_info->next;
2120           BFD_ASSERT (abfd->arch_info->bits_per_word == 32);
2121         }
2122     }
2123   return TRUE;
2124 }
2125
2126 /* Function to set whether a module needs the -mrelocatable bit set.  */
2127
2128 static bfd_boolean
2129 ppc_elf_set_private_flags (bfd *abfd, flagword flags)
2130 {
2131   BFD_ASSERT (!elf_flags_init (abfd)
2132               || elf_elfheader (abfd)->e_flags == flags);
2133
2134   elf_elfheader (abfd)->e_flags = flags;
2135   elf_flags_init (abfd) = TRUE;
2136   return TRUE;
2137 }
2138
2139 /* Support for core dump NOTE sections.  */
2140
2141 static bfd_boolean
2142 ppc_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
2143 {
2144   int offset;
2145   unsigned int size;
2146
2147   switch (note->descsz)
2148     {
2149     default:
2150       return FALSE;
2151
2152     case 268:           /* Linux/PPC.  */
2153       /* pr_cursig */
2154       elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
2155
2156       /* pr_pid */
2157       elf_tdata (abfd)->core_lwpid = bfd_get_32 (abfd, note->descdata + 24);
2158
2159       /* pr_reg */
2160       offset = 72;
2161       size = 192;
2162
2163       break;
2164     }
2165
2166   /* Make a ".reg/999" section.  */
2167   return _bfd_elfcore_make_pseudosection (abfd, ".reg",
2168                                           size, note->descpos + offset);
2169 }
2170
2171 static bfd_boolean
2172 ppc_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
2173 {
2174   switch (note->descsz)
2175     {
2176     default:
2177       return FALSE;
2178
2179     case 128:           /* Linux/PPC elf_prpsinfo.  */
2180       elf_tdata (abfd)->core_pid
2181         = bfd_get_32 (abfd, note->descdata + 16);
2182       elf_tdata (abfd)->core_program
2183         = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
2184       elf_tdata (abfd)->core_command
2185         = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
2186     }
2187
2188   /* Note that for some reason, a spurious space is tacked
2189      onto the end of the args in some (at least one anyway)
2190      implementations, so strip it off if it exists.  */
2191
2192   {
2193     char *command = elf_tdata (abfd)->core_command;
2194     int n = strlen (command);
2195
2196     if (0 < n && command[n - 1] == ' ')
2197       command[n - 1] = '\0';
2198   }
2199
2200   return TRUE;
2201 }
2202
2203 static char *
2204 ppc_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type, ...)
2205 {
2206   switch (note_type)
2207     {
2208     default:
2209       return NULL;
2210
2211     case NT_PRPSINFO:
2212       {
2213         char data[128];
2214         va_list ap;
2215
2216         va_start (ap, note_type);
2217         memset (data, 0, sizeof (data));
2218         strncpy (data + 32, va_arg (ap, const char *), 16);
2219         strncpy (data + 48, va_arg (ap, const char *), 80);
2220         va_end (ap);
2221         return elfcore_write_note (abfd, buf, bufsiz,
2222                                    "CORE", note_type, data, sizeof (data));
2223       }
2224
2225     case NT_PRSTATUS:
2226       {
2227         char data[268];
2228         va_list ap;
2229         long pid;
2230         int cursig;
2231         const void *greg;
2232
2233         va_start (ap, note_type);
2234         memset (data, 0, 72);
2235         pid = va_arg (ap, long);
2236         bfd_put_32 (abfd, pid, data + 24);
2237         cursig = va_arg (ap, int);
2238         bfd_put_16 (abfd, cursig, data + 12);
2239         greg = va_arg (ap, const void *);
2240         memcpy (data + 72, greg, 192);
2241         memset (data + 264, 0, 4);
2242         va_end (ap);
2243         return elfcore_write_note (abfd, buf, bufsiz,
2244                                    "CORE", note_type, data, sizeof (data));
2245       }
2246     }
2247 }
2248
2249 static flagword
2250 ppc_elf_lookup_section_flags (char *flag_name) 
2251 {
2252
2253   if (!strcmp (flag_name, "SHF_PPC_VLE"))
2254     return SHF_PPC_VLE;
2255
2256   return 0;
2257 }
2258
2259 /* Add the VLE flag if required.  */
2260
2261 bfd_boolean
2262 ppc_elf_section_processing (bfd *abfd, Elf_Internal_Shdr *shdr)
2263 {
2264   if (bfd_get_mach (abfd) == bfd_mach_ppc_vle
2265       && (shdr->sh_flags & SHF_EXECINSTR) != 0)
2266     shdr->sh_flags |= SHF_PPC_VLE;
2267
2268   return TRUE;
2269 }
2270
2271 /* Return address for Ith PLT stub in section PLT, for relocation REL
2272    or (bfd_vma) -1 if it should not be included.  */
2273
2274 static bfd_vma
2275 ppc_elf_plt_sym_val (bfd_vma i ATTRIBUTE_UNUSED,
2276                      const asection *plt ATTRIBUTE_UNUSED,
2277                      const arelent *rel)
2278 {
2279   return rel->address;
2280 }
2281
2282 /* Handle a PowerPC specific section when reading an object file.  This
2283    is called when bfd_section_from_shdr finds a section with an unknown
2284    type.  */
2285
2286 static bfd_boolean
2287 ppc_elf_section_from_shdr (bfd *abfd,
2288                            Elf_Internal_Shdr *hdr,
2289                            const char *name,
2290                            int shindex)
2291 {
2292   asection *newsect;
2293   flagword flags;
2294
2295   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
2296     return FALSE;
2297
2298   newsect = hdr->bfd_section;
2299   flags = bfd_get_section_flags (abfd, newsect);
2300   if (hdr->sh_flags & SHF_EXCLUDE)
2301     flags |= SEC_EXCLUDE;
2302
2303   if (hdr->sh_type == SHT_ORDERED)
2304     flags |= SEC_SORT_ENTRIES;
2305
2306   bfd_set_section_flags (abfd, newsect, flags);
2307   return TRUE;
2308 }
2309
2310 /* Set up any other section flags and such that may be necessary.  */
2311
2312 static bfd_boolean
2313 ppc_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
2314                        Elf_Internal_Shdr *shdr,
2315                        asection *asect)
2316 {
2317   if ((asect->flags & SEC_SORT_ENTRIES) != 0)
2318     shdr->sh_type = SHT_ORDERED;
2319
2320   return TRUE;
2321 }
2322
2323 /* If we have .sbss2 or .PPC.EMB.sbss0 output sections, we
2324    need to bump up the number of section headers.  */
2325
2326 static int
2327 ppc_elf_additional_program_headers (bfd *abfd,
2328                                     struct bfd_link_info *info ATTRIBUTE_UNUSED)
2329 {
2330   asection *s;
2331   int ret = 0;
2332
2333   s = bfd_get_section_by_name (abfd, ".sbss2");
2334   if (s != NULL && (s->flags & SEC_ALLOC) != 0)
2335     ++ret;
2336
2337   s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
2338   if (s != NULL && (s->flags & SEC_ALLOC) != 0)
2339     ++ret;
2340
2341   return ret;
2342 }
2343
2344 /* Modify the segment map for VLE executables.  */ 
2345
2346 bfd_boolean
2347 ppc_elf_modify_segment_map (bfd *abfd,
2348                             struct bfd_link_info *info ATTRIBUTE_UNUSED)
2349 {
2350   struct elf_segment_map *m, *n;
2351   bfd_size_type amt;
2352   unsigned int j, k;
2353   bfd_boolean sect0_vle, sectj_vle;
2354
2355   /* At this point in the link, output sections have already been sorted by
2356      LMA and assigned to segments.  All that is left to do is to ensure
2357      there is no mixing of VLE & non-VLE sections in a text segment.
2358      If we find that case, we split the segment.
2359      We maintain the original output section order.  */
2360
2361   for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
2362     {
2363       if (m->count == 0)
2364         continue;
2365
2366       sect0_vle = (elf_section_flags (m->sections[0]) & SHF_PPC_VLE) != 0;
2367       for (j = 1; j < m->count; ++j)
2368         {
2369           sectj_vle = (elf_section_flags (m->sections[j]) & SHF_PPC_VLE) != 0;
2370
2371           if (sectj_vle != sect0_vle)
2372             break;
2373         }
2374       if (j >= m->count)
2375         continue;
2376
2377       /* sections 0..j-1 stay in this (current) segment,
2378          the remainder are put in a new segment.
2379          The scan resumes with the new segment.  */
2380
2381       /* Fix the new segment.  */
2382       amt = sizeof (struct elf_segment_map);
2383       amt += (m->count - j - 1) * sizeof (asection *);
2384       n = (struct elf_segment_map *) bfd_zalloc (abfd, amt);
2385       if (n == NULL)
2386         return FALSE;
2387
2388       n->p_type = PT_LOAD;
2389       n->p_flags = PF_X | PF_R;
2390       if (sectj_vle)
2391         n->p_flags |= PF_PPC_VLE;
2392       n->count = m->count - j;
2393       for (k = 0; k < n->count; ++k)
2394         {
2395           n->sections[k] = m->sections[j+k];
2396           m->sections[j+k] = NULL;
2397         }
2398       n->next = m->next;
2399       m->next = n;
2400
2401       /* Fix the current segment  */
2402       m->count = j;
2403     }
2404
2405   return TRUE;
2406 }
2407
2408 /* Add extra PPC sections -- Note, for now, make .sbss2 and
2409    .PPC.EMB.sbss0 a normal section, and not a bss section so
2410    that the linker doesn't crater when trying to make more than
2411    2 sections.  */
2412
2413 static const struct bfd_elf_special_section ppc_elf_special_sections[] =
2414 {
2415   { STRING_COMMA_LEN (".plt"),             0, SHT_NOBITS,   SHF_ALLOC + SHF_EXECINSTR },
2416   { STRING_COMMA_LEN (".sbss"),           -2, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE },
2417   { STRING_COMMA_LEN (".sbss2"),          -2, SHT_PROGBITS, SHF_ALLOC },
2418   { STRING_COMMA_LEN (".sdata"),          -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
2419   { STRING_COMMA_LEN (".sdata2"),         -2, SHT_PROGBITS, SHF_ALLOC },
2420   { STRING_COMMA_LEN (".tags"),            0, SHT_ORDERED,  SHF_ALLOC },
2421   { STRING_COMMA_LEN (".PPC.EMB.apuinfo"), 0, SHT_NOTE,     0 },
2422   { STRING_COMMA_LEN (".PPC.EMB.sbss0"),   0, SHT_PROGBITS, SHF_ALLOC },
2423   { STRING_COMMA_LEN (".PPC.EMB.sdata0"),  0, SHT_PROGBITS, SHF_ALLOC },
2424   { NULL,                              0,  0, 0,            0 }
2425 };
2426
2427 /* This is what we want for new plt/got.  */
2428 static struct bfd_elf_special_section ppc_alt_plt =
2429   { STRING_COMMA_LEN (".plt"),             0, SHT_PROGBITS, SHF_ALLOC };
2430
2431 static const struct bfd_elf_special_section *
2432 ppc_elf_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
2433 {
2434   const struct bfd_elf_special_section *ssect;
2435
2436   /* See if this is one of the special sections.  */
2437   if (sec->name == NULL)
2438     return NULL;
2439
2440   ssect = _bfd_elf_get_special_section (sec->name, ppc_elf_special_sections,
2441                                         sec->use_rela_p);
2442   if (ssect != NULL)
2443     {
2444       if (ssect == ppc_elf_special_sections && (sec->flags & SEC_LOAD) != 0)
2445         ssect = &ppc_alt_plt;
2446       return ssect;
2447     }
2448
2449   return _bfd_elf_get_sec_type_attr (abfd, sec);
2450 }
2451 \f
2452 /* Very simple linked list structure for recording apuinfo values.  */
2453 typedef struct apuinfo_list
2454 {
2455   struct apuinfo_list *next;
2456   unsigned long value;
2457 }
2458 apuinfo_list;
2459
2460 static apuinfo_list *head;
2461 static bfd_boolean apuinfo_set;
2462
2463 static void
2464 apuinfo_list_init (void)
2465 {
2466   head = NULL;
2467   apuinfo_set = FALSE;
2468 }
2469
2470 static void
2471 apuinfo_list_add (unsigned long value)
2472 {
2473   apuinfo_list *entry = head;
2474
2475   while (entry != NULL)
2476     {
2477       if (entry->value == value)
2478         return;
2479       entry = entry->next;
2480     }
2481
2482   entry = bfd_malloc (sizeof (* entry));
2483   if (entry == NULL)
2484     return;
2485
2486   entry->value = value;
2487   entry->next  = head;
2488   head = entry;
2489 }
2490
2491 static unsigned
2492 apuinfo_list_length (void)
2493 {
2494   apuinfo_list *entry;
2495   unsigned long count;
2496
2497   for (entry = head, count = 0;
2498        entry;
2499        entry = entry->next)
2500     ++ count;
2501
2502   return count;
2503 }
2504
2505 static inline unsigned long
2506 apuinfo_list_element (unsigned long number)
2507 {
2508   apuinfo_list * entry;
2509
2510   for (entry = head;
2511        entry && number --;
2512        entry = entry->next)
2513     ;
2514
2515   return entry ? entry->value : 0;
2516 }
2517
2518 static void
2519 apuinfo_list_finish (void)
2520 {
2521   apuinfo_list *entry;
2522
2523   for (entry = head; entry;)
2524     {
2525       apuinfo_list *next = entry->next;
2526       free (entry);
2527       entry = next;
2528     }
2529
2530   head = NULL;
2531 }
2532
2533 #define APUINFO_SECTION_NAME    ".PPC.EMB.apuinfo"
2534 #define APUINFO_LABEL           "APUinfo"
2535
2536 /* Scan the input BFDs and create a linked list of
2537    the APUinfo values that will need to be emitted.  */
2538
2539 static void
2540 ppc_elf_begin_write_processing (bfd *abfd, struct bfd_link_info *link_info)
2541 {
2542   bfd *ibfd;
2543   asection *asec;
2544   char *buffer = NULL;
2545   bfd_size_type largest_input_size = 0;
2546   unsigned i;
2547   unsigned long length;
2548   const char *error_message = NULL;
2549
2550   if (link_info == NULL)
2551     return;
2552
2553   apuinfo_list_init ();
2554
2555   /* Read in the input sections contents.  */
2556   for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
2557     {
2558       unsigned long datum;
2559
2560       asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
2561       if (asec == NULL)
2562         continue;
2563
2564       error_message = _("corrupt %s section in %B");
2565       length = asec->size;
2566       if (length < 20)
2567         goto fail;
2568
2569       apuinfo_set = TRUE;
2570       if (largest_input_size < asec->size)
2571         {
2572           if (buffer)
2573             free (buffer);
2574           largest_input_size = asec->size;
2575           buffer = bfd_malloc (largest_input_size);
2576           if (!buffer)
2577             return;
2578         }
2579
2580       if (bfd_seek (ibfd, asec->filepos, SEEK_SET) != 0
2581           || (bfd_bread (buffer, length, ibfd) != length))
2582         {
2583           error_message = _("unable to read in %s section from %B");
2584           goto fail;
2585         }
2586
2587       /* Verify the contents of the header.  Note - we have to
2588          extract the values this way in order to allow for a
2589          host whose endian-ness is different from the target.  */
2590       datum = bfd_get_32 (ibfd, buffer);
2591       if (datum != sizeof APUINFO_LABEL)
2592         goto fail;
2593
2594       datum = bfd_get_32 (ibfd, buffer + 8);
2595       if (datum != 0x2)
2596         goto fail;
2597
2598       if (strcmp (buffer + 12, APUINFO_LABEL) != 0)
2599         goto fail;
2600
2601       /* Get the number of bytes used for apuinfo entries.  */
2602       datum = bfd_get_32 (ibfd, buffer + 4);
2603       if (datum + 20 != length)
2604         goto fail;
2605
2606       /* Scan the apuinfo section, building a list of apuinfo numbers.  */
2607       for (i = 0; i < datum; i += 4)
2608         apuinfo_list_add (bfd_get_32 (ibfd, buffer + 20 + i));
2609     }
2610
2611   error_message = NULL;
2612
2613   if (apuinfo_set)
2614     {
2615       /* Compute the size of the output section.  */
2616       unsigned num_entries = apuinfo_list_length ();
2617
2618       /* Set the output section size, if it exists.  */
2619       asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2620
2621       if (asec && ! bfd_set_section_size (abfd, asec, 20 + num_entries * 4))
2622         {
2623           ibfd = abfd;
2624           error_message = _("warning: unable to set size of %s section in %B");
2625         }
2626     }
2627
2628  fail:
2629   if (buffer)
2630     free (buffer);
2631
2632   if (error_message)
2633     (*_bfd_error_handler) (error_message, ibfd, APUINFO_SECTION_NAME);
2634 }
2635
2636 /* Prevent the output section from accumulating the input sections'
2637    contents.  We have already stored this in our linked list structure.  */
2638
2639 static bfd_boolean
2640 ppc_elf_write_section (bfd *abfd ATTRIBUTE_UNUSED,
2641                        struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
2642                        asection *asec,
2643                        bfd_byte *contents ATTRIBUTE_UNUSED)
2644 {
2645   return apuinfo_set && strcmp (asec->name, APUINFO_SECTION_NAME) == 0;
2646 }
2647
2648 /* Finally we can generate the output section.  */
2649
2650 static void
2651 ppc_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
2652 {
2653   bfd_byte *buffer;
2654   asection *asec;
2655   unsigned i;
2656   unsigned num_entries;
2657   bfd_size_type length;
2658
2659   asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2660   if (asec == NULL)
2661     return;
2662
2663   if (!apuinfo_set)
2664     return;
2665
2666   length = asec->size;
2667   if (length < 20)
2668     return;
2669
2670   buffer = bfd_malloc (length);
2671   if (buffer == NULL)
2672     {
2673       (*_bfd_error_handler)
2674         (_("failed to allocate space for new APUinfo section."));
2675       return;
2676     }
2677
2678   /* Create the apuinfo header.  */
2679   num_entries = apuinfo_list_length ();
2680   bfd_put_32 (abfd, sizeof APUINFO_LABEL, buffer);
2681   bfd_put_32 (abfd, num_entries * 4, buffer + 4);
2682   bfd_put_32 (abfd, 0x2, buffer + 8);
2683   strcpy ((char *) buffer + 12, APUINFO_LABEL);
2684
2685   length = 20;
2686   for (i = 0; i < num_entries; i++)
2687     {
2688       bfd_put_32 (abfd, apuinfo_list_element (i), buffer + length);
2689       length += 4;
2690     }
2691
2692   if (length != asec->size)
2693     (*_bfd_error_handler) (_("failed to compute new APUinfo section."));
2694
2695   if (! bfd_set_section_contents (abfd, asec, buffer, (file_ptr) 0, length))
2696     (*_bfd_error_handler) (_("failed to install new APUinfo section."));
2697
2698   free (buffer);
2699
2700   apuinfo_list_finish ();
2701 }
2702 \f
2703 static bfd_boolean
2704 is_nonpic_glink_stub (bfd *abfd, asection *glink, bfd_vma off)
2705 {
2706   bfd_byte buf[GLINK_ENTRY_SIZE];
2707
2708   if (!bfd_get_section_contents (abfd, glink, buf, off, GLINK_ENTRY_SIZE))
2709     return FALSE;
2710
2711   return ((bfd_get_32 (abfd, buf + 0) & 0xffff0000) == LIS_11
2712           && (bfd_get_32 (abfd, buf + 4) & 0xffff0000) == LWZ_11_11
2713           && bfd_get_32 (abfd, buf + 8) == MTCTR_11
2714           && bfd_get_32 (abfd, buf + 12) == BCTR);
2715 }
2716
2717 static bfd_boolean
2718 section_covers_vma (bfd *abfd ATTRIBUTE_UNUSED, asection *section, void *ptr)
2719 {
2720   bfd_vma vma = *(bfd_vma *) ptr;
2721   return ((section->flags & SEC_ALLOC) != 0
2722           && section->vma <= vma
2723           && vma < section->vma + section->size);
2724 }
2725
2726 static long
2727 ppc_elf_get_synthetic_symtab (bfd *abfd, long symcount, asymbol **syms,
2728                               long dynsymcount, asymbol **dynsyms,
2729                               asymbol **ret)
2730 {
2731   bfd_boolean (*slurp_relocs) (bfd *, asection *, asymbol **, bfd_boolean);
2732   asection *plt, *relplt, *dynamic, *glink;
2733   bfd_vma glink_vma = 0;
2734   bfd_vma resolv_vma = 0;
2735   bfd_vma stub_vma;
2736   asymbol *s;
2737   arelent *p;
2738   long count, i;
2739   size_t size;
2740   char *names;
2741   bfd_byte buf[4];
2742
2743   *ret = NULL;
2744
2745   if ((abfd->flags & (DYNAMIC | EXEC_P)) == 0)
2746     return 0;
2747
2748   if (dynsymcount <= 0)
2749     return 0;
2750
2751   relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2752   if (relplt == NULL)
2753     return 0;
2754
2755   plt = bfd_get_section_by_name (abfd, ".plt");
2756   if (plt == NULL)
2757     return 0;
2758
2759   /* Call common code to handle old-style executable PLTs.  */
2760   if (elf_section_flags (plt) & SHF_EXECINSTR)
2761     return _bfd_elf_get_synthetic_symtab (abfd, symcount, syms,
2762                                           dynsymcount, dynsyms, ret);
2763
2764   /* If this object was prelinked, the prelinker stored the address
2765      of .glink at got[1].  If it wasn't prelinked, got[1] will be zero.  */
2766   dynamic = bfd_get_section_by_name (abfd, ".dynamic");
2767   if (dynamic != NULL)
2768     {
2769       bfd_byte *dynbuf, *extdyn, *extdynend;
2770       size_t extdynsize;
2771       void (*swap_dyn_in) (bfd *, const void *, Elf_Internal_Dyn *);
2772
2773       if (!bfd_malloc_and_get_section (abfd, dynamic, &dynbuf))
2774         return -1;
2775
2776       extdynsize = get_elf_backend_data (abfd)->s->sizeof_dyn;
2777       swap_dyn_in = get_elf_backend_data (abfd)->s->swap_dyn_in;
2778
2779       extdyn = dynbuf;
2780       extdynend = extdyn + dynamic->size;
2781       for (; extdyn < extdynend; extdyn += extdynsize)
2782         {
2783           Elf_Internal_Dyn dyn;
2784           (*swap_dyn_in) (abfd, extdyn, &dyn);
2785
2786           if (dyn.d_tag == DT_NULL)
2787             break;
2788
2789           if (dyn.d_tag == DT_PPC_GOT)
2790             {
2791               unsigned int g_o_t = dyn.d_un.d_val;
2792               asection *got = bfd_get_section_by_name (abfd, ".got");
2793               if (got != NULL
2794                   && bfd_get_section_contents (abfd, got, buf,
2795                                                g_o_t - got->vma + 4, 4))
2796                 glink_vma = bfd_get_32 (abfd, buf);
2797               break;
2798             }
2799         }
2800       free (dynbuf);
2801     }
2802
2803   /* Otherwise we read the first plt entry.  */
2804   if (glink_vma == 0)
2805     {
2806       if (bfd_get_section_contents (abfd, plt, buf, 0, 4))
2807         glink_vma = bfd_get_32 (abfd, buf);
2808     }
2809
2810   if (glink_vma == 0)
2811     return 0;
2812
2813   /* The .glink section usually does not survive the final
2814      link; search for the section (usually .text) where the
2815      glink stubs now reside.  */
2816   glink = bfd_sections_find_if (abfd, section_covers_vma, &glink_vma);
2817   if (glink == NULL)
2818     return 0;
2819
2820   /* Determine glink PLT resolver by reading the relative branch
2821      from the first glink stub.  */
2822   if (bfd_get_section_contents (abfd, glink, buf,
2823                                 glink_vma - glink->vma, 4))
2824     {
2825       unsigned int insn = bfd_get_32 (abfd, buf);
2826
2827       /* The first glink stub may either branch to the resolver ...  */
2828       insn ^= B;
2829       if ((insn & ~0x3fffffc) == 0)
2830         resolv_vma = glink_vma + (insn ^ 0x2000000) - 0x2000000;
2831
2832       /* ... or fall through a bunch of NOPs.  */
2833       else if ((insn ^ B ^ NOP) == 0)
2834         for (i = 4;
2835              bfd_get_section_contents (abfd, glink, buf,
2836                                        glink_vma - glink->vma + i, 4);
2837              i += 4)
2838           if (bfd_get_32 (abfd, buf) != NOP)
2839             {
2840               resolv_vma = glink_vma + i;
2841               break;
2842             }
2843     }
2844
2845   count = relplt->size / sizeof (Elf32_External_Rela);
2846   stub_vma = glink_vma - (bfd_vma) count * 16;
2847   /* If the stubs are those for -shared/-pie then we might have
2848      multiple stubs for each plt entry.  If that is the case then
2849      there is no way to associate stubs with their plt entries short
2850      of figuring out the GOT pointer value used in the stub.  */
2851   if (!is_nonpic_glink_stub (abfd, glink,
2852                              glink_vma - GLINK_ENTRY_SIZE - glink->vma))
2853     return 0;
2854
2855   slurp_relocs = get_elf_backend_data (abfd)->s->slurp_reloc_table;
2856   if (! (*slurp_relocs) (abfd, relplt, dynsyms, TRUE))
2857     return -1;
2858
2859   size = count * sizeof (asymbol);
2860   p = relplt->relocation;
2861   for (i = 0; i < count; i++, p++)
2862     {
2863       size += strlen ((*p->sym_ptr_ptr)->name) + sizeof ("@plt");
2864       if (p->addend != 0)
2865         size += sizeof ("+0x") - 1 + 8;
2866     }
2867
2868   size += sizeof (asymbol) + sizeof ("__glink");
2869
2870   if (resolv_vma)
2871     size += sizeof (asymbol) + sizeof ("__glink_PLTresolve");
2872
2873   s = *ret = bfd_malloc (size);
2874   if (s == NULL)
2875     return -1;
2876
2877   names = (char *) (s + count + 1 + (resolv_vma != 0));
2878   p = relplt->relocation;
2879   for (i = 0; i < count; i++, p++)
2880     {
2881       size_t len;
2882
2883       *s = **p->sym_ptr_ptr;
2884       /* Undefined syms won't have BSF_LOCAL or BSF_GLOBAL set.  Since
2885          we are defining a symbol, ensure one of them is set.  */
2886       if ((s->flags & BSF_LOCAL) == 0)
2887         s->flags |= BSF_GLOBAL;
2888       s->flags |= BSF_SYNTHETIC;
2889       s->section = glink;
2890       s->value = stub_vma - glink->vma;
2891       s->name = names;
2892       s->udata.p = NULL;
2893       len = strlen ((*p->sym_ptr_ptr)->name);
2894       memcpy (names, (*p->sym_ptr_ptr)->name, len);
2895       names += len;
2896       if (p->addend != 0)
2897         {
2898           memcpy (names, "+0x", sizeof ("+0x") - 1);
2899           names += sizeof ("+0x") - 1;
2900           bfd_sprintf_vma (abfd, names, p->addend);
2901           names += strlen (names);
2902         }
2903       memcpy (names, "@plt", sizeof ("@plt"));
2904       names += sizeof ("@plt");
2905       ++s;
2906       stub_vma += 16;
2907     }
2908
2909   /* Add a symbol at the start of the glink branch table.  */
2910   memset (s, 0, sizeof *s);
2911   s->the_bfd = abfd;
2912   s->flags = BSF_GLOBAL | BSF_SYNTHETIC;
2913   s->section = glink;
2914   s->value = glink_vma - glink->vma;
2915   s->name = names;
2916   memcpy (names, "__glink", sizeof ("__glink"));
2917   names += sizeof ("__glink");
2918   s++;
2919   count++;
2920
2921   if (resolv_vma)
2922     {
2923       /* Add a symbol for the glink PLT resolver.  */
2924       memset (s, 0, sizeof *s);
2925       s->the_bfd = abfd;
2926       s->flags = BSF_GLOBAL | BSF_SYNTHETIC;
2927       s->section = glink;
2928       s->value = resolv_vma - glink->vma;
2929       s->name = names;
2930       memcpy (names, "__glink_PLTresolve", sizeof ("__glink_PLTresolve"));
2931       names += sizeof ("__glink_PLTresolve");
2932       s++;
2933       count++;
2934     }
2935
2936   return count;
2937 }
2938 \f
2939 /* The following functions are specific to the ELF linker, while
2940    functions above are used generally.  They appear in this file more
2941    or less in the order in which they are called.  eg.
2942    ppc_elf_check_relocs is called early in the link process,
2943    ppc_elf_finish_dynamic_sections is one of the last functions
2944    called.  */
2945
2946 /* Track PLT entries needed for a given symbol.  We might need more
2947    than one glink entry per symbol when generating a pic binary.  */
2948 struct plt_entry
2949 {
2950   struct plt_entry *next;
2951
2952   /* -fPIC uses multiple GOT sections, one per file, called ".got2".
2953      This field stores the offset into .got2 used to initialise the
2954      GOT pointer reg.  It will always be at least 32768.  (Current
2955      gcc always uses an offset of 32768, but ld -r will pack .got2
2956      sections together resulting in larger offsets).  */
2957   bfd_vma addend;
2958
2959   /* The .got2 section.  */
2960   asection *sec;
2961
2962   /* PLT refcount or offset.  */
2963   union
2964     {
2965       bfd_signed_vma refcount;
2966       bfd_vma offset;
2967     } plt;
2968
2969   /* .glink stub offset.  */
2970   bfd_vma glink_offset;
2971 };
2972
2973 /* Of those relocs that might be copied as dynamic relocs, this function
2974    selects those that must be copied when linking a shared library,
2975    even when the symbol is local.  */
2976
2977 static int
2978 must_be_dyn_reloc (struct bfd_link_info *info,
2979                    enum elf_ppc_reloc_type r_type)
2980 {
2981   switch (r_type)
2982     {
2983     default:
2984       return 1;
2985
2986     case R_PPC_REL24:
2987     case R_PPC_REL14:
2988     case R_PPC_REL14_BRTAKEN:
2989     case R_PPC_REL14_BRNTAKEN:
2990     case R_PPC_REL32:
2991       return 0;
2992
2993     case R_PPC_TPREL32:
2994     case R_PPC_TPREL16:
2995     case R_PPC_TPREL16_LO:
2996     case R_PPC_TPREL16_HI:
2997     case R_PPC_TPREL16_HA:
2998       return !info->executable;
2999     }
3000 }
3001
3002 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
3003    copying dynamic variables from a shared lib into an app's dynbss
3004    section, and instead use a dynamic relocation to point into the
3005    shared lib.  */
3006 #define ELIMINATE_COPY_RELOCS 1
3007
3008 /* PPC ELF linker hash entry.  */
3009
3010 struct ppc_elf_link_hash_entry
3011 {
3012   struct elf_link_hash_entry elf;
3013
3014   /* If this symbol is used in the linker created sections, the processor
3015      specific backend uses this field to map the field into the offset
3016      from the beginning of the section.  */
3017   elf_linker_section_pointers_t *linker_section_pointer;
3018
3019   /* Track dynamic relocs copied for this symbol.  */
3020   struct elf_dyn_relocs *dyn_relocs;
3021
3022   /* Contexts in which symbol is used in the GOT (or TOC).
3023      TLS_GD .. TLS_TLS bits are or'd into the mask as the
3024      corresponding relocs are encountered during check_relocs.
3025      tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
3026      indicate the corresponding GOT entry type is not needed.  */
3027 #define TLS_GD           1      /* GD reloc. */
3028 #define TLS_LD           2      /* LD reloc. */
3029 #define TLS_TPREL        4      /* TPREL reloc, => IE. */
3030 #define TLS_DTPREL       8      /* DTPREL reloc, => LD. */
3031 #define TLS_TLS         16      /* Any TLS reloc.  */
3032 #define TLS_TPRELGD     32      /* TPREL reloc resulting from GD->IE. */
3033 #define PLT_IFUNC       64      /* STT_GNU_IFUNC.  */
3034   char tls_mask;
3035
3036   /* Nonzero if we have seen a small data relocation referring to this
3037      symbol.  */
3038   unsigned char has_sda_refs;
3039 };
3040
3041 #define ppc_elf_hash_entry(ent) ((struct ppc_elf_link_hash_entry *) (ent))
3042
3043 /* PPC ELF linker hash table.  */
3044
3045 struct ppc_elf_link_hash_table
3046 {
3047   struct elf_link_hash_table elf;
3048
3049   /* Short-cuts to get to dynamic linker sections.  */
3050   asection *got;
3051   asection *relgot;
3052   asection *glink;
3053   asection *plt;
3054   asection *relplt;
3055   asection *iplt;
3056   asection *reliplt;
3057   asection *dynbss;
3058   asection *relbss;
3059   asection *dynsbss;
3060   asection *relsbss;
3061   elf_linker_section_t sdata[2];
3062   asection *sbss;
3063   asection *glink_eh_frame;
3064
3065   /* The (unloaded but important) .rela.plt.unloaded on VxWorks.  */
3066   asection *srelplt2;
3067
3068   /* The .got.plt section (VxWorks only)*/
3069   asection *sgotplt;
3070
3071   /* Shortcut to __tls_get_addr.  */
3072   struct elf_link_hash_entry *tls_get_addr;
3073
3074   /* The bfd that forced an old-style PLT.  */
3075   bfd *old_bfd;
3076
3077   /* TLS local dynamic got entry handling.  */
3078   union {
3079     bfd_signed_vma refcount;
3080     bfd_vma offset;
3081   } tlsld_got;
3082
3083   /* Offset of branch table to PltResolve function in glink.  */
3084   bfd_vma glink_pltresolve;
3085
3086   /* Size of reserved GOT entries.  */
3087   unsigned int got_header_size;
3088   /* Non-zero if allocating the header left a gap.  */
3089   unsigned int got_gap;
3090
3091   /* The type of PLT we have chosen to use.  */
3092   enum ppc_elf_plt_type plt_type;
3093
3094   /* Set if we should emit symbols for stubs.  */
3095   unsigned int emit_stub_syms:1;
3096
3097   /* Set if __tls_get_addr optimization should not be done.  */
3098   unsigned int no_tls_get_addr_opt:1;
3099
3100   /* True if the target system is VxWorks.  */
3101   unsigned int is_vxworks:1;
3102
3103   /* The size of PLT entries.  */
3104   int plt_entry_size;
3105   /* The distance between adjacent PLT slots.  */
3106   int plt_slot_size;
3107   /* The size of the first PLT entry.  */
3108   int plt_initial_entry_size;
3109
3110   /* Small local sym cache.  */
3111   struct sym_cache sym_cache;
3112 };
3113
3114 /* Rename some of the generic section flags to better document how they
3115    are used for ppc32.  The flags are only valid for ppc32 elf objects.  */
3116
3117 /* Nonzero if this section has TLS related relocations.  */
3118 #define has_tls_reloc sec_flg0
3119
3120 /* Nonzero if this section has a call to __tls_get_addr.  */
3121 #define has_tls_get_addr_call sec_flg1
3122
3123 /* Get the PPC ELF linker hash table from a link_info structure.  */
3124
3125 #define ppc_elf_hash_table(p) \
3126   (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
3127   == PPC32_ELF_DATA ? ((struct ppc_elf_link_hash_table *) ((p)->hash)) : NULL)
3128
3129 /* Create an entry in a PPC ELF linker hash table.  */
3130
3131 static struct bfd_hash_entry *
3132 ppc_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
3133                            struct bfd_hash_table *table,
3134                            const char *string)
3135 {
3136   /* Allocate the structure if it has not already been allocated by a
3137      subclass.  */
3138   if (entry == NULL)
3139     {
3140       entry = bfd_hash_allocate (table,
3141                                  sizeof (struct ppc_elf_link_hash_entry));
3142       if (entry == NULL)
3143         return entry;
3144     }
3145
3146   /* Call the allocation method of the superclass.  */
3147   entry = _bfd_elf_link_hash_newfunc (entry, table, string);
3148   if (entry != NULL)
3149     {
3150       ppc_elf_hash_entry (entry)->linker_section_pointer = NULL;
3151       ppc_elf_hash_entry (entry)->dyn_relocs = NULL;
3152       ppc_elf_hash_entry (entry)->tls_mask = 0;
3153       ppc_elf_hash_entry (entry)->has_sda_refs = 0;
3154     }
3155
3156   return entry;
3157 }
3158
3159 /* Create a PPC ELF linker hash table.  */
3160
3161 static struct bfd_link_hash_table *
3162 ppc_elf_link_hash_table_create (bfd *abfd)
3163 {
3164   struct ppc_elf_link_hash_table *ret;
3165
3166   ret = bfd_zmalloc (sizeof (struct ppc_elf_link_hash_table));
3167   if (ret == NULL)
3168     return NULL;
3169
3170   if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
3171                                       ppc_elf_link_hash_newfunc,
3172                                       sizeof (struct ppc_elf_link_hash_entry),
3173                                       PPC32_ELF_DATA))
3174     {
3175       free (ret);
3176       return NULL;
3177     }
3178
3179   ret->elf.init_plt_refcount.refcount = 0;
3180   ret->elf.init_plt_refcount.glist = NULL;
3181   ret->elf.init_plt_offset.offset = 0;
3182   ret->elf.init_plt_offset.glist = NULL;
3183
3184   ret->sdata[0].name = ".sdata";
3185   ret->sdata[0].sym_name = "_SDA_BASE_";
3186   ret->sdata[0].bss_name = ".sbss";
3187
3188   ret->sdata[1].name = ".sdata2";
3189   ret->sdata[1].sym_name = "_SDA2_BASE_";
3190   ret->sdata[1].bss_name = ".sbss2";
3191
3192   ret->plt_entry_size = 12;
3193   ret->plt_slot_size = 8;
3194   ret->plt_initial_entry_size = 72;
3195
3196   return &ret->elf.root;
3197 }
3198
3199 /* Create .got and the related sections.  */
3200
3201 static bfd_boolean
3202 ppc_elf_create_got (bfd *abfd, struct bfd_link_info *info)
3203 {
3204   struct ppc_elf_link_hash_table *htab;
3205   asection *s;
3206   flagword flags;
3207
3208   if (!_bfd_elf_create_got_section (abfd, info))
3209     return FALSE;
3210
3211   htab = ppc_elf_hash_table (info);
3212   htab->got = s = bfd_get_section_by_name (abfd, ".got");
3213   if (s == NULL)
3214     abort ();
3215
3216   if (htab->is_vxworks)
3217     {
3218       htab->sgotplt = bfd_get_section_by_name (abfd, ".got.plt");
3219       if (!htab->sgotplt)
3220         abort ();
3221     }
3222   else
3223     {
3224       /* The powerpc .got has a blrl instruction in it.  Mark it
3225          executable.  */
3226       flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS
3227                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3228       if (!bfd_set_section_flags (abfd, s, flags))
3229         return FALSE;
3230     }
3231
3232   htab->relgot = bfd_get_section_by_name (abfd, ".rela.got");
3233   if (!htab->relgot)
3234     abort ();
3235
3236   return TRUE;
3237 }
3238
3239 static bfd_boolean
3240 ppc_elf_create_glink (bfd *abfd, struct bfd_link_info *info)
3241 {
3242   struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
3243   asection *s;
3244   flagword flags;
3245
3246   flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS
3247            | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3248   s = bfd_make_section_anyway_with_flags (abfd, ".glink", flags);
3249   htab->glink = s;
3250   if (s == NULL
3251       || !bfd_set_section_alignment (abfd, s, 4))
3252     return FALSE;
3253
3254   if (!info->no_ld_generated_unwind_info)
3255     {
3256       flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
3257                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3258       s = bfd_make_section_anyway_with_flags (abfd, ".eh_frame", flags);
3259       htab->glink_eh_frame = s;
3260       if (s == NULL
3261           || !bfd_set_section_alignment (abfd, s, 2))
3262         return FALSE;
3263     }
3264
3265   flags = SEC_ALLOC | SEC_LINKER_CREATED;
3266   s = bfd_make_section_anyway_with_flags (abfd, ".iplt", flags);
3267   htab->iplt = s;
3268   if (s == NULL
3269       || !bfd_set_section_alignment (abfd, s, 4))
3270     return FALSE;
3271
3272   flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
3273            | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3274   s = bfd_make_section_anyway_with_flags (abfd, ".rela.iplt", flags);
3275   htab->reliplt = s;
3276   if (s == NULL
3277       || ! bfd_set_section_alignment (abfd, s, 2))
3278     return FALSE;
3279   return TRUE;
3280 }
3281
3282 /* We have to create .dynsbss and .rela.sbss here so that they get mapped
3283    to output sections (just like _bfd_elf_create_dynamic_sections has
3284    to create .dynbss and .rela.bss).  */
3285
3286 static bfd_boolean
3287 ppc_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
3288 {
3289   struct ppc_elf_link_hash_table *htab;
3290   asection *s;
3291   flagword flags;
3292
3293   htab = ppc_elf_hash_table (info);
3294
3295   if (htab->got == NULL
3296       && !ppc_elf_create_got (abfd, info))
3297     return FALSE;
3298
3299   if (!_bfd_elf_create_dynamic_sections (abfd, info))
3300     return FALSE;
3301
3302   if (htab->glink == NULL
3303       && !ppc_elf_create_glink (abfd, info))
3304     return FALSE;
3305
3306   htab->dynbss = bfd_get_section_by_name (abfd, ".dynbss");
3307   s = bfd_make_section_anyway_with_flags (abfd, ".dynsbss",
3308                                           SEC_ALLOC | SEC_LINKER_CREATED);
3309   htab->dynsbss = s;
3310   if (s == NULL)
3311     return FALSE;
3312
3313   if (! info->shared)
3314     {
3315       htab->relbss = bfd_get_section_by_name (abfd, ".rela.bss");
3316       flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
3317                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3318       s = bfd_make_section_anyway_with_flags (abfd, ".rela.sbss", flags);
3319       htab->relsbss = s;
3320       if (s == NULL
3321           || ! bfd_set_section_alignment (abfd, s, 2))
3322         return FALSE;
3323     }
3324
3325   if (htab->is_vxworks
3326       && !elf_vxworks_create_dynamic_sections (abfd, info, &htab->srelplt2))
3327     return FALSE;
3328
3329   htab->relplt = bfd_get_section_by_name (abfd, ".rela.plt");
3330   htab->plt = s = bfd_get_section_by_name (abfd, ".plt");
3331   if (s == NULL)
3332     abort ();
3333
3334   flags = SEC_ALLOC | SEC_CODE | SEC_LINKER_CREATED;
3335   if (htab->plt_type == PLT_VXWORKS)
3336     /* The VxWorks PLT is a loaded section with contents.  */
3337     flags |= SEC_HAS_CONTENTS | SEC_LOAD | SEC_READONLY;
3338   return bfd_set_section_flags (abfd, s, flags);
3339 }
3340
3341 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
3342
3343 static void
3344 ppc_elf_copy_indirect_symbol (struct bfd_link_info *info,
3345                               struct elf_link_hash_entry *dir,
3346                               struct elf_link_hash_entry *ind)
3347 {
3348   struct ppc_elf_link_hash_entry *edir, *eind;
3349
3350   edir = (struct ppc_elf_link_hash_entry *) dir;
3351   eind = (struct ppc_elf_link_hash_entry *) ind;
3352
3353   edir->tls_mask |= eind->tls_mask;
3354   edir->has_sda_refs |= eind->has_sda_refs;
3355
3356   /* If called to transfer flags for a weakdef during processing
3357      of elf_adjust_dynamic_symbol, don't copy non_got_ref.
3358      We clear it ourselves for ELIMINATE_COPY_RELOCS.  */
3359   if (!(ELIMINATE_COPY_RELOCS
3360         && eind->elf.root.type != bfd_link_hash_indirect
3361         && edir->elf.dynamic_adjusted))
3362     edir->elf.non_got_ref |= eind->elf.non_got_ref;
3363
3364   edir->elf.ref_dynamic |= eind->elf.ref_dynamic;
3365   edir->elf.ref_regular |= eind->elf.ref_regular;
3366   edir->elf.ref_regular_nonweak |= eind->elf.ref_regular_nonweak;
3367   edir->elf.needs_plt |= eind->elf.needs_plt;
3368   edir->elf.pointer_equality_needed |= eind->elf.pointer_equality_needed;
3369
3370   if (eind->dyn_relocs != NULL)
3371     {
3372       if (edir->dyn_relocs != NULL)
3373         {
3374           struct elf_dyn_relocs **pp;
3375           struct elf_dyn_relocs *p;
3376
3377           /* Add reloc counts against the indirect sym to the direct sym
3378              list.  Merge any entries against the same section.  */
3379           for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
3380             {
3381               struct elf_dyn_relocs *q;
3382
3383               for (q = edir->dyn_relocs; q != NULL; q = q->next)
3384                 if (q->sec == p->sec)
3385                   {
3386                     q->pc_count += p->pc_count;
3387                     q->count += p->count;
3388                     *pp = p->next;
3389                     break;
3390                   }
3391               if (q == NULL)
3392                 pp = &p->next;
3393             }
3394           *pp = edir->dyn_relocs;
3395         }
3396
3397       edir->dyn_relocs = eind->dyn_relocs;
3398       eind->dyn_relocs = NULL;
3399     }
3400
3401   /* If we were called to copy over info for a weak sym, that's all.
3402      You might think dyn_relocs need not be copied over;  After all,
3403      both syms will be dynamic or both non-dynamic so we're just
3404      moving reloc accounting around.  However, ELIMINATE_COPY_RELOCS 
3405      code in ppc_elf_adjust_dynamic_symbol needs to check for
3406      dyn_relocs in read-only sections, and it does so on what is the
3407      DIR sym here.  */
3408   if (eind->elf.root.type != bfd_link_hash_indirect)
3409     return;
3410
3411   /* Copy over the GOT refcount entries that we may have already seen to
3412      the symbol which just became indirect.  */
3413   edir->elf.got.refcount += eind->elf.got.refcount;
3414   eind->elf.got.refcount = 0;
3415
3416   /* And plt entries.  */
3417   if (eind->elf.plt.plist != NULL)
3418     {
3419       if (edir->elf.plt.plist != NULL)
3420         {
3421           struct plt_entry **entp;
3422           struct plt_entry *ent;
3423
3424           for (entp = &eind->elf.plt.plist; (ent = *entp) != NULL; )
3425             {
3426               struct plt_entry *dent;
3427
3428               for (dent = edir->elf.plt.plist; dent != NULL; dent = dent->next)
3429                 if (dent->sec == ent->sec && dent->addend == ent->addend)
3430                   {
3431                     dent->plt.refcount += ent->plt.refcount;
3432                     *entp = ent->next;
3433                     break;
3434                   }
3435               if (dent == NULL)
3436                 entp = &ent->next;
3437             }
3438           *entp = edir->elf.plt.plist;
3439         }
3440
3441       edir->elf.plt.plist = eind->elf.plt.plist;
3442       eind->elf.plt.plist = NULL;
3443     }
3444
3445   if (eind->elf.dynindx != -1)
3446     {
3447       if (edir->elf.dynindx != -1)
3448         _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
3449                                 edir->elf.dynstr_index);
3450       edir->elf.dynindx = eind->elf.dynindx;
3451       edir->elf.dynstr_index = eind->elf.dynstr_index;
3452       eind->elf.dynindx = -1;
3453       eind->elf.dynstr_index = 0;
3454     }
3455 }
3456
3457 /* Hook called by the linker routine which adds symbols from an object
3458    file.  We use it to put .comm items in .sbss, and not .bss.  */
3459
3460 static bfd_boolean
3461 ppc_elf_add_symbol_hook (bfd *abfd,
3462                          struct bfd_link_info *info,
3463                          Elf_Internal_Sym *sym,
3464                          const char **namep ATTRIBUTE_UNUSED,
3465                          flagword *flagsp ATTRIBUTE_UNUSED,
3466                          asection **secp,
3467                          bfd_vma *valp)
3468 {
3469   if (sym->st_shndx == SHN_COMMON
3470       && !info->relocatable
3471       && is_ppc_elf (info->output_bfd)
3472       && sym->st_size <= elf_gp_size (abfd))
3473     {
3474       /* Common symbols less than or equal to -G nn bytes are automatically
3475          put into .sbss.  */
3476       struct ppc_elf_link_hash_table *htab;
3477
3478       htab = ppc_elf_hash_table (info);
3479       if (htab->sbss == NULL)
3480         {
3481           flagword flags = SEC_IS_COMMON | SEC_LINKER_CREATED;
3482
3483           if (!htab->elf.dynobj)
3484             htab->elf.dynobj = abfd;
3485
3486           htab->sbss = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
3487                                                            ".sbss",
3488                                                            flags);
3489           if (htab->sbss == NULL)
3490             return FALSE;
3491         }
3492
3493       *secp = htab->sbss;
3494       *valp = sym->st_size;
3495     }
3496
3497   if ((abfd->flags & DYNAMIC) == 0
3498       && (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC
3499           || ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE))
3500     elf_tdata (info->output_bfd)->has_gnu_symbols = TRUE;
3501
3502   return TRUE;
3503 }
3504 \f
3505 static bfd_boolean
3506 create_sdata_sym (struct bfd_link_info *info, elf_linker_section_t *lsect)
3507 {
3508   struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
3509
3510   lsect->sym = elf_link_hash_lookup (&htab->elf, lsect->sym_name,
3511                                      TRUE, FALSE, TRUE);
3512   if (lsect->sym == NULL)
3513     return FALSE;
3514   if (lsect->sym->root.type == bfd_link_hash_new)
3515     lsect->sym->non_elf = 0;
3516   lsect->sym->ref_regular = 1;
3517   _bfd_elf_link_hash_hide_symbol (info, lsect->sym, TRUE);
3518   return TRUE;
3519 }
3520
3521 /* Create a special linker section.  */
3522
3523 static bfd_boolean
3524 ppc_elf_create_linker_section (bfd *abfd,
3525                                struct bfd_link_info *info,
3526                                flagword flags,
3527                                elf_linker_section_t *lsect)
3528 {
3529   struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
3530   asection *s;
3531
3532   flags |= (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3533             | SEC_LINKER_CREATED);
3534
3535   /* Record the first bfd that needs the special sections.  */
3536   if (!htab->elf.dynobj)
3537     htab->elf.dynobj = abfd;
3538
3539   s = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
3540                                           lsect->name,
3541                                           flags);
3542   if (s == NULL
3543       || !bfd_set_section_alignment (htab->elf.dynobj, s, 2))
3544     return FALSE;
3545   lsect->section = s;
3546
3547   return create_sdata_sym (info, lsect);
3548 }
3549
3550 /* Find a linker generated pointer with a given addend and type.  */
3551
3552 static elf_linker_section_pointers_t *
3553 elf_find_pointer_linker_section
3554   (elf_linker_section_pointers_t *linker_pointers,
3555    bfd_vma addend,
3556    elf_linker_section_t *lsect)
3557 {
3558   for ( ; linker_pointers != NULL; linker_pointers = linker_pointers->next)
3559     if (lsect == linker_pointers->lsect && addend == linker_pointers->addend)
3560       return linker_pointers;
3561
3562   return NULL;
3563 }
3564
3565 /* Allocate a pointer to live in a linker created section.  */
3566
3567 static bfd_boolean
3568 elf_create_pointer_linker_section (bfd *abfd,
3569                                    elf_linker_section_t *lsect,
3570                                    struct elf_link_hash_entry *h,
3571                                    const Elf_Internal_Rela *rel)
3572 {
3573   elf_linker_section_pointers_t **ptr_linker_section_ptr = NULL;
3574   elf_linker_section_pointers_t *linker_section_ptr;
3575   unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
3576   bfd_size_type amt;
3577
3578   BFD_ASSERT (lsect != NULL);
3579
3580   /* Is this a global symbol?  */
3581   if (h != NULL)
3582     {
3583       struct ppc_elf_link_hash_entry *eh;
3584
3585       /* Has this symbol already been allocated?  If so, our work is done.  */
3586       eh = (struct ppc_elf_link_hash_entry *) h;
3587       if (elf_find_pointer_linker_section (eh->linker_section_pointer,
3588                                            rel->r_addend,
3589                                            lsect))
3590         return TRUE;
3591
3592       ptr_linker_section_ptr = &eh->linker_section_pointer;
3593     }
3594   else
3595     {
3596       BFD_ASSERT (is_ppc_elf (abfd));
3597
3598       /* Allocation of a pointer to a local symbol.  */
3599       elf_linker_section_pointers_t **ptr = elf_local_ptr_offsets (abfd);
3600
3601       /* Allocate a table to hold the local symbols if first time.  */
3602       if (!ptr)
3603         {
3604           unsigned int num_symbols = elf_symtab_hdr (abfd).sh_info;
3605
3606           amt = num_symbols;
3607           amt *= sizeof (elf_linker_section_pointers_t *);
3608           ptr = bfd_zalloc (abfd, amt);
3609
3610           if (!ptr)
3611             return FALSE;
3612
3613           elf_local_ptr_offsets (abfd) = ptr;
3614         }
3615
3616       /* Has this symbol already been allocated?  If so, our work is done.  */
3617       if (elf_find_pointer_linker_section (ptr[r_symndx],
3618                                            rel->r_addend,
3619                                            lsect))
3620         return TRUE;
3621
3622       ptr_linker_section_ptr = &ptr[r_symndx];
3623     }
3624
3625   /* Allocate space for a pointer in the linker section, and allocate
3626      a new pointer record from internal memory.  */
3627   BFD_ASSERT (ptr_linker_section_ptr != NULL);
3628   amt = sizeof (elf_linker_section_pointers_t);
3629   linker_section_ptr = bfd_alloc (abfd, amt);
3630
3631   if (!linker_section_ptr)
3632     return FALSE;
3633
3634   linker_section_ptr->next = *ptr_linker_section_ptr;
3635   linker_section_ptr->addend = rel->r_addend;
3636   linker_section_ptr->lsect = lsect;
3637   *ptr_linker_section_ptr = linker_section_ptr;
3638
3639   linker_section_ptr->offset = lsect->section->size;
3640   lsect->section->size += 4;
3641
3642 #ifdef DEBUG
3643   fprintf (stderr,
3644            "Create pointer in linker section %s, offset = %ld, section size = %ld\n",
3645            lsect->name, (long) linker_section_ptr->offset,
3646            (long) lsect->section->size);
3647 #endif
3648
3649   return TRUE;
3650 }
3651
3652 static struct plt_entry **
3653 update_local_sym_info (bfd *abfd,
3654                        Elf_Internal_Shdr *symtab_hdr,
3655                        unsigned long r_symndx,
3656                        int tls_type)
3657 {
3658   bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
3659   struct plt_entry **local_plt;
3660   char *local_got_tls_masks;
3661
3662   if (local_got_refcounts == NULL)
3663     {
3664       bfd_size_type size = symtab_hdr->sh_info;
3665
3666       size *= (sizeof (*local_got_refcounts)
3667                + sizeof (*local_plt)
3668                + sizeof (*local_got_tls_masks));
3669       local_got_refcounts = bfd_zalloc (abfd, size);
3670       if (local_got_refcounts == NULL)
3671         return NULL;
3672       elf_local_got_refcounts (abfd) = local_got_refcounts;
3673     }
3674
3675   local_plt = (struct plt_entry **) (local_got_refcounts + symtab_hdr->sh_info);
3676   local_got_tls_masks = (char *) (local_plt + symtab_hdr->sh_info);
3677   local_got_tls_masks[r_symndx] |= tls_type;
3678   if (tls_type != PLT_IFUNC)
3679     local_got_refcounts[r_symndx] += 1;
3680   return local_plt + r_symndx;
3681 }
3682
3683 static bfd_boolean
3684 update_plt_info (bfd *abfd, struct plt_entry **plist,
3685                  asection *sec, bfd_vma addend)
3686 {
3687   struct plt_entry *ent;
3688
3689   if (addend < 32768)
3690     sec = NULL;
3691   for (ent = *plist; ent != NULL; ent = ent->next)
3692     if (ent->sec == sec && ent->addend == addend)
3693       break;
3694   if (ent == NULL)
3695     {
3696       bfd_size_type amt = sizeof (*ent);
3697       ent = bfd_alloc (abfd, amt);
3698       if (ent == NULL)
3699         return FALSE;
3700       ent->next = *plist;
3701       ent->sec = sec;
3702       ent->addend = addend;
3703       ent->plt.refcount = 0;
3704       *plist = ent;
3705     }
3706   ent->plt.refcount += 1;
3707   return TRUE;
3708 }
3709
3710 static struct plt_entry *
3711 find_plt_ent (struct plt_entry **plist, asection *sec, bfd_vma addend)
3712 {
3713   struct plt_entry *ent;
3714
3715   if (addend < 32768)
3716     sec = NULL;
3717   for (ent = *plist; ent != NULL; ent = ent->next)
3718     if (ent->sec == sec && ent->addend == addend)
3719       break;
3720   return ent;
3721 }
3722
3723 static bfd_boolean
3724 is_branch_reloc (enum elf_ppc_reloc_type r_type)
3725 {
3726   return (r_type == R_PPC_PLTREL24
3727           || r_type == R_PPC_LOCAL24PC
3728           || r_type == R_PPC_REL24
3729           || r_type == R_PPC_REL14
3730           || r_type == R_PPC_REL14_BRTAKEN
3731           || r_type == R_PPC_REL14_BRNTAKEN
3732           || r_type == R_PPC_ADDR24
3733           || r_type == R_PPC_ADDR14
3734           || r_type == R_PPC_ADDR14_BRTAKEN
3735           || r_type == R_PPC_ADDR14_BRNTAKEN);
3736 }
3737
3738 static void
3739 bad_shared_reloc (bfd *abfd, enum elf_ppc_reloc_type r_type)
3740 {
3741   (*_bfd_error_handler)
3742     (_("%B: relocation %s cannot be used when making a shared object"),
3743      abfd,
3744      ppc_elf_howto_table[r_type]->name);
3745   bfd_set_error (bfd_error_bad_value);
3746 }
3747
3748 /* Look through the relocs for a section during the first phase, and
3749    allocate space in the global offset table or procedure linkage
3750    table.  */
3751
3752 static bfd_boolean
3753 ppc_elf_check_relocs (bfd *abfd,
3754                       struct bfd_link_info *info,
3755                       asection *sec,
3756                       const Elf_Internal_Rela *relocs)
3757 {
3758   struct ppc_elf_link_hash_table *htab;
3759   Elf_Internal_Shdr *symtab_hdr;
3760   struct elf_link_hash_entry **sym_hashes;
3761   const Elf_Internal_Rela *rel;
3762   const Elf_Internal_Rela *rel_end;
3763   asection *got2, *sreloc;
3764   struct elf_link_hash_entry *tga;
3765
3766   if (info->relocatable)
3767     return TRUE;
3768
3769   /* Don't do anything special with non-loaded, non-alloced sections.
3770      In particular, any relocs in such sections should not affect GOT
3771      and PLT reference counting (ie. we don't allow them to create GOT
3772      or PLT entries), there's no possibility or desire to optimize TLS
3773      relocs, and there's not much point in propagating relocs to shared
3774      libs that the dynamic linker won't relocate.  */
3775   if ((sec->flags & SEC_ALLOC) == 0)
3776     return TRUE;
3777
3778 #ifdef DEBUG
3779   _bfd_error_handler ("ppc_elf_check_relocs called for section %A in %B",
3780                       sec, abfd);
3781 #endif
3782
3783   BFD_ASSERT (is_ppc_elf (abfd));
3784
3785   /* Initialize howto table if not already done.  */
3786   if (!ppc_elf_howto_table[R_PPC_ADDR32])
3787     ppc_elf_howto_init ();
3788
3789   htab = ppc_elf_hash_table (info);
3790   if (htab->glink == NULL)
3791     {
3792       if (htab->elf.dynobj == NULL)
3793         htab->elf.dynobj = abfd;
3794       if (!ppc_elf_create_glink (htab->elf.dynobj, info))
3795         return FALSE;
3796     }
3797   tga = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
3798                               FALSE, FALSE, TRUE);
3799   symtab_hdr = &elf_symtab_hdr (abfd);
3800   sym_hashes = elf_sym_hashes (abfd);
3801   got2 = bfd_get_section_by_name (abfd, ".got2");
3802   sreloc = NULL;
3803
3804   rel_end = relocs + sec->reloc_count;
3805   for (rel = relocs; rel < rel_end; rel++)
3806     {
3807       unsigned long r_symndx;
3808       enum elf_ppc_reloc_type r_type;
3809       struct elf_link_hash_entry *h;
3810       int tls_type;
3811
3812       r_symndx = ELF32_R_SYM (rel->r_info);
3813       if (r_symndx < symtab_hdr->sh_info)
3814         h = NULL;
3815       else
3816         {
3817           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3818           while (h->root.type == bfd_link_hash_indirect
3819                  || h->root.type == bfd_link_hash_warning)
3820             h = (struct elf_link_hash_entry *) h->root.u.i.link;
3821         }
3822
3823       /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
3824          This shows up in particular in an R_PPC_ADDR32 in the eabi
3825          startup code.  */
3826       if (h != NULL
3827           && htab->got == NULL
3828           && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3829         {
3830           if (htab->elf.dynobj == NULL)
3831             htab->elf.dynobj = abfd;
3832           if (!ppc_elf_create_got (htab->elf.dynobj, info))
3833             return FALSE;
3834           BFD_ASSERT (h == htab->elf.hgot);
3835         }
3836
3837       tls_type = 0;
3838       r_type = ELF32_R_TYPE (rel->r_info);
3839       if (h == NULL && !htab->is_vxworks)
3840         {
3841           Elf_Internal_Sym *isym = bfd_sym_from_r_symndx (&htab->sym_cache,
3842                                                           abfd, r_symndx);
3843           if (isym == NULL)
3844             return FALSE;
3845
3846           if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC
3847               && (!info->shared
3848                   || is_branch_reloc (r_type)))
3849             {
3850               struct plt_entry **ifunc;
3851               bfd_vma addend;
3852
3853               ifunc = update_local_sym_info (abfd, symtab_hdr, r_symndx,
3854                                              PLT_IFUNC);
3855               if (ifunc == NULL)
3856                 return FALSE;
3857
3858               /* STT_GNU_IFUNC symbols must have a PLT entry;
3859                  In a non-pie executable even when there are
3860                  no plt calls.  */
3861               addend = 0;
3862               if (r_type == R_PPC_PLTREL24)
3863                 {
3864                   ppc_elf_tdata (abfd)->makes_plt_call = 1;
3865                   if (info->shared)
3866                     addend = rel->r_addend;
3867                 }
3868               if (!update_plt_info (abfd, ifunc, got2, addend))
3869                 return FALSE;
3870             }
3871         }
3872
3873       if (!htab->is_vxworks
3874           && is_branch_reloc (r_type)
3875           && h != NULL
3876           && h == tga)
3877         {
3878           if (rel != relocs
3879               && (ELF32_R_TYPE (rel[-1].r_info) == R_PPC_TLSGD
3880                   || ELF32_R_TYPE (rel[-1].r_info) == R_PPC_TLSLD))
3881             /* We have a new-style __tls_get_addr call with a marker
3882                reloc.  */
3883             ;
3884           else
3885             /* Mark this section as having an old-style call.  */
3886             sec->has_tls_get_addr_call = 1;
3887         }
3888
3889       switch (r_type)
3890         {
3891         case R_PPC_TLSGD:
3892         case R_PPC_TLSLD:
3893           /* These special tls relocs tie a call to __tls_get_addr with
3894              its parameter symbol.  */
3895           break;
3896
3897         case R_PPC_GOT_TLSLD16:
3898         case R_PPC_GOT_TLSLD16_LO:
3899         case R_PPC_GOT_TLSLD16_HI:
3900         case R_PPC_GOT_TLSLD16_HA:
3901           tls_type = TLS_TLS | TLS_LD;
3902           goto dogottls;
3903
3904         case R_PPC_GOT_TLSGD16:
3905         case R_PPC_GOT_TLSGD16_LO:
3906         case R_PPC_GOT_TLSGD16_HI:
3907         case R_PPC_GOT_TLSGD16_HA:
3908           tls_type = TLS_TLS | TLS_GD;
3909           goto dogottls;
3910
3911         case R_PPC_GOT_TPREL16:
3912         case R_PPC_GOT_TPREL16_LO:
3913         case R_PPC_GOT_TPREL16_HI:
3914         case R_PPC_GOT_TPREL16_HA:
3915           if (!info->executable)
3916             info->flags |= DF_STATIC_TLS;
3917           tls_type = TLS_TLS | TLS_TPREL;
3918           goto dogottls;
3919
3920         case R_PPC_GOT_DTPREL16:
3921         case R_PPC_GOT_DTPREL16_LO:
3922         case R_PPC_GOT_DTPREL16_HI:
3923         case R_PPC_GOT_DTPREL16_HA:
3924           tls_type = TLS_TLS | TLS_DTPREL;
3925         dogottls:
3926           sec->has_tls_reloc = 1;
3927           /* Fall thru */
3928
3929           /* GOT16 relocations */
3930         case R_PPC_GOT16:
3931         case R_PPC_GOT16_LO:
3932         case R_PPC_GOT16_HI:
3933         case R_PPC_GOT16_HA:
3934           /* This symbol requires a global offset table entry.  */
3935           if (htab->got == NULL)
3936             {
3937               if (htab->elf.dynobj == NULL)
3938                 htab->elf.dynobj = abfd;
3939               if (!ppc_elf_create_got (htab->elf.dynobj, info))
3940                 return FALSE;
3941             }
3942           if (h != NULL)
3943             {
3944               h->got.refcount += 1;
3945               ppc_elf_hash_entry (h)->tls_mask |= tls_type;
3946             }
3947           else
3948             /* This is a global offset table entry for a local symbol.  */
3949             if (!update_local_sym_info (abfd, symtab_hdr, r_symndx, tls_type))
3950               return FALSE;
3951
3952           /* We may also need a plt entry if the symbol turns out to be
3953              an ifunc.  */
3954           if (h != NULL && !info->shared)
3955             {
3956               if (!update_plt_info (abfd, &h->plt.plist, NULL, 0))
3957                 return FALSE;
3958             }
3959           break;
3960
3961           /* Indirect .sdata relocation.  */
3962         case R_PPC_EMB_SDAI16:
3963           if (info->shared)
3964             {
3965               bad_shared_reloc (abfd, r_type);
3966               return FALSE;
3967             }
3968           if (htab->sdata[0].section == NULL
3969               && !ppc_elf_create_linker_section (abfd, info, 0,
3970                                                  &htab->sdata[0]))
3971             return FALSE;
3972           if (!elf_create_pointer_linker_section (abfd, &htab->sdata[0],
3973                                                   h, rel))
3974             return FALSE;
3975           if (h != NULL)
3976             {
3977               ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3978               h->non_got_ref = TRUE;
3979             }
3980           break;
3981
3982           /* Indirect .sdata2 relocation.  */
3983         case R_PPC_EMB_SDA2I16:
3984           if (info->shared)
3985             {
3986               bad_shared_reloc (abfd, r_type);
3987               return FALSE;
3988             }
3989           if (htab->sdata[1].section == NULL
3990               && !ppc_elf_create_linker_section (abfd, info, SEC_READONLY,
3991                                                  &htab->sdata[1]))
3992             return FALSE;
3993           if (!elf_create_pointer_linker_section (abfd, &htab->sdata[1],
3994                                                   h, rel))
3995             return FALSE;
3996           if (h != NULL)
3997             {
3998               ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3999               h->non_got_ref = TRUE;
4000             }
4001           break;
4002
4003         case R_PPC_VLE_SDAREL_LO16A:
4004         case R_PPC_VLE_SDAREL_LO16D:
4005         case R_PPC_VLE_SDAREL_HI16A:
4006         case R_PPC_VLE_SDAREL_HI16D:
4007         case R_PPC_VLE_SDAREL_HA16A:
4008         case R_PPC_VLE_SDAREL_HA16D:
4009         case R_PPC_SDAREL16:
4010           if (htab->sdata[0].sym == NULL
4011               && !create_sdata_sym (info, &htab->sdata[0]))
4012             return FALSE;
4013
4014           if (htab->sdata[1].sym == NULL
4015               && !create_sdata_sym (info, &htab->sdata[1]))
4016             return FALSE;
4017
4018           if (h != NULL)
4019             {
4020               ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
4021               h->non_got_ref = TRUE;
4022             }
4023           break;
4024
4025         case R_PPC_VLE_REL8:
4026         case R_PPC_VLE_REL15:
4027         case R_PPC_VLE_REL24:
4028         case R_PPC_VLE_LO16A:
4029         case R_PPC_VLE_LO16D:
4030         case R_PPC_VLE_HI16A:
4031         case R_PPC_VLE_HI16D:
4032         case R_PPC_VLE_HA16A:
4033         case R_PPC_VLE_HA16D:
4034           break;
4035
4036         case R_PPC_EMB_SDA2REL:
4037           if (info->shared)
4038             {
4039               bad_shared_reloc (abfd, r_type);
4040               return FALSE;
4041             }
4042           if (htab->sdata[1].sym == NULL
4043               && !create_sdata_sym (info, &htab->sdata[1]))
4044             return FALSE;
4045           if (h != NULL)
4046             {
4047               ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
4048               h->non_got_ref = TRUE;
4049             }
4050           break;
4051
4052         case R_PPC_VLE_SDA21_LO:
4053         case R_PPC_VLE_SDA21:
4054         case R_PPC_EMB_SDA21:
4055         case R_PPC_EMB_RELSDA:
4056           if (info->shared)
4057             {
4058               bad_shared_reloc (abfd, r_type);
4059               return FALSE;
4060             }
4061           if (htab->sdata[0].sym == NULL
4062               && !create_sdata_sym (info, &htab->sdata[0]))
4063             return FALSE;
4064           if (htab->sdata[1].sym == NULL
4065               && !create_sdata_sym (info, &htab->sdata[1]))
4066             return FALSE;
4067           if (h != NULL)
4068             {
4069               ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
4070               h->non_got_ref = TRUE;
4071             }
4072           break;
4073
4074         case R_PPC_EMB_NADDR32:
4075         case R_PPC_EMB_NADDR16:
4076         case R_PPC_EMB_NADDR16_LO:
4077         case R_PPC_EMB_NADDR16_HI:
4078         case R_PPC_EMB_NADDR16_HA:
4079           if (info->shared)
4080             {
4081               bad_shared_reloc (abfd, r_type);
4082               return FALSE;
4083             }
4084           if (h != NULL)
4085             h->non_got_ref = TRUE;
4086           break;
4087
4088         case R_PPC_PLTREL24:
4089           if (h == NULL)
4090             break;
4091           /* Fall through */
4092         case R_PPC_PLT32:
4093         case R_PPC_PLTREL32:
4094         case R_PPC_PLT16_LO:
4095         case R_PPC_PLT16_HI:
4096         case R_PPC_PLT16_HA:
4097 #ifdef DEBUG
4098           fprintf (stderr, "Reloc requires a PLT entry\n");
4099 #endif
4100           /* This symbol requires a procedure linkage table entry.  We
4101              actually build the entry in finish_dynamic_symbol,
4102              because this might be a case of linking PIC code without
4103              linking in any dynamic objects, in which case we don't
4104              need to generate a procedure linkage table after all.  */
4105
4106           if (h == NULL)
4107             {
4108               /* It does not make sense to have a procedure linkage
4109                  table entry for a local symbol.  */
4110               info->callbacks->einfo (_("%P: %H: %s reloc against local symbol\n"),
4111                                       abfd, sec, rel->r_offset,
4112                                       ppc_elf_howto_table[r_type]->name);
4113               bfd_set_error (bfd_error_bad_value);
4114               return FALSE;
4115             }
4116           else
4117             {
4118               bfd_vma addend = 0;
4119
4120               if (r_type == R_PPC_PLTREL24)
4121                 {
4122                   ppc_elf_tdata (abfd)->makes_plt_call = 1;
4123                   if (info->shared)
4124                     addend = rel->r_addend;
4125                 }
4126               h->needs_plt = 1;
4127               if (!update_plt_info (abfd, &h->plt.plist, got2, addend))
4128                 return FALSE;
4129             }
4130           break;
4131
4132           /* The following relocations don't need to propagate the
4133              relocation if linking a shared object since they are
4134              section relative.  */
4135         case R_PPC_SECTOFF:
4136         case R_PPC_SECTOFF_LO:
4137         case R_PPC_SECTOFF_HI:
4138         case R_PPC_SECTOFF_HA:
4139         case R_PPC_DTPREL16:
4140         case R_PPC_DTPREL16_LO:
4141         case R_PPC_DTPREL16_HI:
4142         case R_PPC_DTPREL16_HA:
4143         case R_PPC_TOC16:
4144           break;
4145
4146         case R_PPC_REL16:
4147         case R_PPC_REL16_LO:
4148         case R_PPC_REL16_HI:
4149         case R_PPC_REL16_HA:
4150           ppc_elf_tdata (abfd)->has_rel16 = 1;
4151           break;
4152
4153           /* These are just markers.  */
4154         case R_PPC_TLS:
4155         case R_PPC_EMB_MRKREF:
4156         case R_PPC_NONE:
4157         case R_PPC_max:
4158         case R_PPC_RELAX:
4159         case R_PPC_RELAX_PLT:
4160         case R_PPC_RELAX_PLTREL24:
4161           break;
4162
4163           /* These should only appear in dynamic objects.  */
4164         case R_PPC_COPY:
4165         case R_PPC_GLOB_DAT:
4166         case R_PPC_JMP_SLOT:
4167         case R_PPC_RELATIVE:
4168         case R_PPC_IRELATIVE:
4169           break;
4170
4171           /* These aren't handled yet.  We'll report an error later.  */
4172         case R_PPC_ADDR30:
4173         case R_PPC_EMB_RELSEC16:
4174         case R_PPC_EMB_RELST_LO:
4175         case R_PPC_EMB_RELST_HI:
4176         case R_PPC_EMB_RELST_HA:
4177         case R_PPC_EMB_BIT_FLD:
4178           break;
4179
4180           /* This refers only to functions defined in the shared library.  */
4181         case R_PPC_LOCAL24PC:
4182           if (h != NULL && h == htab->elf.hgot && htab->plt_type == PLT_UNSET)
4183             {
4184               htab->plt_type = PLT_OLD;
4185               htab->old_bfd = abfd;
4186             }
4187           break;
4188
4189           /* This relocation describes the C++ object vtable hierarchy.
4190              Reconstruct it for later use during GC.  */
4191         case R_PPC_GNU_VTINHERIT:
4192           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
4193             return FALSE;
4194           break;
4195
4196           /* This relocation describes which C++ vtable entries are actually
4197              used.  Record for later use during GC.  */
4198         case R_PPC_GNU_VTENTRY:
4199           BFD_ASSERT (h != NULL);
4200           if (h != NULL
4201               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
4202             return FALSE;
4203           break;
4204
4205           /* We shouldn't really be seeing these.  */
4206         case R_PPC_TPREL32:
4207         case R_PPC_TPREL16:
4208         case R_PPC_TPREL16_LO:
4209         case R_PPC_TPREL16_HI:
4210         case R_PPC_TPREL16_HA:
4211           if (!info->executable)
4212             info->flags |= DF_STATIC_TLS;
4213           goto dodyn;
4214
4215           /* Nor these.  */
4216         case R_PPC_DTPMOD32:
4217         case R_PPC_DTPREL32:
4218           goto dodyn;
4219
4220         case R_PPC_REL32:
4221           if (h == NULL
4222               && got2 != NULL
4223               && (sec->flags & SEC_CODE) != 0
4224               && info->shared
4225               && htab->plt_type == PLT_UNSET)
4226             {
4227               /* Old -fPIC gcc code has .long LCTOC1-LCFx just before
4228                  the start of a function, which assembles to a REL32
4229                  reference to .got2.  If we detect one of these, then
4230                  force the old PLT layout because the linker cannot
4231                  reliably deduce the GOT pointer value needed for
4232                  PLT call stubs.  */
4233               asection *s;
4234               Elf_Internal_Sym *isym;
4235
4236               isym = bfd_sym_from_r_symndx (&htab->sym_cache,
4237                                             abfd, r_symndx);
4238               if (isym == NULL)
4239                 return FALSE;
4240
4241               s = bfd_section_from_elf_index (abfd, isym->st_shndx);
4242               if (s == got2)
4243                 {
4244                   htab->plt_type = PLT_OLD;
4245                   htab->old_bfd = abfd;
4246                 }
4247             }
4248           if (h == NULL || h == htab->elf.hgot)
4249             break;
4250           /* fall through */
4251
4252         case R_PPC_ADDR32:
4253         case R_PPC_ADDR16:
4254         case R_PPC_ADDR16_LO:
4255         case R_PPC_ADDR16_HI:
4256         case R_PPC_ADDR16_HA:
4257         case R_PPC_UADDR32:
4258         case R_PPC_UADDR16:
4259           if (h != NULL && !info->shared)
4260             {
4261               /* We may need a plt entry if the symbol turns out to be
4262                  a function defined in a dynamic object.  */
4263               if (!update_plt_info (abfd, &h->plt.plist, NULL, 0))
4264                 return FALSE;
4265
4266               /* We may need a copy reloc too.  */
4267               h->non_got_ref = 1;
4268               h->pointer_equality_needed = 1;
4269             }
4270           goto dodyn;
4271
4272         case R_PPC_REL24:
4273         case R_PPC_REL14:
4274         case R_PPC_REL14_BRTAKEN:
4275         case R_PPC_REL14_BRNTAKEN:
4276           if (h == NULL)
4277             break;
4278           if (h == htab->elf.hgot)
4279             {
4280               if (htab->plt_type == PLT_UNSET)
4281                 {
4282                   htab->plt_type = PLT_OLD;
4283                   htab->old_bfd = abfd;
4284                 }
4285               break;
4286             }
4287           /* fall through */
4288
4289         case R_PPC_ADDR24:
4290         case R_PPC_ADDR14:
4291         case R_PPC_ADDR14_BRTAKEN:
4292         case R_PPC_ADDR14_BRNTAKEN:
4293           if (h != NULL && !info->shared)
4294             {
4295               /* We may need a plt entry if the symbol turns out to be
4296                  a function defined in a dynamic object.  */
4297               h->needs_plt = 1;
4298               if (!update_plt_info (abfd, &h->plt.plist, NULL, 0))
4299                 return FALSE;
4300               break;
4301             }
4302
4303         dodyn:
4304           /* If we are creating a shared library, and this is a reloc
4305              against a global symbol, or a non PC relative reloc
4306              against a local symbol, then we need to copy the reloc
4307              into the shared library.  However, if we are linking with
4308              -Bsymbolic, we do not need to copy a reloc against a
4309              global symbol which is defined in an object we are
4310              including in the link (i.e., DEF_REGULAR is set).  At
4311              this point we have not seen all the input files, so it is
4312              possible that DEF_REGULAR is not set now but will be set
4313              later (it is never cleared).  In case of a weak definition,
4314              DEF_REGULAR may be cleared later by a strong definition in
4315              a shared library.  We account for that possibility below by
4316              storing information in the dyn_relocs field of the hash
4317              table entry.  A similar situation occurs when creating
4318              shared libraries and symbol visibility changes render the
4319              symbol local.
4320
4321              If on the other hand, we are creating an executable, we
4322              may need to keep relocations for symbols satisfied by a
4323              dynamic library if we manage to avoid copy relocs for the
4324              symbol.  */
4325           if ((info->shared
4326                && (must_be_dyn_reloc (info, r_type)
4327                    || (h != NULL
4328                        && (! info->symbolic
4329                            || h->root.type == bfd_link_hash_defweak
4330                            || !h->def_regular))))
4331               || (ELIMINATE_COPY_RELOCS
4332                   && !info->shared
4333                   && h != NULL
4334                   && (h->root.type == bfd_link_hash_defweak
4335                       || !h->def_regular)))
4336             {
4337               struct elf_dyn_relocs *p;
4338               struct elf_dyn_relocs **rel_head;
4339
4340 #ifdef DEBUG
4341               fprintf (stderr,
4342                        "ppc_elf_check_relocs needs to "
4343                        "create relocation for %s\n",
4344                        (h && h->root.root.string
4345                         ? h->root.root.string : "<unknown>"));
4346 #endif
4347               if (sreloc == NULL)
4348                 {
4349                   if (htab->elf.dynobj == NULL)
4350                     htab->elf.dynobj = abfd;
4351
4352                   sreloc = _bfd_elf_make_dynamic_reloc_section
4353                     (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ TRUE);
4354
4355                   if (sreloc == NULL)
4356                     return FALSE;
4357                 }
4358
4359               /* If this is a global symbol, we count the number of
4360                  relocations we need for this symbol.  */
4361               if (h != NULL)
4362                 {
4363                   rel_head = &ppc_elf_hash_entry (h)->dyn_relocs;
4364                 }
4365               else
4366                 {
4367                   /* Track dynamic relocs needed for local syms too.
4368                      We really need local syms available to do this
4369                      easily.  Oh well.  */
4370                   asection *s;
4371                   void *vpp;
4372                   Elf_Internal_Sym *isym;
4373
4374                   isym = bfd_sym_from_r_symndx (&htab->sym_cache,
4375                                                 abfd, r_symndx);
4376                   if (isym == NULL)
4377                     return FALSE;
4378
4379                   s = bfd_section_from_elf_index (abfd, isym->st_shndx);
4380                   if (s == NULL)
4381                     s = sec;
4382
4383                   vpp = &elf_section_data (s)->local_dynrel;
4384                   rel_head = (struct elf_dyn_relocs **) vpp;
4385                 }
4386
4387               p = *rel_head;
4388               if (p == NULL || p->sec != sec)
4389                 {
4390                   p = bfd_alloc (htab->elf.dynobj, sizeof *p);
4391                   if (p == NULL)
4392                     return FALSE;
4393                   p->next = *rel_head;
4394                   *rel_head = p;
4395                   p->sec = sec;
4396                   p->count = 0;
4397                   p->pc_count = 0;
4398                 }
4399
4400               p->count += 1;
4401               if (!must_be_dyn_reloc (info, r_type))
4402                 p->pc_count += 1;
4403             }
4404
4405           break;
4406         }
4407     }
4408
4409   return TRUE;
4410 }
4411 \f
4412
4413 /* Merge object attributes from IBFD into OBFD.  Raise an error if
4414    there are conflicting attributes.  */
4415 static bfd_boolean
4416 ppc_elf_merge_obj_attributes (bfd *ibfd, bfd *obfd)
4417 {
4418   obj_attribute *in_attr, *in_attrs;
4419   obj_attribute *out_attr, *out_attrs;
4420
4421   if (!elf_known_obj_attributes_proc (obfd)[0].i)
4422     {
4423       /* This is the first object.  Copy the attributes.  */
4424       _bfd_elf_copy_obj_attributes (ibfd, obfd);
4425
4426       /* Use the Tag_null value to indicate the attributes have been
4427          initialized.  */
4428       elf_known_obj_attributes_proc (obfd)[0].i = 1;
4429
4430       return TRUE;
4431     }
4432
4433   in_attrs = elf_known_obj_attributes (ibfd)[OBJ_ATTR_GNU];
4434   out_attrs = elf_known_obj_attributes (obfd)[OBJ_ATTR_GNU];
4435
4436   /* Check for conflicting Tag_GNU_Power_ABI_FP attributes and merge
4437      non-conflicting ones.  */
4438   in_attr = &in_attrs[Tag_GNU_Power_ABI_FP];
4439   out_attr = &out_attrs[Tag_GNU_Power_ABI_FP];
4440   if (in_attr->i != out_attr->i)
4441     {
4442       out_attr->type = 1;
4443       if (out_attr->i == 0)
4444         out_attr->i = in_attr->i;
4445       else if (in_attr->i == 0)
4446         ;
4447       else if (out_attr->i == 1 && in_attr->i == 2)
4448         _bfd_error_handler
4449           (_("Warning: %B uses hard float, %B uses soft float"), obfd, ibfd);
4450       else if (out_attr->i == 1 && in_attr->i == 3)
4451         _bfd_error_handler
4452           (_("Warning: %B uses double-precision hard float, %B uses single-precision hard float"),
4453           obfd, ibfd);
4454       else if (out_attr->i == 3 && in_attr->i == 1)
4455         _bfd_error_handler
4456           (_("Warning: %B uses double-precision hard float, %B uses single-precision hard float"),
4457           ibfd, obfd);
4458       else if (out_attr->i == 3 && in_attr->i == 2)
4459         _bfd_error_handler
4460           (_("Warning: %B uses soft float, %B uses single-precision hard float"),
4461           ibfd, obfd);
4462       else if (out_attr->i == 2 && (in_attr->i == 1 || in_attr->i == 3))
4463         _bfd_error_handler
4464           (_("Warning: %B uses hard float, %B uses soft float"), ibfd, obfd);
4465       else if (in_attr->i > 3)
4466         _bfd_error_handler
4467           (_("Warning: %B uses unknown floating point ABI %d"), ibfd,
4468            in_attr->i);
4469       else
4470         _bfd_error_handler
4471           (_("Warning: %B uses unknown floating point ABI %d"), obfd,
4472            out_attr->i);
4473     }
4474
4475   /* Check for conflicting Tag_GNU_Power_ABI_Vector attributes and
4476      merge non-conflicting ones.  */
4477   in_attr = &in_attrs[Tag_GNU_Power_ABI_Vector];
4478   out_attr = &out_attrs[Tag_GNU_Power_ABI_Vector];
4479   if (in_attr->i != out_attr->i)
4480     {
4481       const char *in_abi = NULL, *out_abi = NULL;
4482
4483       switch (in_attr->i)
4484         {
4485         case 1: in_abi = "generic"; break;
4486         case 2: in_abi = "AltiVec"; break;
4487         case 3: in_abi = "SPE"; break;
4488         }
4489
4490       switch (out_attr->i)
4491         {
4492         case 1: out_abi = "generic"; break;
4493         case 2: out_abi = "AltiVec"; break;
4494         case 3: out_abi = "SPE"; break;
4495         }
4496
4497       out_attr->type = 1;
4498       if (out_attr->i == 0)
4499         out_attr->i = in_attr->i;
4500       else if (in_attr->i == 0)
4501         ;
4502       /* For now, allow generic to transition to AltiVec or SPE
4503          without a warning.  If GCC marked files with their stack
4504          alignment and used don't-care markings for files which are
4505          not affected by the vector ABI, we could warn about this
4506          case too.  */
4507       else if (out_attr->i == 1)
4508         out_attr->i = in_attr->i;
4509       else if (in_attr->i == 1)
4510         ;
4511       else if (in_abi == NULL)
4512         _bfd_error_handler
4513           (_("Warning: %B uses unknown vector ABI %d"), ibfd,
4514            in_attr->i);
4515       else if (out_abi == NULL)
4516         _bfd_error_handler
4517           (_("Warning: %B uses unknown vector ABI %d"), obfd,
4518            in_attr->i);
4519       else
4520         _bfd_error_handler
4521           (_("Warning: %B uses vector ABI \"%s\", %B uses \"%s\""),
4522            ibfd, obfd, in_abi, out_abi);
4523     }
4524
4525   /* Check for conflicting Tag_GNU_Power_ABI_Struct_Return attributes
4526      and merge non-conflicting ones.  */
4527   in_attr = &in_attrs[Tag_GNU_Power_ABI_Struct_Return];
4528   out_attr = &out_attrs[Tag_GNU_Power_ABI_Struct_Return];
4529   if (in_attr->i != out_attr->i)
4530     {
4531       out_attr->type = 1;
4532       if (out_attr->i == 0)
4533        out_attr->i = in_attr->i;
4534       else if (in_attr->i == 0)
4535        ;
4536       else if (out_attr->i == 1 && in_attr->i == 2)
4537        _bfd_error_handler
4538          (_("Warning: %B uses r3/r4 for small structure returns, %B uses memory"), obfd, ibfd);
4539       else if (out_attr->i == 2 && in_attr->i == 1)
4540        _bfd_error_handler
4541          (_("Warning: %B uses r3/r4 for small structure returns, %B uses memory"), ibfd, obfd);
4542       else if (in_attr->i > 2)
4543        _bfd_error_handler
4544          (_("Warning: %B uses unknown small structure return convention %d"), ibfd,
4545           in_attr->i);
4546       else
4547        _bfd_error_handler
4548          (_("Warning: %B uses unknown small structure return convention %d"), obfd,
4549           out_attr->i);
4550     }
4551
4552   /* Merge Tag_compatibility attributes and any common GNU ones.  */
4553   _bfd_elf_merge_object_attributes (ibfd, obfd);
4554
4555   return TRUE;
4556 }
4557
4558 /* Merge backend specific data from an object file to the output
4559    object file when linking.  */
4560
4561 static bfd_boolean
4562 ppc_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4563 {
4564   flagword old_flags;
4565   flagword new_flags;
4566   bfd_boolean error;
4567
4568   if (!is_ppc_elf (ibfd) || !is_ppc_elf (obfd))
4569     return TRUE;
4570
4571   /* Check if we have the same endianness.  */
4572   if (! _bfd_generic_verify_endian_match (ibfd, obfd))
4573     return FALSE;
4574
4575   if (!ppc_elf_merge_obj_attributes (ibfd, obfd))
4576     return FALSE;
4577
4578   new_flags = elf_elfheader (ibfd)->e_flags;
4579   old_flags = elf_elfheader (obfd)->e_flags;
4580   if (!elf_flags_init (obfd))
4581     {
4582       /* First call, no flags set.  */
4583       elf_flags_init (obfd) = TRUE;
4584       elf_elfheader (obfd)->e_flags = new_flags;
4585     }
4586
4587   /* Compatible flags are ok.  */
4588   else if (new_flags == old_flags)
4589     ;
4590
4591   /* Incompatible flags.  */
4592   else
4593     {
4594       /* Warn about -mrelocatable mismatch.  Allow -mrelocatable-lib
4595          to be linked with either.  */
4596       error = FALSE;
4597       if ((new_flags & EF_PPC_RELOCATABLE) != 0
4598           && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
4599         {
4600           error = TRUE;
4601           (*_bfd_error_handler)
4602             (_("%B: compiled with -mrelocatable and linked with "
4603                "modules compiled normally"), ibfd);
4604         }
4605       else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
4606                && (old_flags & EF_PPC_RELOCATABLE) != 0)
4607         {
4608           error = TRUE;
4609           (*_bfd_error_handler)
4610             (_("%B: compiled normally and linked with "
4611                "modules compiled with -mrelocatable"), ibfd);
4612         }
4613
4614       /* The output is -mrelocatable-lib iff both the input files are.  */
4615       if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
4616         elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
4617
4618       /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
4619          but each input file is either -mrelocatable or -mrelocatable-lib.  */
4620       if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
4621           && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
4622           && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
4623         elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
4624
4625       /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if
4626          any module uses it.  */
4627       elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
4628
4629       new_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
4630       old_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
4631
4632       /* Warn about any other mismatches.  */
4633       if (new_flags != old_flags)
4634         {
4635           error = TRUE;
4636           (*_bfd_error_handler)
4637             (_("%B: uses different e_flags (0x%lx) fields "
4638                "than previous modules (0x%lx)"),
4639              ibfd, (long) new_flags, (long) old_flags);
4640         }
4641
4642       if (error)
4643         {
4644           bfd_set_error (bfd_error_bad_value);
4645           return FALSE;
4646         }
4647     }
4648
4649   return TRUE;
4650 }
4651
4652 static void
4653 ppc_elf_vle_split16 (bfd *output_bfd, bfd_byte *contents,
4654                  bfd_vma offset, bfd_vma relocation,
4655                  split16_format_type split16_format)
4656
4657 {
4658   bfd_vma insn, top5, bottom11;
4659
4660   insn = bfd_get_32 (output_bfd, contents + offset);
4661   top5 = relocation >> 11;
4662   top5 = top5 << (split16_format == split16a_type ? 20 : 16);
4663   bottom11 = relocation & 0x7ff;
4664   insn |= top5;
4665   insn |= bottom11;
4666   bfd_put_32 (output_bfd, insn, contents + offset);
4667 }
4668
4669 \f
4670 /* Choose which PLT scheme to use, and set .plt flags appropriately.
4671    Returns -1 on error, 0 for old PLT, 1 for new PLT.  */
4672 int
4673 ppc_elf_select_plt_layout (bfd *output_bfd ATTRIBUTE_UNUSED,
4674                            struct bfd_link_info *info,
4675                            enum ppc_elf_plt_type plt_style,
4676                            int emit_stub_syms)
4677 {
4678   struct ppc_elf_link_hash_table *htab;
4679   flagword flags;
4680
4681   htab = ppc_elf_hash_table (info);
4682
4683   htab->emit_stub_syms = emit_stub_syms;
4684
4685   if (htab->plt_type == PLT_UNSET)
4686     {
4687       struct elf_link_hash_entry *h;
4688
4689       if (plt_style == PLT_OLD)
4690         htab->plt_type = PLT_OLD;
4691       else if (info->shared
4692                && htab->elf.dynamic_sections_created
4693                && (h = elf_link_hash_lookup (&htab->elf, "_mcount",
4694                                              FALSE, FALSE, TRUE)) != NULL
4695                && (h->type == STT_FUNC
4696                    || h->needs_plt)
4697                && h->ref_regular
4698                && !(SYMBOL_CALLS_LOCAL (info, h)
4699                     || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
4700                         && h->root.type == bfd_link_hash_undefweak)))
4701         {
4702           /* Profiling of shared libs (and pies) is not supported with
4703              secure plt, because ppc32 does profiling before a
4704              function prologue and a secure plt pic call stubs needs
4705              r30 to be set up.  */
4706           htab->plt_type = PLT_OLD;
4707         }
4708       else
4709         {
4710           bfd *ibfd;
4711           enum ppc_elf_plt_type plt_type = plt_style;
4712
4713           /* Look through the reloc flags left by ppc_elf_check_relocs.
4714              Use the old style bss plt if a file makes plt calls
4715              without using the new relocs, and if ld isn't given
4716              --secure-plt and we never see REL16 relocs.  */
4717           if (plt_type == PLT_UNSET)
4718             plt_type = PLT_OLD;
4719           for (ibfd = info->input_bfds; ibfd; ibfd = ibfd->link_next)
4720             if (is_ppc_elf (ibfd))
4721               {
4722                 if (ppc_elf_tdata (ibfd)->has_rel16)
4723                   plt_type = PLT_NEW;
4724                 else if (ppc_elf_tdata (ibfd)->makes_plt_call)
4725                   {
4726                     plt_type = PLT_OLD;
4727                     htab->old_bfd = ibfd;
4728                     break;
4729                   }
4730               }
4731           htab->plt_type = plt_type;
4732         }
4733     }
4734   if (htab->plt_type == PLT_OLD && plt_style == PLT_NEW)
4735     {
4736       if (htab->old_bfd != NULL)
4737         info->callbacks->einfo (_("%P: bss-plt forced due to %B\n"),
4738                                 htab->old_bfd);
4739       else
4740         info->callbacks->einfo (_("%P: bss-plt forced by profiling\n"));
4741     }
4742
4743   BFD_ASSERT (htab->plt_type != PLT_VXWORKS);
4744
4745   if (htab->plt_type == PLT_NEW)
4746     {
4747       flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
4748                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
4749
4750       /* The new PLT is a loaded section.  */
4751       if (htab->plt != NULL
4752           && !bfd_set_section_flags (htab->elf.dynobj, htab->plt, flags))
4753         return -1;
4754
4755       /* The new GOT is not executable.  */
4756       if (htab->got != NULL
4757           && !bfd_set_section_flags (htab->elf.dynobj, htab->got, flags))
4758         return -1;
4759     }
4760   else
4761     {
4762       /* Stop an unused .glink section from affecting .text alignment.  */
4763       if (htab->glink != NULL
4764           && !bfd_set_section_alignment (htab->elf.dynobj, htab->glink, 0))
4765         return -1;
4766     }
4767   return htab->plt_type == PLT_NEW;
4768 }
4769 \f
4770 /* Return the section that should be marked against GC for a given
4771    relocation.  */
4772
4773 static asection *
4774 ppc_elf_gc_mark_hook (asection *sec,
4775                       struct bfd_link_info *info,
4776                       Elf_Internal_Rela *rel,
4777                       struct elf_link_hash_entry *h,
4778                       Elf_Internal_Sym *sym)
4779 {
4780   if (h != NULL)
4781     switch (ELF32_R_TYPE (rel->r_info))
4782       {
4783       case R_PPC_GNU_VTINHERIT:
4784       case R_PPC_GNU_VTENTRY:
4785         return NULL;
4786       }
4787
4788   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
4789 }
4790
4791 /* Update the got, plt and dynamic reloc reference counts for the
4792    section being removed.  */
4793
4794 static bfd_boolean
4795 ppc_elf_gc_sweep_hook (bfd *abfd,
4796                        struct bfd_link_info *info,
4797                        asection *sec,
4798                        const Elf_Internal_Rela *relocs)
4799 {
4800   struct ppc_elf_link_hash_table *htab;
4801   Elf_Internal_Shdr *symtab_hdr;
4802   struct elf_link_hash_entry **sym_hashes;
4803   bfd_signed_vma *local_got_refcounts;
4804   const Elf_Internal_Rela *rel, *relend;
4805   asection *got2;
4806
4807   if (info->relocatable)
4808     return TRUE;
4809
4810   if ((sec->flags & SEC_ALLOC) == 0)
4811     return TRUE;
4812
4813   elf_section_data (sec)->local_dynrel = NULL;
4814
4815   htab = ppc_elf_hash_table (info);
4816   symtab_hdr = &elf_symtab_hdr (abfd);
4817   sym_hashes = elf_sym_hashes (abfd);
4818   local_got_refcounts = elf_local_got_refcounts (abfd);
4819   got2 = bfd_get_section_by_name (abfd, ".got2");
4820
4821   relend = relocs + sec->reloc_count;
4822   for (rel = relocs; rel < relend; rel++)
4823     {
4824       unsigned long r_symndx;
4825       enum elf_ppc_reloc_type r_type;
4826       struct elf_link_hash_entry *h = NULL;
4827
4828       r_symndx = ELF32_R_SYM (rel->r_info);
4829       if (r_symndx >= symtab_hdr->sh_info)
4830         {
4831           struct elf_dyn_relocs **pp, *p;
4832           struct ppc_elf_link_hash_entry *eh;
4833
4834           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4835           while (h->root.type == bfd_link_hash_indirect
4836                  || h->root.type == bfd_link_hash_warning)
4837             h = (struct elf_link_hash_entry *) h->root.u.i.link;
4838           eh = (struct ppc_elf_link_hash_entry *) h;
4839
4840           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
4841             if (p->sec == sec)
4842               {
4843                 /* Everything must go for SEC.  */
4844                 *pp = p->next;
4845                 break;
4846               }
4847         }
4848
4849       r_type = ELF32_R_TYPE (rel->r_info);
4850       if (!htab->is_vxworks
4851           && h == NULL
4852           && local_got_refcounts != NULL
4853           && (!info->shared
4854               || is_branch_reloc (r_type)))
4855         {
4856           struct plt_entry **local_plt = (struct plt_entry **)
4857             (local_got_refcounts + symtab_hdr->sh_info);
4858           char *local_got_tls_masks = (char *)
4859             (local_plt + symtab_hdr->sh_info);
4860           if ((local_got_tls_masks[r_symndx] & PLT_IFUNC) != 0)
4861             {
4862               struct plt_entry **ifunc = local_plt + r_symndx;
4863               bfd_vma addend = 0;
4864               struct plt_entry *ent;
4865
4866               if (r_type == R_PPC_PLTREL24 && info->shared)
4867                 addend = rel->r_addend;
4868               ent = find_plt_ent (ifunc, got2, addend);
4869               if (ent->plt.refcount > 0)
4870                 ent->plt.refcount -= 1;
4871               continue;
4872             }
4873         }
4874
4875       switch (r_type)
4876         {
4877         case R_PPC_GOT_TLSLD16:
4878         case R_PPC_GOT_TLSLD16_LO:
4879         case R_PPC_GOT_TLSLD16_HI:
4880         case R_PPC_GOT_TLSLD16_HA:
4881         case R_PPC_GOT_TLSGD16:
4882         case R_PPC_GOT_TLSGD16_LO:
4883         case R_PPC_GOT_TLSGD16_HI:
4884         case R_PPC_GOT_TLSGD16_HA:
4885         case R_PPC_GOT_TPREL16:
4886         case R_PPC_GOT_TPREL16_LO:
4887         case R_PPC_GOT_TPREL16_HI:
4888         case R_PPC_GOT_TPREL16_HA:
4889         case R_PPC_GOT_DTPREL16:
4890         case R_PPC_GOT_DTPREL16_LO:
4891         case R_PPC_GOT_DTPREL16_HI:
4892         case R_PPC_GOT_DTPREL16_HA:
4893         case R_PPC_GOT16:
4894         case R_PPC_GOT16_LO:
4895         case R_PPC_GOT16_HI:
4896         case R_PPC_GOT16_HA:
4897           if (h != NULL)
4898             {
4899               if (h->got.refcount > 0)
4900                 h->got.refcount--;
4901               if (!info->shared)
4902                 {
4903                   struct plt_entry *ent;
4904
4905                   ent = find_plt_ent (&h->plt.plist, NULL, 0);
4906                   if (ent != NULL && ent->plt.refcount > 0)
4907                     ent->plt.refcount -= 1;
4908                 }
4909             }
4910           else if (local_got_refcounts != NULL)
4911             {
4912               if (local_got_refcounts[r_symndx] > 0)
4913                 local_got_refcounts[r_symndx]--;
4914             }
4915           break;
4916
4917         case R_PPC_REL24:
4918         case R_PPC_REL14:
4919         case R_PPC_REL14_BRTAKEN:
4920         case R_PPC_REL14_BRNTAKEN:
4921         case R_PPC_REL32:
4922           if (h == NULL || h == htab->elf.hgot)
4923             break;
4924           /* Fall thru */
4925
4926         case R_PPC_ADDR32:
4927         case R_PPC_ADDR24:
4928         case R_PPC_ADDR16:
4929         case R_PPC_ADDR16_LO:
4930         case R_PPC_ADDR16_HI:
4931         case R_PPC_ADDR16_HA:
4932         case R_PPC_ADDR14:
4933         case R_PPC_ADDR14_BRTAKEN:
4934         case R_PPC_ADDR14_BRNTAKEN:
4935         case R_PPC_UADDR32:
4936         case R_PPC_UADDR16:
4937           if (info->shared)
4938             break;
4939
4940         case R_PPC_PLT32:
4941         case R_PPC_PLTREL24:
4942         case R_PPC_PLTREL32:
4943         case R_PPC_PLT16_LO:
4944         case R_PPC_PLT16_HI:
4945         case R_PPC_PLT16_HA:
4946           if (h != NULL)
4947             {
4948               bfd_vma addend = 0;
4949               struct plt_entry *ent;
4950
4951               if (r_type == R_PPC_PLTREL24 && info->shared)
4952                 addend = rel->r_addend;
4953               ent = find_plt_ent (&h->plt.plist, got2, addend);
4954               if (ent != NULL && ent->plt.refcount > 0)
4955                 ent->plt.refcount -= 1;
4956             }
4957           break;
4958
4959         default:
4960           break;
4961         }
4962     }
4963   return TRUE;
4964 }
4965 \f
4966 /* Set plt output section type, htab->tls_get_addr, and call the
4967    generic ELF tls_setup function.  */
4968
4969 asection *
4970 ppc_elf_tls_setup (bfd *obfd,
4971                    struct bfd_link_info *info,
4972                    int no_tls_get_addr_opt)
4973 {
4974   struct ppc_elf_link_hash_table *htab;
4975
4976   htab = ppc_elf_hash_table (info);
4977   htab->tls_get_addr = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
4978                                              FALSE, FALSE, TRUE);
4979   if (!no_tls_get_addr_opt)
4980     {
4981       struct elf_link_hash_entry *opt, *tga;
4982       opt = elf_link_hash_lookup (&htab->elf, "__tls_get_addr_opt",
4983                                   FALSE, FALSE, TRUE);
4984       if (opt != NULL
4985           && (opt->root.type == bfd_link_hash_defined
4986               || opt->root.type == bfd_link_hash_defweak))
4987         {
4988           /* If glibc supports an optimized __tls_get_addr call stub,
4989              signalled by the presence of __tls_get_addr_opt, and we'll
4990              be calling __tls_get_addr via a plt call stub, then
4991              make __tls_get_addr point to __tls_get_addr_opt.  */
4992           tga = htab->tls_get_addr;
4993           if (htab->elf.dynamic_sections_created
4994               && tga != NULL
4995               && (tga->type == STT_FUNC
4996                   || tga->needs_plt)
4997               && !(SYMBOL_CALLS_LOCAL (info, tga)
4998                    || (ELF_ST_VISIBILITY (tga->other) != STV_DEFAULT
4999                        && tga->root.type == bfd_link_hash_undefweak)))
5000             {
5001               struct plt_entry *ent;
5002               for (ent = tga->plt.plist; ent != NULL; ent = ent->next)
5003                 if (ent->plt.refcount > 0)
5004                   break;
5005               if (ent != NULL)
5006                 {
5007                   tga->root.type = bfd_link_hash_indirect;
5008                   tga->root.u.i.link = &opt->root;
5009                   ppc_elf_copy_indirect_symbol (info, opt, tga);
5010                   if (opt->dynindx != -1)
5011                     {
5012                       /* Use __tls_get_addr_opt in dynamic relocations.  */
5013                       opt->dynindx = -1;
5014                       _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
5015                                               opt->dynstr_index);
5016                       if (!bfd_elf_link_record_dynamic_symbol (info, opt))
5017                         return FALSE;
5018                     }
5019                   htab->tls_get_addr = opt;
5020                 }
5021             }
5022         }
5023       else
5024         no_tls_get_addr_opt = TRUE;
5025     }
5026   htab->no_tls_get_addr_opt = no_tls_get_addr_opt;
5027   if (htab->plt_type == PLT_NEW
5028       && htab->plt != NULL
5029       && htab->plt->output_section != NULL)
5030     {
5031       elf_section_type (htab->plt->output_section) = SHT_PROGBITS;
5032       elf_section_flags (htab->plt->output_section) = SHF_ALLOC + SHF_WRITE;
5033     }
5034
5035   return _bfd_elf_tls_setup (obfd, info);
5036 }
5037
5038 /* Return TRUE iff REL is a branch reloc with a global symbol matching
5039    HASH.  */
5040
5041 static bfd_boolean
5042 branch_reloc_hash_match (const bfd *ibfd,
5043                          const Elf_Internal_Rela *rel,
5044                          const struct elf_link_hash_entry *hash)
5045 {
5046   Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
5047   enum elf_ppc_reloc_type r_type = ELF32_R_TYPE (rel->r_info);
5048   unsigned int r_symndx = ELF32_R_SYM (rel->r_info);
5049
5050   if (r_symndx >= symtab_hdr->sh_info && is_branch_reloc (r_type))
5051     {
5052       struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
5053       struct elf_link_hash_entry *h;
5054
5055       h = sym_hashes[r_symndx - symtab_hdr->sh_info];
5056       while (h->root.type == bfd_link_hash_indirect
5057              || h->root.type == bfd_link_hash_warning)
5058         h = (struct elf_link_hash_entry *) h->root.u.i.link;
5059       if (h == hash)
5060         return TRUE;
5061     }
5062   return FALSE;
5063 }
5064
5065 /* Run through all the TLS relocs looking for optimization
5066    opportunities.  */
5067
5068 bfd_boolean
5069 ppc_elf_tls_optimize (bfd *obfd ATTRIBUTE_UNUSED,
5070                       struct bfd_link_info *info)
5071 {
5072   bfd *ibfd;
5073   asection *sec;
5074   struct ppc_elf_link_hash_table *htab;
5075   int pass;
5076
5077   if (info->relocatable || !info->executable)
5078     return TRUE;
5079
5080   htab = ppc_elf_hash_table (info);
5081   if (htab == NULL)
5082     return FALSE;
5083
5084   /* Make two passes through the relocs.  First time check that tls
5085      relocs involved in setting up a tls_get_addr call are indeed
5086      followed by such a call.  If they are not, don't do any tls
5087      optimization.  On the second pass twiddle tls_mask flags to
5088      notify relocate_section that optimization can be done, and
5089      adjust got and plt refcounts.  */
5090   for (pass = 0; pass < 2; ++pass)
5091     for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
5092       {
5093         Elf_Internal_Sym *locsyms = NULL;
5094         Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
5095         asection *got2 = bfd_get_section_by_name (ibfd, ".got2");
5096
5097         for (sec = ibfd->sections; sec != NULL; sec = sec->next)
5098           if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
5099             {
5100               Elf_Internal_Rela *relstart, *rel, *relend;
5101               int expecting_tls_get_addr = 0;
5102
5103               /* Read the relocations.  */
5104               relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
5105                                                     info->keep_memory);
5106               if (relstart == NULL)
5107                 return FALSE;
5108
5109               relend = relstart + sec->reloc_count;
5110               for (rel = relstart; rel < relend; rel++)
5111                 {
5112                   enum elf_ppc_reloc_type r_type;
5113                   unsigned long r_symndx;
5114                   struct elf_link_hash_entry *h = NULL;
5115                   char *tls_mask;
5116                   char tls_set, tls_clear;
5117                   bfd_boolean is_local;
5118                   bfd_signed_vma *got_count;
5119
5120                   r_symndx = ELF32_R_SYM (rel->r_info);
5121                   if (r_symndx >= symtab_hdr->sh_info)
5122                     {
5123                       struct elf_link_hash_entry **sym_hashes;
5124
5125                       sym_hashes = elf_sym_hashes (ibfd);
5126                       h = sym_hashes[r_symndx - symtab_hdr->sh_info];
5127                       while (h->root.type == bfd_link_hash_indirect
5128                              || h->root.type == bfd_link_hash_warning)
5129                         h = (struct elf_link_hash_entry *) h->root.u.i.link;
5130                     }
5131
5132                   is_local = FALSE;
5133                   if (h == NULL
5134                       || !h->def_dynamic)
5135                     is_local = TRUE;
5136
5137                   r_type = ELF32_R_TYPE (rel->r_info);
5138                   /* If this section has old-style __tls_get_addr calls
5139                      without marker relocs, then check that each
5140                      __tls_get_addr call reloc is preceded by a reloc
5141                      that conceivably belongs to the __tls_get_addr arg
5142                      setup insn.  If we don't find matching arg setup
5143                      relocs, don't do any tls optimization.  */
5144                   if (pass == 0
5145                       && sec->has_tls_get_addr_call
5146                       && h != NULL
5147                       && h == htab->tls_get_addr
5148                       && !expecting_tls_get_addr
5149                       && is_branch_reloc (r_type))
5150                     {
5151                       info->callbacks->minfo ("%H __tls_get_addr lost arg, "
5152                                               "TLS optimization disabled\n",
5153                                               ibfd, sec, rel->r_offset);
5154                       if (elf_section_data (sec)->relocs != relstart)
5155                         free (relstart);
5156                       return TRUE;
5157                     }
5158
5159                   expecting_tls_get_addr = 0;
5160                   switch (r_type)
5161                     {
5162                     case R_PPC_GOT_TLSLD16:
5163                     case R_PPC_GOT_TLSLD16_LO:
5164                       expecting_tls_get_addr = 1;
5165                       /* Fall thru */
5166
5167                     case R_PPC_GOT_TLSLD16_HI:
5168                     case R_PPC_GOT_TLSLD16_HA:
5169                       /* These relocs should never be against a symbol
5170                          defined in a shared lib.  Leave them alone if
5171                          that turns out to be the case.  */
5172                       if (!is_local)
5173                         continue;
5174
5175                       /* LD -> LE */
5176                       tls_set = 0;
5177                       tls_clear = TLS_LD;
5178                       break;
5179
5180                     case R_PPC_GOT_TLSGD16:
5181                     case R_PPC_GOT_TLSGD16_LO:
5182                       expecting_tls_get_addr = 1;
5183                       /* Fall thru */
5184
5185                     case R_PPC_GOT_TLSGD16_HI:
5186                     case R_PPC_GOT_TLSGD16_HA:
5187                       if (is_local)
5188                         /* GD -> LE */
5189                         tls_set = 0;
5190                       else
5191                         /* GD -> IE */
5192                         tls_set = TLS_TLS | TLS_TPRELGD;
5193                       tls_clear = TLS_GD;
5194                       break;
5195
5196                     case R_PPC_GOT_TPREL16:
5197                     case R_PPC_GOT_TPREL16_LO:
5198                     case R_PPC_GOT_TPREL16_HI:
5199                     case R_PPC_GOT_TPREL16_HA:
5200                       if (is_local)
5201                         {
5202                           /* IE -> LE */
5203                           tls_set = 0;
5204                           tls_clear = TLS_TPREL;
5205                           break;
5206                         }
5207                       else
5208                         continue;
5209
5210                     case R_PPC_TLSGD:
5211                     case R_PPC_TLSLD:
5212                       expecting_tls_get_addr = 2;
5213                       tls_set = 0;
5214                       tls_clear = 0;
5215                       break;
5216
5217                     default:
5218                       continue;
5219                     }
5220
5221                   if (pass == 0)
5222                     {
5223                       if (!expecting_tls_get_addr
5224                           || (expecting_tls_get_addr == 1
5225                               && !sec->has_tls_get_addr_call))
5226                         continue;
5227
5228                       if (rel + 1 < relend
5229                           && branch_reloc_hash_match (ibfd, rel + 1,
5230                                                       htab->tls_get_addr))
5231                         continue;
5232
5233                       /* Uh oh, we didn't find the expected call.  We
5234                          could just mark this symbol to exclude it
5235                          from tls optimization but it's safer to skip
5236                          the entire optimization.  */
5237                       info->callbacks->minfo (_("%H arg lost __tls_get_addr, "
5238                                                 "TLS optimization disabled\n"),
5239                                               ibfd, sec, rel->r_offset);
5240                       if (elf_section_data (sec)->relocs != relstart)
5241                         free (relstart);
5242                       return TRUE;
5243                     }
5244
5245                   if (expecting_tls_get_addr)
5246                     {
5247                       struct plt_entry *ent;
5248                       bfd_vma addend = 0;
5249
5250                       if (info->shared
5251                           && ELF32_R_TYPE (rel[1].r_info) == R_PPC_PLTREL24)
5252                         addend = rel[1].r_addend;
5253                       ent = find_plt_ent (&htab->tls_get_addr->plt.plist,
5254                                           got2, addend);
5255                       if (ent != NULL && ent->plt.refcount > 0)
5256                         ent->plt.refcount -= 1;
5257
5258                       if (expecting_tls_get_addr == 2)
5259                         continue;
5260                     }
5261
5262                   if (h != NULL)
5263                     {
5264                       tls_mask = &ppc_elf_hash_entry (h)->tls_mask;
5265                       got_count = &h->got.refcount;
5266                     }
5267                   else
5268                     {
5269                       bfd_signed_vma *lgot_refs;
5270                       struct plt_entry **local_plt;
5271                       char *lgot_masks;
5272
5273                       if (locsyms == NULL)
5274                         {
5275                           locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
5276                           if (locsyms == NULL)
5277                             locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
5278                                                             symtab_hdr->sh_info,
5279                                                             0, NULL, NULL, NULL);
5280                           if (locsyms == NULL)
5281                             {
5282                               if (elf_section_data (sec)->relocs != relstart)
5283                                 free (relstart);
5284                               return FALSE;
5285                             }
5286                         }
5287                       lgot_refs = elf_local_got_refcounts (ibfd);
5288                       if (lgot_refs == NULL)
5289                         abort ();
5290                       local_plt = (struct plt_entry **)
5291                         (lgot_refs + symtab_hdr->sh_info);
5292                       lgot_masks = (char *) (local_plt + symtab_hdr->sh_info);
5293                       tls_mask = &lgot_masks[r_symndx];
5294                       got_count = &lgot_refs[r_symndx];
5295                     }
5296
5297                   if (tls_set == 0)
5298                     {
5299                       /* We managed to get rid of a got entry.  */
5300                       if (*got_count > 0)
5301                         *got_count -= 1;
5302                     }
5303
5304                   *tls_mask |= tls_set;
5305                   *tls_mask &= ~tls_clear;
5306                 }
5307
5308               if (elf_section_data (sec)->relocs != relstart)
5309                 free (relstart);
5310             }
5311
5312         if (locsyms != NULL
5313             && (symtab_hdr->contents != (unsigned char *) locsyms))
5314           {
5315             if (!info->keep_memory)
5316               free (locsyms);
5317             else
5318               symtab_hdr->contents = (unsigned char *) locsyms;
5319           }
5320       }
5321   return TRUE;
5322 }
5323 \f
5324 /* Return true if we have dynamic relocs that apply to read-only sections.  */
5325
5326 static bfd_boolean
5327 readonly_dynrelocs (struct elf_link_hash_entry *h)
5328 {
5329   struct elf_dyn_relocs *p;
5330
5331   for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
5332     {
5333       asection *s = p->sec->output_section;
5334
5335       if (s != NULL
5336           && ((s->flags & (SEC_READONLY | SEC_ALLOC))
5337               == (SEC_READONLY | SEC_ALLOC)))
5338         return TRUE;
5339     }
5340   return FALSE;
5341 }
5342
5343 /* Adjust a symbol defined by a dynamic object and referenced by a
5344    regular object.  The current definition is in some section of the
5345    dynamic object, but we're not including those sections.  We have to
5346    change the definition to something the rest of the link can
5347    understand.  */
5348
5349 static bfd_boolean
5350 ppc_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
5351                                struct elf_link_hash_entry *h)
5352 {
5353   struct ppc_elf_link_hash_table *htab;
5354   asection *s;
5355
5356 #ifdef DEBUG
5357   fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n",
5358            h->root.root.string);
5359 #endif
5360
5361   /* Make sure we know what is going on here.  */
5362   htab = ppc_elf_hash_table (info);
5363   BFD_ASSERT (htab->elf.dynobj != NULL
5364               && (h->needs_plt
5365                   || h->type == STT_GNU_IFUNC
5366                   || h->u.weakdef != NULL
5367                   || (h->def_dynamic
5368                       && h->ref_regular
5369                       && !h->def_regular)));
5370
5371   /* Deal with function syms.  */
5372   if (h->type == STT_FUNC
5373       || h->type == STT_GNU_IFUNC
5374       || h->needs_plt)
5375     {
5376       /* Clear procedure linkage table information for any symbol that
5377          won't need a .plt entry.  */
5378       struct plt_entry *ent;
5379       for (ent = h->plt.plist; ent != NULL; ent = ent->next)
5380         if (ent->plt.refcount > 0)
5381           break;
5382       if (ent == NULL
5383           || (h->type != STT_GNU_IFUNC
5384               && (SYMBOL_CALLS_LOCAL (info, h)
5385                   || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
5386                       && h->root.type == bfd_link_hash_undefweak))))
5387         {
5388           /* A PLT entry is not required/allowed when:
5389
5390              1. We are not using ld.so; because then the PLT entry
5391              can't be set up, so we can't use one.  In this case,
5392              ppc_elf_adjust_dynamic_symbol won't even be called.
5393
5394              2. GC has rendered the entry unused.
5395
5396              3. We know for certain that a call to this symbol
5397              will go to this object, or will remain undefined.  */
5398           h->plt.plist = NULL;
5399           h->needs_plt = 0;
5400         }
5401       else
5402         {
5403           /* After adjust_dynamic_symbol, non_got_ref set in the
5404              non-shared case means that we have allocated space in
5405              .dynbss for the symbol and thus dyn_relocs for this
5406              symbol should be discarded.
5407              If we get here we know we are making a PLT entry for this
5408              symbol, and in an executable we'd normally resolve
5409              relocations against this symbol to the PLT entry.  Allow
5410              dynamic relocs if the reference is weak, and the dynamic
5411              relocs will not cause text relocation.  */
5412           if (!h->ref_regular_nonweak
5413               && h->non_got_ref
5414               && h->type != STT_GNU_IFUNC
5415               && !htab->is_vxworks
5416               && !ppc_elf_hash_entry (h)->has_sda_refs
5417               && !readonly_dynrelocs (h))
5418             h->non_got_ref = 0;
5419         }
5420       return TRUE;
5421     }
5422   else
5423     h->plt.plist = NULL;
5424
5425   /* If this is a weak symbol, and there is a real definition, the
5426      processor independent code will have arranged for us to see the
5427      real definition first, and we can just use the same value.  */
5428   if (h->u.weakdef != NULL)
5429     {
5430       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
5431                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
5432       h->root.u.def.section = h->u.weakdef->root.u.def.section;
5433       h->root.u.def.value = h->u.weakdef->root.u.def.value;
5434       if (ELIMINATE_COPY_RELOCS)
5435         h->non_got_ref = h->u.weakdef->non_got_ref;
5436       return TRUE;
5437     }
5438
5439   /* This is a reference to a symbol defined by a dynamic object which
5440      is not a function.  */
5441
5442   /* If we are creating a shared library, we must presume that the
5443      only references to the symbol are via the global offset table.
5444      For such cases we need not do anything here; the relocations will
5445      be handled correctly by relocate_section.  */
5446   if (info->shared)
5447     return TRUE;
5448
5449   /* If there are no references to this symbol that do not use the
5450      GOT, we don't need to generate a copy reloc.  */
5451   if (!h->non_got_ref)
5452     return TRUE;
5453
5454    /* If we didn't find any dynamic relocs in read-only sections, then
5455       we'll be keeping the dynamic relocs and avoiding the copy reloc.
5456       We can't do this if there are any small data relocations.  This
5457       doesn't work on VxWorks, where we can not have dynamic
5458       relocations (other than copy and jump slot relocations) in an
5459       executable.  */
5460   if (ELIMINATE_COPY_RELOCS
5461       && !ppc_elf_hash_entry (h)->has_sda_refs
5462       && !htab->is_vxworks
5463       && !h->def_regular
5464       && !readonly_dynrelocs (h))
5465     {
5466       h->non_got_ref = 0;
5467       return TRUE;
5468     }
5469
5470   /* We must allocate the symbol in our .dynbss section, which will
5471      become part of the .bss section of the executable.  There will be
5472      an entry for this symbol in the .dynsym section.  The dynamic
5473      object will contain position independent code, so all references
5474      from the dynamic object to this symbol will go through the global
5475      offset table.  The dynamic linker will use the .dynsym entry to
5476      determine the address it must put in the global offset table, so
5477      both the dynamic object and the regular object will refer to the
5478      same memory location for the variable.
5479
5480      Of course, if the symbol is referenced using SDAREL relocs, we
5481      must instead allocate it in .sbss.  */
5482
5483   if (ppc_elf_hash_entry (h)->has_sda_refs)
5484     s = htab->dynsbss;
5485   else
5486     s = htab->dynbss;
5487   BFD_ASSERT (s != NULL);
5488
5489   /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
5490      copy the initial value out of the dynamic object and into the
5491      runtime process image.  We need to remember the offset into the
5492      .rela.bss section we are going to use.  */
5493   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
5494     {
5495       asection *srel;
5496
5497       if (ppc_elf_hash_entry (h)->has_sda_refs)
5498         srel = htab->relsbss;
5499       else
5500         srel = htab->relbss;
5501       BFD_ASSERT (srel != NULL);
5502       srel->size += sizeof (Elf32_External_Rela);
5503       h->needs_copy = 1;
5504     }
5505
5506   return _bfd_elf_adjust_dynamic_copy (h, s);
5507 }
5508 \f
5509 /* Generate a symbol to mark plt call stubs.  For non-PIC code the sym is
5510    xxxxxxxx.plt_call32.<callee> where xxxxxxxx is a hex number, usually 0,
5511    specifying the addend on the plt relocation.  For -fpic code, the sym
5512    is xxxxxxxx.plt_pic32.<callee>, and for -fPIC
5513    xxxxxxxx.got2.plt_pic32.<callee>.  */
5514
5515 static bfd_boolean
5516 add_stub_sym (struct plt_entry *ent,
5517               struct elf_link_hash_entry *h,
5518               struct bfd_link_info *info)
5519 {
5520   struct elf_link_hash_entry *sh;
5521   size_t len1, len2, len3;
5522   char *name;
5523   const char *stub;
5524   struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
5525
5526   if (info->shared)
5527     stub = ".plt_pic32.";
5528   else
5529     stub = ".plt_call32.";
5530
5531   len1 = strlen (h->root.root.string);
5532   len2 = strlen (stub);
5533   len3 = 0;
5534   if (ent->sec)
5535     len3 = strlen (ent->sec->name);
5536   name = bfd_malloc (len1 + len2 + len3 + 9);
5537   if (name == NULL)
5538     return FALSE;
5539   sprintf (name, "%08x", (unsigned) ent->addend & 0xffffffff);
5540   if (ent->sec)
5541     memcpy (name + 8, ent->sec->name, len3);
5542   memcpy (name + 8 + len3, stub, len2);
5543   memcpy (name + 8 + len3 + len2, h->root.root.string, len1 + 1);
5544   sh = elf_link_hash_lookup (&htab->elf, name, TRUE, FALSE, FALSE);
5545   if (sh == NULL)
5546     return FALSE;
5547   if (sh->root.type == bfd_link_hash_new)
5548     {
5549       sh->root.type = bfd_link_hash_defined;
5550       sh->root.u.def.section = htab->glink;
5551       sh->root.u.def.value = ent->glink_offset;
5552       sh->ref_regular = 1;
5553       sh->def_regular = 1;
5554       sh->ref_regular_nonweak = 1;
5555       sh->forced_local = 1;
5556       sh->non_elf = 0;
5557     }
5558   return TRUE;
5559 }
5560
5561 /* Allocate NEED contiguous space in .got, and return the offset.
5562    Handles allocation of the got header when crossing 32k.  */
5563
5564 static bfd_vma
5565 allocate_got (struct ppc_elf_link_hash_table *htab, unsigned int need)
5566 {
5567   bfd_vma where;
5568   unsigned int max_before_header;
5569
5570   if (htab->plt_type == PLT_VXWORKS)
5571     {
5572       where = htab->got->size;
5573       htab->got->size += need;
5574     }
5575   else
5576     {
5577       max_before_header = htab->plt_type == PLT_NEW ? 32768 : 32764;
5578       if (need <= htab->got_gap)
5579         {
5580           where = max_before_header - htab->got_gap;
5581           htab->got_gap -= need;
5582         }
5583       else
5584         {
5585           if (htab->got->size + need > max_before_header
5586               && htab->got->size <= max_before_header)
5587             {
5588               htab->got_gap = max_before_header - htab->got->size;
5589               htab->got->size = max_before_header + htab->got_header_size;
5590             }
5591           where = htab->got->size;
5592           htab->got->size += need;
5593         }
5594     }
5595   return where;
5596 }
5597
5598 /* Allocate space in associated reloc sections for dynamic relocs.  */
5599
5600 static bfd_boolean
5601 allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
5602 {
5603   struct bfd_link_info *info = inf;
5604   struct ppc_elf_link_hash_entry *eh;
5605   struct ppc_elf_link_hash_table *htab;
5606   struct elf_dyn_relocs *p;
5607
5608   if (h->root.type == bfd_link_hash_indirect)
5609     return TRUE;
5610
5611   htab = ppc_elf_hash_table (info);
5612   if (htab->elf.dynamic_sections_created
5613       || h->type == STT_GNU_IFUNC)
5614     {
5615       struct plt_entry *ent;
5616       bfd_boolean doneone = FALSE;
5617       bfd_vma plt_offset = 0, glink_offset = 0;
5618       bfd_boolean dyn;
5619
5620       for (ent = h->plt.plist; ent != NULL; ent = ent->next)
5621         if (ent->plt.refcount > 0)
5622           {
5623             /* Make sure this symbol is output as a dynamic symbol.  */
5624             if (h->dynindx == -1
5625                 && !h->forced_local
5626                 && !h->def_regular
5627                 && htab->elf.dynamic_sections_created)
5628               {
5629                 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5630                   return FALSE;
5631               }
5632
5633             dyn = htab->elf.dynamic_sections_created;
5634             if (info->shared
5635                 || h->type == STT_GNU_IFUNC
5636                 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h))
5637               {
5638                 asection *s = htab->plt;
5639                 if (!dyn || h->dynindx == -1)
5640                   s = htab->iplt;
5641
5642                 if (htab->plt_type == PLT_NEW || !dyn || h->dynindx == -1)
5643                   {
5644                     if (!doneone)
5645                       {
5646                         plt_offset = s->size;
5647                         s->size += 4;
5648                       }
5649                     ent->plt.offset = plt_offset;
5650
5651                     s = htab->glink;
5652                     if (!doneone || info->shared)
5653                       {
5654                         glink_offset = s->size;
5655                         s->size += GLINK_ENTRY_SIZE;
5656                         if (h == htab->tls_get_addr
5657                             && !htab->no_tls_get_addr_opt)
5658                           s->size += TLS_GET_ADDR_GLINK_SIZE - GLINK_ENTRY_SIZE;
5659                       }
5660                     if (!doneone
5661                         && !info->shared
5662                         && h->def_dynamic
5663                         && !h->def_regular)
5664                       {
5665                         h->root.u.def.section = s;
5666                         h->root.u.def.value = glink_offset;
5667                       }
5668                     ent->glink_offset = glink_offset;
5669
5670                     if (htab->emit_stub_syms
5671                         && !add_stub_sym (ent, h, info))
5672                       return FALSE;
5673                   }
5674                 else
5675                   {
5676                     if (!doneone)
5677                       {
5678                         /* If this is the first .plt entry, make room
5679                            for the special first entry.  */
5680                         if (s->size == 0)
5681                           s->size += htab->plt_initial_entry_size;
5682
5683                         /* The PowerPC PLT is actually composed of two
5684                            parts, the first part is 2 words (for a load
5685                            and a jump), and then there is a remaining
5686                            word available at the end.  */
5687                         plt_offset = (htab->plt_initial_entry_size
5688                                       + (htab->plt_slot_size
5689                                          * ((s->size
5690                                              - htab->plt_initial_entry_size)
5691                                             / htab->plt_entry_size)));
5692
5693                         /* If this symbol is not defined in a regular
5694                            file, and we are not generating a shared
5695                            library, then set the symbol to this location
5696                            in the .plt.  This is to avoid text
5697                            relocations, and is required to make
5698                            function pointers compare as equal between
5699                            the normal executable and the shared library.  */
5700                         if (! info->shared
5701                             && h->def_dynamic
5702                             && !h->def_regular)
5703                           {
5704                             h->root.u.def.section = s;
5705                             h->root.u.def.value = plt_offset;
5706                           }
5707
5708                         /* Make room for this entry.  */
5709                         s->size += htab->plt_entry_size;
5710                         /* After the 8192nd entry, room for two entries
5711                            is allocated.  */
5712                         if (htab->plt_type == PLT_OLD
5713                             && (s->size - htab->plt_initial_entry_size)
5714                                 / htab->plt_entry_size
5715                                > PLT_NUM_SINGLE_ENTRIES)
5716                           s->size += htab->plt_entry_size;
5717                       }
5718                     ent->plt.offset = plt_offset;
5719                   }
5720
5721                 /* We also need to make an entry in the .rela.plt section.  */
5722                 if (!doneone)
5723                   {
5724                     if (!htab->elf.dynamic_sections_created
5725                         || h->dynindx == -1)
5726                       htab->reliplt->size += sizeof (Elf32_External_Rela);
5727                     else
5728                       {
5729                         htab->relplt->size += sizeof (Elf32_External_Rela);
5730
5731                         if (htab->plt_type == PLT_VXWORKS)
5732                           {
5733                             /* Allocate space for the unloaded relocations.  */
5734                             if (!info->shared
5735                                 && htab->elf.dynamic_sections_created)
5736                               {
5737                                 if (ent->plt.offset
5738                                     == (bfd_vma) htab->plt_initial_entry_size)
5739                                   {
5740                                     htab->srelplt2->size
5741                                       += (sizeof (Elf32_External_Rela)
5742                                           * VXWORKS_PLTRESOLVE_RELOCS);
5743                                   }
5744
5745                                 htab->srelplt2->size
5746                                   += (sizeof (Elf32_External_Rela)
5747                                       * VXWORKS_PLT_NON_JMP_SLOT_RELOCS);
5748                               }
5749
5750                             /* Every PLT entry has an associated GOT entry in
5751                                .got.plt.  */
5752                             htab->sgotplt->size += 4;
5753                           }
5754                       }
5755                     doneone = TRUE;
5756                   }
5757               }
5758             else
5759               ent->plt.offset = (bfd_vma) -1;
5760           }
5761         else
5762           ent->plt.offset = (bfd_vma) -1;
5763
5764       if (!doneone)
5765         {
5766           h->plt.plist = NULL;
5767           h->needs_plt = 0;
5768         }
5769     }
5770   else
5771     {
5772       h->plt.plist = NULL;
5773       h->needs_plt = 0;
5774     }
5775
5776   eh = (struct ppc_elf_link_hash_entry *) h;
5777   if (eh->elf.got.refcount > 0)
5778     {
5779       bfd_boolean dyn;
5780       unsigned int need;
5781
5782       /* Make sure this symbol is output as a dynamic symbol.  */
5783       if (eh->elf.dynindx == -1
5784           && !eh->elf.forced_local
5785           && eh->elf.type != STT_GNU_IFUNC
5786           && htab->elf.dynamic_sections_created)
5787         {
5788           if (!bfd_elf_link_record_dynamic_symbol (info, &eh->elf))
5789             return FALSE;
5790         }
5791
5792       need = 0;
5793       if ((eh->tls_mask & TLS_TLS) != 0)
5794         {
5795           if ((eh->tls_mask & TLS_LD) != 0)
5796             {
5797               if (!eh->elf.def_dynamic)
5798                 /* We'll just use htab->tlsld_got.offset.  This should
5799                    always be the case.  It's a little odd if we have
5800                    a local dynamic reloc against a non-local symbol.  */
5801                 htab->tlsld_got.refcount += 1;
5802               else
5803                 need += 8;
5804             }
5805           if ((eh->tls_mask & TLS_GD) != 0)
5806             need += 8;
5807           if ((eh->tls_mask & (TLS_TPREL | TLS_TPRELGD)) != 0)
5808             need += 4;
5809           if ((eh->tls_mask & TLS_DTPREL) != 0)
5810             need += 4;
5811         }
5812       else
5813         need += 4;
5814       if (need == 0)
5815         eh->elf.got.offset = (bfd_vma) -1;
5816       else
5817         {
5818           eh->elf.got.offset = allocate_got (htab, need);
5819           dyn = htab->elf.dynamic_sections_created;
5820           if ((info->shared
5821                || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, &eh->elf))
5822               && (ELF_ST_VISIBILITY (eh->elf.other) == STV_DEFAULT
5823                   || eh->elf.root.type != bfd_link_hash_undefweak))
5824             {
5825               asection *rsec = htab->relgot;
5826               /* All the entries we allocated need relocs.
5827                  Except LD only needs one.  */
5828               if ((eh->tls_mask & TLS_LD) != 0
5829                   && eh->elf.def_dynamic)
5830                 need -= 4;
5831               rsec->size += need * (sizeof (Elf32_External_Rela) / 4);
5832             }
5833         }
5834     }
5835   else
5836     eh->elf.got.offset = (bfd_vma) -1;
5837
5838   if (eh->dyn_relocs == NULL
5839       || !htab->elf.dynamic_sections_created)
5840     return TRUE;
5841
5842   /* In the shared -Bsymbolic case, discard space allocated for
5843      dynamic pc-relative relocs against symbols which turn out to be
5844      defined in regular objects.  For the normal shared case, discard
5845      space for relocs that have become local due to symbol visibility
5846      changes.  */
5847
5848   if (info->shared)
5849     {
5850       /* Relocs that use pc_count are those that appear on a call insn,
5851          or certain REL relocs (see must_be_dyn_reloc) that can be
5852          generated via assembly.  We want calls to protected symbols to
5853          resolve directly to the function rather than going via the plt.
5854          If people want function pointer comparisons to work as expected
5855          then they should avoid writing weird assembly.  */
5856       if (SYMBOL_CALLS_LOCAL (info, h))
5857         {
5858           struct elf_dyn_relocs **pp;
5859
5860           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
5861             {
5862               p->count -= p->pc_count;
5863               p->pc_count = 0;
5864               if (p->count == 0)
5865                 *pp = p->next;
5866               else
5867                 pp = &p->next;
5868             }
5869         }
5870
5871       if (htab->is_vxworks)
5872         {
5873           struct elf_dyn_relocs **pp;
5874
5875           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
5876             {
5877               if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
5878                 *pp = p->next;
5879               else
5880                 pp = &p->next;
5881             }
5882         }
5883
5884       /* Discard relocs on undefined symbols that must be local.  */
5885       if (eh->dyn_relocs != NULL
5886           && h->root.type == bfd_link_hash_undefined
5887           && (ELF_ST_VISIBILITY (h->other) == STV_HIDDEN
5888               || ELF_ST_VISIBILITY (h->other) == STV_INTERNAL))
5889         eh->dyn_relocs = NULL;
5890
5891       /* Also discard relocs on undefined weak syms with non-default
5892          visibility.  */
5893       if (eh->dyn_relocs != NULL
5894           && h->root.type == bfd_link_hash_undefweak)
5895         {
5896           if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
5897             eh->dyn_relocs = NULL;
5898
5899           /* Make sure undefined weak symbols are output as a dynamic
5900              symbol in PIEs.  */
5901           else if (h->dynindx == -1
5902                    && !h->forced_local
5903                    && !h->def_regular)
5904             {
5905               if (! bfd_elf_link_record_dynamic_symbol (info, h))
5906                 return FALSE;
5907             }
5908         }
5909     }
5910   else if (ELIMINATE_COPY_RELOCS)
5911     {
5912       /* For the non-shared case, discard space for relocs against
5913          symbols which turn out to need copy relocs or are not
5914          dynamic.  */
5915
5916       if (!h->non_got_ref
5917           && !h->def_regular)
5918         {
5919           /* Make sure this symbol is output as a dynamic symbol.
5920              Undefined weak syms won't yet be marked as dynamic.  */
5921           if (h->dynindx == -1
5922               && !h->forced_local)
5923             {
5924               if (! bfd_elf_link_record_dynamic_symbol (info, h))
5925                 return FALSE;
5926             }
5927
5928           /* If that succeeded, we know we'll be keeping all the
5929              relocs.  */
5930           if (h->dynindx != -1)
5931             goto keep;
5932         }
5933
5934       eh->dyn_relocs = NULL;
5935
5936     keep: ;
5937     }
5938
5939   /* Finally, allocate space.  */
5940   for (p = eh->dyn_relocs; p != NULL; p = p->next)
5941     {
5942       asection *sreloc = elf_section_data (p->sec)->sreloc;
5943       if (!htab->elf.dynamic_sections_created)
5944         sreloc = htab->reliplt;
5945       sreloc->size += p->count * sizeof (Elf32_External_Rela);
5946     }
5947
5948   return TRUE;
5949 }
5950
5951 /* Set DF_TEXTREL if we find any dynamic relocs that apply to
5952    read-only sections.  */
5953
5954 static bfd_boolean
5955 maybe_set_textrel (struct elf_link_hash_entry *h, void *info)
5956 {
5957   if (h->root.type == bfd_link_hash_indirect)
5958     return TRUE;
5959
5960   if (readonly_dynrelocs (h))
5961     {
5962       ((struct bfd_link_info *) info)->flags |= DF_TEXTREL;
5963
5964       /* Not an error, just cut short the traversal.  */
5965       return FALSE;
5966     }
5967   return TRUE;
5968 }
5969
5970 static const unsigned char glink_eh_frame_cie[] =
5971 {
5972   0, 0, 0, 16,                          /* length.  */
5973   0, 0, 0, 0,                           /* id.  */
5974   1,                                    /* CIE version.  */
5975   'z', 'R', 0,                          /* Augmentation string.  */
5976   4,                                    /* Code alignment.  */
5977   0x7c,                                 /* Data alignment.  */
5978   65,                                   /* RA reg.  */
5979   1,                                    /* Augmentation size.  */
5980   DW_EH_PE_pcrel | DW_EH_PE_sdata4,     /* FDE encoding.  */
5981   DW_CFA_def_cfa, 1, 0                  /* def_cfa: r1 offset 0.  */
5982 };
5983
5984 /* Set the sizes of the dynamic sections.  */
5985
5986 static bfd_boolean
5987 ppc_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
5988                                struct bfd_link_info *info)
5989 {
5990   struct ppc_elf_link_hash_table *htab;
5991   asection *s;
5992   bfd_boolean relocs;
5993   bfd *ibfd;
5994
5995 #ifdef DEBUG
5996   fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
5997 #endif
5998
5999   htab = ppc_elf_hash_table (info);
6000   BFD_ASSERT (htab->elf.dynobj != NULL);
6001
6002   if (elf_hash_table (info)->dynamic_sections_created)
6003     {
6004       /* Set the contents of the .interp section to the interpreter.  */
6005       if (info->executable)
6006         {
6007           s = bfd_get_section_by_name (htab->elf.dynobj, ".interp");
6008           BFD_ASSERT (s != NULL);
6009           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
6010           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
6011         }
6012     }
6013
6014   if (htab->plt_type == PLT_OLD)
6015     htab->got_header_size = 16;
6016   else if (htab->plt_type == PLT_NEW)
6017     htab->got_header_size = 12;
6018
6019   /* Set up .got offsets for local syms, and space for local dynamic
6020      relocs.  */
6021   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
6022     {
6023       bfd_signed_vma *local_got;
6024       bfd_signed_vma *end_local_got;
6025       struct plt_entry **local_plt;
6026       struct plt_entry **end_local_plt;
6027       char *lgot_masks;
6028       bfd_size_type locsymcount;
6029       Elf_Internal_Shdr *symtab_hdr;
6030
6031       if (!is_ppc_elf (ibfd))
6032         continue;
6033
6034       for (s = ibfd->sections; s != NULL; s = s->next)
6035         {
6036           struct elf_dyn_relocs *p;
6037
6038           for (p = ((struct elf_dyn_relocs *)
6039                     elf_section_data (s)->local_dynrel);
6040                p != NULL;
6041                p = p->next)
6042             {
6043               if (!bfd_is_abs_section (p->sec)
6044                   && bfd_is_abs_section (p->sec->output_section))
6045                 {
6046                   /* Input section has been discarded, either because
6047                      it is a copy of a linkonce section or due to
6048                      linker script /DISCARD/, so we'll be discarding
6049                      the relocs too.  */
6050                 }
6051               else if (htab->is_vxworks
6052                        && strcmp (p->sec->output_section->name,
6053                                   ".tls_vars") == 0)
6054                 {
6055                   /* Relocations in vxworks .tls_vars sections are
6056                      handled specially by the loader.  */
6057                 }
6058               else if (p->count != 0)
6059                 {
6060                   asection *sreloc = elf_section_data (p->sec)->sreloc;
6061                   if (!htab->elf.dynamic_sections_created)
6062                     sreloc = htab->reliplt;
6063                   sreloc->size += p->count * sizeof (Elf32_External_Rela);
6064                   if ((p->sec->output_section->flags
6065                        & (SEC_READONLY | SEC_ALLOC))
6066                       == (SEC_READONLY | SEC_ALLOC))
6067                     info->flags |= DF_TEXTREL;
6068                 }
6069             }
6070         }
6071
6072       local_got = elf_local_got_refcounts (ibfd);
6073       if (!local_got)
6074         continue;
6075
6076       symtab_hdr = &elf_symtab_hdr (ibfd);
6077       locsymcount = symtab_hdr->sh_info;
6078       end_local_got = local_got + locsymcount;
6079       local_plt = (struct plt_entry **) end_local_got;
6080       end_local_plt = local_plt + locsymcount;
6081       lgot_masks = (char *) end_local_plt;
6082
6083       for (; local_got < end_local_got; ++local_got, ++lgot_masks)
6084         if (*local_got > 0)
6085           {
6086             unsigned int need = 0;
6087             if ((*lgot_masks & TLS_TLS) != 0)
6088               {
6089                 if ((*lgot_masks & TLS_GD) != 0)
6090                   need += 8;
6091                 if ((*lgot_masks & TLS_LD) != 0)
6092                   htab->tlsld_got.refcount += 1;
6093                 if ((*lgot_masks & (TLS_TPREL | TLS_TPRELGD)) != 0)
6094                   need += 4;
6095                 if ((*lgot_masks & TLS_DTPREL) != 0)
6096                   need += 4;
6097               }
6098             else
6099               need += 4;
6100             if (need == 0)
6101               *local_got = (bfd_vma) -1;
6102             else
6103               {
6104                 *local_got = allocate_got (htab, need);
6105                 if (info->shared)
6106                   htab->relgot->size += (need
6107                                          * (sizeof (Elf32_External_Rela) / 4));
6108               }
6109           }
6110         else
6111           *local_got = (bfd_vma) -1;
6112
6113       if (htab->is_vxworks)
6114         continue;
6115
6116       /* Allocate space for calls to local STT_GNU_IFUNC syms in .iplt.  */
6117       for (; local_plt < end_local_plt; ++local_plt)
6118         {
6119           struct plt_entry *ent;
6120           bfd_boolean doneone = FALSE;
6121           bfd_vma plt_offset = 0, glink_offset = 0;
6122
6123           for (ent = *local_plt; ent != NULL; ent = ent->next)
6124             if (ent->plt.refcount > 0)
6125               {
6126                 s = htab->iplt;
6127
6128                 if (!doneone)
6129                   {
6130                     plt_offset = s->size;
6131                     s->size += 4;
6132                   }
6133                 ent->plt.offset = plt_offset;
6134
6135                 s = htab->glink;
6136                 if (!doneone || info->shared)
6137                   {
6138                     glink_offset = s->size;
6139                     s->size += GLINK_ENTRY_SIZE;
6140                   }
6141                 ent->glink_offset = glink_offset;
6142
6143                 if (!doneone)
6144                   {
6145                     htab->reliplt->size += sizeof (Elf32_External_Rela);
6146                     doneone = TRUE;
6147                   }
6148               }
6149             else
6150               ent->plt.offset = (bfd_vma) -1;
6151         }
6152     }
6153
6154   /* Allocate space for global sym dynamic relocs.  */
6155   elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
6156
6157   if (htab->tlsld_got.refcount > 0)
6158     {
6159       htab->tlsld_got.offset = allocate_got (htab, 8);
6160       if (info->shared)
6161         htab->relgot->size += sizeof (Elf32_External_Rela);
6162     }
6163   else
6164     htab->tlsld_got.offset = (bfd_vma) -1;
6165
6166   if (htab->got != NULL && htab->plt_type != PLT_VXWORKS)
6167     {
6168       unsigned int g_o_t = 32768;
6169
6170       /* If we haven't allocated the header, do so now.  When we get here,
6171          for old plt/got the got size will be 0 to 32764 (not allocated),
6172          or 32780 to 65536 (header allocated).  For new plt/got, the
6173          corresponding ranges are 0 to 32768 and 32780 to 65536.  */
6174       if (htab->got->size <= 32768)
6175         {
6176           g_o_t = htab->got->size;
6177           if (htab->plt_type == PLT_OLD)
6178             g_o_t += 4;
6179           htab->got->size += htab->got_header_size;
6180         }
6181
6182       htab->elf.hgot->root.u.def.value = g_o_t;
6183     }
6184   if (info->shared)
6185     {
6186       struct elf_link_hash_entry *sda = htab->sdata[0].sym;
6187       if (sda != NULL
6188           && !(sda->root.type == bfd_link_hash_defined
6189                || sda->root.type == bfd_link_hash_defweak))
6190         {
6191           sda->root.type = bfd_link_hash_defined;
6192           sda->root.u.def.section = htab->elf.hgot->root.u.def.section;
6193           sda->root.u.def.value = htab->elf.hgot->root.u.def.value;
6194         }
6195     }
6196
6197   if (htab->glink != NULL
6198       && htab->glink->size != 0
6199       && htab->elf.dynamic_sections_created)
6200     {
6201       htab->glink_pltresolve = htab->glink->size;
6202       /* Space for the branch table.  */
6203       htab->glink->size += htab->glink->size / (GLINK_ENTRY_SIZE / 4) - 4;
6204       /* Pad out to align the start of PLTresolve.  */
6205       htab->glink->size += -htab->glink->size & 15;
6206       htab->glink->size += GLINK_PLTRESOLVE;
6207
6208       if (htab->emit_stub_syms)
6209         {
6210           struct elf_link_hash_entry *sh;
6211           sh = elf_link_hash_lookup (&htab->elf, "__glink",
6212                                      TRUE, FALSE, FALSE);
6213           if (sh == NULL)
6214             return FALSE;
6215           if (sh->root.type == bfd_link_hash_new)
6216             {
6217               sh->root.type = bfd_link_hash_defined;
6218               sh->root.u.def.section = htab->glink;
6219               sh->root.u.def.value = htab->glink_pltresolve;
6220               sh->ref_regular = 1;
6221               sh->def_regular = 1;
6222               sh->ref_regular_nonweak = 1;
6223               sh->forced_local = 1;
6224               sh->non_elf = 0;
6225             }
6226           sh = elf_link_hash_lookup (&htab->elf, "__glink_PLTresolve",
6227                                      TRUE, FALSE, FALSE);
6228           if (sh == NULL)
6229             return FALSE;
6230           if (sh->root.type == bfd_link_hash_new)
6231             {
6232               sh->root.type = bfd_link_hash_defined;
6233               sh->root.u.def.section = htab->glink;
6234               sh->root.u.def.value = htab->glink->size - GLINK_PLTRESOLVE;
6235               sh->ref_regular = 1;
6236               sh->def_regular = 1;
6237               sh->ref_regular_nonweak = 1;
6238               sh->forced_local = 1;
6239               sh->non_elf = 0;
6240             }
6241         }
6242     }
6243
6244   if (htab->glink != NULL
6245       && htab->glink->size != 0
6246       && htab->glink_eh_frame != NULL
6247       && !bfd_is_abs_section (htab->glink_eh_frame->output_section))
6248     {
6249       s = htab->glink_eh_frame;
6250       s->size = sizeof (glink_eh_frame_cie) + 20;
6251       if (info->shared)
6252         {
6253           s->size += 4;
6254           if (htab->glink->size - GLINK_PLTRESOLVE + 8 >= 256)
6255             s->size += 4;
6256         }
6257     }
6258
6259   /* We've now determined the sizes of the various dynamic sections.
6260      Allocate memory for them.  */
6261   relocs = FALSE;
6262   for (s = htab->elf.dynobj->sections; s != NULL; s = s->next)
6263     {
6264       bfd_boolean strip_section = TRUE;
6265
6266       if ((s->flags & SEC_LINKER_CREATED) == 0)
6267         continue;
6268
6269       if (s == htab->plt
6270           || s == htab->got)
6271         {
6272           /* We'd like to strip these sections if they aren't needed, but if
6273              we've exported dynamic symbols from them we must leave them.
6274              It's too late to tell BFD to get rid of the symbols.  */
6275           if (htab->elf.hplt != NULL)
6276             strip_section = FALSE;
6277           /* Strip this section if we don't need it; see the
6278              comment below.  */
6279         }
6280       else if (s == htab->iplt
6281                || s == htab->glink
6282                || s == htab->glink_eh_frame
6283                || s == htab->sgotplt
6284                || s == htab->sbss
6285                || s == htab->dynbss
6286                || s == htab->dynsbss
6287                || s == htab->sdata[0].section
6288                || s == htab->sdata[1].section)
6289         {
6290           /* Strip these too.  */
6291         }
6292       else if (CONST_STRNEQ (bfd_get_section_name (htab->elf.dynobj, s),
6293                              ".rela"))
6294         {
6295           if (s->size != 0)
6296             {
6297               /* Remember whether there are any relocation sections.  */
6298               relocs = TRUE;
6299
6300               /* We use the reloc_count field as a counter if we need
6301                  to copy relocs into the output file.  */
6302               s->reloc_count = 0;
6303             }
6304         }
6305       else
6306         {
6307           /* It's not one of our sections, so don't allocate space.  */
6308           continue;
6309         }
6310
6311       if (s->size == 0 && strip_section)
6312         {
6313           /* If we don't need this section, strip it from the
6314              output file.  This is mostly to handle .rela.bss and
6315              .rela.plt.  We must create both sections in
6316              create_dynamic_sections, because they must be created
6317              before the linker maps input sections to output
6318              sections.  The linker does that before
6319              adjust_dynamic_symbol is called, and it is that
6320              function which decides whether anything needs to go
6321              into these sections.  */
6322           s->flags |= SEC_EXCLUDE;
6323           continue;
6324         }
6325
6326       if ((s->flags & SEC_HAS_CONTENTS) == 0)
6327         continue;
6328
6329       /* Allocate memory for the section contents.  */
6330       s->contents = bfd_zalloc (htab->elf.dynobj, s->size);
6331       if (s->contents == NULL)
6332         return FALSE;
6333     }
6334
6335   if (htab->elf.dynamic_sections_created)
6336     {
6337       /* Add some entries to the .dynamic section.  We fill in the
6338          values later, in ppc_elf_finish_dynamic_sections, but we
6339          must add the entries now so that we get the correct size for
6340          the .dynamic section.  The DT_DEBUG entry is filled in by the
6341          dynamic linker and used by the debugger.  */
6342 #define add_dynamic_entry(TAG, VAL) \
6343   _bfd_elf_add_dynamic_entry (info, TAG, VAL)
6344
6345       if (info->executable)
6346         {
6347           if (!add_dynamic_entry (DT_DEBUG, 0))
6348             return FALSE;
6349         }
6350
6351       if (htab->plt != NULL && htab->plt->size != 0)
6352         {
6353           if (!add_dynamic_entry (DT_PLTGOT, 0)
6354               || !add_dynamic_entry (DT_PLTRELSZ, 0)
6355               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
6356               || !add_dynamic_entry (DT_JMPREL, 0))
6357             return FALSE;
6358         }
6359
6360       if (htab->glink != NULL && htab->glink->size != 0)
6361         {
6362           if (!add_dynamic_entry (DT_PPC_GOT, 0))
6363             return FALSE;
6364           if (!htab->no_tls_get_addr_opt
6365               && htab->tls_get_addr != NULL
6366               && htab->tls_get_addr->plt.plist != NULL
6367               && !add_dynamic_entry (DT_PPC_TLSOPT, 0))
6368             return FALSE;
6369         }
6370
6371       if (relocs)
6372         {
6373           if (!add_dynamic_entry (DT_RELA, 0)
6374               || !add_dynamic_entry (DT_RELASZ, 0)
6375               || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
6376             return FALSE;
6377         }
6378
6379       /* If any dynamic relocs apply to a read-only section, then we
6380          need a DT_TEXTREL entry.  */
6381       if ((info->flags & DF_TEXTREL) == 0)
6382         elf_link_hash_traverse (elf_hash_table (info), maybe_set_textrel,
6383                                 info);
6384
6385       if ((info->flags & DF_TEXTREL) != 0)
6386         {
6387           if (!add_dynamic_entry (DT_TEXTREL, 0))
6388             return FALSE;
6389         }
6390       if (htab->is_vxworks
6391           && !elf_vxworks_add_dynamic_entries (output_bfd, info))
6392         return FALSE;
6393    }
6394 #undef add_dynamic_entry
6395
6396   return TRUE;
6397 }
6398
6399 /* Return TRUE if symbol should be hashed in the `.gnu.hash' section.  */
6400
6401 static bfd_boolean
6402 ppc_elf_hash_symbol (struct elf_link_hash_entry *h)
6403 {
6404   if (h->plt.plist != NULL
6405       && !h->def_regular
6406       && (!h->pointer_equality_needed
6407           || !h->ref_regular_nonweak))
6408     return FALSE;
6409
6410   return _bfd_elf_hash_symbol (h);
6411 }
6412 \f
6413 #define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
6414
6415 /* Relaxation trampolines.  r12 is available for clobbering (r11, is
6416    used for some functions that are allowed to break the ABI).  */
6417 static const int shared_stub_entry[] =
6418   {
6419     0x7c0802a6, /* mflr 0 */
6420     0x429f0005, /* bcl 20, 31, .Lxxx */
6421     0x7d8802a6, /* mflr 12 */
6422     0x3d8c0000, /* addis 12, 12, (xxx-.Lxxx)@ha */
6423     0x398c0008, /* addi 12, 12, (xxx-.Lxxx)@l */
6424     0x7c0803a6, /* mtlr 0 */
6425     0x7d8903a6, /* mtctr 12 */
6426     0x4e800420, /* bctr */
6427   };
6428
6429 static const int stub_entry[] =
6430   {
6431     0x3d800000, /* lis 12,xxx@ha */
6432     0x398c0000, /* addi 12,12,xxx@l */
6433     0x7d8903a6, /* mtctr 12 */
6434     0x4e800420, /* bctr */
6435   };
6436
6437 static bfd_boolean
6438 ppc_elf_relax_section (bfd *abfd,
6439                        asection *isec,
6440                        struct bfd_link_info *link_info,
6441                        bfd_boolean *again)
6442 {
6443   struct one_fixup
6444   {
6445     struct one_fixup *next;
6446     asection *tsec;
6447     /* Final link, can use the symbol offset.  For a
6448        relocatable link we use the symbol's index.  */
6449     bfd_vma toff;
6450     bfd_vma trampoff;
6451   };
6452
6453   Elf_Internal_Shdr *symtab_hdr;
6454   bfd_byte *contents = NULL;
6455   Elf_Internal_Sym *isymbuf = NULL;
6456   Elf_Internal_Rela *internal_relocs = NULL;
6457   Elf_Internal_Rela *irel, *irelend;
6458   struct one_fixup *fixups = NULL;
6459   unsigned changes = 0;
6460   struct ppc_elf_link_hash_table *htab;
6461   bfd_size_type trampoff;
6462   asection *got2;
6463   bfd_boolean maybe_pasted;
6464
6465   *again = FALSE;
6466
6467   /* Nothing to do if there are no relocations, and no need to do
6468      anything with non-alloc or non-code sections.  */
6469   if ((isec->flags & SEC_ALLOC) == 0
6470       || (isec->flags & SEC_CODE) == 0
6471       || (isec->flags & SEC_RELOC) == 0
6472       || isec->reloc_count == 0)
6473     return TRUE;
6474
6475   /* We cannot represent the required PIC relocs in the output, so don't
6476      do anything.  The linker doesn't support mixing -shared and -r
6477      anyway.  */
6478   if (link_info->relocatable && link_info->shared)
6479      return TRUE;
6480
6481   trampoff = (isec->size + 3) & (bfd_vma) -4;
6482   maybe_pasted = (strcmp (isec->output_section->name, ".init") == 0
6483                   || strcmp (isec->output_section->name, ".fini") == 0);
6484   /* Space for a branch around any trampolines.  */
6485   if (maybe_pasted)
6486     trampoff += 4;
6487
6488   symtab_hdr = &elf_symtab_hdr (abfd);
6489
6490   /* Get a copy of the native relocations.  */
6491   internal_relocs = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL,
6492                                                link_info->keep_memory);
6493   if (internal_relocs == NULL)
6494     goto error_return;
6495
6496   htab = ppc_elf_hash_table (link_info);
6497   got2 = bfd_get_section_by_name (abfd, ".got2");
6498
6499   irelend = internal_relocs + isec->reloc_count;
6500   for (irel = internal_relocs; irel < irelend; irel++)
6501     {
6502       unsigned long r_type = ELF32_R_TYPE (irel->r_info);
6503       bfd_vma toff, roff;
6504       asection *tsec;
6505       struct one_fixup *f;
6506       size_t insn_offset = 0;
6507       bfd_vma max_branch_offset, val;
6508       bfd_byte *hit_addr;
6509       unsigned long t0;
6510       struct elf_link_hash_entry *h;
6511       struct plt_entry **plist;
6512       unsigned char sym_type;
6513
6514       switch (r_type)
6515         {
6516         case R_PPC_REL24:
6517         case R_PPC_LOCAL24PC:
6518         case R_PPC_PLTREL24:
6519           max_branch_offset = 1 << 25;
6520           break;
6521
6522         case R_PPC_REL14:
6523         case R_PPC_REL14_BRTAKEN:
6524         case R_PPC_REL14_BRNTAKEN:
6525           max_branch_offset = 1 << 15;
6526           break;
6527
6528         default:
6529           continue;
6530         }
6531
6532       /* Get the value of the symbol referred to by the reloc.  */
6533       h = NULL;
6534       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
6535         {
6536           /* A local symbol.  */
6537           Elf_Internal_Sym *isym;
6538
6539           /* Read this BFD's local symbols.  */
6540           if (isymbuf == NULL)
6541             {
6542               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
6543               if (isymbuf == NULL)
6544                 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
6545                                                 symtab_hdr->sh_info, 0,
6546                                                 NULL, NULL, NULL);
6547               if (isymbuf == 0)
6548                 goto error_return;
6549             }
6550           isym = isymbuf + ELF32_R_SYM (irel->r_info);
6551           if (isym->st_shndx == SHN_UNDEF)
6552             tsec = bfd_und_section_ptr;
6553           else if (isym->st_shndx == SHN_ABS)
6554             tsec = bfd_abs_section_ptr;
6555           else if (isym->st_shndx == SHN_COMMON)
6556             tsec = bfd_com_section_ptr;
6557           else
6558             tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
6559
6560           toff = isym->st_value;
6561           sym_type = ELF_ST_TYPE (isym->st_info);
6562         }
6563       else
6564         {
6565           /* Global symbol handling.  */
6566           unsigned long indx;
6567
6568           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
6569           h = elf_sym_hashes (abfd)[indx];
6570
6571           while (h->root.type == bfd_link_hash_indirect
6572                  || h->root.type == bfd_link_hash_warning)
6573             h = (struct elf_link_hash_entry *) h->root.u.i.link;
6574
6575           if (h->root.type == bfd_link_hash_defined
6576               || h->root.type == bfd_link_hash_defweak)
6577             {
6578               tsec = h->root.u.def.section;
6579               toff = h->root.u.def.value;
6580             }
6581           else if (h->root.type == bfd_link_hash_undefined
6582                    || h->root.type == bfd_link_hash_undefweak)
6583             {
6584               tsec = bfd_und_section_ptr;
6585               toff = link_info->relocatable ? indx : 0;
6586             }
6587           else
6588             continue;
6589
6590           sym_type = h->type;
6591         }
6592
6593       /* The condition here under which we call find_plt_ent must
6594          match that in relocate_section.  If we call find_plt_ent here
6595          but not in relocate_section, or vice versa, then the branch
6596          destination used here may be incorrect.  */
6597       plist = NULL;
6598       if (h != NULL)
6599         {
6600           /* We know is_branch_reloc (r_type) is true.  */
6601           if (h->type == STT_GNU_IFUNC
6602               || r_type == R_PPC_PLTREL24)
6603             plist = &h->plt.plist;
6604         }
6605       else if (sym_type == STT_GNU_IFUNC
6606                && elf_local_got_offsets (abfd) != NULL)
6607         {
6608           bfd_vma *local_got_offsets = elf_local_got_offsets (abfd);
6609           struct plt_entry **local_plt = (struct plt_entry **)
6610             (local_got_offsets + symtab_hdr->sh_info);
6611           plist = local_plt + ELF32_R_SYM (irel->r_info);
6612         }
6613       if (plist != NULL)
6614         {
6615           bfd_vma addend = 0;
6616           struct plt_entry *ent;
6617
6618           if (r_type == R_PPC_PLTREL24 && link_info->shared)
6619             addend = irel->r_addend;
6620           ent = find_plt_ent (plist, got2, addend);
6621           if (ent != NULL)
6622             {
6623               if (htab->plt_type == PLT_NEW
6624                   || h == NULL
6625                   || !htab->elf.dynamic_sections_created
6626                   || h->dynindx == -1)
6627                 {
6628                   tsec = htab->glink;
6629                   toff = ent->glink_offset;
6630                 }
6631               else
6632                 {
6633                   tsec = htab->plt;
6634                   toff = ent->plt.offset;
6635                 }
6636             }
6637         }
6638
6639       /* If the branch and target are in the same section, you have
6640          no hope of adding stubs.  We'll error out later should the
6641          branch overflow.  */
6642       if (tsec == isec)
6643         continue;
6644
6645       /* There probably isn't any reason to handle symbols in
6646          SEC_MERGE sections;  SEC_MERGE doesn't seem a likely
6647          attribute for a code section, and we are only looking at
6648          branches.  However, implement it correctly here as a
6649          reference for other target relax_section functions.  */
6650       if (0 && tsec->sec_info_type == SEC_INFO_TYPE_MERGE)
6651         {
6652           /* At this stage in linking, no SEC_MERGE symbol has been
6653              adjusted, so all references to such symbols need to be
6654              passed through _bfd_merged_section_offset.  (Later, in
6655              relocate_section, all SEC_MERGE symbols *except* for
6656              section symbols have been adjusted.)
6657
6658              gas may reduce relocations against symbols in SEC_MERGE
6659              sections to a relocation against the section symbol when
6660              the original addend was zero.  When the reloc is against
6661              a section symbol we should include the addend in the
6662              offset passed to _bfd_merged_section_offset, since the
6663              location of interest is the original symbol.  On the
6664              other hand, an access to "sym+addend" where "sym" is not
6665              a section symbol should not include the addend;  Such an
6666              access is presumed to be an offset from "sym";  The
6667              location of interest is just "sym".  */
6668           if (sym_type == STT_SECTION)
6669             toff += irel->r_addend;
6670
6671           toff = _bfd_merged_section_offset (abfd, &tsec,
6672                                              elf_section_data (tsec)->sec_info,
6673                                              toff);
6674
6675           if (sym_type != STT_SECTION)
6676             toff += irel->r_addend;
6677         }
6678       /* PLTREL24 addends are special.  */
6679       else if (r_type != R_PPC_PLTREL24)
6680         toff += irel->r_addend;
6681
6682       /* Attempted -shared link of non-pic code loses.  */
6683       if (tsec->output_section == NULL)
6684         continue;
6685
6686       roff = irel->r_offset;
6687
6688       /* If the branch is in range, no need to do anything.  */
6689       if (tsec != bfd_und_section_ptr
6690           && (!link_info->relocatable
6691               /* A relocatable link may have sections moved during
6692                  final link, so do not presume they remain in range.  */
6693               || tsec->output_section == isec->output_section))
6694         {
6695           bfd_vma symaddr, reladdr;
6696
6697           symaddr = tsec->output_section->vma + tsec->output_offset + toff;
6698           reladdr = isec->output_section->vma + isec->output_offset + roff;
6699           if (symaddr - reladdr + max_branch_offset < 2 * max_branch_offset)
6700             continue;
6701         }
6702
6703       /* Look for an existing fixup to this address.  */
6704       for (f = fixups; f ; f = f->next)
6705         if (f->tsec == tsec && f->toff == toff)
6706           break;
6707
6708       if (f == NULL)
6709         {
6710           size_t size;
6711           unsigned long stub_rtype;
6712
6713           val = trampoff - roff;
6714           if (val >= max_branch_offset)
6715             /* Oh dear, we can't reach a trampoline.  Don't try to add
6716                one.  We'll report an error later.  */
6717             continue;
6718
6719           if (link_info->shared)
6720             {
6721               size = 4 * ARRAY_SIZE (shared_stub_entry);
6722               insn_offset = 12;
6723             }
6724           else
6725             {
6726               size = 4 * ARRAY_SIZE (stub_entry);
6727               insn_offset = 0;
6728             }
6729           stub_rtype = R_PPC_RELAX;
6730           if (tsec == htab->plt
6731               || tsec == htab->glink)
6732             {
6733               stub_rtype = R_PPC_RELAX_PLT;
6734               if (r_type == R_PPC_PLTREL24)
6735                 stub_rtype = R_PPC_RELAX_PLTREL24;
6736             }
6737
6738           /* Hijack the old relocation.  Since we need two
6739              relocations for this use a "composite" reloc.  */
6740           irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
6741                                        stub_rtype);
6742           irel->r_offset = trampoff + insn_offset;
6743           if (r_type == R_PPC_PLTREL24
6744               && stub_rtype != R_PPC_RELAX_PLTREL24)
6745             irel->r_addend = 0;
6746
6747           /* Record the fixup so we don't do it again this section.  */
6748           f = bfd_malloc (sizeof (*f));
6749           f->next = fixups;
6750           f->tsec = tsec;
6751           f->toff = toff;
6752           f->trampoff = trampoff;
6753           fixups = f;
6754
6755           trampoff += size;
6756           changes++;
6757         }
6758       else
6759         {
6760           val = f->trampoff - roff;
6761           if (val >= max_branch_offset)
6762             continue;
6763
6764           /* Nop out the reloc, since we're finalizing things here.  */
6765           irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
6766         }
6767
6768       /* Get the section contents.  */
6769       if (contents == NULL)
6770         {
6771           /* Get cached copy if it exists.  */
6772           if (elf_section_data (isec)->this_hdr.contents != NULL)
6773             contents = elf_section_data (isec)->this_hdr.contents;
6774           else
6775             {
6776               /* Go get them off disk.  */
6777               if (!bfd_malloc_and_get_section (abfd, isec, &contents))
6778                 goto error_return;
6779             }
6780         }
6781
6782       /* Fix up the existing branch to hit the trampoline.  */
6783       hit_addr = contents + roff;
6784       switch (r_type)
6785         {
6786         case R_PPC_REL24:
6787         case R_PPC_LOCAL24PC:
6788         case R_PPC_PLTREL24:
6789           t0 = bfd_get_32 (abfd, hit_addr);
6790           t0 &= ~0x3fffffc;
6791           t0 |= val & 0x3fffffc;
6792           bfd_put_32 (abfd, t0, hit_addr);
6793           break;
6794
6795         case R_PPC_REL14:
6796         case R_PPC_REL14_BRTAKEN:
6797         case R_PPC_REL14_BRNTAKEN:
6798           t0 = bfd_get_32 (abfd, hit_addr);
6799           t0 &= ~0xfffc;
6800           t0 |= val & 0xfffc;
6801           bfd_put_32 (abfd, t0, hit_addr);
6802           break;
6803         }
6804     }
6805
6806   /* Write out the trampolines.  */
6807   if (fixups != NULL)
6808     {
6809       const int *stub;
6810       bfd_byte *dest;
6811       int i, size;
6812
6813       do
6814         {
6815           struct one_fixup *f = fixups;
6816           fixups = fixups->next;
6817           free (f);
6818         }
6819       while (fixups);
6820
6821       contents = bfd_realloc_or_free (contents, trampoff);
6822       if (contents == NULL)
6823         goto error_return;
6824
6825       isec->size = (isec->size + 3) & (bfd_vma) -4;
6826       dest = contents + isec->size;
6827       /* Branch around the trampolines.  */
6828       if (maybe_pasted)
6829         {
6830           bfd_vma val = B + trampoff - isec->size;
6831           bfd_put_32 (abfd, val, dest);
6832           dest += 4;
6833         }
6834       isec->size = trampoff;
6835
6836       if (link_info->shared)
6837         {
6838           stub = shared_stub_entry;
6839           size = ARRAY_SIZE (shared_stub_entry);
6840         }
6841       else
6842         {
6843           stub = stub_entry;
6844           size = ARRAY_SIZE (stub_entry);
6845         }
6846
6847       i = 0;
6848       while (dest < contents + trampoff)
6849         {
6850           bfd_put_32 (abfd, stub[i], dest);
6851           i++;
6852           if (i == size)
6853             i = 0;
6854           dest += 4;
6855         }
6856       BFD_ASSERT (i == 0);
6857     }
6858
6859   if (isymbuf != NULL
6860       && symtab_hdr->contents != (unsigned char *) isymbuf)
6861     {
6862       if (! link_info->keep_memory)
6863         free (isymbuf);
6864       else
6865         {
6866           /* Cache the symbols for elf_link_input_bfd.  */
6867           symtab_hdr->contents = (unsigned char *) isymbuf;
6868         }
6869     }
6870
6871   if (contents != NULL
6872       && elf_section_data (isec)->this_hdr.contents != contents)
6873     {
6874       if (!changes && !link_info->keep_memory)
6875         free (contents);
6876       else
6877         {
6878           /* Cache the section contents for elf_link_input_bfd.  */
6879           elf_section_data (isec)->this_hdr.contents = contents;
6880         }
6881     }
6882
6883   if (changes != 0)
6884     {
6885       /* Append sufficient NOP relocs so we can write out relocation
6886          information for the trampolines.  */
6887       Elf_Internal_Shdr *rel_hdr;
6888       Elf_Internal_Rela *new_relocs = bfd_malloc ((changes + isec->reloc_count)
6889                                                   * sizeof (*new_relocs));
6890       unsigned ix;
6891
6892       if (!new_relocs)
6893         goto error_return;
6894       memcpy (new_relocs, internal_relocs,
6895               isec->reloc_count * sizeof (*new_relocs));
6896       for (ix = changes; ix--;)
6897         {
6898           irel = new_relocs + ix + isec->reloc_count;
6899
6900           irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
6901         }
6902       if (internal_relocs != elf_section_data (isec)->relocs)
6903         free (internal_relocs);
6904       elf_section_data (isec)->relocs = new_relocs;
6905       isec->reloc_count += changes;
6906       rel_hdr = _bfd_elf_single_rel_hdr (isec);
6907       rel_hdr->sh_size += changes * rel_hdr->sh_entsize;
6908     }
6909   else if (elf_section_data (isec)->relocs != internal_relocs)
6910     free (internal_relocs);
6911
6912   *again = changes != 0;
6913   if (!*again && link_info->relocatable)
6914     {
6915       /* Convert the internal relax relocs to external form.  */
6916       for (irel = internal_relocs; irel < irelend; irel++)
6917         if (ELF32_R_TYPE (irel->r_info) == R_PPC_RELAX)
6918           {
6919             unsigned long r_symndx = ELF32_R_SYM (irel->r_info);
6920
6921             /* Rewrite the reloc and convert one of the trailing nop
6922                relocs to describe this relocation.  */
6923             BFD_ASSERT (ELF32_R_TYPE (irelend[-1].r_info) == R_PPC_NONE);
6924             /* The relocs are at the bottom 2 bytes */
6925             irel[0].r_offset += 2;
6926             memmove (irel + 1, irel, (irelend - irel - 1) * sizeof (*irel));
6927             irel[0].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_HA);
6928             irel[1].r_offset += 4;
6929             irel[1].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_LO);
6930             irel++;
6931           }
6932     }
6933
6934   return TRUE;
6935
6936  error_return:
6937   if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
6938     free (isymbuf);
6939   if (contents != NULL
6940       && elf_section_data (isec)->this_hdr.contents != contents)
6941     free (contents);
6942   if (internal_relocs != NULL
6943       && elf_section_data (isec)->relocs != internal_relocs)
6944     free (internal_relocs);
6945   return FALSE;
6946 }
6947 \f
6948 /* What to do when ld finds relocations against symbols defined in
6949    discarded sections.  */
6950
6951 static unsigned int
6952 ppc_elf_action_discarded (asection *sec)
6953 {
6954   if (strcmp (".fixup", sec->name) == 0)
6955     return 0;
6956
6957   if (strcmp (".got2", sec->name) == 0)
6958     return 0;
6959
6960   return _bfd_elf_default_action_discarded (sec);
6961 }
6962 \f
6963 /* Fill in the address for a pointer generated in a linker section.  */
6964
6965 static bfd_vma
6966 elf_finish_pointer_linker_section (bfd *input_bfd,
6967                                    elf_linker_section_t *lsect,
6968                                    struct elf_link_hash_entry *h,
6969                                    bfd_vma relocation,
6970                                    const Elf_Internal_Rela *rel)
6971 {
6972   elf_linker_section_pointers_t *linker_section_ptr;
6973
6974   BFD_ASSERT (lsect != NULL);
6975
6976   if (h != NULL)
6977     {
6978       /* Handle global symbol.  */
6979       struct ppc_elf_link_hash_entry *eh;
6980
6981       eh = (struct ppc_elf_link_hash_entry *) h;
6982       BFD_ASSERT (eh->elf.def_regular);
6983       linker_section_ptr = eh->linker_section_pointer;
6984     }
6985   else
6986     {
6987       /* Handle local symbol.  */
6988       unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
6989
6990       BFD_ASSERT (is_ppc_elf (input_bfd));
6991       BFD_ASSERT (elf_local_ptr_offsets (input_bfd) != NULL);
6992       linker_section_ptr = elf_local_ptr_offsets (input_bfd)[r_symndx];
6993     }
6994
6995   linker_section_ptr = elf_find_pointer_linker_section (linker_section_ptr,
6996                                                         rel->r_addend,
6997                                                         lsect);
6998   BFD_ASSERT (linker_section_ptr != NULL);
6999
7000   /* Offset will always be a multiple of four, so use the bottom bit
7001      as a "written" flag.  */
7002   if ((linker_section_ptr->offset & 1) == 0)
7003     {
7004       bfd_put_32 (lsect->section->owner,
7005                   relocation + linker_section_ptr->addend,
7006                   lsect->section->contents + linker_section_ptr->offset);
7007       linker_section_ptr->offset += 1;
7008     }
7009
7010   relocation = (lsect->section->output_section->vma
7011                 + lsect->section->output_offset
7012                 + linker_section_ptr->offset - 1
7013                 - SYM_VAL (lsect->sym));
7014
7015 #ifdef DEBUG
7016   fprintf (stderr,
7017            "Finish pointer in linker section %s, offset = %ld (0x%lx)\n",
7018            lsect->name, (long) relocation, (long) relocation);
7019 #endif
7020
7021   return relocation;
7022 }
7023
7024 #define PPC_LO(v) ((v) & 0xffff)
7025 #define PPC_HI(v) (((v) >> 16) & 0xffff)
7026 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
7027
7028 static void
7029 write_glink_stub (struct plt_entry *ent, asection *plt_sec, unsigned char *p,
7030                   struct bfd_link_info *info)
7031 {
7032   struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
7033   bfd *output_bfd = info->output_bfd;
7034   bfd_vma plt;
7035
7036   plt = ((ent->plt.offset & ~1)
7037          + plt_sec->output_section->vma
7038          + plt_sec->output_offset);
7039
7040   if (info->shared)
7041     {
7042       bfd_vma got = 0;
7043
7044       if (ent->addend >= 32768)
7045         got = (ent->addend
7046                + ent->sec->output_section->vma
7047                + ent->sec->output_offset);
7048       else if (htab->elf.hgot != NULL)
7049         got = SYM_VAL (htab->elf.hgot);
7050
7051       plt -= got;
7052
7053       if (plt + 0x8000 < 0x10000)
7054         {
7055           bfd_put_32 (output_bfd, LWZ_11_30 + PPC_LO (plt), p);
7056           p += 4;
7057           bfd_put_32 (output_bfd, MTCTR_11, p);
7058           p += 4;
7059           bfd_put_32 (output_bfd, BCTR, p);
7060           p += 4;
7061           bfd_put_32 (output_bfd, NOP, p);
7062           p += 4;
7063         }
7064       else
7065         {
7066           bfd_put_32 (output_bfd, ADDIS_11_30 + 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     }
7076   else
7077     {
7078       bfd_put_32 (output_bfd, LIS_11 + PPC_HA (plt), p);
7079       p += 4;
7080       bfd_put_32 (output_bfd, LWZ_11_11 + PPC_LO (plt), p);
7081       p += 4;
7082       bfd_put_32 (output_bfd, MTCTR_11, p);
7083       p += 4;
7084       bfd_put_32 (output_bfd, BCTR, p);
7085       p += 4;
7086     }
7087 }
7088
7089 /* Return true if symbol is defined statically.  */
7090
7091 static bfd_boolean
7092 is_static_defined (struct elf_link_hash_entry *h)
7093 {
7094   return ((h->root.type == bfd_link_hash_defined
7095            || h->root.type == bfd_link_hash_defweak)
7096           && h->root.u.def.section != NULL
7097           && h->root.u.def.section->output_section != NULL);
7098 }
7099
7100 /* If INSN is an opcode that may be used with an @tls operand, return
7101    the transformed insn for TLS optimisation, otherwise return 0.  If
7102    REG is non-zero only match an insn with RB or RA equal to REG.  */
7103
7104 unsigned int
7105 _bfd_elf_ppc_at_tls_transform (unsigned int insn, unsigned int reg)
7106 {
7107   unsigned int rtra;
7108
7109   if ((insn & (0x3f << 26)) != 31 << 26)
7110     return 0;
7111
7112   if (reg == 0 || ((insn >> 11) & 0x1f) == reg)
7113     rtra = insn & ((1 << 26) - (1 << 16));
7114   else if (((insn >> 16) & 0x1f) == reg)
7115     rtra = (insn & (0x1f << 21)) | ((insn & (0x1f << 11)) << 5);
7116   else
7117     return 0;
7118
7119   if ((insn & (0x3ff << 1)) == 266 << 1)
7120     /* add -> addi.  */
7121     insn = 14 << 26;
7122   else if ((insn & (0x1f << 1)) == 23 << 1
7123            && ((insn & (0x1f << 6)) < 14 << 6
7124                || ((insn & (0x1f << 6)) >= 16 << 6
7125                    && (insn & (0x1f << 6)) < 24 << 6)))
7126     /* load and store indexed -> dform.  */
7127     insn = (32 | ((insn >> 6) & 0x1f)) << 26;
7128   else if ((insn & (((0x1a << 5) | 0x1f) << 1)) == 21 << 1)
7129     /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu.  */
7130     insn = ((58 | ((insn >> 6) & 4)) << 26) | ((insn >> 6) & 1);
7131   else if ((insn & (((0x1f << 5) | 0x1f) << 1)) == 341 << 1)
7132     /* lwax -> lwa.  */
7133     insn = (58 << 26) | 2;
7134   else
7135     return 0;
7136   insn |= rtra;
7137   return insn;
7138 }
7139
7140 /* If INSN is an opcode that may be used with an @tprel operand, return
7141    the transformed insn for an undefined weak symbol, ie. with the
7142    thread pointer REG operand removed.  Otherwise return 0.  */
7143
7144 unsigned int
7145 _bfd_elf_ppc_at_tprel_transform (unsigned int insn, unsigned int reg)
7146 {
7147   if ((insn & (0x1f << 16)) == reg << 16
7148       && ((insn & (0x3f << 26)) == 14u << 26 /* addi */
7149           || (insn & (0x3f << 26)) == 15u << 26 /* addis */
7150           || (insn & (0x3f << 26)) == 32u << 26 /* lwz */
7151           || (insn & (0x3f << 26)) == 34u << 26 /* lbz */
7152           || (insn & (0x3f << 26)) == 36u << 26 /* stw */
7153           || (insn & (0x3f << 26)) == 38u << 26 /* stb */
7154           || (insn & (0x3f << 26)) == 40u << 26 /* lhz */
7155           || (insn & (0x3f << 26)) == 42u << 26 /* lha */
7156           || (insn & (0x3f << 26)) == 44u << 26 /* sth */
7157           || (insn & (0x3f << 26)) == 46u << 26 /* lmw */
7158           || (insn & (0x3f << 26)) == 47u << 26 /* stmw */
7159           || (insn & (0x3f << 26)) == 48u << 26 /* lfs */
7160           || (insn & (0x3f << 26)) == 50u << 26 /* lfd */
7161           || (insn & (0x3f << 26)) == 52u << 26 /* stfs */
7162           || (insn & (0x3f << 26)) == 54u << 26 /* stfd */
7163           || ((insn & (0x3f << 26)) == 58u << 26 /* lwa,ld,lmd */
7164               && (insn & 3) != 1)
7165           || ((insn & (0x3f << 26)) == 62u << 26 /* std, stmd */
7166               && ((insn & 3) == 0 || (insn & 3) == 3))))
7167     {
7168       insn &= ~(0x1f << 16);
7169     }
7170   else if ((insn & (0x1f << 21)) == reg << 21
7171            && ((insn & (0x3e << 26)) == 24u << 26 /* ori, oris */
7172                || (insn & (0x3e << 26)) == 26u << 26 /* xori,xoris */
7173                || (insn & (0x3e << 26)) == 28u << 26 /* andi,andis */))
7174     {
7175       insn &= ~(0x1f << 21);
7176       insn |= (insn & (0x1f << 16)) << 5;
7177       if ((insn & (0x3e << 26)) == 26 << 26 /* xori,xoris */)
7178         insn -= 2 >> 26;  /* convert to ori,oris */
7179     }
7180   else
7181     insn = 0;
7182   return insn;
7183 }
7184
7185 /* The RELOCATE_SECTION function is called by the ELF backend linker
7186    to handle the relocations for a section.
7187
7188    The relocs are always passed as Rela structures; if the section
7189    actually uses Rel structures, the r_addend field will always be
7190    zero.
7191
7192    This function is responsible for adjust the section contents as
7193    necessary, and (if using Rela relocs and generating a
7194    relocatable output file) adjusting the reloc addend as
7195    necessary.
7196
7197    This function does not have to worry about setting the reloc
7198    address or the reloc symbol index.
7199
7200    LOCAL_SYMS is a pointer to the swapped in local symbols.
7201
7202    LOCAL_SECTIONS is an array giving the section in the input file
7203    corresponding to the st_shndx field of each local symbol.
7204
7205    The global hash table entry for the global symbols can be found
7206    via elf_sym_hashes (input_bfd).
7207
7208    When generating relocatable output, this function must handle
7209    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
7210    going to be the section symbol corresponding to the output
7211    section, which means that the addend must be adjusted
7212    accordingly.  */
7213
7214 static bfd_boolean
7215 ppc_elf_relocate_section (bfd *output_bfd,
7216                           struct bfd_link_info *info,
7217                           bfd *input_bfd,
7218                           asection *input_section,
7219                           bfd_byte *contents,
7220                           Elf_Internal_Rela *relocs,
7221                           Elf_Internal_Sym *local_syms,
7222                           asection **local_sections)
7223 {
7224   Elf_Internal_Shdr *symtab_hdr;
7225   struct elf_link_hash_entry **sym_hashes;
7226   struct ppc_elf_link_hash_table *htab;
7227   Elf_Internal_Rela *rel;
7228   Elf_Internal_Rela *relend;
7229   Elf_Internal_Rela outrel;
7230   asection *got2, *sreloc = NULL;
7231   bfd_vma *local_got_offsets;
7232   bfd_boolean ret = TRUE;
7233   bfd_vma d_offset = (bfd_big_endian (output_bfd) ? 2 : 0);
7234   bfd_boolean is_vxworks_tls;
7235
7236 #ifdef DEBUG
7237   _bfd_error_handler ("ppc_elf_relocate_section called for %B section %A, "
7238                       "%ld relocations%s",
7239                       input_bfd, input_section,
7240                       (long) input_section->reloc_count,
7241                       (info->relocatable) ? " (relocatable)" : "");
7242 #endif
7243
7244   got2 = bfd_get_section_by_name (input_bfd, ".got2");
7245
7246   /* Initialize howto table if not already done.  */
7247   if (!ppc_elf_howto_table[R_PPC_ADDR32])
7248     ppc_elf_howto_init ();
7249
7250   htab = ppc_elf_hash_table (info);
7251   local_got_offsets = elf_local_got_offsets (input_bfd);
7252   symtab_hdr = &elf_symtab_hdr (input_bfd);
7253   sym_hashes = elf_sym_hashes (input_bfd);
7254   /* We have to handle relocations in vxworks .tls_vars sections
7255      specially, because the dynamic loader is 'weird'.  */
7256   is_vxworks_tls = (htab->is_vxworks && info->shared
7257                     && !strcmp (input_section->output_section->name,
7258                                 ".tls_vars"));
7259   rel = relocs;
7260   relend = relocs + input_section->reloc_count;
7261   for (; rel < relend; rel++)
7262     {
7263       enum elf_ppc_reloc_type r_type;
7264       bfd_vma addend;
7265       bfd_reloc_status_type r;
7266       Elf_Internal_Sym *sym;
7267       asection *sec;
7268       struct elf_link_hash_entry *h;
7269       const char *sym_name;
7270       reloc_howto_type *howto;
7271       unsigned long r_symndx;
7272       bfd_vma relocation;
7273       bfd_vma branch_bit, from;
7274       bfd_boolean unresolved_reloc;
7275       bfd_boolean warned;
7276       unsigned int tls_type, tls_mask, tls_gd;
7277       struct plt_entry **ifunc;
7278
7279       r_type = ELF32_R_TYPE (rel->r_info);
7280       sym = NULL;
7281       sec = NULL;
7282       h = NULL;
7283       unresolved_reloc = FALSE;
7284       warned = FALSE;
7285       r_symndx = ELF32_R_SYM (rel->r_info);
7286
7287       if (r_symndx < symtab_hdr->sh_info)
7288         {
7289           sym = local_syms + r_symndx;
7290           sec = local_sections[r_symndx];
7291           sym_name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym, sec);
7292
7293           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
7294         }
7295       else
7296         {
7297           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
7298                                    r_symndx, symtab_hdr, sym_hashes,
7299                                    h, sec, relocation,
7300                                    unresolved_reloc, warned);
7301
7302           sym_name = h->root.root.string;
7303         }
7304
7305       if (sec != NULL && discarded_section (sec))
7306         {
7307           /* For relocs against symbols from removed linkonce sections,
7308              or sections discarded by a linker script, we just want the
7309              section contents zeroed.  Avoid any special processing.  */
7310           howto = NULL;
7311           if (r_type < R_PPC_max)
7312             howto = ppc_elf_howto_table[r_type];
7313           RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
7314                                            rel, 1, relend, howto, 0, contents);
7315         }
7316
7317       if (info->relocatable)
7318         {
7319           if (got2 != NULL
7320               && r_type == R_PPC_PLTREL24
7321               && rel->r_addend >= 32768)
7322             {
7323               /* R_PPC_PLTREL24 is rather special.  If non-zero, the
7324                  addend specifies the GOT pointer offset within .got2.  */
7325               rel->r_addend += got2->output_offset;
7326             }
7327           continue;
7328         }
7329
7330       /* TLS optimizations.  Replace instruction sequences and relocs
7331          based on information we collected in tls_optimize.  We edit
7332          RELOCS so that --emit-relocs will output something sensible
7333          for the final instruction stream.  */
7334       tls_mask = 0;
7335       tls_gd = 0;
7336       if (h != NULL)
7337         tls_mask = ((struct ppc_elf_link_hash_entry *) h)->tls_mask;
7338       else if (local_got_offsets != NULL)
7339         {
7340           struct plt_entry **local_plt;
7341           char *lgot_masks;
7342           local_plt
7343             = (struct plt_entry **) (local_got_offsets + symtab_hdr->sh_info);
7344           lgot_masks = (char *) (local_plt + symtab_hdr->sh_info);
7345           tls_mask = lgot_masks[r_symndx];
7346         }
7347
7348       /* Ensure reloc mapping code below stays sane.  */
7349       if ((R_PPC_GOT_TLSLD16 & 3)    != (R_PPC_GOT_TLSGD16 & 3)
7350           || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TLSGD16_LO & 3)
7351           || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TLSGD16_HI & 3)
7352           || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TLSGD16_HA & 3)
7353           || (R_PPC_GOT_TLSLD16 & 3)    != (R_PPC_GOT_TPREL16 & 3)
7354           || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TPREL16_LO & 3)
7355           || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TPREL16_HI & 3)
7356           || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TPREL16_HA & 3))
7357         abort ();
7358       switch (r_type)
7359         {
7360         default:
7361           break;
7362
7363         case R_PPC_GOT_TPREL16:
7364         case R_PPC_GOT_TPREL16_LO:
7365           if ((tls_mask & TLS_TLS) != 0
7366               && (tls_mask & TLS_TPREL) == 0)
7367             {
7368               bfd_vma insn;
7369
7370               insn = bfd_get_32 (output_bfd, contents + rel->r_offset - d_offset);
7371               insn &= 31 << 21;
7372               insn |= 0x3c020000;       /* addis 0,2,0 */
7373               bfd_put_32 (output_bfd, insn, contents + rel->r_offset - d_offset);
7374               r_type = R_PPC_TPREL16_HA;
7375               rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7376             }
7377           break;
7378
7379         case R_PPC_TLS:
7380           if ((tls_mask & TLS_TLS) != 0
7381               && (tls_mask & TLS_TPREL) == 0)
7382             {
7383               bfd_vma insn;
7384
7385               insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
7386               insn = _bfd_elf_ppc_at_tls_transform (insn, 2);
7387               if (insn == 0)
7388                 abort ();
7389               bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
7390               r_type = R_PPC_TPREL16_LO;
7391               rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7392
7393               /* Was PPC_TLS which sits on insn boundary, now
7394                  PPC_TPREL16_LO which is at low-order half-word.  */
7395               rel->r_offset += d_offset;
7396             }
7397           break;
7398
7399         case R_PPC_GOT_TLSGD16_HI:
7400         case R_PPC_GOT_TLSGD16_HA:
7401           tls_gd = TLS_TPRELGD;
7402           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0)
7403             goto tls_gdld_hi;
7404           break;
7405
7406         case R_PPC_GOT_TLSLD16_HI:
7407         case R_PPC_GOT_TLSLD16_HA:
7408           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0)
7409             {
7410             tls_gdld_hi:
7411               if ((tls_mask & tls_gd) != 0)
7412                 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
7413                           + R_PPC_GOT_TPREL16);
7414               else
7415                 {
7416                   bfd_put_32 (output_bfd, NOP, contents + rel->r_offset);
7417                   rel->r_offset -= d_offset;
7418                   r_type = R_PPC_NONE;
7419                 }
7420               rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7421             }
7422           break;
7423
7424         case R_PPC_GOT_TLSGD16:
7425         case R_PPC_GOT_TLSGD16_LO:
7426           tls_gd = TLS_TPRELGD;
7427           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0)
7428             goto tls_ldgd_opt;
7429           break;
7430
7431         case R_PPC_GOT_TLSLD16:
7432         case R_PPC_GOT_TLSLD16_LO:
7433           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0)
7434             {
7435               unsigned int insn1, insn2;
7436               bfd_vma offset;
7437
7438             tls_ldgd_opt:
7439               offset = (bfd_vma) -1;
7440               /* If not using the newer R_PPC_TLSGD/LD to mark
7441                  __tls_get_addr calls, we must trust that the call
7442                  stays with its arg setup insns, ie. that the next
7443                  reloc is the __tls_get_addr call associated with
7444                  the current reloc.  Edit both insns.  */
7445               if (input_section->has_tls_get_addr_call
7446                   && rel + 1 < relend
7447                   && branch_reloc_hash_match (input_bfd, rel + 1,
7448                                               htab->tls_get_addr))
7449                 offset = rel[1].r_offset;
7450               if ((tls_mask & tls_gd) != 0)
7451                 {
7452                   /* IE */
7453                   insn1 = bfd_get_32 (output_bfd,
7454                                       contents + rel->r_offset - d_offset);
7455                   insn1 &= (1 << 26) - 1;
7456                   insn1 |= 32 << 26;    /* lwz */
7457                   if (offset != (bfd_vma) -1)
7458                     {
7459                       rel[1].r_info = ELF32_R_INFO (STN_UNDEF, R_PPC_NONE);
7460                       insn2 = 0x7c631214;       /* add 3,3,2 */
7461                       bfd_put_32 (output_bfd, insn2, contents + offset);
7462                     }
7463                   r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
7464                             + R_PPC_GOT_TPREL16);
7465                   rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7466                 }
7467               else
7468                 {
7469                   /* LE */
7470                   insn1 = 0x3c620000;   /* addis 3,2,0 */
7471                   if (tls_gd == 0)
7472                     {
7473                       /* Was an LD reloc.  */
7474                       for (r_symndx = 0;
7475                            r_symndx < symtab_hdr->sh_info;
7476                            r_symndx++)
7477                         if (local_sections[r_symndx] == sec)
7478                           break;
7479                       if (r_symndx >= symtab_hdr->sh_info)
7480                         r_symndx = STN_UNDEF;
7481                       rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
7482                       if (r_symndx != STN_UNDEF)
7483                         rel->r_addend -= (local_syms[r_symndx].st_value
7484                                           + sec->output_offset
7485                                           + sec->output_section->vma);
7486                     }
7487                   r_type = R_PPC_TPREL16_HA;
7488                   rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7489                   if (offset != (bfd_vma) -1)
7490                     {
7491                       rel[1].r_info = ELF32_R_INFO (r_symndx, R_PPC_TPREL16_LO);
7492                       rel[1].r_offset = offset + d_offset;
7493                       rel[1].r_addend = rel->r_addend;
7494                       insn2 = 0x38630000;       /* addi 3,3,0 */
7495                       bfd_put_32 (output_bfd, insn2, contents + offset);
7496                     }
7497                 }
7498               bfd_put_32 (output_bfd, insn1,
7499                           contents + rel->r_offset - d_offset);
7500               if (tls_gd == 0)
7501                 {
7502                   /* We changed the symbol on an LD reloc.  Start over
7503                      in order to get h, sym, sec etc. right.  */
7504                   rel--;
7505                   continue;
7506                 }
7507             }
7508           break;
7509
7510         case R_PPC_TLSGD:
7511           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0)
7512             {
7513               unsigned int insn2;
7514               bfd_vma offset = rel->r_offset;
7515
7516               if ((tls_mask & TLS_TPRELGD) != 0)
7517                 {
7518                   /* IE */
7519                   r_type = R_PPC_NONE;
7520                   insn2 = 0x7c631214;   /* add 3,3,2 */
7521                 }
7522               else
7523                 {
7524                   /* LE */
7525                   r_type = R_PPC_TPREL16_LO;
7526                   rel->r_offset += d_offset;
7527                   insn2 = 0x38630000;   /* addi 3,3,0 */
7528                 }
7529               rel->r_info = ELF32_R_INFO (r_symndx, r_type);
7530               bfd_put_32 (output_bfd, insn2, contents + offset);
7531               /* Zap the reloc on the _tls_get_addr call too.  */
7532               BFD_ASSERT (offset == rel[1].r_offset);
7533               rel[1].r_info = ELF32_R_INFO (STN_UNDEF, R_PPC_NONE);
7534             }
7535           break;
7536
7537         case R_PPC_TLSLD:
7538           if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0)
7539             {
7540               unsigned int insn2;
7541
7542               for (r_symndx = 0;
7543                    r_symndx < symtab_hdr->sh_info;
7544                    r_symndx++)
7545                 if (local_sections[r_symndx] == sec)
7546                   break;
7547               if (r_symndx >= symtab_hdr->sh_info)
7548                 r_symndx = STN_UNDEF;
7549               rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
7550               if (r_symndx != STN_UNDEF)
7551                 rel->r_addend -= (local_syms[r_symndx].st_value
7552                                   + sec->output_offset
7553                                   + sec->output_section->vma);
7554
7555               rel->r_info = ELF32_R_INFO (r_symndx, R_PPC_TPREL16_LO);
7556               rel->r_offset += d_offset;
7557               insn2 = 0x38630000;       /* addi 3,3,0 */
7558               bfd_put_32 (output_bfd, insn2,
7559                           contents + rel->r_offset - d_offset);
7560               /* Zap the reloc on the _tls_get_addr call too.  */
7561               BFD_ASSERT (rel->r_offset - d_offset == rel[1].r_offset);
7562               rel[1].r_info = ELF32_R_INFO (STN_UNDEF, R_PPC_NONE);
7563               rel--;
7564               continue;
7565             }
7566           break;
7567         }
7568
7569       /* Handle other relocations that tweak non-addend part of insn.  */
7570       branch_bit = 0;
7571       switch (r_type)
7572         {
7573         default:
7574           break;
7575
7576           /* Branch taken prediction relocations.  */
7577         case R_PPC_ADDR14_BRTAKEN:
7578         case R_PPC_REL14_BRTAKEN:
7579           branch_bit = BRANCH_PREDICT_BIT;
7580           /* Fall thru */
7581
7582           /* Branch not taken prediction relocations.  */
7583         case R_PPC_ADDR14_BRNTAKEN:
7584         case R_PPC_REL14_BRNTAKEN:
7585           {
7586             bfd_vma insn;
7587
7588             insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
7589             insn &= ~BRANCH_PREDICT_BIT;
7590             insn |= branch_bit;
7591
7592             from = (rel->r_offset
7593                     + input_section->output_offset
7594                     + input_section->output_section->vma);
7595
7596             /* Invert 'y' bit if not the default.  */
7597             if ((bfd_signed_vma) (relocation + rel->r_addend - from) < 0)
7598               insn ^= BRANCH_PREDICT_BIT;
7599
7600             bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
7601             break;
7602           }
7603         }
7604
7605       ifunc = NULL;
7606       if (!htab->is_vxworks)
7607         {
7608           struct plt_entry *ent;
7609
7610           if (h != NULL)
7611             {
7612               if (h->type == STT_GNU_IFUNC)
7613                 ifunc = &h->plt.plist;
7614             }
7615           else if (local_got_offsets != NULL
7616                    && ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
7617             {
7618               struct plt_entry **local_plt;
7619
7620               local_plt = (struct plt_entry **) (local_got_offsets
7621                                                  + symtab_hdr->sh_info);
7622               ifunc = local_plt + r_symndx;
7623             }
7624
7625           ent = NULL;
7626           if (ifunc != NULL
7627               && (!info->shared
7628                   || is_branch_reloc (r_type)))
7629             {
7630               addend = 0;
7631               if (r_type == R_PPC_PLTREL24 && info->shared)
7632                 addend = rel->r_addend;
7633               ent = find_plt_ent (ifunc, got2, addend);
7634             }
7635           if (ent != NULL)
7636             {
7637               if (h == NULL && (ent->plt.offset & 1) == 0)
7638                 {
7639                   Elf_Internal_Rela rela;
7640                   bfd_byte *loc;
7641
7642                   rela.r_offset = (htab->iplt->output_section->vma
7643                                    + htab->iplt->output_offset
7644                                    + ent->plt.offset);
7645                   rela.r_info = ELF32_R_INFO (0, R_PPC_IRELATIVE);
7646                   rela.r_addend = relocation;
7647                   loc = htab->reliplt->contents;
7648                   loc += (htab->reliplt->reloc_count++
7649                           * sizeof (Elf32_External_Rela));
7650                   bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7651
7652                   ent->plt.offset |= 1;
7653                 }
7654               if (h == NULL && (ent->glink_offset & 1) == 0)
7655                 {
7656                   unsigned char *p = ((unsigned char *) htab->glink->contents
7657                                       + ent->glink_offset);
7658                   write_glink_stub (ent, htab->iplt, p, info);
7659                   ent->glink_offset |= 1;
7660                 }
7661
7662               unresolved_reloc = FALSE;
7663               if (htab->plt_type == PLT_NEW
7664                   || !htab->elf.dynamic_sections_created
7665                   || h == NULL)
7666                 relocation = (htab->glink->output_section->vma
7667                               + htab->glink->output_offset
7668                               + (ent->glink_offset & ~1));
7669               else
7670                 relocation = (htab->plt->output_section->vma
7671                               + htab->plt->output_offset
7672                               + ent->plt.offset);
7673             }
7674         }
7675
7676       addend = rel->r_addend;
7677       tls_type = 0;
7678       howto = NULL;
7679       if (r_type < R_PPC_max)
7680         howto = ppc_elf_howto_table[r_type];
7681       switch (r_type)
7682         {
7683         default:
7684           info->callbacks->einfo
7685             (_("%P: %B: unknown relocation type %d for symbol %s\n"),
7686              input_bfd, (int) r_type, sym_name);
7687
7688           bfd_set_error (bfd_error_bad_value);
7689           ret = FALSE;
7690           continue;
7691
7692         case R_PPC_NONE:
7693         case R_PPC_TLS:
7694         case R_PPC_TLSGD:
7695         case R_PPC_TLSLD:
7696         case R_PPC_EMB_MRKREF:
7697         case R_PPC_GNU_VTINHERIT:
7698         case R_PPC_GNU_VTENTRY:
7699           continue;
7700
7701           /* GOT16 relocations.  Like an ADDR16 using the symbol's
7702              address in the GOT as relocation value instead of the
7703              symbol's value itself.  Also, create a GOT entry for the
7704              symbol and put the symbol value there.  */
7705         case R_PPC_GOT_TLSGD16:
7706         case R_PPC_GOT_TLSGD16_LO:
7707         case R_PPC_GOT_TLSGD16_HI:
7708         case R_PPC_GOT_TLSGD16_HA:
7709           tls_type = TLS_TLS | TLS_GD;
7710           goto dogot;
7711
7712         case R_PPC_GOT_TLSLD16:
7713         case R_PPC_GOT_TLSLD16_LO:
7714         case R_PPC_GOT_TLSLD16_HI:
7715         case R_PPC_GOT_TLSLD16_HA:
7716           tls_type = TLS_TLS | TLS_LD;
7717           goto dogot;
7718
7719         case R_PPC_GOT_TPREL16:
7720         case R_PPC_GOT_TPREL16_LO:
7721         case R_PPC_GOT_TPREL16_HI:
7722         case R_PPC_GOT_TPREL16_HA:
7723           tls_type = TLS_TLS | TLS_TPREL;
7724           goto dogot;
7725
7726         case R_PPC_GOT_DTPREL16:
7727         case R_PPC_GOT_DTPREL16_LO:
7728         case R_PPC_GOT_DTPREL16_HI:
7729         case R_PPC_GOT_DTPREL16_HA:
7730           tls_type = TLS_TLS | TLS_DTPREL;
7731           goto dogot;
7732
7733         case R_PPC_GOT16:
7734         case R_PPC_GOT16_LO:
7735         case R_PPC_GOT16_HI:
7736         case R_PPC_GOT16_HA:
7737           tls_mask = 0;
7738         dogot:
7739           {
7740             /* Relocation is to the entry for this symbol in the global
7741                offset table.  */
7742             bfd_vma off;
7743             bfd_vma *offp;
7744             unsigned long indx;
7745
7746             if (htab->got == NULL)
7747               abort ();
7748
7749             indx = 0;
7750             if (tls_type == (TLS_TLS | TLS_LD)
7751                 && (h == NULL
7752                     || !h->def_dynamic))
7753               offp = &htab->tlsld_got.offset;
7754             else if (h != NULL)
7755               {
7756                 bfd_boolean dyn;
7757                 dyn = htab->elf.dynamic_sections_created;
7758                 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
7759                     || (info->shared
7760                         && SYMBOL_REFERENCES_LOCAL (info, h)))
7761                   /* This is actually a static link, or it is a
7762                      -Bsymbolic link and the symbol is defined
7763                      locally, or the symbol was forced to be local
7764                      because of a version file.  */
7765                   ;
7766                 else
7767                   {
7768                     indx = h->dynindx;
7769                     unresolved_reloc = FALSE;
7770                   }
7771                 offp = &h->got.offset;
7772               }
7773             else
7774               {
7775                 if (local_got_offsets == NULL)
7776                   abort ();
7777                 offp = &local_got_offsets[r_symndx];
7778               }
7779
7780             /* The offset must always be a multiple of 4.  We use the
7781                least significant bit to record whether we have already
7782                processed this entry.  */
7783             off = *offp;
7784             if ((off & 1) != 0)
7785               off &= ~1;
7786             else
7787               {
7788                 unsigned int tls_m = (tls_mask
7789                                       & (TLS_LD | TLS_GD | TLS_DTPREL
7790                                          | TLS_TPREL | TLS_TPRELGD));
7791
7792                 if (offp == &htab->tlsld_got.offset)
7793                   tls_m = TLS_LD;
7794                 else if (h == NULL
7795                          || !h->def_dynamic)
7796                   tls_m &= ~TLS_LD;
7797
7798                 /* We might have multiple got entries for this sym.
7799                    Initialize them all.  */
7800                 do
7801                   {
7802                     int tls_ty = 0;
7803
7804                     if ((tls_m & TLS_LD) != 0)
7805                       {
7806                         tls_ty = TLS_TLS | TLS_LD;
7807                         tls_m &= ~TLS_LD;
7808                       }
7809                     else if ((tls_m & TLS_GD) != 0)
7810                       {
7811                         tls_ty = TLS_TLS | TLS_GD;
7812                         tls_m &= ~TLS_GD;
7813                       }
7814                     else if ((tls_m & TLS_DTPREL) != 0)
7815                       {
7816                         tls_ty = TLS_TLS | TLS_DTPREL;
7817                         tls_m &= ~TLS_DTPREL;
7818                       }
7819                     else if ((tls_m & (TLS_TPREL | TLS_TPRELGD)) != 0)
7820                       {
7821                         tls_ty = TLS_TLS | TLS_TPREL;
7822                         tls_m = 0;
7823                       }
7824
7825                     /* Generate relocs for the dynamic linker.  */
7826                     if ((info->shared || indx != 0)
7827                         && (offp == &htab->tlsld_got.offset
7828                             || h == NULL
7829                             || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
7830                             || h->root.type != bfd_link_hash_undefweak))
7831                       {
7832                         asection *rsec = htab->relgot;
7833                         bfd_byte * loc;
7834
7835                         outrel.r_offset = (htab->got->output_section->vma
7836                                            + htab->got->output_offset
7837                                            + off);
7838                         outrel.r_addend = 0;
7839                         if (tls_ty & (TLS_LD | TLS_GD))
7840                           {
7841                             outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPMOD32);
7842                             if (tls_ty == (TLS_TLS | TLS_GD))
7843                               {
7844                                 loc = rsec->contents;
7845                                 loc += (rsec->reloc_count++
7846                                         * sizeof (Elf32_External_Rela));
7847                                 bfd_elf32_swap_reloca_out (output_bfd,
7848                                                            &outrel, loc);
7849                                 outrel.r_offset += 4;
7850                                 outrel.r_info
7851                                   = ELF32_R_INFO (indx, R_PPC_DTPREL32);
7852                               }
7853                           }
7854                         else if (tls_ty == (TLS_TLS | TLS_DTPREL))
7855                           outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPREL32);
7856                         else if (tls_ty == (TLS_TLS | TLS_TPREL))
7857                           outrel.r_info = ELF32_R_INFO (indx, R_PPC_TPREL32);
7858                         else if (indx != 0)
7859                           outrel.r_info = ELF32_R_INFO (indx, R_PPC_GLOB_DAT);
7860                         else if (ifunc != NULL)
7861                           outrel.r_info = ELF32_R_INFO (0, R_PPC_IRELATIVE);
7862                         else
7863                           outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
7864                         if (indx == 0 && tls_ty != (TLS_TLS | TLS_LD))
7865                           {
7866                             outrel.r_addend += relocation;
7867                             if (tls_ty & (TLS_GD | TLS_DTPREL | TLS_TPREL))
7868                               outrel.r_addend -= htab->elf.tls_sec->vma;
7869                           }
7870                         loc = rsec->contents;
7871                         loc += (rsec->reloc_count++
7872                                 * sizeof (Elf32_External_Rela));
7873                         bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
7874                       }
7875
7876                     /* Init the .got section contents if we're not
7877                        emitting a reloc.  */
7878                     else
7879                       {
7880                         bfd_vma value = relocation;
7881
7882                         if (tls_ty == (TLS_TLS | TLS_LD))
7883                           value = 1;
7884                         else if (tls_ty != 0)
7885                           {
7886                             value -= htab->elf.tls_sec->vma + DTP_OFFSET;
7887                             if (tls_ty == (TLS_TLS | TLS_TPREL))
7888                               value += DTP_OFFSET - TP_OFFSET;
7889
7890                             if (tls_ty == (TLS_TLS | TLS_GD))
7891                               {
7892                                 bfd_put_32 (output_bfd, value,
7893                                             htab->got->contents + off + 4);
7894                                 value = 1;
7895                               }
7896                           }
7897                         bfd_put_32 (output_bfd, value,
7898                                     htab->got->contents + off);
7899                       }
7900
7901                     off += 4;
7902                     if (tls_ty & (TLS_LD | TLS_GD))
7903                       off += 4;
7904                   }
7905                 while (tls_m != 0);
7906
7907                 off = *offp;
7908                 *offp = off | 1;
7909               }
7910
7911             if (off >= (bfd_vma) -2)
7912               abort ();
7913
7914             if ((tls_type & TLS_TLS) != 0)
7915               {
7916                 if (tls_type != (TLS_TLS | TLS_LD))
7917                   {
7918                     if ((tls_mask & TLS_LD) != 0
7919                         && !(h == NULL
7920                              || !h->def_dynamic))
7921                       off += 8;
7922                     if (tls_type != (TLS_TLS | TLS_GD))
7923                       {
7924                         if ((tls_mask & TLS_GD) != 0)
7925                           off += 8;
7926                         if (tls_type != (TLS_TLS | TLS_DTPREL))
7927                           {
7928                             if ((tls_mask & TLS_DTPREL) != 0)
7929                               off += 4;
7930                           }
7931                       }
7932                   }
7933               }
7934
7935             relocation = (htab->got->output_section->vma
7936                           + htab->got->output_offset
7937                           + off
7938                           - SYM_VAL (htab->elf.hgot));
7939
7940             /* Addends on got relocations don't make much sense.
7941                x+off@got is actually x@got+off, and since the got is
7942                generated by a hash table traversal, the value in the
7943                got at entry m+n bears little relation to the entry m.  */
7944             if (addend != 0)
7945               info->callbacks->einfo
7946                 (_("%P: %H: non-zero addend on %s reloc against `%s'\n"),
7947                  input_bfd, input_section, rel->r_offset,
7948                  howto->name,
7949                  sym_name);
7950           }
7951         break;
7952
7953         /* Relocations that need no special processing.  */
7954         case R_PPC_LOCAL24PC:
7955           /* It makes no sense to point a local relocation
7956              at a symbol not in this object.  */
7957           if (unresolved_reloc)
7958             {
7959               if (! (*info->callbacks->undefined_symbol) (info,
7960                                                           h->root.root.string,
7961                                                           input_bfd,
7962                                                           input_section,
7963                                                           rel->r_offset,
7964                                                           TRUE))
7965                 return FALSE;
7966               continue;
7967             }
7968           break;
7969
7970         case R_PPC_DTPREL16:
7971         case R_PPC_DTPREL16_LO:
7972         case R_PPC_DTPREL16_HI:
7973         case R_PPC_DTPREL16_HA:
7974           addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
7975           break;
7976
7977           /* Relocations that may need to be propagated if this is a shared
7978              object.  */
7979         case R_PPC_TPREL16:
7980         case R_PPC_TPREL16_LO:
7981         case R_PPC_TPREL16_HI:
7982         case R_PPC_TPREL16_HA:
7983           if (h != NULL
7984               && h->root.type == bfd_link_hash_undefweak
7985               && h->dynindx == -1)
7986             {
7987               /* Make this relocation against an undefined weak symbol
7988                  resolve to zero.  This is really just a tweak, since
7989                  code using weak externs ought to check that they are
7990                  defined before using them.  */
7991               bfd_byte *p = contents + rel->r_offset - d_offset;
7992               unsigned int insn = bfd_get_32 (output_bfd, p);
7993               insn = _bfd_elf_ppc_at_tprel_transform (insn, 2);
7994               if (insn != 0)
7995                 bfd_put_32 (output_bfd, insn, p);
7996               break;
7997             }
7998           addend -= htab->elf.tls_sec->vma + TP_OFFSET;
7999           /* The TPREL16 relocs shouldn't really be used in shared
8000              libs as they will result in DT_TEXTREL being set, but
8001              support them anyway.  */
8002           goto dodyn;
8003
8004         case R_PPC_TPREL32:
8005           addend -= htab->elf.tls_sec->vma + TP_OFFSET;
8006           goto dodyn;
8007
8008         case R_PPC_DTPREL32:
8009           addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
8010           goto dodyn;
8011
8012         case R_PPC_DTPMOD32:
8013           relocation = 1;
8014           addend = 0;
8015           goto dodyn;
8016
8017         case R_PPC_REL16:
8018         case R_PPC_REL16_LO:
8019         case R_PPC_REL16_HI:
8020         case R_PPC_REL16_HA:
8021           break;
8022
8023         case R_PPC_REL32:
8024           if (h == NULL || h == htab->elf.hgot)
8025             break;
8026           /* fall through */
8027
8028         case R_PPC_ADDR32:
8029         case R_PPC_ADDR16:
8030         case R_PPC_ADDR16_LO:
8031         case R_PPC_ADDR16_HI:
8032         case R_PPC_ADDR16_HA:
8033         case R_PPC_UADDR32:
8034         case R_PPC_UADDR16:
8035           goto dodyn;
8036
8037         case R_PPC_VLE_REL8:
8038         case R_PPC_VLE_REL15:
8039         case R_PPC_VLE_REL24:
8040         case R_PPC_REL24:
8041         case R_PPC_REL14:
8042         case R_PPC_REL14_BRTAKEN:
8043         case R_PPC_REL14_BRNTAKEN:
8044           /* If these relocations are not to a named symbol, they can be
8045              handled right here, no need to bother the dynamic linker.  */
8046           if (SYMBOL_CALLS_LOCAL (info, h)
8047               || h == htab->elf.hgot)
8048             break;
8049           /* fall through */
8050
8051         case R_PPC_ADDR24:
8052         case R_PPC_ADDR14:
8053         case R_PPC_ADDR14_BRTAKEN:
8054         case R_PPC_ADDR14_BRNTAKEN:
8055           if (h != NULL && !info->shared)
8056             break;
8057           /* fall through */
8058
8059         dodyn:
8060           if ((input_section->flags & SEC_ALLOC) == 0
8061               || is_vxworks_tls)
8062             break;
8063
8064           if ((info->shared
8065                && !(h != NULL
8066                     && ((h->root.type == bfd_link_hash_undefined
8067                          && (ELF_ST_VISIBILITY (h->other) == STV_HIDDEN
8068                              || ELF_ST_VISIBILITY (h->other) == STV_INTERNAL))
8069                         || (h->root.type == bfd_link_hash_undefweak
8070                             && ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)))
8071                && (must_be_dyn_reloc (info, r_type)
8072                    || !SYMBOL_CALLS_LOCAL (info, h)))
8073               || (ELIMINATE_COPY_RELOCS
8074                   && !info->shared
8075                   && h != NULL
8076                   && h->dynindx != -1
8077                   && !h->non_got_ref
8078                   && !h->def_regular))
8079             {
8080               int skip;
8081               bfd_byte * loc;
8082 #ifdef DEBUG
8083               fprintf (stderr, "ppc_elf_relocate_section needs to "
8084                        "create relocation for %s\n",
8085                        (h && h->root.root.string
8086                         ? h->root.root.string : "<unknown>"));
8087 #endif
8088
8089               /* When generating a shared object, these relocations
8090                  are copied into the output file to be resolved at run
8091                  time.  */
8092               if (sreloc == NULL)
8093                 {
8094                   sreloc = elf_section_data (input_section)->sreloc;
8095                   if (!htab->elf.dynamic_sections_created)
8096                     sreloc = htab->reliplt;
8097                   if (sreloc == NULL)
8098                     return FALSE;
8099                 }
8100
8101               skip = 0;
8102               outrel.r_offset = _bfd_elf_section_offset (output_bfd, info,
8103                                                          input_section,
8104                                                          rel->r_offset);
8105               if (outrel.r_offset == (bfd_vma) -1
8106                   || outrel.r_offset == (bfd_vma) -2)
8107                 skip = (int) outrel.r_offset;
8108               outrel.r_offset += (input_section->output_section->vma
8109                                   + input_section->output_offset);
8110
8111               if (skip)
8112                 memset (&outrel, 0, sizeof outrel);
8113               else if ((h != NULL
8114                         && (h->root.type == bfd_link_hash_undefined
8115                             || h->root.type == bfd_link_hash_undefweak))
8116                        || !SYMBOL_REFERENCES_LOCAL (info, h))
8117                 {
8118                   unresolved_reloc = FALSE;
8119                   outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
8120                   outrel.r_addend = rel->r_addend;
8121                 }
8122               else
8123                 {
8124                   outrel.r_addend = relocation + rel->r_addend;
8125
8126                   if (r_type != R_PPC_ADDR32)
8127                     {
8128                       long indx = 0;
8129
8130                       if (ifunc != NULL)
8131                         {
8132                           /* If we get here when building a static
8133                              executable, then the libc startup function
8134                              responsible for applying indirect function
8135                              relocations is going to complain about
8136                              the reloc type.
8137                              If we get here when building a dynamic
8138                              executable, it will be because we have
8139                              a text relocation.  The dynamic loader
8140                              will set the text segment writable and
8141                              non-executable to apply text relocations.
8142                              So we'll segfault when trying to run the
8143                              indirection function to resolve the reloc.  */
8144                           info->callbacks->einfo
8145                             (_("%P: %H: relocation %s for indirect "
8146                                "function %s unsupported\n"),
8147                              input_bfd, input_section, rel->r_offset,
8148                              howto->name,
8149                              sym_name);
8150                           ret = FALSE;
8151                         }
8152                       else if (r_symndx == STN_UNDEF || bfd_is_abs_section (sec))
8153                         ;
8154                       else if (sec == NULL || sec->owner == NULL)
8155                         {
8156                           bfd_set_error (bfd_error_bad_value);
8157                           ret = FALSE;
8158                         }
8159                       else
8160                         {
8161                           asection *osec;
8162
8163                           /* We are turning this relocation into one
8164                              against a section symbol.  It would be
8165                              proper to subtract the symbol's value,
8166                              osec->vma, from the emitted reloc addend,
8167                              but ld.so expects buggy relocs.
8168                              FIXME: Why not always use a zero index?  */
8169                           osec = sec->output_section;
8170                           indx = elf_section_data (osec)->dynindx;
8171                           if (indx == 0)
8172                             {
8173                               osec = htab->elf.text_index_section;
8174                               indx = elf_section_data (osec)->dynindx;
8175                             }
8176                           BFD_ASSERT (indx != 0);
8177 #ifdef DEBUG
8178                           if (indx == 0)
8179                             printf ("indx=%ld section=%s flags=%08x name=%s\n",
8180                                     indx, osec->name, osec->flags,
8181                                     h->root.root.string);
8182 #endif
8183                         }
8184
8185                       outrel.r_info = ELF32_R_INFO (indx, r_type);
8186                     }
8187                   else if (ifunc != NULL)
8188                     outrel.r_info = ELF32_R_INFO (0, R_PPC_IRELATIVE);
8189                   else
8190                     outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
8191                 }
8192
8193               loc = sreloc->contents;
8194               loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
8195               bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
8196
8197               if (skip == -1)
8198                 continue;
8199
8200               /* This reloc will be computed at runtime.  We clear the memory
8201                  so that it contains predictable value.  */
8202               if (! skip
8203                   && ((input_section->flags & SEC_ALLOC) != 0
8204                       || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE))
8205                 {
8206                   relocation = howto->pc_relative ? outrel.r_offset : 0;
8207                   addend = 0;
8208                   break;
8209                 }
8210             }
8211           break;
8212
8213         case R_PPC_RELAX_PLT:
8214         case R_PPC_RELAX_PLTREL24:
8215           if (h != NULL)
8216             {
8217               struct plt_entry *ent;
8218               bfd_vma got2_addend = 0;
8219
8220               if (r_type == R_PPC_RELAX_PLTREL24)
8221                 {
8222                   if (info->shared)
8223                     got2_addend = addend;
8224                   addend = 0;
8225                 }
8226               ent = find_plt_ent (&h->plt.plist, got2, got2_addend);
8227               if (htab->plt_type == PLT_NEW)
8228                 relocation = (htab->glink->output_section->vma
8229                               + htab->glink->output_offset
8230                               + ent->glink_offset);
8231               else
8232                 relocation = (htab->plt->output_section->vma
8233                               + htab->plt->output_offset
8234                               + ent->plt.offset);
8235             }
8236           /* Fall thru */
8237
8238         case R_PPC_RELAX:
8239           if (info->shared)
8240             relocation -= (input_section->output_section->vma
8241                            + input_section->output_offset
8242                            + rel->r_offset - 4);
8243
8244           {
8245             unsigned long t0;
8246             unsigned long t1;
8247
8248             t0 = bfd_get_32 (output_bfd, contents + rel->r_offset);
8249             t1 = bfd_get_32 (output_bfd, contents + rel->r_offset + 4);
8250
8251             /* We're clearing the bits for R_PPC_ADDR16_HA
8252                and R_PPC_ADDR16_LO here.  */
8253             t0 &= ~0xffff;
8254             t1 &= ~0xffff;
8255
8256             /* t0 is HA, t1 is LO */
8257             relocation += addend;
8258             t0 |= ((relocation + 0x8000) >> 16) & 0xffff;
8259             t1 |= relocation & 0xffff;
8260
8261             bfd_put_32 (output_bfd, t0, contents + rel->r_offset);
8262             bfd_put_32 (output_bfd, t1, contents + rel->r_offset + 4);
8263
8264             /* Rewrite the reloc and convert one of the trailing nop
8265                relocs to describe this relocation.  */
8266             BFD_ASSERT (ELF32_R_TYPE (relend[-1].r_info) == R_PPC_NONE);
8267             /* The relocs are at the bottom 2 bytes */
8268             rel[0].r_offset += 2;
8269             memmove (rel + 1, rel, (relend - rel - 1) * sizeof (*rel));
8270             rel[0].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_HA);
8271             rel[1].r_offset += 4;
8272             rel[1].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_LO);
8273             rel++;
8274           }
8275           continue;
8276
8277           /* Indirect .sdata relocation.  */
8278         case R_PPC_EMB_SDAI16:
8279           BFD_ASSERT (htab->sdata[0].section != NULL);
8280           if (!is_static_defined (htab->sdata[0].sym))
8281             {
8282               unresolved_reloc = TRUE;
8283               break;
8284             }
8285           relocation
8286             = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[0],
8287                                                  h, relocation, rel);
8288           addend = 0;
8289           break;
8290
8291           /* Indirect .sdata2 relocation.  */
8292         case R_PPC_EMB_SDA2I16:
8293           BFD_ASSERT (htab->sdata[1].section != NULL);
8294           if (!is_static_defined (htab->sdata[1].sym))
8295             {
8296               unresolved_reloc = TRUE;
8297               break;
8298             }
8299           relocation
8300             = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[1],
8301                                                  h, relocation, rel);
8302           addend = 0;
8303           break;
8304
8305           /* Handle the TOC16 reloc.  We want to use the offset within the .got
8306              section, not the actual VMA.  This is appropriate when generating
8307              an embedded ELF object, for which the .got section acts like the
8308              AIX .toc section.  */
8309         case R_PPC_TOC16:                       /* phony GOT16 relocations */
8310           if (sec == NULL || sec->output_section == NULL)
8311             {
8312               unresolved_reloc = TRUE;
8313               break;
8314             }
8315           BFD_ASSERT (strcmp (bfd_get_section_name (sec->owner, sec),
8316                               ".got") == 0
8317                       || strcmp (bfd_get_section_name (sec->owner, sec),
8318                                  ".cgot") == 0);
8319
8320           addend -= sec->output_section->vma + sec->output_offset + 0x8000;
8321           break;
8322
8323         case R_PPC_PLTREL24:
8324           if (h == NULL || ifunc != NULL)
8325             break;
8326           /* Relocation is to the entry for this symbol in the
8327              procedure linkage table.  */
8328           {
8329             struct plt_entry *ent = find_plt_ent (&h->plt.plist, got2,
8330                                                   info->shared ? addend : 0);
8331             addend = 0;
8332             if (ent == NULL
8333                 || htab->plt == NULL)
8334               {
8335                 /* We didn't make a PLT entry for this symbol.  This
8336                    happens when statically linking PIC code, or when
8337                    using -Bsymbolic.  */
8338                 break;
8339               }
8340
8341             unresolved_reloc = FALSE;
8342             if (htab->plt_type == PLT_NEW)
8343               relocation = (htab->glink->output_section->vma
8344                             + htab->glink->output_offset
8345                             + ent->glink_offset);
8346             else
8347               relocation = (htab->plt->output_section->vma
8348                             + htab->plt->output_offset
8349                             + ent->plt.offset);
8350           }
8351           break;
8352
8353           /* Relocate against _SDA_BASE_.  */
8354         case R_PPC_SDAREL16:
8355           {
8356             const char *name;
8357             struct elf_link_hash_entry *sda = htab->sdata[0].sym;
8358
8359             if (sec == NULL
8360                 || sec->output_section == NULL
8361                 || !is_static_defined (sda))
8362               {
8363                 unresolved_reloc = TRUE;
8364                 break;
8365               }
8366             addend -= SYM_VAL (sda);
8367
8368             name = bfd_get_section_name (output_bfd, sec->output_section);
8369             if (! ((CONST_STRNEQ (name, ".sdata")
8370                     && (name[6] == 0 || name[6] == '.'))
8371                    || (CONST_STRNEQ (name, ".sbss")
8372                        && (name[5] == 0 || name[5] == '.'))))
8373               {
8374                 info->callbacks->einfo
8375                   (_("%P: %B: the target (%s) of a %s relocation is "
8376                      "in the wrong output section (%s)\n"),
8377                    input_bfd,
8378                    sym_name,
8379                    howto->name,
8380                    name);
8381               }
8382           }
8383           break;
8384
8385           /* Relocate against _SDA2_BASE_.  */
8386         case R_PPC_EMB_SDA2REL:
8387           {
8388             const char *name;
8389             struct elf_link_hash_entry *sda = htab->sdata[1].sym;
8390
8391             if (sec == NULL
8392                 || sec->output_section == NULL
8393                 || !is_static_defined (sda))
8394               {
8395                 unresolved_reloc = TRUE;
8396                 break;
8397               }
8398             addend -= SYM_VAL (sda);
8399
8400             name = bfd_get_section_name (output_bfd, sec->output_section);
8401             if (! (CONST_STRNEQ (name, ".sdata2")
8402                    || CONST_STRNEQ (name, ".sbss2")))
8403               {
8404                 info->callbacks->einfo
8405                   (_("%P: %B: the target (%s) of a %s relocation is "
8406                      "in the wrong output section (%s)\n"),
8407                    input_bfd,
8408                    sym_name,
8409                    howto->name,
8410                    name);
8411               }
8412           }
8413           break;
8414
8415         case R_PPC_VLE_LO16A:
8416           relocation = (relocation + addend) & 0xffff;
8417           ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8418                                relocation, split16a_type);
8419           continue;
8420
8421         case R_PPC_VLE_LO16D:
8422           relocation = (relocation + addend) & 0xffff;
8423           ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8424                                relocation, split16d_type);
8425           continue;
8426
8427         case R_PPC_VLE_HI16A:
8428           relocation = ((relocation + addend) >> 16) & 0xffff;
8429           ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8430                                relocation, split16a_type);
8431           continue;
8432
8433         case R_PPC_VLE_HI16D:
8434           relocation = ((relocation + addend) >> 16) & 0xffff;
8435           ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8436                                relocation, split16d_type);
8437           continue;
8438
8439         case R_PPC_VLE_HA16A:
8440           {
8441             bfd_vma value = relocation + addend;
8442             value = (((value >> 16) + ((value & 0x8000) ? 1 : 0)) & 0xffff);
8443             ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8444                                  value, split16a_type);
8445           }
8446           continue;
8447
8448         case R_PPC_VLE_HA16D:
8449           {
8450             bfd_vma value = relocation + addend;
8451             value = (((value >> 16) + ((value & 0x8000) ? 1 : 0)) & 0xffff);
8452             ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8453                                  value, split16d_type);
8454           }
8455           continue;
8456
8457           /* Relocate against either _SDA_BASE_, _SDA2_BASE_, or 0.  */
8458         case R_PPC_EMB_SDA21:
8459         case R_PPC_VLE_SDA21:
8460         case R_PPC_EMB_RELSDA:
8461         case R_PPC_VLE_SDA21_LO:
8462           {
8463             const char *name;
8464             int reg;
8465             struct elf_link_hash_entry *sda = NULL;
8466
8467             if (sec == NULL || sec->output_section == NULL)
8468               {
8469                 unresolved_reloc = TRUE;
8470                 break;
8471               }
8472
8473             name = bfd_get_section_name (output_bfd, sec->output_section);
8474             if (((CONST_STRNEQ (name, ".sdata")
8475                   && (name[6] == 0 || name[6] == '.'))
8476                  || (CONST_STRNEQ (name, ".sbss")
8477                      && (name[5] == 0 || name[5] == '.'))))
8478               {
8479                 reg = 13;
8480                 sda = htab->sdata[0].sym;
8481               }
8482             else if (CONST_STRNEQ (name, ".sdata2")
8483                      || CONST_STRNEQ (name, ".sbss2"))
8484               {
8485                 reg = 2;
8486                 sda = htab->sdata[1].sym;
8487               }
8488             else if (strcmp (name, ".PPC.EMB.sdata0") == 0
8489                      || strcmp (name, ".PPC.EMB.sbss0") == 0)
8490               {
8491                 reg = 0;
8492               }
8493             else
8494               {
8495                 info->callbacks->einfo
8496                   (_("%P: %B: the target (%s) of a %s relocation is "
8497                      "in the wrong output section (%s)\n"),
8498                    input_bfd,
8499                    sym_name,
8500                    howto->name,
8501                    name);
8502
8503                 bfd_set_error (bfd_error_bad_value);
8504                 ret = FALSE;
8505                 continue;
8506               }
8507
8508             if (sda != NULL)
8509               {
8510                 if (!is_static_defined (sda))
8511                   {
8512                     unresolved_reloc = TRUE;
8513                     break;
8514                   }
8515                 addend -= SYM_VAL (sda);
8516               }
8517
8518             if (reg == 0
8519                 && (r_type == R_PPC_VLE_SDA21
8520                     || r_type == R_PPC_VLE_SDA21_LO))
8521               {
8522                 /* Use the split20 format.  */
8523                 bfd_vma insn, bits12to15, bits21to31;
8524                 bfd_vma value  = (relocation + rel->r_offset) & 0xffff;
8525                 /* Propagate sign bit, if necessary.  */
8526                 insn = (value & 0x8000) ? 0x70107800 : 0x70000000;
8527                 bits12to15 = value & 0x700;
8528                 bits21to31 = value & 0x7ff;
8529                 insn |= bits12to15;
8530                 insn |= bits21to31;
8531                 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
8532                 continue;
8533               }
8534             else if (r_type == R_PPC_EMB_SDA21
8535                      || r_type == R_PPC_VLE_SDA21
8536                      || r_type == R_PPC_VLE_SDA21_LO)
8537               {
8538                 bfd_vma insn;  /* Fill in register field.  */
8539
8540                 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
8541                 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
8542                 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
8543               }
8544           }
8545           break;
8546
8547         case R_PPC_VLE_SDAREL_LO16A:
8548         case R_PPC_VLE_SDAREL_LO16D:
8549         case R_PPC_VLE_SDAREL_HI16A:
8550         case R_PPC_VLE_SDAREL_HI16D:
8551         case R_PPC_VLE_SDAREL_HA16A:
8552         case R_PPC_VLE_SDAREL_HA16D:
8553           {
8554             bfd_vma value;
8555             const char *name;
8556             //int reg;
8557             struct elf_link_hash_entry *sda = NULL;
8558
8559             if (sec == NULL || sec->output_section == NULL)
8560               {
8561                 unresolved_reloc = TRUE;
8562                 break;
8563               }
8564
8565             name = bfd_get_section_name (output_bfd, sec->output_section);
8566             if (((CONST_STRNEQ (name, ".sdata")
8567                   && (name[6] == 0 || name[6] == '.'))
8568                  || (CONST_STRNEQ (name, ".sbss")
8569                      && (name[5] == 0 || name[5] == '.'))))
8570               {
8571                 //reg = 13;
8572                 sda = htab->sdata[0].sym;
8573               }
8574             else if (CONST_STRNEQ (name, ".sdata2")
8575                      || CONST_STRNEQ (name, ".sbss2"))
8576               {
8577                 //reg = 2;
8578                 sda = htab->sdata[1].sym;
8579               }
8580             else
8581               {
8582                 (*_bfd_error_handler)
8583                   (_("%B: the target (%s) of a %s relocation is "
8584                      "in the wrong output section (%s)"),
8585                    input_bfd,
8586                    sym_name,
8587                    howto->name,
8588                    name);
8589
8590                 bfd_set_error (bfd_error_bad_value);
8591                 ret = FALSE;
8592                 continue;
8593               }
8594
8595             if (sda != NULL)
8596               {
8597                 if (!is_static_defined (sda))
8598                   {
8599                     unresolved_reloc = TRUE;
8600                     break;
8601                   }
8602               }
8603
8604            value = sda->root.u.def.section->output_section->vma
8605                    + sda->root.u.def.section->output_offset;
8606
8607            if (r_type == R_PPC_VLE_SDAREL_LO16A)
8608               {
8609                 value = (value + addend) & 0xffff;
8610                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8611                                      value, split16a_type);
8612               }
8613            else if (r_type == R_PPC_VLE_SDAREL_LO16D)
8614               {
8615                 value = (value + addend) & 0xffff;
8616                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8617                                      value, split16d_type);
8618               }
8619            else if (r_type == R_PPC_VLE_SDAREL_HI16A)
8620               {
8621                 value = ((value + addend) >> 16) & 0xffff;
8622                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8623                                      value, split16a_type);
8624               }
8625            else if (r_type == R_PPC_VLE_SDAREL_HI16D)
8626               {
8627                 value = ((value + addend) >> 16) & 0xffff;
8628                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8629                                      value, split16d_type);
8630               }
8631            else if (r_type == R_PPC_VLE_SDAREL_HA16A)
8632               {
8633                 value += addend;
8634                 value = (((value >> 16) + ((value & 0x8000) ? 1 : 0)) & 0xffff);
8635                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8636                                      value, split16a_type);
8637               }
8638            else if (r_type == R_PPC_VLE_SDAREL_HA16D)
8639               {
8640                 value += addend;
8641                 value = (((value >> 16) + ((value & 0x8000) ? 1 : 0)) & 0xffff);
8642                 ppc_elf_vle_split16 (output_bfd, contents, rel->r_offset,
8643                                      value, split16d_type);
8644               }
8645           }
8646           continue;
8647
8648           /* Relocate against the beginning of the section.  */
8649         case R_PPC_SECTOFF:
8650         case R_PPC_SECTOFF_LO:
8651         case R_PPC_SECTOFF_HI:
8652         case R_PPC_SECTOFF_HA:
8653           if (sec == NULL || sec->output_section == NULL)
8654             {
8655               unresolved_reloc = TRUE;
8656               break;
8657             }
8658           addend -= sec->output_section->vma;
8659           break;
8660
8661           /* Negative relocations.  */
8662         case R_PPC_EMB_NADDR32:
8663         case R_PPC_EMB_NADDR16:
8664         case R_PPC_EMB_NADDR16_LO:
8665         case R_PPC_EMB_NADDR16_HI:
8666         case R_PPC_EMB_NADDR16_HA:
8667           addend -= 2 * relocation;
8668           break;
8669
8670         case R_PPC_COPY:
8671         case R_PPC_GLOB_DAT:
8672         case R_PPC_JMP_SLOT:
8673         case R_PPC_RELATIVE:
8674         case R_PPC_IRELATIVE:
8675         case R_PPC_PLT32:
8676         case R_PPC_PLTREL32:
8677         case R_PPC_PLT16_LO:
8678         case R_PPC_PLT16_HI:
8679         case R_PPC_PLT16_HA:
8680         case R_PPC_ADDR30:
8681         case R_PPC_EMB_RELSEC16:
8682         case R_PPC_EMB_RELST_LO:
8683         case R_PPC_EMB_RELST_HI:
8684         case R_PPC_EMB_RELST_HA:
8685         case R_PPC_EMB_BIT_FLD:
8686           info->callbacks->einfo
8687             (_("%P: %B: relocation %s is not yet supported for symbol %s\n"),
8688              input_bfd,
8689              howto->name,
8690              sym_name);
8691
8692           bfd_set_error (bfd_error_invalid_operation);
8693           ret = FALSE;
8694           continue;
8695         }
8696
8697       /* Do any further special processing.  */
8698       switch (r_type)
8699         {
8700         default:
8701           break;
8702
8703         case R_PPC_ADDR16_HA:
8704         case R_PPC_REL16_HA:
8705         case R_PPC_SECTOFF_HA:
8706         case R_PPC_TPREL16_HA:
8707         case R_PPC_DTPREL16_HA:
8708         case R_PPC_EMB_NADDR16_HA:
8709         case R_PPC_EMB_RELST_HA:
8710           /* It's just possible that this symbol is a weak symbol
8711              that's not actually defined anywhere.  In that case,
8712              'sec' would be NULL, and we should leave the symbol
8713              alone (it will be set to zero elsewhere in the link).  */
8714           if (sec == NULL)
8715             break;
8716           /* Fall thru */
8717
8718         case R_PPC_PLT16_HA:
8719         case R_PPC_GOT16_HA:
8720         case R_PPC_GOT_TLSGD16_HA:
8721         case R_PPC_GOT_TLSLD16_HA:
8722         case R_PPC_GOT_TPREL16_HA:
8723         case R_PPC_GOT_DTPREL16_HA:
8724           /* Add 0x10000 if sign bit in 0:15 is set.
8725              Bits 0:15 are not used.  */
8726           addend += 0x8000;
8727           break;
8728         }
8729
8730 #ifdef DEBUG
8731       fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, "
8732                "offset = %ld, addend = %ld\n",
8733                howto->name,
8734                (int) r_type,
8735                sym_name,
8736                r_symndx,
8737                (long) rel->r_offset,
8738                (long) addend);
8739 #endif
8740
8741       if (unresolved_reloc
8742           && !((input_section->flags & SEC_DEBUGGING) != 0
8743                && h->def_dynamic)
8744           && _bfd_elf_section_offset (output_bfd, info, input_section,
8745                                       rel->r_offset) != (bfd_vma) -1)
8746         {
8747           info->callbacks->einfo
8748             (_("%P: %H: unresolvable %s relocation against symbol `%s'\n"),
8749              input_bfd, input_section, rel->r_offset,
8750              howto->name,
8751              sym_name);
8752           ret = FALSE;
8753         }
8754
8755       r = _bfd_final_link_relocate (howto,
8756                                     input_bfd,
8757                                     input_section,
8758                                     contents,
8759                                     rel->r_offset,
8760                                     relocation,
8761                                     addend);
8762
8763       if (r != bfd_reloc_ok)
8764         {
8765           if (r == bfd_reloc_overflow)
8766             {
8767               if (warned)
8768                 continue;
8769               if (h != NULL
8770                   && h->root.type == bfd_link_hash_undefweak
8771                   && howto->pc_relative)
8772                 {
8773                   /* Assume this is a call protected by other code that
8774                      detect the symbol is undefined.  If this is the case,
8775                      we can safely ignore the overflow.  If not, the
8776                      program is hosed anyway, and a little warning isn't
8777                      going to help.  */
8778
8779                   continue;
8780                 }
8781
8782               if (! (*info->callbacks->reloc_overflow) (info,
8783                                                         (h ? &h->root : NULL),
8784                                                         sym_name,
8785                                                         howto->name,
8786                                                         rel->r_addend,
8787                                                         input_bfd,
8788                                                         input_section,
8789                                                         rel->r_offset))
8790                 return FALSE;
8791             }
8792           else
8793             {
8794               info->callbacks->einfo
8795                 (_("%P: %H: %s reloc against `%s': error %d\n"),
8796                  input_bfd, input_section, rel->r_offset,
8797                  howto->name, sym_name, (int) r);
8798               ret = FALSE;
8799             }
8800         }
8801     }
8802
8803 #ifdef DEBUG
8804   fprintf (stderr, "\n");
8805 #endif
8806
8807   return ret;
8808 }
8809 \f
8810 /* Finish up dynamic symbol handling.  We set the contents of various
8811    dynamic sections here.  */
8812
8813 static bfd_boolean
8814 ppc_elf_finish_dynamic_symbol (bfd *output_bfd,
8815                                struct bfd_link_info *info,
8816                                struct elf_link_hash_entry *h,
8817                                Elf_Internal_Sym *sym)
8818 {
8819   struct ppc_elf_link_hash_table *htab;
8820   struct plt_entry *ent;
8821   bfd_boolean doneone;
8822
8823 #ifdef DEBUG
8824   fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
8825            h->root.root.string);
8826 #endif
8827
8828   htab = ppc_elf_hash_table (info);
8829   BFD_ASSERT (htab->elf.dynobj != NULL);
8830
8831   doneone = FALSE;
8832   for (ent = h->plt.plist; ent != NULL; ent = ent->next)
8833     if (ent->plt.offset != (bfd_vma) -1)
8834       {
8835         if (!doneone)
8836           {
8837             Elf_Internal_Rela rela;
8838             bfd_byte *loc;
8839             bfd_vma reloc_index;
8840
8841             if (htab->plt_type == PLT_NEW
8842                 || !htab->elf.dynamic_sections_created
8843                 || h->dynindx == -1)
8844               reloc_index = ent->plt.offset / 4;
8845             else
8846               {
8847                 reloc_index = ((ent->plt.offset - htab->plt_initial_entry_size)
8848                                / htab->plt_slot_size);
8849                 if (reloc_index > PLT_NUM_SINGLE_ENTRIES
8850                     && htab->plt_type == PLT_OLD)
8851                   reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
8852               }
8853
8854             /* This symbol has an entry in the procedure linkage table.
8855                Set it up.  */
8856             if (htab->plt_type == PLT_VXWORKS
8857                 && htab->elf.dynamic_sections_created
8858                 && h->dynindx != -1)
8859               {
8860                 bfd_vma got_offset;
8861                 const bfd_vma *plt_entry;
8862
8863                 /* The first three entries in .got.plt are reserved.  */
8864                 got_offset = (reloc_index + 3) * 4;
8865
8866                 /* Use the right PLT. */
8867                 plt_entry = info->shared ? ppc_elf_vxworks_pic_plt_entry
8868                             : ppc_elf_vxworks_plt_entry;
8869
8870                 /* Fill in the .plt on VxWorks.  */
8871                 if (info->shared)
8872                   {
8873                     bfd_put_32 (output_bfd,
8874                                 plt_entry[0] | PPC_HA (got_offset),
8875                                 htab->plt->contents + ent->plt.offset + 0);
8876                     bfd_put_32 (output_bfd,
8877                                 plt_entry[1] | PPC_LO (got_offset),
8878                                 htab->plt->contents + ent->plt.offset + 4);
8879                   }
8880                 else
8881                   {
8882                     bfd_vma got_loc = got_offset + SYM_VAL (htab->elf.hgot);
8883
8884                     bfd_put_32 (output_bfd,
8885                                 plt_entry[0] | PPC_HA (got_loc),
8886                                 htab->plt->contents + ent->plt.offset + 0);
8887                     bfd_put_32 (output_bfd,
8888                                 plt_entry[1] | PPC_LO (got_loc),
8889                                 htab->plt->contents + ent->plt.offset + 4);
8890                   }
8891
8892                 bfd_put_32 (output_bfd, plt_entry[2],
8893                             htab->plt->contents + ent->plt.offset + 8);
8894                 bfd_put_32 (output_bfd, plt_entry[3],
8895                             htab->plt->contents + ent->plt.offset + 12);
8896
8897                 /* This instruction is an immediate load.  The value loaded is
8898                    the byte offset of the R_PPC_JMP_SLOT relocation from the
8899                    start of the .rela.plt section.  The value is stored in the
8900                    low-order 16 bits of the load instruction.  */
8901                 /* NOTE: It appears that this is now an index rather than a
8902                    prescaled offset.  */
8903                 bfd_put_32 (output_bfd,
8904                             plt_entry[4] | reloc_index,
8905                             htab->plt->contents + ent->plt.offset + 16);
8906                 /* This instruction is a PC-relative branch whose target is
8907                    the start of the PLT section.  The address of this branch
8908                    instruction is 20 bytes beyond the start of this PLT entry.
8909                    The address is encoded in bits 6-29, inclusive.  The value
8910                    stored is right-shifted by two bits, permitting a 26-bit
8911                    offset.  */
8912                 bfd_put_32 (output_bfd,
8913                             (plt_entry[5]
8914                              | (-(ent->plt.offset + 20) & 0x03fffffc)),
8915                             htab->plt->contents + ent->plt.offset + 20);
8916                 bfd_put_32 (output_bfd, plt_entry[6],
8917                             htab->plt->contents + ent->plt.offset + 24);
8918                 bfd_put_32 (output_bfd, plt_entry[7],
8919                             htab->plt->contents + ent->plt.offset + 28);
8920
8921                 /* Fill in the GOT entry corresponding to this PLT slot with
8922                    the address immediately after the the "bctr" instruction
8923                    in this PLT entry.  */
8924                 bfd_put_32 (output_bfd, (htab->plt->output_section->vma
8925                                          + htab->plt->output_offset
8926                                          + ent->plt.offset + 16),
8927                             htab->sgotplt->contents + got_offset);
8928
8929                 if (!info->shared)
8930                   {
8931                     /* Fill in a couple of entries in .rela.plt.unloaded.  */
8932                     loc = htab->srelplt2->contents
8933                       + ((VXWORKS_PLTRESOLVE_RELOCS + reloc_index
8934                           * VXWORKS_PLT_NON_JMP_SLOT_RELOCS)
8935                          * sizeof (Elf32_External_Rela));
8936
8937                     /* Provide the @ha relocation for the first instruction.  */
8938                     rela.r_offset = (htab->plt->output_section->vma
8939                                      + htab->plt->output_offset
8940                                      + ent->plt.offset + 2);
8941                     rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
8942                                                 R_PPC_ADDR16_HA);
8943                     rela.r_addend = got_offset;
8944                     bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
8945                     loc += sizeof (Elf32_External_Rela);
8946
8947                     /* Provide the @l relocation for the second instruction.  */
8948                     rela.r_offset = (htab->plt->output_section->vma
8949                                      + htab->plt->output_offset
8950                                      + ent->plt.offset + 6);
8951                     rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
8952                                                 R_PPC_ADDR16_LO);
8953                     rela.r_addend = got_offset;
8954                     bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
8955                     loc += sizeof (Elf32_External_Rela);
8956
8957                     /* Provide a relocation for the GOT entry corresponding to this
8958                        PLT slot.  Point it at the middle of the .plt entry.  */
8959                     rela.r_offset = (htab->sgotplt->output_section->vma
8960                                      + htab->sgotplt->output_offset
8961                                      + got_offset);
8962                     rela.r_info = ELF32_R_INFO (htab->elf.hplt->indx,
8963                                                 R_PPC_ADDR32);
8964                     rela.r_addend = ent->plt.offset + 16;
8965                     bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
8966                   }
8967
8968                 /* VxWorks uses non-standard semantics for R_PPC_JMP_SLOT.
8969                    In particular, the offset for the relocation is not the
8970                    address of the PLT entry for this function, as specified
8971                    by the ABI.  Instead, the offset is set to the address of
8972                    the GOT slot for this function.  See EABI 4.4.4.1.  */
8973                 rela.r_offset = (htab->sgotplt->output_section->vma
8974                                  + htab->sgotplt->output_offset
8975                                  + got_offset);
8976
8977               }
8978             else
8979               {
8980                 asection *splt = htab->plt;
8981                 if (!htab->elf.dynamic_sections_created
8982                     || h->dynindx == -1)
8983                   splt = htab->iplt;
8984
8985                 rela.r_offset = (splt->output_section->vma
8986                                  + splt->output_offset
8987                                  + ent->plt.offset);
8988                 if (htab->plt_type == PLT_OLD
8989                     || !htab->elf.dynamic_sections_created
8990                     || h->dynindx == -1)
8991                   {
8992                     /* We don't need to fill in the .plt.  The ppc dynamic
8993                        linker will fill it in.  */
8994                   }
8995                 else
8996                   {
8997                     bfd_vma val = (htab->glink_pltresolve + ent->plt.offset
8998                                    + htab->glink->output_section->vma
8999                                    + htab->glink->output_offset);
9000                     bfd_put_32 (output_bfd, val,
9001                                 splt->contents + ent->plt.offset);
9002                   }
9003               }
9004
9005             /* Fill in the entry in the .rela.plt section.  */
9006             rela.r_addend = 0;
9007             if (!htab->elf.dynamic_sections_created
9008                 || h->dynindx == -1)
9009               {
9010                 BFD_ASSERT (h->type == STT_GNU_IFUNC
9011                             && h->def_regular
9012                             && (h->root.type == bfd_link_hash_defined
9013                                 || h->root.type == bfd_link_hash_defweak));
9014                 rela.r_info = ELF32_R_INFO (0, R_PPC_IRELATIVE);
9015                 rela.r_addend = SYM_VAL (h);
9016               }
9017             else
9018               rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
9019
9020             if (!htab->elf.dynamic_sections_created
9021                 || h->dynindx == -1)
9022               loc = (htab->reliplt->contents
9023                      + (htab->reliplt->reloc_count++
9024                         * sizeof (Elf32_External_Rela)));
9025             else
9026               loc = (htab->relplt->contents
9027                      + reloc_index * sizeof (Elf32_External_Rela));
9028             bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
9029
9030             if (!h->def_regular)
9031               {
9032                 /* Mark the symbol as undefined, rather than as
9033                    defined in the .plt section.  Leave the value if
9034                    there were any relocations where pointer equality
9035                    matters (this is a clue for the dynamic linker, to
9036                    make function pointer comparisons work between an
9037                    application and shared library), otherwise set it
9038                    to zero.  */
9039                 sym->st_shndx = SHN_UNDEF;
9040                 if (!h->pointer_equality_needed)
9041                   sym->st_value = 0;
9042                 else if (!h->ref_regular_nonweak)
9043                   {
9044                     /* This breaks function pointer comparisons, but
9045                        that is better than breaking tests for a NULL
9046                        function pointer.  */
9047                     sym->st_value = 0;
9048                   }
9049               }
9050             else if (h->type == STT_GNU_IFUNC
9051                      && !info->shared)
9052               {
9053                 /* Set the value of ifunc symbols in a non-pie
9054                    executable to the glink entry.  This is to avoid
9055                    text relocations.  We can't do this for ifunc in
9056                    allocate_dynrelocs, as we do for normal dynamic
9057                    function symbols with plt entries, because we need
9058                    to keep the original value around for the ifunc
9059                    relocation.  */
9060                 sym->st_shndx = (_bfd_elf_section_from_bfd_section
9061                                  (output_bfd, htab->glink->output_section));
9062                 sym->st_value = (ent->glink_offset
9063                                  + htab->glink->output_offset
9064                                  + htab->glink->output_section->vma);
9065               }
9066             doneone = TRUE;
9067           }
9068
9069         if (htab->plt_type == PLT_NEW
9070             || !htab->elf.dynamic_sections_created
9071             || h->dynindx == -1)
9072           {
9073             unsigned char *p;
9074             asection *splt = htab->plt;
9075             if (!htab->elf.dynamic_sections_created
9076                 || h->dynindx == -1)
9077               splt = htab->iplt;
9078
9079             p = (unsigned char *) htab->glink->contents + ent->glink_offset;
9080
9081             if (h == htab->tls_get_addr && !htab->no_tls_get_addr_opt)
9082               {
9083                 bfd_put_32 (output_bfd, LWZ_11_3, p);
9084                 p += 4;
9085                 bfd_put_32 (output_bfd, LWZ_12_3 + 4, p);
9086                 p += 4;
9087                 bfd_put_32 (output_bfd, MR_0_3, p);
9088                 p += 4;
9089                 bfd_put_32 (output_bfd, CMPWI_11_0, p);
9090                 p += 4;
9091                 bfd_put_32 (output_bfd, ADD_3_12_2, p);
9092                 p += 4;
9093                 bfd_put_32 (output_bfd, BEQLR, p);
9094                 p += 4;
9095                 bfd_put_32 (output_bfd, MR_3_0, p);
9096                 p += 4;
9097                 bfd_put_32 (output_bfd, NOP, p);
9098                 p += 4;
9099               }
9100
9101             write_glink_stub (ent, splt, p, info);
9102
9103             if (!info->shared)
9104               /* We only need one non-PIC glink stub.  */
9105               break;
9106           }
9107         else
9108           break;
9109       }
9110
9111   if (h->needs_copy)
9112     {
9113       asection *s;
9114       Elf_Internal_Rela rela;
9115       bfd_byte *loc;
9116
9117       /* This symbols needs a copy reloc.  Set it up.  */
9118
9119 #ifdef DEBUG
9120       fprintf (stderr, ", copy");
9121 #endif
9122
9123       BFD_ASSERT (h->dynindx != -1);
9124
9125       if (ppc_elf_hash_entry (h)->has_sda_refs)
9126         s = htab->relsbss;
9127       else
9128         s = htab->relbss;
9129       BFD_ASSERT (s != NULL);
9130
9131       rela.r_offset = SYM_VAL (h);
9132       rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
9133       rela.r_addend = 0;
9134       loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
9135       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
9136     }
9137
9138 #ifdef DEBUG
9139   fprintf (stderr, "\n");
9140 #endif
9141
9142   return TRUE;
9143 }
9144 \f
9145 static enum elf_reloc_type_class
9146 ppc_elf_reloc_type_class (const Elf_Internal_Rela *rela)
9147 {
9148   switch (ELF32_R_TYPE (rela->r_info))
9149     {
9150     case R_PPC_RELATIVE:
9151       return reloc_class_relative;
9152     case R_PPC_REL24:
9153     case R_PPC_ADDR24:
9154     case R_PPC_JMP_SLOT:
9155       return reloc_class_plt;
9156     case R_PPC_COPY:
9157       return reloc_class_copy;
9158     default:
9159       return reloc_class_normal;
9160     }
9161 }
9162 \f
9163 /* Finish up the dynamic sections.  */
9164
9165 static bfd_boolean
9166 ppc_elf_finish_dynamic_sections (bfd *output_bfd,
9167                                  struct bfd_link_info *info)
9168 {
9169   asection *sdyn;
9170   asection *splt;
9171   struct ppc_elf_link_hash_table *htab;
9172   bfd_vma got;
9173   bfd *dynobj;
9174   bfd_boolean ret = TRUE;
9175
9176 #ifdef DEBUG
9177   fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
9178 #endif
9179
9180   htab = ppc_elf_hash_table (info);
9181   dynobj = elf_hash_table (info)->dynobj;
9182   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
9183   if (htab->is_vxworks)
9184     splt = bfd_get_section_by_name (dynobj, ".plt");
9185   else
9186     splt = NULL;
9187
9188   got = 0;
9189   if (htab->elf.hgot != NULL)
9190     got = SYM_VAL (htab->elf.hgot);
9191
9192   if (htab->elf.dynamic_sections_created)
9193     {
9194       Elf32_External_Dyn *dyncon, *dynconend;
9195
9196       BFD_ASSERT (htab->plt != NULL && sdyn != NULL);
9197
9198       dyncon = (Elf32_External_Dyn *) sdyn->contents;
9199       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
9200       for (; dyncon < dynconend; dyncon++)
9201         {
9202           Elf_Internal_Dyn dyn;
9203           asection *s;
9204
9205           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
9206
9207           switch (dyn.d_tag)
9208             {
9209             case DT_PLTGOT:
9210               if (htab->is_vxworks)
9211                 s = htab->sgotplt;
9212               else
9213                 s = htab->plt;
9214               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
9215               break;
9216
9217             case DT_PLTRELSZ:
9218               dyn.d_un.d_val = htab->relplt->size;
9219               break;
9220
9221             case DT_JMPREL:
9222               s = htab->relplt;
9223               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
9224               break;
9225
9226             case DT_PPC_GOT:
9227               dyn.d_un.d_ptr = got;
9228               break;
9229
9230             case DT_RELASZ:
9231               if (htab->is_vxworks)
9232                 {
9233                   if (htab->relplt)
9234                     dyn.d_un.d_ptr -= htab->relplt->size;
9235                   break;
9236                 }
9237               continue;
9238
9239             default:
9240               if (htab->is_vxworks
9241                   && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
9242                 break;
9243               continue;
9244             }
9245
9246           bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
9247         }
9248     }
9249
9250   if (htab->got != NULL)
9251     {
9252       if (htab->elf.hgot->root.u.def.section == htab->got
9253           || htab->elf.hgot->root.u.def.section == htab->sgotplt)
9254         {
9255           unsigned char *p = htab->elf.hgot->root.u.def.section->contents;
9256
9257           p += htab->elf.hgot->root.u.def.value;
9258           if (htab->plt_type == PLT_OLD)
9259             {
9260               /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4
9261                  so that a function can easily find the address of
9262                  _GLOBAL_OFFSET_TABLE_.  */
9263               BFD_ASSERT (htab->elf.hgot->root.u.def.value - 4
9264                           < htab->elf.hgot->root.u.def.section->size);
9265               bfd_put_32 (output_bfd, 0x4e800021, p - 4);
9266             }
9267
9268           if (sdyn != NULL)
9269             {
9270               bfd_vma val = sdyn->output_section->vma + sdyn->output_offset;
9271               BFD_ASSERT (htab->elf.hgot->root.u.def.value
9272                           < htab->elf.hgot->root.u.def.section->size);
9273               bfd_put_32 (output_bfd, val, p);
9274             }
9275         }
9276       else
9277         {
9278           info->callbacks->einfo (_("%P: %s not defined in linker created %s\n"),
9279                                   htab->elf.hgot->root.root.string,
9280                                   (htab->sgotplt != NULL
9281                                    ? htab->sgotplt->name : htab->got->name));
9282           bfd_set_error (bfd_error_bad_value);
9283           ret = FALSE;
9284         }
9285
9286       elf_section_data (htab->got->output_section)->this_hdr.sh_entsize = 4;
9287     }
9288
9289   /* Fill in the first entry in the VxWorks procedure linkage table.  */
9290   if (splt && splt->size > 0)
9291     {
9292       /* Use the right PLT. */
9293       const bfd_vma *plt_entry = (info->shared
9294                                   ? ppc_elf_vxworks_pic_plt0_entry
9295                                   : ppc_elf_vxworks_plt0_entry);
9296
9297       if (!info->shared)
9298         {
9299           bfd_vma got_value = SYM_VAL (htab->elf.hgot);
9300
9301           bfd_put_32 (output_bfd, plt_entry[0] | PPC_HA (got_value),
9302                       splt->contents +  0);
9303           bfd_put_32 (output_bfd, plt_entry[1] | PPC_LO (got_value),
9304                       splt->contents +  4);
9305         }
9306       else
9307         {
9308           bfd_put_32 (output_bfd, plt_entry[0], splt->contents +  0);
9309           bfd_put_32 (output_bfd, plt_entry[1], splt->contents +  4);
9310         }
9311       bfd_put_32 (output_bfd, plt_entry[2], splt->contents +  8);
9312       bfd_put_32 (output_bfd, plt_entry[3], splt->contents + 12);
9313       bfd_put_32 (output_bfd, plt_entry[4], splt->contents + 16);
9314       bfd_put_32 (output_bfd, plt_entry[5], splt->contents + 20);
9315       bfd_put_32 (output_bfd, plt_entry[6], splt->contents + 24);
9316       bfd_put_32 (output_bfd, plt_entry[7], splt->contents + 28);
9317
9318       if (! info->shared)
9319         {
9320           Elf_Internal_Rela rela;
9321           bfd_byte *loc;
9322
9323           loc = htab->srelplt2->contents;
9324
9325           /* Output the @ha relocation for the first instruction.  */
9326           rela.r_offset = (htab->plt->output_section->vma
9327                            + htab->plt->output_offset
9328                            + 2);
9329           rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
9330           rela.r_addend = 0;
9331           bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
9332           loc += sizeof (Elf32_External_Rela);
9333
9334           /* Output the @l relocation for the second instruction.  */
9335           rela.r_offset = (htab->plt->output_section->vma
9336                            + htab->plt->output_offset
9337                            + 6);
9338           rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
9339           rela.r_addend = 0;
9340           bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
9341           loc += sizeof (Elf32_External_Rela);
9342
9343           /* Fix up the remaining relocations.  They may have the wrong
9344              symbol index for _G_O_T_ or _P_L_T_ depending on the order
9345              in which symbols were output.  */
9346           while (loc < htab->srelplt2->contents + htab->srelplt2->size)
9347             {
9348               Elf_Internal_Rela rel;
9349
9350               bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
9351               rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
9352               bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
9353               loc += sizeof (Elf32_External_Rela);
9354
9355               bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
9356               rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
9357               bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
9358               loc += sizeof (Elf32_External_Rela);
9359
9360               bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
9361               rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_PPC_ADDR32);
9362               bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
9363               loc += sizeof (Elf32_External_Rela);
9364             }
9365         }
9366     }
9367
9368   if (htab->glink != NULL
9369       && htab->glink->contents != NULL
9370       && htab->elf.dynamic_sections_created)
9371     {
9372       unsigned char *p;
9373       unsigned char *endp;
9374       bfd_vma res0;
9375       unsigned int i;
9376
9377       /*
9378        * PIC glink code is the following:
9379        *
9380        * # ith PLT code stub.
9381        *   addis 11,30,(plt+(i-1)*4-got)@ha
9382        *   lwz 11,(plt+(i-1)*4-got)@l(11)
9383        *   mtctr 11
9384        *   bctr
9385        *
9386        * # A table of branches, one for each plt entry.
9387        * # The idea is that the plt call stub loads ctr and r11 with these
9388        * # addresses, so (r11 - res_0) gives the plt index * 4.
9389        * res_0: b PLTresolve
9390        * res_1: b PLTresolve
9391        * .
9392        * # Some number of entries towards the end can be nops
9393        * res_n_m3: nop
9394        * res_n_m2: nop
9395        * res_n_m1:
9396        *
9397        * PLTresolve:
9398        *    addis 11,11,(1f-res_0)@ha
9399        *    mflr 0
9400        *    bcl 20,31,1f
9401        * 1: addi 11,11,(1b-res_0)@l
9402        *    mflr 12
9403        *    mtlr 0
9404        *    sub 11,11,12                # r11 = index * 4
9405        *    addis 12,12,(got+4-1b)@ha
9406        *    lwz 0,(got+4-1b)@l(12)      # got[1] address of dl_runtime_resolve
9407        *    lwz 12,(got+8-1b)@l(12)     # got[2] contains the map address
9408        *    mtctr 0
9409        *    add 0,11,11
9410        *    add 11,0,11                 # r11 = index * 12 = reloc offset.
9411        *    bctr
9412        */
9413       static const unsigned int pic_plt_resolve[] =
9414         {
9415           ADDIS_11_11,
9416           MFLR_0,
9417           BCL_20_31,
9418           ADDI_11_11,
9419           MFLR_12,
9420           MTLR_0,
9421           SUB_11_11_12,
9422           ADDIS_12_12,
9423           LWZ_0_12,
9424           LWZ_12_12,
9425           MTCTR_0,
9426           ADD_0_11_11,
9427           ADD_11_0_11,
9428           BCTR,
9429           NOP,
9430           NOP
9431         };
9432
9433       /*
9434        * Non-PIC glink code is a little simpler.
9435        *
9436        * # ith PLT code stub.
9437        *   lis 11,(plt+(i-1)*4)@ha
9438        *   lwz 11,(plt+(i-1)*4)@l(11)
9439        *   mtctr 11
9440        *   bctr
9441        *
9442        * The branch table is the same, then comes
9443        *
9444        * PLTresolve:
9445        *    lis 12,(got+4)@ha
9446        *    addis 11,11,(-res_0)@ha
9447        *    lwz 0,(got+4)@l(12)         # got[1] address of dl_runtime_resolve
9448        *    addi 11,11,(-res_0)@l       # r11 = index * 4
9449        *    mtctr 0
9450        *    add 0,11,11
9451        *    lwz 12,(got+8)@l(12)        # got[2] contains the map address
9452        *    add 11,0,11                 # r11 = index * 12 = reloc offset.
9453        *    bctr
9454        */
9455       static const unsigned int plt_resolve[] =
9456         {
9457           LIS_12,
9458           ADDIS_11_11,
9459           LWZ_0_12,
9460           ADDI_11_11,
9461           MTCTR_0,
9462           ADD_0_11_11,
9463           LWZ_12_12,
9464           ADD_11_0_11,
9465           BCTR,
9466           NOP,
9467           NOP,
9468           NOP,
9469           NOP,
9470           NOP,
9471           NOP,
9472           NOP
9473         };
9474
9475       if (ARRAY_SIZE (pic_plt_resolve) != GLINK_PLTRESOLVE / 4)
9476         abort ();
9477       if (ARRAY_SIZE (plt_resolve) != GLINK_PLTRESOLVE / 4)
9478         abort ();
9479
9480       /* Build the branch table, one for each plt entry (less one),
9481          and perhaps some padding.  */
9482       p = htab->glink->contents;
9483       p += htab->glink_pltresolve;
9484       endp = htab->glink->contents;
9485       endp += htab->glink->size - GLINK_PLTRESOLVE;
9486       while (p < endp - 8 * 4)
9487         {
9488           bfd_put_32 (output_bfd, B + endp - p, p);
9489           p += 4;
9490         }
9491       while (p < endp)
9492         {
9493           bfd_put_32 (output_bfd, NOP, p);
9494           p += 4;
9495         }
9496
9497       res0 = (htab->glink_pltresolve
9498               + htab->glink->output_section->vma
9499               + htab->glink->output_offset);
9500
9501       /* Last comes the PLTresolve stub.  */
9502       if (info->shared)
9503         {
9504           bfd_vma bcl;
9505
9506           for (i = 0; i < ARRAY_SIZE (pic_plt_resolve); i++)
9507             {
9508               bfd_put_32 (output_bfd, pic_plt_resolve[i], p);
9509               p += 4;
9510             }
9511           p -= 4 * ARRAY_SIZE (pic_plt_resolve);
9512
9513           bcl = (htab->glink->size - GLINK_PLTRESOLVE + 3*4
9514                  + htab->glink->output_section->vma
9515                  + htab->glink->output_offset);
9516
9517           bfd_put_32 (output_bfd,
9518                       ADDIS_11_11 + PPC_HA (bcl - res0), p + 0*4);
9519           bfd_put_32 (output_bfd,
9520                       ADDI_11_11 + PPC_LO (bcl - res0), p + 3*4);
9521           bfd_put_32 (output_bfd,
9522                       ADDIS_12_12 + PPC_HA (got + 4 - bcl), p + 7*4);
9523           if (PPC_HA (got + 4 - bcl) == PPC_HA (got + 8 - bcl))
9524             {
9525               bfd_put_32 (output_bfd,
9526                           LWZ_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
9527               bfd_put_32 (output_bfd,
9528                           LWZ_12_12 + PPC_LO (got + 8 - bcl), p + 9*4);
9529             }
9530           else
9531             {
9532               bfd_put_32 (output_bfd,
9533                           LWZU_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
9534               bfd_put_32 (output_bfd,
9535                           LWZ_12_12 + 4, p + 9*4);
9536             }
9537         }
9538       else
9539         {
9540           for (i = 0; i < ARRAY_SIZE (plt_resolve); i++)
9541             {
9542               bfd_put_32 (output_bfd, plt_resolve[i], p);
9543               p += 4;
9544             }
9545           p -= 4 * ARRAY_SIZE (plt_resolve);
9546
9547           bfd_put_32 (output_bfd,
9548                       LIS_12 + PPC_HA (got + 4), p + 0*4);
9549           bfd_put_32 (output_bfd,
9550                       ADDIS_11_11 + PPC_HA (-res0), p + 1*4);
9551           bfd_put_32 (output_bfd,
9552                       ADDI_11_11 + PPC_LO (-res0), p + 3*4);
9553           if (PPC_HA (got + 4) == PPC_HA (got + 8))
9554             {
9555               bfd_put_32 (output_bfd,
9556                           LWZ_0_12 + PPC_LO (got + 4), p + 2*4);
9557               bfd_put_32 (output_bfd,
9558                           LWZ_12_12 + PPC_LO (got + 8), p + 6*4);
9559             }
9560           else
9561             {
9562               bfd_put_32 (output_bfd,
9563                           LWZU_0_12 + PPC_LO (got + 4), p + 2*4);
9564               bfd_put_32 (output_bfd,
9565                           LWZ_12_12 + 4, p + 6*4);
9566             }
9567         }
9568     }
9569
9570   if (htab->glink_eh_frame != NULL
9571       && htab->glink_eh_frame->contents != NULL)
9572     {
9573       unsigned char *p = htab->glink_eh_frame->contents;
9574       bfd_vma val;
9575
9576       memcpy (p, glink_eh_frame_cie, sizeof (glink_eh_frame_cie));
9577       /* CIE length (rewrite in case little-endian).  */
9578       bfd_put_32 (htab->elf.dynobj, sizeof (glink_eh_frame_cie) - 4, p);
9579       p += sizeof (glink_eh_frame_cie);
9580       /* FDE length.  */
9581       val = htab->glink_eh_frame->size - 4 - sizeof (glink_eh_frame_cie);
9582       bfd_put_32 (htab->elf.dynobj, val, p);
9583       p += 4;
9584       /* CIE pointer.  */
9585       val = p - htab->glink_eh_frame->contents;
9586       bfd_put_32 (htab->elf.dynobj, val, p);
9587       p += 4;
9588       /* Offset to .glink.  */
9589       val = (htab->glink->output_section->vma
9590              + htab->glink->output_offset);
9591       val -= (htab->glink_eh_frame->output_section->vma
9592               + htab->glink_eh_frame->output_offset);
9593       val -= p - htab->glink_eh_frame->contents;
9594       bfd_put_32 (htab->elf.dynobj, val, p);
9595       p += 4;
9596       /* .glink size.  */
9597       bfd_put_32 (htab->elf.dynobj, htab->glink->size, p);
9598       p += 4;
9599       /* Augmentation.  */
9600       p += 1;
9601
9602       if (info->shared
9603           && htab->elf.dynamic_sections_created)
9604         {
9605           bfd_vma adv = (htab->glink->size - GLINK_PLTRESOLVE + 8) >> 2;
9606           if (adv < 64)
9607             *p++ = DW_CFA_advance_loc + adv;
9608           else if (adv < 256)
9609             {
9610               *p++ = DW_CFA_advance_loc1;
9611               *p++ = adv;
9612             }
9613           else if (adv < 65536)
9614             {
9615               *p++ = DW_CFA_advance_loc2;
9616               bfd_put_16 (htab->elf.dynobj, adv, p);
9617               p += 2;
9618             }
9619           else
9620             {
9621               *p++ = DW_CFA_advance_loc4;
9622               bfd_put_32 (htab->elf.dynobj, adv, p);
9623               p += 4;
9624             }
9625           *p++ = DW_CFA_register;
9626           *p++ = 65;
9627           p++;
9628           *p++ = DW_CFA_advance_loc + 4;
9629           *p++ = DW_CFA_restore_extended;
9630           *p++ = 65;
9631         }
9632       BFD_ASSERT ((bfd_vma) ((p + 3 - htab->glink_eh_frame->contents) & -4)
9633                   == htab->glink_eh_frame->size);
9634
9635       if (htab->glink_eh_frame->sec_info_type == SEC_INFO_TYPE_EH_FRAME
9636           && !_bfd_elf_write_section_eh_frame (output_bfd, info,
9637                                                htab->glink_eh_frame,
9638                                                htab->glink_eh_frame->contents))
9639         return FALSE;
9640     }
9641
9642   return ret;
9643 }
9644 \f
9645 #define TARGET_LITTLE_SYM       bfd_elf32_powerpcle_vec
9646 #define TARGET_LITTLE_NAME      "elf32-powerpcle"
9647 #define TARGET_BIG_SYM          bfd_elf32_powerpc_vec
9648 #define TARGET_BIG_NAME         "elf32-powerpc"
9649 #define ELF_ARCH                bfd_arch_powerpc
9650 #define ELF_TARGET_ID           PPC32_ELF_DATA
9651 #define ELF_MACHINE_CODE        EM_PPC
9652 #ifdef __QNXTARGET__
9653 #define ELF_MAXPAGESIZE         0x1000
9654 #else
9655 #define ELF_MAXPAGESIZE         0x10000
9656 #endif
9657 #define ELF_MINPAGESIZE         0x1000
9658 #define ELF_COMMONPAGESIZE      0x1000
9659 #define elf_info_to_howto       ppc_elf_info_to_howto
9660
9661 #ifdef  EM_CYGNUS_POWERPC
9662 #define ELF_MACHINE_ALT1        EM_CYGNUS_POWERPC
9663 #endif
9664
9665 #ifdef EM_PPC_OLD
9666 #define ELF_MACHINE_ALT2        EM_PPC_OLD
9667 #endif
9668
9669 #define elf_backend_plt_not_loaded      1
9670 #define elf_backend_can_gc_sections     1
9671 #define elf_backend_can_refcount        1
9672 #define elf_backend_rela_normal         1
9673
9674 #define bfd_elf32_mkobject                      ppc_elf_mkobject
9675 #define bfd_elf32_bfd_merge_private_bfd_data    ppc_elf_merge_private_bfd_data
9676 #define bfd_elf32_bfd_relax_section             ppc_elf_relax_section
9677 #define bfd_elf32_bfd_reloc_type_lookup         ppc_elf_reloc_type_lookup
9678 #define bfd_elf32_bfd_reloc_name_lookup         ppc_elf_reloc_name_lookup
9679 #define bfd_elf32_bfd_set_private_flags         ppc_elf_set_private_flags
9680 #define bfd_elf32_bfd_link_hash_table_create    ppc_elf_link_hash_table_create
9681 #define bfd_elf32_get_synthetic_symtab          ppc_elf_get_synthetic_symtab
9682
9683 #define elf_backend_object_p                    ppc_elf_object_p
9684 #define elf_backend_gc_mark_hook                ppc_elf_gc_mark_hook
9685 #define elf_backend_gc_sweep_hook               ppc_elf_gc_sweep_hook
9686 #define elf_backend_section_from_shdr           ppc_elf_section_from_shdr
9687 #define elf_backend_relocate_section            ppc_elf_relocate_section
9688 #define elf_backend_create_dynamic_sections     ppc_elf_create_dynamic_sections
9689 #define elf_backend_check_relocs                ppc_elf_check_relocs
9690 #define elf_backend_copy_indirect_symbol        ppc_elf_copy_indirect_symbol
9691 #define elf_backend_adjust_dynamic_symbol       ppc_elf_adjust_dynamic_symbol
9692 #define elf_backend_add_symbol_hook             ppc_elf_add_symbol_hook
9693 #define elf_backend_size_dynamic_sections       ppc_elf_size_dynamic_sections
9694 #define elf_backend_hash_symbol                 ppc_elf_hash_symbol
9695 #define elf_backend_finish_dynamic_symbol       ppc_elf_finish_dynamic_symbol
9696 #define elf_backend_finish_dynamic_sections     ppc_elf_finish_dynamic_sections
9697 #define elf_backend_fake_sections               ppc_elf_fake_sections
9698 #define elf_backend_additional_program_headers  ppc_elf_additional_program_headers
9699 #define elf_backend_modify_segment_map          ppc_elf_modify_segment_map
9700 #define elf_backend_grok_prstatus               ppc_elf_grok_prstatus
9701 #define elf_backend_grok_psinfo                 ppc_elf_grok_psinfo
9702 #define elf_backend_write_core_note             ppc_elf_write_core_note
9703 #define elf_backend_reloc_type_class            ppc_elf_reloc_type_class
9704 #define elf_backend_begin_write_processing      ppc_elf_begin_write_processing
9705 #define elf_backend_final_write_processing      ppc_elf_final_write_processing
9706 #define elf_backend_write_section               ppc_elf_write_section
9707 #define elf_backend_get_sec_type_attr           ppc_elf_get_sec_type_attr
9708 #define elf_backend_plt_sym_val                 ppc_elf_plt_sym_val
9709 #define elf_backend_action_discarded            ppc_elf_action_discarded
9710 #define elf_backend_init_index_section          _bfd_elf_init_1_index_section
9711 #define elf_backend_post_process_headers        _bfd_elf_set_osabi
9712 #define elf_backend_lookup_section_flags_hook   ppc_elf_lookup_section_flags
9713 #define elf_backend_section_processing          ppc_elf_section_processing
9714
9715 #include "elf32-target.h"
9716
9717 /* FreeBSD Target */
9718
9719 #undef  TARGET_LITTLE_SYM
9720 #undef  TARGET_LITTLE_NAME
9721
9722 #undef  TARGET_BIG_SYM
9723 #define TARGET_BIG_SYM  bfd_elf32_powerpc_freebsd_vec
9724 #undef  TARGET_BIG_NAME
9725 #define TARGET_BIG_NAME "elf32-powerpc-freebsd"
9726
9727 #undef  ELF_OSABI
9728 #define ELF_OSABI       ELFOSABI_FREEBSD
9729
9730 #undef  elf32_bed
9731 #define elf32_bed       elf32_powerpc_fbsd_bed
9732
9733 #include "elf32-target.h"
9734
9735 /* VxWorks Target */
9736
9737 #undef TARGET_LITTLE_SYM
9738 #undef TARGET_LITTLE_NAME
9739
9740 #undef TARGET_BIG_SYM
9741 #define TARGET_BIG_SYM          bfd_elf32_powerpc_vxworks_vec
9742 #undef TARGET_BIG_NAME
9743 #define TARGET_BIG_NAME         "elf32-powerpc-vxworks"
9744
9745 #undef  ELF_OSABI
9746
9747 /* VxWorks uses the elf default section flags for .plt.  */
9748 static const struct bfd_elf_special_section *
9749 ppc_elf_vxworks_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
9750 {
9751   if (sec->name == NULL)
9752     return NULL;
9753
9754   if (strcmp (sec->name, ".plt") == 0)
9755     return _bfd_elf_get_sec_type_attr (abfd, sec);
9756
9757   return ppc_elf_get_sec_type_attr (abfd, sec);
9758 }
9759
9760 /* Like ppc_elf_link_hash_table_create, but overrides
9761    appropriately for VxWorks.  */
9762 static struct bfd_link_hash_table *
9763 ppc_elf_vxworks_link_hash_table_create (bfd *abfd)
9764 {
9765   struct bfd_link_hash_table *ret;
9766
9767   ret = ppc_elf_link_hash_table_create (abfd);
9768   if (ret)
9769     {
9770       struct ppc_elf_link_hash_table *htab
9771         = (struct ppc_elf_link_hash_table *)ret;
9772       htab->is_vxworks = 1;
9773       htab->plt_type = PLT_VXWORKS;
9774       htab->plt_entry_size = VXWORKS_PLT_ENTRY_SIZE;
9775       htab->plt_slot_size = VXWORKS_PLT_ENTRY_SIZE;
9776       htab->plt_initial_entry_size = VXWORKS_PLT_INITIAL_ENTRY_SIZE;
9777     }
9778   return ret;
9779 }
9780
9781 /* Tweak magic VxWorks symbols as they are loaded.  */
9782 static bfd_boolean
9783 ppc_elf_vxworks_add_symbol_hook (bfd *abfd,
9784                                  struct bfd_link_info *info,
9785                                  Elf_Internal_Sym *sym,
9786                                  const char **namep ATTRIBUTE_UNUSED,
9787                                  flagword *flagsp ATTRIBUTE_UNUSED,
9788                                  asection **secp,
9789                                  bfd_vma *valp)
9790 {
9791   if (!elf_vxworks_add_symbol_hook(abfd, info, sym,namep, flagsp, secp,
9792                                    valp))
9793     return FALSE;
9794
9795   return ppc_elf_add_symbol_hook(abfd, info, sym,namep, flagsp, secp, valp);
9796 }
9797
9798 static void
9799 ppc_elf_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
9800 {
9801   ppc_elf_final_write_processing(abfd, linker);
9802   elf_vxworks_final_write_processing(abfd, linker);
9803 }
9804
9805 /* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
9806    define it.  */
9807 #undef elf_backend_want_plt_sym
9808 #define elf_backend_want_plt_sym                1
9809 #undef elf_backend_want_got_plt
9810 #define elf_backend_want_got_plt                1
9811 #undef elf_backend_got_symbol_offset
9812 #define elf_backend_got_symbol_offset           0
9813 #undef elf_backend_plt_not_loaded
9814 #define elf_backend_plt_not_loaded              0
9815 #undef elf_backend_plt_readonly
9816 #define elf_backend_plt_readonly                1
9817 #undef elf_backend_got_header_size
9818 #define elf_backend_got_header_size             12
9819
9820 #undef bfd_elf32_get_synthetic_symtab
9821
9822 #undef bfd_elf32_bfd_link_hash_table_create
9823 #define bfd_elf32_bfd_link_hash_table_create \
9824   ppc_elf_vxworks_link_hash_table_create
9825 #undef elf_backend_add_symbol_hook
9826 #define elf_backend_add_symbol_hook \
9827   ppc_elf_vxworks_add_symbol_hook
9828 #undef elf_backend_link_output_symbol_hook
9829 #define elf_backend_link_output_symbol_hook \
9830   elf_vxworks_link_output_symbol_hook
9831 #undef elf_backend_final_write_processing
9832 #define elf_backend_final_write_processing \
9833   ppc_elf_vxworks_final_write_processing
9834 #undef elf_backend_get_sec_type_attr
9835 #define elf_backend_get_sec_type_attr \
9836   ppc_elf_vxworks_get_sec_type_attr
9837 #undef elf_backend_emit_relocs
9838 #define elf_backend_emit_relocs \
9839   elf_vxworks_emit_relocs
9840
9841 #undef elf32_bed
9842 #define elf32_bed                               ppc_elf_vxworks_bed
9843 #undef elf_backend_post_process_headers
9844
9845 #include "elf32-target.h"