Add the DragonFly cvs id and perform general cleanups on cvs/rcs/sccs ids. Most
[dragonfly.git] / contrib / binutils / bfd / elf32-ppc.c
1 /* PowerPC-specific support for 32-bit ELF
2    Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
3    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 Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
21
22 /* This file is based on a preliminary PowerPC ELF ABI.  The
23    information may not match the final PowerPC ELF ABI.  It includes
24    suggestions from the in-progress Embedded PowerPC ABI, and that
25    information may also not match.  */
26
27 #include "bfd.h"
28 #include "sysdep.h"
29 #include "bfdlink.h"
30 #include "libbfd.h"
31 #include "elf-bfd.h"
32 #include "elf/ppc.h"
33
34 #define USE_RELA                /* we want RELA relocations, not REL */
35
36 static reloc_howto_type *ppc_elf_reloc_type_lookup
37   PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
38 static void ppc_elf_info_to_howto
39   PARAMS ((bfd *abfd, arelent *cache_ptr, Elf32_Internal_Rela *dst));
40 static void ppc_elf_howto_init PARAMS ((void));
41 static int ppc_elf_sort_rela PARAMS ((const PTR, const PTR));
42 static boolean ppc_elf_relax_section
43   PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *));
44 static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
45   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
46 static boolean ppc_elf_set_private_flags PARAMS ((bfd *, flagword));
47 static boolean ppc_elf_merge_private_bfd_data PARAMS ((bfd *, bfd *));
48
49 static int ppc_elf_additional_program_headers PARAMS ((bfd *));
50 static boolean ppc_elf_modify_segment_map PARAMS ((bfd *));
51
52 static asection *ppc_elf_create_got
53   PARAMS ((bfd *, struct bfd_link_info *));
54 static boolean ppc_elf_create_dynamic_sections
55   PARAMS ((bfd *, struct bfd_link_info *));
56
57 static boolean ppc_elf_section_from_shdr PARAMS ((bfd *,
58                                                   Elf32_Internal_Shdr *,
59                                                   char *));
60 static boolean ppc_elf_fake_sections
61   PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *));
62
63 static elf_linker_section_t *ppc_elf_create_linker_section
64   PARAMS ((bfd *abfd,
65            struct bfd_link_info *info,
66            enum elf_linker_section_enum));
67
68 static boolean ppc_elf_check_relocs PARAMS ((bfd *,
69                                              struct bfd_link_info *,
70                                              asection *,
71                                              const Elf_Internal_Rela *));
72
73 static asection * ppc_elf_gc_mark_hook PARAMS ((bfd *abfd,
74                                                 struct bfd_link_info *info,
75                                                 Elf_Internal_Rela *rel,
76                                                 struct elf_link_hash_entry *h,
77                                                 Elf_Internal_Sym *sym));
78
79 static boolean ppc_elf_gc_sweep_hook PARAMS ((bfd *abfd,
80                                               struct bfd_link_info *info,
81                                               asection *sec,
82                                               const Elf_Internal_Rela *relocs));
83
84 static boolean ppc_elf_adjust_dynamic_symbol PARAMS ((struct bfd_link_info *,
85                                                       struct elf_link_hash_entry *));
86
87 static boolean ppc_elf_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
88
89 static boolean ppc_elf_relocate_section PARAMS ((bfd *,
90                                                  struct bfd_link_info *info,
91                                                  bfd *,
92                                                  asection *,
93                                                  bfd_byte *,
94                                                  Elf_Internal_Rela *relocs,
95                                                  Elf_Internal_Sym *local_syms,
96                                                  asection **));
97
98 static boolean ppc_elf_add_symbol_hook  PARAMS ((bfd *,
99                                                  struct bfd_link_info *,
100                                                  const Elf_Internal_Sym *,
101                                                  const char **,
102                                                  flagword *,
103                                                  asection **,
104                                                  bfd_vma *));
105
106 static boolean ppc_elf_finish_dynamic_symbol PARAMS ((bfd *,
107                                                       struct bfd_link_info *,
108                                                       struct elf_link_hash_entry *,
109                                                       Elf_Internal_Sym *));
110
111 static boolean ppc_elf_finish_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
112 static enum elf_reloc_type_class ppc_elf_reloc_type_class
113   PARAMS ((const Elf_Internal_Rela *));
114 static boolean ppc_elf_grok_prstatus
115   PARAMS ((bfd *abfd, Elf_Internal_Note *note));
116 static boolean ppc_elf_grok_psinfo
117   PARAMS ((bfd *abfd, Elf_Internal_Note *note));
118
119 #define BRANCH_PREDICT_BIT 0x200000             /* branch prediction bit for branch taken relocs */
120 #define RA_REGISTER_MASK 0x001f0000             /* mask to set RA in memory instructions */
121 #define RA_REGISTER_SHIFT 16                    /* value to shift register by to insert RA */
122
123 /* The name of the dynamic interpreter.  This is put in the .interp
124    section.  */
125
126 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
127
128 /* The size in bytes of an entry in the procedure linkage table.  */
129 #define PLT_ENTRY_SIZE 12
130 /* The initial size of the plt reserved for the dynamic linker.  */
131 #define PLT_INITIAL_ENTRY_SIZE 72
132 /* The size of the gap between entries in the PLT.  */
133 #define PLT_SLOT_SIZE 8
134 /* The number of single-slot PLT entries (the rest use two slots).  */
135 #define PLT_NUM_SINGLE_ENTRIES 8192
136
137 /* Will references to this symbol always reference the symbol
138    in this object?  */
139 #define SYMBOL_REFERENCES_LOCAL(INFO, H)                                \
140   ((! INFO->shared                                                      \
141     || INFO->symbolic                                                   \
142     || H->dynindx == -1                                                 \
143     || ELF_ST_VISIBILITY (H->other) == STV_INTERNAL                     \
144     || ELF_ST_VISIBILITY (H->other) == STV_HIDDEN)                      \
145    && (H->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
146
147 /* Will _calls_ to this symbol always call the version in this object?  */
148 #define SYMBOL_CALLS_LOCAL(INFO, H)                             \
149   ((! INFO->shared                                                      \
150     || INFO->symbolic                                                   \
151     || H->dynindx == -1                                                 \
152     || ELF_ST_VISIBILITY (H->other) != STV_DEFAULT)                     \
153    && (H->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
154 \f
155 static reloc_howto_type *ppc_elf_howto_table[(int) R_PPC_max];
156
157 static reloc_howto_type ppc_elf_howto_raw[] = {
158   /* This reloc does nothing.  */
159   HOWTO (R_PPC_NONE,            /* type */
160          0,                     /* rightshift */
161          2,                     /* size (0 = byte, 1 = short, 2 = long) */
162          32,                    /* bitsize */
163          false,                 /* pc_relative */
164          0,                     /* bitpos */
165          complain_overflow_bitfield, /* complain_on_overflow */
166          bfd_elf_generic_reloc, /* special_function */
167          "R_PPC_NONE",          /* name */
168          false,                 /* partial_inplace */
169          0,                     /* src_mask */
170          0,                     /* dst_mask */
171          false),                /* pcrel_offset */
172
173   /* A standard 32 bit relocation.  */
174   HOWTO (R_PPC_ADDR32,          /* type */
175          0,                     /* rightshift */
176          2,                     /* size (0 = byte, 1 = short, 2 = long) */
177          32,                    /* bitsize */
178          false,                 /* pc_relative */
179          0,                     /* bitpos */
180          complain_overflow_bitfield, /* complain_on_overflow */
181          bfd_elf_generic_reloc, /* special_function */
182          "R_PPC_ADDR32",        /* name */
183          false,                 /* partial_inplace */
184          0,                     /* src_mask */
185          0xffffffff,            /* dst_mask */
186          false),                /* pcrel_offset */
187
188   /* An absolute 26 bit branch; the lower two bits must be zero.
189      FIXME: we don't check that, we just clear them.  */
190   HOWTO (R_PPC_ADDR24,          /* type */
191          0,                     /* rightshift */
192          2,                     /* size (0 = byte, 1 = short, 2 = long) */
193          26,                    /* bitsize */
194          false,                 /* pc_relative */
195          0,                     /* bitpos */
196          complain_overflow_bitfield, /* complain_on_overflow */
197          bfd_elf_generic_reloc, /* special_function */
198          "R_PPC_ADDR24",        /* name */
199          false,                 /* partial_inplace */
200          0,                     /* src_mask */
201          0x3fffffc,             /* dst_mask */
202          false),                /* pcrel_offset */
203
204   /* A standard 16 bit relocation.  */
205   HOWTO (R_PPC_ADDR16,          /* type */
206          0,                     /* rightshift */
207          1,                     /* size (0 = byte, 1 = short, 2 = long) */
208          16,                    /* bitsize */
209          false,                 /* pc_relative */
210          0,                     /* bitpos */
211          complain_overflow_bitfield, /* complain_on_overflow */
212          bfd_elf_generic_reloc, /* special_function */
213          "R_PPC_ADDR16",        /* name */
214          false,                 /* partial_inplace */
215          0,                     /* src_mask */
216          0xffff,                /* dst_mask */
217          false),                /* pcrel_offset */
218
219   /* A 16 bit relocation without overflow.  */
220   HOWTO (R_PPC_ADDR16_LO,       /* type */
221          0,                     /* rightshift */
222          1,                     /* size (0 = byte, 1 = short, 2 = long) */
223          16,                    /* bitsize */
224          false,                 /* pc_relative */
225          0,                     /* bitpos */
226          complain_overflow_dont,/* complain_on_overflow */
227          bfd_elf_generic_reloc, /* special_function */
228          "R_PPC_ADDR16_LO",     /* name */
229          false,                 /* partial_inplace */
230          0,                     /* src_mask */
231          0xffff,                /* dst_mask */
232          false),                /* pcrel_offset */
233
234   /* The high order 16 bits of an address.  */
235   HOWTO (R_PPC_ADDR16_HI,       /* type */
236          16,                    /* rightshift */
237          1,                     /* size (0 = byte, 1 = short, 2 = long) */
238          16,                    /* bitsize */
239          false,                 /* pc_relative */
240          0,                     /* bitpos */
241          complain_overflow_dont, /* complain_on_overflow */
242          bfd_elf_generic_reloc, /* special_function */
243          "R_PPC_ADDR16_HI",     /* name */
244          false,                 /* partial_inplace */
245          0,                     /* src_mask */
246          0xffff,                /* dst_mask */
247          false),                /* pcrel_offset */
248
249   /* The high order 16 bits of an address, plus 1 if the contents of
250      the low 16 bits, treated as a signed number, is negative.  */
251   HOWTO (R_PPC_ADDR16_HA,       /* type */
252          16,                    /* rightshift */
253          1,                     /* size (0 = byte, 1 = short, 2 = long) */
254          16,                    /* bitsize */
255          false,                 /* pc_relative */
256          0,                     /* bitpos */
257          complain_overflow_dont, /* complain_on_overflow */
258          ppc_elf_addr16_ha_reloc, /* special_function */
259          "R_PPC_ADDR16_HA",     /* name */
260          false,                 /* partial_inplace */
261          0,                     /* src_mask */
262          0xffff,                /* dst_mask */
263          false),                /* pcrel_offset */
264
265   /* An absolute 16 bit branch; the lower two bits must be zero.
266      FIXME: we don't check that, we just clear them.  */
267   HOWTO (R_PPC_ADDR14,          /* type */
268          0,                     /* rightshift */
269          2,                     /* size (0 = byte, 1 = short, 2 = long) */
270          16,                    /* bitsize */
271          false,                 /* pc_relative */
272          0,                     /* bitpos */
273          complain_overflow_bitfield, /* complain_on_overflow */
274          bfd_elf_generic_reloc, /* special_function */
275          "R_PPC_ADDR14",        /* name */
276          false,                 /* partial_inplace */
277          0,                     /* src_mask */
278          0xfffc,                /* dst_mask */
279          false),                /* pcrel_offset */
280
281   /* An absolute 16 bit branch, for which bit 10 should be set to
282      indicate that the branch is expected to be taken.  The lower two
283      bits must be zero.  */
284   HOWTO (R_PPC_ADDR14_BRTAKEN,  /* type */
285          0,                     /* rightshift */
286          2,                     /* size (0 = byte, 1 = short, 2 = long) */
287          16,                    /* bitsize */
288          false,                 /* pc_relative */
289          0,                     /* bitpos */
290          complain_overflow_bitfield, /* complain_on_overflow */
291          bfd_elf_generic_reloc, /* special_function */
292          "R_PPC_ADDR14_BRTAKEN",/* name */
293          false,                 /* partial_inplace */
294          0,                     /* src_mask */
295          0xfffc,                /* dst_mask */
296          false),                /* pcrel_offset */
297
298   /* An absolute 16 bit branch, for which bit 10 should be set to
299      indicate that the branch is not expected to be taken.  The lower
300      two bits must be zero.  */
301   HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
302          0,                     /* rightshift */
303          2,                     /* size (0 = byte, 1 = short, 2 = long) */
304          16,                    /* bitsize */
305          false,                 /* pc_relative */
306          0,                     /* bitpos */
307          complain_overflow_bitfield, /* complain_on_overflow */
308          bfd_elf_generic_reloc, /* special_function */
309          "R_PPC_ADDR14_BRNTAKEN",/* name */
310          false,                 /* partial_inplace */
311          0,                     /* src_mask */
312          0xfffc,                /* dst_mask */
313          false),                /* pcrel_offset */
314
315   /* A relative 26 bit branch; the lower two bits must be zero.  */
316   HOWTO (R_PPC_REL24,           /* type */
317          0,                     /* rightshift */
318          2,                     /* size (0 = byte, 1 = short, 2 = long) */
319          26,                    /* bitsize */
320          true,                  /* pc_relative */
321          0,                     /* bitpos */
322          complain_overflow_signed, /* complain_on_overflow */
323          bfd_elf_generic_reloc, /* special_function */
324          "R_PPC_REL24",         /* name */
325          false,                 /* partial_inplace */
326          0,                     /* src_mask */
327          0x3fffffc,             /* dst_mask */
328          true),                 /* pcrel_offset */
329
330   /* A relative 16 bit branch; the lower two bits must be zero.  */
331   HOWTO (R_PPC_REL14,           /* type */
332          0,                     /* rightshift */
333          2,                     /* size (0 = byte, 1 = short, 2 = long) */
334          16,                    /* bitsize */
335          true,                  /* pc_relative */
336          0,                     /* bitpos */
337          complain_overflow_signed, /* complain_on_overflow */
338          bfd_elf_generic_reloc, /* special_function */
339          "R_PPC_REL14",         /* name */
340          false,                 /* partial_inplace */
341          0,                     /* src_mask */
342          0xfffc,                /* dst_mask */
343          true),                 /* pcrel_offset */
344
345   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
346      the branch is expected to be taken.  The lower two bits must be
347      zero.  */
348   HOWTO (R_PPC_REL14_BRTAKEN,   /* type */
349          0,                     /* rightshift */
350          2,                     /* size (0 = byte, 1 = short, 2 = long) */
351          16,                    /* bitsize */
352          true,                  /* pc_relative */
353          0,                     /* bitpos */
354          complain_overflow_signed, /* complain_on_overflow */
355          bfd_elf_generic_reloc, /* special_function */
356          "R_PPC_REL14_BRTAKEN", /* name */
357          false,                 /* partial_inplace */
358          0,                     /* src_mask */
359          0xfffc,                /* dst_mask */
360          true),                 /* pcrel_offset */
361
362   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
363      the branch is not expected to be taken.  The lower two bits must
364      be zero.  */
365   HOWTO (R_PPC_REL14_BRNTAKEN,  /* type */
366          0,                     /* rightshift */
367          2,                     /* size (0 = byte, 1 = short, 2 = long) */
368          16,                    /* bitsize */
369          true,                  /* pc_relative */
370          0,                     /* bitpos */
371          complain_overflow_signed, /* complain_on_overflow */
372          bfd_elf_generic_reloc, /* special_function */
373          "R_PPC_REL14_BRNTAKEN",/* name */
374          false,                 /* partial_inplace */
375          0,                     /* src_mask */
376          0xfffc,                /* dst_mask */
377          true),                 /* pcrel_offset */
378
379   /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
380      symbol.  */
381   HOWTO (R_PPC_GOT16,           /* type */
382          0,                     /* rightshift */
383          1,                     /* size (0 = byte, 1 = short, 2 = long) */
384          16,                    /* bitsize */
385          false,                 /* pc_relative */
386          0,                     /* bitpos */
387          complain_overflow_signed, /* complain_on_overflow */
388          bfd_elf_generic_reloc, /* special_function */
389          "R_PPC_GOT16",         /* name */
390          false,                 /* partial_inplace */
391          0,                     /* src_mask */
392          0xffff,                /* dst_mask */
393          false),                /* pcrel_offset */
394
395   /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
396      the symbol.  */
397   HOWTO (R_PPC_GOT16_LO,        /* type */
398          0,                     /* rightshift */
399          1,                     /* size (0 = byte, 1 = short, 2 = long) */
400          16,                    /* bitsize */
401          false,                 /* pc_relative */
402          0,                     /* bitpos */
403          complain_overflow_dont, /* complain_on_overflow */
404          bfd_elf_generic_reloc, /* special_function */
405          "R_PPC_GOT16_LO",      /* name */
406          false,                 /* partial_inplace */
407          0,                     /* src_mask */
408          0xffff,                /* dst_mask */
409          false),                /* pcrel_offset */
410
411   /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
412      the symbol.  */
413   HOWTO (R_PPC_GOT16_HI,        /* type */
414          16,                    /* rightshift */
415          1,                     /* size (0 = byte, 1 = short, 2 = long) */
416          16,                    /* bitsize */
417          false,                 /* pc_relative */
418          0,                     /* bitpos */
419          complain_overflow_bitfield, /* complain_on_overflow */
420          bfd_elf_generic_reloc, /* special_function */
421          "R_PPC_GOT16_HI",      /* name */
422          false,                 /* partial_inplace */
423          0,                     /* src_mask */
424          0xffff,                /* dst_mask */
425          false),                 /* pcrel_offset */
426
427   /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
428      the symbol.  */
429   HOWTO (R_PPC_GOT16_HA,        /* type */
430          16,                    /* rightshift */
431          1,                     /* size (0 = byte, 1 = short, 2 = long) */
432          16,                    /* bitsize */
433          false,                 /* pc_relative */
434          0,                     /* bitpos */
435          complain_overflow_bitfield, /* complain_on_overflow */
436          ppc_elf_addr16_ha_reloc, /* special_function */
437          "R_PPC_GOT16_HA",      /* name */
438          false,                 /* partial_inplace */
439          0,                     /* src_mask */
440          0xffff,                /* dst_mask */
441          false),                /* pcrel_offset */
442
443   /* Like R_PPC_REL24, but referring to the procedure linkage table
444      entry for the symbol.  */
445   HOWTO (R_PPC_PLTREL24,        /* type */
446          0,                     /* rightshift */
447          2,                     /* size (0 = byte, 1 = short, 2 = long) */
448          26,                    /* bitsize */
449          true,                  /* pc_relative */
450          0,                     /* bitpos */
451          complain_overflow_signed,  /* complain_on_overflow */
452          bfd_elf_generic_reloc, /* special_function */
453          "R_PPC_PLTREL24",      /* name */
454          false,                 /* partial_inplace */
455          0,                     /* src_mask */
456          0x3fffffc,             /* dst_mask */
457          true),                 /* pcrel_offset */
458
459   /* This is used only by the dynamic linker.  The symbol should exist
460      both in the object being run and in some shared library.  The
461      dynamic linker copies the data addressed by the symbol from the
462      shared library into the object, because the object being
463      run has to have the data at some particular address.  */
464   HOWTO (R_PPC_COPY,            /* type */
465          0,                     /* rightshift */
466          2,                     /* size (0 = byte, 1 = short, 2 = long) */
467          32,                    /* bitsize */
468          false,                 /* pc_relative */
469          0,                     /* bitpos */
470          complain_overflow_bitfield, /* complain_on_overflow */
471          bfd_elf_generic_reloc,  /* special_function */
472          "R_PPC_COPY",          /* name */
473          false,                 /* partial_inplace */
474          0,                     /* src_mask */
475          0,                     /* dst_mask */
476          false),                /* pcrel_offset */
477
478   /* Like R_PPC_ADDR32, but used when setting global offset table
479      entries.  */
480   HOWTO (R_PPC_GLOB_DAT,        /* type */
481          0,                     /* rightshift */
482          2,                     /* size (0 = byte, 1 = short, 2 = long) */
483          32,                    /* bitsize */
484          false,                 /* pc_relative */
485          0,                     /* bitpos */
486          complain_overflow_bitfield, /* complain_on_overflow */
487          bfd_elf_generic_reloc,  /* special_function */
488          "R_PPC_GLOB_DAT",      /* name */
489          false,                 /* partial_inplace */
490          0,                     /* src_mask */
491          0xffffffff,            /* dst_mask */
492          false),                /* pcrel_offset */
493
494   /* Marks a procedure linkage table entry for a symbol.  */
495   HOWTO (R_PPC_JMP_SLOT,        /* type */
496          0,                     /* rightshift */
497          2,                     /* size (0 = byte, 1 = short, 2 = long) */
498          32,                    /* bitsize */
499          false,                 /* pc_relative */
500          0,                     /* bitpos */
501          complain_overflow_bitfield, /* complain_on_overflow */
502          bfd_elf_generic_reloc,  /* special_function */
503          "R_PPC_JMP_SLOT",      /* name */
504          false,                 /* partial_inplace */
505          0,                     /* src_mask */
506          0,                     /* dst_mask */
507          false),                /* pcrel_offset */
508
509   /* Used only by the dynamic linker.  When the object is run, this
510      longword is set to the load address of the object, plus the
511      addend.  */
512   HOWTO (R_PPC_RELATIVE,        /* type */
513          0,                     /* rightshift */
514          2,                     /* size (0 = byte, 1 = short, 2 = long) */
515          32,                    /* bitsize */
516          false,                 /* pc_relative */
517          0,                     /* bitpos */
518          complain_overflow_bitfield, /* complain_on_overflow */
519          bfd_elf_generic_reloc,  /* special_function */
520          "R_PPC_RELATIVE",      /* name */
521          false,                 /* partial_inplace */
522          0,                     /* src_mask */
523          0xffffffff,            /* dst_mask */
524          false),                /* pcrel_offset */
525
526   /* Like R_PPC_REL24, but uses the value of the symbol within the
527      object rather than the final value.  Normally used for
528      _GLOBAL_OFFSET_TABLE_.  */
529   HOWTO (R_PPC_LOCAL24PC,       /* type */
530          0,                     /* rightshift */
531          2,                     /* size (0 = byte, 1 = short, 2 = long) */
532          26,                    /* bitsize */
533          true,                  /* pc_relative */
534          0,                     /* bitpos */
535          complain_overflow_signed, /* complain_on_overflow */
536          bfd_elf_generic_reloc, /* special_function */
537          "R_PPC_LOCAL24PC",     /* name */
538          false,                 /* partial_inplace */
539          0,                     /* src_mask */
540          0x3fffffc,             /* dst_mask */
541          true),                 /* pcrel_offset */
542
543   /* Like R_PPC_ADDR32, but may be unaligned.  */
544   HOWTO (R_PPC_UADDR32,         /* type */
545          0,                     /* rightshift */
546          2,                     /* size (0 = byte, 1 = short, 2 = long) */
547          32,                    /* bitsize */
548          false,                 /* pc_relative */
549          0,                     /* bitpos */
550          complain_overflow_bitfield, /* complain_on_overflow */
551          bfd_elf_generic_reloc, /* special_function */
552          "R_PPC_UADDR32",       /* name */
553          false,                 /* partial_inplace */
554          0,                     /* src_mask */
555          0xffffffff,            /* dst_mask */
556          false),                /* pcrel_offset */
557
558   /* Like R_PPC_ADDR16, but may be unaligned.  */
559   HOWTO (R_PPC_UADDR16,         /* type */
560          0,                     /* rightshift */
561          1,                     /* size (0 = byte, 1 = short, 2 = long) */
562          16,                    /* bitsize */
563          false,                 /* pc_relative */
564          0,                     /* bitpos */
565          complain_overflow_bitfield, /* complain_on_overflow */
566          bfd_elf_generic_reloc, /* special_function */
567          "R_PPC_UADDR16",       /* name */
568          false,                 /* partial_inplace */
569          0,                     /* src_mask */
570          0xffff,                /* dst_mask */
571          false),                /* pcrel_offset */
572
573   /* 32-bit PC relative */
574   HOWTO (R_PPC_REL32,           /* type */
575          0,                     /* rightshift */
576          2,                     /* size (0 = byte, 1 = short, 2 = long) */
577          32,                    /* bitsize */
578          true,                  /* pc_relative */
579          0,                     /* bitpos */
580          complain_overflow_bitfield, /* complain_on_overflow */
581          bfd_elf_generic_reloc, /* special_function */
582          "R_PPC_REL32",         /* name */
583          false,                 /* partial_inplace */
584          0,                     /* src_mask */
585          0xffffffff,            /* dst_mask */
586          true),                 /* pcrel_offset */
587
588   /* 32-bit relocation to the symbol's procedure linkage table.
589      FIXME: not supported.  */
590   HOWTO (R_PPC_PLT32,           /* type */
591          0,                     /* rightshift */
592          2,                     /* size (0 = byte, 1 = short, 2 = long) */
593          32,                    /* bitsize */
594          false,                 /* pc_relative */
595          0,                     /* bitpos */
596          complain_overflow_bitfield, /* complain_on_overflow */
597          bfd_elf_generic_reloc, /* special_function */
598          "R_PPC_PLT32",         /* name */
599          false,                 /* partial_inplace */
600          0,                     /* src_mask */
601          0,                     /* dst_mask */
602          false),                /* pcrel_offset */
603
604   /* 32-bit PC relative relocation to the symbol's procedure linkage table.
605      FIXME: not supported.  */
606   HOWTO (R_PPC_PLTREL32,        /* type */
607          0,                     /* rightshift */
608          2,                     /* size (0 = byte, 1 = short, 2 = long) */
609          32,                    /* bitsize */
610          true,                  /* pc_relative */
611          0,                     /* bitpos */
612          complain_overflow_bitfield, /* complain_on_overflow */
613          bfd_elf_generic_reloc, /* special_function */
614          "R_PPC_PLTREL32",      /* name */
615          false,                 /* partial_inplace */
616          0,                     /* src_mask */
617          0,                     /* dst_mask */
618          true),                 /* pcrel_offset */
619
620   /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
621      the symbol.  */
622   HOWTO (R_PPC_PLT16_LO,        /* type */
623          0,                     /* rightshift */
624          1,                     /* size (0 = byte, 1 = short, 2 = long) */
625          16,                    /* bitsize */
626          false,                 /* pc_relative */
627          0,                     /* bitpos */
628          complain_overflow_dont, /* complain_on_overflow */
629          bfd_elf_generic_reloc, /* special_function */
630          "R_PPC_PLT16_LO",      /* name */
631          false,                 /* partial_inplace */
632          0,                     /* src_mask */
633          0xffff,                /* dst_mask */
634          false),                /* pcrel_offset */
635
636   /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
637      the symbol.  */
638   HOWTO (R_PPC_PLT16_HI,        /* type */
639          16,                    /* rightshift */
640          1,                     /* size (0 = byte, 1 = short, 2 = long) */
641          16,                    /* bitsize */
642          false,                 /* pc_relative */
643          0,                     /* bitpos */
644          complain_overflow_bitfield, /* complain_on_overflow */
645          bfd_elf_generic_reloc, /* special_function */
646          "R_PPC_PLT16_HI",      /* name */
647          false,                 /* partial_inplace */
648          0,                     /* src_mask */
649          0xffff,                /* dst_mask */
650          false),                 /* pcrel_offset */
651
652   /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
653      the symbol.  */
654   HOWTO (R_PPC_PLT16_HA,        /* type */
655          16,                    /* rightshift */
656          1,                     /* size (0 = byte, 1 = short, 2 = long) */
657          16,                    /* bitsize */
658          false,                 /* pc_relative */
659          0,                     /* bitpos */
660          complain_overflow_bitfield, /* complain_on_overflow */
661          ppc_elf_addr16_ha_reloc, /* special_function */
662          "R_PPC_PLT16_HA",      /* name */
663          false,                 /* partial_inplace */
664          0,                     /* src_mask */
665          0xffff,                /* dst_mask */
666          false),                /* pcrel_offset */
667
668   /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
669      small data items.  */
670   HOWTO (R_PPC_SDAREL16,        /* type */
671          0,                     /* rightshift */
672          1,                     /* size (0 = byte, 1 = short, 2 = long) */
673          16,                    /* bitsize */
674          false,                 /* pc_relative */
675          0,                     /* bitpos */
676          complain_overflow_signed, /* complain_on_overflow */
677          bfd_elf_generic_reloc, /* special_function */
678          "R_PPC_SDAREL16",      /* name */
679          false,                 /* partial_inplace */
680          0,                     /* src_mask */
681          0xffff,                /* dst_mask */
682          false),                /* pcrel_offset */
683
684   /* 16-bit section relative relocation.  */
685   HOWTO (R_PPC_SECTOFF,         /* type */
686          0,                     /* rightshift */
687          1,                     /* size (0 = byte, 1 = short, 2 = long) */
688          16,                    /* bitsize */
689          false,                 /* pc_relative */
690          0,                     /* bitpos */
691          complain_overflow_bitfield, /* complain_on_overflow */
692          bfd_elf_generic_reloc, /* special_function */
693          "R_PPC_SECTOFF",       /* name */
694          false,                 /* partial_inplace */
695          0,                     /* src_mask */
696          0xffff,                /* dst_mask */
697          false),                /* pcrel_offset */
698
699   /* 16-bit lower half section relative relocation.  */
700   HOWTO (R_PPC_SECTOFF_LO,        /* type */
701          0,                     /* rightshift */
702          1,                     /* size (0 = byte, 1 = short, 2 = long) */
703          16,                    /* bitsize */
704          false,                 /* pc_relative */
705          0,                     /* bitpos */
706          complain_overflow_dont, /* complain_on_overflow */
707          bfd_elf_generic_reloc, /* special_function */
708          "R_PPC_SECTOFF_LO",    /* name */
709          false,                 /* partial_inplace */
710          0,                     /* src_mask */
711          0xffff,                /* dst_mask */
712          false),                /* pcrel_offset */
713
714   /* 16-bit upper half section relative relocation.  */
715   HOWTO (R_PPC_SECTOFF_HI,      /* type */
716          16,                    /* rightshift */
717          1,                     /* size (0 = byte, 1 = short, 2 = long) */
718          16,                    /* bitsize */
719          false,                 /* pc_relative */
720          0,                     /* bitpos */
721          complain_overflow_bitfield, /* complain_on_overflow */
722          bfd_elf_generic_reloc, /* special_function */
723          "R_PPC_SECTOFF_HI",    /* name */
724          false,                 /* partial_inplace */
725          0,                     /* src_mask */
726          0xffff,                /* dst_mask */
727          false),                 /* pcrel_offset */
728
729   /* 16-bit upper half adjusted section relative relocation.  */
730   HOWTO (R_PPC_SECTOFF_HA,      /* type */
731          16,                    /* rightshift */
732          1,                     /* size (0 = byte, 1 = short, 2 = long) */
733          16,                    /* bitsize */
734          false,                 /* pc_relative */
735          0,                     /* bitpos */
736          complain_overflow_bitfield, /* complain_on_overflow */
737          ppc_elf_addr16_ha_reloc, /* special_function */
738          "R_PPC_SECTOFF_HA",    /* name */
739          false,                 /* partial_inplace */
740          0,                     /* src_mask */
741          0xffff,                /* dst_mask */
742          false),                /* pcrel_offset */
743
744   /* The remaining relocs are from the Embedded ELF ABI, and are not
745      in the SVR4 ELF ABI.  */
746
747   /* 32 bit value resulting from the addend minus the symbol */
748   HOWTO (R_PPC_EMB_NADDR32,     /* type */
749          0,                     /* rightshift */
750          2,                     /* size (0 = byte, 1 = short, 2 = long) */
751          32,                    /* bitsize */
752          false,                 /* pc_relative */
753          0,                     /* bitpos */
754          complain_overflow_bitfield, /* complain_on_overflow */
755          bfd_elf_generic_reloc, /* special_function */
756          "R_PPC_EMB_NADDR32",   /* name */
757          false,                 /* partial_inplace */
758          0,                     /* src_mask */
759          0xffffffff,            /* dst_mask */
760          false),                /* pcrel_offset */
761
762   /* 16 bit value resulting from the addend minus the symbol */
763   HOWTO (R_PPC_EMB_NADDR16,     /* type */
764          0,                     /* rightshift */
765          1,                     /* size (0 = byte, 1 = short, 2 = long) */
766          16,                    /* bitsize */
767          false,                 /* pc_relative */
768          0,                     /* bitpos */
769          complain_overflow_bitfield, /* complain_on_overflow */
770          bfd_elf_generic_reloc, /* special_function */
771          "R_PPC_EMB_NADDR16",   /* name */
772          false,                 /* partial_inplace */
773          0,                     /* src_mask */
774          0xffff,                /* dst_mask */
775          false),                /* pcrel_offset */
776
777   /* 16 bit value resulting from the addend minus the symbol */
778   HOWTO (R_PPC_EMB_NADDR16_LO,  /* type */
779          0,                     /* rightshift */
780          1,                     /* size (0 = byte, 1 = short, 2 = long) */
781          16,                    /* bitsize */
782          false,                 /* pc_relative */
783          0,                     /* bitpos */
784          complain_overflow_dont,/* complain_on_overflow */
785          bfd_elf_generic_reloc, /* special_function */
786          "R_PPC_EMB_ADDR16_LO", /* name */
787          false,                 /* partial_inplace */
788          0,                     /* src_mask */
789          0xffff,                /* dst_mask */
790          false),                /* pcrel_offset */
791
792   /* The high order 16 bits of the addend minus the symbol */
793   HOWTO (R_PPC_EMB_NADDR16_HI,  /* type */
794          16,                    /* rightshift */
795          1,                     /* size (0 = byte, 1 = short, 2 = long) */
796          16,                    /* bitsize */
797          false,                 /* pc_relative */
798          0,                     /* bitpos */
799          complain_overflow_dont, /* complain_on_overflow */
800          bfd_elf_generic_reloc, /* special_function */
801          "R_PPC_EMB_NADDR16_HI", /* name */
802          false,                 /* partial_inplace */
803          0,                     /* src_mask */
804          0xffff,                /* dst_mask */
805          false),                /* pcrel_offset */
806
807   /* The high order 16 bits of the result of the addend minus the address,
808      plus 1 if the contents of the low 16 bits, treated as a signed number,
809      is negative.  */
810   HOWTO (R_PPC_EMB_NADDR16_HA,  /* type */
811          16,                    /* rightshift */
812          1,                     /* size (0 = byte, 1 = short, 2 = long) */
813          16,                    /* bitsize */
814          false,                 /* pc_relative */
815          0,                     /* bitpos */
816          complain_overflow_dont, /* complain_on_overflow */
817          ppc_elf_addr16_ha_reloc, /* special_function */
818          "R_PPC_EMB_NADDR16_HA", /* name */
819          false,                 /* partial_inplace */
820          0,                     /* src_mask */
821          0xffff,                /* dst_mask */
822          false),                /* pcrel_offset */
823
824   /* 16 bit value resulting from allocating a 4 byte word to hold an
825      address in the .sdata section, and returning the offset from
826      _SDA_BASE_ for that relocation */
827   HOWTO (R_PPC_EMB_SDAI16,      /* type */
828          0,                     /* rightshift */
829          1,                     /* size (0 = byte, 1 = short, 2 = long) */
830          16,                    /* bitsize */
831          false,                 /* pc_relative */
832          0,                     /* bitpos */
833          complain_overflow_bitfield, /* complain_on_overflow */
834          bfd_elf_generic_reloc, /* special_function */
835          "R_PPC_EMB_SDAI16",    /* name */
836          false,                 /* partial_inplace */
837          0,                     /* src_mask */
838          0xffff,                /* dst_mask */
839          false),                /* pcrel_offset */
840
841   /* 16 bit value resulting from allocating a 4 byte word to hold an
842      address in the .sdata2 section, and returning the offset from
843      _SDA2_BASE_ for that relocation */
844   HOWTO (R_PPC_EMB_SDA2I16,     /* type */
845          0,                     /* rightshift */
846          1,                     /* size (0 = byte, 1 = short, 2 = long) */
847          16,                    /* bitsize */
848          false,                 /* pc_relative */
849          0,                     /* bitpos */
850          complain_overflow_bitfield, /* complain_on_overflow */
851          bfd_elf_generic_reloc, /* special_function */
852          "R_PPC_EMB_SDA2I16",   /* name */
853          false,                 /* partial_inplace */
854          0,                     /* src_mask */
855          0xffff,                /* dst_mask */
856          false),                /* pcrel_offset */
857
858   /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
859      small data items.   */
860   HOWTO (R_PPC_EMB_SDA2REL,     /* type */
861          0,                     /* rightshift */
862          1,                     /* size (0 = byte, 1 = short, 2 = long) */
863          16,                    /* bitsize */
864          false,                 /* pc_relative */
865          0,                     /* bitpos */
866          complain_overflow_signed, /* complain_on_overflow */
867          bfd_elf_generic_reloc, /* special_function */
868          "R_PPC_EMB_SDA2REL",   /* name */
869          false,                 /* partial_inplace */
870          0,                     /* src_mask */
871          0xffff,                /* dst_mask */
872          false),                /* pcrel_offset */
873
874   /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
875      signed offset from the appropriate base, and filling in the register
876      field with the appropriate register (0, 2, or 13).  */
877   HOWTO (R_PPC_EMB_SDA21,       /* type */
878          0,                     /* rightshift */
879          2,                     /* size (0 = byte, 1 = short, 2 = long) */
880          16,                    /* bitsize */
881          false,                 /* pc_relative */
882          0,                     /* bitpos */
883          complain_overflow_signed, /* complain_on_overflow */
884          bfd_elf_generic_reloc, /* special_function */
885          "R_PPC_EMB_SDA21",     /* name */
886          false,                 /* partial_inplace */
887          0,                     /* src_mask */
888          0xffff,                /* dst_mask */
889          false),                /* pcrel_offset */
890
891   /* Relocation not handled: R_PPC_EMB_MRKREF */
892   /* Relocation not handled: R_PPC_EMB_RELSEC16 */
893   /* Relocation not handled: R_PPC_EMB_RELST_LO */
894   /* Relocation not handled: R_PPC_EMB_RELST_HI */
895   /* Relocation not handled: R_PPC_EMB_RELST_HA */
896   /* Relocation not handled: R_PPC_EMB_BIT_FLD */
897
898   /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
899      in the 16 bit signed offset from the appropriate base, and filling in the
900      register field with the appropriate register (0, 2, or 13).  */
901   HOWTO (R_PPC_EMB_RELSDA,      /* type */
902          0,                     /* rightshift */
903          1,                     /* size (0 = byte, 1 = short, 2 = long) */
904          16,                    /* bitsize */
905          true,                  /* pc_relative */
906          0,                     /* bitpos */
907          complain_overflow_signed, /* complain_on_overflow */
908          bfd_elf_generic_reloc, /* special_function */
909          "R_PPC_EMB_RELSDA",    /* name */
910          false,                 /* partial_inplace */
911          0,                     /* src_mask */
912          0xffff,                /* dst_mask */
913          false),                /* pcrel_offset */
914
915   /* GNU extension to record C++ vtable hierarchy */
916   HOWTO (R_PPC_GNU_VTINHERIT,   /* type */
917          0,                     /* rightshift */
918          0,                     /* size (0 = byte, 1 = short, 2 = long) */
919          0,                     /* bitsize */
920          false,                 /* pc_relative */
921          0,                     /* bitpos */
922          complain_overflow_dont, /* complain_on_overflow */
923          NULL,                  /* special_function */
924          "R_PPC_GNU_VTINHERIT", /* name */
925          false,                 /* partial_inplace */
926          0,                     /* src_mask */
927          0,                     /* dst_mask */
928          false),                /* pcrel_offset */
929
930   /* GNU extension to record C++ vtable member usage */
931   HOWTO (R_PPC_GNU_VTENTRY,     /* type */
932          0,                     /* rightshift */
933          0,                     /* size (0 = byte, 1 = short, 2 = long) */
934          0,                     /* bitsize */
935          false,                 /* pc_relative */
936          0,                     /* bitpos */
937          complain_overflow_dont, /* complain_on_overflow */
938          NULL,                  /* special_function */
939          "R_PPC_GNU_VTENTRY",   /* name */
940          false,                 /* partial_inplace */
941          0,                     /* src_mask */
942          0,                     /* dst_mask */
943          false),                /* pcrel_offset */
944
945   /* Phony reloc to handle AIX style TOC entries */
946   HOWTO (R_PPC_TOC16,           /* type */
947          0,                     /* rightshift */
948          1,                     /* size (0 = byte, 1 = short, 2 = long) */
949          16,                    /* bitsize */
950          false,                 /* pc_relative */
951          0,                     /* bitpos */
952          complain_overflow_signed, /* complain_on_overflow */
953          bfd_elf_generic_reloc, /* special_function */
954          "R_PPC_TOC16",         /* name */
955          false,                 /* partial_inplace */
956          0,                     /* src_mask */
957          0xffff,                /* dst_mask */
958          false),                /* pcrel_offset */
959 };
960 \f
961 /* Initialize the ppc_elf_howto_table, so that linear accesses can be done.  */
962
963 static void
964 ppc_elf_howto_init ()
965 {
966   unsigned int i, type;
967
968   for (i = 0; i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]); i++)
969     {
970       type = ppc_elf_howto_raw[i].type;
971       BFD_ASSERT (type < sizeof (ppc_elf_howto_table) / sizeof (ppc_elf_howto_table[0]));
972       ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
973     }
974 }
975 \f
976 /* This function handles relaxing for the PPC with option --mpc860c0[=<n>].
977
978    The MPC860, revision C0 or earlier contains a bug in the die.
979    If all of the following conditions are true, the next instruction
980    to be executed *may* be treated as a no-op.
981    1/ A forward branch is executed.
982    2/ The branch is predicted as not taken.
983    3/ The branch is taken.
984    4/ The branch is located in the last 5 words of a page.
985       (The EOP limit is 5 by default but may be specified as any value from 1-10.)
986
987    Our software solution is to detect these problematic branches in a
988    linker pass and modify them as follows:
989    1/ Unconditional branches - Since these are always predicted taken,
990       there is no problem and no action is required.
991    2/ Conditional backward branches - No problem, no action required.
992    3/ Conditional forward branches - Ensure that the "inverse prediction
993       bit" is set (ensure it is predicted taken).
994    4/ Conditional register branches - Ensure that the "y bit" is set
995       (ensure it is predicted taken).
996 */
997
998 /* Sort sections by address.  */
999
1000 static int
1001 ppc_elf_sort_rela (arg1, arg2)
1002      const PTR arg1;
1003      const PTR arg2;
1004 {
1005   const Elf_Internal_Rela **rela1 = (const Elf_Internal_Rela**) arg1;
1006   const Elf_Internal_Rela **rela2 = (const Elf_Internal_Rela**) arg2;
1007
1008   /* Sort by offset.  */
1009   return ((*rela1)->r_offset - (*rela2)->r_offset);
1010 }
1011
1012 static boolean
1013 ppc_elf_relax_section (abfd, isec, link_info, again)
1014      bfd *abfd;
1015      asection *isec;
1016      struct bfd_link_info *link_info;
1017      boolean *again;
1018 {
1019 #define PAGESIZE 0x1000
1020
1021   bfd_byte *contents = NULL;
1022   bfd_byte *free_contents = NULL;
1023   Elf_Internal_Rela *internal_relocs = NULL;
1024   Elf_Internal_Rela *free_relocs = NULL;
1025   Elf_Internal_Rela **rela_comb = NULL;
1026   int comb_curr, comb_count;
1027
1028   /* We never have to do this more than once per input section.  */
1029   *again = false;
1030
1031   /* If needed, initialize this section's cooked size.  */
1032   if (isec->_cooked_size == 0)
1033       isec->_cooked_size = isec->_raw_size;
1034
1035   /* We're only interested in text sections which overlap the
1036      troublesome area at the end of a page.  */
1037   if (link_info->mpc860c0 && (isec->flags & SEC_CODE) && isec->_cooked_size)
1038     {
1039       bfd_vma dot, end_page, end_section;
1040       boolean section_modified;
1041
1042       /* Get the section contents.  */
1043       /* Get cached copy if it exists.  */
1044       if (elf_section_data (isec)->this_hdr.contents != NULL)
1045           contents = elf_section_data (isec)->this_hdr.contents;
1046       else
1047         {
1048           /* Go get them off disk.  */
1049           contents = (bfd_byte *) bfd_malloc (isec->_raw_size);
1050           if (contents == NULL)
1051             goto error_return;
1052           free_contents = contents;
1053
1054           if (! bfd_get_section_contents (abfd, isec, contents,
1055                                           (file_ptr) 0, isec->_raw_size))
1056             goto error_return;
1057         }
1058
1059       comb_curr = 0;
1060       comb_count = 0;
1061       if (isec->reloc_count)
1062         {
1063           unsigned n;
1064           bfd_size_type amt;
1065
1066           /* Get a copy of the native relocations.  */
1067           internal_relocs = _bfd_elf32_link_read_relocs (
1068             abfd, isec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
1069             link_info->keep_memory);
1070           if (internal_relocs == NULL)
1071               goto error_return;
1072           if (! link_info->keep_memory)
1073               free_relocs = internal_relocs;
1074
1075           /* Setup a faster access method for the reloc info we need.  */
1076           amt = isec->reloc_count;
1077           amt *= sizeof (Elf_Internal_Rela*);
1078           rela_comb = (Elf_Internal_Rela**) bfd_malloc (amt);
1079           if (rela_comb == NULL)
1080               goto error_return;
1081           for (n = 0; n < isec->reloc_count; ++n)
1082             {
1083               long r_type;
1084
1085               r_type = ELF32_R_TYPE (internal_relocs[n].r_info);
1086               if (r_type < 0 || r_type >= (int) R_PPC_max)
1087                   goto error_return;
1088
1089               /* Prologue constants are sometimes present in the ".text"
1090               sections and they can be identified by their associated relocation.
1091               We don't want to process those words and some others which
1092               can also be identified by their relocations.  However, not all
1093               conditional branches will have a relocation so we will
1094               only ignore words that 1) have a reloc, and 2) the reloc
1095               is not applicable to a conditional branch.
1096               The array rela_comb is built here for use in the EOP scan loop.  */
1097               switch (r_type)
1098                 {
1099                 case R_PPC_ADDR14_BRNTAKEN:     /* absolute, predicted not taken */
1100                 case R_PPC_REL14:               /* relative cond. br.  */
1101                 case R_PPC_REL14_BRNTAKEN:      /* rel. cond. br., predicted not taken */
1102                   /* We should check the instruction.  */
1103                   break;
1104                 default:
1105                   /* The word is not a conditional branch - ignore it.  */
1106                   rela_comb[comb_count++] = &internal_relocs[n];
1107                   break;
1108                 }
1109             }
1110           if (comb_count > 1)
1111             qsort (rela_comb, (size_t) comb_count, sizeof (int), ppc_elf_sort_rela);
1112         }
1113
1114       /* Enumerate each EOP region that overlaps this section.  */
1115       end_section = isec->vma + isec->_cooked_size;
1116       dot = end_page = (isec->vma | (PAGESIZE - 1)) + 1;
1117       dot -= link_info->mpc860c0;
1118       section_modified = false;
1119       if (dot < isec->vma)      /* Increment the start position if this section */
1120           dot = isec->vma;      /* begins in the middle of its first EOP region.  */
1121       for (;
1122            dot < end_section;
1123            dot += PAGESIZE, end_page += PAGESIZE)
1124         {
1125
1126           /* Check each word in this EOP region.  */
1127           for (; dot < end_page; dot += 4)
1128             {
1129               bfd_vma isec_offset;
1130               unsigned long insn;
1131               boolean skip, modified;
1132
1133               /* Don't process this word if there is a relocation for it and
1134               the relocation indicates the word is not a conditional branch.  */
1135               skip = false;
1136               isec_offset = dot - isec->vma;
1137               for (; comb_curr<comb_count; ++comb_curr)
1138                 {
1139                   bfd_vma r_offset;
1140
1141                   r_offset = rela_comb[comb_curr]->r_offset;
1142                   if (r_offset >= isec_offset)
1143                     {
1144                       if (r_offset == isec_offset) skip = true;
1145                       break;
1146                     }
1147                 }
1148               if (skip) continue;
1149
1150               /* Check the current word for a problematic conditional branch.  */
1151 #define BO0(insn) ((insn) & 0x02000000)
1152 #define BO2(insn) ((insn) & 0x00800000)
1153 #define BO4(insn) ((insn) & 0x00200000)
1154               insn = (unsigned long) bfd_get_32 (abfd, contents + isec_offset);
1155               modified = false;
1156               if ((insn & 0xFc000000) == 0x40000000)
1157                 {
1158                   /* Instruction is BCx */
1159                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1160                     {
1161                       bfd_vma target;
1162                       /* This branch is predicted as "normal".
1163                       If this is a forward branch, it is problematic.  */
1164
1165                       target = insn & 0x0000Fffc;               /*extract*/
1166                       target = (target ^ 0x8000) - 0x8000;      /*sign extend*/
1167                       if ((insn & 0x00000002) == 0)
1168                           target += dot;                        /*convert to abs*/
1169                       if (target > dot)
1170                         {
1171                           insn |= 0x00200000;   /* set the prediction bit */
1172                           modified = true;
1173                         }
1174                     }
1175                 }
1176               else if ((insn & 0xFc00Fffe) == 0x4c000420)
1177                 {
1178                   /* Instruction is BCCTRx */
1179                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1180                     {
1181                       /* This branch is predicted as not-taken.
1182                       If this is a forward branch, it is problematic.
1183                       Since we can't tell statically if it will branch forward,
1184                       always set the prediction bit.  */
1185                       insn |= 0x00200000;   /* set the prediction bit */
1186                       modified = true;
1187                     }
1188                 }
1189               else if ((insn & 0xFc00Fffe) == 0x4c000020)
1190                 {
1191                   /* Instruction is BCLRx */
1192                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1193                     {
1194                       /* This branch is predicted as not-taken.
1195                       If this is a forward branch, it is problematic.
1196                       Since we can't tell statically if it will branch forward,
1197                       always set the prediction bit.  */
1198                       insn |= 0x00200000;   /* set the prediction bit */
1199                       modified = true;
1200                     }
1201                 }
1202 #undef BO0
1203 #undef BO2
1204 #undef BO4
1205               if (modified)
1206                 {
1207                   bfd_put_32 (abfd, (bfd_vma) insn, contents + isec_offset);
1208                   section_modified = true;
1209                 }
1210             }
1211         }
1212       if (section_modified)
1213         {
1214           elf_section_data (isec)->this_hdr.contents = contents;
1215           free_contents = NULL;
1216         }
1217     }
1218
1219   if (rela_comb != NULL)
1220     {
1221       free (rela_comb);
1222       rela_comb = NULL;
1223     }
1224
1225   if (free_relocs != NULL)
1226     {
1227       free (free_relocs);
1228       free_relocs = NULL;
1229     }
1230
1231   if (free_contents != NULL)
1232     {
1233       if (! link_info->keep_memory)
1234         free (free_contents);
1235       else
1236         {
1237           /* Cache the section contents for elf_link_input_bfd.  */
1238           elf_section_data (isec)->this_hdr.contents = contents;
1239         }
1240       free_contents = NULL;
1241     }
1242
1243   return true;
1244
1245 error_return:
1246   if (rela_comb != NULL)
1247     free (rela_comb);
1248   if (free_relocs != NULL)
1249     free (free_relocs);
1250   if (free_contents != NULL)
1251     free (free_contents);
1252   return false;
1253 }
1254 \f
1255 static reloc_howto_type *
1256 ppc_elf_reloc_type_lookup (abfd, code)
1257      bfd *abfd ATTRIBUTE_UNUSED;
1258      bfd_reloc_code_real_type code;
1259 {
1260   enum elf_ppc_reloc_type ppc_reloc = R_PPC_NONE;
1261
1262   if (!ppc_elf_howto_table[R_PPC_ADDR32])
1263     /* Initialize howto table if needed.  */
1264     ppc_elf_howto_init ();
1265
1266   switch ((int) code)
1267     {
1268     default:
1269       return (reloc_howto_type *) NULL;
1270
1271     case BFD_RELOC_NONE:                ppc_reloc = R_PPC_NONE;                 break;
1272     case BFD_RELOC_32:                  ppc_reloc = R_PPC_ADDR32;               break;
1273     case BFD_RELOC_PPC_BA26:            ppc_reloc = R_PPC_ADDR24;               break;
1274     case BFD_RELOC_16:                  ppc_reloc = R_PPC_ADDR16;               break;
1275     case BFD_RELOC_LO16:                ppc_reloc = R_PPC_ADDR16_LO;            break;
1276     case BFD_RELOC_HI16:                ppc_reloc = R_PPC_ADDR16_HI;            break;
1277     case BFD_RELOC_HI16_S:              ppc_reloc = R_PPC_ADDR16_HA;            break;
1278     case BFD_RELOC_PPC_BA16:            ppc_reloc = R_PPC_ADDR14;               break;
1279     case BFD_RELOC_PPC_BA16_BRTAKEN:    ppc_reloc = R_PPC_ADDR14_BRTAKEN;       break;
1280     case BFD_RELOC_PPC_BA16_BRNTAKEN:   ppc_reloc = R_PPC_ADDR14_BRNTAKEN;      break;
1281     case BFD_RELOC_PPC_B26:             ppc_reloc = R_PPC_REL24;                break;
1282     case BFD_RELOC_PPC_B16:             ppc_reloc = R_PPC_REL14;                break;
1283     case BFD_RELOC_PPC_B16_BRTAKEN:     ppc_reloc = R_PPC_REL14_BRTAKEN;        break;
1284     case BFD_RELOC_PPC_B16_BRNTAKEN:    ppc_reloc = R_PPC_REL14_BRNTAKEN;       break;
1285     case BFD_RELOC_16_GOTOFF:           ppc_reloc = R_PPC_GOT16;                break;
1286     case BFD_RELOC_LO16_GOTOFF:         ppc_reloc = R_PPC_GOT16_LO;             break;
1287     case BFD_RELOC_HI16_GOTOFF:         ppc_reloc = R_PPC_GOT16_HI;             break;
1288     case BFD_RELOC_HI16_S_GOTOFF:       ppc_reloc = R_PPC_GOT16_HA;             break;
1289     case BFD_RELOC_24_PLT_PCREL:        ppc_reloc = R_PPC_PLTREL24;             break;
1290     case BFD_RELOC_PPC_COPY:            ppc_reloc = R_PPC_COPY;                 break;
1291     case BFD_RELOC_PPC_GLOB_DAT:        ppc_reloc = R_PPC_GLOB_DAT;             break;
1292     case BFD_RELOC_PPC_LOCAL24PC:       ppc_reloc = R_PPC_LOCAL24PC;            break;
1293     case BFD_RELOC_32_PCREL:            ppc_reloc = R_PPC_REL32;                break;
1294     case BFD_RELOC_32_PLTOFF:           ppc_reloc = R_PPC_PLT32;                break;
1295     case BFD_RELOC_32_PLT_PCREL:        ppc_reloc = R_PPC_PLTREL32;             break;
1296     case BFD_RELOC_LO16_PLTOFF:         ppc_reloc = R_PPC_PLT16_LO;             break;
1297     case BFD_RELOC_HI16_PLTOFF:         ppc_reloc = R_PPC_PLT16_HI;             break;
1298     case BFD_RELOC_HI16_S_PLTOFF:       ppc_reloc = R_PPC_PLT16_HA;             break;
1299     case BFD_RELOC_GPREL16:             ppc_reloc = R_PPC_SDAREL16;             break;
1300     case BFD_RELOC_16_BASEREL:          ppc_reloc = R_PPC_SECTOFF;              break;
1301     case BFD_RELOC_LO16_BASEREL:        ppc_reloc = R_PPC_SECTOFF_LO;           break;
1302     case BFD_RELOC_HI16_BASEREL:        ppc_reloc = R_PPC_SECTOFF_HI;           break;
1303     case BFD_RELOC_HI16_S_BASEREL:      ppc_reloc = R_PPC_SECTOFF_HA;           break;
1304     case BFD_RELOC_CTOR:                ppc_reloc = R_PPC_ADDR32;               break;
1305     case BFD_RELOC_PPC_TOC16:           ppc_reloc = R_PPC_TOC16;                break;
1306     case BFD_RELOC_PPC_EMB_NADDR32:     ppc_reloc = R_PPC_EMB_NADDR32;          break;
1307     case BFD_RELOC_PPC_EMB_NADDR16:     ppc_reloc = R_PPC_EMB_NADDR16;          break;
1308     case BFD_RELOC_PPC_EMB_NADDR16_LO:  ppc_reloc = R_PPC_EMB_NADDR16_LO;       break;
1309     case BFD_RELOC_PPC_EMB_NADDR16_HI:  ppc_reloc = R_PPC_EMB_NADDR16_HI;       break;
1310     case BFD_RELOC_PPC_EMB_NADDR16_HA:  ppc_reloc = R_PPC_EMB_NADDR16_HA;       break;
1311     case BFD_RELOC_PPC_EMB_SDAI16:      ppc_reloc = R_PPC_EMB_SDAI16;           break;
1312     case BFD_RELOC_PPC_EMB_SDA2I16:     ppc_reloc = R_PPC_EMB_SDA2I16;          break;
1313     case BFD_RELOC_PPC_EMB_SDA2REL:     ppc_reloc = R_PPC_EMB_SDA2REL;          break;
1314     case BFD_RELOC_PPC_EMB_SDA21:       ppc_reloc = R_PPC_EMB_SDA21;            break;
1315     case BFD_RELOC_PPC_EMB_MRKREF:      ppc_reloc = R_PPC_EMB_MRKREF;           break;
1316     case BFD_RELOC_PPC_EMB_RELSEC16:    ppc_reloc = R_PPC_EMB_RELSEC16;         break;
1317     case BFD_RELOC_PPC_EMB_RELST_LO:    ppc_reloc = R_PPC_EMB_RELST_LO;         break;
1318     case BFD_RELOC_PPC_EMB_RELST_HI:    ppc_reloc = R_PPC_EMB_RELST_HI;         break;
1319     case BFD_RELOC_PPC_EMB_RELST_HA:    ppc_reloc = R_PPC_EMB_RELST_HA;         break;
1320     case BFD_RELOC_PPC_EMB_BIT_FLD:     ppc_reloc = R_PPC_EMB_BIT_FLD;          break;
1321     case BFD_RELOC_PPC_EMB_RELSDA:      ppc_reloc = R_PPC_EMB_RELSDA;           break;
1322     case BFD_RELOC_VTABLE_INHERIT:      ppc_reloc = R_PPC_GNU_VTINHERIT;        break;
1323     case BFD_RELOC_VTABLE_ENTRY:        ppc_reloc = R_PPC_GNU_VTENTRY;          break;
1324     }
1325
1326   return ppc_elf_howto_table[(int) ppc_reloc];
1327 };
1328
1329 /* Set the howto pointer for a PowerPC ELF reloc.  */
1330
1331 static void
1332 ppc_elf_info_to_howto (abfd, cache_ptr, dst)
1333      bfd *abfd ATTRIBUTE_UNUSED;
1334      arelent *cache_ptr;
1335      Elf32_Internal_Rela *dst;
1336 {
1337   if (!ppc_elf_howto_table[R_PPC_ADDR32])
1338     /* Initialize howto table if needed.  */
1339     ppc_elf_howto_init ();
1340
1341   BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1342   cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
1343 }
1344
1345 /* Handle the R_PPC_ADDR16_HA reloc.  */
1346
1347 static bfd_reloc_status_type
1348 ppc_elf_addr16_ha_reloc (abfd, reloc_entry, symbol, data, input_section,
1349                          output_bfd, error_message)
1350      bfd *abfd ATTRIBUTE_UNUSED;
1351      arelent *reloc_entry;
1352      asymbol *symbol;
1353      PTR data ATTRIBUTE_UNUSED;
1354      asection *input_section;
1355      bfd *output_bfd;
1356      char **error_message ATTRIBUTE_UNUSED;
1357 {
1358   bfd_vma relocation;
1359
1360   if (output_bfd != NULL)
1361     {
1362       reloc_entry->address += input_section->output_offset;
1363       return bfd_reloc_ok;
1364     }
1365
1366   if (reloc_entry->address > input_section->_cooked_size)
1367     return bfd_reloc_outofrange;
1368
1369   if (bfd_is_com_section (symbol->section))
1370     relocation = 0;
1371   else
1372     relocation = symbol->value;
1373
1374   relocation += symbol->section->output_section->vma;
1375   relocation += symbol->section->output_offset;
1376   relocation += reloc_entry->addend;
1377
1378   reloc_entry->addend += (relocation & 0x8000) << 1;
1379
1380   return bfd_reloc_continue;
1381 }
1382
1383 /* Function to set whether a module needs the -mrelocatable bit set.  */
1384
1385 static boolean
1386 ppc_elf_set_private_flags (abfd, flags)
1387      bfd *abfd;
1388      flagword flags;
1389 {
1390   BFD_ASSERT (!elf_flags_init (abfd)
1391               || elf_elfheader (abfd)->e_flags == flags);
1392
1393   elf_elfheader (abfd)->e_flags = flags;
1394   elf_flags_init (abfd) = true;
1395   return true;
1396 }
1397
1398 /* Merge backend specific data from an object file to the output
1399    object file when linking */
1400 static boolean
1401 ppc_elf_merge_private_bfd_data (ibfd, obfd)
1402      bfd *ibfd;
1403      bfd *obfd;
1404 {
1405   flagword old_flags;
1406   flagword new_flags;
1407   boolean error;
1408
1409   /* Check if we have the same endianess */
1410   if (_bfd_generic_verify_endian_match (ibfd, obfd) == false)
1411     return false;
1412
1413   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1414       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1415     return true;
1416
1417   new_flags = elf_elfheader (ibfd)->e_flags;
1418   old_flags = elf_elfheader (obfd)->e_flags;
1419   if (!elf_flags_init (obfd))   /* First call, no flags set */
1420     {
1421       elf_flags_init (obfd) = true;
1422       elf_elfheader (obfd)->e_flags = new_flags;
1423     }
1424
1425   else if (new_flags == old_flags)      /* Compatible flags are ok */
1426     ;
1427
1428   else                                  /* Incompatible flags */
1429     {
1430       /* Warn about -mrelocatable mismatch.  Allow -mrelocatable-lib to be linked
1431          with either.  */
1432       error = false;
1433       if ((new_flags & EF_PPC_RELOCATABLE) != 0
1434           && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
1435         {
1436           error = true;
1437           (*_bfd_error_handler)
1438             (_("%s: compiled with -mrelocatable and linked with modules compiled normally"),
1439              bfd_archive_filename (ibfd));
1440         }
1441       else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
1442                && (old_flags & EF_PPC_RELOCATABLE) != 0)
1443         {
1444           error = true;
1445           (*_bfd_error_handler)
1446             (_("%s: compiled normally and linked with modules compiled with -mrelocatable"),
1447              bfd_archive_filename (ibfd));
1448         }
1449
1450       /* The output is -mrelocatable-lib iff both the input files are.  */
1451       if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
1452         elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
1453
1454       /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
1455          but each input file is either -mrelocatable or -mrelocatable-lib.  */
1456       if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
1457           && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
1458           && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
1459         elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
1460
1461       /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if any module uses it */
1462       elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
1463
1464       new_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1465       old_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1466
1467       /* Warn about any other mismatches */
1468       if (new_flags != old_flags)
1469         {
1470           error = true;
1471           (*_bfd_error_handler)
1472             (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"),
1473              bfd_archive_filename (ibfd), (long) new_flags, (long) old_flags);
1474         }
1475
1476       if (error)
1477         {
1478           bfd_set_error (bfd_error_bad_value);
1479           return false;
1480         }
1481     }
1482
1483   return true;
1484 }
1485 \f
1486 /* Handle a PowerPC specific section when reading an object file.  This
1487    is called when elfcode.h finds a section with an unknown type.  */
1488
1489 static boolean
1490 ppc_elf_section_from_shdr (abfd, hdr, name)
1491      bfd *abfd;
1492      Elf32_Internal_Shdr *hdr;
1493      char *name;
1494 {
1495   asection *newsect;
1496   flagword flags;
1497
1498   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
1499     return false;
1500
1501   newsect = hdr->bfd_section;
1502   flags = bfd_get_section_flags (abfd, newsect);
1503   if (hdr->sh_flags & SHF_EXCLUDE)
1504     flags |= SEC_EXCLUDE;
1505
1506   if (hdr->sh_type == SHT_ORDERED)
1507     flags |= SEC_SORT_ENTRIES;
1508
1509   bfd_set_section_flags (abfd, newsect, flags);
1510   return true;
1511 }
1512 \f
1513 /* Set up any other section flags and such that may be necessary.  */
1514
1515 static boolean
1516 ppc_elf_fake_sections (abfd, shdr, asect)
1517      bfd *abfd ATTRIBUTE_UNUSED;
1518      Elf32_Internal_Shdr *shdr;
1519      asection *asect;
1520 {
1521   if ((asect->flags & SEC_EXCLUDE) != 0)
1522     shdr->sh_flags |= SHF_EXCLUDE;
1523
1524   if ((asect->flags & SEC_SORT_ENTRIES) != 0)
1525     shdr->sh_type = SHT_ORDERED;
1526
1527   return true;
1528 }
1529 \f
1530 /* Create a special linker section */
1531 static elf_linker_section_t *
1532 ppc_elf_create_linker_section (abfd, info, which)
1533      bfd *abfd;
1534      struct bfd_link_info *info;
1535      enum elf_linker_section_enum which;
1536 {
1537   bfd *dynobj = elf_hash_table (info)->dynobj;
1538   elf_linker_section_t *lsect;
1539
1540   /* Record the first bfd section that needs the special section */
1541   if (!dynobj)
1542     dynobj = elf_hash_table (info)->dynobj = abfd;
1543
1544   /* If this is the first time, create the section */
1545   lsect = elf_linker_section (dynobj, which);
1546   if (!lsect)
1547     {
1548       elf_linker_section_t defaults;
1549       static elf_linker_section_t zero_section;
1550
1551       defaults = zero_section;
1552       defaults.which = which;
1553       defaults.hole_written_p = false;
1554       defaults.alignment = 2;
1555
1556       /* Both of these sections are (technically) created by the user
1557          putting data in them, so they shouldn't be marked
1558          SEC_LINKER_CREATED.
1559
1560          The linker creates them so it has somewhere to attach their
1561          respective symbols. In fact, if they were empty it would
1562          be OK to leave the symbol set to 0 (or any random number), because
1563          the appropriate register should never be used.  */
1564       defaults.flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1565                         | SEC_IN_MEMORY);
1566
1567       switch (which)
1568         {
1569         default:
1570           (*_bfd_error_handler) (_("%s: Unknown special linker type %d"),
1571                                  bfd_get_filename (abfd),
1572                                  (int) which);
1573
1574           bfd_set_error (bfd_error_bad_value);
1575           return (elf_linker_section_t *) 0;
1576
1577         case LINKER_SECTION_SDATA:      /* .sdata/.sbss section */
1578           defaults.name           = ".sdata";
1579           defaults.rel_name       = ".rela.sdata";
1580           defaults.bss_name       = ".sbss";
1581           defaults.sym_name       = "_SDA_BASE_";
1582           defaults.sym_offset     = 32768;
1583           break;
1584
1585         case LINKER_SECTION_SDATA2:     /* .sdata2/.sbss2 section */
1586           defaults.name           = ".sdata2";
1587           defaults.rel_name       = ".rela.sdata2";
1588           defaults.bss_name       = ".sbss2";
1589           defaults.sym_name       = "_SDA2_BASE_";
1590           defaults.sym_offset     = 32768;
1591           defaults.flags         |= SEC_READONLY;
1592           break;
1593         }
1594
1595       lsect = _bfd_elf_create_linker_section (abfd, info, which, &defaults);
1596     }
1597
1598   return lsect;
1599 }
1600 \f
1601 /* If we have a non-zero sized .sbss2 or .PPC.EMB.sbss0 sections, we
1602    need to bump up the number of section headers.  */
1603
1604 static int
1605 ppc_elf_additional_program_headers (abfd)
1606      bfd *abfd;
1607 {
1608   asection *s;
1609   int ret;
1610
1611   ret = 0;
1612
1613   s = bfd_get_section_by_name (abfd, ".interp");
1614   if (s != NULL)
1615     ++ret;
1616
1617   s = bfd_get_section_by_name (abfd, ".sbss2");
1618   if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1619     ++ret;
1620
1621   s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
1622   if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1623     ++ret;
1624
1625   return ret;
1626 }
1627
1628 /* Modify the segment map if needed.  */
1629
1630 static boolean
1631 ppc_elf_modify_segment_map (abfd)
1632      bfd *abfd ATTRIBUTE_UNUSED;
1633 {
1634   return true;
1635 }
1636 \f
1637 /* The powerpc .got has a blrl instruction in it.  Mark it executable.  */
1638
1639 static asection *
1640 ppc_elf_create_got (abfd, info)
1641      bfd *abfd;
1642      struct bfd_link_info *info;
1643 {
1644   register asection *s;
1645   flagword flags;
1646
1647   if (!_bfd_elf_create_got_section (abfd, info))
1648     return NULL;
1649
1650   s = bfd_get_section_by_name (abfd, ".got");
1651   if (s == NULL)
1652     abort ();
1653
1654   flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1655            | SEC_LINKER_CREATED);
1656   if (!bfd_set_section_flags (abfd, s, flags))
1657     return NULL;
1658   return s;
1659 }
1660
1661 /* We have to create .dynsbss and .rela.sbss here so that they get mapped
1662    to output sections (just like _bfd_elf_create_dynamic_sections has
1663    to create .dynbss and .rela.bss).  */
1664
1665 static boolean
1666 ppc_elf_create_dynamic_sections (abfd, info)
1667      bfd *abfd;
1668      struct bfd_link_info *info;
1669 {
1670   register asection *s;
1671   flagword flags;
1672
1673   if (!ppc_elf_create_got (abfd, info))
1674     return false;
1675
1676   if (!_bfd_elf_create_dynamic_sections (abfd, info))
1677     return false;
1678
1679   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1680            | SEC_LINKER_CREATED);
1681
1682   s = bfd_make_section (abfd, ".dynsbss");
1683   if (s == NULL
1684       || ! bfd_set_section_flags (abfd, s, SEC_ALLOC))
1685     return false;
1686
1687   if (! info->shared)
1688     {
1689       s = bfd_make_section (abfd, ".rela.sbss");
1690       if (s == NULL
1691           || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
1692           || ! bfd_set_section_alignment (abfd, s, 2))
1693         return false;
1694     }
1695
1696   s = bfd_get_section_by_name (abfd, ".plt");
1697   if (s == NULL)
1698     abort ();
1699
1700   flags = SEC_ALLOC | SEC_CODE | SEC_IN_MEMORY | SEC_LINKER_CREATED;
1701   return bfd_set_section_flags (abfd, s, flags);
1702 }
1703
1704 /* Adjust a symbol defined by a dynamic object and referenced by a
1705    regular object.  The current definition is in some section of the
1706    dynamic object, but we're not including those sections.  We have to
1707    change the definition to something the rest of the link can
1708    understand.  */
1709
1710 static boolean
1711 ppc_elf_adjust_dynamic_symbol (info, h)
1712      struct bfd_link_info *info;
1713      struct elf_link_hash_entry *h;
1714 {
1715   bfd *dynobj = elf_hash_table (info)->dynobj;
1716   asection *s;
1717   unsigned int power_of_two;
1718   bfd_vma plt_offset;
1719
1720 #ifdef DEBUG
1721   fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n", h->root.root.string);
1722 #endif
1723
1724   /* Make sure we know what is going on here.  */
1725   BFD_ASSERT (dynobj != NULL
1726               && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
1727                   || h->weakdef != NULL
1728                   || ((h->elf_link_hash_flags
1729                        & ELF_LINK_HASH_DEF_DYNAMIC) != 0
1730                       && (h->elf_link_hash_flags
1731                           & ELF_LINK_HASH_REF_REGULAR) != 0
1732                       && (h->elf_link_hash_flags
1733                           & ELF_LINK_HASH_DEF_REGULAR) == 0)));
1734
1735   /* If this is a function, put it in the procedure linkage table.  We
1736      will fill in the contents of the procedure linkage table later,
1737      when we know the address of the .got section.  */
1738   if (h->type == STT_FUNC
1739       || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
1740     {
1741       if (! elf_hash_table (info)->dynamic_sections_created
1742           || SYMBOL_CALLS_LOCAL (info, h)
1743           || (info->shared && h->plt.refcount <= 0))
1744         {
1745           /* A PLT entry is not required/allowed when:
1746
1747              1. We are not using ld.so; because then the PLT entry
1748              can't be set up, so we can't use one.
1749
1750              2. We know for certain that a call to this symbol
1751              will go to this object.
1752
1753              3. GC has rendered the entry unused.
1754              Note, however, that in an executable all references to the
1755              symbol go to the PLT, so we can't turn it off in that case.
1756              ??? The correct thing to do here is to reference count
1757              all uses of the symbol, not just those to the GOT or PLT.  */
1758           h->plt.offset = (bfd_vma) -1;
1759           h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1760           return true;
1761         }
1762
1763       /* Make sure this symbol is output as a dynamic symbol.  */
1764       if (h->dynindx == -1)
1765         {
1766           if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1767             return false;
1768         }
1769       BFD_ASSERT (h->dynindx != -1);
1770
1771       s = bfd_get_section_by_name (dynobj, ".plt");
1772       BFD_ASSERT (s != NULL);
1773
1774       /* If this is the first .plt entry, make room for the special
1775          first entry.  */
1776       if (s->_raw_size == 0)
1777         s->_raw_size += PLT_INITIAL_ENTRY_SIZE;
1778
1779       /* The PowerPC PLT is actually composed of two parts, the first part
1780          is 2 words (for a load and a jump), and then there is a remaining
1781          word available at the end.  */
1782       plt_offset = (PLT_INITIAL_ENTRY_SIZE
1783                     + (PLT_SLOT_SIZE
1784                        * ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE)
1785                           / PLT_ENTRY_SIZE)));
1786
1787       /* If this symbol is not defined in a regular file, and we are
1788          not generating a shared library, then set the symbol to this
1789          location in the .plt.  This is required to make function
1790          pointers compare as equal between the normal executable and
1791          the shared library.  */
1792       if (! info->shared
1793           && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1794         {
1795           h->root.u.def.section = s;
1796           h->root.u.def.value = plt_offset;
1797         }
1798
1799       h->plt.offset = plt_offset;
1800
1801       /* Make room for this entry.  After the 8192nd entry, room
1802          for two entries is allocated.  */
1803       if ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE) / PLT_ENTRY_SIZE
1804           >= PLT_NUM_SINGLE_ENTRIES)
1805         s->_raw_size += 2 * PLT_ENTRY_SIZE;
1806       else
1807         s->_raw_size += PLT_ENTRY_SIZE;
1808
1809       /* We also need to make an entry in the .rela.plt section.  */
1810       s = bfd_get_section_by_name (dynobj, ".rela.plt");
1811       BFD_ASSERT (s != NULL);
1812       s->_raw_size += sizeof (Elf32_External_Rela);
1813
1814       return true;
1815     }
1816   else
1817     h->plt.offset = (bfd_vma) -1;
1818
1819   /* If this is a weak symbol, and there is a real definition, the
1820      processor independent code will have arranged for us to see the
1821      real definition first, and we can just use the same value.  */
1822   if (h->weakdef != NULL)
1823     {
1824       BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
1825                   || h->weakdef->root.type == bfd_link_hash_defweak);
1826       h->root.u.def.section = h->weakdef->root.u.def.section;
1827       h->root.u.def.value = h->weakdef->root.u.def.value;
1828       return true;
1829     }
1830
1831   /* This is a reference to a symbol defined by a dynamic object which
1832      is not a function.  */
1833
1834   /* If we are creating a shared library, we must presume that the
1835      only references to the symbol are via the global offset table.
1836      For such cases we need not do anything here; the relocations will
1837      be handled correctly by relocate_section.  */
1838   if (info->shared)
1839     return true;
1840
1841   /* We must allocate the symbol in our .dynbss section, which will
1842      become part of the .bss section of the executable.  There will be
1843      an entry for this symbol in the .dynsym section.  The dynamic
1844      object will contain position independent code, so all references
1845      from the dynamic object to this symbol will go through the global
1846      offset table.  The dynamic linker will use the .dynsym entry to
1847      determine the address it must put in the global offset table, so
1848      both the dynamic object and the regular object will refer to the
1849      same memory location for the variable.
1850
1851      Of course, if the symbol is sufficiently small, we must instead
1852      allocate it in .sbss.  FIXME: It would be better to do this if and
1853      only if there were actually SDAREL relocs for that symbol.  */
1854
1855   if (h->size <= elf_gp_size (dynobj))
1856     s = bfd_get_section_by_name (dynobj, ".dynsbss");
1857   else
1858     s = bfd_get_section_by_name (dynobj, ".dynbss");
1859   BFD_ASSERT (s != NULL);
1860
1861   /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
1862      copy the initial value out of the dynamic object and into the
1863      runtime process image.  We need to remember the offset into the
1864      .rela.bss section we are going to use.  */
1865   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1866     {
1867       asection *srel;
1868
1869       if (h->size <= elf_gp_size (dynobj))
1870         srel = bfd_get_section_by_name (dynobj, ".rela.sbss");
1871       else
1872         srel = bfd_get_section_by_name (dynobj, ".rela.bss");
1873       BFD_ASSERT (srel != NULL);
1874       srel->_raw_size += sizeof (Elf32_External_Rela);
1875       h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
1876     }
1877
1878   /* We need to figure out the alignment required for this symbol.  I
1879      have no idea how ELF linkers handle this.  */
1880   power_of_two = bfd_log2 (h->size);
1881   if (power_of_two > 4)
1882     power_of_two = 4;
1883
1884   /* Apply the required alignment.  */
1885   s->_raw_size = BFD_ALIGN (s->_raw_size,
1886                             (bfd_size_type) (1 << power_of_two));
1887   if (power_of_two > bfd_get_section_alignment (dynobj, s))
1888     {
1889       if (! bfd_set_section_alignment (dynobj, s, power_of_two))
1890         return false;
1891     }
1892
1893   /* Define the symbol as being at this point in the section.  */
1894   h->root.u.def.section = s;
1895   h->root.u.def.value = s->_raw_size;
1896
1897   /* Increment the section size to make room for the symbol.  */
1898   s->_raw_size += h->size;
1899
1900   return true;
1901 }
1902 \f
1903 /* Set the sizes of the dynamic sections.  */
1904
1905 static boolean
1906 ppc_elf_size_dynamic_sections (output_bfd, info)
1907      bfd *output_bfd ATTRIBUTE_UNUSED;
1908      struct bfd_link_info *info;
1909 {
1910   bfd *dynobj;
1911   asection *s;
1912   boolean plt;
1913   boolean relocs;
1914
1915 #ifdef DEBUG
1916   fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
1917 #endif
1918
1919   dynobj = elf_hash_table (info)->dynobj;
1920   BFD_ASSERT (dynobj != NULL);
1921
1922   if (elf_hash_table (info)->dynamic_sections_created)
1923     {
1924       /* Set the contents of the .interp section to the interpreter.  */
1925       if (! info->shared)
1926         {
1927           s = bfd_get_section_by_name (dynobj, ".interp");
1928           BFD_ASSERT (s != NULL);
1929           s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
1930           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1931         }
1932     }
1933   else
1934     {
1935       /* We may have created entries in the .rela.got, .rela.sdata, and
1936          .rela.sdata2 sections.  However, if we are not creating the
1937          dynamic sections, we will not actually use these entries.  Reset
1938          the size of .rela.got, et al, which will cause it to get
1939          stripped from the output file below.  */
1940       static char *rela_sections[] = { ".rela.got", ".rela.sdata",
1941                                        ".rela.sdata2", ".rela.sbss",
1942                                        (char *) 0 };
1943       char **p;
1944
1945       for (p = rela_sections; *p != (char *) 0; p++)
1946         {
1947           s = bfd_get_section_by_name (dynobj, *p);
1948           if (s != NULL)
1949             s->_raw_size = 0;
1950         }
1951     }
1952
1953   /* The check_relocs and adjust_dynamic_symbol entry points have
1954      determined the sizes of the various dynamic sections.  Allocate
1955      memory for them.  */
1956   plt = false;
1957   relocs = false;
1958   for (s = dynobj->sections; s != NULL; s = s->next)
1959     {
1960       const char *name;
1961       boolean strip;
1962
1963       if ((s->flags & SEC_LINKER_CREATED) == 0)
1964         continue;
1965
1966       /* It's OK to base decisions on the section name, because none
1967          of the dynobj section names depend upon the input files.  */
1968       name = bfd_get_section_name (dynobj, s);
1969
1970       strip = false;
1971
1972       if (strcmp (name, ".plt") == 0)
1973         {
1974           if (s->_raw_size == 0)
1975             {
1976               /* Strip this section if we don't need it; see the
1977                  comment below.  */
1978               strip = true;
1979             }
1980           else
1981             {
1982               /* Remember whether there is a PLT.  */
1983               plt = true;
1984             }
1985         }
1986       else if (strncmp (name, ".rela", 5) == 0)
1987         {
1988           if (s->_raw_size == 0)
1989             {
1990               /* If we don't need this section, strip it from the
1991                  output file.  This is mostly to handle .rela.bss and
1992                  .rela.plt.  We must create both sections in
1993                  create_dynamic_sections, because they must be created
1994                  before the linker maps input sections to output
1995                  sections.  The linker does that before
1996                  adjust_dynamic_symbol is called, and it is that
1997                  function which decides whether anything needs to go
1998                  into these sections.  */
1999               strip = true;
2000             }
2001           else
2002             {
2003               /* Remember whether there are any relocation sections.  */
2004               relocs = true;
2005
2006               /* We use the reloc_count field as a counter if we need
2007                  to copy relocs into the output file.  */
2008               s->reloc_count = 0;
2009             }
2010         }
2011       else if (strcmp (name, ".got") != 0
2012                && strcmp (name, ".sdata") != 0
2013                && strcmp (name, ".sdata2") != 0)
2014         {
2015           /* It's not one of our sections, so don't allocate space.  */
2016           continue;
2017         }
2018
2019       if (strip)
2020         {
2021           _bfd_strip_section_from_output (info, s);
2022           continue;
2023         }
2024
2025       /* Allocate memory for the section contents.  */
2026       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2027       if (s->contents == NULL && s->_raw_size != 0)
2028         return false;
2029     }
2030
2031   if (elf_hash_table (info)->dynamic_sections_created)
2032     {
2033       /* Add some entries to the .dynamic section.  We fill in the
2034          values later, in ppc_elf_finish_dynamic_sections, but we
2035          must add the entries now so that we get the correct size for
2036          the .dynamic section.  The DT_DEBUG entry is filled in by the
2037          dynamic linker and used by the debugger.  */
2038 #define add_dynamic_entry(TAG, VAL) \
2039   bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
2040
2041       if (!info->shared)
2042         {
2043           if (!add_dynamic_entry (DT_DEBUG, 0))
2044             return false;
2045         }
2046
2047       if (plt)
2048         {
2049           if (!add_dynamic_entry (DT_PLTGOT, 0)
2050               || !add_dynamic_entry (DT_PLTRELSZ, 0)
2051               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2052               || !add_dynamic_entry (DT_JMPREL, 0))
2053             return false;
2054         }
2055
2056       if (relocs)
2057         {
2058           if (!add_dynamic_entry (DT_RELA, 0)
2059               || !add_dynamic_entry (DT_RELASZ, 0)
2060               || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
2061             return false;
2062         }
2063
2064       if ((info->flags & DF_TEXTREL) != 0)
2065         {
2066           if (!add_dynamic_entry (DT_TEXTREL, 0))
2067             return false;
2068           info->flags |= DF_TEXTREL;
2069         }
2070     }
2071 #undef add_dynamic_entry
2072
2073   return true;
2074 }
2075 \f
2076 /* Look through the relocs for a section during the first phase, and
2077    allocate space in the global offset table or procedure linkage
2078    table.  */
2079
2080 static boolean
2081 ppc_elf_check_relocs (abfd, info, sec, relocs)
2082      bfd *abfd;
2083      struct bfd_link_info *info;
2084      asection *sec;
2085      const Elf_Internal_Rela *relocs;
2086 {
2087   bfd *dynobj;
2088   Elf_Internal_Shdr *symtab_hdr;
2089   struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
2090   const Elf_Internal_Rela *rel;
2091   const Elf_Internal_Rela *rel_end;
2092   bfd_signed_vma *local_got_refcounts;
2093   elf_linker_section_t *sdata;
2094   elf_linker_section_t *sdata2;
2095   asection *sreloc;
2096   asection *sgot = NULL;
2097   asection *srelgot = NULL;
2098
2099   if (info->relocateable)
2100     return true;
2101
2102 #ifdef DEBUG
2103   fprintf (stderr, "ppc_elf_check_relocs called for section %s in %s\n",
2104            bfd_get_section_name (abfd, sec),
2105            bfd_archive_filename (abfd));
2106 #endif
2107
2108   /* Create the linker generated sections all the time so that the
2109      special symbols are created.  */
2110
2111   if ((sdata = elf_linker_section (abfd, LINKER_SECTION_SDATA)) == NULL)
2112     {
2113       sdata = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2114       if (!sdata)
2115         return false;
2116     }
2117
2118   if ((sdata2 = elf_linker_section (abfd, LINKER_SECTION_SDATA2)) == NULL)
2119     {
2120       sdata2 = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA2);
2121       if (!sdata2)
2122         return false;
2123     }
2124
2125   dynobj = elf_hash_table (info)->dynobj;
2126   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2127   local_got_refcounts = elf_local_got_refcounts (abfd);
2128
2129   sym_hashes = elf_sym_hashes (abfd);
2130   sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
2131   if (!elf_bad_symtab (abfd))
2132     sym_hashes_end -= symtab_hdr->sh_info;
2133
2134   sreloc = NULL;
2135
2136   rel_end = relocs + sec->reloc_count;
2137   for (rel = relocs; rel < rel_end; rel++)
2138     {
2139       unsigned long r_symndx;
2140       struct elf_link_hash_entry *h;
2141
2142       r_symndx = ELF32_R_SYM (rel->r_info);
2143       if (r_symndx < symtab_hdr->sh_info)
2144         h = NULL;
2145       else
2146         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2147
2148       /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
2149          This shows up in particular in an R_PPC_ADDR32 in the eabi
2150          startup code.  */
2151       if (h && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2152         {
2153           if (sgot == NULL)
2154             {
2155               if (dynobj == NULL)
2156                 elf_hash_table (info)->dynobj = dynobj = abfd;
2157               sgot = ppc_elf_create_got (dynobj, info);
2158               if (sgot == NULL)
2159                 return false;
2160             }
2161         }
2162
2163       switch (ELF32_R_TYPE (rel->r_info))
2164         {
2165         /* GOT16 relocations */
2166         case R_PPC_GOT16:
2167         case R_PPC_GOT16_LO:
2168         case R_PPC_GOT16_HI:
2169         case R_PPC_GOT16_HA:
2170           /* This symbol requires a global offset table entry.  */
2171
2172           if (sgot == NULL)
2173             {
2174               if (dynobj == NULL)
2175                 elf_hash_table (info)->dynobj = dynobj = abfd;
2176               sgot = ppc_elf_create_got (dynobj, info);
2177               if (sgot == NULL)
2178                 return false;
2179             }
2180
2181           if (srelgot == NULL
2182               && (h != NULL || info->shared))
2183             {
2184               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2185               if (srelgot == NULL)
2186                 {
2187                   srelgot = bfd_make_section (dynobj, ".rela.got");
2188                   if (srelgot == NULL
2189                       || ! bfd_set_section_flags (dynobj, srelgot,
2190                                                   (SEC_ALLOC
2191                                                    | SEC_LOAD
2192                                                    | SEC_HAS_CONTENTS
2193                                                    | SEC_IN_MEMORY
2194                                                    | SEC_LINKER_CREATED
2195                                                    | SEC_READONLY))
2196                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2197                     return false;
2198                 }
2199             }
2200
2201           if (h != NULL)
2202             {
2203               if (h->got.refcount == 0)
2204                 {
2205                   /* Make sure this symbol is output as a dynamic symbol.  */
2206                   if (h->dynindx == -1)
2207                     if (!bfd_elf32_link_record_dynamic_symbol (info, h))
2208                       return false;
2209
2210                   /* Allocate space in the .got.  */
2211                   sgot->_raw_size += 4;
2212                   /* Allocate relocation space.  */
2213                   srelgot->_raw_size += sizeof (Elf32_External_Rela);
2214                 }
2215               h->got.refcount++;
2216             }
2217           else
2218             {
2219               /* This is a global offset table entry for a local symbol.  */
2220               if (local_got_refcounts == NULL)
2221                 {
2222                   bfd_size_type size;
2223
2224                   size = symtab_hdr->sh_info;
2225                   size *= sizeof (bfd_signed_vma);
2226                   local_got_refcounts
2227                     = (bfd_signed_vma *) bfd_zalloc (abfd, size);
2228                   if (local_got_refcounts == NULL)
2229                     return false;
2230                   elf_local_got_refcounts (abfd) = local_got_refcounts;
2231                 }
2232               if (local_got_refcounts[r_symndx] == 0)
2233                 {
2234                   sgot->_raw_size += 4;
2235
2236                   /* If we are generating a shared object, we need to
2237                      output a R_PPC_RELATIVE reloc so that the
2238                      dynamic linker can adjust this GOT entry.  */
2239                   if (info->shared)
2240                     srelgot->_raw_size += sizeof (Elf32_External_Rela);
2241                 }
2242               local_got_refcounts[r_symndx]++;
2243             }
2244           break;
2245
2246         /* Indirect .sdata relocation */
2247         case R_PPC_EMB_SDAI16:
2248           if (info->shared)
2249             {
2250               ((*_bfd_error_handler)
2251                (_("%s: relocation %s cannot be used when making a shared object"),
2252                 bfd_archive_filename (abfd), "R_PPC_EMB_SDAI16"));
2253               return false;
2254             }
2255
2256           if (srelgot == NULL && (h != NULL || info->shared))
2257             {
2258               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2259               if (srelgot == NULL)
2260                 {
2261                   srelgot = bfd_make_section (dynobj, ".rela.got");
2262                   if (srelgot == NULL
2263                       || ! bfd_set_section_flags (dynobj, srelgot,
2264                                                   (SEC_ALLOC
2265                                                    | SEC_LOAD
2266                                                    | SEC_HAS_CONTENTS
2267                                                    | SEC_IN_MEMORY
2268                                                    | SEC_LINKER_CREATED
2269                                                    | SEC_READONLY))
2270                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2271                     return false;
2272                 }
2273             }
2274
2275           if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata, h, rel))
2276             return false;
2277
2278           break;
2279
2280         /* Indirect .sdata2 relocation */
2281         case R_PPC_EMB_SDA2I16:
2282           if (info->shared)
2283             {
2284               ((*_bfd_error_handler)
2285                (_("%s: relocation %s cannot be used when making a shared object"),
2286                 bfd_archive_filename (abfd), "R_PPC_EMB_SDA2I16"));
2287               return false;
2288             }
2289
2290           if (srelgot == NULL && (h != NULL || info->shared))
2291             {
2292               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2293               if (srelgot == NULL)
2294                 {
2295                   srelgot = bfd_make_section (dynobj, ".rela.got");
2296                   if (srelgot == NULL
2297                       || ! bfd_set_section_flags (dynobj, srelgot,
2298                                                   (SEC_ALLOC
2299                                                    | SEC_LOAD
2300                                                    | SEC_HAS_CONTENTS
2301                                                    | SEC_IN_MEMORY
2302                                                    | SEC_LINKER_CREATED
2303                                                    | SEC_READONLY))
2304                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2305                     return false;
2306                 }
2307             }
2308
2309           if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata2, h, rel))
2310             return false;
2311
2312           break;
2313
2314         case R_PPC_SDAREL16:
2315         case R_PPC_EMB_SDA2REL:
2316         case R_PPC_EMB_SDA21:
2317           if (info->shared)
2318             {
2319               ((*_bfd_error_handler)
2320                (_("%s: relocation %s cannot be used when making a shared object"),
2321                 bfd_archive_filename (abfd),
2322                 ppc_elf_howto_table[(int) ELF32_R_TYPE (rel->r_info)]->name));
2323               return false;
2324             }
2325           break;
2326
2327         case R_PPC_PLT32:
2328         case R_PPC_PLTREL24:
2329         case R_PPC_PLT16_LO:
2330         case R_PPC_PLT16_HI:
2331         case R_PPC_PLT16_HA:
2332 #ifdef DEBUG
2333           fprintf (stderr, "Reloc requires a PLT entry\n");
2334 #endif
2335           /* This symbol requires a procedure linkage table entry.  We
2336              actually build the entry in adjust_dynamic_symbol,
2337              because this might be a case of linking PIC code without
2338              linking in any dynamic objects, in which case we don't
2339              need to generate a procedure linkage table after all.  */
2340
2341           if (h == NULL)
2342             {
2343               /* It does not make sense to have a procedure linkage
2344                  table entry for a local symbol.  */
2345               bfd_set_error (bfd_error_bad_value);
2346               return false;
2347             }
2348
2349           /* Make sure this symbol is output as a dynamic symbol.  */
2350           if (h->dynindx == -1)
2351             {
2352               if (! bfd_elf32_link_record_dynamic_symbol (info, h))
2353                 return false;
2354             }
2355           h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2356           h->plt.refcount++;
2357           break;
2358
2359           /* The following relocations don't need to propagate the
2360              relocation if linking a shared object since they are
2361              section relative.  */
2362         case R_PPC_SECTOFF:
2363         case R_PPC_SECTOFF_LO:
2364         case R_PPC_SECTOFF_HI:
2365         case R_PPC_SECTOFF_HA:
2366           break;
2367
2368           /* This refers only to functions defined in the shared library */
2369         case R_PPC_LOCAL24PC:
2370           break;
2371
2372           /* This relocation describes the C++ object vtable hierarchy.
2373              Reconstruct it for later use during GC.  */
2374         case R_PPC_GNU_VTINHERIT:
2375           if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2376             return false;
2377           break;
2378
2379           /* This relocation describes which C++ vtable entries are actually
2380              used.  Record for later use during GC.  */
2381         case R_PPC_GNU_VTENTRY:
2382           if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2383             return false;
2384           break;
2385
2386           /* When creating a shared object, we must copy these
2387              relocs into the output file.  We create a reloc
2388              section in dynobj and make room for the reloc.  */
2389         case R_PPC_REL24:
2390         case R_PPC_REL14:
2391         case R_PPC_REL14_BRTAKEN:
2392         case R_PPC_REL14_BRNTAKEN:
2393         case R_PPC_REL32:
2394           if (h == NULL
2395               || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
2396               || SYMBOL_REFERENCES_LOCAL (info, h))
2397             break;
2398           /* fall through */
2399
2400         default:
2401           if (info->shared)
2402             {
2403 #ifdef DEBUG
2404               fprintf (stderr, "ppc_elf_check_relocs need to create relocation for %s\n",
2405                        (h && h->root.root.string) ? h->root.root.string : "<unknown>");
2406 #endif
2407               if (sreloc == NULL)
2408                 {
2409                   const char *name;
2410
2411                   name = (bfd_elf_string_from_elf_section
2412                           (abfd,
2413                            elf_elfheader (abfd)->e_shstrndx,
2414                            elf_section_data (sec)->rel_hdr.sh_name));
2415                   if (name == NULL)
2416                     return false;
2417
2418                   BFD_ASSERT (strncmp (name, ".rela", 5) == 0
2419                               && strcmp (bfd_get_section_name (abfd, sec),
2420                                          name + 5) == 0);
2421
2422                   sreloc = bfd_get_section_by_name (dynobj, name);
2423                   if (sreloc == NULL)
2424                     {
2425                       flagword flags;
2426
2427                       sreloc = bfd_make_section (dynobj, name);
2428                       flags = (SEC_HAS_CONTENTS | SEC_READONLY
2429                                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2430                       if ((sec->flags & SEC_ALLOC) != 0)
2431                         flags |= SEC_ALLOC | SEC_LOAD;
2432                       if (sreloc == NULL
2433                           || ! bfd_set_section_flags (dynobj, sreloc, flags)
2434                           || ! bfd_set_section_alignment (dynobj, sreloc, 2))
2435                         return false;
2436                     }
2437                   if (sec->flags & SEC_READONLY)
2438                     info->flags |= DF_TEXTREL;
2439                 }
2440
2441               sreloc->_raw_size += sizeof (Elf32_External_Rela);
2442
2443               /* FIXME: We should here do what the m68k and i386
2444                  backends do: if the reloc is pc-relative, record it
2445                  in case it turns out that the reloc is unnecessary
2446                  because the symbol is forced local by versioning or
2447                  we are linking with -Bdynamic.  Fortunately this
2448                  case is not frequent.  */
2449             }
2450
2451           break;
2452         }
2453     }
2454
2455   return true;
2456 }
2457
2458 /* Return the section that should be marked against GC for a given
2459    relocation.  */
2460
2461 static asection *
2462 ppc_elf_gc_mark_hook (abfd, info, rel, h, sym)
2463      bfd *abfd;
2464      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2465      Elf_Internal_Rela *rel;
2466      struct elf_link_hash_entry *h;
2467      Elf_Internal_Sym *sym;
2468 {
2469   if (h != NULL)
2470     {
2471       switch (ELF32_R_TYPE (rel->r_info))
2472         {
2473         case R_PPC_GNU_VTINHERIT:
2474         case R_PPC_GNU_VTENTRY:
2475           break;
2476
2477         default:
2478           switch (h->root.type)
2479             {
2480             case bfd_link_hash_defined:
2481             case bfd_link_hash_defweak:
2482               return h->root.u.def.section;
2483
2484             case bfd_link_hash_common:
2485               return h->root.u.c.p->section;
2486
2487             default:
2488               break;
2489             }
2490         }
2491     }
2492   else
2493     {
2494       return bfd_section_from_elf_index (abfd, sym->st_shndx);
2495     }
2496
2497   return NULL;
2498 }
2499
2500 /* Update the got entry reference counts for the section being removed.  */
2501
2502 static boolean
2503 ppc_elf_gc_sweep_hook (abfd, info, sec, relocs)
2504      bfd *abfd;
2505      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2506      asection *sec;
2507      const Elf_Internal_Rela *relocs;
2508 {
2509   Elf_Internal_Shdr *symtab_hdr;
2510   struct elf_link_hash_entry **sym_hashes;
2511   bfd_signed_vma *local_got_refcounts;
2512   const Elf_Internal_Rela *rel, *relend;
2513   unsigned long r_symndx;
2514   struct elf_link_hash_entry *h;
2515
2516   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2517   sym_hashes = elf_sym_hashes (abfd);
2518   local_got_refcounts = elf_local_got_refcounts (abfd);
2519
2520   relend = relocs + sec->reloc_count;
2521   for (rel = relocs; rel < relend; rel++)
2522     switch (ELF32_R_TYPE (rel->r_info))
2523       {
2524       case R_PPC_GOT16:
2525       case R_PPC_GOT16_LO:
2526       case R_PPC_GOT16_HI:
2527       case R_PPC_GOT16_HA:
2528         r_symndx = ELF32_R_SYM (rel->r_info);
2529         if (r_symndx >= symtab_hdr->sh_info)
2530           {
2531             h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2532             if (h->got.refcount > 0)
2533               h->got.refcount--;
2534           }
2535         else if (local_got_refcounts != NULL)
2536           {
2537             if (local_got_refcounts[r_symndx] > 0)
2538               local_got_refcounts[r_symndx]--;
2539           }
2540         break;
2541
2542       case R_PPC_PLT32:
2543       case R_PPC_PLTREL24:
2544       case R_PPC_PLT16_LO:
2545       case R_PPC_PLT16_HI:
2546       case R_PPC_PLT16_HA:
2547         r_symndx = ELF32_R_SYM (rel->r_info);
2548         if (r_symndx >= symtab_hdr->sh_info)
2549           {
2550             h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2551             if (h->plt.refcount > 0)
2552               h->plt.refcount--;
2553           }
2554         break;
2555
2556       default:
2557         break;
2558       }
2559
2560   return true;
2561 }
2562 \f
2563 /* Hook called by the linker routine which adds symbols from an object
2564    file.  We use it to put .comm items in .sbss, and not .bss.  */
2565
2566 static boolean
2567 ppc_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
2568      bfd *abfd;
2569      struct bfd_link_info *info;
2570      const Elf_Internal_Sym *sym;
2571      const char **namep ATTRIBUTE_UNUSED;
2572      flagword *flagsp ATTRIBUTE_UNUSED;
2573      asection **secp;
2574      bfd_vma *valp;
2575 {
2576   if (sym->st_shndx == SHN_COMMON
2577       && !info->relocateable
2578       && sym->st_size <= elf_gp_size (abfd)
2579       && info->hash->creator->flavour == bfd_target_elf_flavour)
2580     {
2581       /* Common symbols less than or equal to -G nn bytes are automatically
2582          put into .sdata.  */
2583       elf_linker_section_t *sdata
2584         = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2585
2586       if (!sdata->bss_section)
2587         {
2588           bfd_size_type amt;
2589
2590           /* We don't go through bfd_make_section, because we don't
2591              want to attach this common section to DYNOBJ.  The linker
2592              will move the symbols to the appropriate output section
2593              when it defines common symbols.  */
2594           amt = sizeof (asection);
2595           sdata->bss_section = (asection *) bfd_zalloc (abfd, amt);
2596           if (sdata->bss_section == NULL)
2597             return false;
2598           sdata->bss_section->name = sdata->bss_name;
2599           sdata->bss_section->flags = SEC_IS_COMMON;
2600           sdata->bss_section->output_section = sdata->bss_section;
2601           amt = sizeof (asymbol);
2602           sdata->bss_section->symbol = (asymbol *) bfd_zalloc (abfd, amt);
2603           amt = sizeof (asymbol *);
2604           sdata->bss_section->symbol_ptr_ptr =
2605             (asymbol **) bfd_zalloc (abfd, amt);
2606           if (sdata->bss_section->symbol == NULL
2607               || sdata->bss_section->symbol_ptr_ptr == NULL)
2608             return false;
2609           sdata->bss_section->symbol->name = sdata->bss_name;
2610           sdata->bss_section->symbol->flags = BSF_SECTION_SYM;
2611           sdata->bss_section->symbol->section = sdata->bss_section;
2612           *sdata->bss_section->symbol_ptr_ptr = sdata->bss_section->symbol;
2613         }
2614
2615       *secp = sdata->bss_section;
2616       *valp = sym->st_size;
2617     }
2618
2619   return true;
2620 }
2621 \f
2622 /* Finish up dynamic symbol handling.  We set the contents of various
2623    dynamic sections here.  */
2624
2625 static boolean
2626 ppc_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
2627      bfd *output_bfd;
2628      struct bfd_link_info *info;
2629      struct elf_link_hash_entry *h;
2630      Elf_Internal_Sym *sym;
2631 {
2632   bfd *dynobj;
2633
2634 #ifdef DEBUG
2635   fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
2636            h->root.root.string);
2637 #endif
2638
2639   dynobj = elf_hash_table (info)->dynobj;
2640   BFD_ASSERT (dynobj != NULL);
2641
2642   if (h->plt.offset != (bfd_vma) -1)
2643     {
2644       asection *splt;
2645       asection *srela;
2646       Elf_Internal_Rela rela;
2647       bfd_vma reloc_index;
2648
2649 #ifdef DEBUG
2650       fprintf (stderr, ", plt_offset = %d", h->plt.offset);
2651 #endif
2652
2653       /* This symbol has an entry in the procedure linkage table.  Set
2654          it up.  */
2655
2656       BFD_ASSERT (h->dynindx != -1);
2657
2658       splt = bfd_get_section_by_name (dynobj, ".plt");
2659       srela = bfd_get_section_by_name (dynobj, ".rela.plt");
2660       BFD_ASSERT (splt != NULL && srela != NULL);
2661
2662       /* We don't need to fill in the .plt.  The ppc dynamic linker
2663          will fill it in.  */
2664
2665       /* Fill in the entry in the .rela.plt section.  */
2666       rela.r_offset = (splt->output_section->vma
2667                        + splt->output_offset
2668                        + h->plt.offset);
2669       rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
2670       rela.r_addend = 0;
2671
2672       reloc_index = (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_SLOT_SIZE;
2673       if (reloc_index > PLT_NUM_SINGLE_ENTRIES)
2674         reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
2675       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2676                                  ((Elf32_External_Rela *) srela->contents
2677                                   + reloc_index));
2678
2679       if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2680         {
2681           /* Mark the symbol as undefined, rather than as defined in
2682              the .plt section.  Leave the value alone.  */
2683           sym->st_shndx = SHN_UNDEF;
2684           /* If the symbol is weak, we do need to clear the value.
2685              Otherwise, the PLT entry would provide a definition for
2686              the symbol even if the symbol wasn't defined anywhere,
2687              and so the symbol would never be NULL.  */
2688           if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
2689               == 0)
2690             sym->st_value = 0;
2691         }
2692     }
2693
2694   if (h->got.offset != (bfd_vma) -1)
2695     {
2696       asection *sgot;
2697       asection *srela;
2698       Elf_Internal_Rela rela;
2699
2700       /* This symbol has an entry in the global offset table.  Set it
2701          up.  */
2702
2703       sgot = bfd_get_section_by_name (dynobj, ".got");
2704       srela = bfd_get_section_by_name (dynobj, ".rela.got");
2705       BFD_ASSERT (sgot != NULL && srela != NULL);
2706
2707       rela.r_offset = (sgot->output_section->vma
2708                        + sgot->output_offset
2709                        + (h->got.offset &~ (bfd_vma) 1));
2710
2711       /* If this is a -Bsymbolic link, and the symbol is defined
2712          locally, we just want to emit a RELATIVE reloc.  The entry in
2713          the global offset table will already have been initialized in
2714          the relocate_section function.  */
2715       if (info->shared
2716           && SYMBOL_REFERENCES_LOCAL (info, h))
2717         {
2718           rela.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
2719           rela.r_addend = (h->root.u.def.value
2720                            + h->root.u.def.section->output_section->vma
2721                            + h->root.u.def.section->output_offset);
2722         }
2723       else
2724         {
2725           BFD_ASSERT ((h->got.offset & 1) == 0);
2726           bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
2727           rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_GLOB_DAT);
2728           rela.r_addend = 0;
2729         }
2730
2731       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2732                                  ((Elf32_External_Rela *) srela->contents
2733                                   + srela->reloc_count));
2734       ++srela->reloc_count;
2735     }
2736
2737   if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
2738     {
2739       asection *s;
2740       Elf_Internal_Rela rela;
2741
2742       /* This symbols needs a copy reloc.  Set it up.  */
2743
2744 #ifdef DEBUG
2745       fprintf (stderr, ", copy");
2746 #endif
2747
2748       BFD_ASSERT (h->dynindx != -1);
2749
2750       if (h->size <= elf_gp_size (dynobj))
2751         s = bfd_get_section_by_name (h->root.u.def.section->owner,
2752                                      ".rela.sbss");
2753       else
2754         s = bfd_get_section_by_name (h->root.u.def.section->owner,
2755                                      ".rela.bss");
2756       BFD_ASSERT (s != NULL);
2757
2758       rela.r_offset = (h->root.u.def.value
2759                        + h->root.u.def.section->output_section->vma
2760                        + h->root.u.def.section->output_offset);
2761       rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
2762       rela.r_addend = 0;
2763       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2764                                  ((Elf32_External_Rela *) s->contents
2765                                   + s->reloc_count));
2766       ++s->reloc_count;
2767     }
2768
2769 #ifdef DEBUG
2770   fprintf (stderr, "\n");
2771 #endif
2772
2773   /* Mark some specially defined symbols as absolute.  */
2774   if (strcmp (h->root.root.string, "_DYNAMIC") == 0
2775       || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
2776       || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
2777     sym->st_shndx = SHN_ABS;
2778
2779   return true;
2780 }
2781 \f
2782 /* Finish up the dynamic sections.  */
2783
2784 static boolean
2785 ppc_elf_finish_dynamic_sections (output_bfd, info)
2786      bfd *output_bfd;
2787      struct bfd_link_info *info;
2788 {
2789   asection *sdyn;
2790   bfd *dynobj = elf_hash_table (info)->dynobj;
2791   asection *sgot = bfd_get_section_by_name (dynobj, ".got");
2792
2793 #ifdef DEBUG
2794   fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
2795 #endif
2796
2797   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
2798
2799   if (elf_hash_table (info)->dynamic_sections_created)
2800     {
2801       asection *splt;
2802       Elf32_External_Dyn *dyncon, *dynconend;
2803
2804       splt = bfd_get_section_by_name (dynobj, ".plt");
2805       BFD_ASSERT (splt != NULL && sdyn != NULL);
2806
2807       dyncon = (Elf32_External_Dyn *) sdyn->contents;
2808       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
2809       for (; dyncon < dynconend; dyncon++)
2810         {
2811           Elf_Internal_Dyn dyn;
2812           const char *name;
2813           boolean size;
2814
2815           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
2816
2817           switch (dyn.d_tag)
2818             {
2819             case DT_PLTGOT:   name = ".plt";      size = false; break;
2820             case DT_PLTRELSZ: name = ".rela.plt"; size = true;  break;
2821             case DT_JMPREL:   name = ".rela.plt"; size = false; break;
2822             default:          name = NULL;        size = false; break;
2823             }
2824
2825           if (name != NULL)
2826             {
2827               asection *s;
2828
2829               s = bfd_get_section_by_name (output_bfd, name);
2830               if (s == NULL)
2831                 dyn.d_un.d_val = 0;
2832               else
2833                 {
2834                   if (! size)
2835                     dyn.d_un.d_ptr = s->vma;
2836                   else
2837                     {
2838                       if (s->_cooked_size != 0)
2839                         dyn.d_un.d_val = s->_cooked_size;
2840                       else
2841                         dyn.d_un.d_val = s->_raw_size;
2842                     }
2843                 }
2844               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2845             }
2846         }
2847     }
2848
2849   /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
2850      easily find the address of the _GLOBAL_OFFSET_TABLE_.  */
2851   if (sgot)
2852     {
2853       unsigned char *contents = sgot->contents;
2854       bfd_put_32 (output_bfd, (bfd_vma) 0x4e800021 /* blrl */, contents);
2855
2856       if (sdyn == NULL)
2857         bfd_put_32 (output_bfd, (bfd_vma) 0, contents+4);
2858       else
2859         bfd_put_32 (output_bfd,
2860                     sdyn->output_section->vma + sdyn->output_offset,
2861                     contents+4);
2862
2863       elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
2864     }
2865
2866   return true;
2867 }
2868 \f
2869 /* The RELOCATE_SECTION function is called by the ELF backend linker
2870    to handle the relocations for a section.
2871
2872    The relocs are always passed as Rela structures; if the section
2873    actually uses Rel structures, the r_addend field will always be
2874    zero.
2875
2876    This function is responsible for adjust the section contents as
2877    necessary, and (if using Rela relocs and generating a
2878    relocateable output file) adjusting the reloc addend as
2879    necessary.
2880
2881    This function does not have to worry about setting the reloc
2882    address or the reloc symbol index.
2883
2884    LOCAL_SYMS is a pointer to the swapped in local symbols.
2885
2886    LOCAL_SECTIONS is an array giving the section in the input file
2887    corresponding to the st_shndx field of each local symbol.
2888
2889    The global hash table entry for the global symbols can be found
2890    via elf_sym_hashes (input_bfd).
2891
2892    When generating relocateable output, this function must handle
2893    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
2894    going to be the section symbol corresponding to the output
2895    section, which means that the addend must be adjusted
2896    accordingly.  */
2897
2898 static boolean
2899 ppc_elf_relocate_section (output_bfd, info, input_bfd, input_section,
2900                           contents, relocs, local_syms, local_sections)
2901      bfd *output_bfd;
2902      struct bfd_link_info *info;
2903      bfd *input_bfd;
2904      asection *input_section;
2905      bfd_byte *contents;
2906      Elf_Internal_Rela *relocs;
2907      Elf_Internal_Sym *local_syms;
2908      asection **local_sections;
2909 {
2910   Elf_Internal_Shdr *symtab_hdr           = &elf_tdata (input_bfd)->symtab_hdr;
2911   struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
2912   bfd *dynobj                             = elf_hash_table (info)->dynobj;
2913   elf_linker_section_t *sdata             = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA)  : NULL;
2914   elf_linker_section_t *sdata2            = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA2) : NULL;
2915   Elf_Internal_Rela *rel                  = relocs;
2916   Elf_Internal_Rela *relend               = relocs + input_section->reloc_count;
2917   asection *sreloc                        = NULL;
2918   asection *splt;
2919   asection *sgot;
2920   bfd_vma *local_got_offsets;
2921   boolean ret                             = true;
2922   long insn;
2923
2924 #ifdef DEBUG
2925   fprintf (stderr, "ppc_elf_relocate_section called for %s section %s, %ld relocations%s\n",
2926            bfd_archive_filename (input_bfd),
2927            bfd_section_name(input_bfd, input_section),
2928            (long) input_section->reloc_count,
2929            (info->relocateable) ? " (relocatable)" : "");
2930 #endif
2931
2932   if (info->relocateable)
2933     return true;
2934
2935   if (!ppc_elf_howto_table[R_PPC_ADDR32])
2936     /* Initialize howto table if needed.  */
2937     ppc_elf_howto_init ();
2938
2939   local_got_offsets = elf_local_got_offsets (input_bfd);
2940
2941   splt = sgot = NULL;
2942   if (dynobj != NULL)
2943     {
2944       splt = bfd_get_section_by_name (dynobj, ".plt");
2945       sgot = bfd_get_section_by_name (dynobj, ".got");
2946     }
2947
2948   for (; rel < relend; rel++)
2949     {
2950       enum elf_ppc_reloc_type r_type    = (enum elf_ppc_reloc_type)ELF32_R_TYPE (rel->r_info);
2951       bfd_vma offset                    = rel->r_offset;
2952       bfd_vma addend                    = rel->r_addend;
2953       bfd_reloc_status_type r           = bfd_reloc_other;
2954       Elf_Internal_Sym *sym             = (Elf_Internal_Sym *) 0;
2955       asection *sec                     = (asection *) 0;
2956       struct elf_link_hash_entry *h     = (struct elf_link_hash_entry *) 0;
2957       const char *sym_name              = (const char *) 0;
2958       reloc_howto_type *howto;
2959       unsigned long r_symndx;
2960       bfd_vma relocation;
2961       int will_become_local;
2962
2963       /* Unknown relocation handling */
2964       if ((unsigned) r_type >= (unsigned) R_PPC_max
2965           || !ppc_elf_howto_table[(int) r_type])
2966         {
2967           (*_bfd_error_handler) (_("%s: unknown relocation type %d"),
2968                                  bfd_archive_filename (input_bfd),
2969                                  (int) r_type);
2970
2971           bfd_set_error (bfd_error_bad_value);
2972           ret = false;
2973           continue;
2974         }
2975
2976       howto = ppc_elf_howto_table[(int) r_type];
2977       r_symndx = ELF32_R_SYM (rel->r_info);
2978
2979       if (r_symndx < symtab_hdr->sh_info)
2980         {
2981           sym = local_syms + r_symndx;
2982           sec = local_sections[r_symndx];
2983           sym_name = "<local symbol>";
2984
2985           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, sec, rel);
2986           addend = rel->r_addend;
2987           /* Relocs to local symbols are always resolved.  */
2988           will_become_local = 1;
2989         }
2990       else
2991         {
2992           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2993           while (h->root.type == bfd_link_hash_indirect
2994                  || h->root.type == bfd_link_hash_warning)
2995             h = (struct elf_link_hash_entry *) h->root.u.i.link;
2996           sym_name = h->root.root.string;
2997
2998           /* Can this relocation be resolved immediately?  */
2999           will_become_local = SYMBOL_REFERENCES_LOCAL (info, h);
3000
3001           if (h->root.type == bfd_link_hash_defined
3002               || h->root.type == bfd_link_hash_defweak)
3003             {
3004               sec = h->root.u.def.section;
3005               if (((r_type == R_PPC_PLT32
3006                     || r_type == R_PPC_PLTREL24)
3007                    && splt != NULL
3008                    && h->plt.offset != (bfd_vma) -1)
3009                   || (r_type == R_PPC_LOCAL24PC
3010                       && sec->output_section == NULL)
3011                   || ((r_type == R_PPC_GOT16
3012                        || r_type == R_PPC_GOT16_LO
3013                        || r_type == R_PPC_GOT16_HI
3014                        || r_type == R_PPC_GOT16_HA)
3015                       && elf_hash_table (info)->dynamic_sections_created
3016                       && (! info->shared || ! will_become_local))
3017                   || (info->shared
3018                       && ! will_become_local
3019                       && ((input_section->flags & SEC_ALLOC) != 0
3020                           /* Testing SEC_DEBUGGING here may be wrong.
3021                              It's here to avoid a crash when
3022                              generating a shared library with DWARF
3023                              debugging information.  */
3024                           || ((input_section->flags & SEC_DEBUGGING) != 0
3025                               && (h->elf_link_hash_flags
3026                                   & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
3027                       && (r_type == R_PPC_ADDR32
3028                           || r_type == R_PPC_ADDR24
3029                           || r_type == R_PPC_ADDR16
3030                           || r_type == R_PPC_ADDR16_LO
3031                           || r_type == R_PPC_ADDR16_HI
3032                           || r_type == R_PPC_ADDR16_HA
3033                           || r_type == R_PPC_ADDR14
3034                           || r_type == R_PPC_ADDR14_BRTAKEN
3035                           || r_type == R_PPC_ADDR14_BRNTAKEN
3036                           || r_type == R_PPC_COPY
3037                           || r_type == R_PPC_GLOB_DAT
3038                           || r_type == R_PPC_JMP_SLOT
3039                           || r_type == R_PPC_UADDR32
3040                           || r_type == R_PPC_UADDR16
3041                           || r_type == R_PPC_SDAREL16
3042                           || r_type == R_PPC_EMB_NADDR32
3043                           || r_type == R_PPC_EMB_NADDR16
3044                           || r_type == R_PPC_EMB_NADDR16_LO
3045                           || r_type == R_PPC_EMB_NADDR16_HI
3046                           || r_type == R_PPC_EMB_NADDR16_HA
3047                           || r_type == R_PPC_EMB_SDAI16
3048                           || r_type == R_PPC_EMB_SDA2I16
3049                           || r_type == R_PPC_EMB_SDA2REL
3050                           || r_type == R_PPC_EMB_SDA21
3051                           || r_type == R_PPC_EMB_MRKREF
3052                           || r_type == R_PPC_EMB_BIT_FLD
3053                           || r_type == R_PPC_EMB_RELSDA
3054                           || ((r_type == R_PPC_REL24
3055                                || r_type == R_PPC_REL32
3056                                || r_type == R_PPC_REL14
3057                                || r_type == R_PPC_REL14_BRTAKEN
3058                                || r_type == R_PPC_REL14_BRNTAKEN
3059                                || r_type == R_PPC_RELATIVE)
3060                               && strcmp (h->root.root.string,
3061                                          "_GLOBAL_OFFSET_TABLE_") != 0))))
3062                 {
3063                   /* In these cases, we don't need the relocation
3064                      value.  We check specially because in some
3065                      obscure cases sec->output_section will be NULL.  */
3066                   relocation = 0;
3067                 }
3068               else if (sec->output_section == NULL)
3069                 {
3070                   (*_bfd_error_handler)
3071                     (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
3072                      bfd_archive_filename (input_bfd), h->root.root.string,
3073                      bfd_get_section_name (input_bfd, input_section));
3074                   relocation = 0;
3075                 }
3076               else
3077                 relocation = (h->root.u.def.value
3078                               + sec->output_section->vma
3079                               + sec->output_offset);
3080             }
3081           else if (h->root.type == bfd_link_hash_undefweak)
3082             relocation = 0;
3083           else if (info->shared
3084                    && (!info->symbolic || info->allow_shlib_undefined)
3085                    && !info->no_undefined
3086                    && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
3087             relocation = 0;
3088           else
3089             {
3090               if (! (*info->callbacks->undefined_symbol) (info,
3091                                                          h->root.root.string,
3092                                                          input_bfd,
3093                                                          input_section,
3094                                                          rel->r_offset,
3095                                                          (!info->shared
3096                                                           || info->no_undefined
3097                                                           || ELF_ST_VISIBILITY (h->other))))
3098                 return false;
3099               relocation = 0;
3100             }
3101         }
3102
3103       switch ((int) r_type)
3104         {
3105         default:
3106           (*_bfd_error_handler) (_("%s: unknown relocation type %d for symbol %s"),
3107                                  bfd_archive_filename (input_bfd),
3108                                  (int) r_type, sym_name);
3109
3110           bfd_set_error (bfd_error_bad_value);
3111           ret = false;
3112           continue;
3113
3114         case (int) R_PPC_NONE:
3115           continue;
3116
3117         /* Relocations that need no special processing.  */
3118         case (int) R_PPC_LOCAL24PC:
3119           /* It makes no sense to point a local relocation
3120              at a symbol not in this object.  */
3121           if (h != NULL
3122               && (h->root.type == bfd_link_hash_defined
3123                   || h->root.type == bfd_link_hash_defweak)
3124               && sec->output_section == NULL)
3125             {
3126               if (! (*info->callbacks->undefined_symbol) (info,
3127                                                           h->root.root.string,
3128                                                           input_bfd,
3129                                                           input_section,
3130                                                           rel->r_offset,
3131                                                           true))
3132                 return false;
3133               continue;
3134             }
3135           break;
3136
3137         /* Relocations that may need to be propagated if this is a shared
3138            object.  */
3139         case (int) R_PPC_REL24:
3140         case (int) R_PPC_REL32:
3141         case (int) R_PPC_REL14:
3142           /* If these relocations are not to a named symbol, they can be
3143              handled right here, no need to bother the dynamic linker.  */
3144           if (h == NULL
3145               || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
3146               || SYMBOL_REFERENCES_LOCAL (info, h))
3147             break;
3148         /* fall through */
3149
3150         /* Relocations that always need to be propagated if this is a shared
3151            object.  */
3152         case (int) R_PPC_ADDR32:
3153         case (int) R_PPC_ADDR24:
3154         case (int) R_PPC_ADDR16:
3155         case (int) R_PPC_ADDR16_LO:
3156         case (int) R_PPC_ADDR16_HI:
3157         case (int) R_PPC_ADDR16_HA:
3158         case (int) R_PPC_ADDR14:
3159         case (int) R_PPC_UADDR32:
3160         case (int) R_PPC_UADDR16:
3161           if (info->shared && r_symndx != 0)
3162             {
3163               Elf_Internal_Rela outrel;
3164               int skip;
3165
3166 #ifdef DEBUG
3167               fprintf (stderr, "ppc_elf_relocate_section need to create relocation for %s\n",
3168                        (h && h->root.root.string) ? h->root.root.string : "<unknown>");
3169 #endif
3170
3171               /* When generating a shared object, these relocations
3172                  are copied into the output file to be resolved at run
3173                  time.  */
3174
3175               if (sreloc == NULL)
3176                 {
3177                   const char *name;
3178
3179                   name = (bfd_elf_string_from_elf_section
3180                           (input_bfd,
3181                            elf_elfheader (input_bfd)->e_shstrndx,
3182                            elf_section_data (input_section)->rel_hdr.sh_name));
3183                   if (name == NULL)
3184                     return false;
3185
3186                   BFD_ASSERT (strncmp (name, ".rela", 5) == 0
3187                               && strcmp (bfd_get_section_name (input_bfd,
3188                                                                input_section),
3189                                          name + 5) == 0);
3190
3191                   sreloc = bfd_get_section_by_name (dynobj, name);
3192                   BFD_ASSERT (sreloc != NULL);
3193                 }
3194
3195               skip = 0;
3196
3197               outrel.r_offset =
3198                 _bfd_elf_section_offset (output_bfd, info, input_section,
3199                                          rel->r_offset);
3200               if (outrel.r_offset == (bfd_vma) -1
3201                   || outrel.r_offset == (bfd_vma) -2)
3202                 skip = (int) outrel.r_offset;
3203               outrel.r_offset += (input_section->output_section->vma
3204                                   + input_section->output_offset);
3205
3206               if (skip)
3207                 memset (&outrel, 0, sizeof outrel);
3208               /* h->dynindx may be -1 if this symbol was marked to
3209                  become local.  */
3210               else if (! will_become_local)
3211                 {
3212                   outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3213                   outrel.r_addend = rel->r_addend;
3214                 }
3215               else
3216                 {
3217                   if (r_type == R_PPC_ADDR32)
3218                     {
3219                       outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3220                       outrel.r_addend = relocation + rel->r_addend;
3221                     }
3222                   else
3223                     {
3224                       long indx;
3225
3226                       if (h == NULL)
3227                         sec = local_sections[r_symndx];
3228                       else
3229                         {
3230                           BFD_ASSERT (h->root.type == bfd_link_hash_defined
3231                                       || (h->root.type
3232                                           == bfd_link_hash_defweak));
3233                           sec = h->root.u.def.section;
3234                         }
3235                       if (sec != NULL && bfd_is_abs_section (sec))
3236                         indx = 0;
3237                       else if (sec == NULL || sec->owner == NULL)
3238                         {
3239                           bfd_set_error (bfd_error_bad_value);
3240                           return false;
3241                         }
3242                       else
3243                         {
3244                           asection *osec;
3245
3246                           osec = sec->output_section;
3247                           indx = elf_section_data (osec)->dynindx;
3248                           BFD_ASSERT (indx > 0);
3249 #ifdef DEBUG
3250                           if (indx <= 0)
3251                             {
3252                               printf ("indx=%d section=%s flags=%08x name=%s\n",
3253                                      indx, osec->name, osec->flags,
3254                                      h->root.root.string);
3255                             }
3256 #endif
3257                         }
3258
3259                       outrel.r_info = ELF32_R_INFO (indx, r_type);
3260                       outrel.r_addend = relocation + rel->r_addend;
3261                     }
3262                 }
3263
3264               bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3265                                          (((Elf32_External_Rela *)
3266                                            sreloc->contents)
3267                                           + sreloc->reloc_count));
3268               ++sreloc->reloc_count;
3269
3270               /* This reloc will be computed at runtime, so there's no
3271                  need to do anything now, unless this is a RELATIVE
3272                  reloc in an unallocated section.  */
3273               if (skip != -1
3274                   || (input_section->flags & SEC_ALLOC) != 0
3275                   || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE)
3276                 continue;
3277             }
3278
3279           /* Arithmetic adjust relocations that aren't going into a
3280              shared object.  */
3281           if (r_type == R_PPC_ADDR16_HA
3282               /* It's just possible that this symbol is a weak symbol
3283                  that's not actually defined anywhere. In that case,
3284                  'sec' would be NULL, and we should leave the symbol
3285                  alone (it will be set to zero elsewhere in the link).  */
3286               && sec != NULL)
3287             {
3288               addend += ((relocation + addend) & 0x8000) << 1;
3289             }
3290           break;
3291
3292         /* branch taken prediction relocations */
3293         case (int) R_PPC_ADDR14_BRTAKEN:
3294         case (int) R_PPC_REL14_BRTAKEN:
3295           insn = bfd_get_32 (output_bfd, contents + offset);
3296           if ((relocation - offset) & 0x8000)
3297             insn &= ~BRANCH_PREDICT_BIT;
3298           else
3299             insn |= BRANCH_PREDICT_BIT;
3300           bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3301           break;
3302
3303         /* branch not taken predicition relocations */
3304         case (int) R_PPC_ADDR14_BRNTAKEN:
3305         case (int) R_PPC_REL14_BRNTAKEN:
3306           insn = bfd_get_32 (output_bfd, contents + offset);
3307           if ((relocation - offset) & 0x8000)
3308             insn |= BRANCH_PREDICT_BIT;
3309           else
3310             insn &= ~BRANCH_PREDICT_BIT;
3311           bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3312           break;
3313
3314         /* GOT16 relocations */
3315         case (int) R_PPC_GOT16:
3316         case (int) R_PPC_GOT16_LO:
3317         case (int) R_PPC_GOT16_HI:
3318         case (int) R_PPC_GOT16_HA:
3319           /* Relocation is to the entry for this symbol in the global
3320              offset table.  */
3321           BFD_ASSERT (sgot != NULL);
3322
3323           if (h != NULL)
3324             {
3325               bfd_vma off;
3326
3327               off = h->got.offset;
3328               BFD_ASSERT (off != (bfd_vma) -1);
3329
3330               if (! elf_hash_table (info)->dynamic_sections_created
3331                   || (info->shared
3332                       && SYMBOL_REFERENCES_LOCAL (info, h)))
3333                 {
3334                   /* This is actually a static link, or it is a
3335                      -Bsymbolic link and the symbol is defined
3336                      locally.  We must initialize this entry in the
3337                      global offset table.  Since the offset must
3338                      always be a multiple of 4, we use the least
3339                      significant bit to record whether we have
3340                      initialized it already.
3341
3342                      When doing a dynamic link, we create a .rela.got
3343                      relocation entry to initialize the value.  This
3344                      is done in the finish_dynamic_symbol routine.  */
3345                   if ((off & 1) != 0)
3346                     off &= ~1;
3347                   else
3348                     {
3349                       bfd_put_32 (output_bfd, relocation,
3350                                   sgot->contents + off);
3351                       h->got.offset |= 1;
3352                     }
3353                 }
3354
3355               relocation = sgot->output_offset + off - 4;
3356             }
3357           else
3358             {
3359               bfd_vma off;
3360
3361               BFD_ASSERT (local_got_offsets != NULL
3362                           && local_got_offsets[r_symndx] != (bfd_vma) -1);
3363
3364               off = local_got_offsets[r_symndx];
3365
3366               /* The offset must always be a multiple of 4.  We use
3367                  the least significant bit to record whether we have
3368                  already processed this entry.  */
3369               if ((off & 1) != 0)
3370                 off &= ~1;
3371               else
3372                 {
3373                   bfd_put_32 (output_bfd, relocation, sgot->contents + off);
3374
3375                   if (info->shared)
3376                     {
3377                       asection *srelgot;
3378                       Elf_Internal_Rela outrel;
3379
3380                       /* We need to generate a R_PPC_RELATIVE reloc
3381                          for the dynamic linker.  */
3382                       srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
3383                       BFD_ASSERT (srelgot != NULL);
3384
3385                       outrel.r_offset = (sgot->output_section->vma
3386                                          + sgot->output_offset
3387                                          + off);
3388                       outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3389                       outrel.r_addend = relocation;
3390                       bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3391                                                  (((Elf32_External_Rela *)
3392                                                    srelgot->contents)
3393                                                   + srelgot->reloc_count));
3394                       ++srelgot->reloc_count;
3395                     }
3396
3397                   local_got_offsets[r_symndx] |= 1;
3398                 }
3399
3400               relocation = sgot->output_offset + off - 4;
3401             }
3402           break;
3403
3404         /* Indirect .sdata relocation */
3405         case (int) R_PPC_EMB_SDAI16:
3406           BFD_ASSERT (sdata != NULL);
3407           relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3408                                                                 sdata, h, relocation, rel,
3409                                                                 R_PPC_RELATIVE);
3410           break;
3411
3412         /* Indirect .sdata2 relocation */
3413         case (int) R_PPC_EMB_SDA2I16:
3414           BFD_ASSERT (sdata2 != NULL);
3415           relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3416                                                                 sdata2, h, relocation, rel,
3417                                                                 R_PPC_RELATIVE);
3418           break;
3419
3420         /* Handle the TOC16 reloc.  We want to use the offset within the .got
3421            section, not the actual VMA.  This is appropriate when generating
3422            an embedded ELF object, for which the .got section acts like the
3423            AIX .toc section.  */
3424         case (int) R_PPC_TOC16:                 /* phony GOT16 relocations */
3425           BFD_ASSERT (sec != (asection *) 0);
3426           BFD_ASSERT (bfd_is_und_section (sec)
3427                       || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
3428                       || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0)
3429
3430           addend -= sec->output_section->vma + sec->output_offset + 0x8000;
3431           break;
3432
3433         case (int) R_PPC_PLTREL24:
3434           /* Relocation is to the entry for this symbol in the
3435              procedure linkage table.  */
3436           BFD_ASSERT (h != NULL);
3437
3438           if (h->plt.offset == (bfd_vma) -1
3439               || splt == NULL)
3440             {
3441               /* We didn't make a PLT entry for this symbol.  This
3442                  happens when statically linking PIC code, or when
3443                  using -Bsymbolic.  */
3444               break;
3445             }
3446
3447           relocation = (splt->output_section->vma
3448                         + splt->output_offset
3449                         + h->plt.offset);
3450           break;
3451
3452         /* relocate against _SDA_BASE_ */
3453         case (int) R_PPC_SDAREL16:
3454           {
3455             const char *name;
3456
3457             BFD_ASSERT (sec != (asection *) 0);
3458             name = bfd_get_section_name (abfd, sec->output_section);
3459             if (strcmp (name, ".sdata") != 0
3460                 && strcmp (name, ".sbss") != 0)
3461               {
3462                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3463                                        bfd_archive_filename (input_bfd),
3464                                        sym_name,
3465                                        ppc_elf_howto_table[(int) r_type]->name,
3466                                        name);
3467               }
3468             addend -= (sdata->sym_hash->root.u.def.value
3469                        + sdata->sym_hash->root.u.def.section->output_section->vma
3470                        + sdata->sym_hash->root.u.def.section->output_offset);
3471           }
3472           break;
3473
3474         /* relocate against _SDA2_BASE_ */
3475         case (int) R_PPC_EMB_SDA2REL:
3476           {
3477             const char *name;
3478
3479             BFD_ASSERT (sec != (asection *) 0);
3480             name = bfd_get_section_name (abfd, sec->output_section);
3481             if (strcmp (name, ".sdata2") != 0 && strcmp (name, ".sbss2") != 0)
3482               {
3483                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3484                                        bfd_archive_filename (input_bfd),
3485                                        sym_name,
3486                                        ppc_elf_howto_table[(int) r_type]->name,
3487                                        name);
3488
3489                 bfd_set_error (bfd_error_bad_value);
3490                 ret = false;
3491                 continue;
3492               }
3493             addend -= (sdata2->sym_hash->root.u.def.value
3494                        + sdata2->sym_hash->root.u.def.section->output_section->vma
3495                        + sdata2->sym_hash->root.u.def.section->output_offset);
3496           }
3497           break;
3498
3499         /* relocate against either _SDA_BASE_, _SDA2_BASE_, or 0 */
3500         case (int) R_PPC_EMB_SDA21:
3501         case (int) R_PPC_EMB_RELSDA:
3502           {
3503             const char *name;
3504             int reg;
3505
3506             BFD_ASSERT (sec != (asection *) 0);
3507             name = bfd_get_section_name (abfd, sec->output_section);
3508             if (strcmp (name, ".sdata") == 0 || strcmp (name, ".sbss") == 0)
3509               {
3510                 reg = 13;
3511                 addend -= (sdata->sym_hash->root.u.def.value
3512                            + sdata->sym_hash->root.u.def.section->output_section->vma
3513                            + sdata->sym_hash->root.u.def.section->output_offset);
3514               }
3515
3516             else if (strcmp (name, ".sdata2") == 0
3517                      || strcmp (name, ".sbss2") == 0)
3518               {
3519                 reg = 2;
3520                 addend -= (sdata2->sym_hash->root.u.def.value
3521                            + sdata2->sym_hash->root.u.def.section->output_section->vma
3522                            + sdata2->sym_hash->root.u.def.section->output_offset);
3523               }
3524
3525             else if (strcmp (name, ".PPC.EMB.sdata0") == 0
3526                      || strcmp (name, ".PPC.EMB.sbss0") == 0)
3527               {
3528                 reg = 0;
3529               }
3530
3531             else
3532               {
3533                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3534                                        bfd_archive_filename (input_bfd),
3535                                        sym_name,
3536                                        ppc_elf_howto_table[(int) r_type]->name,
3537                                        name);
3538
3539                 bfd_set_error (bfd_error_bad_value);
3540                 ret = false;
3541                 continue;
3542               }
3543
3544             if (r_type == R_PPC_EMB_SDA21)
3545               {                 /* fill in register field */
3546                 insn = bfd_get_32 (output_bfd, contents + offset);
3547                 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
3548                 bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3549               }
3550           }
3551           break;
3552
3553         /* Relocate against the beginning of the section */
3554         case (int) R_PPC_SECTOFF:
3555         case (int) R_PPC_SECTOFF_LO:
3556         case (int) R_PPC_SECTOFF_HI:
3557           BFD_ASSERT (sec != (asection *) 0);
3558           addend -= sec->output_section->vma;
3559           break;
3560
3561         case (int) R_PPC_SECTOFF_HA:
3562           BFD_ASSERT (sec != (asection *) 0);
3563           addend -= sec->output_section->vma;
3564           addend += ((relocation + addend) & 0x8000) << 1;
3565           break;
3566
3567         /* Negative relocations */
3568         case (int) R_PPC_EMB_NADDR32:
3569         case (int) R_PPC_EMB_NADDR16:
3570         case (int) R_PPC_EMB_NADDR16_LO:
3571         case (int) R_PPC_EMB_NADDR16_HI:
3572           addend -= 2 * relocation;
3573           break;
3574
3575         case (int) R_PPC_EMB_NADDR16_HA:
3576           addend -= 2 * relocation;
3577           addend += ((relocation + addend) & 0x8000) << 1;
3578           break;
3579
3580         /* NOP relocation that prevents garbage collecting linkers from omitting a
3581            reference.  */
3582         case (int) R_PPC_EMB_MRKREF:
3583           continue;
3584
3585         case (int) R_PPC_COPY:
3586         case (int) R_PPC_GLOB_DAT:
3587         case (int) R_PPC_JMP_SLOT:
3588         case (int) R_PPC_RELATIVE:
3589         case (int) R_PPC_PLT32:
3590         case (int) R_PPC_PLTREL32:
3591         case (int) R_PPC_PLT16_LO:
3592         case (int) R_PPC_PLT16_HI:
3593         case (int) R_PPC_PLT16_HA:
3594         case (int) R_PPC_EMB_RELSEC16:
3595         case (int) R_PPC_EMB_RELST_LO:
3596         case (int) R_PPC_EMB_RELST_HI:
3597         case (int) R_PPC_EMB_RELST_HA:
3598         case (int) R_PPC_EMB_BIT_FLD:
3599           (*_bfd_error_handler) (_("%s: Relocation %s is not yet supported for symbol %s."),
3600                                  bfd_archive_filename (input_bfd),
3601                                  ppc_elf_howto_table[(int) r_type]->name,
3602                                  sym_name);
3603
3604           bfd_set_error (bfd_error_invalid_operation);
3605           ret = false;
3606           continue;
3607
3608         case (int) R_PPC_GNU_VTINHERIT:
3609         case (int) R_PPC_GNU_VTENTRY:
3610           /* These are no-ops in the end.  */
3611           continue;
3612         }
3613
3614 #ifdef DEBUG
3615       fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, offset = %ld, addend = %ld\n",
3616                howto->name,
3617                (int) r_type,
3618                sym_name,
3619                r_symndx,
3620                (long) offset,
3621                (long) addend);
3622 #endif
3623
3624       r = _bfd_final_link_relocate (howto,
3625                                     input_bfd,
3626                                     input_section,
3627                                     contents,
3628                                     offset,
3629                                     relocation,
3630                                     addend);
3631
3632       if (r == bfd_reloc_ok)
3633         ;
3634       else if (r == bfd_reloc_overflow)
3635         {
3636           const char *name;
3637
3638           if (h != NULL)
3639             {
3640               if (h->root.type == bfd_link_hash_undefweak
3641                   && howto->pc_relative)
3642                 {
3643                   /* Assume this is a call protected by other code that
3644                      detect the symbol is undefined.  If this is the case,
3645                      we can safely ignore the overflow.  If not, the
3646                      program is hosed anyway, and a little warning isn't
3647                      going to help.  */
3648
3649                   continue;
3650                 }
3651
3652               name = h->root.root.string;
3653             }
3654           else
3655             {
3656               name = bfd_elf_string_from_elf_section (input_bfd,
3657                                                       symtab_hdr->sh_link,
3658                                                       sym->st_name);
3659               if (name == NULL)
3660                 continue;
3661               if (*name == '\0')
3662                 name = bfd_section_name (input_bfd, sec);
3663             }
3664
3665           if (! (*info->callbacks->reloc_overflow) (info,
3666                                                    name,
3667                                                    howto->name,
3668                                                    (bfd_vma) 0,
3669                                                    input_bfd,
3670                                                    input_section,
3671                                                    offset))
3672             return false;
3673         }
3674       else
3675         ret = false;
3676     }
3677
3678 #ifdef DEBUG
3679   fprintf (stderr, "\n");
3680 #endif
3681
3682   return ret;
3683 }
3684
3685 static enum elf_reloc_type_class
3686 ppc_elf_reloc_type_class (rela)
3687      const Elf_Internal_Rela *rela;
3688 {
3689   switch ((int) ELF32_R_TYPE (rela->r_info))
3690     {
3691     case R_PPC_RELATIVE:
3692       return reloc_class_relative;
3693     case R_PPC_REL24:
3694     case R_PPC_ADDR24:
3695     case R_PPC_JMP_SLOT:
3696       return reloc_class_plt;
3697     case R_PPC_COPY:
3698       return reloc_class_copy;
3699     default:
3700       return reloc_class_normal;
3701     }
3702 }
3703 \f
3704 /* Support for core dump NOTE sections */
3705 static boolean
3706 ppc_elf_grok_prstatus (abfd, note)
3707      bfd *abfd;
3708      Elf_Internal_Note *note;
3709 {
3710   int offset;
3711   unsigned int raw_size;
3712
3713   switch (note->descsz)
3714     {
3715       default:
3716         return false;
3717
3718       case 268:         /* Linux/PPC */
3719         /* pr_cursig */
3720         elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
3721
3722         /* pr_pid */
3723         elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
3724
3725         /* pr_reg */
3726         offset = 72;
3727         raw_size = 192;
3728
3729         break;
3730     }
3731
3732   /* Make a ".reg/999" section.  */
3733   return _bfd_elfcore_make_pseudosection (abfd, ".reg",
3734                                           raw_size, note->descpos + offset);
3735 }
3736
3737 static boolean
3738 ppc_elf_grok_psinfo (abfd, note)
3739      bfd *abfd;
3740      Elf_Internal_Note *note;
3741 {
3742   switch (note->descsz)
3743     {
3744       default:
3745         return false;
3746
3747       case 128:         /* Linux/PPC elf_prpsinfo */
3748         elf_tdata (abfd)->core_program
3749          = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
3750         elf_tdata (abfd)->core_command
3751          = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
3752     }
3753
3754   /* Note that for some reason, a spurious space is tacked
3755      onto the end of the args in some (at least one anyway)
3756      implementations, so strip it off if it exists.  */
3757
3758   {
3759     char *command = elf_tdata (abfd)->core_command;
3760     int n = strlen (command);
3761
3762     if (0 < n && command[n - 1] == ' ')
3763       command[n - 1] = '\0';
3764   }
3765
3766   return true;
3767 }
3768 \f
3769 #define TARGET_LITTLE_SYM       bfd_elf32_powerpcle_vec
3770 #define TARGET_LITTLE_NAME      "elf32-powerpcle"
3771 #define TARGET_BIG_SYM          bfd_elf32_powerpc_vec
3772 #define TARGET_BIG_NAME         "elf32-powerpc"
3773 #define ELF_ARCH                bfd_arch_powerpc
3774 #define ELF_MACHINE_CODE        EM_PPC
3775 #define ELF_MAXPAGESIZE         0x10000
3776 #define elf_info_to_howto       ppc_elf_info_to_howto
3777
3778 #ifdef  EM_CYGNUS_POWERPC
3779 #define ELF_MACHINE_ALT1        EM_CYGNUS_POWERPC
3780 #endif
3781
3782 #ifdef EM_PPC_OLD
3783 #define ELF_MACHINE_ALT2        EM_PPC_OLD
3784 #endif
3785
3786 #define elf_backend_plt_not_loaded      1
3787 #define elf_backend_got_symbol_offset   4
3788 #define elf_backend_can_gc_sections     1
3789 #define elf_backend_can_refcount        1
3790 #define elf_backend_got_header_size     12
3791 #define elf_backend_plt_header_size     PLT_INITIAL_ENTRY_SIZE
3792 #define elf_backend_rela_normal         1
3793
3794 #define bfd_elf32_bfd_merge_private_bfd_data    ppc_elf_merge_private_bfd_data
3795 #define bfd_elf32_bfd_relax_section             ppc_elf_relax_section
3796 #define bfd_elf32_bfd_reloc_type_lookup         ppc_elf_reloc_type_lookup
3797 #define bfd_elf32_bfd_set_private_flags         ppc_elf_set_private_flags
3798 #define bfd_elf32_bfd_final_link                _bfd_elf32_gc_common_final_link
3799
3800 #define elf_backend_gc_mark_hook                ppc_elf_gc_mark_hook
3801 #define elf_backend_gc_sweep_hook               ppc_elf_gc_sweep_hook
3802 #define elf_backend_section_from_shdr           ppc_elf_section_from_shdr
3803 #define elf_backend_relocate_section            ppc_elf_relocate_section
3804 #define elf_backend_create_dynamic_sections     ppc_elf_create_dynamic_sections
3805 #define elf_backend_check_relocs                ppc_elf_check_relocs
3806 #define elf_backend_adjust_dynamic_symbol       ppc_elf_adjust_dynamic_symbol
3807 #define elf_backend_add_symbol_hook             ppc_elf_add_symbol_hook
3808 #define elf_backend_size_dynamic_sections       ppc_elf_size_dynamic_sections
3809 #define elf_backend_finish_dynamic_symbol       ppc_elf_finish_dynamic_symbol
3810 #define elf_backend_finish_dynamic_sections     ppc_elf_finish_dynamic_sections
3811 #define elf_backend_fake_sections               ppc_elf_fake_sections
3812 #define elf_backend_additional_program_headers  ppc_elf_additional_program_headers
3813 #define elf_backend_modify_segment_map          ppc_elf_modify_segment_map
3814 #define elf_backend_grok_prstatus               ppc_elf_grok_prstatus
3815 #define elf_backend_grok_psinfo                 ppc_elf_grok_psinfo
3816 #define elf_backend_reloc_type_class            ppc_elf_reloc_type_class
3817
3818 #include "elf32-target.h"