OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [bfd/] [elf32-ppc.c] - Blame information for rev 607

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.