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