projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
daily update
[deliverable/binutils-gdb.git] / bfd / elf32-arm.c
CommitLineData
252b5132 1/* 32-bit ELF support for ARM
d7f735da 2 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
d1f161ea 3 Free Software Foundation, Inc.
252b5132
RH		 4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
3e110533 19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
252b5132 20
7f266840
DJ		 21#include "bfd.h"
22#include "sysdep.h"
00a97672 23#include "libiberty.h"
7f266840
DJ		 24#include "libbfd.h"
25#include "elf-bfd.h"
00a97672 26#include "elf-vxworks.h"
ee065d83 27#include "elf/arm.h"
7f266840
DJ		 28
29#ifndef NUM_ELEM
30#define NUM_ELEM(a) (sizeof (a) / (sizeof (a)[0]))
31#endif
32
00a97672
RS		 33/* Return the relocation section associated with NAME. HTAB is the
34 bfd's elf32_arm_link_hash_entry. */
35#define RELOC_SECTION(HTAB, NAME) \
36 ((HTAB)->use_rel ? ".rel" NAME : ".rela" NAME)
37
38/* Return size of a relocation entry. HTAB is the bfd's
39 elf32_arm_link_hash_entry. */
40#define RELOC_SIZE(HTAB) \
41 ((HTAB)->use_rel \
42 ? sizeof (Elf32_External_Rel) \
43 : sizeof (Elf32_External_Rela))
44
45/* Return function to swap relocations in. HTAB is the bfd's
46 elf32_arm_link_hash_entry. */
47#define SWAP_RELOC_IN(HTAB) \
48 ((HTAB)->use_rel \
49 ? bfd_elf32_swap_reloc_in \
50 : bfd_elf32_swap_reloca_in)
51
52/* Return function to swap relocations out. HTAB is the bfd's
53 elf32_arm_link_hash_entry. */
54#define SWAP_RELOC_OUT(HTAB) \
55 ((HTAB)->use_rel \
56 ? bfd_elf32_swap_reloc_out \
57 : bfd_elf32_swap_reloca_out)
58
7f266840
DJ		 59#define elf_info_to_howto 0
60#define elf_info_to_howto_rel elf32_arm_info_to_howto
61
62#define ARM_ELF_ABI_VERSION 0
63#define ARM_ELF_OS_ABI_VERSION ELFOSABI_ARM
64
24718e3b 65static struct elf_backend_data elf32_arm_vxworks_bed;
00a97672 66
7f266840
DJ		 67/* Note: code such as elf32_arm_reloc_type_lookup expect to use e.g.
68 R_ARM_PC24 as an index into this, and find the R_ARM_PC24 HOWTO
69 in that slot. */
70
c19d1205 71static reloc_howto_type elf32_arm_howto_table_1[] =
7f266840
DJ		 72{
73 /* No relocation */
74 HOWTO (R_ARM_NONE, /* type */
75 0, /* rightshift */
76 0, /* size (0 = byte, 1 = short, 2 = long) */
77 0, /* bitsize */
78 FALSE, /* pc_relative */
79 0, /* bitpos */
80 complain_overflow_dont,/* complain_on_overflow */
81 bfd_elf_generic_reloc, /* special_function */
82 "R_ARM_NONE", /* name */
83 FALSE, /* partial_inplace */
84 0, /* src_mask */
85 0, /* dst_mask */
86 FALSE), /* pcrel_offset */
87
88 HOWTO (R_ARM_PC24, /* type */
89 2, /* rightshift */
90 2, /* size (0 = byte, 1 = short, 2 = long) */
91 24, /* bitsize */
92 TRUE, /* pc_relative */
93 0, /* bitpos */
94 complain_overflow_signed,/* complain_on_overflow */
95 bfd_elf_generic_reloc, /* special_function */
96 "R_ARM_PC24", /* name */
97 FALSE, /* partial_inplace */
98 0x00ffffff, /* src_mask */
99 0x00ffffff, /* dst_mask */
100 TRUE), /* pcrel_offset */
101
102 /* 32 bit absolute */
103 HOWTO (R_ARM_ABS32, /* type */
104 0, /* rightshift */
105 2, /* size (0 = byte, 1 = short, 2 = long) */
106 32, /* bitsize */
107 FALSE, /* pc_relative */
108 0, /* bitpos */
109 complain_overflow_bitfield,/* complain_on_overflow */
110 bfd_elf_generic_reloc, /* special_function */
111 "R_ARM_ABS32", /* name */
112 FALSE, /* partial_inplace */
113 0xffffffff, /* src_mask */
114 0xffffffff, /* dst_mask */
115 FALSE), /* pcrel_offset */
116
117 /* standard 32bit pc-relative reloc */
118 HOWTO (R_ARM_REL32, /* type */
119 0, /* rightshift */
120 2, /* size (0 = byte, 1 = short, 2 = long) */
121 32, /* bitsize */
122 TRUE, /* pc_relative */
123 0, /* bitpos */
124 complain_overflow_bitfield,/* complain_on_overflow */
125 bfd_elf_generic_reloc, /* special_function */
126 "R_ARM_REL32", /* name */
127 FALSE, /* partial_inplace */
128 0xffffffff, /* src_mask */
129 0xffffffff, /* dst_mask */
130 TRUE), /* pcrel_offset */
131
c19d1205 132 /* 8 bit absolute - R_ARM_LDR_PC_G0 in AAELF */
4962c51a 133 HOWTO (R_ARM_LDR_PC_G0, /* type */
7f266840
DJ		 134 0, /* rightshift */
135 0, /* size (0 = byte, 1 = short, 2 = long) */
4962c51a
MS		 136 32, /* bitsize */
137 TRUE, /* pc_relative */
7f266840 138 0, /* bitpos */
4962c51a 139 complain_overflow_dont,/* complain_on_overflow */
7f266840 140 bfd_elf_generic_reloc, /* special_function */
4962c51a 141 "R_ARM_LDR_PC_G0", /* name */
7f266840 142 FALSE, /* partial_inplace */
4962c51a
MS		 143 0xffffffff, /* src_mask */
144 0xffffffff, /* dst_mask */
145 TRUE), /* pcrel_offset */
7f266840
DJ		 146
147 /* 16 bit absolute */
148 HOWTO (R_ARM_ABS16, /* type */
149 0, /* rightshift */
150 1, /* size (0 = byte, 1 = short, 2 = long) */
151 16, /* bitsize */
152 FALSE, /* pc_relative */
153 0, /* bitpos */
154 complain_overflow_bitfield,/* complain_on_overflow */
155 bfd_elf_generic_reloc, /* special_function */
156 "R_ARM_ABS16", /* name */
157 FALSE, /* partial_inplace */
158 0x0000ffff, /* src_mask */
159 0x0000ffff, /* dst_mask */
160 FALSE), /* pcrel_offset */
161
162 /* 12 bit absolute */
163 HOWTO (R_ARM_ABS12, /* type */
164 0, /* rightshift */
165 2, /* size (0 = byte, 1 = short, 2 = long) */
166 12, /* bitsize */
167 FALSE, /* pc_relative */
168 0, /* bitpos */
169 complain_overflow_bitfield,/* complain_on_overflow */
170 bfd_elf_generic_reloc, /* special_function */
171 "R_ARM_ABS12", /* name */
172 FALSE, /* partial_inplace */
00a97672
RS		 173 0x00000fff, /* src_mask */
174 0x00000fff, /* dst_mask */
7f266840
DJ		 175 FALSE), /* pcrel_offset */
176
177 HOWTO (R_ARM_THM_ABS5, /* type */
178 6, /* rightshift */
179 1, /* size (0 = byte, 1 = short, 2 = long) */
180 5, /* bitsize */
181 FALSE, /* pc_relative */
182 0, /* bitpos */
183 complain_overflow_bitfield,/* complain_on_overflow */
184 bfd_elf_generic_reloc, /* special_function */
185 "R_ARM_THM_ABS5", /* name */
186 FALSE, /* partial_inplace */
187 0x000007e0, /* src_mask */
188 0x000007e0, /* dst_mask */
189 FALSE), /* pcrel_offset */
190
191 /* 8 bit absolute */
192 HOWTO (R_ARM_ABS8, /* type */
193 0, /* rightshift */
194 0, /* size (0 = byte, 1 = short, 2 = long) */
195 8, /* bitsize */
196 FALSE, /* pc_relative */
197 0, /* bitpos */
198 complain_overflow_bitfield,/* complain_on_overflow */
199 bfd_elf_generic_reloc, /* special_function */
200 "R_ARM_ABS8", /* name */
201 FALSE, /* partial_inplace */
202 0x000000ff, /* src_mask */
203 0x000000ff, /* dst_mask */
204 FALSE), /* pcrel_offset */
205
206 HOWTO (R_ARM_SBREL32, /* type */
207 0, /* rightshift */
208 2, /* size (0 = byte, 1 = short, 2 = long) */
209 32, /* bitsize */
210 FALSE, /* pc_relative */
211 0, /* bitpos */
212 complain_overflow_dont,/* complain_on_overflow */
213 bfd_elf_generic_reloc, /* special_function */
214 "R_ARM_SBREL32", /* name */
215 FALSE, /* partial_inplace */
216 0xffffffff, /* src_mask */
217 0xffffffff, /* dst_mask */
218 FALSE), /* pcrel_offset */
219
c19d1205
ZW		 220 /* FIXME: Has two more bits of offset in Thumb32. */
221 HOWTO (R_ARM_THM_CALL, /* type */
7f266840
DJ		 222 1, /* rightshift */
223 2, /* size (0 = byte, 1 = short, 2 = long) */
224 23, /* bitsize */
225 TRUE, /* pc_relative */
226 0, /* bitpos */
227 complain_overflow_signed,/* complain_on_overflow */
228 bfd_elf_generic_reloc, /* special_function */
c19d1205 229 "R_ARM_THM_CALL", /* name */
7f266840
DJ		 230 FALSE, /* partial_inplace */
231 0x07ff07ff, /* src_mask */
232 0x07ff07ff, /* dst_mask */
233 TRUE), /* pcrel_offset */
234
235 HOWTO (R_ARM_THM_PC8, /* type */
236 1, /* rightshift */
237 1, /* size (0 = byte, 1 = short, 2 = long) */
238 8, /* bitsize */
239 TRUE, /* pc_relative */
240 0, /* bitpos */
241 complain_overflow_signed,/* complain_on_overflow */
242 bfd_elf_generic_reloc, /* special_function */
243 "R_ARM_THM_PC8", /* name */
244 FALSE, /* partial_inplace */
245 0x000000ff, /* src_mask */
246 0x000000ff, /* dst_mask */
247 TRUE), /* pcrel_offset */
248
c19d1205 249 HOWTO (R_ARM_BREL_ADJ, /* type */
7f266840
DJ		 250 1, /* rightshift */
251 1, /* size (0 = byte, 1 = short, 2 = long) */
c19d1205
ZW		 252 32, /* bitsize */
253 FALSE, /* pc_relative */
7f266840
DJ		 254 0, /* bitpos */
255 complain_overflow_signed,/* complain_on_overflow */
256 bfd_elf_generic_reloc, /* special_function */
c19d1205 257 "R_ARM_BREL_ADJ", /* name */
7f266840 258 FALSE, /* partial_inplace */
c19d1205
ZW		 259 0xffffffff, /* src_mask */
260 0xffffffff, /* dst_mask */
261 FALSE), /* pcrel_offset */
7f266840
DJ		 262
263 HOWTO (R_ARM_SWI24, /* type */
264 0, /* rightshift */
265 0, /* size (0 = byte, 1 = short, 2 = long) */
266 0, /* bitsize */
267 FALSE, /* pc_relative */
268 0, /* bitpos */
269 complain_overflow_signed,/* complain_on_overflow */
270 bfd_elf_generic_reloc, /* special_function */
271 "R_ARM_SWI24", /* name */
272 FALSE, /* partial_inplace */
273 0x00000000, /* src_mask */
274 0x00000000, /* dst_mask */
275 FALSE), /* pcrel_offset */
276
277 HOWTO (R_ARM_THM_SWI8, /* type */
278 0, /* rightshift */
279 0, /* size (0 = byte, 1 = short, 2 = long) */
280 0, /* bitsize */
281 FALSE, /* pc_relative */
282 0, /* bitpos */
283 complain_overflow_signed,/* complain_on_overflow */
284 bfd_elf_generic_reloc, /* special_function */
285 "R_ARM_SWI8", /* name */
286 FALSE, /* partial_inplace */
287 0x00000000, /* src_mask */
288 0x00000000, /* dst_mask */
289 FALSE), /* pcrel_offset */
290
291 /* BLX instruction for the ARM. */
292 HOWTO (R_ARM_XPC25, /* type */
293 2, /* rightshift */
294 2, /* size (0 = byte, 1 = short, 2 = long) */
295 25, /* bitsize */
296 TRUE, /* pc_relative */
297 0, /* bitpos */
298 complain_overflow_signed,/* complain_on_overflow */
299 bfd_elf_generic_reloc, /* special_function */
300 "R_ARM_XPC25", /* name */
301 FALSE, /* partial_inplace */
302 0x00ffffff, /* src_mask */
303 0x00ffffff, /* dst_mask */
304 TRUE), /* pcrel_offset */
305
306 /* BLX instruction for the Thumb. */
307 HOWTO (R_ARM_THM_XPC22, /* type */
308 2, /* rightshift */
309 2, /* size (0 = byte, 1 = short, 2 = long) */
310 22, /* bitsize */
311 TRUE, /* pc_relative */
312 0, /* bitpos */
313 complain_overflow_signed,/* complain_on_overflow */
314 bfd_elf_generic_reloc, /* special_function */
315 "R_ARM_THM_XPC22", /* name */
316 FALSE, /* partial_inplace */
317 0x07ff07ff, /* src_mask */
318 0x07ff07ff, /* dst_mask */
319 TRUE), /* pcrel_offset */
320
ba93b8ac 321 /* Dynamic TLS relocations. */
7f266840 322
ba93b8ac
DJ		 323 HOWTO (R_ARM_TLS_DTPMOD32, /* type */
324 0, /* rightshift */
325 2, /* size (0 = byte, 1 = short, 2 = long) */
326 32, /* bitsize */
327 FALSE, /* pc_relative */
328 0, /* bitpos */
329 complain_overflow_bitfield,/* complain_on_overflow */
330 bfd_elf_generic_reloc, /* special_function */
331 "R_ARM_TLS_DTPMOD32", /* name */
332 TRUE, /* partial_inplace */
333 0xffffffff, /* src_mask */
334 0xffffffff, /* dst_mask */
335 FALSE), /* pcrel_offset */
7f266840 336
ba93b8ac
DJ		 337 HOWTO (R_ARM_TLS_DTPOFF32, /* type */
338 0, /* rightshift */
339 2, /* size (0 = byte, 1 = short, 2 = long) */
340 32, /* bitsize */
341 FALSE, /* pc_relative */
342 0, /* bitpos */
343 complain_overflow_bitfield,/* complain_on_overflow */
344 bfd_elf_generic_reloc, /* special_function */
345 "R_ARM_TLS_DTPOFF32", /* name */
346 TRUE, /* partial_inplace */
347 0xffffffff, /* src_mask */
348 0xffffffff, /* dst_mask */
349 FALSE), /* pcrel_offset */
7f266840 350
ba93b8ac
DJ		 351 HOWTO (R_ARM_TLS_TPOFF32, /* type */
352 0, /* rightshift */
353 2, /* size (0 = byte, 1 = short, 2 = long) */
354 32, /* bitsize */
355 FALSE, /* pc_relative */
356 0, /* bitpos */
357 complain_overflow_bitfield,/* complain_on_overflow */
358 bfd_elf_generic_reloc, /* special_function */
359 "R_ARM_TLS_TPOFF32", /* name */
360 TRUE, /* partial_inplace */
361 0xffffffff, /* src_mask */
362 0xffffffff, /* dst_mask */
363 FALSE), /* pcrel_offset */
7f266840
DJ		 364
365 /* Relocs used in ARM Linux */
366
367 HOWTO (R_ARM_COPY, /* type */
368 0, /* rightshift */
369 2, /* size (0 = byte, 1 = short, 2 = long) */
370 32, /* bitsize */
371 FALSE, /* pc_relative */
372 0, /* bitpos */
373 complain_overflow_bitfield,/* complain_on_overflow */
374 bfd_elf_generic_reloc, /* special_function */
375 "R_ARM_COPY", /* name */
376 TRUE, /* partial_inplace */
377 0xffffffff, /* src_mask */
378 0xffffffff, /* dst_mask */
379 FALSE), /* pcrel_offset */
380
381 HOWTO (R_ARM_GLOB_DAT, /* type */
382 0, /* rightshift */
383 2, /* size (0 = byte, 1 = short, 2 = long) */
384 32, /* bitsize */
385 FALSE, /* pc_relative */
386 0, /* bitpos */
387 complain_overflow_bitfield,/* complain_on_overflow */
388 bfd_elf_generic_reloc, /* special_function */
389 "R_ARM_GLOB_DAT", /* name */
390 TRUE, /* partial_inplace */
391 0xffffffff, /* src_mask */
392 0xffffffff, /* dst_mask */
393 FALSE), /* pcrel_offset */
394
395 HOWTO (R_ARM_JUMP_SLOT, /* type */
396 0, /* rightshift */
397 2, /* size (0 = byte, 1 = short, 2 = long) */
398 32, /* bitsize */
399 FALSE, /* pc_relative */
400 0, /* bitpos */
401 complain_overflow_bitfield,/* complain_on_overflow */
402 bfd_elf_generic_reloc, /* special_function */
403 "R_ARM_JUMP_SLOT", /* name */
404 TRUE, /* partial_inplace */
405 0xffffffff, /* src_mask */
406 0xffffffff, /* dst_mask */
407 FALSE), /* pcrel_offset */
408
409 HOWTO (R_ARM_RELATIVE, /* type */
410 0, /* rightshift */
411 2, /* size (0 = byte, 1 = short, 2 = long) */
412 32, /* bitsize */
413 FALSE, /* pc_relative */
414 0, /* bitpos */
415 complain_overflow_bitfield,/* complain_on_overflow */
416 bfd_elf_generic_reloc, /* special_function */
417 "R_ARM_RELATIVE", /* name */
418 TRUE, /* partial_inplace */
419 0xffffffff, /* src_mask */
420 0xffffffff, /* dst_mask */
421 FALSE), /* pcrel_offset */
422
c19d1205 423 HOWTO (R_ARM_GOTOFF32, /* type */
7f266840
DJ		 424 0, /* rightshift */
425 2, /* size (0 = byte, 1 = short, 2 = long) */
426 32, /* bitsize */
427 FALSE, /* pc_relative */
428 0, /* bitpos */
429 complain_overflow_bitfield,/* complain_on_overflow */
430 bfd_elf_generic_reloc, /* special_function */
c19d1205 431 "R_ARM_GOTOFF32", /* name */
7f266840
DJ		 432 TRUE, /* partial_inplace */
433 0xffffffff, /* src_mask */
434 0xffffffff, /* dst_mask */
435 FALSE), /* pcrel_offset */
436
437 HOWTO (R_ARM_GOTPC, /* type */
438 0, /* rightshift */
439 2, /* size (0 = byte, 1 = short, 2 = long) */
440 32, /* bitsize */
441 TRUE, /* pc_relative */
442 0, /* bitpos */
443 complain_overflow_bitfield,/* complain_on_overflow */
444 bfd_elf_generic_reloc, /* special_function */
445 "R_ARM_GOTPC", /* name */
446 TRUE, /* partial_inplace */
447 0xffffffff, /* src_mask */
448 0xffffffff, /* dst_mask */
449 TRUE), /* pcrel_offset */
450
451 HOWTO (R_ARM_GOT32, /* type */
452 0, /* rightshift */
453 2, /* size (0 = byte, 1 = short, 2 = long) */
454 32, /* bitsize */
455 FALSE, /* pc_relative */
456 0, /* bitpos */
457 complain_overflow_bitfield,/* complain_on_overflow */
458 bfd_elf_generic_reloc, /* special_function */
459 "R_ARM_GOT32", /* name */
460 TRUE, /* partial_inplace */
461 0xffffffff, /* src_mask */
462 0xffffffff, /* dst_mask */
463 FALSE), /* pcrel_offset */
464
465 HOWTO (R_ARM_PLT32, /* type */
466 2, /* rightshift */
467 2, /* size (0 = byte, 1 = short, 2 = long) */
ce490eda 468 24, /* bitsize */
7f266840
DJ		 469 TRUE, /* pc_relative */
470 0, /* bitpos */
471 complain_overflow_bitfield,/* complain_on_overflow */
472 bfd_elf_generic_reloc, /* special_function */
473 "R_ARM_PLT32", /* name */
ce490eda 474 FALSE, /* partial_inplace */
7f266840
DJ		 475 0x00ffffff, /* src_mask */
476 0x00ffffff, /* dst_mask */
477 TRUE), /* pcrel_offset */
478
479 HOWTO (R_ARM_CALL, /* type */
480 2, /* rightshift */
481 2, /* size (0 = byte, 1 = short, 2 = long) */
482 24, /* bitsize */
483 TRUE, /* pc_relative */
484 0, /* bitpos */
485 complain_overflow_signed,/* complain_on_overflow */
486 bfd_elf_generic_reloc, /* special_function */
487 "R_ARM_CALL", /* name */
488 FALSE, /* partial_inplace */
489 0x00ffffff, /* src_mask */
490 0x00ffffff, /* dst_mask */
491 TRUE), /* pcrel_offset */
492
493 HOWTO (R_ARM_JUMP24, /* type */
494 2, /* rightshift */
495 2, /* size (0 = byte, 1 = short, 2 = long) */
496 24, /* bitsize */
497 TRUE, /* pc_relative */
498 0, /* bitpos */
499 complain_overflow_signed,/* complain_on_overflow */
500 bfd_elf_generic_reloc, /* special_function */
501 "R_ARM_JUMP24", /* name */
502 FALSE, /* partial_inplace */
503 0x00ffffff, /* src_mask */
504 0x00ffffff, /* dst_mask */
505 TRUE), /* pcrel_offset */
506
c19d1205
ZW		 507 HOWTO (R_ARM_THM_JUMP24, /* type */
508 1, /* rightshift */
509 2, /* size (0 = byte, 1 = short, 2 = long) */
510 24, /* bitsize */
511 TRUE, /* pc_relative */
7f266840 512 0, /* bitpos */
c19d1205 513 complain_overflow_signed,/* complain_on_overflow */
7f266840 514 bfd_elf_generic_reloc, /* special_function */
c19d1205 515 "R_ARM_THM_JUMP24", /* name */
7f266840 516 FALSE, /* partial_inplace */
c19d1205
ZW		 517 0x07ff2fff, /* src_mask */
518 0x07ff2fff, /* dst_mask */
519 TRUE), /* pcrel_offset */
7f266840 520
c19d1205 521 HOWTO (R_ARM_BASE_ABS, /* type */
7f266840 522 0, /* rightshift */
c19d1205
ZW		 523 2, /* size (0 = byte, 1 = short, 2 = long) */
524 32, /* bitsize */
7f266840
DJ		 525 FALSE, /* pc_relative */
526 0, /* bitpos */
527 complain_overflow_dont,/* complain_on_overflow */
528 bfd_elf_generic_reloc, /* special_function */
c19d1205 529 "R_ARM_BASE_ABS", /* name */
7f266840 530 FALSE, /* partial_inplace */
c19d1205
ZW		 531 0xffffffff, /* src_mask */
532 0xffffffff, /* dst_mask */
7f266840
DJ		 533 FALSE), /* pcrel_offset */
534
535 HOWTO (R_ARM_ALU_PCREL7_0, /* type */
536 0, /* rightshift */
537 2, /* size (0 = byte, 1 = short, 2 = long) */
538 12, /* bitsize */
539 TRUE, /* pc_relative */
540 0, /* bitpos */
541 complain_overflow_dont,/* complain_on_overflow */
542 bfd_elf_generic_reloc, /* special_function */
543 "R_ARM_ALU_PCREL_7_0", /* name */
544 FALSE, /* partial_inplace */
545 0x00000fff, /* src_mask */
546 0x00000fff, /* dst_mask */
547 TRUE), /* pcrel_offset */
548
549 HOWTO (R_ARM_ALU_PCREL15_8, /* type */
550 0, /* rightshift */
551 2, /* size (0 = byte, 1 = short, 2 = long) */
552 12, /* bitsize */
553 TRUE, /* pc_relative */
554 8, /* bitpos */
555 complain_overflow_dont,/* complain_on_overflow */
556 bfd_elf_generic_reloc, /* special_function */
557 "R_ARM_ALU_PCREL_15_8",/* name */
558 FALSE, /* partial_inplace */
559 0x00000fff, /* src_mask */
560 0x00000fff, /* dst_mask */
561 TRUE), /* pcrel_offset */
562
563 HOWTO (R_ARM_ALU_PCREL23_15, /* type */
564 0, /* rightshift */
565 2, /* size (0 = byte, 1 = short, 2 = long) */
566 12, /* bitsize */
567 TRUE, /* pc_relative */
568 16, /* bitpos */
569 complain_overflow_dont,/* complain_on_overflow */
570 bfd_elf_generic_reloc, /* special_function */
571 "R_ARM_ALU_PCREL_23_15",/* name */
572 FALSE, /* partial_inplace */
573 0x00000fff, /* src_mask */
574 0x00000fff, /* dst_mask */
575 TRUE), /* pcrel_offset */
576
577 HOWTO (R_ARM_LDR_SBREL_11_0, /* type */
578 0, /* rightshift */
579 2, /* size (0 = byte, 1 = short, 2 = long) */
580 12, /* bitsize */
581 FALSE, /* pc_relative */
582 0, /* bitpos */
583 complain_overflow_dont,/* complain_on_overflow */
584 bfd_elf_generic_reloc, /* special_function */
585 "R_ARM_LDR_SBREL_11_0",/* name */
586 FALSE, /* partial_inplace */
587 0x00000fff, /* src_mask */
588 0x00000fff, /* dst_mask */
589 FALSE), /* pcrel_offset */
590
591 HOWTO (R_ARM_ALU_SBREL_19_12, /* type */
592 0, /* rightshift */
593 2, /* size (0 = byte, 1 = short, 2 = long) */
594 8, /* bitsize */
595 FALSE, /* pc_relative */
596 12, /* bitpos */
597 complain_overflow_dont,/* complain_on_overflow */
598 bfd_elf_generic_reloc, /* special_function */
599 "R_ARM_ALU_SBREL_19_12",/* name */
600 FALSE, /* partial_inplace */
601 0x000ff000, /* src_mask */
602 0x000ff000, /* dst_mask */
603 FALSE), /* pcrel_offset */
604
605 HOWTO (R_ARM_ALU_SBREL_27_20, /* type */
606 0, /* rightshift */
607 2, /* size (0 = byte, 1 = short, 2 = long) */
608 8, /* bitsize */
609 FALSE, /* pc_relative */
610 20, /* bitpos */
611 complain_overflow_dont,/* complain_on_overflow */
612 bfd_elf_generic_reloc, /* special_function */
613 "R_ARM_ALU_SBREL_27_20",/* name */
614 FALSE, /* partial_inplace */
615 0x0ff00000, /* src_mask */
616 0x0ff00000, /* dst_mask */
617 FALSE), /* pcrel_offset */
618
619 HOWTO (R_ARM_TARGET1, /* type */
620 0, /* rightshift */
621 2, /* size (0 = byte, 1 = short, 2 = long) */
622 32, /* bitsize */
623 FALSE, /* pc_relative */
624 0, /* bitpos */
625 complain_overflow_dont,/* complain_on_overflow */
626 bfd_elf_generic_reloc, /* special_function */
627 "R_ARM_TARGET1", /* name */
628 FALSE, /* partial_inplace */
629 0xffffffff, /* src_mask */
630 0xffffffff, /* dst_mask */
631 FALSE), /* pcrel_offset */
632
633 HOWTO (R_ARM_ROSEGREL32, /* type */
634 0, /* rightshift */
635 2, /* size (0 = byte, 1 = short, 2 = long) */
636 32, /* bitsize */
637 FALSE, /* pc_relative */
638 0, /* bitpos */
639 complain_overflow_dont,/* complain_on_overflow */
640 bfd_elf_generic_reloc, /* special_function */
641 "R_ARM_ROSEGREL32", /* name */
642 FALSE, /* partial_inplace */
643 0xffffffff, /* src_mask */
644 0xffffffff, /* dst_mask */
645 FALSE), /* pcrel_offset */
646
647 HOWTO (R_ARM_V4BX, /* type */
648 0, /* rightshift */
649 2, /* size (0 = byte, 1 = short, 2 = long) */
650 32, /* bitsize */
651 FALSE, /* pc_relative */
652 0, /* bitpos */
653 complain_overflow_dont,/* complain_on_overflow */
654 bfd_elf_generic_reloc, /* special_function */
655 "R_ARM_V4BX", /* name */
656 FALSE, /* partial_inplace */
657 0xffffffff, /* src_mask */
658 0xffffffff, /* dst_mask */
659 FALSE), /* pcrel_offset */
660
661 HOWTO (R_ARM_TARGET2, /* type */
662 0, /* rightshift */
663 2, /* size (0 = byte, 1 = short, 2 = long) */
664 32, /* bitsize */
665 FALSE, /* pc_relative */
666 0, /* bitpos */
667 complain_overflow_signed,/* complain_on_overflow */
668 bfd_elf_generic_reloc, /* special_function */
669 "R_ARM_TARGET2", /* name */
670 FALSE, /* partial_inplace */
671 0xffffffff, /* src_mask */
672 0xffffffff, /* dst_mask */
673 TRUE), /* pcrel_offset */
674
675 HOWTO (R_ARM_PREL31, /* type */
676 0, /* rightshift */
677 2, /* size (0 = byte, 1 = short, 2 = long) */
678 31, /* bitsize */
679 TRUE, /* pc_relative */
680 0, /* bitpos */
681 complain_overflow_signed,/* complain_on_overflow */
682 bfd_elf_generic_reloc, /* special_function */
683 "R_ARM_PREL31", /* name */
684 FALSE, /* partial_inplace */
685 0x7fffffff, /* src_mask */
686 0x7fffffff, /* dst_mask */
687 TRUE), /* pcrel_offset */
c19d1205
ZW		 688
689 HOWTO (R_ARM_MOVW_ABS_NC, /* type */
690 0, /* rightshift */
691 2, /* size (0 = byte, 1 = short, 2 = long) */
692 16, /* bitsize */
693 FALSE, /* pc_relative */
694 0, /* bitpos */
695 complain_overflow_dont,/* complain_on_overflow */
696 bfd_elf_generic_reloc, /* special_function */
697 "R_ARM_MOVW_ABS_NC", /* name */
698 FALSE, /* partial_inplace */
699 0x0000ffff, /* src_mask */
700 0x0000ffff, /* dst_mask */
701 FALSE), /* pcrel_offset */
702
703 HOWTO (R_ARM_MOVT_ABS, /* type */
704 0, /* rightshift */
705 2, /* size (0 = byte, 1 = short, 2 = long) */
706 16, /* bitsize */
707 FALSE, /* pc_relative */
708 0, /* bitpos */
709 complain_overflow_bitfield,/* complain_on_overflow */
710 bfd_elf_generic_reloc, /* special_function */
711 "R_ARM_MOVT_ABS", /* name */
712 FALSE, /* partial_inplace */
713 0x0000ffff, /* src_mask */
714 0x0000ffff, /* dst_mask */
715 FALSE), /* pcrel_offset */
716
717 HOWTO (R_ARM_MOVW_PREL_NC, /* type */
718 0, /* rightshift */
719 2, /* size (0 = byte, 1 = short, 2 = long) */
720 16, /* bitsize */
721 TRUE, /* pc_relative */
722 0, /* bitpos */
723 complain_overflow_dont,/* complain_on_overflow */
724 bfd_elf_generic_reloc, /* special_function */
725 "R_ARM_MOVW_PREL_NC", /* name */
726 FALSE, /* partial_inplace */
727 0x0000ffff, /* src_mask */
728 0x0000ffff, /* dst_mask */
729 TRUE), /* pcrel_offset */
730
731 HOWTO (R_ARM_MOVT_PREL, /* type */
732 0, /* rightshift */
733 2, /* size (0 = byte, 1 = short, 2 = long) */
734 16, /* bitsize */
735 TRUE, /* pc_relative */
736 0, /* bitpos */
737 complain_overflow_bitfield,/* complain_on_overflow */
738 bfd_elf_generic_reloc, /* special_function */
739 "R_ARM_MOVT_PREL", /* name */
740 FALSE, /* partial_inplace */
741 0x0000ffff, /* src_mask */
742 0x0000ffff, /* dst_mask */
743 TRUE), /* pcrel_offset */
744
745 HOWTO (R_ARM_THM_MOVW_ABS_NC, /* type */
746 0, /* rightshift */
747 2, /* size (0 = byte, 1 = short, 2 = long) */
748 16, /* bitsize */
749 FALSE, /* pc_relative */
750 0, /* bitpos */
751 complain_overflow_dont,/* complain_on_overflow */
752 bfd_elf_generic_reloc, /* special_function */
753 "R_ARM_THM_MOVW_ABS_NC",/* name */
754 FALSE, /* partial_inplace */
755 0x040f70ff, /* src_mask */
756 0x040f70ff, /* dst_mask */
757 FALSE), /* pcrel_offset */
758
759 HOWTO (R_ARM_THM_MOVT_ABS, /* type */
760 0, /* rightshift */
761 2, /* size (0 = byte, 1 = short, 2 = long) */
762 16, /* bitsize */
763 FALSE, /* pc_relative */
764 0, /* bitpos */
765 complain_overflow_bitfield,/* complain_on_overflow */
766 bfd_elf_generic_reloc, /* special_function */
767 "R_ARM_THM_MOVT_ABS", /* name */
768 FALSE, /* partial_inplace */
769 0x040f70ff, /* src_mask */
770 0x040f70ff, /* dst_mask */
771 FALSE), /* pcrel_offset */
772
773 HOWTO (R_ARM_THM_MOVW_PREL_NC,/* type */
774 0, /* rightshift */
775 2, /* size (0 = byte, 1 = short, 2 = long) */
776 16, /* bitsize */
777 TRUE, /* pc_relative */
778 0, /* bitpos */
779 complain_overflow_dont,/* complain_on_overflow */
780 bfd_elf_generic_reloc, /* special_function */
781 "R_ARM_THM_MOVW_PREL_NC",/* name */
782 FALSE, /* partial_inplace */
783 0x040f70ff, /* src_mask */
784 0x040f70ff, /* dst_mask */
785 TRUE), /* pcrel_offset */
786
787 HOWTO (R_ARM_THM_MOVT_PREL, /* type */
788 0, /* rightshift */
789 2, /* size (0 = byte, 1 = short, 2 = long) */
790 16, /* bitsize */
791 TRUE, /* pc_relative */
792 0, /* bitpos */
793 complain_overflow_bitfield,/* complain_on_overflow */
794 bfd_elf_generic_reloc, /* special_function */
795 "R_ARM_THM_MOVT_PREL", /* name */
796 FALSE, /* partial_inplace */
797 0x040f70ff, /* src_mask */
798 0x040f70ff, /* dst_mask */
799 TRUE), /* pcrel_offset */
800
801 HOWTO (R_ARM_THM_JUMP19, /* type */
802 1, /* rightshift */
803 2, /* size (0 = byte, 1 = short, 2 = long) */
804 19, /* bitsize */
805 TRUE, /* pc_relative */
806 0, /* bitpos */
807 complain_overflow_signed,/* complain_on_overflow */
808 bfd_elf_generic_reloc, /* special_function */
809 "R_ARM_THM_JUMP19", /* name */
810 FALSE, /* partial_inplace */
811 0x043f2fff, /* src_mask */
812 0x043f2fff, /* dst_mask */
813 TRUE), /* pcrel_offset */
814
815 HOWTO (R_ARM_THM_JUMP6, /* type */
816 1, /* rightshift */
817 1, /* size (0 = byte, 1 = short, 2 = long) */
818 6, /* bitsize */
819 TRUE, /* pc_relative */
820 0, /* bitpos */
821 complain_overflow_unsigned,/* complain_on_overflow */
822 bfd_elf_generic_reloc, /* special_function */
823 "R_ARM_THM_JUMP6", /* name */
824 FALSE, /* partial_inplace */
825 0x02f8, /* src_mask */
826 0x02f8, /* dst_mask */
827 TRUE), /* pcrel_offset */
828
829 /* These are declared as 13-bit signed relocations because we can
830 address -4095 .. 4095(base) by altering ADDW to SUBW or vice
831 versa. */
832 HOWTO (R_ARM_THM_ALU_PREL_11_0,/* type */
833 0, /* rightshift */
834 2, /* size (0 = byte, 1 = short, 2 = long) */
835 13, /* bitsize */
836 TRUE, /* pc_relative */
837 0, /* bitpos */
838 complain_overflow_signed,/* complain_on_overflow */
839 bfd_elf_generic_reloc, /* special_function */
840 "R_ARM_THM_ALU_PREL_11_0",/* name */
841 FALSE, /* partial_inplace */
842 0x040070ff, /* src_mask */
843 0x040070ff, /* dst_mask */
844 TRUE), /* pcrel_offset */
845
846 HOWTO (R_ARM_THM_PC12, /* type */
847 0, /* rightshift */
848 2, /* size (0 = byte, 1 = short, 2 = long) */
849 13, /* bitsize */
850 TRUE, /* pc_relative */
851 0, /* bitpos */
852 complain_overflow_signed,/* complain_on_overflow */
853 bfd_elf_generic_reloc, /* special_function */
854 "R_ARM_THM_PC12", /* name */
855 FALSE, /* partial_inplace */
856 0x040070ff, /* src_mask */
857 0x040070ff, /* dst_mask */
858 TRUE), /* pcrel_offset */
859
860 HOWTO (R_ARM_ABS32_NOI, /* type */
861 0, /* rightshift */
862 2, /* size (0 = byte, 1 = short, 2 = long) */
863 32, /* bitsize */
864 FALSE, /* pc_relative */
865 0, /* bitpos */
866 complain_overflow_dont,/* complain_on_overflow */
867 bfd_elf_generic_reloc, /* special_function */
868 "R_ARM_ABS32_NOI", /* name */
869 FALSE, /* partial_inplace */
870 0xffffffff, /* src_mask */
871 0xffffffff, /* dst_mask */
872 FALSE), /* pcrel_offset */
873
874 HOWTO (R_ARM_REL32_NOI, /* type */
875 0, /* rightshift */
876 2, /* size (0 = byte, 1 = short, 2 = long) */
877 32, /* bitsize */
878 TRUE, /* pc_relative */
879 0, /* bitpos */
880 complain_overflow_dont,/* complain_on_overflow */
881 bfd_elf_generic_reloc, /* special_function */
882 "R_ARM_REL32_NOI", /* name */
883 FALSE, /* partial_inplace */
884 0xffffffff, /* src_mask */
885 0xffffffff, /* dst_mask */
886 FALSE), /* pcrel_offset */
7f266840 887
4962c51a
MS		 888 /* Group relocations. */
889
890 HOWTO (R_ARM_ALU_PC_G0_NC, /* type */
891 0, /* rightshift */
892 2, /* size (0 = byte, 1 = short, 2 = long) */
893 32, /* bitsize */
894 TRUE, /* pc_relative */
895 0, /* bitpos */
896 complain_overflow_dont,/* complain_on_overflow */
897 bfd_elf_generic_reloc, /* special_function */
898 "R_ARM_ALU_PC_G0_NC", /* name */
899 FALSE, /* partial_inplace */
900 0xffffffff, /* src_mask */
901 0xffffffff, /* dst_mask */
902 TRUE), /* pcrel_offset */
903
904 HOWTO (R_ARM_ALU_PC_G0, /* type */
905 0, /* rightshift */
906 2, /* size (0 = byte, 1 = short, 2 = long) */
907 32, /* bitsize */
908 TRUE, /* pc_relative */
909 0, /* bitpos */
910 complain_overflow_dont,/* complain_on_overflow */
911 bfd_elf_generic_reloc, /* special_function */
912 "R_ARM_ALU_PC_G0", /* name */
913 FALSE, /* partial_inplace */
914 0xffffffff, /* src_mask */
915 0xffffffff, /* dst_mask */
916 TRUE), /* pcrel_offset */
917
918 HOWTO (R_ARM_ALU_PC_G1_NC, /* type */
919 0, /* rightshift */
920 2, /* size (0 = byte, 1 = short, 2 = long) */
921 32, /* bitsize */
922 TRUE, /* pc_relative */
923 0, /* bitpos */
924 complain_overflow_dont,/* complain_on_overflow */
925 bfd_elf_generic_reloc, /* special_function */
926 "R_ARM_ALU_PC_G1_NC", /* name */
927 FALSE, /* partial_inplace */
928 0xffffffff, /* src_mask */
929 0xffffffff, /* dst_mask */
930 TRUE), /* pcrel_offset */
931
932 HOWTO (R_ARM_ALU_PC_G1, /* type */
933 0, /* rightshift */
934 2, /* size (0 = byte, 1 = short, 2 = long) */
935 32, /* bitsize */
936 TRUE, /* pc_relative */
937 0, /* bitpos */
938 complain_overflow_dont,/* complain_on_overflow */
939 bfd_elf_generic_reloc, /* special_function */
940 "R_ARM_ALU_PC_G1", /* name */
941 FALSE, /* partial_inplace */
942 0xffffffff, /* src_mask */
943 0xffffffff, /* dst_mask */
944 TRUE), /* pcrel_offset */
945
946 HOWTO (R_ARM_ALU_PC_G2, /* type */
947 0, /* rightshift */
948 2, /* size (0 = byte, 1 = short, 2 = long) */
949 32, /* bitsize */
950 TRUE, /* pc_relative */
951 0, /* bitpos */
952 complain_overflow_dont,/* complain_on_overflow */
953 bfd_elf_generic_reloc, /* special_function */
954 "R_ARM_ALU_PC_G2", /* name */
955 FALSE, /* partial_inplace */
956 0xffffffff, /* src_mask */
957 0xffffffff, /* dst_mask */
958 TRUE), /* pcrel_offset */
959
960 HOWTO (R_ARM_LDR_PC_G1, /* type */
961 0, /* rightshift */
962 2, /* size (0 = byte, 1 = short, 2 = long) */
963 32, /* bitsize */
964 TRUE, /* pc_relative */
965 0, /* bitpos */
966 complain_overflow_dont,/* complain_on_overflow */
967 bfd_elf_generic_reloc, /* special_function */
968 "R_ARM_LDR_PC_G1", /* name */
969 FALSE, /* partial_inplace */
970 0xffffffff, /* src_mask */
971 0xffffffff, /* dst_mask */
972 TRUE), /* pcrel_offset */
973
974 HOWTO (R_ARM_LDR_PC_G2, /* type */
975 0, /* rightshift */
976 2, /* size (0 = byte, 1 = short, 2 = long) */
977 32, /* bitsize */
978 TRUE, /* pc_relative */
979 0, /* bitpos */
980 complain_overflow_dont,/* complain_on_overflow */
981 bfd_elf_generic_reloc, /* special_function */
982 "R_ARM_LDR_PC_G2", /* name */
983 FALSE, /* partial_inplace */
984 0xffffffff, /* src_mask */
985 0xffffffff, /* dst_mask */
986 TRUE), /* pcrel_offset */
987
988 HOWTO (R_ARM_LDRS_PC_G0, /* type */
989 0, /* rightshift */
990 2, /* size (0 = byte, 1 = short, 2 = long) */
991 32, /* bitsize */
992 TRUE, /* pc_relative */
993 0, /* bitpos */
994 complain_overflow_dont,/* complain_on_overflow */
995 bfd_elf_generic_reloc, /* special_function */
996 "R_ARM_LDRS_PC_G0", /* name */
997 FALSE, /* partial_inplace */
998 0xffffffff, /* src_mask */
999 0xffffffff, /* dst_mask */
1000 TRUE), /* pcrel_offset */
1001
1002 HOWTO (R_ARM_LDRS_PC_G1, /* type */
1003 0, /* rightshift */
1004 2, /* size (0 = byte, 1 = short, 2 = long) */
1005 32, /* bitsize */
1006 TRUE, /* pc_relative */
1007 0, /* bitpos */
1008 complain_overflow_dont,/* complain_on_overflow */
1009 bfd_elf_generic_reloc, /* special_function */
1010 "R_ARM_LDRS_PC_G1", /* name */
1011 FALSE, /* partial_inplace */
1012 0xffffffff, /* src_mask */
1013 0xffffffff, /* dst_mask */
1014 TRUE), /* pcrel_offset */
1015
1016 HOWTO (R_ARM_LDRS_PC_G2, /* type */
1017 0, /* rightshift */
1018 2, /* size (0 = byte, 1 = short, 2 = long) */
1019 32, /* bitsize */
1020 TRUE, /* pc_relative */
1021 0, /* bitpos */
1022 complain_overflow_dont,/* complain_on_overflow */
1023 bfd_elf_generic_reloc, /* special_function */
1024 "R_ARM_LDRS_PC_G2", /* name */
1025 FALSE, /* partial_inplace */
1026 0xffffffff, /* src_mask */
1027 0xffffffff, /* dst_mask */
1028 TRUE), /* pcrel_offset */
1029
1030 HOWTO (R_ARM_LDC_PC_G0, /* type */
1031 0, /* rightshift */
1032 2, /* size (0 = byte, 1 = short, 2 = long) */
1033 32, /* bitsize */
1034 TRUE, /* pc_relative */
1035 0, /* bitpos */
1036 complain_overflow_dont,/* complain_on_overflow */
1037 bfd_elf_generic_reloc, /* special_function */
1038 "R_ARM_LDC_PC_G0", /* name */
1039 FALSE, /* partial_inplace */
1040 0xffffffff, /* src_mask */
1041 0xffffffff, /* dst_mask */
1042 TRUE), /* pcrel_offset */
1043
1044 HOWTO (R_ARM_LDC_PC_G1, /* type */
1045 0, /* rightshift */
1046 2, /* size (0 = byte, 1 = short, 2 = long) */
1047 32, /* bitsize */
1048 TRUE, /* pc_relative */
1049 0, /* bitpos */
1050 complain_overflow_dont,/* complain_on_overflow */
1051 bfd_elf_generic_reloc, /* special_function */
1052 "R_ARM_LDC_PC_G1", /* name */
1053 FALSE, /* partial_inplace */
1054 0xffffffff, /* src_mask */
1055 0xffffffff, /* dst_mask */
1056 TRUE), /* pcrel_offset */
1057
1058 HOWTO (R_ARM_LDC_PC_G2, /* type */
1059 0, /* rightshift */
1060 2, /* size (0 = byte, 1 = short, 2 = long) */
1061 32, /* bitsize */
1062 TRUE, /* pc_relative */
1063 0, /* bitpos */
1064 complain_overflow_dont,/* complain_on_overflow */
1065 bfd_elf_generic_reloc, /* special_function */
1066 "R_ARM_LDC_PC_G2", /* name */
1067 FALSE, /* partial_inplace */
1068 0xffffffff, /* src_mask */
1069 0xffffffff, /* dst_mask */
1070 TRUE), /* pcrel_offset */
1071
1072 HOWTO (R_ARM_ALU_SB_G0_NC, /* type */
1073 0, /* rightshift */
1074 2, /* size (0 = byte, 1 = short, 2 = long) */
1075 32, /* bitsize */
1076 TRUE, /* pc_relative */
1077 0, /* bitpos */
1078 complain_overflow_dont,/* complain_on_overflow */
1079 bfd_elf_generic_reloc, /* special_function */
1080 "R_ARM_ALU_SB_G0_NC", /* name */
1081 FALSE, /* partial_inplace */
1082 0xffffffff, /* src_mask */
1083 0xffffffff, /* dst_mask */
1084 TRUE), /* pcrel_offset */
1085
1086 HOWTO (R_ARM_ALU_SB_G0, /* type */
1087 0, /* rightshift */
1088 2, /* size (0 = byte, 1 = short, 2 = long) */
1089 32, /* bitsize */
1090 TRUE, /* pc_relative */
1091 0, /* bitpos */
1092 complain_overflow_dont,/* complain_on_overflow */
1093 bfd_elf_generic_reloc, /* special_function */
1094 "R_ARM_ALU_SB_G0", /* name */
1095 FALSE, /* partial_inplace */
1096 0xffffffff, /* src_mask */
1097 0xffffffff, /* dst_mask */
1098 TRUE), /* pcrel_offset */
1099
1100 HOWTO (R_ARM_ALU_SB_G1_NC, /* type */
1101 0, /* rightshift */
1102 2, /* size (0 = byte, 1 = short, 2 = long) */
1103 32, /* bitsize */
1104 TRUE, /* pc_relative */
1105 0, /* bitpos */
1106 complain_overflow_dont,/* complain_on_overflow */
1107 bfd_elf_generic_reloc, /* special_function */
1108 "R_ARM_ALU_SB_G1_NC", /* name */
1109 FALSE, /* partial_inplace */
1110 0xffffffff, /* src_mask */
1111 0xffffffff, /* dst_mask */
1112 TRUE), /* pcrel_offset */
1113
1114 HOWTO (R_ARM_ALU_SB_G1, /* type */
1115 0, /* rightshift */
1116 2, /* size (0 = byte, 1 = short, 2 = long) */
1117 32, /* bitsize */
1118 TRUE, /* pc_relative */
1119 0, /* bitpos */
1120 complain_overflow_dont,/* complain_on_overflow */
1121 bfd_elf_generic_reloc, /* special_function */
1122 "R_ARM_ALU_SB_G1", /* name */
1123 FALSE, /* partial_inplace */
1124 0xffffffff, /* src_mask */
1125 0xffffffff, /* dst_mask */
1126 TRUE), /* pcrel_offset */
1127
1128 HOWTO (R_ARM_ALU_SB_G2, /* type */
1129 0, /* rightshift */
1130 2, /* size (0 = byte, 1 = short, 2 = long) */
1131 32, /* bitsize */
1132 TRUE, /* pc_relative */
1133 0, /* bitpos */
1134 complain_overflow_dont,/* complain_on_overflow */
1135 bfd_elf_generic_reloc, /* special_function */
1136 "R_ARM_ALU_SB_G2", /* name */
1137 FALSE, /* partial_inplace */
1138 0xffffffff, /* src_mask */
1139 0xffffffff, /* dst_mask */
1140 TRUE), /* pcrel_offset */
1141
1142 HOWTO (R_ARM_LDR_SB_G0, /* type */
1143 0, /* rightshift */
1144 2, /* size (0 = byte, 1 = short, 2 = long) */
1145 32, /* bitsize */
1146 TRUE, /* pc_relative */
1147 0, /* bitpos */
1148 complain_overflow_dont,/* complain_on_overflow */
1149 bfd_elf_generic_reloc, /* special_function */
1150 "R_ARM_LDR_SB_G0", /* name */
1151 FALSE, /* partial_inplace */
1152 0xffffffff, /* src_mask */
1153 0xffffffff, /* dst_mask */
1154 TRUE), /* pcrel_offset */
1155
1156 HOWTO (R_ARM_LDR_SB_G1, /* type */
1157 0, /* rightshift */
1158 2, /* size (0 = byte, 1 = short, 2 = long) */
1159 32, /* bitsize */
1160 TRUE, /* pc_relative */
1161 0, /* bitpos */
1162 complain_overflow_dont,/* complain_on_overflow */
1163 bfd_elf_generic_reloc, /* special_function */
1164 "R_ARM_LDR_SB_G1", /* name */
1165 FALSE, /* partial_inplace */
1166 0xffffffff, /* src_mask */
1167 0xffffffff, /* dst_mask */
1168 TRUE), /* pcrel_offset */
1169
1170 HOWTO (R_ARM_LDR_SB_G2, /* type */
1171 0, /* rightshift */
1172 2, /* size (0 = byte, 1 = short, 2 = long) */
1173 32, /* bitsize */
1174 TRUE, /* pc_relative */
1175 0, /* bitpos */
1176 complain_overflow_dont,/* complain_on_overflow */
1177 bfd_elf_generic_reloc, /* special_function */
1178 "R_ARM_LDR_SB_G2", /* name */
1179 FALSE, /* partial_inplace */
1180 0xffffffff, /* src_mask */
1181 0xffffffff, /* dst_mask */
1182 TRUE), /* pcrel_offset */
1183
1184 HOWTO (R_ARM_LDRS_SB_G0, /* type */
1185 0, /* rightshift */
1186 2, /* size (0 = byte, 1 = short, 2 = long) */
1187 32, /* bitsize */
1188 TRUE, /* pc_relative */
1189 0, /* bitpos */
1190 complain_overflow_dont,/* complain_on_overflow */
1191 bfd_elf_generic_reloc, /* special_function */
1192 "R_ARM_LDRS_SB_G0", /* name */
1193 FALSE, /* partial_inplace */
1194 0xffffffff, /* src_mask */
1195 0xffffffff, /* dst_mask */
1196 TRUE), /* pcrel_offset */
1197
1198 HOWTO (R_ARM_LDRS_SB_G1, /* type */
1199 0, /* rightshift */
1200 2, /* size (0 = byte, 1 = short, 2 = long) */
1201 32, /* bitsize */
1202 TRUE, /* pc_relative */
1203 0, /* bitpos */
1204 complain_overflow_dont,/* complain_on_overflow */
1205 bfd_elf_generic_reloc, /* special_function */
1206 "R_ARM_LDRS_SB_G1", /* name */
1207 FALSE, /* partial_inplace */
1208 0xffffffff, /* src_mask */
1209 0xffffffff, /* dst_mask */
1210 TRUE), /* pcrel_offset */
1211
1212 HOWTO (R_ARM_LDRS_SB_G2, /* type */
1213 0, /* rightshift */
1214 2, /* size (0 = byte, 1 = short, 2 = long) */
1215 32, /* bitsize */
1216 TRUE, /* pc_relative */
1217 0, /* bitpos */
1218 complain_overflow_dont,/* complain_on_overflow */
1219 bfd_elf_generic_reloc, /* special_function */
1220 "R_ARM_LDRS_SB_G2", /* name */
1221 FALSE, /* partial_inplace */
1222 0xffffffff, /* src_mask */
1223 0xffffffff, /* dst_mask */
1224 TRUE), /* pcrel_offset */
1225
1226 HOWTO (R_ARM_LDC_SB_G0, /* type */
1227 0, /* rightshift */
1228 2, /* size (0 = byte, 1 = short, 2 = long) */
1229 32, /* bitsize */
1230 TRUE, /* pc_relative */
1231 0, /* bitpos */
1232 complain_overflow_dont,/* complain_on_overflow */
1233 bfd_elf_generic_reloc, /* special_function */
1234 "R_ARM_LDC_SB_G0", /* name */
1235 FALSE, /* partial_inplace */
1236 0xffffffff, /* src_mask */
1237 0xffffffff, /* dst_mask */
1238 TRUE), /* pcrel_offset */
1239
1240 HOWTO (R_ARM_LDC_SB_G1, /* type */
1241 0, /* rightshift */
1242 2, /* size (0 = byte, 1 = short, 2 = long) */
1243 32, /* bitsize */
1244 TRUE, /* pc_relative */
1245 0, /* bitpos */
1246 complain_overflow_dont,/* complain_on_overflow */
1247 bfd_elf_generic_reloc, /* special_function */
1248 "R_ARM_LDC_SB_G1", /* name */
1249 FALSE, /* partial_inplace */
1250 0xffffffff, /* src_mask */
1251 0xffffffff, /* dst_mask */
1252 TRUE), /* pcrel_offset */
1253
1254 HOWTO (R_ARM_LDC_SB_G2, /* type */
1255 0, /* rightshift */
1256 2, /* size (0 = byte, 1 = short, 2 = long) */
1257 32, /* bitsize */
1258 TRUE, /* pc_relative */
1259 0, /* bitpos */
1260 complain_overflow_dont,/* complain_on_overflow */
1261 bfd_elf_generic_reloc, /* special_function */
1262 "R_ARM_LDC_SB_G2", /* name */
1263 FALSE, /* partial_inplace */
1264 0xffffffff, /* src_mask */
1265 0xffffffff, /* dst_mask */
1266 TRUE), /* pcrel_offset */
1267
1268 /* End of group relocations. */
c19d1205 1269
c19d1205
ZW		 1270 HOWTO (R_ARM_MOVW_BREL_NC, /* type */
1271 0, /* rightshift */
1272 2, /* size (0 = byte, 1 = short, 2 = long) */
1273 16, /* bitsize */
1274 FALSE, /* pc_relative */
1275 0, /* bitpos */
1276 complain_overflow_dont,/* complain_on_overflow */
1277 bfd_elf_generic_reloc, /* special_function */
1278 "R_ARM_MOVW_BREL_NC", /* name */
1279 FALSE, /* partial_inplace */
1280 0x0000ffff, /* src_mask */
1281 0x0000ffff, /* dst_mask */
1282 FALSE), /* pcrel_offset */
1283
1284 HOWTO (R_ARM_MOVT_BREL, /* type */
1285 0, /* rightshift */
1286 2, /* size (0 = byte, 1 = short, 2 = long) */
1287 16, /* bitsize */
1288 FALSE, /* pc_relative */
1289 0, /* bitpos */
1290 complain_overflow_bitfield,/* complain_on_overflow */
1291 bfd_elf_generic_reloc, /* special_function */
1292 "R_ARM_MOVT_BREL", /* name */
1293 FALSE, /* partial_inplace */
1294 0x0000ffff, /* src_mask */
1295 0x0000ffff, /* dst_mask */
1296 FALSE), /* pcrel_offset */
1297
1298 HOWTO (R_ARM_MOVW_BREL, /* type */
1299 0, /* rightshift */
1300 2, /* size (0 = byte, 1 = short, 2 = long) */
1301 16, /* bitsize */
1302 FALSE, /* pc_relative */
1303 0, /* bitpos */
1304 complain_overflow_dont,/* complain_on_overflow */
1305 bfd_elf_generic_reloc, /* special_function */
1306 "R_ARM_MOVW_BREL", /* name */
1307 FALSE, /* partial_inplace */
1308 0x0000ffff, /* src_mask */
1309 0x0000ffff, /* dst_mask */
1310 FALSE), /* pcrel_offset */
1311
1312 HOWTO (R_ARM_THM_MOVW_BREL_NC,/* type */
1313 0, /* rightshift */
1314 2, /* size (0 = byte, 1 = short, 2 = long) */
1315 16, /* bitsize */
1316 FALSE, /* pc_relative */
1317 0, /* bitpos */
1318 complain_overflow_dont,/* complain_on_overflow */
1319 bfd_elf_generic_reloc, /* special_function */
1320 "R_ARM_THM_MOVW_BREL_NC",/* name */
1321 FALSE, /* partial_inplace */
1322 0x040f70ff, /* src_mask */
1323 0x040f70ff, /* dst_mask */
1324 FALSE), /* pcrel_offset */
1325
1326 HOWTO (R_ARM_THM_MOVT_BREL, /* type */
1327 0, /* rightshift */
1328 2, /* size (0 = byte, 1 = short, 2 = long) */
1329 16, /* bitsize */
1330 FALSE, /* pc_relative */
1331 0, /* bitpos */
1332 complain_overflow_bitfield,/* complain_on_overflow */
1333 bfd_elf_generic_reloc, /* special_function */
1334 "R_ARM_THM_MOVT_BREL", /* name */
1335 FALSE, /* partial_inplace */
1336 0x040f70ff, /* src_mask */
1337 0x040f70ff, /* dst_mask */
1338 FALSE), /* pcrel_offset */
1339
1340 HOWTO (R_ARM_THM_MOVW_BREL, /* type */
1341 0, /* rightshift */
1342 2, /* size (0 = byte, 1 = short, 2 = long) */
1343 16, /* bitsize */
1344 FALSE, /* pc_relative */
1345 0, /* bitpos */
1346 complain_overflow_dont,/* complain_on_overflow */
1347 bfd_elf_generic_reloc, /* special_function */
1348 "R_ARM_THM_MOVW_BREL", /* name */
1349 FALSE, /* partial_inplace */
1350 0x040f70ff, /* src_mask */
1351 0x040f70ff, /* dst_mask */
1352 FALSE), /* pcrel_offset */
1353
1354 EMPTY_HOWTO (90), /* unallocated */
1355 EMPTY_HOWTO (91),
1356 EMPTY_HOWTO (92),
1357 EMPTY_HOWTO (93),
1358
1359 HOWTO (R_ARM_PLT32_ABS, /* type */
1360 0, /* rightshift */
1361 2, /* size (0 = byte, 1 = short, 2 = long) */
1362 32, /* bitsize */
1363 FALSE, /* pc_relative */
1364 0, /* bitpos */
1365 complain_overflow_dont,/* complain_on_overflow */
1366 bfd_elf_generic_reloc, /* special_function */
1367 "R_ARM_PLT32_ABS", /* name */
1368 FALSE, /* partial_inplace */
1369 0xffffffff, /* src_mask */
1370 0xffffffff, /* dst_mask */
1371 FALSE), /* pcrel_offset */
1372
1373 HOWTO (R_ARM_GOT_ABS, /* type */
1374 0, /* rightshift */
1375 2, /* size (0 = byte, 1 = short, 2 = long) */
1376 32, /* bitsize */
1377 FALSE, /* pc_relative */
1378 0, /* bitpos */
1379 complain_overflow_dont,/* complain_on_overflow */
1380 bfd_elf_generic_reloc, /* special_function */
1381 "R_ARM_GOT_ABS", /* name */
1382 FALSE, /* partial_inplace */
1383 0xffffffff, /* src_mask */
1384 0xffffffff, /* dst_mask */
1385 FALSE), /* pcrel_offset */
1386
1387 HOWTO (R_ARM_GOT_PREL, /* type */
1388 0, /* rightshift */
1389 2, /* size (0 = byte, 1 = short, 2 = long) */
1390 32, /* bitsize */
1391 TRUE, /* pc_relative */
1392 0, /* bitpos */
1393 complain_overflow_dont, /* complain_on_overflow */
1394 bfd_elf_generic_reloc, /* special_function */
1395 "R_ARM_GOT_PREL", /* name */
1396 FALSE, /* partial_inplace */
1397 0xffffffff, /* src_mask */
1398 0xffffffff, /* dst_mask */
1399 TRUE), /* pcrel_offset */
1400
1401 HOWTO (R_ARM_GOT_BREL12, /* type */
1402 0, /* rightshift */
1403 2, /* size (0 = byte, 1 = short, 2 = long) */
1404 12, /* bitsize */
1405 FALSE, /* pc_relative */
1406 0, /* bitpos */
1407 complain_overflow_bitfield,/* complain_on_overflow */
1408 bfd_elf_generic_reloc, /* special_function */
1409 "R_ARM_GOT_BREL12", /* name */
1410 FALSE, /* partial_inplace */
1411 0x00000fff, /* src_mask */
1412 0x00000fff, /* dst_mask */
1413 FALSE), /* pcrel_offset */
1414
1415 HOWTO (R_ARM_GOTOFF12, /* type */
1416 0, /* rightshift */
1417 2, /* size (0 = byte, 1 = short, 2 = long) */
1418 12, /* bitsize */
1419 FALSE, /* pc_relative */
1420 0, /* bitpos */
1421 complain_overflow_bitfield,/* complain_on_overflow */
1422 bfd_elf_generic_reloc, /* special_function */
1423 "R_ARM_GOTOFF12", /* name */
1424 FALSE, /* partial_inplace */
1425 0x00000fff, /* src_mask */
1426 0x00000fff, /* dst_mask */
1427 FALSE), /* pcrel_offset */
1428
1429 EMPTY_HOWTO (R_ARM_GOTRELAX), /* reserved for future GOT-load optimizations */
1430
1431 /* GNU extension to record C++ vtable member usage */
1432 HOWTO (R_ARM_GNU_VTENTRY, /* type */
ba93b8ac
DJ		 1433 0, /* rightshift */
1434 2, /* size (0 = byte, 1 = short, 2 = long) */
c19d1205 1435 0, /* bitsize */
ba93b8ac
DJ		 1436 FALSE, /* pc_relative */
1437 0, /* bitpos */
c19d1205
ZW		 1438 complain_overflow_dont, /* complain_on_overflow */
1439 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
1440 "R_ARM_GNU_VTENTRY", /* name */
1441 FALSE, /* partial_inplace */
1442 0, /* src_mask */
1443 0, /* dst_mask */
1444 FALSE), /* pcrel_offset */
1445
1446 /* GNU extension to record C++ vtable hierarchy */
1447 HOWTO (R_ARM_GNU_VTINHERIT, /* type */
1448 0, /* rightshift */
1449 2, /* size (0 = byte, 1 = short, 2 = long) */
1450 0, /* bitsize */
1451 FALSE, /* pc_relative */
1452 0, /* bitpos */
1453 complain_overflow_dont, /* complain_on_overflow */
1454 NULL, /* special_function */
1455 "R_ARM_GNU_VTINHERIT", /* name */
1456 FALSE, /* partial_inplace */
1457 0, /* src_mask */
1458 0, /* dst_mask */
1459 FALSE), /* pcrel_offset */
1460
1461 HOWTO (R_ARM_THM_JUMP11, /* type */
1462 1, /* rightshift */
1463 1, /* size (0 = byte, 1 = short, 2 = long) */
1464 11, /* bitsize */
1465 TRUE, /* pc_relative */
1466 0, /* bitpos */
1467 complain_overflow_signed, /* complain_on_overflow */
1468 bfd_elf_generic_reloc, /* special_function */
1469 "R_ARM_THM_JUMP11", /* name */
1470 FALSE, /* partial_inplace */
1471 0x000007ff, /* src_mask */
1472 0x000007ff, /* dst_mask */
1473 TRUE), /* pcrel_offset */
1474
1475 HOWTO (R_ARM_THM_JUMP8, /* type */
1476 1, /* rightshift */
1477 1, /* size (0 = byte, 1 = short, 2 = long) */
1478 8, /* bitsize */
1479 TRUE, /* pc_relative */
1480 0, /* bitpos */
1481 complain_overflow_signed, /* complain_on_overflow */
1482 bfd_elf_generic_reloc, /* special_function */
1483 "R_ARM_THM_JUMP8", /* name */
1484 FALSE, /* partial_inplace */
1485 0x000000ff, /* src_mask */
1486 0x000000ff, /* dst_mask */
1487 TRUE), /* pcrel_offset */
ba93b8ac 1488
c19d1205
ZW		 1489 /* TLS relocations */
1490 HOWTO (R_ARM_TLS_GD32, /* type */
ba93b8ac
DJ		 1491 0, /* rightshift */
1492 2, /* size (0 = byte, 1 = short, 2 = long) */
1493 32, /* bitsize */
1494 FALSE, /* pc_relative */
1495 0, /* bitpos */
1496 complain_overflow_bitfield,/* complain_on_overflow */
c19d1205
ZW		 1497 NULL, /* special_function */
1498 "R_ARM_TLS_GD32", /* name */
ba93b8ac
DJ		 1499 TRUE, /* partial_inplace */
1500 0xffffffff, /* src_mask */
1501 0xffffffff, /* dst_mask */
c19d1205 1502 FALSE), /* pcrel_offset */
ba93b8ac 1503
ba93b8ac
DJ		 1504 HOWTO (R_ARM_TLS_LDM32, /* type */
1505 0, /* rightshift */
1506 2, /* size (0 = byte, 1 = short, 2 = long) */
1507 32, /* bitsize */
1508 FALSE, /* pc_relative */
1509 0, /* bitpos */
1510 complain_overflow_bitfield,/* complain_on_overflow */
1511 bfd_elf_generic_reloc, /* special_function */
1512 "R_ARM_TLS_LDM32", /* name */
1513 TRUE, /* partial_inplace */
1514 0xffffffff, /* src_mask */
1515 0xffffffff, /* dst_mask */
c19d1205 1516 FALSE), /* pcrel_offset */
ba93b8ac 1517
c19d1205 1518 HOWTO (R_ARM_TLS_LDO32, /* type */
ba93b8ac
DJ		 1519 0, /* rightshift */
1520 2, /* size (0 = byte, 1 = short, 2 = long) */
1521 32, /* bitsize */
1522 FALSE, /* pc_relative */
1523 0, /* bitpos */
1524 complain_overflow_bitfield,/* complain_on_overflow */
1525 bfd_elf_generic_reloc, /* special_function */
c19d1205 1526 "R_ARM_TLS_LDO32", /* name */
ba93b8ac
DJ		 1527 TRUE, /* partial_inplace */
1528 0xffffffff, /* src_mask */
1529 0xffffffff, /* dst_mask */
c19d1205 1530 FALSE), /* pcrel_offset */
ba93b8ac 1531
ba93b8ac
DJ		 1532 HOWTO (R_ARM_TLS_IE32, /* type */
1533 0, /* rightshift */
1534 2, /* size (0 = byte, 1 = short, 2 = long) */
1535 32, /* bitsize */
1536 FALSE, /* pc_relative */
1537 0, /* bitpos */
1538 complain_overflow_bitfield,/* complain_on_overflow */
1539 NULL, /* special_function */
1540 "R_ARM_TLS_IE32", /* name */
1541 TRUE, /* partial_inplace */
1542 0xffffffff, /* src_mask */
1543 0xffffffff, /* dst_mask */
c19d1205 1544 FALSE), /* pcrel_offset */
7f266840 1545
c19d1205 1546 HOWTO (R_ARM_TLS_LE32, /* type */
7f266840
DJ		 1547 0, /* rightshift */
1548 2, /* size (0 = byte, 1 = short, 2 = long) */
c19d1205 1549 32, /* bitsize */
7f266840
DJ		 1550 FALSE, /* pc_relative */
1551 0, /* bitpos */
c19d1205
ZW		 1552 complain_overflow_bitfield,/* complain_on_overflow */
1553 bfd_elf_generic_reloc, /* special_function */
1554 "R_ARM_TLS_LE32", /* name */
1555 TRUE, /* partial_inplace */
1556 0xffffffff, /* src_mask */
1557 0xffffffff, /* dst_mask */
1558 FALSE), /* pcrel_offset */
7f266840 1559
c19d1205
ZW		 1560 HOWTO (R_ARM_TLS_LDO12, /* type */
1561 0, /* rightshift */
1562 2, /* size (0 = byte, 1 = short, 2 = long) */
1563 12, /* bitsize */
1564 FALSE, /* pc_relative */
7f266840 1565 0, /* bitpos */
c19d1205 1566 complain_overflow_bitfield,/* complain_on_overflow */
7f266840 1567 bfd_elf_generic_reloc, /* special_function */
c19d1205 1568 "R_ARM_TLS_LDO12", /* name */
7f266840 1569 FALSE, /* partial_inplace */
c19d1205
ZW		 1570 0x00000fff, /* src_mask */
1571 0x00000fff, /* dst_mask */
1572 FALSE), /* pcrel_offset */
7f266840 1573
c19d1205
ZW		 1574 HOWTO (R_ARM_TLS_LE12, /* type */
1575 0, /* rightshift */
1576 2, /* size (0 = byte, 1 = short, 2 = long) */
1577 12, /* bitsize */
1578 FALSE, /* pc_relative */
7f266840 1579 0, /* bitpos */
c19d1205 1580 complain_overflow_bitfield,/* complain_on_overflow */
7f266840 1581 bfd_elf_generic_reloc, /* special_function */
c19d1205 1582 "R_ARM_TLS_LE12", /* name */
7f266840 1583 FALSE, /* partial_inplace */
c19d1205
ZW		 1584 0x00000fff, /* src_mask */
1585 0x00000fff, /* dst_mask */
1586 FALSE), /* pcrel_offset */
7f266840 1587
c19d1205 1588 HOWTO (R_ARM_TLS_IE12GP, /* type */
7f266840
DJ		 1589 0, /* rightshift */
1590 2, /* size (0 = byte, 1 = short, 2 = long) */
c19d1205
ZW		 1591 12, /* bitsize */
1592 FALSE, /* pc_relative */
7f266840 1593 0, /* bitpos */
c19d1205 1594 complain_overflow_bitfield,/* complain_on_overflow */
7f266840 1595 bfd_elf_generic_reloc, /* special_function */
c19d1205 1596 "R_ARM_TLS_IE12GP", /* name */
7f266840 1597 FALSE, /* partial_inplace */
c19d1205
ZW		 1598 0x00000fff, /* src_mask */
1599 0x00000fff, /* dst_mask */
1600 FALSE), /* pcrel_offset */
1601};
1602
1603/* 112-127 private relocations
1604 128 R_ARM_ME_TOO, obsolete
1605 129-255 unallocated in AAELF.
7f266840 1606
c19d1205
ZW		 1607 249-255 extended, currently unused, relocations: */
1608
4962c51a 1609static reloc_howto_type elf32_arm_howto_table_2[4] =
7f266840
DJ		 1610{
1611 HOWTO (R_ARM_RREL32, /* type */
1612 0, /* rightshift */
1613 0, /* size (0 = byte, 1 = short, 2 = long) */
1614 0, /* bitsize */
1615 FALSE, /* pc_relative */
1616 0, /* bitpos */
1617 complain_overflow_dont,/* complain_on_overflow */
1618 bfd_elf_generic_reloc, /* special_function */
1619 "R_ARM_RREL32", /* name */
1620 FALSE, /* partial_inplace */
1621 0, /* src_mask */
1622 0, /* dst_mask */
1623 FALSE), /* pcrel_offset */
1624
1625 HOWTO (R_ARM_RABS32, /* type */
1626 0, /* rightshift */
1627 0, /* size (0 = byte, 1 = short, 2 = long) */
1628 0, /* bitsize */
1629 FALSE, /* pc_relative */
1630 0, /* bitpos */
1631 complain_overflow_dont,/* complain_on_overflow */
1632 bfd_elf_generic_reloc, /* special_function */
1633 "R_ARM_RABS32", /* name */
1634 FALSE, /* partial_inplace */
1635 0, /* src_mask */
1636 0, /* dst_mask */
1637 FALSE), /* pcrel_offset */
1638
1639 HOWTO (R_ARM_RPC24, /* type */
1640 0, /* rightshift */
1641 0, /* size (0 = byte, 1 = short, 2 = long) */
1642 0, /* bitsize */
1643 FALSE, /* pc_relative */
1644 0, /* bitpos */
1645 complain_overflow_dont,/* complain_on_overflow */
1646 bfd_elf_generic_reloc, /* special_function */
1647 "R_ARM_RPC24", /* name */
1648 FALSE, /* partial_inplace */
1649 0, /* src_mask */
1650 0, /* dst_mask */
1651 FALSE), /* pcrel_offset */
1652
1653 HOWTO (R_ARM_RBASE, /* type */
1654 0, /* rightshift */
1655 0, /* size (0 = byte, 1 = short, 2 = long) */
1656 0, /* bitsize */
1657 FALSE, /* pc_relative */
1658 0, /* bitpos */
1659 complain_overflow_dont,/* complain_on_overflow */
1660 bfd_elf_generic_reloc, /* special_function */
1661 "R_ARM_RBASE", /* name */
1662 FALSE, /* partial_inplace */
1663 0, /* src_mask */
1664 0, /* dst_mask */
1665 FALSE) /* pcrel_offset */
1666};
1667
1668static reloc_howto_type *
1669elf32_arm_howto_from_type (unsigned int r_type)
1670{
c19d1205
ZW		 1671 if (r_type < NUM_ELEM (elf32_arm_howto_table_1))
1672 return &elf32_arm_howto_table_1[r_type];
ba93b8ac 1673
c19d1205
ZW		 1674 if (r_type >= R_ARM_RREL32
1675 && r_type < R_ARM_RREL32 + NUM_ELEM (elf32_arm_howto_table_2))
4962c51a 1676 return &elf32_arm_howto_table_2[r_type - R_ARM_RREL32];
7f266840 1677
c19d1205 1678 return NULL;
7f266840
DJ		 1679}
1680
1681static void
1682elf32_arm_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED, arelent * bfd_reloc,
1683 Elf_Internal_Rela * elf_reloc)
1684{
1685 unsigned int r_type;
1686
1687 r_type = ELF32_R_TYPE (elf_reloc->r_info);
1688 bfd_reloc->howto = elf32_arm_howto_from_type (r_type);
1689}
1690
1691struct elf32_arm_reloc_map
1692 {
1693 bfd_reloc_code_real_type bfd_reloc_val;
1694 unsigned char elf_reloc_val;
1695 };
1696
1697/* All entries in this list must also be present in elf32_arm_howto_table. */
1698static const struct elf32_arm_reloc_map elf32_arm_reloc_map[] =
1699 {
1700 {BFD_RELOC_NONE, R_ARM_NONE},
1701 {BFD_RELOC_ARM_PCREL_BRANCH, R_ARM_PC24},
39b41c9c
PB		 1702 {BFD_RELOC_ARM_PCREL_CALL, R_ARM_CALL},
1703 {BFD_RELOC_ARM_PCREL_JUMP, R_ARM_JUMP24},
7f266840
DJ		 1704 {BFD_RELOC_ARM_PCREL_BLX, R_ARM_XPC25},
1705 {BFD_RELOC_THUMB_PCREL_BLX, R_ARM_THM_XPC22},
1706 {BFD_RELOC_32, R_ARM_ABS32},
1707 {BFD_RELOC_32_PCREL, R_ARM_REL32},
1708 {BFD_RELOC_8, R_ARM_ABS8},
1709 {BFD_RELOC_16, R_ARM_ABS16},
1710 {BFD_RELOC_ARM_OFFSET_IMM, R_ARM_ABS12},
1711 {BFD_RELOC_ARM_THUMB_OFFSET, R_ARM_THM_ABS5},
c19d1205
ZW		 1712 {BFD_RELOC_THUMB_PCREL_BRANCH25, R_ARM_THM_JUMP24},
1713 {BFD_RELOC_THUMB_PCREL_BRANCH23, R_ARM_THM_CALL},
1714 {BFD_RELOC_THUMB_PCREL_BRANCH12, R_ARM_THM_JUMP11},
1715 {BFD_RELOC_THUMB_PCREL_BRANCH20, R_ARM_THM_JUMP19},
1716 {BFD_RELOC_THUMB_PCREL_BRANCH9, R_ARM_THM_JUMP8},
1717 {BFD_RELOC_THUMB_PCREL_BRANCH7, R_ARM_THM_JUMP6},
7f266840
DJ		 1718 {BFD_RELOC_ARM_GLOB_DAT, R_ARM_GLOB_DAT},
1719 {BFD_RELOC_ARM_JUMP_SLOT, R_ARM_JUMP_SLOT},
1720 {BFD_RELOC_ARM_RELATIVE, R_ARM_RELATIVE},
c19d1205 1721 {BFD_RELOC_ARM_GOTOFF, R_ARM_GOTOFF32},
7f266840
DJ		 1722 {BFD_RELOC_ARM_GOTPC, R_ARM_GOTPC},
1723 {BFD_RELOC_ARM_GOT32, R_ARM_GOT32},
1724 {BFD_RELOC_ARM_PLT32, R_ARM_PLT32},
1725 {BFD_RELOC_ARM_TARGET1, R_ARM_TARGET1},
1726 {BFD_RELOC_ARM_ROSEGREL32, R_ARM_ROSEGREL32},
1727 {BFD_RELOC_ARM_SBREL32, R_ARM_SBREL32},
1728 {BFD_RELOC_ARM_PREL31, R_ARM_PREL31},
ba93b8ac
DJ		 1729 {BFD_RELOC_ARM_TARGET2, R_ARM_TARGET2},
1730 {BFD_RELOC_ARM_PLT32, R_ARM_PLT32},
1731 {BFD_RELOC_ARM_TLS_GD32, R_ARM_TLS_GD32},
1732 {BFD_RELOC_ARM_TLS_LDO32, R_ARM_TLS_LDO32},
1733 {BFD_RELOC_ARM_TLS_LDM32, R_ARM_TLS_LDM32},
1734 {BFD_RELOC_ARM_TLS_DTPMOD32, R_ARM_TLS_DTPMOD32},
1735 {BFD_RELOC_ARM_TLS_DTPOFF32, R_ARM_TLS_DTPOFF32},
1736 {BFD_RELOC_ARM_TLS_TPOFF32, R_ARM_TLS_TPOFF32},
1737 {BFD_RELOC_ARM_TLS_IE32, R_ARM_TLS_IE32},
1738 {BFD_RELOC_ARM_TLS_LE32, R_ARM_TLS_LE32},
c19d1205
ZW		 1739 {BFD_RELOC_VTABLE_INHERIT, R_ARM_GNU_VTINHERIT},
1740 {BFD_RELOC_VTABLE_ENTRY, R_ARM_GNU_VTENTRY},
b6895b4f
PB		 1741 {BFD_RELOC_ARM_MOVW, R_ARM_MOVW_ABS_NC},
1742 {BFD_RELOC_ARM_MOVT, R_ARM_MOVT_ABS},
1743 {BFD_RELOC_ARM_MOVW_PCREL, R_ARM_MOVW_PREL_NC},
1744 {BFD_RELOC_ARM_MOVT_PCREL, R_ARM_MOVT_PREL},
1745 {BFD_RELOC_ARM_THUMB_MOVW, R_ARM_THM_MOVW_ABS_NC},
1746 {BFD_RELOC_ARM_THUMB_MOVT, R_ARM_THM_MOVT_ABS},
1747 {BFD_RELOC_ARM_THUMB_MOVW_PCREL, R_ARM_THM_MOVW_PREL_NC},
1748 {BFD_RELOC_ARM_THUMB_MOVT_PCREL, R_ARM_THM_MOVT_PREL},
4962c51a
MS		 1749 {BFD_RELOC_ARM_ALU_PC_G0_NC, R_ARM_ALU_PC_G0_NC},
1750 {BFD_RELOC_ARM_ALU_PC_G0, R_ARM_ALU_PC_G0},
1751 {BFD_RELOC_ARM_ALU_PC_G1_NC, R_ARM_ALU_PC_G1_NC},
1752 {BFD_RELOC_ARM_ALU_PC_G1, R_ARM_ALU_PC_G1},
1753 {BFD_RELOC_ARM_ALU_PC_G2, R_ARM_ALU_PC_G2},
1754 {BFD_RELOC_ARM_LDR_PC_G0, R_ARM_LDR_PC_G0},
1755 {BFD_RELOC_ARM_LDR_PC_G1, R_ARM_LDR_PC_G1},
1756 {BFD_RELOC_ARM_LDR_PC_G2, R_ARM_LDR_PC_G2},
1757 {BFD_RELOC_ARM_LDRS_PC_G0, R_ARM_LDRS_PC_G0},
1758 {BFD_RELOC_ARM_LDRS_PC_G1, R_ARM_LDRS_PC_G1},
1759 {BFD_RELOC_ARM_LDRS_PC_G2, R_ARM_LDRS_PC_G2},
1760 {BFD_RELOC_ARM_LDC_PC_G0, R_ARM_LDC_PC_G0},
1761 {BFD_RELOC_ARM_LDC_PC_G1, R_ARM_LDC_PC_G1},
1762 {BFD_RELOC_ARM_LDC_PC_G2, R_ARM_LDC_PC_G2},
1763 {BFD_RELOC_ARM_ALU_SB_G0_NC, R_ARM_ALU_SB_G0_NC},
1764 {BFD_RELOC_ARM_ALU_SB_G0, R_ARM_ALU_SB_G0},
1765 {BFD_RELOC_ARM_ALU_SB_G1_NC, R_ARM_ALU_SB_G1_NC},
1766 {BFD_RELOC_ARM_ALU_SB_G1, R_ARM_ALU_SB_G1},
1767 {BFD_RELOC_ARM_ALU_SB_G2, R_ARM_ALU_SB_G2},
1768 {BFD_RELOC_ARM_LDR_SB_G0, R_ARM_LDR_SB_G0},
1769 {BFD_RELOC_ARM_LDR_SB_G1, R_ARM_LDR_SB_G1},
1770 {BFD_RELOC_ARM_LDR_SB_G2, R_ARM_LDR_SB_G2},
1771 {BFD_RELOC_ARM_LDRS_SB_G0, R_ARM_LDRS_SB_G0},
1772 {BFD_RELOC_ARM_LDRS_SB_G1, R_ARM_LDRS_SB_G1},
1773 {BFD_RELOC_ARM_LDRS_SB_G2, R_ARM_LDRS_SB_G2},
1774 {BFD_RELOC_ARM_LDC_SB_G0, R_ARM_LDC_SB_G0},
1775 {BFD_RELOC_ARM_LDC_SB_G1, R_ARM_LDC_SB_G1},
1776 {BFD_RELOC_ARM_LDC_SB_G2, R_ARM_LDC_SB_G2}
7f266840
DJ		 1777 };
1778
1779static reloc_howto_type *
f1c71a59
ZW		 1780elf32_arm_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1781 bfd_reloc_code_real_type code)
7f266840
DJ		 1782{
1783 unsigned int i;
c19d1205
ZW		 1784 for (i = 0; i < NUM_ELEM (elf32_arm_reloc_map); i ++)
1785 if (elf32_arm_reloc_map[i].bfd_reloc_val == code)
1786 return elf32_arm_howto_from_type (elf32_arm_reloc_map[i].elf_reloc_val);
7f266840 1787
c19d1205 1788 return NULL;
7f266840
DJ		 1789}
1790
1791/* Support for core dump NOTE sections */
1792static bfd_boolean
f1c71a59 1793elf32_arm_nabi_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
7f266840
DJ		 1794{
1795 int offset;
1796 size_t size;
1797
1798 switch (note->descsz)
1799 {
1800 default:
1801 return FALSE;
1802
1803 case 148: /* Linux/ARM 32-bit*/
1804 /* pr_cursig */
1805 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
1806
1807 /* pr_pid */
1808 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
1809
1810 /* pr_reg */
1811 offset = 72;
1812 size = 72;
1813
1814 break;
1815 }
1816
1817 /* Make a ".reg/999" section. */
1818 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1819 size, note->descpos + offset);
1820}
1821
1822static bfd_boolean
f1c71a59 1823elf32_arm_nabi_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
7f266840
DJ		 1824{
1825 switch (note->descsz)
1826 {
1827 default:
1828 return FALSE;
1829
1830 case 124: /* Linux/ARM elf_prpsinfo */
1831 elf_tdata (abfd)->core_program
1832 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
1833 elf_tdata (abfd)->core_command
1834 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
1835 }
1836
1837 /* Note that for some reason, a spurious space is tacked
1838 onto the end of the args in some (at least one anyway)
1839 implementations, so strip it off if it exists. */
1840
1841 {
1842 char *command = elf_tdata (abfd)->core_command;
1843 int n = strlen (command);
1844
1845 if (0 < n && command[n - 1] == ' ')
1846 command[n - 1] = '\0';
1847 }
1848
1849 return TRUE;
1850}
1851
1852#define TARGET_LITTLE_SYM bfd_elf32_littlearm_vec
1853#define TARGET_LITTLE_NAME "elf32-littlearm"
1854#define TARGET_BIG_SYM bfd_elf32_bigarm_vec
1855#define TARGET_BIG_NAME "elf32-bigarm"
1856
1857#define elf_backend_grok_prstatus elf32_arm_nabi_grok_prstatus
1858#define elf_backend_grok_psinfo elf32_arm_nabi_grok_psinfo
1859
252b5132
RH		 1860typedef unsigned long int insn32;
1861typedef unsigned short int insn16;
1862
3a4a14e9
PB		 1863/* In lieu of proper flags, assume all EABIv4 or later objects are
1864 interworkable. */
57e8b36a 1865#define INTERWORK_FLAG(abfd) \
3a4a14e9 1866 (EF_ARM_EABI_VERSION (elf_elfheader (abfd)->e_flags) >= EF_ARM_EABI_VER4 \
85a84e7a 1867 || (elf_elfheader (abfd)->e_flags & EF_ARM_INTERWORK))
9b485d32 1868
252b5132
RH		 1869/* The linker script knows the section names for placement.
1870 The entry_names are used to do simple name mangling on the stubs.
1871 Given a function name, and its type, the stub can be found. The
9b485d32 1872 name can be changed. The only requirement is the %s be present. */
252b5132
RH		 1873#define THUMB2ARM_GLUE_SECTION_NAME ".glue_7t"
1874#define THUMB2ARM_GLUE_ENTRY_NAME "__%s_from_thumb"
1875
1876#define ARM2THUMB_GLUE_SECTION_NAME ".glue_7"
1877#define ARM2THUMB_GLUE_ENTRY_NAME "__%s_from_arm"
1878
1879/* The name of the dynamic interpreter. This is put in the .interp
1880 section. */
1881#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
1882
5e681ec4
PB		 1883#ifdef FOUR_WORD_PLT
1884
252b5132
RH		 1885/* The first entry in a procedure linkage table looks like
1886 this. It is set up so that any shared library function that is
59f2c4e7 1887 called before the relocation has been set up calls the dynamic
9b485d32 1888 linker first. */
e5a52504 1889static const bfd_vma elf32_arm_plt0_entry [] =
5e681ec4
PB		 1890 {
1891 0xe52de004, /* str lr, [sp, #-4]! */
1892 0xe59fe010, /* ldr lr, [pc, #16] */
1893 0xe08fe00e, /* add lr, pc, lr */
1894 0xe5bef008, /* ldr pc, [lr, #8]! */
1895 };
1896
1897/* Subsequent entries in a procedure linkage table look like
1898 this. */
e5a52504 1899static const bfd_vma elf32_arm_plt_entry [] =
5e681ec4
PB		 1900 {
1901 0xe28fc600, /* add ip, pc, #NN */
1902 0xe28cca00, /* add ip, ip, #NN */
1903 0xe5bcf000, /* ldr pc, [ip, #NN]! */
1904 0x00000000, /* unused */
1905 };
1906
1907#else
1908
5e681ec4
PB		 1909/* The first entry in a procedure linkage table looks like
1910 this. It is set up so that any shared library function that is
1911 called before the relocation has been set up calls the dynamic
1912 linker first. */
e5a52504 1913static const bfd_vma elf32_arm_plt0_entry [] =
917583ad 1914 {
5e681ec4
PB		 1915 0xe52de004, /* str lr, [sp, #-4]! */
1916 0xe59fe004, /* ldr lr, [pc, #4] */
1917 0xe08fe00e, /* add lr, pc, lr */
1918 0xe5bef008, /* ldr pc, [lr, #8]! */
1919 0x00000000, /* &GOT[0] - . */
917583ad 1920 };
252b5132
RH		 1921
1922/* Subsequent entries in a procedure linkage table look like
1923 this. */
e5a52504 1924static const bfd_vma elf32_arm_plt_entry [] =
5e681ec4
PB		 1925 {
1926 0xe28fc600, /* add ip, pc, #0xNN00000 */
1927 0xe28cca00, /* add ip, ip, #0xNN000 */
1928 0xe5bcf000, /* ldr pc, [ip, #0xNNN]! */
1929 };
1930
1931#endif
252b5132 1932
00a97672
RS		 1933/* The format of the first entry in the procedure linkage table
1934 for a VxWorks executable. */
1935static const bfd_vma elf32_arm_vxworks_exec_plt0_entry[] =
1936 {
1937 0xe52dc008, /* str ip,[sp,#-8]! */
1938 0xe59fc000, /* ldr ip,[pc] */
1939 0xe59cf008, /* ldr pc,[ip,#8] */
1940 0x00000000, /* .long _GLOBAL_OFFSET_TABLE_ */
1941 };
1942
1943/* The format of subsequent entries in a VxWorks executable. */
1944static const bfd_vma elf32_arm_vxworks_exec_plt_entry[] =
1945 {
1946 0xe59fc000, /* ldr ip,[pc] */
1947 0xe59cf000, /* ldr pc,[ip] */
1948 0x00000000, /* .long @got */
1949 0xe59fc000, /* ldr ip,[pc] */
1950 0xea000000, /* b _PLT */
1951 0x00000000, /* .long @pltindex*sizeof(Elf32_Rela) */
1952 };
1953
1954/* The format of entries in a VxWorks shared library. */
1955static const bfd_vma elf32_arm_vxworks_shared_plt_entry[] =
1956 {
1957 0xe59fc000, /* ldr ip,[pc] */
1958 0xe79cf009, /* ldr pc,[ip,r9] */
1959 0x00000000, /* .long @got */
1960 0xe59fc000, /* ldr ip,[pc] */
1961 0xe599f008, /* ldr pc,[r9,#8] */
1962 0x00000000, /* .long @pltindex*sizeof(Elf32_Rela) */
1963 };
1964
b7693d02
DJ		 1965/* An initial stub used if the PLT entry is referenced from Thumb code. */
1966#define PLT_THUMB_STUB_SIZE 4
1967static const bfd_vma elf32_arm_plt_thumb_stub [] =
1968 {
1969 0x4778, /* bx pc */
1970 0x46c0 /* nop */
1971 };
1972
e5a52504
MM		 1973/* The entries in a PLT when using a DLL-based target with multiple
1974 address spaces. */
1975static const bfd_vma elf32_arm_symbian_plt_entry [] =
1976 {
83a358aa 1977 0xe51ff004, /* ldr pc, [pc, #-4] */
e5a52504
MM		 1978 0x00000000, /* dcd R_ARM_GLOB_DAT(X) */
1979 };
1980
e489d0ae
PB		 1981/* Used to build a map of a section. This is required for mixed-endian
1982 code/data. */
1983
1984typedef struct elf32_elf_section_map
1985{
1986 bfd_vma vma;
1987 char type;
1988}
1989elf32_arm_section_map;
1990
8e3de13a 1991typedef struct _arm_elf_section_data
e489d0ae
PB		 1992{
1993 struct bfd_elf_section_data elf;
8e3de13a 1994 unsigned int mapcount;
e489d0ae 1995 elf32_arm_section_map *map;
8e3de13a
NC		 1996}
1997_arm_elf_section_data;
e489d0ae
PB		 1998
1999#define elf32_arm_section_data(sec) \
8e3de13a 2000 ((_arm_elf_section_data *) elf_section_data (sec))
e489d0ae 2001
ba93b8ac
DJ		 2002/* The size of the thread control block. */
2003#define TCB_SIZE 8
2004
ee065d83
PB		 2005#define NUM_KNOWN_ATTRIBUTES 32
2006
2007typedef struct aeabi_attribute
2008{
2009 int type;
2010 unsigned int i;
2011 char *s;
2012} aeabi_attribute;
2013
2014typedef struct aeabi_attribute_list
2015{
2016 struct aeabi_attribute_list *next;
2017 int tag;
2018 aeabi_attribute attr;
2019} aeabi_attribute_list;
2020
ba93b8ac
DJ		 2021struct elf32_arm_obj_tdata
2022{
2023 struct elf_obj_tdata root;
2024
2025 /* tls_type for each local got entry. */
2026 char *local_got_tls_type;
ee065d83
PB		 2027
2028 aeabi_attribute known_eabi_attributes[NUM_KNOWN_ATTRIBUTES];
2029 aeabi_attribute_list *other_eabi_attributes;
ba93b8ac
DJ		 2030};
2031
2032#define elf32_arm_tdata(abfd) \
2033 ((struct elf32_arm_obj_tdata *) (abfd)->tdata.any)
2034
2035#define elf32_arm_local_got_tls_type(abfd) \
2036 (elf32_arm_tdata (abfd)->local_got_tls_type)
2037
2038static bfd_boolean
2039elf32_arm_mkobject (bfd *abfd)
2040{
ba93b8ac 2041 if (abfd->tdata.any == NULL)
62d7a5f6
AM		 2042 {
2043 bfd_size_type amt = sizeof (struct elf32_arm_obj_tdata);
2044 abfd->tdata.any = bfd_zalloc (abfd, amt);
2045 if (abfd->tdata.any == NULL)
2046 return FALSE;
2047 }
2048 return bfd_elf_mkobject (abfd);
ba93b8ac
DJ		 2049}
2050
252b5132
RH		 2051/* The ARM linker needs to keep track of the number of relocs that it
2052 decides to copy in check_relocs for each symbol. This is so that
2053 it can discard PC relative relocs if it doesn't need them when
2054 linking with -Bsymbolic. We store the information in a field
2055 extending the regular ELF linker hash table. */
2056
ba93b8ac
DJ		 2057/* This structure keeps track of the number of relocs we have copied
2058 for a given symbol. */
5e681ec4 2059struct elf32_arm_relocs_copied
917583ad
NC		 2060 {
2061 /* Next section. */
5e681ec4 2062 struct elf32_arm_relocs_copied * next;
917583ad
NC		 2063 /* A section in dynobj. */
2064 asection * section;
2065 /* Number of relocs copied in this section. */
2066 bfd_size_type count;
ba93b8ac
DJ		 2067 /* Number of PC-relative relocs copied in this section. */
2068 bfd_size_type pc_count;
917583ad 2069 };
252b5132 2070
ba93b8ac
DJ		 2071#define elf32_arm_hash_entry(ent) ((struct elf32_arm_link_hash_entry *)(ent))
2072
ba96a88f 2073/* Arm ELF linker hash entry. */
252b5132 2074struct elf32_arm_link_hash_entry
917583ad
NC		 2075 {
2076 struct elf_link_hash_entry root;
252b5132 2077
917583ad 2078 /* Number of PC relative relocs copied for this symbol. */
5e681ec4 2079 struct elf32_arm_relocs_copied * relocs_copied;
b7693d02
DJ		 2080
2081 /* We reference count Thumb references to a PLT entry separately,
2082 so that we can emit the Thumb trampoline only if needed. */
2083 bfd_signed_vma plt_thumb_refcount;
2084
2085 /* Since PLT entries have variable size if the Thumb prologue is
2086 used, we need to record the index into .got.plt instead of
2087 recomputing it from the PLT offset. */
2088 bfd_signed_vma plt_got_offset;
ba93b8ac
DJ		 2089
2090#define GOT_UNKNOWN 0
2091#define GOT_NORMAL 1
2092#define GOT_TLS_GD 2
2093#define GOT_TLS_IE 4
2094 unsigned char tls_type;
a4fd1a8e
PB		 2095
2096 /* The symbol marking the real symbol location for exported thumb
2097 symbols with Arm stubs. */
2098 struct elf_link_hash_entry *export_glue;
917583ad 2099 };
252b5132 2100
252b5132 2101/* Traverse an arm ELF linker hash table. */
252b5132
RH		 2102#define elf32_arm_link_hash_traverse(table, func, info) \
2103 (elf_link_hash_traverse \
2104 (&(table)->root, \
b7693d02 2105 (bfd_boolean (*) (struct elf_link_hash_entry *, void *)) (func), \
252b5132
RH		 2106 (info)))
2107
2108/* Get the ARM elf linker hash table from a link_info structure. */
2109#define elf32_arm_hash_table(info) \
2110 ((struct elf32_arm_link_hash_table *) ((info)->hash))
2111
9b485d32 2112/* ARM ELF linker hash table. */
252b5132 2113struct elf32_arm_link_hash_table
917583ad
NC		 2114 {
2115 /* The main hash table. */
2116 struct elf_link_hash_table root;
252b5132 2117
4cc11e76 2118 /* The size in bytes of the section containing the Thumb-to-ARM glue. */
dc810e39 2119 bfd_size_type thumb_glue_size;
252b5132 2120
4cc11e76 2121 /* The size in bytes of the section containing the ARM-to-Thumb glue. */
dc810e39 2122 bfd_size_type arm_glue_size;
252b5132 2123
4cc11e76 2124 /* An arbitrary input BFD chosen to hold the glue sections. */
917583ad 2125 bfd * bfd_of_glue_owner;
ba96a88f 2126
e489d0ae
PB		 2127 /* Nonzero to output a BE8 image. */
2128 int byteswap_code;
2129
9c504268 2130 /* Zero if R_ARM_TARGET1 means R_ARM_ABS32.
87bc043a 2131 Nonzero if R_ARM_TARGET1 means R_ARM_REL32. */
9c504268
PB		 2132 int target1_is_rel;
2133
eb043451
PB		 2134 /* The relocation to use for R_ARM_TARGET2 relocations. */
2135 int target2_reloc;
2136
319850b4
JB		 2137 /* Nonzero to fix BX instructions for ARMv4 targets. */
2138 int fix_v4bx;
2139
33bfe774
JB		 2140 /* Nonzero if the ARM/Thumb BLX instructions are available for use. */
2141 int use_blx;
2142
e5a52504
MM		 2143 /* The number of bytes in the initial entry in the PLT. */
2144 bfd_size_type plt_header_size;
2145
2146 /* The number of bytes in the subsequent PLT etries. */
2147 bfd_size_type plt_entry_size;
2148
00a97672
RS		 2149 /* True if the target system is VxWorks. */
2150 int vxworks_p;
2151
e5a52504
MM		 2152 /* True if the target system is Symbian OS. */
2153 int symbian_p;
2154
4e7fd91e
PB		 2155 /* True if the target uses REL relocations. */
2156 int use_rel;
2157
5e681ec4
PB		 2158 /* Short-cuts to get to dynamic linker sections. */
2159 asection *sgot;
2160 asection *sgotplt;
2161 asection *srelgot;
2162 asection *splt;
2163 asection *srelplt;
2164 asection *sdynbss;
2165 asection *srelbss;
2166
00a97672
RS		 2167 /* The (unloaded but important) VxWorks .rela.plt.unloaded section. */
2168 asection *srelplt2;
2169
ba93b8ac
DJ		 2170 /* Data for R_ARM_TLS_LDM32 relocations. */
2171 union {
2172 bfd_signed_vma refcount;
2173 bfd_vma offset;
2174 } tls_ldm_got;
2175
5e681ec4
PB		 2176 /* Small local sym to section mapping cache. */
2177 struct sym_sec_cache sym_sec;
b7693d02
DJ		 2178
2179 /* For convenience in allocate_dynrelocs. */
2180 bfd * obfd;
917583ad 2181 };
252b5132 2182
780a67af
NC		 2183/* Create an entry in an ARM ELF linker hash table. */
2184
2185static struct bfd_hash_entry *
57e8b36a
NC		 2186elf32_arm_link_hash_newfunc (struct bfd_hash_entry * entry,
2187 struct bfd_hash_table * table,
2188 const char * string)
780a67af
NC		 2189{
2190 struct elf32_arm_link_hash_entry * ret =
2191 (struct elf32_arm_link_hash_entry *) entry;
2192
2193 /* Allocate the structure if it has not already been allocated by a
2194 subclass. */
2195 if (ret == (struct elf32_arm_link_hash_entry *) NULL)
57e8b36a
NC		 2196 ret = bfd_hash_allocate (table, sizeof (struct elf32_arm_link_hash_entry));
2197 if (ret == NULL)
780a67af
NC		 2198 return (struct bfd_hash_entry *) ret;
2199
2200 /* Call the allocation method of the superclass. */
2201 ret = ((struct elf32_arm_link_hash_entry *)
2202 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
2203 table, string));
57e8b36a 2204 if (ret != NULL)
b7693d02
DJ		 2205 {
2206 ret->relocs_copied = NULL;
ba93b8ac 2207 ret->tls_type = GOT_UNKNOWN;
b7693d02
DJ		 2208 ret->plt_thumb_refcount = 0;
2209 ret->plt_got_offset = -1;
a4fd1a8e 2210 ret->export_glue = NULL;
b7693d02 2211 }
780a67af
NC		 2212
2213 return (struct bfd_hash_entry *) ret;
2214}
2215
00a97672
RS		 2216/* Return true if NAME is the name of the relocation section associated
2217 with S. */
2218
2219static bfd_boolean
2220reloc_section_p (struct elf32_arm_link_hash_table *htab,
2221 const char *name, asection *s)
2222{
2223 if (htab->use_rel)
2224 return strncmp (name, ".rel", 4) == 0 && strcmp (s->name, name + 4) == 0;
2225 else
2226 return strncmp (name, ".rela", 5) == 0 && strcmp (s->name, name + 5) == 0;
2227}
2228
2229/* Create .got, .gotplt, and .rel(a).got sections in DYNOBJ, and set up
5e681ec4
PB		 2230 shortcuts to them in our hash table. */
2231
2232static bfd_boolean
57e8b36a 2233create_got_section (bfd *dynobj, struct bfd_link_info *info)
5e681ec4
PB		 2234{
2235 struct elf32_arm_link_hash_table *htab;
2236
e5a52504
MM		 2237 htab = elf32_arm_hash_table (info);
2238 /* BPABI objects never have a GOT, or associated sections. */
2239 if (htab->symbian_p)
2240 return TRUE;
2241
5e681ec4
PB		 2242 if (! _bfd_elf_create_got_section (dynobj, info))
2243 return FALSE;
2244
5e681ec4
PB		 2245 htab->sgot = bfd_get_section_by_name (dynobj, ".got");
2246 htab->sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
2247 if (!htab->sgot || !htab->sgotplt)
2248 abort ();
2249
00a97672
RS		 2250 htab->srelgot = bfd_make_section_with_flags (dynobj,
2251 RELOC_SECTION (htab, ".got"),
3496cb2a
L		 2252 (SEC_ALLOC | SEC_LOAD
2253 | SEC_HAS_CONTENTS
2254 | SEC_IN_MEMORY
2255 | SEC_LINKER_CREATED
2256 | SEC_READONLY));
5e681ec4 2257 if (htab->srelgot == NULL
5e681ec4
PB		 2258 || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
2259 return FALSE;
2260 return TRUE;
2261}
2262
00a97672
RS		 2263/* Create .plt, .rel(a).plt, .got, .got.plt, .rel(a).got, .dynbss, and
2264 .rel(a).bss sections in DYNOBJ, and set up shortcuts to them in our
5e681ec4
PB		 2265 hash table. */
2266
2267static bfd_boolean
57e8b36a 2268elf32_arm_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
5e681ec4
PB		 2269{
2270 struct elf32_arm_link_hash_table *htab;
2271
2272 htab = elf32_arm_hash_table (info);
2273 if (!htab->sgot && !create_got_section (dynobj, info))
2274 return FALSE;
2275
2276 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
2277 return FALSE;
2278
2279 htab->splt = bfd_get_section_by_name (dynobj, ".plt");
00a97672
RS		 2280 htab->srelplt = bfd_get_section_by_name (dynobj,
2281 RELOC_SECTION (htab, ".plt"));
5e681ec4
PB		 2282 htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
2283 if (!info->shared)
00a97672
RS		 2284 htab->srelbss = bfd_get_section_by_name (dynobj,
2285 RELOC_SECTION (htab, ".bss"));
2286
2287 if (htab->vxworks_p)
2288 {
2289 if (!elf_vxworks_create_dynamic_sections (dynobj, info, &htab->srelplt2))
2290 return FALSE;
2291
2292 if (info->shared)
2293 {
2294 htab->plt_header_size = 0;
2295 htab->plt_entry_size
2296 = 4 * ARRAY_SIZE (elf32_arm_vxworks_shared_plt_entry);
2297 }
2298 else
2299 {
2300 htab->plt_header_size
2301 = 4 * ARRAY_SIZE (elf32_arm_vxworks_exec_plt0_entry);
2302 htab->plt_entry_size
2303 = 4 * ARRAY_SIZE (elf32_arm_vxworks_exec_plt_entry);
2304 }
2305 }
5e681ec4 2306
e5a52504
MM		 2307 if (!htab->splt
2308 || !htab->srelplt
2309 || !htab->sdynbss
5e681ec4
PB		 2310 || (!info->shared && !htab->srelbss))
2311 abort ();
2312
2313 return TRUE;
2314}
2315
2316/* Copy the extra info we tack onto an elf_link_hash_entry. */
2317
2318static void
fcfa13d2 2319elf32_arm_copy_indirect_symbol (struct bfd_link_info *info,
5e681ec4
PB		 2320 struct elf_link_hash_entry *dir,
2321 struct elf_link_hash_entry *ind)
2322{
2323 struct elf32_arm_link_hash_entry *edir, *eind;
2324
2325 edir = (struct elf32_arm_link_hash_entry *) dir;
2326 eind = (struct elf32_arm_link_hash_entry *) ind;
2327
2328 if (eind->relocs_copied != NULL)
2329 {
2330 if (edir->relocs_copied != NULL)
2331 {
2332 struct elf32_arm_relocs_copied **pp;
2333 struct elf32_arm_relocs_copied *p;
2334
fcfa13d2 2335 /* Add reloc counts against the indirect sym to the direct sym
5e681ec4
PB		 2336 list. Merge any entries against the same section. */
2337 for (pp = &eind->relocs_copied; (p = *pp) != NULL; )
2338 {
2339 struct elf32_arm_relocs_copied *q;
2340
2341 for (q = edir->relocs_copied; q != NULL; q = q->next)
2342 if (q->section == p->section)
2343 {
ba93b8ac 2344 q->pc_count += p->pc_count;
5e681ec4
PB		 2345 q->count += p->count;
2346 *pp = p->next;
2347 break;
2348 }
2349 if (q == NULL)
2350 pp = &p->next;
2351 }
2352 *pp = edir->relocs_copied;
2353 }
2354
2355 edir->relocs_copied = eind->relocs_copied;
2356 eind->relocs_copied = NULL;
2357 }
2358
b34b2d70 2359 if (ind->root.type == bfd_link_hash_indirect)
ba93b8ac 2360 {
b34b2d70
DJ		 2361 /* Copy over PLT info. */
2362 edir->plt_thumb_refcount += eind->plt_thumb_refcount;
2363 eind->plt_thumb_refcount = 0;
2364
2365 if (dir->got.refcount <= 0)
2366 {
2367 edir->tls_type = eind->tls_type;
2368 eind->tls_type = GOT_UNKNOWN;
2369 }
ba93b8ac
DJ		 2370 }
2371
fcfa13d2 2372 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
5e681ec4
PB		 2373}
2374
9b485d32 2375/* Create an ARM elf linker hash table. */
252b5132
RH		 2376
2377static struct bfd_link_hash_table *
57e8b36a 2378elf32_arm_link_hash_table_create (bfd *abfd)
252b5132
RH		 2379{
2380 struct elf32_arm_link_hash_table *ret;
dc810e39 2381 bfd_size_type amt = sizeof (struct elf32_arm_link_hash_table);
252b5132 2382
57e8b36a
NC		 2383 ret = bfd_malloc (amt);
2384 if (ret == NULL)
252b5132
RH		 2385 return NULL;
2386
57e8b36a 2387 if (!_bfd_elf_link_hash_table_init (& ret->root, abfd,
66eb6687
AM		 2388 elf32_arm_link_hash_newfunc,
2389 sizeof (struct elf32_arm_link_hash_entry)))
252b5132 2390 {
e2d34d7d 2391 free (ret);
252b5132
RH		 2392 return NULL;
2393 }
2394
5e681ec4
PB		 2395 ret->sgot = NULL;
2396 ret->sgotplt = NULL;
2397 ret->srelgot = NULL;
2398 ret->splt = NULL;
2399 ret->srelplt = NULL;
2400 ret->sdynbss = NULL;
2401 ret->srelbss = NULL;
00a97672 2402 ret->srelplt2 = NULL;
252b5132
RH		 2403 ret->thumb_glue_size = 0;
2404 ret->arm_glue_size = 0;
2405 ret->bfd_of_glue_owner = NULL;
e489d0ae 2406 ret->byteswap_code = 0;
9c504268 2407 ret->target1_is_rel = 0;
eb043451 2408 ret->target2_reloc = R_ARM_NONE;
e5a52504
MM		 2409#ifdef FOUR_WORD_PLT
2410 ret->plt_header_size = 16;
2411 ret->plt_entry_size = 16;
2412#else
2413 ret->plt_header_size = 20;
2414 ret->plt_entry_size = 12;
2415#endif
33bfe774
JB		 2416 ret->fix_v4bx = 0;
2417 ret->use_blx = 0;
00a97672 2418 ret->vxworks_p = 0;
e5a52504 2419 ret->symbian_p = 0;
4e7fd91e 2420 ret->use_rel = 1;
5e681ec4 2421 ret->sym_sec.abfd = NULL;
b7693d02 2422 ret->obfd = abfd;
ba93b8ac 2423 ret->tls_ldm_got.refcount = 0;
252b5132
RH		 2424
2425 return &ret->root.root;
2426}
2427
9b485d32
NC		 2428/* Locate the Thumb encoded calling stub for NAME. */
2429
252b5132 2430static struct elf_link_hash_entry *
57e8b36a
NC		 2431find_thumb_glue (struct bfd_link_info *link_info,
2432 const char *name,
2433 bfd *input_bfd)
252b5132
RH		 2434{
2435 char *tmp_name;
2436 struct elf_link_hash_entry *hash;
2437 struct elf32_arm_link_hash_table *hash_table;
2438
2439 /* We need a pointer to the armelf specific hash table. */
2440 hash_table = elf32_arm_hash_table (link_info);
2441
57e8b36a
NC		 2442 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2443 + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1);
252b5132
RH		 2444
2445 BFD_ASSERT (tmp_name);
2446
2447 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
2448
2449 hash = elf_link_hash_lookup
b34976b6 2450 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
252b5132
RH		 2451
2452 if (hash == NULL)
2453 /* xgettext:c-format */
d003868e
AM		 2454 (*_bfd_error_handler) (_("%B: unable to find THUMB glue '%s' for `%s'"),
2455 input_bfd, tmp_name, name);
252b5132
RH		 2456
2457 free (tmp_name);
2458
2459 return hash;
2460}
2461
9b485d32
NC		 2462/* Locate the ARM encoded calling stub for NAME. */
2463
252b5132 2464static struct elf_link_hash_entry *
57e8b36a
NC		 2465find_arm_glue (struct bfd_link_info *link_info,
2466 const char *name,
2467 bfd *input_bfd)
252b5132
RH		 2468{
2469 char *tmp_name;
2470 struct elf_link_hash_entry *myh;
2471 struct elf32_arm_link_hash_table *hash_table;
2472
2473 /* We need a pointer to the elfarm specific hash table. */
2474 hash_table = elf32_arm_hash_table (link_info);
2475
57e8b36a
NC		 2476 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2477 + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1);
252b5132
RH		 2478
2479 BFD_ASSERT (tmp_name);
2480
2481 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
2482
2483 myh = elf_link_hash_lookup
b34976b6 2484 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
252b5132
RH		 2485
2486 if (myh == NULL)
2487 /* xgettext:c-format */
d003868e
AM		 2488 (*_bfd_error_handler) (_("%B: unable to find ARM glue '%s' for `%s'"),
2489 input_bfd, tmp_name, name);
252b5132
RH		 2490
2491 free (tmp_name);
2492
2493 return myh;
2494}
2495
8f6277f5 2496/* ARM->Thumb glue (static images):
252b5132
RH		 2497
2498 .arm
2499 __func_from_arm:
2500 ldr r12, __func_addr
2501 bx r12
2502 __func_addr:
8f6277f5 2503 .word func @ behave as if you saw a ARM_32 reloc.
252b5132 2504
8f6277f5
PB		 2505 (relocatable images)
2506 .arm
2507 __func_from_arm:
2508 ldr r12, __func_offset
2509 add r12, r12, pc
2510 bx r12
2511 __func_offset:
2512 .word func - .
2513 */
2514
2515#define ARM2THUMB_STATIC_GLUE_SIZE 12
252b5132
RH		 2516static const insn32 a2t1_ldr_insn = 0xe59fc000;
2517static const insn32 a2t2_bx_r12_insn = 0xe12fff1c;
2518static const insn32 a2t3_func_addr_insn = 0x00000001;
2519
8f6277f5
PB		 2520#define ARM2THUMB_PIC_GLUE_SIZE 16
2521static const insn32 a2t1p_ldr_insn = 0xe59fc004;
2522static const insn32 a2t2p_add_pc_insn = 0xe08cc00f;
2523static const insn32 a2t3p_bx_r12_insn = 0xe12fff1c;
2524
9b485d32 2525/* Thumb->ARM: Thumb->(non-interworking aware) ARM
252b5132
RH		 2526
2527 .thumb .thumb
2528 .align 2 .align 2
2529 __func_from_thumb: __func_from_thumb:
2530 bx pc push {r6, lr}
2531 nop ldr r6, __func_addr
2532 .arm mov lr, pc
2533 __func_change_to_arm: bx r6
2534 b func .arm
2535 __func_back_to_thumb:
2536 ldmia r13! {r6, lr}
2537 bx lr
2538 __func_addr:
9b485d32 2539 .word func */
252b5132
RH		 2540
2541#define THUMB2ARM_GLUE_SIZE 8
2542static const insn16 t2a1_bx_pc_insn = 0x4778;
2543static const insn16 t2a2_noop_insn = 0x46c0;
2544static const insn32 t2a3_b_insn = 0xea000000;
2545
7e392df6 2546#ifndef ELFARM_NABI_C_INCLUDED
b34976b6 2547bfd_boolean
57e8b36a 2548bfd_elf32_arm_allocate_interworking_sections (struct bfd_link_info * info)
252b5132
RH		 2549{
2550 asection * s;
2551 bfd_byte * foo;
2552 struct elf32_arm_link_hash_table * globals;
2553
2554 globals = elf32_arm_hash_table (info);
2555
2556 BFD_ASSERT (globals != NULL);
2557
2558 if (globals->arm_glue_size != 0)
2559 {
2560 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2561
dc810e39
AM		 2562 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
2563 ARM2THUMB_GLUE_SECTION_NAME);
252b5132
RH		 2564
2565 BFD_ASSERT (s != NULL);
2566
57e8b36a 2567 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->arm_glue_size);
252b5132 2568
eea6121a 2569 s->size = globals->arm_glue_size;
252b5132
RH		 2570 s->contents = foo;
2571 }
2572
2573 if (globals->thumb_glue_size != 0)
2574 {
2575 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2576
2577 s = bfd_get_section_by_name
2578 (globals->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
2579
2580 BFD_ASSERT (s != NULL);
2581
57e8b36a 2582 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->thumb_glue_size);
252b5132 2583
eea6121a 2584 s->size = globals->thumb_glue_size;
252b5132
RH		 2585 s->contents = foo;
2586 }
2587
b34976b6 2588 return TRUE;
252b5132
RH		 2589}
2590
a4fd1a8e
PB		 2591/* Allocate space and symbols for calling a Thumb function from Arm mode.
2592 returns the symbol identifying teh stub. */
2593static struct elf_link_hash_entry *
57e8b36a
NC		 2594record_arm_to_thumb_glue (struct bfd_link_info * link_info,
2595 struct elf_link_hash_entry * h)
252b5132
RH		 2596{
2597 const char * name = h->root.root.string;
63b0f745 2598 asection * s;
252b5132
RH		 2599 char * tmp_name;
2600 struct elf_link_hash_entry * myh;
14a793b2 2601 struct bfd_link_hash_entry * bh;
252b5132 2602 struct elf32_arm_link_hash_table * globals;
dc810e39 2603 bfd_vma val;
252b5132
RH		 2604
2605 globals = elf32_arm_hash_table (link_info);
2606
2607 BFD_ASSERT (globals != NULL);
2608 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2609
2610 s = bfd_get_section_by_name
2611 (globals->bfd_of_glue_owner, ARM2THUMB_GLUE_SECTION_NAME);
2612
252b5132
RH		 2613 BFD_ASSERT (s != NULL);
2614
57e8b36a 2615 tmp_name = bfd_malloc ((bfd_size_type) strlen (name) + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1);
252b5132
RH		 2616
2617 BFD_ASSERT (tmp_name);
2618
2619 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
2620
2621 myh = elf_link_hash_lookup
b34976b6 2622 (&(globals)->root, tmp_name, FALSE, FALSE, TRUE);
252b5132
RH		 2623
2624 if (myh != NULL)
2625 {
9b485d32 2626 /* We've already seen this guy. */
252b5132 2627 free (tmp_name);
a4fd1a8e 2628 return myh;
252b5132
RH		 2629 }
2630
57e8b36a
NC		 2631 /* The only trick here is using hash_table->arm_glue_size as the value.
2632 Even though the section isn't allocated yet, this is where we will be
2633 putting it. */
14a793b2 2634 bh = NULL;
dc810e39
AM		 2635 val = globals->arm_glue_size + 1;
2636 _bfd_generic_link_add_one_symbol (link_info, globals->bfd_of_glue_owner,
2637 tmp_name, BSF_GLOBAL, s, val,
b34976b6 2638 NULL, TRUE, FALSE, &bh);
252b5132 2639
b7693d02
DJ		 2640 myh = (struct elf_link_hash_entry *) bh;
2641 myh->type = ELF_ST_INFO (STB_LOCAL, STT_FUNC);
2642 myh->forced_local = 1;
2643
252b5132
RH		 2644 free (tmp_name);
2645
8f6277f5
PB		 2646 if ((link_info->shared || globals->root.is_relocatable_executable))
2647 globals->arm_glue_size += ARM2THUMB_PIC_GLUE_SIZE;
2648 else
2649 globals->arm_glue_size += ARM2THUMB_STATIC_GLUE_SIZE;
252b5132 2650
a4fd1a8e 2651 return myh;
252b5132
RH		 2652}
2653
2654static void
57e8b36a
NC		 2655record_thumb_to_arm_glue (struct bfd_link_info *link_info,
2656 struct elf_link_hash_entry *h)
252b5132
RH		 2657{
2658 const char *name = h->root.root.string;
63b0f745 2659 asection *s;
252b5132
RH		 2660 char *tmp_name;
2661 struct elf_link_hash_entry *myh;
14a793b2 2662 struct bfd_link_hash_entry *bh;
252b5132 2663 struct elf32_arm_link_hash_table *hash_table;
dc810e39 2664 bfd_vma val;
252b5132
RH		 2665
2666 hash_table = elf32_arm_hash_table (link_info);
2667
2668 BFD_ASSERT (hash_table != NULL);
2669 BFD_ASSERT (hash_table->bfd_of_glue_owner != NULL);
2670
2671 s = bfd_get_section_by_name
2672 (hash_table->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
2673
2674 BFD_ASSERT (s != NULL);
2675
57e8b36a
NC		 2676 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2677 + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1);
252b5132
RH		 2678
2679 BFD_ASSERT (tmp_name);
2680
2681 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
2682
2683 myh = elf_link_hash_lookup
b34976b6 2684 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
252b5132
RH		 2685
2686 if (myh != NULL)
2687 {
9b485d32 2688 /* We've already seen this guy. */
252b5132 2689 free (tmp_name);
9b485d32 2690 return;
252b5132
RH		 2691 }
2692
14a793b2 2693 bh = NULL;
dc810e39
AM		 2694 val = hash_table->thumb_glue_size + 1;
2695 _bfd_generic_link_add_one_symbol (link_info, hash_table->bfd_of_glue_owner,
2696 tmp_name, BSF_GLOBAL, s, val,
b34976b6 2697 NULL, TRUE, FALSE, &bh);
252b5132 2698
9b485d32 2699 /* If we mark it 'Thumb', the disassembler will do a better job. */
14a793b2 2700 myh = (struct elf_link_hash_entry *) bh;
b7693d02
DJ		 2701 myh->type = ELF_ST_INFO (STB_LOCAL, STT_ARM_TFUNC);
2702 myh->forced_local = 1;
252b5132
RH		 2703
2704 free (tmp_name);
2705
252b5132
RH		 2706#define CHANGE_TO_ARM "__%s_change_to_arm"
2707#define BACK_FROM_ARM "__%s_back_from_arm"
2708
9b485d32 2709 /* Allocate another symbol to mark where we switch to Arm mode. */
57e8b36a
NC		 2710 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2711 + strlen (CHANGE_TO_ARM) + 1);
252b5132
RH		 2712
2713 BFD_ASSERT (tmp_name);
2714
2715 sprintf (tmp_name, CHANGE_TO_ARM, name);
2716
14a793b2 2717 bh = NULL;
dc810e39
AM		 2718 val = hash_table->thumb_glue_size + 4,
2719 _bfd_generic_link_add_one_symbol (link_info, hash_table->bfd_of_glue_owner,
2720 tmp_name, BSF_LOCAL, s, val,
b34976b6 2721 NULL, TRUE, FALSE, &bh);
252b5132
RH		 2722
2723 free (tmp_name);
2724
2725 hash_table->thumb_glue_size += THUMB2ARM_GLUE_SIZE;
2726
2727 return;
2728}
2729
8afb0e02
NC		 2730/* Add the glue sections to ABFD. This function is called from the
2731 linker scripts in ld/emultempl/{armelf}.em. */
9b485d32 2732
b34976b6 2733bfd_boolean
57e8b36a
NC		 2734bfd_elf32_arm_add_glue_sections_to_bfd (bfd *abfd,
2735 struct bfd_link_info *info)
252b5132 2736{
252b5132
RH		 2737 flagword flags;
2738 asection *sec;
2739
8afb0e02
NC		 2740 /* If we are only performing a partial
2741 link do not bother adding the glue. */
1049f94e 2742 if (info->relocatable)
b34976b6 2743 return TRUE;
252b5132 2744
252b5132
RH		 2745 sec = bfd_get_section_by_name (abfd, ARM2THUMB_GLUE_SECTION_NAME);
2746
2747 if (sec == NULL)
2748 {
57db232e
NC		 2749 /* Note: we do not include the flag SEC_LINKER_CREATED, as this
2750 will prevent elf_link_input_bfd() from processing the contents
2751 of this section. */
811b4bf6 2752 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_CODE | SEC_READONLY;
252b5132 2753
3496cb2a
L		 2754 sec = bfd_make_section_with_flags (abfd,
2755 ARM2THUMB_GLUE_SECTION_NAME,
2756 flags);
252b5132
RH		 2757
2758 if (sec == NULL
252b5132 2759 || !bfd_set_section_alignment (abfd, sec, 2))
b34976b6 2760 return FALSE;
9a5aca8c 2761
57db232e
NC		 2762 /* Set the gc mark to prevent the section from being removed by garbage
2763 collection, despite the fact that no relocs refer to this section. */
2764 sec->gc_mark = 1;
252b5132
RH		 2765 }
2766
2767 sec = bfd_get_section_by_name (abfd, THUMB2ARM_GLUE_SECTION_NAME);
2768
2769 if (sec == NULL)
2770 {
57e8b36a
NC		 2771 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2772 | SEC_CODE | SEC_READONLY;
252b5132 2773
3496cb2a
L		 2774 sec = bfd_make_section_with_flags (abfd,
2775 THUMB2ARM_GLUE_SECTION_NAME,
2776 flags);
252b5132
RH		 2777
2778 if (sec == NULL
252b5132 2779 || !bfd_set_section_alignment (abfd, sec, 2))
b34976b6 2780 return FALSE;
9a5aca8c 2781
57db232e 2782 sec->gc_mark = 1;
252b5132
RH		 2783 }
2784
b34976b6 2785 return TRUE;
8afb0e02
NC		 2786}
2787
2788/* Select a BFD to be used to hold the sections used by the glue code.
2789 This function is called from the linker scripts in ld/emultempl/
2790 {armelf/pe}.em */
2791
b34976b6 2792bfd_boolean
57e8b36a 2793bfd_elf32_arm_get_bfd_for_interworking (bfd *abfd, struct bfd_link_info *info)
8afb0e02
NC		 2794{
2795 struct elf32_arm_link_hash_table *globals;
2796
2797 /* If we are only performing a partial link
2798 do not bother getting a bfd to hold the glue. */
1049f94e 2799 if (info->relocatable)
b34976b6 2800 return TRUE;
8afb0e02 2801
b7693d02
DJ		 2802 /* Make sure we don't attach the glue sections to a dynamic object. */
2803 BFD_ASSERT (!(abfd->flags & DYNAMIC));
2804
8afb0e02
NC		 2805 globals = elf32_arm_hash_table (info);
2806
2807 BFD_ASSERT (globals != NULL);
2808
2809 if (globals->bfd_of_glue_owner != NULL)
b34976b6 2810 return TRUE;
8afb0e02 2811
252b5132
RH		 2812 /* Save the bfd for later use. */
2813 globals->bfd_of_glue_owner = abfd;
cedb70c5 2814
b34976b6 2815 return TRUE;
252b5132
RH		 2816}
2817
39b41c9c
PB		 2818static void check_use_blx(struct elf32_arm_link_hash_table *globals)
2819{
2820 if (elf32_arm_get_eabi_attr_int (globals->obfd, Tag_CPU_arch) > 2)
2821 globals->use_blx = 1;
2822}
2823
b34976b6 2824bfd_boolean
57e8b36a
NC		 2825bfd_elf32_arm_process_before_allocation (bfd *abfd,
2826 struct bfd_link_info *link_info,
eb043451 2827 int byteswap_code)
252b5132
RH		 2828{
2829 Elf_Internal_Shdr *symtab_hdr;
6cdc0ccc 2830 Elf_Internal_Rela *internal_relocs = NULL;
252b5132
RH		 2831 Elf_Internal_Rela *irel, *irelend;
2832 bfd_byte *contents = NULL;
252b5132
RH		 2833
2834 asection *sec;
2835 struct elf32_arm_link_hash_table *globals;
2836
2837 /* If we are only performing a partial link do not bother
2838 to construct any glue. */
1049f94e 2839 if (link_info->relocatable)
b34976b6 2840 return TRUE;
252b5132
RH		 2841
2842 /* Here we have a bfd that is to be included on the link. We have a hook
2843 to do reloc rummaging, before section sizes are nailed down. */
252b5132 2844 globals = elf32_arm_hash_table (link_info);
39b41c9c 2845 check_use_blx (globals);
252b5132
RH		 2846
2847 BFD_ASSERT (globals != NULL);
2848 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2849
e489d0ae
PB		 2850 if (byteswap_code && !bfd_big_endian (abfd))
2851 {
d003868e
AM		 2852 _bfd_error_handler (_("%B: BE8 images only valid in big-endian mode."),
2853 abfd);
e489d0ae
PB		 2854 return FALSE;
2855 }
2856 globals->byteswap_code = byteswap_code;
f21f3fe0 2857
252b5132
RH		 2858 /* Rummage around all the relocs and map the glue vectors. */
2859 sec = abfd->sections;
2860
2861 if (sec == NULL)
b34976b6 2862 return TRUE;
252b5132
RH		 2863
2864 for (; sec != NULL; sec = sec->next)
2865 {
2866 if (sec->reloc_count == 0)
2867 continue;
2868
2869 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
252b5132 2870
9b485d32 2871 /* Load the relocs. */
6cdc0ccc 2872 internal_relocs
57e8b36a 2873 = _bfd_elf_link_read_relocs (abfd, sec, (void *) NULL,
45d6a902 2874 (Elf_Internal_Rela *) NULL, FALSE);
252b5132 2875
6cdc0ccc
AM		 2876 if (internal_relocs == NULL)
2877 goto error_return;
252b5132 2878
6cdc0ccc
AM		 2879 irelend = internal_relocs + sec->reloc_count;
2880 for (irel = internal_relocs; irel < irelend; irel++)
252b5132
RH		 2881 {
2882 long r_type;
2883 unsigned long r_index;
252b5132
RH		 2884
2885 struct elf_link_hash_entry *h;
2886
2887 r_type = ELF32_R_TYPE (irel->r_info);
2888 r_index = ELF32_R_SYM (irel->r_info);
2889
9b485d32 2890 /* These are the only relocation types we care about. */
ba96a88f 2891 if ( r_type != R_ARM_PC24
b7693d02 2892 && r_type != R_ARM_PLT32
5b5bb741
PB		 2893 && r_type != R_ARM_CALL
2894 && r_type != R_ARM_JUMP24
c19d1205 2895 && r_type != R_ARM_THM_CALL)
252b5132
RH		 2896 continue;
2897
2898 /* Get the section contents if we haven't done so already. */
2899 if (contents == NULL)
2900 {
2901 /* Get cached copy if it exists. */
2902 if (elf_section_data (sec)->this_hdr.contents != NULL)
2903 contents = elf_section_data (sec)->this_hdr.contents;
2904 else
2905 {
2906 /* Go get them off disk. */
57e8b36a 2907 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
252b5132
RH		 2908 goto error_return;
2909 }
2910 }
2911
a7c10850 2912 /* If the relocation is not against a symbol it cannot concern us. */
252b5132
RH		 2913 h = NULL;
2914
9b485d32 2915 /* We don't care about local symbols. */
252b5132
RH		 2916 if (r_index < symtab_hdr->sh_info)
2917 continue;
2918
9b485d32 2919 /* This is an external symbol. */
252b5132
RH		 2920 r_index -= symtab_hdr->sh_info;
2921 h = (struct elf_link_hash_entry *)
2922 elf_sym_hashes (abfd)[r_index];
2923
2924 /* If the relocation is against a static symbol it must be within
2925 the current section and so cannot be a cross ARM/Thumb relocation. */
2926 if (h == NULL)
2927 continue;
2928
b7693d02
DJ		 2929 /* If the call will go through a PLT entry then we do not need
2930 glue. */
2931 if (globals->splt != NULL && h->plt.offset != (bfd_vma) -1)
2932 continue;
2933
252b5132
RH		 2934 switch (r_type)
2935 {
2936 case R_ARM_PC24:
c6596c5e 2937 case R_ARM_PLT32:
5b5bb741
PB		 2938 case R_ARM_CALL:
2939 case R_ARM_JUMP24:
252b5132 2940 /* This one is a call from arm code. We need to look up
2f0ca46a 2941 the target of the call. If it is a thumb target, we
252b5132 2942 insert glue. */
39b41c9c
PB		 2943 if (ELF_ST_TYPE(h->type) == STT_ARM_TFUNC
2944 && !(r_type == R_ARM_CALL && globals->use_blx))
252b5132
RH		 2945 record_arm_to_thumb_glue (link_info, h);
2946 break;
2947
c19d1205 2948 case R_ARM_THM_CALL:
f21f3fe0 2949 /* This one is a call from thumb code. We look
2f0ca46a 2950 up the target of the call. If it is not a thumb
bcbdc74c 2951 target, we insert glue. */
39b41c9c 2952 if (ELF_ST_TYPE (h->type) != STT_ARM_TFUNC && !globals->use_blx)
252b5132
RH		 2953 record_thumb_to_arm_glue (link_info, h);
2954 break;
2955
2956 default:
c6596c5e 2957 abort ();
252b5132
RH		 2958 }
2959 }
6cdc0ccc
AM		 2960
2961 if (contents != NULL
2962 && elf_section_data (sec)->this_hdr.contents != contents)
2963 free (contents);
2964 contents = NULL;
2965
2966 if (internal_relocs != NULL
2967 && elf_section_data (sec)->relocs != internal_relocs)
2968 free (internal_relocs);
2969 internal_relocs = NULL;
252b5132
RH		 2970 }
2971
b34976b6 2972 return TRUE;
9a5aca8c 2973
252b5132 2974error_return:
6cdc0ccc
AM		 2975 if (contents != NULL
2976 && elf_section_data (sec)->this_hdr.contents != contents)
2977 free (contents);
2978 if (internal_relocs != NULL
2979 && elf_section_data (sec)->relocs != internal_relocs)
2980 free (internal_relocs);
9a5aca8c 2981
b34976b6 2982 return FALSE;
252b5132 2983}
7e392df6 2984#endif
252b5132 2985
eb043451 2986
eb043451
PB		 2987/* Set target relocation values needed during linking. */
2988
2989void
2990bfd_elf32_arm_set_target_relocs (struct bfd_link_info *link_info,
2991 int target1_is_rel,
319850b4 2992 char * target2_type,
33bfe774
JB		 2993 int fix_v4bx,
2994 int use_blx)
eb043451
PB		 2995{
2996 struct elf32_arm_link_hash_table *globals;
2997
2998 globals = elf32_arm_hash_table (link_info);
2999
3000 globals->target1_is_rel = target1_is_rel;
3001 if (strcmp (target2_type, "rel") == 0)
3002 globals->target2_reloc = R_ARM_REL32;
eeac373a
PB		 3003 else if (strcmp (target2_type, "abs") == 0)
3004 globals->target2_reloc = R_ARM_ABS32;
eb043451
PB		 3005 else if (strcmp (target2_type, "got-rel") == 0)
3006 globals->target2_reloc = R_ARM_GOT_PREL;
3007 else
3008 {
3009 _bfd_error_handler (_("Invalid TARGET2 relocation type '%s'."),
3010 target2_type);
3011 }
319850b4 3012 globals->fix_v4bx = fix_v4bx;
33bfe774 3013 globals->use_blx |= use_blx;
eb043451 3014}
eb043451 3015
252b5132
RH		 3016/* The thumb form of a long branch is a bit finicky, because the offset
3017 encoding is split over two fields, each in it's own instruction. They
f21f3fe0 3018 can occur in any order. So given a thumb form of long branch, and an
252b5132 3019 offset, insert the offset into the thumb branch and return finished
f21f3fe0 3020 instruction.
252b5132 3021
f21f3fe0 3022 It takes two thumb instructions to encode the target address. Each has
4cc11e76 3023 11 bits to invest. The upper 11 bits are stored in one (identified by
f21f3fe0
UD		 3024 H-0.. see below), the lower 11 bits are stored in the other (identified
3025 by H-1).
252b5132 3026
f21f3fe0 3027 Combine together and shifted left by 1 (it's a half word address) and
252b5132
RH		 3028 there you have it.
3029
3030 Op: 1111 = F,
3031 H-0, upper address-0 = 000
3032 Op: 1111 = F,
3033 H-1, lower address-0 = 800
3034
f21f3fe0 3035 They can be ordered either way, but the arm tools I've seen always put
252b5132
RH		 3036 the lower one first. It probably doesn't matter. krk@cygnus.com
3037
3038 XXX: Actually the order does matter. The second instruction (H-1)
3039 moves the computed address into the PC, so it must be the second one
3040 in the sequence. The problem, however is that whilst little endian code
3041 stores the instructions in HI then LOW order, big endian code does the
dfc5f959 3042 reverse. nickc@cygnus.com. */
252b5132 3043
dfc5f959
NC		 3044#define LOW_HI_ORDER 0xF800F000
3045#define HI_LOW_ORDER 0xF000F800
252b5132
RH		 3046
3047static insn32
57e8b36a 3048insert_thumb_branch (insn32 br_insn, int rel_off)
252b5132
RH		 3049{
3050 unsigned int low_bits;
3051 unsigned int high_bits;
3052
252b5132
RH		 3053 BFD_ASSERT ((rel_off & 1) != 1);
3054
dfc5f959
NC		 3055 rel_off >>= 1; /* Half word aligned address. */
3056 low_bits = rel_off & 0x000007FF; /* The bottom 11 bits. */
3057 high_bits = (rel_off >> 11) & 0x000007FF; /* The top 11 bits. */
252b5132
RH		 3058
3059 if ((br_insn & LOW_HI_ORDER) == LOW_HI_ORDER)
3060 br_insn = LOW_HI_ORDER | (low_bits << 16) | high_bits;
3061 else if ((br_insn & HI_LOW_ORDER) == HI_LOW_ORDER)
3062 br_insn = HI_LOW_ORDER | (high_bits << 16) | low_bits;
3063 else
9b485d32 3064 /* FIXME: abort is probably not the right call. krk@cygnus.com */
57e8b36a 3065 abort (); /* Error - not a valid branch instruction form. */
252b5132 3066
252b5132
RH		 3067 return br_insn;
3068}
3069
52ab56c2
PB		 3070
3071/* Store an Arm insn into an output section not processed by
3072 elf32_arm_write_section. */
3073
3074static void
3075put_arm_insn (struct elf32_arm_link_hash_table *htab,
3076 bfd * output_bfd, bfd_vma val, void * ptr)
3077{
3078 if (htab->byteswap_code != bfd_little_endian (output_bfd))
3079 bfd_putl32 (val, ptr);
3080 else
3081 bfd_putb32 (val, ptr);
3082}
3083
3084
3085/* Store a 16-bit Thumb insn into an output section not processed by
3086 elf32_arm_write_section. */
3087
3088static void
3089put_thumb_insn (struct elf32_arm_link_hash_table *htab,
3090 bfd * output_bfd, bfd_vma val, void * ptr)
3091{
3092 if (htab->byteswap_code != bfd_little_endian (output_bfd))
3093 bfd_putl16 (val, ptr);
3094 else
3095 bfd_putb16 (val, ptr);
3096}
3097
3098
9b485d32
NC		 3099/* Thumb code calling an ARM function. */
3100
252b5132 3101static int
57e8b36a
NC		 3102elf32_thumb_to_arm_stub (struct bfd_link_info * info,
3103 const char * name,
3104 bfd * input_bfd,
3105 bfd * output_bfd,
3106 asection * input_section,
3107 bfd_byte * hit_data,
3108 asection * sym_sec,
3109 bfd_vma offset,
3110 bfd_signed_vma addend,
3111 bfd_vma val)
252b5132 3112{
bcbdc74c 3113 asection * s = 0;
dc810e39 3114 bfd_vma my_offset;
252b5132
RH		 3115 unsigned long int tmp;
3116 long int ret_offset;
bcbdc74c
NC		 3117 struct elf_link_hash_entry * myh;
3118 struct elf32_arm_link_hash_table * globals;
252b5132
RH		 3119
3120 myh = find_thumb_glue (info, name, input_bfd);
3121 if (myh == NULL)
b34976b6 3122 return FALSE;
252b5132
RH		 3123
3124 globals = elf32_arm_hash_table (info);
3125
3126 BFD_ASSERT (globals != NULL);
3127 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3128
3129 my_offset = myh->root.u.def.value;
3130
3131 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3132 THUMB2ARM_GLUE_SECTION_NAME);
3133
3134 BFD_ASSERT (s != NULL);
3135 BFD_ASSERT (s->contents != NULL);
3136 BFD_ASSERT (s->output_section != NULL);
3137
3138 if ((my_offset & 0x01) == 0x01)
3139 {
3140 if (sym_sec != NULL
3141 && sym_sec->owner != NULL
3142 && !INTERWORK_FLAG (sym_sec->owner))
3143 {
8f615d07 3144 (*_bfd_error_handler)
d003868e
AM		 3145 (_("%B(%s): warning: interworking not enabled.\n"
3146 " first occurrence: %B: thumb call to arm"),
3147 sym_sec->owner, input_bfd, name);
252b5132 3148
b34976b6 3149 return FALSE;
252b5132
RH		 3150 }
3151
3152 --my_offset;
3153 myh->root.u.def.value = my_offset;
3154
52ab56c2
PB		 3155 put_thumb_insn (globals, output_bfd, (bfd_vma) t2a1_bx_pc_insn,
3156 s->contents + my_offset);
252b5132 3157
52ab56c2
PB		 3158 put_thumb_insn (globals, output_bfd, (bfd_vma) t2a2_noop_insn,
3159 s->contents + my_offset + 2);
252b5132
RH		 3160
3161 ret_offset =
9b485d32
NC		 3162 /* Address of destination of the stub. */
3163 ((bfd_signed_vma) val)
252b5132 3164 - ((bfd_signed_vma)
57e8b36a
NC		 3165 /* Offset from the start of the current section
3166 to the start of the stubs. */
9b485d32
NC		 3167 (s->output_offset
3168 /* Offset of the start of this stub from the start of the stubs. */
3169 + my_offset
3170 /* Address of the start of the current section. */
3171 + s->output_section->vma)
3172 /* The branch instruction is 4 bytes into the stub. */
3173 + 4
3174 /* ARM branches work from the pc of the instruction + 8. */
3175 + 8);
252b5132 3176
52ab56c2
PB		 3177 put_arm_insn (globals, output_bfd,
3178 (bfd_vma) t2a3_b_insn | ((ret_offset >> 2) & 0x00FFFFFF),
3179 s->contents + my_offset + 4);
252b5132
RH		 3180 }
3181
3182 BFD_ASSERT (my_offset <= globals->thumb_glue_size);
3183
427bfd90
NC		 3184 /* Now go back and fix up the original BL insn to point to here. */
3185 ret_offset =
3186 /* Address of where the stub is located. */
3187 (s->output_section->vma + s->output_offset + my_offset)
3188 /* Address of where the BL is located. */
57e8b36a
NC		 3189 - (input_section->output_section->vma + input_section->output_offset
3190 + offset)
427bfd90
NC		 3191 /* Addend in the relocation. */
3192 - addend
3193 /* Biassing for PC-relative addressing. */
3194 - 8;
252b5132
RH		 3195
3196 tmp = bfd_get_32 (input_bfd, hit_data
3197 - input_section->vma);
3198
3199 bfd_put_32 (output_bfd,
dc810e39 3200 (bfd_vma) insert_thumb_branch (tmp, ret_offset),
252b5132
RH		 3201 hit_data - input_section->vma);
3202
b34976b6 3203 return TRUE;
252b5132
RH		 3204}
3205
a4fd1a8e 3206/* Populate an Arm to Thumb stub. Returns the stub symbol. */
9b485d32 3207
a4fd1a8e
PB		 3208static struct elf_link_hash_entry *
3209elf32_arm_create_thumb_stub (struct bfd_link_info * info,
3210 const char * name,
3211 bfd * input_bfd,
3212 bfd * output_bfd,
3213 asection * sym_sec,
3214 bfd_vma val,
3215 asection *s)
252b5132 3216{
dc810e39 3217 bfd_vma my_offset;
252b5132 3218 long int ret_offset;
bcbdc74c
NC		 3219 struct elf_link_hash_entry * myh;
3220 struct elf32_arm_link_hash_table * globals;
252b5132
RH		 3221
3222 myh = find_arm_glue (info, name, input_bfd);
3223 if (myh == NULL)
a4fd1a8e 3224 return NULL;
252b5132
RH		 3225
3226 globals = elf32_arm_hash_table (info);
3227
3228 BFD_ASSERT (globals != NULL);
3229 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3230
3231 my_offset = myh->root.u.def.value;
252b5132
RH		 3232
3233 if ((my_offset & 0x01) == 0x01)
3234 {
3235 if (sym_sec != NULL
3236 && sym_sec->owner != NULL
3237 && !INTERWORK_FLAG (sym_sec->owner))
3238 {
8f615d07 3239 (*_bfd_error_handler)
d003868e
AM		 3240 (_("%B(%s): warning: interworking not enabled.\n"
3241 " first occurrence: %B: arm call to thumb"),
3242 sym_sec->owner, input_bfd, name);
252b5132 3243 }
9b485d32 3244
252b5132
RH		 3245 --my_offset;
3246 myh->root.u.def.value = my_offset;
3247
8f6277f5
PB		 3248 if ((info->shared || globals->root.is_relocatable_executable))
3249 {
3250 /* For relocatable objects we can't use absolute addresses,
3251 so construct the address from a relative offset. */
3252 /* TODO: If the offset is small it's probably worth
3253 constructing the address with adds. */
52ab56c2
PB		 3254 put_arm_insn (globals, output_bfd, (bfd_vma) a2t1p_ldr_insn,
3255 s->contents + my_offset);
3256 put_arm_insn (globals, output_bfd, (bfd_vma) a2t2p_add_pc_insn,
3257 s->contents + my_offset + 4);
3258 put_arm_insn (globals, output_bfd, (bfd_vma) a2t3p_bx_r12_insn,
3259 s->contents + my_offset + 8);
8f6277f5
PB		 3260 /* Adjust the offset by 4 for the position of the add,
3261 and 8 for the pipeline offset. */
3262 ret_offset = (val - (s->output_offset
3263 + s->output_section->vma
3264 + my_offset + 12))
3265 | 1;
3266 bfd_put_32 (output_bfd, ret_offset,
3267 s->contents + my_offset + 12);
3268 }
3269 else
3270 {
52ab56c2
PB		 3271 put_arm_insn (globals, output_bfd, (bfd_vma) a2t1_ldr_insn,
3272 s->contents + my_offset);
252b5132 3273
52ab56c2
PB		 3274 put_arm_insn (globals, output_bfd, (bfd_vma) a2t2_bx_r12_insn,
3275 s->contents + my_offset + 4);
252b5132 3276
8f6277f5
PB		 3277 /* It's a thumb address. Add the low order bit. */
3278 bfd_put_32 (output_bfd, val | a2t3_func_addr_insn,
3279 s->contents + my_offset + 8);
3280 }
252b5132
RH		 3281 }
3282
3283 BFD_ASSERT (my_offset <= globals->arm_glue_size);
3284
a4fd1a8e
PB		 3285 return myh;
3286}
3287
3288/* Arm code calling a Thumb function. */
3289
3290static int
3291elf32_arm_to_thumb_stub (struct bfd_link_info * info,
3292 const char * name,
3293 bfd * input_bfd,
3294 bfd * output_bfd,
3295 asection * input_section,
3296 bfd_byte * hit_data,
3297 asection * sym_sec,
3298 bfd_vma offset,
3299 bfd_signed_vma addend,
3300 bfd_vma val)
3301{
3302 unsigned long int tmp;
3303 bfd_vma my_offset;
3304 asection * s;
3305 long int ret_offset;
3306 struct elf_link_hash_entry * myh;
3307 struct elf32_arm_link_hash_table * globals;
3308
3309 globals = elf32_arm_hash_table (info);
3310
3311 BFD_ASSERT (globals != NULL);
3312 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3313
3314 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3315 ARM2THUMB_GLUE_SECTION_NAME);
3316 BFD_ASSERT (s != NULL);
3317 BFD_ASSERT (s->contents != NULL);
3318 BFD_ASSERT (s->output_section != NULL);
3319
3320 myh = elf32_arm_create_thumb_stub (info, name, input_bfd, output_bfd,
3321 sym_sec, val, s);
3322 if (!myh)
3323 return FALSE;
3324
3325 my_offset = myh->root.u.def.value;
252b5132
RH		 3326 tmp = bfd_get_32 (input_bfd, hit_data);
3327 tmp = tmp & 0xFF000000;
3328
9b485d32 3329 /* Somehow these are both 4 too far, so subtract 8. */
dc810e39
AM		 3330 ret_offset = (s->output_offset
3331 + my_offset
3332 + s->output_section->vma
3333 - (input_section->output_offset
3334 + input_section->output_section->vma
3335 + offset + addend)
3336 - 8);
9a5aca8c 3337
252b5132
RH		 3338 tmp = tmp | ((ret_offset >> 2) & 0x00FFFFFF);
3339
dc810e39 3340 bfd_put_32 (output_bfd, (bfd_vma) tmp, hit_data - input_section->vma);
252b5132 3341
b34976b6 3342 return TRUE;
252b5132
RH		 3343}
3344
a4fd1a8e
PB		 3345/* Populate Arm stub for an exported Thumb function. */
3346
3347static bfd_boolean
3348elf32_arm_to_thumb_export_stub (struct elf_link_hash_entry *h, void * inf)
3349{
3350 struct bfd_link_info * info = (struct bfd_link_info *) inf;
3351 asection * s;
3352 struct elf_link_hash_entry * myh;
3353 struct elf32_arm_link_hash_entry *eh;
3354 struct elf32_arm_link_hash_table * globals;
3355 asection *sec;
3356 bfd_vma val;
3357
3358 eh = elf32_arm_hash_entry(h);
3359 /* Allocate stubs for exported Thumb functions on v4t. */
3360 if (eh->export_glue == NULL)
3361 return TRUE;
3362
3363 globals = elf32_arm_hash_table (info);
3364
3365 BFD_ASSERT (globals != NULL);
3366 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3367
3368 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3369 ARM2THUMB_GLUE_SECTION_NAME);
3370 BFD_ASSERT (s != NULL);
3371 BFD_ASSERT (s->contents != NULL);
3372 BFD_ASSERT (s->output_section != NULL);
3373
3374 sec = eh->export_glue->root.u.def.section;
3375 val = eh->export_glue->root.u.def.value + sec->output_offset
3376 + sec->output_section->vma;
3377 myh = elf32_arm_create_thumb_stub (info, h->root.root.string,
3378 h->root.u.def.section->owner,
3379 globals->obfd, sec, val, s);
3380 BFD_ASSERT (myh);
3381 return TRUE;
3382}
3383
3384/* Generate Arm stubs for exported Thumb symbols. */
3385static void
3386elf32_arm_begin_write_processing (bfd *abfd ATTRIBUTE_UNUSED,
3387 struct bfd_link_info *link_info)
3388{
3389 struct elf32_arm_link_hash_table * globals;
3390
3391 if (!link_info)
3392 return;
3393
3394 globals = elf32_arm_hash_table (link_info);
84c08195
PB		 3395 /* If blx is available then exported Thumb symbols are OK and there is
3396 nothing to do. */
a4fd1a8e
PB		 3397 if (globals->use_blx)
3398 return;
3399
3400 elf_link_hash_traverse (&globals->root, elf32_arm_to_thumb_export_stub,
3401 link_info);
3402}
3403
eb043451
PB		 3404/* Some relocations map to different relocations depending on the
3405 target. Return the real relocation. */
3406static int
3407arm_real_reloc_type (struct elf32_arm_link_hash_table * globals,
3408 int r_type)
3409{
3410 switch (r_type)
3411 {
3412 case R_ARM_TARGET1:
3413 if (globals->target1_is_rel)
3414 return R_ARM_REL32;
3415 else
3416 return R_ARM_ABS32;
3417
3418 case R_ARM_TARGET2:
3419 return globals->target2_reloc;
3420
3421 default:
3422 return r_type;
3423 }
3424}
eb043451 3425
ba93b8ac
DJ		 3426/* Return the base VMA address which should be subtracted from real addresses
3427 when resolving @dtpoff relocation.
3428 This is PT_TLS segment p_vaddr. */
3429
3430static bfd_vma
3431dtpoff_base (struct bfd_link_info *info)
3432{
3433 /* If tls_sec is NULL, we should have signalled an error already. */
3434 if (elf_hash_table (info)->tls_sec == NULL)
3435 return 0;
3436 return elf_hash_table (info)->tls_sec->vma;
3437}
3438
3439/* Return the relocation value for @tpoff relocation
3440 if STT_TLS virtual address is ADDRESS. */
3441
3442static bfd_vma
3443tpoff (struct bfd_link_info *info, bfd_vma address)
3444{
3445 struct elf_link_hash_table *htab = elf_hash_table (info);
3446 bfd_vma base;
3447
3448 /* If tls_sec is NULL, we should have signalled an error already. */
3449 if (htab->tls_sec == NULL)
3450 return 0;
3451 base = align_power ((bfd_vma) TCB_SIZE, htab->tls_sec->alignment_power);
3452 return address - htab->tls_sec->vma + base;
3453}
3454
00a97672
RS		 3455/* Perform an R_ARM_ABS12 relocation on the field pointed to by DATA.
3456 VALUE is the relocation value. */
3457
3458static bfd_reloc_status_type
3459elf32_arm_abs12_reloc (bfd *abfd, void *data, bfd_vma value)
3460{
3461 if (value > 0xfff)
3462 return bfd_reloc_overflow;
3463
3464 value |= bfd_get_32 (abfd, data) & 0xfffff000;
3465 bfd_put_32 (abfd, value, data);
3466 return bfd_reloc_ok;
3467}
3468
4962c51a
MS		 3469/* For a given value of n, calculate the value of G_n as required to
3470 deal with group relocations. We return it in the form of an
3471 encoded constant-and-rotation, together with the final residual. If n is
3472 specified as less than zero, then final_residual is filled with the
3473 input value and no further action is performed. */
3474
3475static bfd_vma
3476calculate_group_reloc_mask (bfd_vma value, int n, bfd_vma *final_residual)
3477{
3478 int current_n;
3479 bfd_vma g_n;
3480 bfd_vma encoded_g_n = 0;
3481 bfd_vma residual = value; /* Also known as Y_n. */
3482
3483 for (current_n = 0; current_n <= n; current_n++)
3484 {
3485 int shift;
3486
3487 /* Calculate which part of the value to mask. */
3488 if (residual == 0)
3489 shift = 0;
3490 else
3491 {
3492 int msb;
3493
3494 /* Determine the most significant bit in the residual and
3495 align the resulting value to a 2-bit boundary. */
3496 for (msb = 30; msb >= 0; msb -= 2)
3497 if (residual & (3 << msb))
3498 break;
3499
3500 /* The desired shift is now (msb - 6), or zero, whichever
3501 is the greater. */
3502 shift = msb - 6;
3503 if (shift < 0)
3504 shift = 0;
3505 }
3506
3507 /* Calculate g_n in 32-bit as well as encoded constant+rotation form. */
3508 g_n = residual & (0xff << shift);
3509 encoded_g_n = (g_n >> shift)
3510 | ((g_n <= 0xff ? 0 : (32 - shift) / 2) << 8);
3511
3512 /* Calculate the residual for the next time around. */
3513 residual &= ~g_n;
3514 }
3515
3516 *final_residual = residual;
3517
3518 return encoded_g_n;
3519}
3520
3521/* Given an ARM instruction, determine whether it is an ADD or a SUB.
3522 Returns 1 if it is an ADD, -1 if it is a SUB, and 0 otherwise. */
3523static int
3524identify_add_or_sub(bfd_vma insn)
3525{
3526 int opcode = insn & 0x1e00000;
3527
3528 if (opcode == 1 << 23) /* ADD */
3529 return 1;
3530
3531 if (opcode == 1 << 22) /* SUB */
3532 return -1;
3533
3534 return 0;
3535}
3536
252b5132 3537/* Perform a relocation as part of a final link. */
9b485d32 3538
252b5132 3539static bfd_reloc_status_type
57e8b36a
NC		 3540elf32_arm_final_link_relocate (reloc_howto_type * howto,
3541 bfd * input_bfd,
3542 bfd * output_bfd,
3543 asection * input_section,
3544 bfd_byte * contents,
3545 Elf_Internal_Rela * rel,
3546 bfd_vma value,
3547 struct bfd_link_info * info,
3548 asection * sym_sec,
3549 const char * sym_name,
3550 int sym_flags,
0945cdfd
DJ		 3551 struct elf_link_hash_entry * h,
3552 bfd_boolean * unresolved_reloc_p)
252b5132
RH		 3553{
3554 unsigned long r_type = howto->type;
3555 unsigned long r_symndx;
3556 bfd_byte * hit_data = contents + rel->r_offset;
3557 bfd * dynobj = NULL;
3558 Elf_Internal_Shdr * symtab_hdr;
3559 struct elf_link_hash_entry ** sym_hashes;
3560 bfd_vma * local_got_offsets;
3561 asection * sgot = NULL;
3562 asection * splt = NULL;
3563 asection * sreloc = NULL;
252b5132 3564 bfd_vma addend;
ba96a88f
NC		 3565 bfd_signed_vma signed_addend;
3566 struct elf32_arm_link_hash_table * globals;
f21f3fe0 3567
9c504268
PB		 3568 globals = elf32_arm_hash_table (info);
3569
9c504268
PB		 3570 /* Some relocation type map to different relocations depending on the
3571 target. We pick the right one here. */
eb043451
PB		 3572 r_type = arm_real_reloc_type (globals, r_type);
3573 if (r_type != howto->type)
3574 howto = elf32_arm_howto_from_type (r_type);
9c504268 3575
cac15327
NC		 3576 /* If the start address has been set, then set the EF_ARM_HASENTRY
3577 flag. Setting this more than once is redundant, but the cost is
3578 not too high, and it keeps the code simple.
99e4ae17 3579
cac15327
NC		 3580 The test is done here, rather than somewhere else, because the
3581 start address is only set just before the final link commences.
3582
3583 Note - if the user deliberately sets a start address of 0, the
3584 flag will not be set. */
3585 if (bfd_get_start_address (output_bfd) != 0)
3586 elf_elfheader (output_bfd)->e_flags |= EF_ARM_HASENTRY;
99e4ae17 3587
252b5132
RH		 3588 dynobj = elf_hash_table (info)->dynobj;
3589 if (dynobj)
3590 {
3591 sgot = bfd_get_section_by_name (dynobj, ".got");
3592 splt = bfd_get_section_by_name (dynobj, ".plt");
3593 }
3594 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
3595 sym_hashes = elf_sym_hashes (input_bfd);
3596 local_got_offsets = elf_local_got_offsets (input_bfd);
3597 r_symndx = ELF32_R_SYM (rel->r_info);
3598
4e7fd91e 3599 if (globals->use_rel)
ba96a88f 3600 {
4e7fd91e
PB		 3601 addend = bfd_get_32 (input_bfd, hit_data) & howto->src_mask;
3602
3603 if (addend & ((howto->src_mask + 1) >> 1))
3604 {
3605 signed_addend = -1;
3606 signed_addend &= ~ howto->src_mask;
3607 signed_addend |= addend;
3608 }
3609 else
3610 signed_addend = addend;
ba96a88f
NC		 3611 }
3612 else
4e7fd91e 3613 addend = signed_addend = rel->r_addend;
f21f3fe0 3614
252b5132
RH		 3615 switch (r_type)
3616 {
3617 case R_ARM_NONE:
28a094c2
DJ		 3618 /* We don't need to find a value for this symbol. It's just a
3619 marker. */
3620 *unresolved_reloc_p = FALSE;
252b5132
RH		 3621 return bfd_reloc_ok;
3622
00a97672
RS		 3623 case R_ARM_ABS12:
3624 if (!globals->vxworks_p)
3625 return elf32_arm_abs12_reloc (input_bfd, hit_data, value + addend);
3626
252b5132
RH		 3627 case R_ARM_PC24:
3628 case R_ARM_ABS32:
3629 case R_ARM_REL32:
5b5bb741
PB		 3630 case R_ARM_CALL:
3631 case R_ARM_JUMP24:
dfc5f959 3632 case R_ARM_XPC25:
eb043451 3633 case R_ARM_PREL31:
7359ea65 3634 case R_ARM_PLT32:
5e681ec4
PB		 3635 /* r_symndx will be zero only for relocs against symbols
3636 from removed linkonce sections, or sections discarded by
3637 a linker script. */
3638 if (r_symndx == 0)
3639 return bfd_reloc_ok;
3640
7359ea65
DJ		 3641 /* Handle relocations which should use the PLT entry. ABS32/REL32
3642 will use the symbol's value, which may point to a PLT entry, but we
3643 don't need to handle that here. If we created a PLT entry, all
3644 branches in this object should go to it. */
ee06dc07 3645 if ((r_type != R_ARM_ABS32 && r_type != R_ARM_REL32)
7359ea65 3646 && h != NULL
c84cd8ee 3647 && splt != NULL
7359ea65
DJ		 3648 && h->plt.offset != (bfd_vma) -1)
3649 {
c84cd8ee
DJ		 3650 /* If we've created a .plt section, and assigned a PLT entry to
3651 this function, it should not be known to bind locally. If
3652 it were, we would have cleared the PLT entry. */
7359ea65
DJ		 3653 BFD_ASSERT (!SYMBOL_CALLS_LOCAL (info, h));
3654
3655 value = (splt->output_section->vma
3656 + splt->output_offset
3657 + h->plt.offset);
0945cdfd 3658 *unresolved_reloc_p = FALSE;
7359ea65
DJ		 3659 return _bfd_final_link_relocate (howto, input_bfd, input_section,
3660 contents, rel->r_offset, value,
00a97672 3661 rel->r_addend);
7359ea65
DJ		 3662 }
3663
67687978
PB		 3664 /* When generating a shared object or relocatable executable, these
3665 relocations are copied into the output file to be resolved at
3666 run time. */
3667 if ((info->shared || globals->root.is_relocatable_executable)
7359ea65 3668 && (input_section->flags & SEC_ALLOC)
ee06dc07
PB		 3669 && (r_type != R_ARM_REL32
3670 || !SYMBOL_CALLS_LOCAL (info, h))
7359ea65
DJ		 3671 && (h == NULL
3672 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3673 || h->root.type != bfd_link_hash_undefweak)
3674 && r_type != R_ARM_PC24
5b5bb741
PB		 3675 && r_type != R_ARM_CALL
3676 && r_type != R_ARM_JUMP24
ee06dc07 3677 && r_type != R_ARM_PREL31
7359ea65 3678 && r_type != R_ARM_PLT32)
252b5132 3679 {
947216bf
AM		 3680 Elf_Internal_Rela outrel;
3681 bfd_byte *loc;
b34976b6 3682 bfd_boolean skip, relocate;
f21f3fe0 3683
0945cdfd
DJ		 3684 *unresolved_reloc_p = FALSE;
3685
252b5132
RH		 3686 if (sreloc == NULL)
3687 {
3688 const char * name;
f21f3fe0 3689
252b5132
RH		 3690 name = (bfd_elf_string_from_elf_section
3691 (input_bfd,
3692 elf_elfheader (input_bfd)->e_shstrndx,
3693 elf_section_data (input_section)->rel_hdr.sh_name));
3694 if (name == NULL)
3695 return bfd_reloc_notsupported;
f21f3fe0 3696
00a97672 3697 BFD_ASSERT (reloc_section_p (globals, name, input_section));
f21f3fe0 3698
252b5132
RH		 3699 sreloc = bfd_get_section_by_name (dynobj, name);
3700 BFD_ASSERT (sreloc != NULL);
3701 }
f21f3fe0 3702
b34976b6
AM		 3703 skip = FALSE;
3704 relocate = FALSE;
f21f3fe0 3705
00a97672 3706 outrel.r_addend = addend;
c629eae0
JJ		 3707 outrel.r_offset =
3708 _bfd_elf_section_offset (output_bfd, info, input_section,
3709 rel->r_offset);
3710 if (outrel.r_offset == (bfd_vma) -1)
b34976b6 3711 skip = TRUE;
0bb2d96a 3712 else if (outrel.r_offset == (bfd_vma) -2)
b34976b6 3713 skip = TRUE, relocate = TRUE;
252b5132
RH		 3714 outrel.r_offset += (input_section->output_section->vma
3715 + input_section->output_offset);
f21f3fe0 3716
252b5132 3717 if (skip)
0bb2d96a 3718 memset (&outrel, 0, sizeof outrel);
5e681ec4
PB		 3719 else if (h != NULL
3720 && h->dynindx != -1
7359ea65 3721 && (!info->shared
5e681ec4 3722 || !info->symbolic
f5385ebf 3723 || !h->def_regular))
5e681ec4 3724 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
252b5132
RH		 3725 else
3726 {
a16385dc
MM		 3727 int symbol;
3728
5e681ec4 3729 /* This symbol is local, or marked to become local. */
b7693d02
DJ		 3730 if (sym_flags == STT_ARM_TFUNC)
3731 value |= 1;
a16385dc 3732 if (globals->symbian_p)
6366ff1e
MM		 3733 {
3734 /* On Symbian OS, the data segment and text segement
3735 can be relocated independently. Therefore, we
3736 must indicate the segment to which this
3737 relocation is relative. The BPABI allows us to
3738 use any symbol in the right segment; we just use
3739 the section symbol as it is convenient. (We
3740 cannot use the symbol given by "h" directly as it
3741 will not appear in the dynamic symbol table.) */
10dbd1f3
NC		 3742 if (sym_sec)
3743 symbol = elf_section_data (sym_sec->output_section)->dynindx;
3744 else
3745 symbol = elf_section_data (input_section->output_section)->dynindx;
6366ff1e
MM		 3746 BFD_ASSERT (symbol != 0);
3747 }
a16385dc
MM		 3748 else
3749 /* On SVR4-ish systems, the dynamic loader cannot
3750 relocate the text and data segments independently,
3751 so the symbol does not matter. */
3752 symbol = 0;
3753 outrel.r_info = ELF32_R_INFO (symbol, R_ARM_RELATIVE);
00a97672
RS		 3754 if (globals->use_rel)
3755 relocate = TRUE;
3756 else
3757 outrel.r_addend += value;
252b5132 3758 }
f21f3fe0 3759
947216bf 3760 loc = sreloc->contents;
00a97672
RS		 3761 loc += sreloc->reloc_count++ * RELOC_SIZE (globals);
3762 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
9a5aca8c 3763
f21f3fe0 3764 /* If this reloc is against an external symbol, we do not want to
252b5132 3765 fiddle with the addend. Otherwise, we need to include the symbol
9b485d32 3766 value so that it becomes an addend for the dynamic reloc. */
252b5132
RH		 3767 if (! relocate)
3768 return bfd_reloc_ok;
9a5aca8c 3769
f21f3fe0 3770 return _bfd_final_link_relocate (howto, input_bfd, input_section,
252b5132
RH		 3771 contents, rel->r_offset, value,
3772 (bfd_vma) 0);
3773 }
3774 else switch (r_type)
3775 {
00a97672
RS		 3776 case R_ARM_ABS12:
3777 return elf32_arm_abs12_reloc (input_bfd, hit_data, value + addend);
3778
dfc5f959 3779 case R_ARM_XPC25: /* Arm BLX instruction. */
5b5bb741
PB		 3780 case R_ARM_CALL:
3781 case R_ARM_JUMP24:
dfc5f959 3782 case R_ARM_PC24: /* Arm B/BL instruction */
7359ea65 3783 case R_ARM_PLT32:
dfc5f959 3784 if (r_type == R_ARM_XPC25)
252b5132 3785 {
dfc5f959
NC		 3786 /* Check for Arm calling Arm function. */
3787 /* FIXME: Should we translate the instruction into a BL
3788 instruction instead ? */
3789 if (sym_flags != STT_ARM_TFUNC)
d003868e
AM		 3790 (*_bfd_error_handler)
3791 (_("\%B: Warning: Arm BLX instruction targets Arm function '%s'."),
3792 input_bfd,
3793 h ? h->root.root.string : "(local)");
dfc5f959 3794 }
39b41c9c 3795 else if (r_type != R_ARM_CALL || !globals->use_blx)
dfc5f959
NC		 3796 {
3797 /* Check for Arm calling Thumb function. */
3798 if (sym_flags == STT_ARM_TFUNC)
3799 {
57e8b36a
NC		 3800 elf32_arm_to_thumb_stub (info, sym_name, input_bfd,
3801 output_bfd, input_section,
3802 hit_data, sym_sec, rel->r_offset,
dfc5f959
NC		 3803 signed_addend, value);
3804 return bfd_reloc_ok;
3805 }
252b5132 3806 }
ba96a88f 3807
dea514f5
PB		 3808 /* The ARM ELF ABI says that this reloc is computed as: S - P + A
3809 where:
3810 S is the address of the symbol in the relocation.
3811 P is address of the instruction being relocated.
3812 A is the addend (extracted from the instruction) in bytes.
3813
3814 S is held in 'value'.
3815 P is the base address of the section containing the
3816 instruction plus the offset of the reloc into that
3817 section, ie:
3818 (input_section->output_section->vma +
3819 input_section->output_offset +
3820 rel->r_offset).
3821 A is the addend, converted into bytes, ie:
3822 (signed_addend * 4)
3823
3824 Note: None of these operations have knowledge of the pipeline
3825 size of the processor, thus it is up to the assembler to
3826 encode this information into the addend. */
3827 value -= (input_section->output_section->vma
3828 + input_section->output_offset);
3829 value -= rel->r_offset;
4e7fd91e
PB		 3830 if (globals->use_rel)
3831 value += (signed_addend << howto->size);
3832 else
3833 /* RELA addends do not have to be adjusted by howto->size. */
3834 value += signed_addend;
23080146 3835
dcb5e6e6
NC		 3836 signed_addend = value;
3837 signed_addend >>= howto->rightshift;
9a5aca8c 3838
59f2c4e7
NC		 3839 /* It is not an error for an undefined weak reference to be
3840 out of range. Any program that branches to such a symbol
9a5aca8c
AM		 3841 is going to crash anyway, so there is no point worrying
3842 about getting the destination exactly right. */
59f2c4e7
NC		 3843 if (! h || h->root.type != bfd_link_hash_undefweak)
3844 {
9b485d32 3845 /* Perform a signed range check. */
dcb5e6e6 3846 if ( signed_addend > ((bfd_signed_vma) (howto->dst_mask >> 1))
59f2c4e7
NC		 3847 || signed_addend < - ((bfd_signed_vma) ((howto->dst_mask + 1) >> 1)))
3848 return bfd_reloc_overflow;
3849 }
9a5aca8c 3850
39b41c9c
PB		 3851 addend = (value & 2);
3852
3853 value = (signed_addend & howto->dst_mask)
3854 | (bfd_get_32 (input_bfd, hit_data) & (~ howto->dst_mask));
3855
3856 /* Set the H bit in the BLX instruction. */
3857 if (sym_flags == STT_ARM_TFUNC)
3858 {
3859 if (addend)
3860 value |= (1 << 24);
3861 else
3862 value &= ~(bfd_vma)(1 << 24);
3863 }
3864 if (r_type == R_ARM_CALL)
3865 {
3866 /* Select the correct instruction (BL or BLX). */
3867 if (sym_flags == STT_ARM_TFUNC)
3868 value |= (1 << 28);
3869 else
3870 {
3871 value &= ~(bfd_vma)(1 << 28);
3872 value |= (1 << 24);
3873 }
3874 }
252b5132 3875 break;
f21f3fe0 3876
252b5132
RH		 3877 case R_ARM_ABS32:
3878 value += addend;
3879 if (sym_flags == STT_ARM_TFUNC)
3880 value |= 1;
3881 break;
f21f3fe0 3882
252b5132 3883 case R_ARM_REL32:
a8bc6c78
PB		 3884 value += addend;
3885 if (sym_flags == STT_ARM_TFUNC)
3886 value |= 1;
252b5132 3887 value -= (input_section->output_section->vma
62efb346 3888 + input_section->output_offset + rel->r_offset);
252b5132 3889 break;
eb043451 3890
eb043451
PB		 3891 case R_ARM_PREL31:
3892 value -= (input_section->output_section->vma
3893 + input_section->output_offset + rel->r_offset);
3894 value += signed_addend;
3895 if (! h || h->root.type != bfd_link_hash_undefweak)
3896 {
3897 /* Check for overflow */
3898 if ((value ^ (value >> 1)) & (1 << 30))
3899 return bfd_reloc_overflow;
3900 }
3901 value &= 0x7fffffff;
3902 value |= (bfd_get_32 (input_bfd, hit_data) & 0x80000000);
3903 if (sym_flags == STT_ARM_TFUNC)
3904 value |= 1;
3905 break;
252b5132 3906 }
f21f3fe0 3907
252b5132
RH		 3908 bfd_put_32 (input_bfd, value, hit_data);
3909 return bfd_reloc_ok;
3910
3911 case R_ARM_ABS8:
3912 value += addend;
3913 if ((long) value > 0x7f || (long) value < -0x80)
3914 return bfd_reloc_overflow;
3915
3916 bfd_put_8 (input_bfd, value, hit_data);
3917 return bfd_reloc_ok;
3918
3919 case R_ARM_ABS16:
3920 value += addend;
3921
3922 if ((long) value > 0x7fff || (long) value < -0x8000)
3923 return bfd_reloc_overflow;
3924
3925 bfd_put_16 (input_bfd, value, hit_data);
3926 return bfd_reloc_ok;
3927
252b5132 3928 case R_ARM_THM_ABS5:
9b485d32 3929 /* Support ldr and str instructions for the thumb. */
4e7fd91e
PB		 3930 if (globals->use_rel)
3931 {
3932 /* Need to refetch addend. */
3933 addend = bfd_get_16 (input_bfd, hit_data) & howto->src_mask;
3934 /* ??? Need to determine shift amount from operand size. */
3935 addend >>= howto->rightshift;
3936 }
252b5132
RH		 3937 value += addend;
3938
3939 /* ??? Isn't value unsigned? */
3940 if ((long) value > 0x1f || (long) value < -0x10)
3941 return bfd_reloc_overflow;
3942
3943 /* ??? Value needs to be properly shifted into place first. */
3944 value |= bfd_get_16 (input_bfd, hit_data) & 0xf83f;
3945 bfd_put_16 (input_bfd, value, hit_data);
3946 return bfd_reloc_ok;
3947
dfc5f959 3948 case R_ARM_THM_XPC22:
c19d1205 3949 case R_ARM_THM_CALL:
dfc5f959 3950 /* Thumb BL (branch long instruction). */
252b5132 3951 {
b34976b6
AM		 3952 bfd_vma relocation;
3953 bfd_boolean overflow = FALSE;
3954 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
3955 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
df212a7e 3956 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
ba96a88f 3957 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
b34976b6 3958 bfd_vma check;
252b5132 3959 bfd_signed_vma signed_check;
252b5132 3960
252b5132
RH		 3961 /* Need to refetch the addend and squish the two 11 bit pieces
3962 together. */
4e7fd91e
PB		 3963 if (globals->use_rel)
3964 {
3965 bfd_vma upper = upper_insn & 0x7ff;
3966 bfd_vma lower = lower_insn & 0x7ff;
3967 upper = (upper ^ 0x400) - 0x400; /* Sign extend. */
3968 addend = (upper << 12) | (lower << 1);
3969 signed_addend = addend;
3970 }
cb1afa5c 3971
dfc5f959
NC		 3972 if (r_type == R_ARM_THM_XPC22)
3973 {
3974 /* Check for Thumb to Thumb call. */
3975 /* FIXME: Should we translate the instruction into a BL
3976 instruction instead ? */
3977 if (sym_flags == STT_ARM_TFUNC)
d003868e
AM		 3978 (*_bfd_error_handler)
3979 (_("%B: Warning: Thumb BLX instruction targets thumb function '%s'."),
3980 input_bfd,
3981 h ? h->root.root.string : "(local)");
dfc5f959
NC		 3982 }
3983 else
252b5132 3984 {
dfc5f959
NC		 3985 /* If it is not a call to Thumb, assume call to Arm.
3986 If it is a call relative to a section name, then it is not a
b7693d02
DJ		 3987 function call at all, but rather a long jump. Calls through
3988 the PLT do not require stubs. */
3989 if (sym_flags != STT_ARM_TFUNC && sym_flags != STT_SECTION
3990 && (h == NULL || splt == NULL
3991 || h->plt.offset == (bfd_vma) -1))
dfc5f959 3992 {
39b41c9c
PB		 3993 if (globals->use_blx)
3994 {
3995 /* Convert BL to BLX. */
3996 lower_insn = (lower_insn & ~0x1000) | 0x0800;
3997 }
3998 else if (elf32_thumb_to_arm_stub
dfc5f959
NC		 3999 (info, sym_name, input_bfd, output_bfd, input_section,
4000 hit_data, sym_sec, rel->r_offset, signed_addend, value))
4001 return bfd_reloc_ok;
4002 else
4003 return bfd_reloc_dangerous;
4004 }
39b41c9c
PB		 4005 else if (sym_flags == STT_ARM_TFUNC && globals->use_blx)
4006 {
4007 /* Make sure this is a BL. */
4008 lower_insn |= 0x1800;
4009 }
252b5132 4010 }
f21f3fe0 4011
b7693d02
DJ		 4012 /* Handle calls via the PLT. */
4013 if (h != NULL && splt != NULL && h->plt.offset != (bfd_vma) -1)
4014 {
4015 value = (splt->output_section->vma
4016 + splt->output_offset
4017 + h->plt.offset);
33bfe774
JB		 4018 if (globals->use_blx)
4019 {
4020 /* If the Thumb BLX instruction is available, convert the
4021 BL to a BLX instruction to call the ARM-mode PLT entry. */
39b41c9c 4022 lower_insn = (lower_insn & ~0x1000) | 0x0800;
33bfe774
JB		 4023 }
4024 else
4025 /* Target the Thumb stub before the ARM PLT entry. */
4026 value -= PLT_THUMB_STUB_SIZE;
0945cdfd 4027 *unresolved_reloc_p = FALSE;
b7693d02
DJ		 4028 }
4029
ba96a88f 4030 relocation = value + signed_addend;
f21f3fe0 4031
252b5132 4032 relocation -= (input_section->output_section->vma
ba96a88f
NC		 4033 + input_section->output_offset
4034 + rel->r_offset);
9a5aca8c 4035
252b5132
RH		 4036 check = relocation >> howto->rightshift;
4037
4038 /* If this is a signed value, the rightshift just dropped
4039 leading 1 bits (assuming twos complement). */
4040 if ((bfd_signed_vma) relocation >= 0)
4041 signed_check = check;
4042 else
4043 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4044
252b5132 4045 /* Assumes two's complement. */
ba96a88f 4046 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
b34976b6 4047 overflow = TRUE;
252b5132 4048
39b41c9c 4049 if ((lower_insn & 0x1800) == 0x0800)
c62e1cc3
NC		 4050 /* For a BLX instruction, make sure that the relocation is rounded up
4051 to a word boundary. This follows the semantics of the instruction
4052 which specifies that bit 1 of the target address will come from bit
4053 1 of the base address. */
4054 relocation = (relocation + 2) & ~ 3;
cb1afa5c 4055
c62e1cc3
NC		 4056 /* Put RELOCATION back into the insn. */
4057 upper_insn = (upper_insn & ~(bfd_vma) 0x7ff) | ((relocation >> 12) & 0x7ff);
4058 lower_insn = (lower_insn & ~(bfd_vma) 0x7ff) | ((relocation >> 1) & 0x7ff);
4059
252b5132
RH		 4060 /* Put the relocated value back in the object file: */
4061 bfd_put_16 (input_bfd, upper_insn, hit_data);
4062 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4063
4064 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4065 }
4066 break;
4067
c19d1205
ZW		 4068 case R_ARM_THM_JUMP24:
4069 /* Thumb32 unconditional branch instruction. */
4070 {
4071 bfd_vma relocation;
4072 bfd_boolean overflow = FALSE;
4073 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
4074 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
4075 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
4076 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
4077 bfd_vma check;
4078 bfd_signed_vma signed_check;
4079
4080 /* Need to refetch the addend, reconstruct the top three bits, and glue the
4081 two pieces together. */
4082 if (globals->use_rel)
4083 {
4084 bfd_vma S = (upper_insn & 0x0400) >> 10;
4085 bfd_vma hi = (upper_insn & 0x03ff);
4086 bfd_vma I1 = (lower_insn & 0x2000) >> 13;
4087 bfd_vma I2 = (lower_insn & 0x0800) >> 11;
4088 bfd_vma lo = (lower_insn & 0x07ff);
4089
4090 I1 = !(I1 ^ S);
4091 I2 = !(I2 ^ S);
4092 S = !S;
4093
4094 signed_addend = (S << 24) | (I1 << 23) | (I2 << 22) | (hi << 12) | (lo << 1);
4095 signed_addend -= (1 << 24); /* Sign extend. */
4096 }
4097
4098 /* ??? Should handle interworking? GCC might someday try to
4099 use this for tail calls. */
4100
4101 relocation = value + signed_addend;
4102 relocation -= (input_section->output_section->vma
4103 + input_section->output_offset
4104 + rel->r_offset);
4105
4106 check = relocation >> howto->rightshift;
4107
4108 /* If this is a signed value, the rightshift just dropped
4109 leading 1 bits (assuming twos complement). */
4110 if ((bfd_signed_vma) relocation >= 0)
4111 signed_check = check;
4112 else
4113 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4114
4115 /* Assumes two's complement. */
4116 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4117 overflow = TRUE;
4118
4119 /* Put RELOCATION back into the insn. */
4120 {
4121 bfd_vma S = (relocation & 0x01000000) >> 24;
4122 bfd_vma I1 = (relocation & 0x00800000) >> 23;
4123 bfd_vma I2 = (relocation & 0x00400000) >> 22;
4124 bfd_vma hi = (relocation & 0x003ff000) >> 12;
4125 bfd_vma lo = (relocation & 0x00000ffe) >> 1;
4126
4127 I1 = !(I1 ^ S);
4128 I2 = !(I2 ^ S);
4129
4130 upper_insn = (upper_insn & (bfd_vma) 0xf800) | (S << 10) | hi;
4131 lower_insn = (lower_insn & (bfd_vma) 0xd000) | (I1 << 13) | (I2 << 11) | lo;
4132 }
4133
4134 /* Put the relocated value back in the object file: */
4135 bfd_put_16 (input_bfd, upper_insn, hit_data);
4136 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4137
4138 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4139 }
4140
4141 case R_ARM_THM_JUMP19:
4142 /* Thumb32 conditional branch instruction. */
4143 {
4144 bfd_vma relocation;
4145 bfd_boolean overflow = FALSE;
4146 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
4147 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
4148 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
4149 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
4150 bfd_vma check;
4151 bfd_signed_vma signed_check;
4152
4153 /* Need to refetch the addend, reconstruct the top three bits,
4154 and squish the two 11 bit pieces together. */
4155 if (globals->use_rel)
4156 {
4157 bfd_vma S = (upper_insn & 0x0400) >> 10;
4158 bfd_vma upper = (upper_insn & 0x001f);
4159 bfd_vma J1 = (lower_insn & 0x2000) >> 13;
4160 bfd_vma J2 = (lower_insn & 0x0800) >> 11;
4161 bfd_vma lower = (lower_insn & 0x07ff);
4162
4163 upper |= J2 << 6;
4164 upper |= J1 << 7;
4165 upper |= ~S << 8;
4166 upper -= 0x0100; /* Sign extend. */
4167
4168 addend = (upper << 12) | (lower << 1);
4169 signed_addend = addend;
4170 }
4171
4172 /* ??? Should handle interworking? GCC might someday try to
4173 use this for tail calls. */
4174
4175 relocation = value + signed_addend;
4176 relocation -= (input_section->output_section->vma
4177 + input_section->output_offset
4178 + rel->r_offset);
4179
4180 check = relocation >> howto->rightshift;
4181
4182 /* If this is a signed value, the rightshift just dropped
4183 leading 1 bits (assuming twos complement). */
4184 if ((bfd_signed_vma) relocation >= 0)
4185 signed_check = check;
4186 else
4187 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4188
4189 /* Assumes two's complement. */
4190 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4191 overflow = TRUE;
4192
4193 /* Put RELOCATION back into the insn. */
4194 {
4195 bfd_vma S = (relocation & 0x00100000) >> 20;
4196 bfd_vma J2 = (relocation & 0x00080000) >> 19;
4197 bfd_vma J1 = (relocation & 0x00040000) >> 18;
4198 bfd_vma hi = (relocation & 0x0003f000) >> 12;
4199 bfd_vma lo = (relocation & 0x00000ffe) >> 1;
4200
4201 upper_insn = (upper_insn & 0xfb30) | (S << 10) | hi;
4202 lower_insn = (lower_insn & 0xd000) | (J1 << 13) | (J2 << 11) | lo;
4203 }
4204
4205 /* Put the relocated value back in the object file: */
4206 bfd_put_16 (input_bfd, upper_insn, hit_data);
4207 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4208
4209 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4210 }
4211
4212 case R_ARM_THM_JUMP11:
4213 case R_ARM_THM_JUMP8:
4214 case R_ARM_THM_JUMP6:
51c5503b
NC		 4215 /* Thumb B (branch) instruction). */
4216 {
6cf9e9fe 4217 bfd_signed_vma relocation;
51c5503b
NC		 4218 bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
4219 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
51c5503b
NC		 4220 bfd_signed_vma signed_check;
4221
c19d1205
ZW		 4222 /* CZB cannot jump backward. */
4223 if (r_type == R_ARM_THM_JUMP6)
4224 reloc_signed_min = 0;
4225
4e7fd91e 4226 if (globals->use_rel)
6cf9e9fe 4227 {
4e7fd91e
PB		 4228 /* Need to refetch addend. */
4229 addend = bfd_get_16 (input_bfd, hit_data) & howto->src_mask;
4230 if (addend & ((howto->src_mask + 1) >> 1))
4231 {
4232 signed_addend = -1;
4233 signed_addend &= ~ howto->src_mask;
4234 signed_addend |= addend;
4235 }
4236 else
4237 signed_addend = addend;
4238 /* The value in the insn has been right shifted. We need to
4239 undo this, so that we can perform the address calculation
4240 in terms of bytes. */
4241 signed_addend <<= howto->rightshift;
6cf9e9fe 4242 }
6cf9e9fe 4243 relocation = value + signed_addend;
51c5503b
NC		 4244
4245 relocation -= (input_section->output_section->vma
4246 + input_section->output_offset
4247 + rel->r_offset);
4248
6cf9e9fe
NC		 4249 relocation >>= howto->rightshift;
4250 signed_check = relocation;
c19d1205
ZW		 4251
4252 if (r_type == R_ARM_THM_JUMP6)
4253 relocation = ((relocation & 0x0020) << 4) | ((relocation & 0x001f) << 3);
4254 else
4255 relocation &= howto->dst_mask;
51c5503b 4256 relocation |= (bfd_get_16 (input_bfd, hit_data) & (~ howto->dst_mask));
cedb70c5 4257
51c5503b
NC		 4258 bfd_put_16 (input_bfd, relocation, hit_data);
4259
4260 /* Assumes two's complement. */
4261 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4262 return bfd_reloc_overflow;
4263
4264 return bfd_reloc_ok;
4265 }
cedb70c5 4266
8375c36b
PB		 4267 case R_ARM_ALU_PCREL7_0:
4268 case R_ARM_ALU_PCREL15_8:
4269 case R_ARM_ALU_PCREL23_15:
4270 {
4271 bfd_vma insn;
4272 bfd_vma relocation;
4273
4274 insn = bfd_get_32 (input_bfd, hit_data);
4e7fd91e
PB		 4275 if (globals->use_rel)
4276 {
4277 /* Extract the addend. */
4278 addend = (insn & 0xff) << ((insn & 0xf00) >> 7);
4279 signed_addend = addend;
4280 }
8375c36b
PB		 4281 relocation = value + signed_addend;
4282
4283 relocation -= (input_section->output_section->vma
4284 + input_section->output_offset
4285 + rel->r_offset);
4286 insn = (insn & ~0xfff)
4287 | ((howto->bitpos << 7) & 0xf00)
4288 | ((relocation >> howto->bitpos) & 0xff);
4289 bfd_put_32 (input_bfd, value, hit_data);
4290 }
4291 return bfd_reloc_ok;
4292
252b5132
RH		 4293 case R_ARM_GNU_VTINHERIT:
4294 case R_ARM_GNU_VTENTRY:
4295 return bfd_reloc_ok;
4296
c19d1205 4297 case R_ARM_GOTOFF32:
252b5132
RH		 4298 /* Relocation is relative to the start of the
4299 global offset table. */
4300
4301 BFD_ASSERT (sgot != NULL);
4302 if (sgot == NULL)
4303 return bfd_reloc_notsupported;
9a5aca8c 4304
cedb70c5 4305 /* If we are addressing a Thumb function, we need to adjust the
ee29b9fb
RE		 4306 address by one, so that attempts to call the function pointer will
4307 correctly interpret it as Thumb code. */
4308 if (sym_flags == STT_ARM_TFUNC)
4309 value += 1;
4310
252b5132
RH		 4311 /* Note that sgot->output_offset is not involved in this
4312 calculation. We always want the start of .got. If we
4313 define _GLOBAL_OFFSET_TABLE in a different way, as is
4314 permitted by the ABI, we might have to change this
9b485d32 4315 calculation. */
252b5132 4316 value -= sgot->output_section->vma;
f21f3fe0 4317 return _bfd_final_link_relocate (howto, input_bfd, input_section,
99e4ae17 4318 contents, rel->r_offset, value,
00a97672 4319 rel->r_addend);
252b5132
RH		 4320
4321 case R_ARM_GOTPC:
a7c10850 4322 /* Use global offset table as symbol value. */
252b5132 4323 BFD_ASSERT (sgot != NULL);
f21f3fe0 4324
252b5132
RH		 4325 if (sgot == NULL)
4326 return bfd_reloc_notsupported;
4327
0945cdfd 4328 *unresolved_reloc_p = FALSE;
252b5132 4329 value = sgot->output_section->vma;
f21f3fe0 4330 return _bfd_final_link_relocate (howto, input_bfd, input_section,
99e4ae17 4331 contents, rel->r_offset, value,
00a97672 4332 rel->r_addend);
f21f3fe0 4333
252b5132 4334 case R_ARM_GOT32:
eb043451 4335 case R_ARM_GOT_PREL:
252b5132 4336 /* Relocation is to the entry for this symbol in the
9b485d32 4337 global offset table. */
252b5132
RH		 4338 if (sgot == NULL)
4339 return bfd_reloc_notsupported;
f21f3fe0 4340
252b5132
RH		 4341 if (h != NULL)
4342 {
4343 bfd_vma off;
5e681ec4 4344 bfd_boolean dyn;
f21f3fe0 4345
252b5132
RH		 4346 off = h->got.offset;
4347 BFD_ASSERT (off != (bfd_vma) -1);
5e681ec4 4348 dyn = globals->root.dynamic_sections_created;
f21f3fe0 4349
5e681ec4 4350 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
50d6c878 4351 || (info->shared
5e681ec4
PB		 4352 && SYMBOL_REFERENCES_LOCAL (info, h))
4353 || (ELF_ST_VISIBILITY (h->other)
4354 && h->root.type == bfd_link_hash_undefweak))
252b5132
RH		 4355 {
4356 /* This is actually a static link, or it is a -Bsymbolic link
4357 and the symbol is defined locally. We must initialize this
4358 entry in the global offset table. Since the offset must
4359 always be a multiple of 4, we use the least significant bit
4360 to record whether we have initialized it already.
f21f3fe0 4361
00a97672 4362 When doing a dynamic link, we create a .rel(a).got relocation
f21f3fe0 4363 entry to initialize the value. This is done in the
9b485d32 4364 finish_dynamic_symbol routine. */
252b5132
RH		 4365 if ((off & 1) != 0)
4366 off &= ~1;
4367 else
4368 {
ee29b9fb
RE		 4369 /* If we are addressing a Thumb function, we need to
4370 adjust the address by one, so that attempts to
4371 call the function pointer will correctly
4372 interpret it as Thumb code. */
4373 if (sym_flags == STT_ARM_TFUNC)
4374 value |= 1;
4375
252b5132
RH		 4376 bfd_put_32 (output_bfd, value, sgot->contents + off);
4377 h->got.offset |= 1;
4378 }
4379 }
0945cdfd
DJ		 4380 else
4381 *unresolved_reloc_p = FALSE;
f21f3fe0 4382
252b5132
RH		 4383 value = sgot->output_offset + off;
4384 }
4385 else
4386 {
4387 bfd_vma off;
f21f3fe0 4388
252b5132
RH		 4389 BFD_ASSERT (local_got_offsets != NULL &&
4390 local_got_offsets[r_symndx] != (bfd_vma) -1);
f21f3fe0 4391
252b5132 4392 off = local_got_offsets[r_symndx];
f21f3fe0 4393
252b5132
RH		 4394 /* The offset must always be a multiple of 4. We use the
4395 least significant bit to record whether we have already
9b485d32 4396 generated the necessary reloc. */
252b5132
RH		 4397 if ((off & 1) != 0)
4398 off &= ~1;
4399 else
4400 {
b7693d02
DJ		 4401 /* If we are addressing a Thumb function, we need to
4402 adjust the address by one, so that attempts to
4403 call the function pointer will correctly
4404 interpret it as Thumb code. */
4405 if (sym_flags == STT_ARM_TFUNC)
4406 value |= 1;
4407
00a97672
RS		 4408 if (globals->use_rel)
4409 bfd_put_32 (output_bfd, value, sgot->contents + off);
f21f3fe0 4410
252b5132
RH		 4411 if (info->shared)
4412 {
4413 asection * srelgot;
947216bf
AM		 4414 Elf_Internal_Rela outrel;
4415 bfd_byte *loc;
f21f3fe0 4416
00a97672
RS		 4417 srelgot = (bfd_get_section_by_name
4418 (dynobj, RELOC_SECTION (globals, ".got")));
252b5132 4419 BFD_ASSERT (srelgot != NULL);
f21f3fe0 4420
00a97672 4421 outrel.r_addend = addend + value;
252b5132 4422 outrel.r_offset = (sgot->output_section->vma
f21f3fe0 4423 + sgot->output_offset
252b5132
RH		 4424 + off);
4425 outrel.r_info = ELF32_R_INFO (0, R_ARM_RELATIVE);
947216bf 4426 loc = srelgot->contents;
00a97672
RS		 4427 loc += srelgot->reloc_count++ * RELOC_SIZE (globals);
4428 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
252b5132 4429 }
f21f3fe0 4430
252b5132
RH		 4431 local_got_offsets[r_symndx] |= 1;
4432 }
f21f3fe0 4433
252b5132
RH		 4434 value = sgot->output_offset + off;
4435 }
eb043451
PB		 4436 if (r_type != R_ARM_GOT32)
4437 value += sgot->output_section->vma;
9a5aca8c 4438
f21f3fe0 4439 return _bfd_final_link_relocate (howto, input_bfd, input_section,
99e4ae17 4440 contents, rel->r_offset, value,
00a97672 4441 rel->r_addend);
f21f3fe0 4442
ba93b8ac
DJ		 4443 case R_ARM_TLS_LDO32:
4444 value = value - dtpoff_base (info);
4445
4446 return _bfd_final_link_relocate (howto, input_bfd, input_section,
00a97672
RS		 4447 contents, rel->r_offset, value,
4448 rel->r_addend);
ba93b8ac
DJ		 4449
4450 case R_ARM_TLS_LDM32:
4451 {
4452 bfd_vma off;
4453
4454 if (globals->sgot == NULL)
4455 abort ();
4456
4457 off = globals->tls_ldm_got.offset;
4458
4459 if ((off & 1) != 0)
4460 off &= ~1;
4461 else
4462 {
4463 /* If we don't know the module number, create a relocation
4464 for it. */
4465 if (info->shared)
4466 {
4467 Elf_Internal_Rela outrel;
4468 bfd_byte *loc;
4469
4470 if (globals->srelgot == NULL)
4471 abort ();
4472
00a97672 4473 outrel.r_addend = 0;
ba93b8ac
DJ		 4474 outrel.r_offset = (globals->sgot->output_section->vma
4475 + globals->sgot->output_offset + off);
4476 outrel.r_info = ELF32_R_INFO (0, R_ARM_TLS_DTPMOD32);
4477
00a97672
RS		 4478 if (globals->use_rel)
4479 bfd_put_32 (output_bfd, outrel.r_addend,
4480 globals->sgot->contents + off);
ba93b8ac
DJ		 4481
4482 loc = globals->srelgot->contents;
00a97672
RS		 4483 loc += globals->srelgot->reloc_count++ * RELOC_SIZE (globals);
4484 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
ba93b8ac
DJ		 4485 }
4486 else
4487 bfd_put_32 (output_bfd, 1, globals->sgot->contents + off);
4488
4489 globals->tls_ldm_got.offset |= 1;
4490 }
4491
4492 value = globals->sgot->output_section->vma + globals->sgot->output_offset + off
4493 - (input_section->output_section->vma + input_section->output_offset + rel->r_offset);
4494
4495 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4496 contents, rel->r_offset, value,
00a97672 4497 rel->r_addend);
ba93b8ac
DJ		 4498 }
4499
4500 case R_ARM_TLS_GD32:
4501 case R_ARM_TLS_IE32:
4502 {
4503 bfd_vma off;
4504 int indx;
4505 char tls_type;
4506
4507 if (globals->sgot == NULL)
4508 abort ();
4509
4510 indx = 0;
4511 if (h != NULL)
4512 {
4513 bfd_boolean dyn;
4514 dyn = globals->root.dynamic_sections_created;
4515 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
4516 && (!info->shared
4517 || !SYMBOL_REFERENCES_LOCAL (info, h)))
4518 {
4519 *unresolved_reloc_p = FALSE;
4520 indx = h->dynindx;
4521 }
4522 off = h->got.offset;
4523 tls_type = ((struct elf32_arm_link_hash_entry *) h)->tls_type;
4524 }
4525 else
4526 {
4527 if (local_got_offsets == NULL)
4528 abort ();
4529 off = local_got_offsets[r_symndx];
4530 tls_type = elf32_arm_local_got_tls_type (input_bfd)[r_symndx];
4531 }
4532
4533 if (tls_type == GOT_UNKNOWN)
4534 abort ();
4535
4536 if ((off & 1) != 0)
4537 off &= ~1;
4538 else
4539 {
4540 bfd_boolean need_relocs = FALSE;
4541 Elf_Internal_Rela outrel;
4542 bfd_byte *loc = NULL;
4543 int cur_off = off;
4544
4545 /* The GOT entries have not been initialized yet. Do it
4546 now, and emit any relocations. If both an IE GOT and a
4547 GD GOT are necessary, we emit the GD first. */
4548
4549 if ((info->shared || indx != 0)
4550 && (h == NULL
4551 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4552 || h->root.type != bfd_link_hash_undefweak))
4553 {
4554 need_relocs = TRUE;
4555 if (globals->srelgot == NULL)
4556 abort ();
4557 loc = globals->srelgot->contents;
00a97672 4558 loc += globals->srelgot->reloc_count * RELOC_SIZE (globals);
ba93b8ac
DJ		 4559 }
4560
4561 if (tls_type & GOT_TLS_GD)
4562 {
4563 if (need_relocs)
4564 {
00a97672 4565 outrel.r_addend = 0;
ba93b8ac 4566 outrel.r_offset = (globals->sgot->output_section->vma
00a97672
RS		 4567 + globals->sgot->output_offset
4568 + cur_off);
ba93b8ac 4569 outrel.r_info = ELF32_R_INFO (indx, R_ARM_TLS_DTPMOD32);
ba93b8ac 4570
00a97672
RS		 4571 if (globals->use_rel)
4572 bfd_put_32 (output_bfd, outrel.r_addend,
4573 globals->sgot->contents + cur_off);
4574
4575 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
ba93b8ac 4576 globals->srelgot->reloc_count++;
00a97672 4577 loc += RELOC_SIZE (globals);
ba93b8ac
DJ		 4578
4579 if (indx == 0)
4580 bfd_put_32 (output_bfd, value - dtpoff_base (info),
4581 globals->sgot->contents + cur_off + 4);
4582 else
4583 {
00a97672 4584 outrel.r_addend = 0;
ba93b8ac
DJ		 4585 outrel.r_info = ELF32_R_INFO (indx,
4586 R_ARM_TLS_DTPOFF32);
4587 outrel.r_offset += 4;
00a97672
RS		 4588
4589 if (globals->use_rel)
4590 bfd_put_32 (output_bfd, outrel.r_addend,
4591 globals->sgot->contents + cur_off + 4);
4592
4593
4594 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
ba93b8ac 4595 globals->srelgot->reloc_count++;
00a97672 4596 loc += RELOC_SIZE (globals);
ba93b8ac
DJ		 4597 }
4598 }
4599 else
4600 {
4601 /* If we are not emitting relocations for a
4602 general dynamic reference, then we must be in a
4603 static link or an executable link with the
4604 symbol binding locally. Mark it as belonging
4605 to module 1, the executable. */
4606 bfd_put_32 (output_bfd, 1,
4607 globals->sgot->contents + cur_off);
4608 bfd_put_32 (output_bfd, value - dtpoff_base (info),
4609 globals->sgot->contents + cur_off + 4);
4610 }
4611
4612 cur_off += 8;
4613 }
4614
4615 if (tls_type & GOT_TLS_IE)
4616 {
4617 if (need_relocs)
4618 {
00a97672
RS		 4619 if (indx == 0)
4620 outrel.r_addend = value - dtpoff_base (info);
4621 else
4622 outrel.r_addend = 0;
ba93b8ac
DJ		 4623 outrel.r_offset = (globals->sgot->output_section->vma
4624 + globals->sgot->output_offset
4625 + cur_off);
4626 outrel.r_info = ELF32_R_INFO (indx, R_ARM_TLS_TPOFF32);
4627
00a97672
RS		 4628 if (globals->use_rel)
4629 bfd_put_32 (output_bfd, outrel.r_addend,
ba93b8ac
DJ		 4630 globals->sgot->contents + cur_off);
4631
00a97672 4632 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
ba93b8ac 4633 globals->srelgot->reloc_count++;
00a97672 4634 loc += RELOC_SIZE (globals);
ba93b8ac
DJ		 4635 }
4636 else
4637 bfd_put_32 (output_bfd, tpoff (info, value),
4638 globals->sgot->contents + cur_off);
4639 cur_off += 4;
4640 }
4641
4642 if (h != NULL)
4643 h->got.offset |= 1;
4644 else
4645 local_got_offsets[r_symndx] |= 1;
4646 }
4647
4648 if ((tls_type & GOT_TLS_GD) && r_type != R_ARM_TLS_GD32)
4649 off += 8;
4650 value = globals->sgot->output_section->vma + globals->sgot->output_offset + off
4651 - (input_section->output_section->vma + input_section->output_offset + rel->r_offset);
4652
4653 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4654 contents, rel->r_offset, value,
00a97672 4655 rel->r_addend);
ba93b8ac
DJ		 4656 }
4657
4658 case R_ARM_TLS_LE32:
4659 if (info->shared)
4660 {
4661 (*_bfd_error_handler)
4662 (_("%B(%A+0x%lx): R_ARM_TLS_LE32 relocation not permitted in shared object"),
4663 input_bfd, input_section,
4664 (long) rel->r_offset, howto->name);
4665 return FALSE;
4666 }
4667 else
4668 value = tpoff (info, value);
4669
4670 return _bfd_final_link_relocate (howto, input_bfd, input_section,
00a97672
RS		 4671 contents, rel->r_offset, value,
4672 rel->r_addend);
ba93b8ac 4673
319850b4
JB		 4674 case R_ARM_V4BX:
4675 if (globals->fix_v4bx)
4676 {
4677 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4678
4679 /* Ensure that we have a BX instruction. */
4680 BFD_ASSERT ((insn & 0x0ffffff0) == 0x012fff10);
4681
4682 /* Preserve Rm (lowest four bits) and the condition code
4683 (highest four bits). Other bits encode MOV PC,Rm. */
4684 insn = (insn & 0xf000000f) | 0x01a0f000;
4685
4686 bfd_put_32 (input_bfd, insn, hit_data);
4687 }
4688 return bfd_reloc_ok;
4689
b6895b4f
PB		 4690 case R_ARM_MOVW_ABS_NC:
4691 case R_ARM_MOVT_ABS:
4692 case R_ARM_MOVW_PREL_NC:
4693 case R_ARM_MOVT_PREL:
4694 {
4695 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4696
4697 if (globals->use_rel)
4698 {
4699 addend = ((insn >> 4) & 0xf000) | (insn & 0xfff);
4700 signed_addend = (addend ^ 0x10000) - 0x10000;
4701 }
4702 value += signed_addend;
4703 if (sym_flags == STT_ARM_TFUNC)
4704 value |= 1;
4705
4706 if (r_type == R_ARM_MOVW_PREL_NC || r_type == R_ARM_MOVT_PREL)
4707 value -= (input_section->output_section->vma
4708 + input_section->output_offset + rel->r_offset);
4709
4710 if (r_type == R_ARM_MOVT_ABS || r_type == R_ARM_MOVT_PREL)
4711 value >>= 16;
4712
4713 insn &= 0xfff0f000;
4714 insn |= value & 0xfff;
4715 insn |= (value & 0xf000) << 4;
4716 bfd_put_32 (input_bfd, insn, hit_data);
4717 }
4718 return bfd_reloc_ok;
4719
4720 case R_ARM_THM_MOVW_ABS_NC:
4721 case R_ARM_THM_MOVT_ABS:
4722 case R_ARM_THM_MOVW_PREL_NC:
4723 case R_ARM_THM_MOVT_PREL:
4724 {
4725 bfd_vma insn;
4726
4727 insn = bfd_get_16 (input_bfd, hit_data) << 16;
4728 insn |= bfd_get_16 (input_bfd, hit_data + 2);
4729
4730 if (globals->use_rel)
4731 {
4732 addend = ((insn >> 4) & 0xf000)
4733 | ((insn >> 15) & 0x0800)
4734 | ((insn >> 4) & 0x0700)
4735 | (insn & 0x00ff);
4736 signed_addend = (addend ^ 0x10000) - 0x10000;
4737 }
4738 value += signed_addend;
4739 if (sym_flags == STT_ARM_TFUNC)
4740 value |= 1;
4741
4742 if (r_type == R_ARM_THM_MOVW_PREL_NC || r_type == R_ARM_THM_MOVT_PREL)
4743 value -= (input_section->output_section->vma
4744 + input_section->output_offset + rel->r_offset);
4745
4746 if (r_type == R_ARM_THM_MOVT_ABS || r_type == R_ARM_THM_MOVT_PREL)
4747 value >>= 16;
4748
4749 insn &= 0xfbf08f00;
4750 insn |= (value & 0xf000) << 4;
4751 insn |= (value & 0x0800) << 15;
4752 insn |= (value & 0x0700) << 4;
4753 insn |= (value & 0x00ff);
4754
4755 bfd_put_16 (input_bfd, insn >> 16, hit_data);
4756 bfd_put_16 (input_bfd, insn & 0xffff, hit_data + 2);
4757 }
4758 return bfd_reloc_ok;
4759
4962c51a
MS		 4760 case R_ARM_ALU_PC_G0_NC:
4761 case R_ARM_ALU_PC_G1_NC:
4762 case R_ARM_ALU_PC_G0:
4763 case R_ARM_ALU_PC_G1:
4764 case R_ARM_ALU_PC_G2:
4765 case R_ARM_ALU_SB_G0_NC:
4766 case R_ARM_ALU_SB_G1_NC:
4767 case R_ARM_ALU_SB_G0:
4768 case R_ARM_ALU_SB_G1:
4769 case R_ARM_ALU_SB_G2:
4770 {
4771 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4772 bfd_vma pc = input_section->output_section->vma
4773 + input_section->output_offset + rel->r_offset;
4774 /* sb should be the origin of the *segment* containing the symbol.
4775 It is not clear how to obtain this OS-dependent value, so we
4776 make an arbitrary choice of zero. */
4777 bfd_vma sb = 0;
4778 bfd_vma residual;
4779 bfd_vma g_n;
4780 bfd_signed_vma signed_value;
4781 int group = 0;
4782
4783 /* Determine which group of bits to select. */
4784 switch (r_type)
4785 {
4786 case R_ARM_ALU_PC_G0_NC:
4787 case R_ARM_ALU_PC_G0:
4788 case R_ARM_ALU_SB_G0_NC:
4789 case R_ARM_ALU_SB_G0:
4790 group = 0;
4791 break;
4792
4793 case R_ARM_ALU_PC_G1_NC:
4794 case R_ARM_ALU_PC_G1:
4795 case R_ARM_ALU_SB_G1_NC:
4796 case R_ARM_ALU_SB_G1:
4797 group = 1;
4798 break;
4799
4800 case R_ARM_ALU_PC_G2:
4801 case R_ARM_ALU_SB_G2:
4802 group = 2;
4803 break;
4804
4805 default:
4806 abort();
4807 }
4808
4809 /* If REL, extract the addend from the insn. If RELA, it will
4810 have already been fetched for us. */
4811 if (globals->use_rel)
4812 {
4813 int negative;
4814 bfd_vma constant = insn & 0xff;
4815 bfd_vma rotation = (insn & 0xf00) >> 8;
4816
4817 if (rotation == 0)
4818 signed_addend = constant;
4819 else
4820 {
4821 /* Compensate for the fact that in the instruction, the
4822 rotation is stored in multiples of 2 bits. */
4823 rotation *= 2;
4824
4825 /* Rotate "constant" right by "rotation" bits. */
4826 signed_addend = (constant >> rotation) |
4827 (constant << (8 * sizeof (bfd_vma) - rotation));
4828 }
4829
4830 /* Determine if the instruction is an ADD or a SUB.
4831 (For REL, this determines the sign of the addend.) */
4832 negative = identify_add_or_sub (insn);
4833 if (negative == 0)
4834 {
4835 (*_bfd_error_handler)
4836 (_("%B(%A+0x%lx): Only ADD or SUB instructions are allowed for ALU group relocations"),
4837 input_bfd, input_section,
4838 (long) rel->r_offset, howto->name);
4839 return bfd_reloc_overflow;
4840 }
4841
4842 signed_addend *= negative;
4843 }
4844
4845 /* Compute the value (X) to go in the place. */
4846 if (r_type == R_ARM_ALU_PC_G0_NC
4847 || r_type == R_ARM_ALU_PC_G1_NC
4848 || r_type == R_ARM_ALU_PC_G0
4849 || r_type == R_ARM_ALU_PC_G1
4850 || r_type == R_ARM_ALU_PC_G2)
4851 /* PC relative. */
4852 signed_value = value - pc + signed_addend;
4853 else
4854 /* Section base relative. */
4855 signed_value = value - sb + signed_addend;
4856
4857 /* If the target symbol is a Thumb function, then set the
4858 Thumb bit in the address. */
4859 if (sym_flags == STT_ARM_TFUNC)
4860 signed_value |= 1;
4861
4862 /* Calculate the value of the relevant G_n, in encoded
4863 constant-with-rotation format. */
4864 g_n = calculate_group_reloc_mask (abs (signed_value), group,
4865 &residual);
4866
4867 /* Check for overflow if required. */
4868 if ((r_type == R_ARM_ALU_PC_G0
4869 || r_type == R_ARM_ALU_PC_G1
4870 || r_type == R_ARM_ALU_PC_G2
4871 || r_type == R_ARM_ALU_SB_G0
4872 || r_type == R_ARM_ALU_SB_G1
4873 || r_type == R_ARM_ALU_SB_G2) && residual != 0)
4874 {
4875 (*_bfd_error_handler)
4876 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
4877 input_bfd, input_section,
4878 (long) rel->r_offset, abs (signed_value), howto->name);
4879 return bfd_reloc_overflow;
4880 }
4881
4882 /* Mask out the value and the ADD/SUB part of the opcode; take care
4883 not to destroy the S bit. */
4884 insn &= 0xff1ff000;
4885
4886 /* Set the opcode according to whether the value to go in the
4887 place is negative. */
4888 if (signed_value < 0)
4889 insn |= 1 << 22;
4890 else
4891 insn |= 1 << 23;
4892
4893 /* Encode the offset. */
4894 insn |= g_n;
4895
4896 bfd_put_32 (input_bfd, insn, hit_data);
4897 }
4898 return bfd_reloc_ok;
4899
4900 case R_ARM_LDR_PC_G0:
4901 case R_ARM_LDR_PC_G1:
4902 case R_ARM_LDR_PC_G2:
4903 case R_ARM_LDR_SB_G0:
4904 case R_ARM_LDR_SB_G1:
4905 case R_ARM_LDR_SB_G2:
4906 {
4907 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4908 bfd_vma pc = input_section->output_section->vma
4909 + input_section->output_offset + rel->r_offset;
4910 bfd_vma sb = 0; /* See note above. */
4911 bfd_vma residual;
4912 bfd_signed_vma signed_value;
4913 int group = 0;
4914
4915 /* Determine which groups of bits to calculate. */
4916 switch (r_type)
4917 {
4918 case R_ARM_LDR_PC_G0:
4919 case R_ARM_LDR_SB_G0:
4920 group = 0;
4921 break;
4922
4923 case R_ARM_LDR_PC_G1:
4924 case R_ARM_LDR_SB_G1:
4925 group = 1;
4926 break;
4927
4928 case R_ARM_LDR_PC_G2:
4929 case R_ARM_LDR_SB_G2:
4930 group = 2;
4931 break;
4932
4933 default:
4934 abort();
4935 }
4936
4937 /* If REL, extract the addend from the insn. If RELA, it will
4938 have already been fetched for us. */
4939 if (globals->use_rel)
4940 {
4941 int negative = (insn & (1 << 23)) ? 1 : -1;
4942 signed_addend = negative * (insn & 0xfff);
4943 }
4944
4945 /* Compute the value (X) to go in the place. */
4946 if (r_type == R_ARM_LDR_PC_G0
4947 || r_type == R_ARM_LDR_PC_G1
4948 || r_type == R_ARM_LDR_PC_G2)
4949 /* PC relative. */
4950 signed_value = value - pc + signed_addend;
4951 else
4952 /* Section base relative. */
4953 signed_value = value - sb + signed_addend;
4954
4955 /* Calculate the value of the relevant G_{n-1} to obtain
4956 the residual at that stage. */
4957 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
4958
4959 /* Check for overflow. */
4960 if (residual >= 0x1000)
4961 {
4962 (*_bfd_error_handler)
4963 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
4964 input_bfd, input_section,
4965 (long) rel->r_offset, abs (signed_value), howto->name);
4966 return bfd_reloc_overflow;
4967 }
4968
4969 /* Mask out the value and U bit. */
4970 insn &= 0xff7ff000;
4971
4972 /* Set the U bit if the value to go in the place is non-negative. */
4973 if (signed_value >= 0)
4974 insn |= 1 << 23;
4975
4976 /* Encode the offset. */
4977 insn |= residual;
4978
4979 bfd_put_32 (input_bfd, insn, hit_data);
4980 }
4981 return bfd_reloc_ok;
4982
4983 case R_ARM_LDRS_PC_G0:
4984 case R_ARM_LDRS_PC_G1:
4985 case R_ARM_LDRS_PC_G2:
4986 case R_ARM_LDRS_SB_G0:
4987 case R_ARM_LDRS_SB_G1:
4988 case R_ARM_LDRS_SB_G2:
4989 {
4990 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4991 bfd_vma pc = input_section->output_section->vma
4992 + input_section->output_offset + rel->r_offset;
4993 bfd_vma sb = 0; /* See note above. */
4994 bfd_vma residual;
4995 bfd_signed_vma signed_value;
4996 int group = 0;
4997
4998 /* Determine which groups of bits to calculate. */
4999 switch (r_type)
5000 {
5001 case R_ARM_LDRS_PC_G0:
5002 case R_ARM_LDRS_SB_G0:
5003 group = 0;
5004 break;
5005
5006 case R_ARM_LDRS_PC_G1:
5007 case R_ARM_LDRS_SB_G1:
5008 group = 1;
5009 break;
5010
5011 case R_ARM_LDRS_PC_G2:
5012 case R_ARM_LDRS_SB_G2:
5013 group = 2;
5014 break;
5015
5016 default:
5017 abort();
5018 }
5019
5020 /* If REL, extract the addend from the insn. If RELA, it will
5021 have already been fetched for us. */
5022 if (globals->use_rel)
5023 {
5024 int negative = (insn & (1 << 23)) ? 1 : -1;
5025 signed_addend = negative * (((insn & 0xf00) >> 4) + (insn & 0xf));
5026 }
5027
5028 /* Compute the value (X) to go in the place. */
5029 if (r_type == R_ARM_LDRS_PC_G0
5030 || r_type == R_ARM_LDRS_PC_G1
5031 || r_type == R_ARM_LDRS_PC_G2)
5032 /* PC relative. */
5033 signed_value = value - pc + signed_addend;
5034 else
5035 /* Section base relative. */
5036 signed_value = value - sb + signed_addend;
5037
5038 /* Calculate the value of the relevant G_{n-1} to obtain
5039 the residual at that stage. */
5040 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
5041
5042 /* Check for overflow. */
5043 if (residual >= 0x100)
5044 {
5045 (*_bfd_error_handler)
5046 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
5047 input_bfd, input_section,
5048 (long) rel->r_offset, abs (signed_value), howto->name);
5049 return bfd_reloc_overflow;
5050 }
5051
5052 /* Mask out the value and U bit. */
5053 insn &= 0xff7ff0f0;
5054
5055 /* Set the U bit if the value to go in the place is non-negative. */
5056 if (signed_value >= 0)
5057 insn |= 1 << 23;
5058
5059 /* Encode the offset. */
5060 insn |= ((residual & 0xf0) << 4) | (residual & 0xf);
5061
5062 bfd_put_32 (input_bfd, insn, hit_data);
5063 }
5064 return bfd_reloc_ok;
5065
5066 case R_ARM_LDC_PC_G0:
5067 case R_ARM_LDC_PC_G1:
5068 case R_ARM_LDC_PC_G2:
5069 case R_ARM_LDC_SB_G0:
5070 case R_ARM_LDC_SB_G1:
5071 case R_ARM_LDC_SB_G2:
5072 {
5073 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
5074 bfd_vma pc = input_section->output_section->vma
5075 + input_section->output_offset + rel->r_offset;
5076 bfd_vma sb = 0; /* See note above. */
5077 bfd_vma residual;
5078 bfd_signed_vma signed_value;
5079 int group = 0;
5080
5081 /* Determine which groups of bits to calculate. */
5082 switch (r_type)
5083 {
5084 case R_ARM_LDC_PC_G0:
5085 case R_ARM_LDC_SB_G0:
5086 group = 0;
5087 break;
5088
5089 case R_ARM_LDC_PC_G1:
5090 case R_ARM_LDC_SB_G1:
5091 group = 1;
5092 break;
5093
5094 case R_ARM_LDC_PC_G2:
5095 case R_ARM_LDC_SB_G2:
5096 group = 2;
5097 break;
5098
5099 default:
5100 abort();
5101 }
5102
5103 /* If REL, extract the addend from the insn. If RELA, it will
5104 have already been fetched for us. */
5105 if (globals->use_rel)
5106 {
5107 int negative = (insn & (1 << 23)) ? 1 : -1;
5108 signed_addend = negative * ((insn & 0xff) << 2);
5109 }
5110
5111 /* Compute the value (X) to go in the place. */
5112 if (r_type == R_ARM_LDC_PC_G0
5113 || r_type == R_ARM_LDC_PC_G1
5114 || r_type == R_ARM_LDC_PC_G2)
5115 /* PC relative. */
5116 signed_value = value - pc + signed_addend;
5117 else
5118 /* Section base relative. */
5119 signed_value = value - sb + signed_addend;
5120
5121 /* Calculate the value of the relevant G_{n-1} to obtain
5122 the residual at that stage. */
5123 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
5124
5125 /* Check for overflow. (The absolute value to go in the place must be
5126 divisible by four and, after having been divided by four, must
5127 fit in eight bits.) */
5128 if ((residual & 0x3) != 0 || residual >= 0x400)
5129 {
5130 (*_bfd_error_handler)
5131 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
5132 input_bfd, input_section,
5133 (long) rel->r_offset, abs (signed_value), howto->name);
5134 return bfd_reloc_overflow;
5135 }
5136
5137 /* Mask out the value and U bit. */
5138 insn &= 0xff7fff00;
5139
5140 /* Set the U bit if the value to go in the place is non-negative. */
5141 if (signed_value >= 0)
5142 insn |= 1 << 23;
5143
5144 /* Encode the offset. */
5145 insn |= residual >> 2;
5146
5147 bfd_put_32 (input_bfd, insn, hit_data);
5148 }
5149 return bfd_reloc_ok;
5150
252b5132
RH		 5151 default:
5152 return bfd_reloc_notsupported;
5153 }
5154}
5155
ee065d83
PB		 5156
5157static int
5158uleb128_size (unsigned int i)
5159{
5160 int size;
5161 size = 1;
5162 while (i >= 0x80)
5163 {
5164 i >>= 7;
5165 size++;
5166 }
5167 return size;
5168}
5169
5170/* Return TRUE if the attribute has the default value (0/""). */
5171static bfd_boolean
5172is_default_attr (aeabi_attribute *attr)
5173{
5174 if ((attr->type & 1) && attr->i != 0)
5175 return FALSE;
5176 if ((attr->type & 2) && attr->s && *attr->s)
5177 return FALSE;
5178
5179 return TRUE;
5180}
5181
5182/* Return the size of a single attribute. */
5183static bfd_vma
5184eabi_attr_size(int tag, aeabi_attribute *attr)
5185{
5186 bfd_vma size;
5187
5188 if (is_default_attr (attr))
5189 return 0;
5190
5191 size = uleb128_size (tag);
5192 if (attr->type & 1)
5193 size += uleb128_size (attr->i);
5194 if (attr->type & 2)
5195 size += strlen ((char *)attr->s) + 1;
5196 return size;
5197}
5198
5199/* Returns the size of the eabi object attributess section. */
5200bfd_vma
5201elf32_arm_eabi_attr_size (bfd *abfd)
5202{
5203 bfd_vma size;
5204 aeabi_attribute *attr;
5205 aeabi_attribute_list *list;
5206 int i;
5207
5208 attr = elf32_arm_tdata (abfd)->known_eabi_attributes;
5209 size = 16; /* 'A' <size> "aeabi" 0x1 <size>. */
5210 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5211 size += eabi_attr_size (i, &attr[i]);
5212
5213 for (list = elf32_arm_tdata (abfd)->other_eabi_attributes;
5214 list;
5215 list = list->next)
5216 size += eabi_attr_size (list->tag, &list->attr);
5217
5218 return size;
5219}
5220
5221static bfd_byte *
5222write_uleb128 (bfd_byte *p, unsigned int val)
5223{
5224 bfd_byte c;
5225 do
5226 {
5227 c = val & 0x7f;
5228 val >>= 7;
5229 if (val)
5230 c |= 0x80;
5231 *(p++) = c;
5232 }
5233 while (val);
5234 return p;
5235}
5236
5237/* Write attribute ATTR to butter P, and return a pointer to the following
5238 byte. */
5239static bfd_byte *
5240write_eabi_attribute (bfd_byte *p, int tag, aeabi_attribute *attr)
5241{
5242 /* Suppress default entries. */
5243 if (is_default_attr(attr))
5244 return p;
5245
5246 p = write_uleb128 (p, tag);
5247 if (attr->type & 1)
5248 p = write_uleb128 (p, attr->i);
5249 if (attr->type & 2)
5250 {
5251 int len;
5252
5253 len = strlen (attr->s) + 1;
5254 memcpy (p, attr->s, len);
5255 p += len;
5256 }
5257
5258 return p;
5259}
5260
5261/* Write the contents of the eabi attributes section to p. */
5262void
5263elf32_arm_set_eabi_attr_contents (bfd *abfd, bfd_byte *contents, bfd_vma size)
5264{
5265 bfd_byte *p;
5266 aeabi_attribute *attr;
5267 aeabi_attribute_list *list;
5268 int i;
5269
5270 p = contents;
5271 *(p++) = 'A';
5272 bfd_put_32 (abfd, size - 1, p);
5273 p += 4;
5274 memcpy (p, "aeabi", 6);
5275 p += 6;
5276 *(p++) = Tag_File;
5277 bfd_put_32 (abfd, size - 11, p);
5278 p += 4;
5279
5280 attr = elf32_arm_tdata (abfd)->known_eabi_attributes;
5281 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5282 p = write_eabi_attribute (p, i, &attr[i]);
5283
5284 for (list = elf32_arm_tdata (abfd)->other_eabi_attributes;
5285 list;
5286 list = list->next)
5287 p = write_eabi_attribute (p, list->tag, &list->attr);
5288}
5289
5290/* Override final_link to handle EABI object attribute sections. */
5291
5292static bfd_boolean
5293elf32_arm_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
5294{
5295 asection *o;
5296 struct bfd_link_order *p;
5297 asection *attr_section = NULL;
5298 bfd_byte *contents;
5299 bfd_vma size = 0;
5300
5301 /* elf32_arm_merge_private_bfd_data will already have merged the
5302 object attributes. Remove the input sections from the link, and set
5303 the contents of the output secton. */
5304 for (o = abfd->sections; o != NULL; o = o->next)
5305 {
5306 if (strcmp (o->name, ".ARM.attributes") == 0)
5307 {
5308 for (p = o->map_head.link_order; p != NULL; p = p->next)
5309 {
5310 asection *input_section;
5311
5312 if (p->type != bfd_indirect_link_order)
5313 continue;
5314 input_section = p->u.indirect.section;
5315 /* Hack: reset the SEC_HAS_CONTENTS flag so that
5316 elf_link_input_bfd ignores this section. */
5317 input_section->flags &= ~SEC_HAS_CONTENTS;
5318 }
5319
5320 size = elf32_arm_eabi_attr_size (abfd);
5321 bfd_set_section_size (abfd, o, size);
5322 attr_section = o;
5323 /* Skip this section later on. */
5324 o->map_head.link_order = NULL;
5325 }
5326 }
5327 /* Invoke the ELF linker to do all the work. */
5328 if (!bfd_elf_final_link (abfd, info))
5329 return FALSE;
5330
5331 if (attr_section)
5332 {
5333 contents = bfd_malloc(size);
5334 if (contents == NULL)
5335 return FALSE;
5336 elf32_arm_set_eabi_attr_contents (abfd, contents, size);
5337 bfd_set_section_contents (abfd, attr_section, contents, 0, size);
5338 free (contents);
5339 }
5340 return TRUE;
5341}
5342
5343
98c1d4aa
NC		 5344/* Add INCREMENT to the reloc (of type HOWTO) at ADDRESS. */
5345static void
57e8b36a
NC		 5346arm_add_to_rel (bfd * abfd,
5347 bfd_byte * address,
5348 reloc_howto_type * howto,
5349 bfd_signed_vma increment)
98c1d4aa 5350{
98c1d4aa
NC		 5351 bfd_signed_vma addend;
5352
c19d1205 5353 if (howto->type == R_ARM_THM_CALL)
98c1d4aa 5354 {
9a5aca8c
AM		 5355 int upper_insn, lower_insn;
5356 int upper, lower;
98c1d4aa 5357
9a5aca8c
AM		 5358 upper_insn = bfd_get_16 (abfd, address);
5359 lower_insn = bfd_get_16 (abfd, address + 2);
5360 upper = upper_insn & 0x7ff;
5361 lower = lower_insn & 0x7ff;
5362
5363 addend = (upper << 12) | (lower << 1);
ddda4409 5364 addend += increment;
9a5aca8c 5365 addend >>= 1;
98c1d4aa 5366
9a5aca8c
AM		 5367 upper_insn = (upper_insn & 0xf800) | ((addend >> 11) & 0x7ff);
5368 lower_insn = (lower_insn & 0xf800) | (addend & 0x7ff);
5369
dc810e39
AM		 5370 bfd_put_16 (abfd, (bfd_vma) upper_insn, address);
5371 bfd_put_16 (abfd, (bfd_vma) lower_insn, address + 2);
9a5aca8c
AM		 5372 }
5373 else
5374 {
5375 bfd_vma contents;
5376
5377 contents = bfd_get_32 (abfd, address);
5378
5379 /* Get the (signed) value from the instruction. */
5380 addend = contents & howto->src_mask;
5381 if (addend & ((howto->src_mask + 1) >> 1))
5382 {
5383 bfd_signed_vma mask;
5384
5385 mask = -1;
5386 mask &= ~ howto->src_mask;
5387 addend |= mask;
5388 }
5389
5390 /* Add in the increment, (which is a byte value). */
5391 switch (howto->type)
5392 {
5393 default:
5394 addend += increment;
5395 break;
5396
5397 case R_ARM_PC24:
c6596c5e 5398 case R_ARM_PLT32:
5b5bb741
PB		 5399 case R_ARM_CALL:
5400 case R_ARM_JUMP24:
9a5aca8c 5401 addend <<= howto->size;
dc810e39 5402 addend += increment;
9a5aca8c
AM		 5403
5404 /* Should we check for overflow here ? */
5405
5406 /* Drop any undesired bits. */
5407 addend >>= howto->rightshift;
5408 break;
5409 }
5410
5411 contents = (contents & ~ howto->dst_mask) | (addend & howto->dst_mask);
5412
5413 bfd_put_32 (abfd, contents, address);
ddda4409 5414 }
98c1d4aa 5415}
252b5132 5416
ba93b8ac
DJ		 5417#define IS_ARM_TLS_RELOC(R_TYPE) \
5418 ((R_TYPE) == R_ARM_TLS_GD32 \
5419 || (R_TYPE) == R_ARM_TLS_LDO32 \
5420 || (R_TYPE) == R_ARM_TLS_LDM32 \
5421 || (R_TYPE) == R_ARM_TLS_DTPOFF32 \
5422 || (R_TYPE) == R_ARM_TLS_DTPMOD32 \
5423 || (R_TYPE) == R_ARM_TLS_TPOFF32 \
5424 || (R_TYPE) == R_ARM_TLS_LE32 \
5425 || (R_TYPE) == R_ARM_TLS_IE32)
5426
252b5132 5427/* Relocate an ARM ELF section. */
b34976b6 5428static bfd_boolean
57e8b36a
NC		 5429elf32_arm_relocate_section (bfd * output_bfd,
5430 struct bfd_link_info * info,
5431 bfd * input_bfd,
5432 asection * input_section,
5433 bfd_byte * contents,
5434 Elf_Internal_Rela * relocs,
5435 Elf_Internal_Sym * local_syms,
5436 asection ** local_sections)
252b5132 5437{
b34976b6
AM		 5438 Elf_Internal_Shdr *symtab_hdr;
5439 struct elf_link_hash_entry **sym_hashes;
5440 Elf_Internal_Rela *rel;
5441 Elf_Internal_Rela *relend;
5442 const char *name;
b32d3aa2 5443 struct elf32_arm_link_hash_table * globals;
252b5132 5444
4e7fd91e
PB		 5445 globals = elf32_arm_hash_table (info);
5446 if (info->relocatable && !globals->use_rel)
b34976b6 5447 return TRUE;
b491616a 5448
252b5132
RH		 5449 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
5450 sym_hashes = elf_sym_hashes (input_bfd);
5451
5452 rel = relocs;
5453 relend = relocs + input_section->reloc_count;
5454 for (; rel < relend; rel++)
5455 {
ba96a88f
NC		 5456 int r_type;
5457 reloc_howto_type * howto;
5458 unsigned long r_symndx;
5459 Elf_Internal_Sym * sym;
5460 asection * sec;
252b5132 5461 struct elf_link_hash_entry * h;
ba96a88f
NC		 5462 bfd_vma relocation;
5463 bfd_reloc_status_type r;
5464 arelent bfd_reloc;
ba93b8ac 5465 char sym_type;
0945cdfd 5466 bfd_boolean unresolved_reloc = FALSE;
f21f3fe0 5467
252b5132 5468 r_symndx = ELF32_R_SYM (rel->r_info);
ba96a88f 5469 r_type = ELF32_R_TYPE (rel->r_info);
b32d3aa2 5470 r_type = arm_real_reloc_type (globals, r_type);
252b5132 5471
ba96a88f
NC		 5472 if ( r_type == R_ARM_GNU_VTENTRY
5473 || r_type == R_ARM_GNU_VTINHERIT)
252b5132
RH		 5474 continue;
5475
b32d3aa2 5476 bfd_reloc.howto = elf32_arm_howto_from_type (r_type);
ba96a88f 5477 howto = bfd_reloc.howto;
252b5132 5478
4e7fd91e 5479 if (info->relocatable && globals->use_rel)
252b5132 5480 {
1049f94e 5481 /* This is a relocatable link. We don't have to change
252b5132
RH		 5482 anything, unless the reloc is against a section symbol,
5483 in which case we have to adjust according to where the
5484 section symbol winds up in the output section. */
5485 if (r_symndx < symtab_hdr->sh_info)
5486 {
5487 sym = local_syms + r_symndx;
5488 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
5489 {
5490 sec = local_sections[r_symndx];
98c1d4aa 5491 arm_add_to_rel (input_bfd, contents + rel->r_offset,
dc810e39
AM		 5492 howto,
5493 (bfd_signed_vma) (sec->output_offset
5494 + sym->st_value));
252b5132
RH		 5495 }
5496 }
5497
5498 continue;
5499 }
5500
5501 /* This is a final link. */
5502 h = NULL;
5503 sym = NULL;
5504 sec = NULL;
9b485d32 5505
252b5132
RH		 5506 if (r_symndx < symtab_hdr->sh_info)
5507 {
5508 sym = local_syms + r_symndx;
ba93b8ac 5509 sym_type = ELF32_ST_TYPE (sym->st_info);
252b5132 5510 sec = local_sections[r_symndx];
4e7fd91e 5511 if (globals->use_rel)
f8df10f4 5512 {
4e7fd91e
PB		 5513 relocation = (sec->output_section->vma
5514 + sec->output_offset
5515 + sym->st_value);
5516 if ((sec->flags & SEC_MERGE)
5517 && ELF_ST_TYPE (sym->st_info) == STT_SECTION)
f8df10f4 5518 {
4e7fd91e
PB		 5519 asection *msec;
5520 bfd_vma addend, value;
5521
5522 if (howto->rightshift)
5523 {
5524 (*_bfd_error_handler)
5525 (_("%B(%A+0x%lx): %s relocation against SEC_MERGE section"),
5526 input_bfd, input_section,
5527 (long) rel->r_offset, howto->name);
5528 return FALSE;
5529 }
f8df10f4 5530
4e7fd91e 5531 value = bfd_get_32 (input_bfd, contents + rel->r_offset);
f8df10f4 5532
4e7fd91e
PB		 5533 /* Get the (signed) value from the instruction. */
5534 addend = value & howto->src_mask;
5535 if (addend & ((howto->src_mask + 1) >> 1))
5536 {
5537 bfd_signed_vma mask;
f8df10f4 5538
4e7fd91e
PB		 5539 mask = -1;
5540 mask &= ~ howto->src_mask;
5541 addend |= mask;
5542 }
5543 msec = sec;
5544 addend =
5545 _bfd_elf_rel_local_sym (output_bfd, sym, &msec, addend)
5546 - relocation;
5547 addend += msec->output_section->vma + msec->output_offset;
5548 value = (value & ~ howto->dst_mask) | (addend & howto->dst_mask);
5549 bfd_put_32 (input_bfd, value, contents + rel->r_offset);
f8df10f4 5550 }
f8df10f4 5551 }
4e7fd91e
PB		 5552 else
5553 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
252b5132
RH		 5554 }
5555 else
5556 {
560e09e9 5557 bfd_boolean warned;
560e09e9 5558
b2a8e766
AM		 5559 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
5560 r_symndx, symtab_hdr, sym_hashes,
5561 h, sec, relocation,
5562 unresolved_reloc, warned);
ba93b8ac
DJ		 5563
5564 sym_type = h->type;
252b5132
RH		 5565 }
5566
5567 if (h != NULL)
5568 name = h->root.root.string;
5569 else
5570 {
5571 name = (bfd_elf_string_from_elf_section
5572 (input_bfd, symtab_hdr->sh_link, sym->st_name));
5573 if (name == NULL || *name == '\0')
5574 name = bfd_section_name (input_bfd, sec);
5575 }
f21f3fe0 5576
ba93b8ac
DJ		 5577 if (r_symndx != 0
5578 && r_type != R_ARM_NONE
5579 && (h == NULL
5580 || h->root.type == bfd_link_hash_defined
5581 || h->root.type == bfd_link_hash_defweak)
5582 && IS_ARM_TLS_RELOC (r_type) != (sym_type == STT_TLS))
5583 {
5584 (*_bfd_error_handler)
5585 ((sym_type == STT_TLS
5586 ? _("%B(%A+0x%lx): %s used with TLS symbol %s")
5587 : _("%B(%A+0x%lx): %s used with non-TLS symbol %s")),
5588 input_bfd,
5589 input_section,
5590 (long) rel->r_offset,
5591 howto->name,
5592 name);
5593 }
5594
252b5132
RH		 5595 r = elf32_arm_final_link_relocate (howto, input_bfd, output_bfd,
5596 input_section, contents, rel,
5597 relocation, info, sec, name,
5598 (h ? ELF_ST_TYPE (h->type) :
0945cdfd
DJ		 5599 ELF_ST_TYPE (sym->st_info)), h,
5600 &unresolved_reloc);
5601
5602 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
5603 because such sections are not SEC_ALLOC and thus ld.so will
5604 not process them. */
5605 if (unresolved_reloc
5606 && !((input_section->flags & SEC_DEBUGGING) != 0
5607 && h->def_dynamic))
5608 {
5609 (*_bfd_error_handler)
843fe662
L		 5610 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
5611 input_bfd,
5612 input_section,
5613 (long) rel->r_offset,
5614 howto->name,
5615 h->root.root.string);
0945cdfd
DJ		 5616 return FALSE;
5617 }
252b5132
RH		 5618
5619 if (r != bfd_reloc_ok)
5620 {
5621 const char * msg = (const char *) 0;
5622
5623 switch (r)
5624 {
5625 case bfd_reloc_overflow:
cf919dfd
PB		 5626 /* If the overflowing reloc was to an undefined symbol,
5627 we have already printed one error message and there
5628 is no point complaining again. */
5629 if ((! h ||
5630 h->root.type != bfd_link_hash_undefined)
5631 && (!((*info->callbacks->reloc_overflow)
dfeffb9f
L		 5632 (info, (h ? &h->root : NULL), name, howto->name,
5633 (bfd_vma) 0, input_bfd, input_section,
5634 rel->r_offset))))
b34976b6 5635 return FALSE;
252b5132
RH		 5636 break;
5637
5638 case bfd_reloc_undefined:
5639 if (!((*info->callbacks->undefined_symbol)
5640 (info, name, input_bfd, input_section,
b34976b6
AM		 5641 rel->r_offset, TRUE)))
5642 return FALSE;
252b5132
RH		 5643 break;
5644
5645 case bfd_reloc_outofrange:
9b485d32 5646 msg = _("internal error: out of range error");
252b5132
RH		 5647 goto common_error;
5648
5649 case bfd_reloc_notsupported:
9b485d32 5650 msg = _("internal error: unsupported relocation error");
252b5132
RH		 5651 goto common_error;
5652
5653 case bfd_reloc_dangerous:
9b485d32 5654 msg = _("internal error: dangerous error");
252b5132
RH		 5655 goto common_error;
5656
5657 default:
9b485d32 5658 msg = _("internal error: unknown error");
252b5132
RH		 5659 /* fall through */
5660
5661 common_error:
5662 if (!((*info->callbacks->warning)
5663 (info, msg, name, input_bfd, input_section,
5664 rel->r_offset)))
b34976b6 5665 return FALSE;
252b5132
RH		 5666 break;
5667 }
5668 }
5669 }
5670
b34976b6 5671 return TRUE;
252b5132
RH		 5672}
5673
ee065d83
PB		 5674/* Allocate/find an object attribute. */
5675static aeabi_attribute *
5676elf32_arm_new_eabi_attr (bfd *abfd, int tag)
5677{
5678 aeabi_attribute *attr;
5679 aeabi_attribute_list *list;
5680 aeabi_attribute_list *p;
5681 aeabi_attribute_list **lastp;
5682
5683
5684 if (tag < NUM_KNOWN_ATTRIBUTES)
5685 {
5686 /* Knwon tags are preallocated. */
5687 attr = &elf32_arm_tdata (abfd)->known_eabi_attributes[tag];
5688 }
5689 else
5690 {
5691 /* Create a new tag. */
5692 list = (aeabi_attribute_list *)
5693 bfd_alloc (abfd, sizeof (aeabi_attribute_list));
5694 memset (list, 0, sizeof (aeabi_attribute_list));
5695 list->tag = tag;
5696 /* Keep the tag list in order. */
5697 lastp = &elf32_arm_tdata (abfd)->other_eabi_attributes;
5698 for (p = *lastp; p; p = p->next)
5699 {
5700 if (tag < p->tag)
5701 break;
5702 lastp = &p->next;
5703 }
5704 list->next = *lastp;
5705 *lastp = list;
5706 attr = &list->attr;
5707 }
5708
5709 return attr;
5710}
5711
39b41c9c
PB		 5712int
5713elf32_arm_get_eabi_attr_int (bfd *abfd, int tag)
5714{
5715 aeabi_attribute_list *p;
5716
5717 if (tag < NUM_KNOWN_ATTRIBUTES)
5718 {
5719 /* Knwon tags are preallocated. */
5720 return elf32_arm_tdata (abfd)->known_eabi_attributes[tag].i;
5721 }
5722 else
5723 {
5724 for (p = elf32_arm_tdata (abfd)->other_eabi_attributes;
5725 p;
5726 p = p->next)
5727 {
5728 if (tag == p->tag)
5729 return p->attr.i;
5730 if (tag < p->tag)
5731 break;
5732 }
5733 return 0;
5734 }
5735}
5736
ee065d83
PB		 5737void
5738elf32_arm_add_eabi_attr_int (bfd *abfd, int tag, unsigned int i)
5739{
5740 aeabi_attribute *attr;
5741
5742 attr = elf32_arm_new_eabi_attr (abfd, tag);
5743 attr->type = 1;
5744 attr->i = i;
5745}
5746
5747static char *
5748attr_strdup (bfd *abfd, const char * s)
5749{
5750 char * p;
5751 int len;
5752
5753 len = strlen (s) + 1;
5754 p = (char *)bfd_alloc(abfd, len);
5755 return memcpy (p, s, len);
5756}
5757
5758void
5759elf32_arm_add_eabi_attr_string (bfd *abfd, int tag, const char *s)
5760{
5761 aeabi_attribute *attr;
5762
5763 attr = elf32_arm_new_eabi_attr (abfd, tag);
5764 attr->type = 2;
5765 attr->s = attr_strdup (abfd, s);
5766}
5767
5768void
5769elf32_arm_add_eabi_attr_compat (bfd *abfd, unsigned int i, const char *s)
5770{
5771 aeabi_attribute_list *list;
5772 aeabi_attribute_list *p;
5773 aeabi_attribute_list **lastp;
5774
5775 list = (aeabi_attribute_list *)
5776 bfd_alloc (abfd, sizeof (aeabi_attribute_list));
5777 memset (list, 0, sizeof (aeabi_attribute_list));
5778 list->tag = Tag_compatibility;
5779 list->attr.type = 3;
5780 list->attr.i = i;
5781 list->attr.s = attr_strdup (abfd, s);
5782
5783 lastp = &elf32_arm_tdata (abfd)->other_eabi_attributes;
5784 for (p = *lastp; p; p = p->next)
5785 {
5786 int cmp;
5787 if (p->tag != Tag_compatibility)
5788 break;
5789 cmp = strcmp(s, p->attr.s);
5790 if (cmp < 0 || (cmp == 0 && i < p->attr.i))
5791 break;
5792 lastp = &p->next;
5793 }
5794 list->next = *lastp;
5795 *lastp = list;
5796}
5797
c178919b
NC		 5798/* Set the right machine number. */
5799
5800static bfd_boolean
57e8b36a 5801elf32_arm_object_p (bfd *abfd)
c178919b 5802{
5a6c6817 5803 unsigned int mach;
57e8b36a 5804
5a6c6817 5805 mach = bfd_arm_get_mach_from_notes (abfd, ARM_NOTE_SECTION);
c178919b 5806
5a6c6817
NC		 5807 if (mach != bfd_mach_arm_unknown)
5808 bfd_default_set_arch_mach (abfd, bfd_arch_arm, mach);
5809
5810 else if (elf_elfheader (abfd)->e_flags & EF_ARM_MAVERICK_FLOAT)
5811 bfd_default_set_arch_mach (abfd, bfd_arch_arm, bfd_mach_arm_ep9312);
e16bb312 5812
e16bb312 5813 else
5a6c6817 5814 bfd_default_set_arch_mach (abfd, bfd_arch_arm, mach);
c178919b
NC		 5815
5816 return TRUE;
5817}
5818
fc830a83 5819/* Function to keep ARM specific flags in the ELF header. */
3c9458e9 5820
b34976b6 5821static bfd_boolean
57e8b36a 5822elf32_arm_set_private_flags (bfd *abfd, flagword flags)
252b5132
RH		 5823{
5824 if (elf_flags_init (abfd)
5825 && elf_elfheader (abfd)->e_flags != flags)
5826 {
fc830a83
NC		 5827 if (EF_ARM_EABI_VERSION (flags) == EF_ARM_EABI_UNKNOWN)
5828 {
fd2ec330 5829 if (flags & EF_ARM_INTERWORK)
d003868e
AM		 5830 (*_bfd_error_handler)
5831 (_("Warning: Not setting interworking flag of %B since it has already been specified as non-interworking"),
5832 abfd);
fc830a83 5833 else
d003868e
AM		 5834 _bfd_error_handler
5835 (_("Warning: Clearing the interworking flag of %B due to outside request"),
5836 abfd);
fc830a83 5837 }
252b5132
RH		 5838 }
5839 else
5840 {
5841 elf_elfheader (abfd)->e_flags = flags;
b34976b6 5842 elf_flags_init (abfd) = TRUE;
252b5132
RH		 5843 }
5844
b34976b6 5845 return TRUE;
252b5132
RH		 5846}
5847
ee065d83
PB		 5848/* Copy the eabi object attribute from IBFD to OBFD. */
5849static void
5850copy_eabi_attributes (bfd *ibfd, bfd *obfd)
5851{
5852 aeabi_attribute *in_attr;
5853 aeabi_attribute *out_attr;
5854 aeabi_attribute_list *list;
5855 int i;
5856
5857 in_attr = elf32_arm_tdata (ibfd)->known_eabi_attributes;
5858 out_attr = elf32_arm_tdata (obfd)->known_eabi_attributes;
5859 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5860 {
5861 out_attr->i = in_attr->i;
5862 if (in_attr->s && *in_attr->s)
5863 out_attr->s = attr_strdup (obfd, in_attr->s);
5864 in_attr++;
5865 out_attr++;
5866 }
5867
5868 for (list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
5869 list;
5870 list = list->next)
5871 {
5872 in_attr = &list->attr;
5873 switch (in_attr->type)
5874 {
5875 case 1:
5876 elf32_arm_add_eabi_attr_int (obfd, list->tag, in_attr->i);
5877 break;
5878 case 2:
5879 elf32_arm_add_eabi_attr_string (obfd, list->tag, in_attr->s);
5880 break;
5881 case 3:
5882 elf32_arm_add_eabi_attr_compat (obfd, in_attr->i, in_attr->s);
5883 break;
5884 default:
5885 abort();
5886 }
5887 }
5888}
5889
5890
fc830a83 5891/* Copy backend specific data from one object module to another. */
9b485d32 5892
b34976b6 5893static bfd_boolean
57e8b36a 5894elf32_arm_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
252b5132
RH		 5895{
5896 flagword in_flags;
5897 flagword out_flags;
5898
fc830a83 5899 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
252b5132 5900 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 5901 return TRUE;
252b5132 5902
fc830a83 5903 in_flags = elf_elfheader (ibfd)->e_flags;
252b5132
RH		 5904 out_flags = elf_elfheader (obfd)->e_flags;
5905
fc830a83
NC		 5906 if (elf_flags_init (obfd)
5907 && EF_ARM_EABI_VERSION (out_flags) == EF_ARM_EABI_UNKNOWN
5908 && in_flags != out_flags)
252b5132 5909 {
252b5132 5910 /* Cannot mix APCS26 and APCS32 code. */
fd2ec330 5911 if ((in_flags & EF_ARM_APCS_26) != (out_flags & EF_ARM_APCS_26))
b34976b6 5912 return FALSE;
252b5132
RH		 5913
5914 /* Cannot mix float APCS and non-float APCS code. */
fd2ec330 5915 if ((in_flags & EF_ARM_APCS_FLOAT) != (out_flags & EF_ARM_APCS_FLOAT))
b34976b6 5916 return FALSE;
252b5132
RH		 5917
5918 /* If the src and dest have different interworking flags
5919 then turn off the interworking bit. */
fd2ec330 5920 if ((in_flags & EF_ARM_INTERWORK) != (out_flags & EF_ARM_INTERWORK))
252b5132 5921 {
fd2ec330 5922 if (out_flags & EF_ARM_INTERWORK)
d003868e
AM		 5923 _bfd_error_handler
5924 (_("Warning: Clearing the interworking flag of %B because non-interworking code in %B has been linked with it"),
5925 obfd, ibfd);
252b5132 5926
fd2ec330 5927 in_flags &= ~EF_ARM_INTERWORK;
252b5132 5928 }
1006ba19
PB		 5929
5930 /* Likewise for PIC, though don't warn for this case. */
fd2ec330
PB		 5931 if ((in_flags & EF_ARM_PIC) != (out_flags & EF_ARM_PIC))
5932 in_flags &= ~EF_ARM_PIC;
252b5132
RH		 5933 }
5934
5935 elf_elfheader (obfd)->e_flags = in_flags;
b34976b6 5936 elf_flags_init (obfd) = TRUE;
252b5132 5937
94a3258f
PB		 5938 /* Also copy the EI_OSABI field. */
5939 elf_elfheader (obfd)->e_ident[EI_OSABI] =
5940 elf_elfheader (ibfd)->e_ident[EI_OSABI];
5941
ee065d83
PB		 5942 /* Copy EABI object attributes. */
5943 copy_eabi_attributes (ibfd, obfd);
5944
5945 return TRUE;
5946}
5947
5948/* Values for Tag_ABI_PCS_R9_use. */
5949enum
5950{
5951 AEABI_R9_V6,
5952 AEABI_R9_SB,
5953 AEABI_R9_TLS,
5954 AEABI_R9_unused
5955};
5956
5957/* Values for Tag_ABI_PCS_RW_data. */
5958enum
5959{
5960 AEABI_PCS_RW_data_absolute,
5961 AEABI_PCS_RW_data_PCrel,
5962 AEABI_PCS_RW_data_SBrel,
5963 AEABI_PCS_RW_data_unused
5964};
5965
5966/* Values for Tag_ABI_enum_size. */
5967enum
5968{
5969 AEABI_enum_unused,
5970 AEABI_enum_short,
5971 AEABI_enum_wide,
5972 AEABI_enum_forced_wide
5973};
5974
5975/* Merge EABI object attributes from IBFD into OBFD. Raise an error if there
5976 are conflicting attributes. */
5977static bfd_boolean
5978elf32_arm_merge_eabi_attributes (bfd *ibfd, bfd *obfd)
5979{
5980 aeabi_attribute *in_attr;
5981 aeabi_attribute *out_attr;
5982 aeabi_attribute_list *in_list;
5983 aeabi_attribute_list *out_list;
5984 /* Some tags have 0 = don't care, 1 = strong requirement,
5985 2 = weak requirement. */
5986 static const int order_312[3] = {3, 1, 2};
5987 int i;
5988
5989 if (!elf32_arm_tdata (ibfd)->known_eabi_attributes[0].i)
5990 {
5991 /* This is the first object. Copy the attributes. */
5992 copy_eabi_attributes (ibfd, obfd);
5993 return TRUE;
5994 }
5995
5996 /* Use the Tag_null value to indicate the attributes have been
5997 initialized. */
5998 elf32_arm_tdata (ibfd)->known_eabi_attributes[0].i = 1;
5999
6000 in_attr = elf32_arm_tdata (ibfd)->known_eabi_attributes;
6001 out_attr = elf32_arm_tdata (obfd)->known_eabi_attributes;
6002 /* This needs to happen before Tag_ABI_FP_number_model is merged. */
6003 if (in_attr[Tag_ABI_VFP_args].i != out_attr[Tag_ABI_VFP_args].i)
6004 {
6005 /* Ignore mismatches if teh object doesn't use floating point. */
6006 if (out_attr[Tag_ABI_FP_number_model].i == 0)
6007 out_attr[Tag_ABI_VFP_args].i = in_attr[Tag_ABI_VFP_args].i;
6008 else if (in_attr[Tag_ABI_FP_number_model].i != 0)
6009 {
6010 _bfd_error_handler
6011 (_("ERROR: %B uses VFP register arguments, %B does not"),
6012 ibfd, obfd);
6013 return FALSE;
6014 }
6015 }
6016
6017 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
6018 {
6019 /* Merge this attribute with existing attributes. */
6020 switch (i)
6021 {
6022 case Tag_CPU_raw_name:
6023 case Tag_CPU_name:
6024 /* Use whichever has the greatest architecture requirements. */
6025 if (in_attr[Tag_CPU_arch].i > out_attr[Tag_CPU_arch].i)
6026 out_attr[i].s = attr_strdup(obfd, in_attr[i].s);
6027 break;
6028
6029 case Tag_ABI_optimization_goals:
6030 case Tag_ABI_FP_optimization_goals:
6031 /* Use the first value seen. */
6032 break;
6033
6034 case Tag_CPU_arch:
6035 case Tag_ARM_ISA_use:
6036 case Tag_THUMB_ISA_use:
6037 case Tag_VFP_arch:
6038 case Tag_WMMX_arch:
6039 case Tag_NEON_arch:
6040 /* ??? Do NEON and WMMX conflict? */
6041 case Tag_ABI_FP_rounding:
6042 case Tag_ABI_FP_denormal:
6043 case Tag_ABI_FP_exceptions:
6044 case Tag_ABI_FP_user_exceptions:
6045 case Tag_ABI_FP_number_model:
6046 case Tag_ABI_align8_preserved:
6047 case Tag_ABI_HardFP_use:
6048 /* Use the largest value specified. */
6049 if (in_attr[i].i > out_attr[i].i)
6050 out_attr[i].i = in_attr[i].i;
6051 break;
6052
6053 case Tag_CPU_arch_profile:
6054 /* Warn if conflicting architecture profiles used. */
6055 if (out_attr[i].i && in_attr[i].i && in_attr[i].i != out_attr[i].i)
6056 {
6057 _bfd_error_handler
6058 (_("ERROR: %B: Conflicting architecture profiles %c/%c"),
6059 ibfd, in_attr[i].i, out_attr[i].i);
6060 return FALSE;
6061 }
6062 if (in_attr[i].i)
6063 out_attr[i].i = in_attr[i].i;
6064 break;
6065 case Tag_PCS_config:
6066 if (out_attr[i].i == 0)
6067 out_attr[i].i = in_attr[i].i;
6068 else if (in_attr[i].i != 0 && out_attr[i].i != 0)
6069 {
6070 /* It's sometimes ok to mix different configs, so this is only
6071 a warning. */
6072 _bfd_error_handler
6073 (_("Warning: %B: Conflicting platform configuration"), ibfd);
6074 }
6075 break;
6076 case Tag_ABI_PCS_R9_use:
6077 if (out_attr[i].i != AEABI_R9_unused
6078 && in_attr[i].i != AEABI_R9_unused)
6079 {
6080 _bfd_error_handler
6081 (_("ERROR: %B: Conflicting use of R9"), ibfd);
6082 return FALSE;
6083 }
6084 if (out_attr[i].i == AEABI_R9_unused)
6085 out_attr[i].i = in_attr[i].i;
6086 break;
6087 case Tag_ABI_PCS_RW_data:
6088 if (in_attr[i].i == AEABI_PCS_RW_data_SBrel
6089 && out_attr[Tag_ABI_PCS_R9_use].i != AEABI_R9_SB
6090 && out_attr[Tag_ABI_PCS_R9_use].i != AEABI_R9_unused)
6091 {
6092 _bfd_error_handler
6093 (_("ERROR: %B: SB relative addressing conflicts with use of R9"),
6094 ibfd);
6095 return FALSE;
6096 }
6097 /* Use the smallest value specified. */
6098 if (in_attr[i].i < out_attr[i].i)
6099 out_attr[i].i = in_attr[i].i;
6100 break;
6101 case Tag_ABI_PCS_RO_data:
6102 /* Use the smallest value specified. */
6103 if (in_attr[i].i < out_attr[i].i)
6104 out_attr[i].i = in_attr[i].i;
6105 break;
6106 case Tag_ABI_PCS_GOT_use:
6107 if (in_attr[i].i > 2 || out_attr[i].i > 2
6108 || order_312[in_attr[i].i] < order_312[out_attr[i].i])
6109 out_attr[i].i = in_attr[i].i;
6110 break;
6111 case Tag_ABI_PCS_wchar_t:
6112 if (out_attr[i].i && in_attr[i].i && out_attr[i].i != in_attr[i].i)
6113 {
6114 _bfd_error_handler
6115 (_("ERROR: %B: Conflicting definitions of wchar_t"), ibfd);
6116 return FALSE;
6117 }
6118 if (in_attr[i].i)
6119 out_attr[i].i = in_attr[i].i;
6120 break;
6121 case Tag_ABI_align8_needed:
6122 /* ??? Check against Tag_ABI_align8_preserved. */
6123 if (in_attr[i].i > 2 || out_attr[i].i > 2
6124 || order_312[in_attr[i].i] < order_312[out_attr[i].i])
6125 out_attr[i].i = in_attr[i].i;
6126 break;
6127 case Tag_ABI_enum_size:
6128 if (in_attr[i].i != AEABI_enum_unused)
6129 {
6130 if (out_attr[i].i == AEABI_enum_unused
6131 || out_attr[i].i == AEABI_enum_forced_wide)
6132 {
6133 /* The existing object is compatible with anything.
6134 Use whatever requirements the new object has. */
6135 out_attr[i].i = in_attr[i].i;
6136 }
6137 else if (in_attr[i].i != AEABI_enum_forced_wide
6138 && out_attr[i].i != in_attr[i].i)
6139 {
6140 _bfd_error_handler
6141 (_("ERROR: %B: Conflicting enum sizes"), ibfd);
6142 }
6143 }
6144 break;
6145 case Tag_ABI_VFP_args:
6146 /* Aready done. */
6147 break;
6148 case Tag_ABI_WMMX_args:
6149 if (in_attr[i].i != out_attr[i].i)
6150 {
6151 _bfd_error_handler
6152 (_("ERROR: %B uses iWMMXt register arguments, %B does not"),
6153 ibfd, obfd);
6154 return FALSE;
6155 }
6156 break;
6157 default: /* All known attributes should be explicitly covered. */
6158 abort ();
6159 }
6160 }
6161
6162 in_list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
6163 out_list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
6164 while (in_list && in_list->tag == Tag_compatibility)
6165 {
6166 in_attr = &in_list->attr;
6167 if (in_attr->i == 0)
6168 continue;
6169 if (in_attr->i == 1)
6170 {
6171 _bfd_error_handler
6172 (_("ERROR: %B: Must be processed by '%s' toolchain"),
6173 ibfd, in_attr->s);
6174 return FALSE;
6175 }
6176 if (!out_list || out_list->tag != Tag_compatibility
6177 || strcmp (in_attr->s, out_list->attr.s) != 0)
6178 {
6179 /* Add this compatibility tag to the output. */
6180 elf32_arm_add_eabi_attr_compat (obfd, in_attr->i, in_attr->s);
6181 continue;
6182 }
6183 out_attr = &out_list->attr;
6184 /* Check all the input tags with the same identifier. */
6185 for (;;)
6186 {
6187 if (out_list->tag != Tag_compatibility
6188 || in_attr->i != out_attr->i
6189 || strcmp (in_attr->s, out_attr->s) != 0)
6190 {
6191 _bfd_error_handler
6192 (_("ERROR: %B: Incompatible object tag '%s':%d"),
6193 ibfd, in_attr->s, in_attr->i);
6194 return FALSE;
6195 }
6196 in_list = in_list->next;
6197 if (in_list->tag != Tag_compatibility
6198 || strcmp (in_attr->s, in_list->attr.s) != 0)
6199 break;
6200 in_attr = &in_list->attr;
6201 out_list = out_list->next;
6202 if (out_list)
6203 out_attr = &out_list->attr;
6204 }
6205
6206 /* Check the output doesn't have extra tags with this identifier. */
6207 if (out_list && out_list->tag == Tag_compatibility
6208 && strcmp (in_attr->s, out_list->attr.s) == 0)
6209 {
6210 _bfd_error_handler
6211 (_("ERROR: %B: Incompatible object tag '%s':%d"),
6212 ibfd, in_attr->s, out_list->attr.i);
6213 return FALSE;
6214 }
6215 }
6216
6217 for (; in_list; in_list = in_list->next)
6218 {
6219 if ((in_list->tag & 128) < 64)
eb111b1f
BE		 6220 {
6221 _bfd_error_handler
6222 (_("Warning: %B: Unknown EABI object attribute %d"),
6223 ibfd, in_list->tag);
6224 break;
6225 }
ee065d83 6226 }
b34976b6 6227 return TRUE;
252b5132
RH		 6228}
6229
3a4a14e9
PB		 6230
6231/* Return TRUE if the two EABI versions are incompatible. */
6232
6233static bfd_boolean
6234elf32_arm_versions_compatible (unsigned iver, unsigned over)
6235{
6236 /* v4 and v5 are the same spec before and after it was released,
6237 so allow mixing them. */
6238 if ((iver == EF_ARM_EABI_VER4 && over == EF_ARM_EABI_VER5)
6239 || (iver == EF_ARM_EABI_VER5 && over == EF_ARM_EABI_VER4))
6240 return TRUE;
6241
6242 return (iver == over);
6243}
6244
252b5132
RH		 6245/* Merge backend specific data from an object file to the output
6246 object file when linking. */
9b485d32 6247
b34976b6 6248static bfd_boolean
57e8b36a 6249elf32_arm_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
252b5132
RH		 6250{
6251 flagword out_flags;
6252 flagword in_flags;
b34976b6 6253 bfd_boolean flags_compatible = TRUE;
cf919dfd 6254 asection *sec;
252b5132 6255
9b485d32 6256 /* Check if we have the same endianess. */
82e51918 6257 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
b34976b6 6258 return FALSE;
1fe494a5 6259
252b5132
RH		 6260 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
6261 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 6262 return TRUE;
252b5132 6263
ee065d83
PB		 6264 if (!elf32_arm_merge_eabi_attributes (ibfd, obfd))
6265 return FALSE;
6266
252b5132
RH		 6267 /* The input BFD must have had its flags initialised. */
6268 /* The following seems bogus to me -- The flags are initialized in
6269 the assembler but I don't think an elf_flags_init field is
9b485d32 6270 written into the object. */
252b5132
RH		 6271 /* BFD_ASSERT (elf_flags_init (ibfd)); */
6272
6273 in_flags = elf_elfheader (ibfd)->e_flags;
6274 out_flags = elf_elfheader (obfd)->e_flags;
6275
6276 if (!elf_flags_init (obfd))
6277 {
fe077fa6
NC		 6278 /* If the input is the default architecture and had the default
6279 flags then do not bother setting the flags for the output
6280 architecture, instead allow future merges to do this. If no
6281 future merges ever set these flags then they will retain their
6282 uninitialised values, which surprise surprise, correspond
252b5132 6283 to the default values. */
fe077fa6
NC		 6284 if (bfd_get_arch_info (ibfd)->the_default
6285 && elf_elfheader (ibfd)->e_flags == 0)
b34976b6 6286 return TRUE;
252b5132 6287
b34976b6 6288 elf_flags_init (obfd) = TRUE;
252b5132
RH		 6289 elf_elfheader (obfd)->e_flags = in_flags;
6290
6291 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
6292 && bfd_get_arch_info (obfd)->the_default)
6293 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
6294
b34976b6 6295 return TRUE;
252b5132
RH		 6296 }
6297
5a6c6817
NC		 6298 /* Determine what should happen if the input ARM architecture
6299 does not match the output ARM architecture. */
6300 if (! bfd_arm_merge_machines (ibfd, obfd))
6301 return FALSE;
e16bb312 6302
1006ba19 6303 /* Identical flags must be compatible. */
252b5132 6304 if (in_flags == out_flags)
b34976b6 6305 return TRUE;
252b5132 6306
35a0f415
DJ		 6307 /* Check to see if the input BFD actually contains any sections. If
6308 not, its flags may not have been initialised either, but it
8e3de13a 6309 cannot actually cause any incompatiblity. Do not short-circuit
35a0f415 6310 dynamic objects; their section list may be emptied by
d1f161ea 6311 elf_link_add_object_symbols.
35a0f415 6312
d1f161ea
NC		 6313 Also check to see if there are no code sections in the input.
6314 In this case there is no need to check for code specific flags.
6315 XXX - do we need to worry about floating-point format compatability
6316 in data sections ? */
35a0f415 6317 if (!(ibfd->flags & DYNAMIC))
cf919dfd 6318 {
35a0f415 6319 bfd_boolean null_input_bfd = TRUE;
d1f161ea 6320 bfd_boolean only_data_sections = TRUE;
35a0f415
DJ		 6321
6322 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
cf919dfd 6323 {
35a0f415
DJ		 6324 /* Ignore synthetic glue sections. */
6325 if (strcmp (sec->name, ".glue_7")
6326 && strcmp (sec->name, ".glue_7t"))
6327 {
d1f161ea
NC		 6328 if ((bfd_get_section_flags (ibfd, sec)
6329 & (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
6330 == (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
6331 only_data_sections = FALSE;
6332
35a0f415
DJ		 6333 null_input_bfd = FALSE;
6334 break;
6335 }
cf919dfd 6336 }
d1f161ea
NC		 6337
6338 if (null_input_bfd || only_data_sections)
35a0f415 6339 return TRUE;
cf919dfd 6340 }
cf919dfd 6341
252b5132 6342 /* Complain about various flag mismatches. */
3a4a14e9
PB		 6343 if (!elf32_arm_versions_compatible (EF_ARM_EABI_VERSION (in_flags),
6344 EF_ARM_EABI_VERSION (out_flags)))
fc830a83 6345 {
d003868e 6346 _bfd_error_handler
3656d5e3 6347 (_("ERROR: Source object %B has EABI version %d, but target %B has EABI version %d"),
d003868e
AM		 6348 ibfd, obfd,
6349 (in_flags & EF_ARM_EABIMASK) >> 24,
6350 (out_flags & EF_ARM_EABIMASK) >> 24);
b34976b6 6351 return FALSE;
fc830a83 6352 }
252b5132 6353
1006ba19 6354 /* Not sure what needs to be checked for EABI versions >= 1. */
00a97672
RS		 6355 /* VxWorks libraries do not use these flags. */
6356 if (get_elf_backend_data (obfd) != &elf32_arm_vxworks_bed
6357 && get_elf_backend_data (ibfd) != &elf32_arm_vxworks_bed
6358 && EF_ARM_EABI_VERSION (in_flags) == EF_ARM_EABI_UNKNOWN)
1006ba19 6359 {
fd2ec330 6360 if ((in_flags & EF_ARM_APCS_26) != (out_flags & EF_ARM_APCS_26))
1006ba19 6361 {
d003868e
AM		 6362 _bfd_error_handler
6363 (_("ERROR: %B is compiled for APCS-%d, whereas target %B uses APCS-%d"),
6364 ibfd, obfd,
6365 in_flags & EF_ARM_APCS_26 ? 26 : 32,
6366 out_flags & EF_ARM_APCS_26 ? 26 : 32);
b34976b6 6367 flags_compatible = FALSE;
1006ba19 6368 }
252b5132 6369
fd2ec330 6370 if ((in_flags & EF_ARM_APCS_FLOAT) != (out_flags & EF_ARM_APCS_FLOAT))
1006ba19 6371 {
5eefb65f 6372 if (in_flags & EF_ARM_APCS_FLOAT)
d003868e
AM		 6373 _bfd_error_handler
6374 (_("ERROR: %B passes floats in float registers, whereas %B passes them in integer registers"),
6375 ibfd, obfd);
5eefb65f 6376 else
d003868e
AM		 6377 _bfd_error_handler
6378 (_("ERROR: %B passes floats in integer registers, whereas %B passes them in float registers"),
6379 ibfd, obfd);
63b0f745 6380
b34976b6 6381 flags_compatible = FALSE;
1006ba19 6382 }
252b5132 6383
96a846ea 6384 if ((in_flags & EF_ARM_VFP_FLOAT) != (out_flags & EF_ARM_VFP_FLOAT))
1006ba19 6385 {
96a846ea 6386 if (in_flags & EF_ARM_VFP_FLOAT)
d003868e
AM		 6387 _bfd_error_handler
6388 (_("ERROR: %B uses VFP instructions, whereas %B does not"),
6389 ibfd, obfd);
5eefb65f 6390 else
d003868e
AM		 6391 _bfd_error_handler
6392 (_("ERROR: %B uses FPA instructions, whereas %B does not"),
6393 ibfd, obfd);
fde78edd
NC		 6394
6395 flags_compatible = FALSE;
6396 }
6397
6398 if ((in_flags & EF_ARM_MAVERICK_FLOAT) != (out_flags & EF_ARM_MAVERICK_FLOAT))
6399 {
6400 if (in_flags & EF_ARM_MAVERICK_FLOAT)
d003868e
AM		 6401 _bfd_error_handler
6402 (_("ERROR: %B uses Maverick instructions, whereas %B does not"),
6403 ibfd, obfd);
fde78edd 6404 else
d003868e
AM		 6405 _bfd_error_handler
6406 (_("ERROR: %B does not use Maverick instructions, whereas %B does"),
6407 ibfd, obfd);
63b0f745 6408
b34976b6 6409 flags_compatible = FALSE;
1006ba19 6410 }
96a846ea
RE		 6411
6412#ifdef EF_ARM_SOFT_FLOAT
6413 if ((in_flags & EF_ARM_SOFT_FLOAT) != (out_flags & EF_ARM_SOFT_FLOAT))
6414 {
6415 /* We can allow interworking between code that is VFP format
6416 layout, and uses either soft float or integer regs for
6417 passing floating point arguments and results. We already
6418 know that the APCS_FLOAT flags match; similarly for VFP
6419 flags. */
6420 if ((in_flags & EF_ARM_APCS_FLOAT) != 0
6421 || (in_flags & EF_ARM_VFP_FLOAT) == 0)
6422 {
6423 if (in_flags & EF_ARM_SOFT_FLOAT)
d003868e
AM		 6424 _bfd_error_handler
6425 (_("ERROR: %B uses software FP, whereas %B uses hardware FP"),
6426 ibfd, obfd);
96a846ea 6427 else
d003868e
AM		 6428 _bfd_error_handler
6429 (_("ERROR: %B uses hardware FP, whereas %B uses software FP"),
6430 ibfd, obfd);
96a846ea 6431
b34976b6 6432 flags_compatible = FALSE;
96a846ea
RE		 6433 }
6434 }
ee43f35e 6435#endif
252b5132 6436
1006ba19 6437 /* Interworking mismatch is only a warning. */
fd2ec330 6438 if ((in_flags & EF_ARM_INTERWORK) != (out_flags & EF_ARM_INTERWORK))
8f615d07 6439 {
e3c8793a
NC		 6440 if (in_flags & EF_ARM_INTERWORK)
6441 {
d003868e
AM		 6442 _bfd_error_handler
6443 (_("Warning: %B supports interworking, whereas %B does not"),
6444 ibfd, obfd);
e3c8793a
NC		 6445 }
6446 else
6447 {
d003868e
AM		 6448 _bfd_error_handler
6449 (_("Warning: %B does not support interworking, whereas %B does"),
6450 ibfd, obfd);
e3c8793a 6451 }
8f615d07 6452 }
252b5132 6453 }
63b0f745 6454
1006ba19 6455 return flags_compatible;
252b5132
RH		 6456}
6457
9b485d32
NC		 6458/* Display the flags field. */
6459
b34976b6 6460static bfd_boolean
57e8b36a 6461elf32_arm_print_private_bfd_data (bfd *abfd, void * ptr)
252b5132 6462{
fc830a83
NC		 6463 FILE * file = (FILE *) ptr;
6464 unsigned long flags;
252b5132
RH		 6465
6466 BFD_ASSERT (abfd != NULL && ptr != NULL);
6467
6468 /* Print normal ELF private data. */
6469 _bfd_elf_print_private_bfd_data (abfd, ptr);
6470
fc830a83 6471 flags = elf_elfheader (abfd)->e_flags;
9b485d32
NC		 6472 /* Ignore init flag - it may not be set, despite the flags field
6473 containing valid data. */
252b5132
RH		 6474
6475 /* xgettext:c-format */
9b485d32 6476 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
252b5132 6477
fc830a83
NC		 6478 switch (EF_ARM_EABI_VERSION (flags))
6479 {
6480 case EF_ARM_EABI_UNKNOWN:
4cc11e76 6481 /* The following flag bits are GNU extensions and not part of the
fc830a83
NC		 6482 official ARM ELF extended ABI. Hence they are only decoded if
6483 the EABI version is not set. */
fd2ec330 6484 if (flags & EF_ARM_INTERWORK)
9b485d32 6485 fprintf (file, _(" [interworking enabled]"));
9a5aca8c 6486
fd2ec330 6487 if (flags & EF_ARM_APCS_26)
6c571f00 6488 fprintf (file, " [APCS-26]");
fc830a83 6489 else
6c571f00 6490 fprintf (file, " [APCS-32]");
9a5aca8c 6491
96a846ea
RE		 6492 if (flags & EF_ARM_VFP_FLOAT)
6493 fprintf (file, _(" [VFP float format]"));
fde78edd
NC		 6494 else if (flags & EF_ARM_MAVERICK_FLOAT)
6495 fprintf (file, _(" [Maverick float format]"));
96a846ea
RE		 6496 else
6497 fprintf (file, _(" [FPA float format]"));
6498
fd2ec330 6499 if (flags & EF_ARM_APCS_FLOAT)
9b485d32 6500 fprintf (file, _(" [floats passed in float registers]"));
9a5aca8c 6501
fd2ec330 6502 if (flags & EF_ARM_PIC)
9b485d32 6503 fprintf (file, _(" [position independent]"));
fc830a83 6504
fd2ec330 6505 if (flags & EF_ARM_NEW_ABI)
9b485d32 6506 fprintf (file, _(" [new ABI]"));
9a5aca8c 6507
fd2ec330 6508 if (flags & EF_ARM_OLD_ABI)
9b485d32 6509 fprintf (file, _(" [old ABI]"));
9a5aca8c 6510
fd2ec330 6511 if (flags & EF_ARM_SOFT_FLOAT)
9b485d32 6512 fprintf (file, _(" [software FP]"));
9a5aca8c 6513
96a846ea
RE		 6514 flags &= ~(EF_ARM_INTERWORK | EF_ARM_APCS_26 | EF_ARM_APCS_FLOAT
6515 | EF_ARM_PIC | EF_ARM_NEW_ABI | EF_ARM_OLD_ABI
fde78edd
NC		 6516 | EF_ARM_SOFT_FLOAT | EF_ARM_VFP_FLOAT
6517 | EF_ARM_MAVERICK_FLOAT);
fc830a83 6518 break;
9a5aca8c 6519
fc830a83 6520 case EF_ARM_EABI_VER1:
9b485d32 6521 fprintf (file, _(" [Version1 EABI]"));
9a5aca8c 6522
fc830a83 6523 if (flags & EF_ARM_SYMSARESORTED)
9b485d32 6524 fprintf (file, _(" [sorted symbol table]"));
fc830a83 6525 else
9b485d32 6526 fprintf (file, _(" [unsorted symbol table]"));
9a5aca8c 6527
fc830a83
NC		 6528 flags &= ~ EF_ARM_SYMSARESORTED;
6529 break;
9a5aca8c 6530
fd2ec330
PB		 6531 case EF_ARM_EABI_VER2:
6532 fprintf (file, _(" [Version2 EABI]"));
6533
6534 if (flags & EF_ARM_SYMSARESORTED)
6535 fprintf (file, _(" [sorted symbol table]"));
6536 else
6537 fprintf (file, _(" [unsorted symbol table]"));
6538
6539 if (flags & EF_ARM_DYNSYMSUSESEGIDX)
6540 fprintf (file, _(" [dynamic symbols use segment index]"));
6541
6542 if (flags & EF_ARM_MAPSYMSFIRST)
6543 fprintf (file, _(" [mapping symbols precede others]"));
6544
99e4ae17 6545 flags &= ~(EF_ARM_SYMSARESORTED | EF_ARM_DYNSYMSUSESEGIDX
fd2ec330
PB		 6546 | EF_ARM_MAPSYMSFIRST);
6547 break;
6548
d507cf36
PB		 6549 case EF_ARM_EABI_VER3:
6550 fprintf (file, _(" [Version3 EABI]"));
8cb51566
PB		 6551 break;
6552
6553 case EF_ARM_EABI_VER4:
6554 fprintf (file, _(" [Version4 EABI]"));
3a4a14e9 6555 goto eabi;
d507cf36 6556
3a4a14e9
PB		 6557 case EF_ARM_EABI_VER5:
6558 fprintf (file, _(" [Version5 EABI]"));
6559 eabi:
d507cf36
PB		 6560 if (flags & EF_ARM_BE8)
6561 fprintf (file, _(" [BE8]"));
6562
6563 if (flags & EF_ARM_LE8)
6564 fprintf (file, _(" [LE8]"));
6565
6566 flags &= ~(EF_ARM_LE8 | EF_ARM_BE8);
6567 break;
6568
fc830a83 6569 default:
9b485d32 6570 fprintf (file, _(" <EABI version unrecognised>"));
fc830a83
NC		 6571 break;
6572 }
252b5132 6573
fc830a83 6574 flags &= ~ EF_ARM_EABIMASK;
252b5132 6575
fc830a83 6576 if (flags & EF_ARM_RELEXEC)
9b485d32 6577 fprintf (file, _(" [relocatable executable]"));
252b5132 6578
fc830a83 6579 if (flags & EF_ARM_HASENTRY)
9b485d32 6580 fprintf (file, _(" [has entry point]"));
252b5132 6581
fc830a83
NC		 6582 flags &= ~ (EF_ARM_RELEXEC | EF_ARM_HASENTRY);
6583
6584 if (flags)
9b485d32 6585 fprintf (file, _("<Unrecognised flag bits set>"));
9a5aca8c 6586
252b5132
RH		 6587 fputc ('\n', file);
6588
b34976b6 6589 return TRUE;
252b5132
RH		 6590}
6591
6592static int
57e8b36a 6593elf32_arm_get_symbol_type (Elf_Internal_Sym * elf_sym, int type)
252b5132 6594{
2f0ca46a
NC		 6595 switch (ELF_ST_TYPE (elf_sym->st_info))
6596 {
6597 case STT_ARM_TFUNC:
6598 return ELF_ST_TYPE (elf_sym->st_info);
ce855c42 6599
2f0ca46a
NC		 6600 case STT_ARM_16BIT:
6601 /* If the symbol is not an object, return the STT_ARM_16BIT flag.
6602 This allows us to distinguish between data used by Thumb instructions
6603 and non-data (which is probably code) inside Thumb regions of an
6604 executable. */
1a0eb693 6605 if (type != STT_OBJECT && type != STT_TLS)
2f0ca46a
NC		 6606 return ELF_ST_TYPE (elf_sym->st_info);
6607 break;
9a5aca8c 6608
ce855c42
NC		 6609 default:
6610 break;
2f0ca46a
NC		 6611 }
6612
6613 return type;
252b5132 6614}
f21f3fe0 6615
252b5132 6616static asection *
57e8b36a
NC		 6617elf32_arm_gc_mark_hook (asection * sec,
6618 struct bfd_link_info * info ATTRIBUTE_UNUSED,
6619 Elf_Internal_Rela * rel,
6620 struct elf_link_hash_entry * h,
6621 Elf_Internal_Sym * sym)
252b5132
RH		 6622{
6623 if (h != NULL)
6624 {
6625 switch (ELF32_R_TYPE (rel->r_info))
6626 {
6627 case R_ARM_GNU_VTINHERIT:
6628 case R_ARM_GNU_VTENTRY:
6629 break;
6630
6631 default:
6632 switch (h->root.type)
6633 {
6634 case bfd_link_hash_defined:
6635 case bfd_link_hash_defweak:
6636 return h->root.u.def.section;
6637
6638 case bfd_link_hash_common:
6639 return h->root.u.c.p->section;
e049a0de
ILT		 6640
6641 default:
6642 break;
252b5132
RH		 6643 }
6644 }
6645 }
6646 else
1e2f5b6e 6647 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
9ad5cbcf 6648
252b5132
RH		 6649 return NULL;
6650}
6651
780a67af
NC		 6652/* Update the got entry reference counts for the section being removed. */
6653
b34976b6 6654static bfd_boolean
ba93b8ac
DJ		 6655elf32_arm_gc_sweep_hook (bfd * abfd,
6656 struct bfd_link_info * info,
6657 asection * sec,
6658 const Elf_Internal_Rela * relocs)
252b5132 6659{
5e681ec4
PB		 6660 Elf_Internal_Shdr *symtab_hdr;
6661 struct elf_link_hash_entry **sym_hashes;
6662 bfd_signed_vma *local_got_refcounts;
6663 const Elf_Internal_Rela *rel, *relend;
eb043451
PB		 6664 struct elf32_arm_link_hash_table * globals;
6665
6666 globals = elf32_arm_hash_table (info);
5e681ec4
PB		 6667
6668 elf_section_data (sec)->local_dynrel = NULL;
6669
6670 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
6671 sym_hashes = elf_sym_hashes (abfd);
6672 local_got_refcounts = elf_local_got_refcounts (abfd);
6673
6674 relend = relocs + sec->reloc_count;
6675 for (rel = relocs; rel < relend; rel++)
eb043451 6676 {
3eb128b2
AM		 6677 unsigned long r_symndx;
6678 struct elf_link_hash_entry *h = NULL;
eb043451 6679 int r_type;
5e681ec4 6680
3eb128b2
AM		 6681 r_symndx = ELF32_R_SYM (rel->r_info);
6682 if (r_symndx >= symtab_hdr->sh_info)
6683 {
6684 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6685 while (h->root.type == bfd_link_hash_indirect
6686 || h->root.type == bfd_link_hash_warning)
6687 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6688 }
6689
eb043451 6690 r_type = ELF32_R_TYPE (rel->r_info);
eb043451 6691 r_type = arm_real_reloc_type (globals, r_type);
eb043451
PB		 6692 switch (r_type)
6693 {
6694 case R_ARM_GOT32:
eb043451 6695 case R_ARM_GOT_PREL:
ba93b8ac
DJ		 6696 case R_ARM_TLS_GD32:
6697 case R_ARM_TLS_IE32:
3eb128b2 6698 if (h != NULL)
eb043451 6699 {
eb043451
PB		 6700 if (h->got.refcount > 0)
6701 h->got.refcount -= 1;
6702 }
6703 else if (local_got_refcounts != NULL)
6704 {
6705 if (local_got_refcounts[r_symndx] > 0)
6706 local_got_refcounts[r_symndx] -= 1;
6707 }
6708 break;
6709
ba93b8ac
DJ		 6710 case R_ARM_TLS_LDM32:
6711 elf32_arm_hash_table (info)->tls_ldm_got.refcount -= 1;
6712 break;
6713
eb043451
PB		 6714 case R_ARM_ABS32:
6715 case R_ARM_REL32:
6716 case R_ARM_PC24:
6717 case R_ARM_PLT32:
5b5bb741
PB		 6718 case R_ARM_CALL:
6719 case R_ARM_JUMP24:
eb043451 6720 case R_ARM_PREL31:
c19d1205 6721 case R_ARM_THM_CALL:
b6895b4f
PB		 6722 case R_ARM_MOVW_ABS_NC:
6723 case R_ARM_MOVT_ABS:
6724 case R_ARM_MOVW_PREL_NC:
6725 case R_ARM_MOVT_PREL:
6726 case R_ARM_THM_MOVW_ABS_NC:
6727 case R_ARM_THM_MOVT_ABS:
6728 case R_ARM_THM_MOVW_PREL_NC:
6729 case R_ARM_THM_MOVT_PREL:
b7693d02
DJ		 6730 /* Should the interworking branches be here also? */
6731
3eb128b2 6732 if (h != NULL)
eb043451
PB		 6733 {
6734 struct elf32_arm_link_hash_entry *eh;
6735 struct elf32_arm_relocs_copied **pp;
6736 struct elf32_arm_relocs_copied *p;
5e681ec4 6737
b7693d02 6738 eh = (struct elf32_arm_link_hash_entry *) h;
5e681ec4 6739
eb043451 6740 if (h->plt.refcount > 0)
b7693d02
DJ		 6741 {
6742 h->plt.refcount -= 1;
c19d1205 6743 if (ELF32_R_TYPE (rel->r_info) == R_ARM_THM_CALL)
b7693d02
DJ		 6744 eh->plt_thumb_refcount--;
6745 }
5e681ec4 6746
eb043451 6747 if (r_type == R_ARM_ABS32
eb043451
PB		 6748 || r_type == R_ARM_REL32)
6749 {
eb043451
PB		 6750 for (pp = &eh->relocs_copied; (p = *pp) != NULL;
6751 pp = &p->next)
6752 if (p->section == sec)
6753 {
6754 p->count -= 1;
ba93b8ac
DJ		 6755 if (ELF32_R_TYPE (rel->r_info) == R_ARM_REL32)
6756 p->pc_count -= 1;
eb043451
PB		 6757 if (p->count == 0)
6758 *pp = p->next;
6759 break;
6760 }
6761 }
6762 }
6763 break;
5e681ec4 6764
eb043451
PB		 6765 default:
6766 break;
6767 }
6768 }
5e681ec4 6769
b34976b6 6770 return TRUE;
252b5132
RH		 6771}
6772
780a67af
NC		 6773/* Look through the relocs for a section during the first phase. */
6774
b34976b6 6775static bfd_boolean
57e8b36a
NC		 6776elf32_arm_check_relocs (bfd *abfd, struct bfd_link_info *info,
6777 asection *sec, const Elf_Internal_Rela *relocs)
252b5132 6778{
b34976b6
AM		 6779 Elf_Internal_Shdr *symtab_hdr;
6780 struct elf_link_hash_entry **sym_hashes;
6781 struct elf_link_hash_entry **sym_hashes_end;
6782 const Elf_Internal_Rela *rel;
6783 const Elf_Internal_Rela *rel_end;
6784 bfd *dynobj;
5e681ec4 6785 asection *sreloc;
b34976b6 6786 bfd_vma *local_got_offsets;
5e681ec4 6787 struct elf32_arm_link_hash_table *htab;
9a5aca8c 6788
1049f94e 6789 if (info->relocatable)
b34976b6 6790 return TRUE;
9a5aca8c 6791
5e681ec4
PB		 6792 htab = elf32_arm_hash_table (info);
6793 sreloc = NULL;
9a5aca8c 6794
67687978
PB		 6795 /* Create dynamic sections for relocatable executables so that we can
6796 copy relocations. */
6797 if (htab->root.is_relocatable_executable
6798 && ! htab->root.dynamic_sections_created)
6799 {
6800 if (! _bfd_elf_link_create_dynamic_sections (abfd, info))
6801 return FALSE;
6802 }
6803
252b5132
RH		 6804 dynobj = elf_hash_table (info)->dynobj;
6805 local_got_offsets = elf_local_got_offsets (abfd);
f21f3fe0 6806
252b5132
RH		 6807 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
6808 sym_hashes = elf_sym_hashes (abfd);
9b485d32
NC		 6809 sym_hashes_end = sym_hashes
6810 + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
6811
252b5132
RH		 6812 if (!elf_bad_symtab (abfd))
6813 sym_hashes_end -= symtab_hdr->sh_info;
9b485d32 6814
252b5132
RH		 6815 rel_end = relocs + sec->reloc_count;
6816 for (rel = relocs; rel < rel_end; rel++)
6817 {
6818 struct elf_link_hash_entry *h;
b7693d02 6819 struct elf32_arm_link_hash_entry *eh;
252b5132 6820 unsigned long r_symndx;
eb043451 6821 int r_type;
9a5aca8c 6822
252b5132 6823 r_symndx = ELF32_R_SYM (rel->r_info);
eb043451 6824 r_type = ELF32_R_TYPE (rel->r_info);
eb043451 6825 r_type = arm_real_reloc_type (htab, r_type);
ba93b8ac
DJ		 6826
6827 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
6828 {
6829 (*_bfd_error_handler) (_("%B: bad symbol index: %d"), abfd,
6830 r_symndx);
6831 return FALSE;
6832 }
6833
252b5132
RH		 6834 if (r_symndx < symtab_hdr->sh_info)
6835 h = NULL;
6836 else
973a3492
L		 6837 {
6838 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6839 while (h->root.type == bfd_link_hash_indirect
6840 || h->root.type == bfd_link_hash_warning)
6841 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6842 }
9a5aca8c 6843
b7693d02
DJ		 6844 eh = (struct elf32_arm_link_hash_entry *) h;
6845
eb043451 6846 switch (r_type)
252b5132 6847 {
5e681ec4 6848 case R_ARM_GOT32:
eb043451 6849 case R_ARM_GOT_PREL:
ba93b8ac
DJ		 6850 case R_ARM_TLS_GD32:
6851 case R_ARM_TLS_IE32:
5e681ec4 6852 /* This symbol requires a global offset table entry. */
ba93b8ac
DJ		 6853 {
6854 int tls_type, old_tls_type;
5e681ec4 6855
ba93b8ac
DJ		 6856 switch (r_type)
6857 {
6858 case R_ARM_TLS_GD32: tls_type = GOT_TLS_GD; break;
6859 case R_ARM_TLS_IE32: tls_type = GOT_TLS_IE; break;
6860 default: tls_type = GOT_NORMAL; break;
6861 }
252b5132 6862
ba93b8ac
DJ		 6863 if (h != NULL)
6864 {
6865 h->got.refcount++;
6866 old_tls_type = elf32_arm_hash_entry (h)->tls_type;
6867 }
6868 else
6869 {
6870 bfd_signed_vma *local_got_refcounts;
6871
6872 /* This is a global offset table entry for a local symbol. */
6873 local_got_refcounts = elf_local_got_refcounts (abfd);
6874 if (local_got_refcounts == NULL)
6875 {
6876 bfd_size_type size;
6877
6878 size = symtab_hdr->sh_info;
6879 size *= (sizeof (bfd_signed_vma) + sizeof(char));
6880 local_got_refcounts = bfd_zalloc (abfd, size);
6881 if (local_got_refcounts == NULL)
6882 return FALSE;
6883 elf_local_got_refcounts (abfd) = local_got_refcounts;
6884 elf32_arm_local_got_tls_type (abfd)
6885 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
6886 }
6887 local_got_refcounts[r_symndx] += 1;
6888 old_tls_type = elf32_arm_local_got_tls_type (abfd) [r_symndx];
6889 }
6890
6891 /* We will already have issued an error message if there is a
6892 TLS / non-TLS mismatch, based on the symbol type. We don't
6893 support any linker relaxations. So just combine any TLS
6894 types needed. */
6895 if (old_tls_type != GOT_UNKNOWN && old_tls_type != GOT_NORMAL
6896 && tls_type != GOT_NORMAL)
6897 tls_type |= old_tls_type;
6898
6899 if (old_tls_type != tls_type)
6900 {
6901 if (h != NULL)
6902 elf32_arm_hash_entry (h)->tls_type = tls_type;
6903 else
6904 elf32_arm_local_got_tls_type (abfd) [r_symndx] = tls_type;
6905 }
6906 }
6907 /* Fall through */
6908
6909 case R_ARM_TLS_LDM32:
6910 if (r_type == R_ARM_TLS_LDM32)
6911 htab->tls_ldm_got.refcount++;
6912 /* Fall through */
252b5132 6913
c19d1205 6914 case R_ARM_GOTOFF32:
5e681ec4
PB		 6915 case R_ARM_GOTPC:
6916 if (htab->sgot == NULL)
6917 {
6918 if (htab->root.dynobj == NULL)
6919 htab->root.dynobj = abfd;
6920 if (!create_got_section (htab->root.dynobj, info))
6921 return FALSE;
6922 }
252b5132
RH		 6923 break;
6924
00a97672
RS		 6925 case R_ARM_ABS12:
6926 /* VxWorks uses dynamic R_ARM_ABS12 relocations for
6927 ldr __GOTT_INDEX__ offsets. */
6928 if (!htab->vxworks_p)
6929 break;
6930 /* Fall through */
6931
252b5132
RH		 6932 case R_ARM_ABS32:
6933 case R_ARM_REL32:
6934 case R_ARM_PC24:
7359ea65 6935 case R_ARM_PLT32:
5b5bb741
PB		 6936 case R_ARM_CALL:
6937 case R_ARM_JUMP24:
eb043451 6938 case R_ARM_PREL31:
c19d1205 6939 case R_ARM_THM_CALL:
b6895b4f
PB		 6940 case R_ARM_MOVW_ABS_NC:
6941 case R_ARM_MOVT_ABS:
6942 case R_ARM_MOVW_PREL_NC:
6943 case R_ARM_MOVT_PREL:
6944 case R_ARM_THM_MOVW_ABS_NC:
6945 case R_ARM_THM_MOVT_ABS:
6946 case R_ARM_THM_MOVW_PREL_NC:
6947 case R_ARM_THM_MOVT_PREL:
b7693d02 6948 /* Should the interworking branches be listed here? */
7359ea65 6949 if (h != NULL)
5e681ec4
PB		 6950 {
6951 /* If this reloc is in a read-only section, we might
6952 need a copy reloc. We can't check reliably at this
6953 stage whether the section is read-only, as input
6954 sections have not yet been mapped to output sections.
6955 Tentatively set the flag for now, and correct in
6956 adjust_dynamic_symbol. */
7359ea65 6957 if (!info->shared)
f5385ebf 6958 h->non_got_ref = 1;
7359ea65 6959
5e681ec4 6960 /* We may need a .plt entry if the function this reloc
c84cd8ee
DJ		 6961 refers to is in a different object. We can't tell for
6962 sure yet, because something later might force the
6963 symbol local. */
b6895b4f 6964 if (r_type != R_ARM_ABS32 && r_type != R_ARM_REL32)
f5385ebf 6965 h->needs_plt = 1;
4f199be3
DJ		 6966
6967 /* If we create a PLT entry, this relocation will reference
6968 it, even if it's an ABS32 relocation. */
6969 h->plt.refcount += 1;
b7693d02 6970
c19d1205 6971 if (r_type == R_ARM_THM_CALL)
b7693d02 6972 eh->plt_thumb_refcount += 1;
5e681ec4
PB		 6973 }
6974
67687978
PB		 6975 /* If we are creating a shared library or relocatable executable,
6976 and this is a reloc against a global symbol, or a non PC
6977 relative reloc against a local symbol, then we need to copy
6978 the reloc into the shared library. However, if we are linking
6979 with -Bsymbolic, we do not need to copy a reloc against a
252b5132
RH		 6980 global symbol which is defined in an object we are
6981 including in the link (i.e., DEF_REGULAR is set). At
6982 this point we have not seen all the input files, so it is
6983 possible that DEF_REGULAR is not set now but will be set
6984 later (it is never cleared). We account for that
6985 possibility below by storing information in the
5e681ec4 6986 relocs_copied field of the hash table entry. */
67687978 6987 if ((info->shared || htab->root.is_relocatable_executable)
5e681ec4 6988 && (sec->flags & SEC_ALLOC) != 0
71a976dd
DJ		 6989 && (r_type == R_ARM_ABS32
6990 || (h != NULL && ! h->needs_plt
6991 && (! info->symbolic || ! h->def_regular))))
252b5132 6992 {
5e681ec4
PB		 6993 struct elf32_arm_relocs_copied *p, **head;
6994
252b5132
RH		 6995 /* When creating a shared object, we must copy these
6996 reloc types into the output file. We create a reloc
6997 section in dynobj and make room for this reloc. */
6998 if (sreloc == NULL)
6999 {
7000 const char * name;
7001
7002 name = (bfd_elf_string_from_elf_section
7003 (abfd,
7004 elf_elfheader (abfd)->e_shstrndx,
7005 elf_section_data (sec)->rel_hdr.sh_name));
7006 if (name == NULL)
b34976b6 7007 return FALSE;
252b5132 7008
00a97672 7009 BFD_ASSERT (reloc_section_p (htab, name, sec));
252b5132
RH		 7010
7011 sreloc = bfd_get_section_by_name (dynobj, name);
7012 if (sreloc == NULL)
7013 {
7014 flagword flags;
7015
252b5132
RH		 7016 flags = (SEC_HAS_CONTENTS | SEC_READONLY
7017 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
e5a52504
MM		 7018 if ((sec->flags & SEC_ALLOC) != 0
7019 /* BPABI objects never have dynamic
7020 relocations mapped. */
7021 && !htab->symbian_p)
252b5132 7022 flags |= SEC_ALLOC | SEC_LOAD;
3496cb2a
L		 7023 sreloc = bfd_make_section_with_flags (dynobj,
7024 name,
7025 flags);
252b5132 7026 if (sreloc == NULL
252b5132 7027 || ! bfd_set_section_alignment (dynobj, sreloc, 2))
b34976b6 7028 return FALSE;
252b5132 7029 }
5e681ec4
PB		 7030
7031 elf_section_data (sec)->sreloc = sreloc;
252b5132
RH		 7032 }
7033
5e681ec4
PB		 7034 /* If this is a global symbol, we count the number of
7035 relocations we need for this symbol. */
7036 if (h != NULL)
252b5132 7037 {
5e681ec4
PB		 7038 head = &((struct elf32_arm_link_hash_entry *) h)->relocs_copied;
7039 }
7040 else
7041 {
7042 /* Track dynamic relocs needed for local syms too.
7043 We really need local syms available to do this
7044 easily. Oh well. */
57e8b36a 7045
5e681ec4 7046 asection *s;
6edfbbad
DJ		 7047 void *vpp;
7048
5e681ec4
PB		 7049 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
7050 sec, r_symndx);
7051 if (s == NULL)
7052 return FALSE;
57e8b36a 7053
6edfbbad
DJ		 7054 vpp = &elf_section_data (s)->local_dynrel;
7055 head = (struct elf32_arm_relocs_copied **) vpp;
5e681ec4 7056 }
57e8b36a 7057
5e681ec4
PB		 7058 p = *head;
7059 if (p == NULL || p->section != sec)
7060 {
7061 bfd_size_type amt = sizeof *p;
57e8b36a 7062
5e681ec4 7063 p = bfd_alloc (htab->root.dynobj, amt);
252b5132 7064 if (p == NULL)
5e681ec4
PB		 7065 return FALSE;
7066 p->next = *head;
7067 *head = p;
7068 p->section = sec;
7069 p->count = 0;
ba93b8ac 7070 p->pc_count = 0;
252b5132 7071 }
57e8b36a 7072
ba93b8ac
DJ		 7073 if (r_type == R_ARM_REL32)
7074 p->pc_count += 1;
71a976dd 7075 p->count += 1;
252b5132
RH		 7076 }
7077 break;
7078
7079 /* This relocation describes the C++ object vtable hierarchy.
7080 Reconstruct it for later use during GC. */
7081 case R_ARM_GNU_VTINHERIT:
c152c796 7082 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
b34976b6 7083 return FALSE;
252b5132 7084 break;
9a5aca8c 7085
252b5132
RH		 7086 /* This relocation describes which C++ vtable entries are actually
7087 used. Record for later use during GC. */
7088 case R_ARM_GNU_VTENTRY:
c152c796 7089 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
b34976b6 7090 return FALSE;
252b5132
RH		 7091 break;
7092 }
7093 }
f21f3fe0 7094
b34976b6 7095 return TRUE;
252b5132
RH		 7096}
7097
3c9458e9
NC		 7098/* Treat mapping symbols as special target symbols. */
7099
7100static bfd_boolean
7101elf32_arm_is_target_special_symbol (bfd * abfd ATTRIBUTE_UNUSED, asymbol * sym)
7102{
b0796911
PB		 7103 return bfd_is_arm_special_symbol_name (sym->name,
7104 BFD_ARM_SPECIAL_SYM_TYPE_ANY);
3c9458e9
NC		 7105}
7106
0367ecfb
NC		 7107/* This is a copy of elf_find_function() from elf.c except that
7108 ARM mapping symbols are ignored when looking for function names
7109 and STT_ARM_TFUNC is considered to a function type. */
252b5132 7110
0367ecfb
NC		 7111static bfd_boolean
7112arm_elf_find_function (bfd * abfd ATTRIBUTE_UNUSED,
7113 asection * section,
7114 asymbol ** symbols,
7115 bfd_vma offset,
7116 const char ** filename_ptr,
7117 const char ** functionname_ptr)
7118{
7119 const char * filename = NULL;
7120 asymbol * func = NULL;
7121 bfd_vma low_func = 0;
7122 asymbol ** p;
252b5132
RH		 7123
7124 for (p = symbols; *p != NULL; p++)
7125 {
7126 elf_symbol_type *q;
7127
7128 q = (elf_symbol_type *) *p;
7129
252b5132
RH		 7130 switch (ELF_ST_TYPE (q->internal_elf_sym.st_info))
7131 {
7132 default:
7133 break;
7134 case STT_FILE:
7135 filename = bfd_asymbol_name (&q->symbol);
7136 break;
252b5132
RH		 7137 case STT_FUNC:
7138 case STT_ARM_TFUNC:
9d2da7ca 7139 case STT_NOTYPE:
b0796911 7140 /* Skip mapping symbols. */
0367ecfb 7141 if ((q->symbol.flags & BSF_LOCAL)
b0796911
PB		 7142 && bfd_is_arm_special_symbol_name (q->symbol.name,
7143 BFD_ARM_SPECIAL_SYM_TYPE_ANY))
0367ecfb
NC		 7144 continue;
7145 /* Fall through. */
6b40fcba 7146 if (bfd_get_section (&q->symbol) == section
252b5132
RH		 7147 && q->symbol.value >= low_func
7148 && q->symbol.value <= offset)
7149 {
7150 func = (asymbol *) q;
7151 low_func = q->symbol.value;
7152 }
7153 break;
7154 }
7155 }
7156
7157 if (func == NULL)
b34976b6 7158 return FALSE;
252b5132 7159
0367ecfb
NC		 7160 if (filename_ptr)
7161 *filename_ptr = filename;
7162 if (functionname_ptr)
7163 *functionname_ptr = bfd_asymbol_name (func);
7164
7165 return TRUE;
7166}
7167
7168
7169/* Find the nearest line to a particular section and offset, for error
7170 reporting. This code is a duplicate of the code in elf.c, except
7171 that it uses arm_elf_find_function. */
7172
7173static bfd_boolean
7174elf32_arm_find_nearest_line (bfd * abfd,
7175 asection * section,
7176 asymbol ** symbols,
7177 bfd_vma offset,
7178 const char ** filename_ptr,
7179 const char ** functionname_ptr,
7180 unsigned int * line_ptr)
7181{
7182 bfd_boolean found = FALSE;
7183
7184 /* We skip _bfd_dwarf1_find_nearest_line since no known ARM toolchain uses it. */
7185
7186 if (_bfd_dwarf2_find_nearest_line (abfd, section, symbols, offset,
7187 filename_ptr, functionname_ptr,
7188 line_ptr, 0,
7189 & elf_tdata (abfd)->dwarf2_find_line_info))
7190 {
7191 if (!*functionname_ptr)
7192 arm_elf_find_function (abfd, section, symbols, offset,
7193 *filename_ptr ? NULL : filename_ptr,
7194 functionname_ptr);
f21f3fe0 7195
0367ecfb
NC		 7196 return TRUE;
7197 }
7198
7199 if (! _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset,
7200 & found, filename_ptr,
7201 functionname_ptr, line_ptr,
7202 & elf_tdata (abfd)->line_info))
7203 return FALSE;
7204
7205 if (found && (*functionname_ptr || *line_ptr))
7206 return TRUE;
7207
7208 if (symbols == NULL)
7209 return FALSE;
7210
7211 if (! arm_elf_find_function (abfd, section, symbols, offset,
7212 filename_ptr, functionname_ptr))
7213 return FALSE;
7214
7215 *line_ptr = 0;
b34976b6 7216 return TRUE;
252b5132
RH		 7217}
7218
4ab527b0
FF		 7219static bfd_boolean
7220elf32_arm_find_inliner_info (bfd * abfd,
7221 const char ** filename_ptr,
7222 const char ** functionname_ptr,
7223 unsigned int * line_ptr)
7224{
7225 bfd_boolean found;
7226 found = _bfd_dwarf2_find_inliner_info (abfd, filename_ptr,
7227 functionname_ptr, line_ptr,
7228 & elf_tdata (abfd)->dwarf2_find_line_info);
7229 return found;
7230}
7231
252b5132
RH		 7232/* Adjust a symbol defined by a dynamic object and referenced by a
7233 regular object. The current definition is in some section of the
7234 dynamic object, but we're not including those sections. We have to
7235 change the definition to something the rest of the link can
7236 understand. */
7237
b34976b6 7238static bfd_boolean
57e8b36a
NC		 7239elf32_arm_adjust_dynamic_symbol (struct bfd_link_info * info,
7240 struct elf_link_hash_entry * h)
252b5132
RH		 7241{
7242 bfd * dynobj;
7243 asection * s;
7244 unsigned int power_of_two;
b7693d02 7245 struct elf32_arm_link_hash_entry * eh;
67687978 7246 struct elf32_arm_link_hash_table *globals;
252b5132 7247
67687978 7248 globals = elf32_arm_hash_table (info);
252b5132
RH		 7249 dynobj = elf_hash_table (info)->dynobj;
7250
7251 /* Make sure we know what is going on here. */
7252 BFD_ASSERT (dynobj != NULL
f5385ebf 7253 && (h->needs_plt
f6e332e6 7254 || h->u.weakdef != NULL
f5385ebf
AM		 7255 || (h->def_dynamic
7256 && h->ref_regular
7257 && !h->def_regular)));
252b5132 7258
b7693d02
DJ		 7259 eh = (struct elf32_arm_link_hash_entry *) h;
7260
252b5132
RH		 7261 /* If this is a function, put it in the procedure linkage table. We
7262 will fill in the contents of the procedure linkage table later,
7263 when we know the address of the .got section. */
b7693d02 7264 if (h->type == STT_FUNC || h->type == STT_ARM_TFUNC
f5385ebf 7265 || h->needs_plt)
252b5132 7266 {
5e681ec4
PB		 7267 if (h->plt.refcount <= 0
7268 || SYMBOL_CALLS_LOCAL (info, h)
7269 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
7270 && h->root.type == bfd_link_hash_undefweak))
252b5132
RH		 7271 {
7272 /* This case can occur if we saw a PLT32 reloc in an input
5e681ec4
PB		 7273 file, but the symbol was never referred to by a dynamic
7274 object, or if all references were garbage collected. In
7275 such a case, we don't actually need to build a procedure
7276 linkage table, and we can just do a PC24 reloc instead. */
7277 h->plt.offset = (bfd_vma) -1;
b7693d02 7278 eh->plt_thumb_refcount = 0;
f5385ebf 7279 h->needs_plt = 0;
252b5132
RH		 7280 }
7281
b34976b6 7282 return TRUE;
252b5132 7283 }
5e681ec4 7284 else
b7693d02
DJ		 7285 {
7286 /* It's possible that we incorrectly decided a .plt reloc was
7287 needed for an R_ARM_PC24 or similar reloc to a non-function sym
7288 in check_relocs. We can't decide accurately between function
7289 and non-function syms in check-relocs; Objects loaded later in
7290 the link may change h->type. So fix it now. */
7291 h->plt.offset = (bfd_vma) -1;
7292 eh->plt_thumb_refcount = 0;
7293 }
252b5132
RH		 7294
7295 /* If this is a weak symbol, and there is a real definition, the
7296 processor independent code will have arranged for us to see the
7297 real definition first, and we can just use the same value. */
f6e332e6 7298 if (h->u.weakdef != NULL)
252b5132 7299 {
f6e332e6
AM		 7300 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
7301 || h->u.weakdef->root.type == bfd_link_hash_defweak);
7302 h->root.u.def.section = h->u.weakdef->root.u.def.section;
7303 h->root.u.def.value = h->u.weakdef->root.u.def.value;
b34976b6 7304 return TRUE;
252b5132
RH		 7305 }
7306
ba93b8ac
DJ		 7307 /* If there are no non-GOT references, we do not need a copy
7308 relocation. */
7309 if (!h->non_got_ref)
7310 return TRUE;
7311
252b5132
RH		 7312 /* This is a reference to a symbol defined by a dynamic object which
7313 is not a function. */
7314
7315 /* If we are creating a shared library, we must presume that the
7316 only references to the symbol are via the global offset table.
7317 For such cases we need not do anything here; the relocations will
67687978
PB		 7318 be handled correctly by relocate_section. Relocatable executables
7319 can reference data in shared objects directly, so we don't need to
7320 do anything here. */
7321 if (info->shared || globals->root.is_relocatable_executable)
b34976b6 7322 return TRUE;
252b5132 7323
909272ee
AM		 7324 if (h->size == 0)
7325 {
7326 (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
7327 h->root.root.string);
7328 return TRUE;
7329 }
7330
252b5132
RH		 7331 /* We must allocate the symbol in our .dynbss section, which will
7332 become part of the .bss section of the executable. There will be
7333 an entry for this symbol in the .dynsym section. The dynamic
7334 object will contain position independent code, so all references
7335 from the dynamic object to this symbol will go through the global
7336 offset table. The dynamic linker will use the .dynsym entry to
7337 determine the address it must put in the global offset table, so
7338 both the dynamic object and the regular object will refer to the
7339 same memory location for the variable. */
252b5132
RH		 7340 s = bfd_get_section_by_name (dynobj, ".dynbss");
7341 BFD_ASSERT (s != NULL);
7342
7343 /* We must generate a R_ARM_COPY reloc to tell the dynamic linker to
7344 copy the initial value out of the dynamic object and into the
7345 runtime process image. We need to remember the offset into the
00a97672 7346 .rel(a).bss section we are going to use. */
252b5132
RH		 7347 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
7348 {
7349 asection *srel;
7350
00a97672 7351 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (globals, ".bss"));
252b5132 7352 BFD_ASSERT (srel != NULL);
00a97672 7353 srel->size += RELOC_SIZE (globals);
f5385ebf 7354 h->needs_copy = 1;
252b5132
RH		 7355 }
7356
7357 /* We need to figure out the alignment required for this symbol. I
7358 have no idea how ELF linkers handle this. */
7359 power_of_two = bfd_log2 (h->size);
7360 if (power_of_two > 3)
7361 power_of_two = 3;
7362
7363 /* Apply the required alignment. */
eea6121a 7364 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
252b5132
RH		 7365 if (power_of_two > bfd_get_section_alignment (dynobj, s))
7366 {
7367 if (! bfd_set_section_alignment (dynobj, s, power_of_two))
b34976b6 7368 return FALSE;
252b5132
RH		 7369 }
7370
7371 /* Define the symbol as being at this point in the section. */
7372 h->root.u.def.section = s;
eea6121a 7373 h->root.u.def.value = s->size;
252b5132
RH		 7374
7375 /* Increment the section size to make room for the symbol. */
eea6121a 7376 s->size += h->size;
252b5132 7377
b34976b6 7378 return TRUE;
252b5132
RH		 7379}
7380
5e681ec4
PB		 7381/* Allocate space in .plt, .got and associated reloc sections for
7382 dynamic relocs. */
7383
7384static bfd_boolean
57e8b36a 7385allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
5e681ec4
PB		 7386{
7387 struct bfd_link_info *info;
7388 struct elf32_arm_link_hash_table *htab;
7389 struct elf32_arm_link_hash_entry *eh;
7390 struct elf32_arm_relocs_copied *p;
7391
b7693d02
DJ		 7392 eh = (struct elf32_arm_link_hash_entry *) h;
7393
5e681ec4
PB		 7394 if (h->root.type == bfd_link_hash_indirect)
7395 return TRUE;
7396
7397 if (h->root.type == bfd_link_hash_warning)
7398 /* When warning symbols are created, they **replace** the "real"
7399 entry in the hash table, thus we never get to see the real
7400 symbol in a hash traversal. So look at it now. */
7401 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7402
7403 info = (struct bfd_link_info *) inf;
7404 htab = elf32_arm_hash_table (info);
7405
7406 if (htab->root.dynamic_sections_created
7407 && h->plt.refcount > 0)
7408 {
7409 /* Make sure this symbol is output as a dynamic symbol.
7410 Undefined weak syms won't yet be marked as dynamic. */
7411 if (h->dynindx == -1
f5385ebf 7412 && !h->forced_local)
5e681ec4 7413 {
c152c796 7414 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5e681ec4
PB		 7415 return FALSE;
7416 }
7417
7418 if (info->shared
7359ea65 7419 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
5e681ec4
PB		 7420 {
7421 asection *s = htab->splt;
7422
7423 /* If this is the first .plt entry, make room for the special
7424 first entry. */
eea6121a 7425 if (s->size == 0)
e5a52504 7426 s->size += htab->plt_header_size;
5e681ec4 7427
eea6121a 7428 h->plt.offset = s->size;
5e681ec4 7429
b7693d02
DJ		 7430 /* If we will insert a Thumb trampoline before this PLT, leave room
7431 for it. */
33bfe774 7432 if (!htab->use_blx && eh->plt_thumb_refcount > 0)
b7693d02
DJ		 7433 {
7434 h->plt.offset += PLT_THUMB_STUB_SIZE;
7435 s->size += PLT_THUMB_STUB_SIZE;
7436 }
7437
5e681ec4
PB		 7438 /* If this symbol is not defined in a regular file, and we are
7439 not generating a shared library, then set the symbol to this
7440 location in the .plt. This is required to make function
7441 pointers compare as equal between the normal executable and
7442 the shared library. */
7443 if (! info->shared
f5385ebf 7444 && !h->def_regular)
5e681ec4
PB		 7445 {
7446 h->root.u.def.section = s;
7447 h->root.u.def.value = h->plt.offset;
b7693d02
DJ		 7448
7449 /* Make sure the function is not marked as Thumb, in case
7450 it is the target of an ABS32 relocation, which will
7451 point to the PLT entry. */
7452 if (ELF_ST_TYPE (h->type) == STT_ARM_TFUNC)
7453 h->type = ELF_ST_INFO (ELF_ST_BIND (h->type), STT_FUNC);
5e681ec4
PB		 7454 }
7455
7456 /* Make room for this entry. */
e5a52504 7457 s->size += htab->plt_entry_size;
5e681ec4 7458
e5a52504 7459 if (!htab->symbian_p)
b7693d02
DJ		 7460 {
7461 /* We also need to make an entry in the .got.plt section, which
7462 will be placed in the .got section by the linker script. */
7463 eh->plt_got_offset = htab->sgotplt->size;
7464 htab->sgotplt->size += 4;
7465 }
5e681ec4 7466
00a97672
RS		 7467 /* We also need to make an entry in the .rel(a).plt section. */
7468 htab->srelplt->size += RELOC_SIZE (htab);
7469
7470 /* VxWorks executables have a second set of relocations for
7471 each PLT entry. They go in a separate relocation section,
7472 which is processed by the kernel loader. */
7473 if (htab->vxworks_p && !info->shared)
7474 {
7475 /* There is a relocation for the initial PLT entry:
7476 an R_ARM_32 relocation for _GLOBAL_OFFSET_TABLE_. */
7477 if (h->plt.offset == htab->plt_header_size)
7478 htab->srelplt2->size += RELOC_SIZE (htab);
7479
7480 /* There are two extra relocations for each subsequent
7481 PLT entry: an R_ARM_32 relocation for the GOT entry,
7482 and an R_ARM_32 relocation for the PLT entry. */
7483 htab->srelplt2->size += RELOC_SIZE (htab) * 2;
7484 }
5e681ec4
PB		 7485 }
7486 else
7487 {
7488 h->plt.offset = (bfd_vma) -1;
f5385ebf 7489 h->needs_plt = 0;
5e681ec4
PB		 7490 }
7491 }
7492 else
7493 {
7494 h->plt.offset = (bfd_vma) -1;
f5385ebf 7495 h->needs_plt = 0;
5e681ec4
PB		 7496 }
7497
7498 if (h->got.refcount > 0)
7499 {
7500 asection *s;
7501 bfd_boolean dyn;
ba93b8ac
DJ		 7502 int tls_type = elf32_arm_hash_entry (h)->tls_type;
7503 int indx;
5e681ec4
PB		 7504
7505 /* Make sure this symbol is output as a dynamic symbol.
7506 Undefined weak syms won't yet be marked as dynamic. */
7507 if (h->dynindx == -1
f5385ebf 7508 && !h->forced_local)
5e681ec4 7509 {
c152c796 7510 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5e681ec4
PB		 7511 return FALSE;
7512 }
7513
e5a52504
MM		 7514 if (!htab->symbian_p)
7515 {
7516 s = htab->sgot;
7517 h->got.offset = s->size;
ba93b8ac
DJ		 7518
7519 if (tls_type == GOT_UNKNOWN)
7520 abort ();
7521
7522 if (tls_type == GOT_NORMAL)
7523 /* Non-TLS symbols need one GOT slot. */
7524 s->size += 4;
7525 else
7526 {
7527 if (tls_type & GOT_TLS_GD)
7528 /* R_ARM_TLS_GD32 needs 2 consecutive GOT slots. */
7529 s->size += 8;
7530 if (tls_type & GOT_TLS_IE)
7531 /* R_ARM_TLS_IE32 needs one GOT slot. */
7532 s->size += 4;
7533 }
7534
e5a52504 7535 dyn = htab->root.dynamic_sections_created;
ba93b8ac
DJ		 7536
7537 indx = 0;
7538 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
7539 && (!info->shared
7540 || !SYMBOL_REFERENCES_LOCAL (info, h)))
7541 indx = h->dynindx;
7542
7543 if (tls_type != GOT_NORMAL
7544 && (info->shared || indx != 0)
7545 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
7546 || h->root.type != bfd_link_hash_undefweak))
7547 {
7548 if (tls_type & GOT_TLS_IE)
00a97672 7549 htab->srelgot->size += RELOC_SIZE (htab);
ba93b8ac
DJ		 7550
7551 if (tls_type & GOT_TLS_GD)
00a97672 7552 htab->srelgot->size += RELOC_SIZE (htab);
ba93b8ac
DJ		 7553
7554 if ((tls_type & GOT_TLS_GD) && indx != 0)
00a97672 7555 htab->srelgot->size += RELOC_SIZE (htab);
ba93b8ac
DJ		 7556 }
7557 else if ((ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
7558 || h->root.type != bfd_link_hash_undefweak)
7559 && (info->shared
7560 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
00a97672 7561 htab->srelgot->size += RELOC_SIZE (htab);
e5a52504 7562 }
5e681ec4
PB		 7563 }
7564 else
7565 h->got.offset = (bfd_vma) -1;
7566
a4fd1a8e
PB		 7567 /* Allocate stubs for exported Thumb functions on v4t. */
7568 if (!htab->use_blx && h->dynindx != -1
7569 && ELF_ST_TYPE (h->type) == STT_ARM_TFUNC
7570 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
7571 {
7572 struct elf_link_hash_entry * th;
7573 struct bfd_link_hash_entry * bh;
7574 struct elf_link_hash_entry * myh;
7575 char name[1024];
7576 asection *s;
7577 bh = NULL;
7578 /* Create a new symbol to regist the real location of the function. */
7579 s = h->root.u.def.section;
7580 sprintf(name, "__real_%s", h->root.root.string);
7581 _bfd_generic_link_add_one_symbol (info, s->owner,
7582 name, BSF_GLOBAL, s,
7583 h->root.u.def.value,
7584 NULL, TRUE, FALSE, &bh);
7585
7586 myh = (struct elf_link_hash_entry *) bh;
7587 myh->type = ELF_ST_INFO (STB_LOCAL, STT_ARM_TFUNC);
7588 myh->forced_local = 1;
7589 eh->export_glue = myh;
7590 th = record_arm_to_thumb_glue (info, h);
7591 /* Point the symbol at the stub. */
7592 h->type = ELF_ST_INFO (ELF_ST_BIND (h->type), STT_FUNC);
7593 h->root.u.def.section = th->root.u.def.section;
7594 h->root.u.def.value = th->root.u.def.value & ~1;
7595 }
7596
5e681ec4
PB		 7597 if (eh->relocs_copied == NULL)
7598 return TRUE;
7599
7600 /* In the shared -Bsymbolic case, discard space allocated for
7601 dynamic pc-relative relocs against symbols which turn out to be
7602 defined in regular objects. For the normal shared case, discard
7603 space for pc-relative relocs that have become local due to symbol
7604 visibility changes. */
7605
67687978 7606 if (info->shared || htab->root.is_relocatable_executable)
5e681ec4 7607 {
ba93b8ac
DJ		 7608 /* The only reloc that uses pc_count is R_ARM_REL32, which will
7609 appear on something like ".long foo - .". We want calls to
7610 protected symbols to resolve directly to the function rather
7611 than going via the plt. If people want function pointer
7612 comparisons to work as expected then they should avoid
7613 writing assembly like ".long foo - .". */
7614 if (SYMBOL_CALLS_LOCAL (info, h))
7615 {
7616 struct elf32_arm_relocs_copied **pp;
7617
7618 for (pp = &eh->relocs_copied; (p = *pp) != NULL; )
7619 {
7620 p->count -= p->pc_count;
7621 p->pc_count = 0;
7622 if (p->count == 0)
7623 *pp = p->next;
7624 else
7625 pp = &p->next;
7626 }
7627 }
7628
7629 /* Also discard relocs on undefined weak syms with non-default
7359ea65 7630 visibility. */
22d606e9 7631 if (eh->relocs_copied != NULL
5e681ec4 7632 && h->root.type == bfd_link_hash_undefweak)
22d606e9
AM		 7633 {
7634 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
7635 eh->relocs_copied = NULL;
7636
7637 /* Make sure undefined weak symbols are output as a dynamic
7638 symbol in PIEs. */
7639 else if (h->dynindx == -1
7640 && !h->forced_local)
7641 {
7642 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7643 return FALSE;
7644 }
7645 }
7646
67687978
PB		 7647 else if (htab->root.is_relocatable_executable && h->dynindx == -1
7648 && h->root.type == bfd_link_hash_new)
7649 {
7650 /* Output absolute symbols so that we can create relocations
7651 against them. For normal symbols we output a relocation
7652 against the section that contains them. */
7653 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7654 return FALSE;
7655 }
7656
5e681ec4
PB		 7657 }
7658 else
7659 {
7660 /* For the non-shared case, discard space for relocs against
7661 symbols which turn out to need copy relocs or are not
7662 dynamic. */
7663
f5385ebf
AM		 7664 if (!h->non_got_ref
7665 && ((h->def_dynamic
7666 && !h->def_regular)
5e681ec4
PB		 7667 || (htab->root.dynamic_sections_created
7668 && (h->root.type == bfd_link_hash_undefweak
7669 || h->root.type == bfd_link_hash_undefined))))
7670 {
7671 /* Make sure this symbol is output as a dynamic symbol.
7672 Undefined weak syms won't yet be marked as dynamic. */
7673 if (h->dynindx == -1
f5385ebf 7674 && !h->forced_local)
5e681ec4 7675 {
c152c796 7676 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5e681ec4
PB		 7677 return FALSE;
7678 }
7679
7680 /* If that succeeded, we know we'll be keeping all the
7681 relocs. */
7682 if (h->dynindx != -1)
7683 goto keep;
7684 }
7685
7686 eh->relocs_copied = NULL;
7687
7688 keep: ;
7689 }
7690
7691 /* Finally, allocate space. */
7692 for (p = eh->relocs_copied; p != NULL; p = p->next)
7693 {
7694 asection *sreloc = elf_section_data (p->section)->sreloc;
00a97672 7695 sreloc->size += p->count * RELOC_SIZE (htab);
5e681ec4
PB		 7696 }
7697
7698 return TRUE;
7699}
7700
08d1f311
DJ		 7701/* Find any dynamic relocs that apply to read-only sections. */
7702
7703static bfd_boolean
7704elf32_arm_readonly_dynrelocs (struct elf_link_hash_entry *h, PTR inf)
7705{
7706 struct elf32_arm_link_hash_entry *eh;
7707 struct elf32_arm_relocs_copied *p;
7708
7709 if (h->root.type == bfd_link_hash_warning)
7710 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7711
7712 eh = (struct elf32_arm_link_hash_entry *) h;
7713 for (p = eh->relocs_copied; p != NULL; p = p->next)
7714 {
7715 asection *s = p->section;
7716
7717 if (s != NULL && (s->flags & SEC_READONLY) != 0)
7718 {
7719 struct bfd_link_info *info = (struct bfd_link_info *) inf;
7720
7721 info->flags |= DF_TEXTREL;
7722
7723 /* Not an error, just cut short the traversal. */
7724 return FALSE;
7725 }
7726 }
7727 return TRUE;
7728}
7729
252b5132
RH		 7730/* Set the sizes of the dynamic sections. */
7731
b34976b6 7732static bfd_boolean
57e8b36a
NC		 7733elf32_arm_size_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
7734 struct bfd_link_info * info)
252b5132
RH		 7735{
7736 bfd * dynobj;
7737 asection * s;
b34976b6
AM		 7738 bfd_boolean plt;
7739 bfd_boolean relocs;
5e681ec4
PB		 7740 bfd *ibfd;
7741 struct elf32_arm_link_hash_table *htab;
252b5132 7742
5e681ec4 7743 htab = elf32_arm_hash_table (info);
252b5132
RH		 7744 dynobj = elf_hash_table (info)->dynobj;
7745 BFD_ASSERT (dynobj != NULL);
39b41c9c 7746 check_use_blx (htab);
252b5132
RH		 7747
7748 if (elf_hash_table (info)->dynamic_sections_created)
7749 {
7750 /* Set the contents of the .interp section to the interpreter. */
893c4fe2 7751 if (info->executable)
252b5132
RH		 7752 {
7753 s = bfd_get_section_by_name (dynobj, ".interp");
7754 BFD_ASSERT (s != NULL);
eea6121a 7755 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
252b5132
RH		 7756 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
7757 }
7758 }
5e681ec4
PB		 7759
7760 /* Set up .got offsets for local syms, and space for local dynamic
7761 relocs. */
7762 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
252b5132 7763 {
5e681ec4
PB		 7764 bfd_signed_vma *local_got;
7765 bfd_signed_vma *end_local_got;
7766 char *local_tls_type;
7767 bfd_size_type locsymcount;
7768 Elf_Internal_Shdr *symtab_hdr;
7769 asection *srel;
7770
7771 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
7772 continue;
7773
7774 for (s = ibfd->sections; s != NULL; s = s->next)
7775 {
7776 struct elf32_arm_relocs_copied *p;
7777
6edfbbad 7778 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
5e681ec4
PB		 7779 {
7780 if (!bfd_is_abs_section (p->section)
7781 && bfd_is_abs_section (p->section->output_section))
7782 {
7783 /* Input section has been discarded, either because
7784 it is a copy of a linkonce section or due to
7785 linker script /DISCARD/, so we'll be discarding
7786 the relocs too. */
7787 }
7788 else if (p->count != 0)
7789 {
7790 srel = elf_section_data (p->section)->sreloc;
00a97672 7791 srel->size += p->count * RELOC_SIZE (htab);
5e681ec4
PB		 7792 if ((p->section->output_section->flags & SEC_READONLY) != 0)
7793 info->flags |= DF_TEXTREL;
7794 }
7795 }
7796 }
7797
7798 local_got = elf_local_got_refcounts (ibfd);
7799 if (!local_got)
7800 continue;
7801
7802 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
7803 locsymcount = symtab_hdr->sh_info;
7804 end_local_got = local_got + locsymcount;
ba93b8ac 7805 local_tls_type = elf32_arm_local_got_tls_type (ibfd);
5e681ec4
PB		 7806 s = htab->sgot;
7807 srel = htab->srelgot;
7808 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
7809 {
7810 if (*local_got > 0)
7811 {
eea6121a 7812 *local_got = s->size;
ba93b8ac
DJ		 7813 if (*local_tls_type & GOT_TLS_GD)
7814 /* TLS_GD relocs need an 8-byte structure in the GOT. */
7815 s->size += 8;
7816 if (*local_tls_type & GOT_TLS_IE)
7817 s->size += 4;
7818 if (*local_tls_type == GOT_NORMAL)
7819 s->size += 4;
7820
7821 if (info->shared || *local_tls_type == GOT_TLS_GD)
00a97672 7822 srel->size += RELOC_SIZE (htab);
5e681ec4
PB		 7823 }
7824 else
7825 *local_got = (bfd_vma) -1;
7826 }
252b5132
RH		 7827 }
7828
ba93b8ac
DJ		 7829 if (htab->tls_ldm_got.refcount > 0)
7830 {
7831 /* Allocate two GOT entries and one dynamic relocation (if necessary)
7832 for R_ARM_TLS_LDM32 relocations. */
7833 htab->tls_ldm_got.offset = htab->sgot->size;
7834 htab->sgot->size += 8;
7835 if (info->shared)
00a97672 7836 htab->srelgot->size += RELOC_SIZE (htab);
ba93b8ac
DJ		 7837 }
7838 else
7839 htab->tls_ldm_got.offset = -1;
7840
5e681ec4
PB		 7841 /* Allocate global sym .plt and .got entries, and space for global
7842 sym dynamic relocs. */
57e8b36a 7843 elf_link_hash_traverse (& htab->root, allocate_dynrelocs, info);
252b5132
RH		 7844
7845 /* The check_relocs and adjust_dynamic_symbol entry points have
7846 determined the sizes of the various dynamic sections. Allocate
7847 memory for them. */
b34976b6
AM		 7848 plt = FALSE;
7849 relocs = FALSE;
252b5132
RH		 7850 for (s = dynobj->sections; s != NULL; s = s->next)
7851 {
7852 const char * name;
252b5132
RH		 7853
7854 if ((s->flags & SEC_LINKER_CREATED) == 0)
7855 continue;
7856
7857 /* It's OK to base decisions on the section name, because none
7858 of the dynobj section names depend upon the input files. */
7859 name = bfd_get_section_name (dynobj, s);
7860
24a1ba0f 7861 if (strcmp (name, ".plt") == 0)
252b5132 7862 {
c456f082
AM		 7863 /* Remember whether there is a PLT. */
7864 plt = s->size != 0;
252b5132
RH		 7865 }
7866 else if (strncmp (name, ".rel", 4) == 0)
7867 {
c456f082 7868 if (s->size != 0)
252b5132 7869 {
252b5132 7870 /* Remember whether there are any reloc sections other
00a97672
RS		 7871 than .rel(a).plt and .rela.plt.unloaded. */
7872 if (s != htab->srelplt && s != htab->srelplt2)
b34976b6 7873 relocs = TRUE;
252b5132
RH		 7874
7875 /* We use the reloc_count field as a counter if we need
7876 to copy relocs into the output file. */
7877 s->reloc_count = 0;
7878 }
7879 }
c456f082
AM		 7880 else if (strncmp (name, ".got", 4) != 0
7881 && strcmp (name, ".dynbss") != 0)
252b5132
RH		 7882 {
7883 /* It's not one of our sections, so don't allocate space. */
7884 continue;
7885 }
7886
c456f082 7887 if (s->size == 0)
252b5132 7888 {
c456f082 7889 /* If we don't need this section, strip it from the
00a97672
RS		 7890 output file. This is mostly to handle .rel(a).bss and
7891 .rel(a).plt. We must create both sections in
c456f082
AM		 7892 create_dynamic_sections, because they must be created
7893 before the linker maps input sections to output
7894 sections. The linker does that before
7895 adjust_dynamic_symbol is called, and it is that
7896 function which decides whether anything needs to go
7897 into these sections. */
8423293d 7898 s->flags |= SEC_EXCLUDE;
252b5132
RH		 7899 continue;
7900 }
7901
c456f082
AM		 7902 if ((s->flags & SEC_HAS_CONTENTS) == 0)
7903 continue;
7904
252b5132 7905 /* Allocate memory for the section contents. */
eea6121a 7906 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
c456f082 7907 if (s->contents == NULL)
b34976b6 7908 return FALSE;
252b5132
RH		 7909 }
7910
7911 if (elf_hash_table (info)->dynamic_sections_created)
7912 {
7913 /* Add some entries to the .dynamic section. We fill in the
7914 values later, in elf32_arm_finish_dynamic_sections, but we
7915 must add the entries now so that we get the correct size for
7916 the .dynamic section. The DT_DEBUG entry is filled in by the
7917 dynamic linker and used by the debugger. */
dc810e39 7918#define add_dynamic_entry(TAG, VAL) \
5a580b3a 7919 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
dc810e39 7920
8532796c 7921 if (info->executable)
252b5132 7922 {
dc810e39 7923 if (!add_dynamic_entry (DT_DEBUG, 0))
b34976b6 7924 return FALSE;
252b5132
RH		 7925 }
7926
7927 if (plt)
7928 {
dc810e39
AM		 7929 if ( !add_dynamic_entry (DT_PLTGOT, 0)
7930 || !add_dynamic_entry (DT_PLTRELSZ, 0)
00a97672
RS		 7931 || !add_dynamic_entry (DT_PLTREL,
7932 htab->use_rel ? DT_REL : DT_RELA)
dc810e39 7933 || !add_dynamic_entry (DT_JMPREL, 0))
b34976b6 7934 return FALSE;
252b5132
RH		 7935 }
7936
7937 if (relocs)
7938 {
00a97672
RS		 7939 if (htab->use_rel)
7940 {
7941 if (!add_dynamic_entry (DT_REL, 0)
7942 || !add_dynamic_entry (DT_RELSZ, 0)
7943 || !add_dynamic_entry (DT_RELENT, RELOC_SIZE (htab)))
7944 return FALSE;
7945 }
7946 else
7947 {
7948 if (!add_dynamic_entry (DT_RELA, 0)
7949 || !add_dynamic_entry (DT_RELASZ, 0)
7950 || !add_dynamic_entry (DT_RELAENT, RELOC_SIZE (htab)))
7951 return FALSE;
7952 }
252b5132
RH		 7953 }
7954
08d1f311
DJ		 7955 /* If any dynamic relocs apply to a read-only section,
7956 then we need a DT_TEXTREL entry. */
7957 if ((info->flags & DF_TEXTREL) == 0)
7958 elf_link_hash_traverse (&htab->root, elf32_arm_readonly_dynrelocs,
7959 (PTR) info);
7960
99e4ae17 7961 if ((info->flags & DF_TEXTREL) != 0)
252b5132 7962 {
dc810e39 7963 if (!add_dynamic_entry (DT_TEXTREL, 0))
b34976b6 7964 return FALSE;
252b5132
RH		 7965 }
7966 }
8532796c 7967#undef add_dynamic_entry
252b5132 7968
b34976b6 7969 return TRUE;
252b5132
RH		 7970}
7971
252b5132
RH		 7972/* Finish up dynamic symbol handling. We set the contents of various
7973 dynamic sections here. */
7974
b34976b6 7975static bfd_boolean
57e8b36a
NC		 7976elf32_arm_finish_dynamic_symbol (bfd * output_bfd, struct bfd_link_info * info,
7977 struct elf_link_hash_entry * h, Elf_Internal_Sym * sym)
252b5132
RH		 7978{
7979 bfd * dynobj;
e5a52504 7980 struct elf32_arm_link_hash_table *htab;
b7693d02 7981 struct elf32_arm_link_hash_entry *eh;
252b5132
RH		 7982
7983 dynobj = elf_hash_table (info)->dynobj;
e5a52504 7984 htab = elf32_arm_hash_table (info);
b7693d02 7985 eh = (struct elf32_arm_link_hash_entry *) h;
252b5132
RH		 7986
7987 if (h->plt.offset != (bfd_vma) -1)
7988 {
7989 asection * splt;
252b5132 7990 asection * srel;
e5a52504 7991 bfd_byte *loc;
24a1ba0f 7992 bfd_vma plt_index;
947216bf 7993 Elf_Internal_Rela rel;
252b5132
RH		 7994
7995 /* This symbol has an entry in the procedure linkage table. Set
7996 it up. */
7997
7998 BFD_ASSERT (h->dynindx != -1);
7999
8000 splt = bfd_get_section_by_name (dynobj, ".plt");
00a97672 8001 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (htab, ".plt"));
e5a52504 8002 BFD_ASSERT (splt != NULL && srel != NULL);
252b5132 8003
e5a52504
MM		 8004 /* Fill in the entry in the procedure linkage table. */
8005 if (htab->symbian_p)
8006 {
52ab56c2
PB		 8007 put_arm_insn (htab, output_bfd,
8008 elf32_arm_symbian_plt_entry[0],
8009 splt->contents + h->plt.offset);
8010 bfd_put_32 (output_bfd,
8011 elf32_arm_symbian_plt_entry[1],
8012 splt->contents + h->plt.offset + 4);
e5a52504
MM		 8013
8014 /* Fill in the entry in the .rel.plt section. */
2a1b9a48
MM		 8015 rel.r_offset = (splt->output_section->vma
8016 + splt->output_offset
52ab56c2 8017 + h->plt.offset + 4);
e5a52504 8018 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_GLOB_DAT);
b7693d02
DJ		 8019
8020 /* Get the index in the procedure linkage table which
8021 corresponds to this symbol. This is the index of this symbol
8022 in all the symbols for which we are making plt entries. The
8023 first entry in the procedure linkage table is reserved. */
8024 plt_index = ((h->plt.offset - htab->plt_header_size)
8025 / htab->plt_entry_size);
e5a52504
MM		 8026 }
8027 else
8028 {
00a97672 8029 bfd_vma got_offset, got_address, plt_address;
e5a52504
MM		 8030 bfd_vma got_displacement;
8031 asection * sgot;
52ab56c2 8032 bfd_byte * ptr;
e5a52504
MM		 8033
8034 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
8035 BFD_ASSERT (sgot != NULL);
8036
b7693d02
DJ		 8037 /* Get the offset into the .got.plt table of the entry that
8038 corresponds to this function. */
8039 got_offset = eh->plt_got_offset;
8040
8041 /* Get the index in the procedure linkage table which
8042 corresponds to this symbol. This is the index of this symbol
8043 in all the symbols for which we are making plt entries. The
8044 first three entries in .got.plt are reserved; after that
8045 symbols appear in the same order as in .plt. */
8046 plt_index = (got_offset - 12) / 4;
e5a52504 8047
00a97672
RS		 8048 /* Calculate the address of the GOT entry. */
8049 got_address = (sgot->output_section->vma
8050 + sgot->output_offset
8051 + got_offset);
5e681ec4 8052
00a97672
RS		 8053 /* ...and the address of the PLT entry. */
8054 plt_address = (splt->output_section->vma
8055 + splt->output_offset
8056 + h->plt.offset);
5e681ec4 8057
52ab56c2 8058 ptr = htab->splt->contents + h->plt.offset;
00a97672
RS		 8059 if (htab->vxworks_p && info->shared)
8060 {
8061 unsigned int i;
8062 bfd_vma val;
8063
52ab56c2 8064 for (i = 0; i != htab->plt_entry_size / 4; i++, ptr += 4)
00a97672
RS		 8065 {
8066 val = elf32_arm_vxworks_shared_plt_entry[i];
8067 if (i == 2)
8068 val |= got_address - sgot->output_section->vma;
8069 if (i == 5)
8070 val |= plt_index * RELOC_SIZE (htab);
52ab56c2
PB		 8071 if (i == 2 || i == 5)
8072 bfd_put_32 (output_bfd, val, ptr);
8073 else
8074 put_arm_insn (htab, output_bfd, val, ptr);
00a97672
RS		 8075 }
8076 }
8077 else if (htab->vxworks_p)
b7693d02 8078 {
00a97672
RS		 8079 unsigned int i;
8080 bfd_vma val;
8081
8082 for (i = 0; i != htab->plt_entry_size / 4; i++)
8083 {
8084 val = elf32_arm_vxworks_exec_plt_entry[i];
8085 if (i == 2)
8086 val |= got_address;
8087 if (i == 4)
8088 val |= 0xffffff & -((h->plt.offset + i * 4 + 8) >> 2);
8089 if (i == 5)
8090 val |= plt_index * RELOC_SIZE (htab);
52ab56c2
PB		 8091 if (i == 2 || i == 5)
8092 bfd_put_32 (output_bfd, val, ptr);
8093 else
8094 put_arm_insn (htab, output_bfd, val, ptr);
00a97672
RS		 8095 }
8096
8097 loc = (htab->srelplt2->contents
8098 + (plt_index * 2 + 1) * RELOC_SIZE (htab));
8099
8100 /* Create the .rela.plt.unloaded R_ARM_ABS32 relocation
8101 referencing the GOT for this PLT entry. */
8102 rel.r_offset = plt_address + 8;
8103 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8104 rel.r_addend = got_offset;
8105 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8106 loc += RELOC_SIZE (htab);
8107
8108 /* Create the R_ARM_ABS32 relocation referencing the
8109 beginning of the PLT for this GOT entry. */
8110 rel.r_offset = got_address;
8111 rel.r_info = ELF32_R_INFO (htab->root.hplt->indx, R_ARM_ABS32);
8112 rel.r_addend = 0;
8113 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
b7693d02 8114 }
00a97672
RS		 8115 else
8116 {
8117 /* Calculate the displacement between the PLT slot and the
8118 entry in the GOT. The eight-byte offset accounts for the
8119 value produced by adding to pc in the first instruction
8120 of the PLT stub. */
8121 got_displacement = got_address - (plt_address + 8);
b7693d02 8122
00a97672
RS		 8123 BFD_ASSERT ((got_displacement & 0xf0000000) == 0);
8124
8125 if (!htab->use_blx && eh->plt_thumb_refcount > 0)
8126 {
52ab56c2
PB		 8127 put_thumb_insn (htab, output_bfd,
8128 elf32_arm_plt_thumb_stub[0], ptr - 4);
8129 put_thumb_insn (htab, output_bfd,
8130 elf32_arm_plt_thumb_stub[1], ptr - 2);
00a97672
RS		 8131 }
8132
52ab56c2
PB		 8133 put_arm_insn (htab, output_bfd,
8134 elf32_arm_plt_entry[0]
8135 | ((got_displacement & 0x0ff00000) >> 20),
8136 ptr + 0);
8137 put_arm_insn (htab, output_bfd,
8138 elf32_arm_plt_entry[1]
8139 | ((got_displacement & 0x000ff000) >> 12),
8140 ptr+ 4);
8141 put_arm_insn (htab, output_bfd,
8142 elf32_arm_plt_entry[2]
8143 | (got_displacement & 0x00000fff),
8144 ptr + 8);
5e681ec4 8145#ifdef FOUR_WORD_PLT
52ab56c2 8146 bfd_put_32 (output_bfd, elf32_arm_plt_entry[3], ptr + 12);
5e681ec4 8147#endif
00a97672 8148 }
252b5132 8149
e5a52504
MM		 8150 /* Fill in the entry in the global offset table. */
8151 bfd_put_32 (output_bfd,
8152 (splt->output_section->vma
8153 + splt->output_offset),
8154 sgot->contents + got_offset);
8155
00a97672
RS		 8156 /* Fill in the entry in the .rel(a).plt section. */
8157 rel.r_addend = 0;
8158 rel.r_offset = got_address;
e5a52504
MM		 8159 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_JUMP_SLOT);
8160 }
57e8b36a 8161
00a97672
RS		 8162 loc = srel->contents + plt_index * RELOC_SIZE (htab);
8163 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
252b5132 8164
f5385ebf 8165 if (!h->def_regular)
252b5132
RH		 8166 {
8167 /* Mark the symbol as undefined, rather than as defined in
8168 the .plt section. Leave the value alone. */
8169 sym->st_shndx = SHN_UNDEF;
d982ba73
PB		 8170 /* If the symbol is weak, we do need to clear the value.
8171 Otherwise, the PLT entry would provide a definition for
8172 the symbol even if the symbol wasn't defined anywhere,
8173 and so the symbol would never be NULL. */
f5385ebf 8174 if (!h->ref_regular_nonweak)
d982ba73 8175 sym->st_value = 0;
252b5132
RH		 8176 }
8177 }
8178
ba93b8ac
DJ		 8179 if (h->got.offset != (bfd_vma) -1
8180 && (elf32_arm_hash_entry (h)->tls_type & GOT_TLS_GD) == 0
8181 && (elf32_arm_hash_entry (h)->tls_type & GOT_TLS_IE) == 0)
252b5132
RH		 8182 {
8183 asection * sgot;
8184 asection * srel;
947216bf
AM		 8185 Elf_Internal_Rela rel;
8186 bfd_byte *loc;
00a97672 8187 bfd_vma offset;
252b5132
RH		 8188
8189 /* This symbol has an entry in the global offset table. Set it
8190 up. */
252b5132 8191 sgot = bfd_get_section_by_name (dynobj, ".got");
00a97672 8192 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (htab, ".got"));
252b5132
RH		 8193 BFD_ASSERT (sgot != NULL && srel != NULL);
8194
00a97672
RS		 8195 offset = (h->got.offset & ~(bfd_vma) 1);
8196 rel.r_addend = 0;
252b5132
RH		 8197 rel.r_offset = (sgot->output_section->vma
8198 + sgot->output_offset
00a97672 8199 + offset);
252b5132 8200
5e681ec4
PB		 8201 /* If this is a static link, or it is a -Bsymbolic link and the
8202 symbol is defined locally or was forced to be local because
8203 of a version file, we just want to emit a RELATIVE reloc.
8204 The entry in the global offset table will already have been
8205 initialized in the relocate_section function. */
252b5132 8206 if (info->shared
5e681ec4
PB		 8207 && SYMBOL_REFERENCES_LOCAL (info, h))
8208 {
8209 BFD_ASSERT((h->got.offset & 1) != 0);
8210 rel.r_info = ELF32_R_INFO (0, R_ARM_RELATIVE);
00a97672
RS		 8211 if (!htab->use_rel)
8212 {
8213 rel.r_addend = bfd_get_32 (output_bfd, sgot->contents + offset);
8214 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + offset);
8215 }
5e681ec4 8216 }
252b5132
RH		 8217 else
8218 {
5e681ec4 8219 BFD_ASSERT((h->got.offset & 1) == 0);
00a97672 8220 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + offset);
252b5132
RH		 8221 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_GLOB_DAT);
8222 }
8223
00a97672
RS		 8224 loc = srel->contents + srel->reloc_count++ * RELOC_SIZE (htab);
8225 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
252b5132
RH		 8226 }
8227
f5385ebf 8228 if (h->needs_copy)
252b5132
RH		 8229 {
8230 asection * s;
947216bf
AM		 8231 Elf_Internal_Rela rel;
8232 bfd_byte *loc;
252b5132
RH		 8233
8234 /* This symbol needs a copy reloc. Set it up. */
252b5132
RH		 8235 BFD_ASSERT (h->dynindx != -1
8236 && (h->root.type == bfd_link_hash_defined
8237 || h->root.type == bfd_link_hash_defweak));
8238
8239 s = bfd_get_section_by_name (h->root.u.def.section->owner,
00a97672 8240 RELOC_SECTION (htab, ".bss"));
252b5132
RH		 8241 BFD_ASSERT (s != NULL);
8242
00a97672 8243 rel.r_addend = 0;
252b5132
RH		 8244 rel.r_offset = (h->root.u.def.value
8245 + h->root.u.def.section->output_section->vma
8246 + h->root.u.def.section->output_offset);
8247 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_COPY);
00a97672
RS		 8248 loc = s->contents + s->reloc_count++ * RELOC_SIZE (htab);
8249 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
252b5132
RH		 8250 }
8251
00a97672
RS		 8252 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. On VxWorks,
8253 the _GLOBAL_OFFSET_TABLE_ symbol is not absolute: it is relative
8254 to the ".got" section. */
252b5132 8255 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
00a97672 8256 || (!htab->vxworks_p && h == htab->root.hgot))
252b5132
RH		 8257 sym->st_shndx = SHN_ABS;
8258
b34976b6 8259 return TRUE;
252b5132
RH		 8260}
8261
8262/* Finish up the dynamic sections. */
8263
b34976b6 8264static bfd_boolean
57e8b36a 8265elf32_arm_finish_dynamic_sections (bfd * output_bfd, struct bfd_link_info * info)
252b5132
RH		 8266{
8267 bfd * dynobj;
8268 asection * sgot;
8269 asection * sdyn;
8270
8271 dynobj = elf_hash_table (info)->dynobj;
8272
8273 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
229fcec5 8274 BFD_ASSERT (elf32_arm_hash_table (info)->symbian_p || sgot != NULL);
252b5132
RH		 8275 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
8276
8277 if (elf_hash_table (info)->dynamic_sections_created)
8278 {
8279 asection *splt;
8280 Elf32_External_Dyn *dyncon, *dynconend;
229fcec5 8281 struct elf32_arm_link_hash_table *htab;
252b5132 8282
229fcec5 8283 htab = elf32_arm_hash_table (info);
252b5132 8284 splt = bfd_get_section_by_name (dynobj, ".plt");
24a1ba0f 8285 BFD_ASSERT (splt != NULL && sdyn != NULL);
252b5132
RH		 8286
8287 dyncon = (Elf32_External_Dyn *) sdyn->contents;
eea6121a 8288 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
9b485d32 8289
252b5132
RH		 8290 for (; dyncon < dynconend; dyncon++)
8291 {
8292 Elf_Internal_Dyn dyn;
8293 const char * name;
8294 asection * s;
8295
8296 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
8297
8298 switch (dyn.d_tag)
8299 {
229fcec5
MM		 8300 unsigned int type;
8301
252b5132
RH		 8302 default:
8303 break;
8304
229fcec5
MM		 8305 case DT_HASH:
8306 name = ".hash";
8307 goto get_vma_if_bpabi;
8308 case DT_STRTAB:
8309 name = ".dynstr";
8310 goto get_vma_if_bpabi;
8311 case DT_SYMTAB:
8312 name = ".dynsym";
8313 goto get_vma_if_bpabi;
c0042f5d
MM		 8314 case DT_VERSYM:
8315 name = ".gnu.version";
8316 goto get_vma_if_bpabi;
8317 case DT_VERDEF:
8318 name = ".gnu.version_d";
8319 goto get_vma_if_bpabi;
8320 case DT_VERNEED:
8321 name = ".gnu.version_r";
8322 goto get_vma_if_bpabi;
8323
252b5132
RH		 8324 case DT_PLTGOT:
8325 name = ".got";
8326 goto get_vma;
8327 case DT_JMPREL:
00a97672 8328 name = RELOC_SECTION (htab, ".plt");
252b5132
RH		 8329 get_vma:
8330 s = bfd_get_section_by_name (output_bfd, name);
8331 BFD_ASSERT (s != NULL);
229fcec5
MM		 8332 if (!htab->symbian_p)
8333 dyn.d_un.d_ptr = s->vma;
8334 else
8335 /* In the BPABI, tags in the PT_DYNAMIC section point
8336 at the file offset, not the memory address, for the
8337 convenience of the post linker. */
8338 dyn.d_un.d_ptr = s->filepos;
252b5132
RH		 8339 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8340 break;
8341
229fcec5
MM		 8342 get_vma_if_bpabi:
8343 if (htab->symbian_p)
8344 goto get_vma;
8345 break;
8346
252b5132 8347 case DT_PLTRELSZ:
00a97672
RS		 8348 s = bfd_get_section_by_name (output_bfd,
8349 RELOC_SECTION (htab, ".plt"));
252b5132 8350 BFD_ASSERT (s != NULL);
eea6121a 8351 dyn.d_un.d_val = s->size;
252b5132
RH		 8352 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8353 break;
229fcec5 8354
252b5132 8355 case DT_RELSZ:
00a97672 8356 case DT_RELASZ:
229fcec5
MM		 8357 if (!htab->symbian_p)
8358 {
8359 /* My reading of the SVR4 ABI indicates that the
8360 procedure linkage table relocs (DT_JMPREL) should be
8361 included in the overall relocs (DT_REL). This is
8362 what Solaris does. However, UnixWare can not handle
8363 that case. Therefore, we override the DT_RELSZ entry
8364 here to make it not include the JMPREL relocs. Since
00a97672 8365 the linker script arranges for .rel(a).plt to follow all
229fcec5
MM		 8366 other relocation sections, we don't have to worry
8367 about changing the DT_REL entry. */
00a97672
RS		 8368 s = bfd_get_section_by_name (output_bfd,
8369 RELOC_SECTION (htab, ".plt"));
229fcec5
MM		 8370 if (s != NULL)
8371 dyn.d_un.d_val -= s->size;
8372 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8373 break;
8374 }
8375 /* Fall through */
8376
8377 case DT_REL:
8378 case DT_RELA:
229fcec5
MM		 8379 /* In the BPABI, the DT_REL tag must point at the file
8380 offset, not the VMA, of the first relocation
8381 section. So, we use code similar to that in
8382 elflink.c, but do not check for SHF_ALLOC on the
8383 relcoation section, since relocations sections are
8384 never allocated under the BPABI. The comments above
8385 about Unixware notwithstanding, we include all of the
8386 relocations here. */
8387 if (htab->symbian_p)
8388 {
8389 unsigned int i;
8390 type = ((dyn.d_tag == DT_REL || dyn.d_tag == DT_RELSZ)
8391 ? SHT_REL : SHT_RELA);
8392 dyn.d_un.d_val = 0;
8393 for (i = 1; i < elf_numsections (output_bfd); i++)
8394 {
8395 Elf_Internal_Shdr *hdr
8396 = elf_elfsections (output_bfd)[i];
8397 if (hdr->sh_type == type)
8398 {
8399 if (dyn.d_tag == DT_RELSZ
8400 || dyn.d_tag == DT_RELASZ)
8401 dyn.d_un.d_val += hdr->sh_size;
de52dba4
AM		 8402 else if ((ufile_ptr) hdr->sh_offset
8403 <= dyn.d_un.d_val - 1)
229fcec5
MM		 8404 dyn.d_un.d_val = hdr->sh_offset;
8405 }
8406 }
8407 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8408 }
252b5132 8409 break;
88f7bcd5
NC		 8410
8411 /* Set the bottom bit of DT_INIT/FINI if the
8412 corresponding function is Thumb. */
8413 case DT_INIT:
8414 name = info->init_function;
8415 goto get_sym;
8416 case DT_FINI:
8417 name = info->fini_function;
8418 get_sym:
8419 /* If it wasn't set by elf_bfd_final_link
4cc11e76 8420 then there is nothing to adjust. */
88f7bcd5
NC		 8421 if (dyn.d_un.d_val != 0)
8422 {
8423 struct elf_link_hash_entry * eh;
8424
8425 eh = elf_link_hash_lookup (elf_hash_table (info), name,
b34976b6 8426 FALSE, FALSE, TRUE);
88f7bcd5
NC		 8427 if (eh != (struct elf_link_hash_entry *) NULL
8428 && ELF_ST_TYPE (eh->type) == STT_ARM_TFUNC)
8429 {
8430 dyn.d_un.d_val |= 1;
b34976b6 8431 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
88f7bcd5
NC		 8432 }
8433 }
8434 break;
252b5132
RH		 8435 }
8436 }
8437
24a1ba0f 8438 /* Fill in the first entry in the procedure linkage table. */
e5a52504 8439 if (splt->size > 0 && elf32_arm_hash_table (info)->plt_header_size)
f7a74f8c 8440 {
00a97672
RS		 8441 const bfd_vma *plt0_entry;
8442 bfd_vma got_address, plt_address, got_displacement;
8443
8444 /* Calculate the addresses of the GOT and PLT. */
8445 got_address = sgot->output_section->vma + sgot->output_offset;
8446 plt_address = splt->output_section->vma + splt->output_offset;
8447
8448 if (htab->vxworks_p)
8449 {
8450 /* The VxWorks GOT is relocated by the dynamic linker.
8451 Therefore, we must emit relocations rather than simply
8452 computing the values now. */
8453 Elf_Internal_Rela rel;
8454
8455 plt0_entry = elf32_arm_vxworks_exec_plt0_entry;
52ab56c2
PB		 8456 put_arm_insn (htab, output_bfd, plt0_entry[0],
8457 splt->contents + 0);
8458 put_arm_insn (htab, output_bfd, plt0_entry[1],
8459 splt->contents + 4);
8460 put_arm_insn (htab, output_bfd, plt0_entry[2],
8461 splt->contents + 8);
00a97672
RS		 8462 bfd_put_32 (output_bfd, got_address, splt->contents + 12);
8463
8464 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_. */
8465 rel.r_offset = plt_address + 12;
8466 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8467 rel.r_addend = 0;
8468 SWAP_RELOC_OUT (htab) (output_bfd, &rel,
8469 htab->srelplt2->contents);
8470 }
8471 else
8472 {
8473 got_displacement = got_address - (plt_address + 16);
8474
8475 plt0_entry = elf32_arm_plt0_entry;
52ab56c2
PB		 8476 put_arm_insn (htab, output_bfd, plt0_entry[0],
8477 splt->contents + 0);
8478 put_arm_insn (htab, output_bfd, plt0_entry[1],
8479 splt->contents + 4);
8480 put_arm_insn (htab, output_bfd, plt0_entry[2],
8481 splt->contents + 8);
8482 put_arm_insn (htab, output_bfd, plt0_entry[3],
8483 splt->contents + 12);
5e681ec4 8484
5e681ec4 8485#ifdef FOUR_WORD_PLT
00a97672
RS		 8486 /* The displacement value goes in the otherwise-unused
8487 last word of the second entry. */
8488 bfd_put_32 (output_bfd, got_displacement, splt->contents + 28);
5e681ec4 8489#else
00a97672 8490 bfd_put_32 (output_bfd, got_displacement, splt->contents + 16);
5e681ec4 8491#endif
00a97672 8492 }
f7a74f8c 8493 }
252b5132
RH		 8494
8495 /* UnixWare sets the entsize of .plt to 4, although that doesn't
8496 really seem like the right value. */
8497 elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
00a97672
RS		 8498
8499 if (htab->vxworks_p && !info->shared && htab->splt->size > 0)
8500 {
8501 /* Correct the .rel(a).plt.unloaded relocations. They will have
8502 incorrect symbol indexes. */
8503 int num_plts;
eed62c48 8504 unsigned char *p;
00a97672
RS		 8505
8506 num_plts = ((htab->splt->size - htab->plt_header_size)
8507 / htab->plt_entry_size);
8508 p = htab->srelplt2->contents + RELOC_SIZE (htab);
8509
8510 for (; num_plts; num_plts--)
8511 {
8512 Elf_Internal_Rela rel;
8513
8514 SWAP_RELOC_IN (htab) (output_bfd, p, &rel);
8515 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8516 SWAP_RELOC_OUT (htab) (output_bfd, &rel, p);
8517 p += RELOC_SIZE (htab);
8518
8519 SWAP_RELOC_IN (htab) (output_bfd, p, &rel);
8520 rel.r_info = ELF32_R_INFO (htab->root.hplt->indx, R_ARM_ABS32);
8521 SWAP_RELOC_OUT (htab) (output_bfd, &rel, p);
8522 p += RELOC_SIZE (htab);
8523 }
8524 }
252b5132
RH		 8525 }
8526
8527 /* Fill in the first three entries in the global offset table. */
229fcec5 8528 if (sgot)
252b5132 8529 {
229fcec5
MM		 8530 if (sgot->size > 0)
8531 {
8532 if (sdyn == NULL)
8533 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
8534 else
8535 bfd_put_32 (output_bfd,
8536 sdyn->output_section->vma + sdyn->output_offset,
8537 sgot->contents);
8538 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
8539 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
8540 }
252b5132 8541
229fcec5
MM		 8542 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
8543 }
252b5132 8544
b34976b6 8545 return TRUE;
252b5132
RH		 8546}
8547
ba96a88f 8548static void
57e8b36a 8549elf32_arm_post_process_headers (bfd * abfd, struct bfd_link_info * link_info ATTRIBUTE_UNUSED)
ba96a88f 8550{
9b485d32 8551 Elf_Internal_Ehdr * i_ehdrp; /* ELF file header, internal form. */
e489d0ae 8552 struct elf32_arm_link_hash_table *globals;
ba96a88f
NC		 8553
8554 i_ehdrp = elf_elfheader (abfd);
8555
94a3258f
PB		 8556 if (EF_ARM_EABI_VERSION (i_ehdrp->e_flags) == EF_ARM_EABI_UNKNOWN)
8557 i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_ARM;
8558 else
8559 i_ehdrp->e_ident[EI_OSABI] = 0;
ba96a88f 8560 i_ehdrp->e_ident[EI_ABIVERSION] = ARM_ELF_ABI_VERSION;
e489d0ae 8561
93204d3a
PB		 8562 if (link_info)
8563 {
8564 globals = elf32_arm_hash_table (link_info);
8565 if (globals->byteswap_code)
8566 i_ehdrp->e_flags |= EF_ARM_BE8;
8567 }
ba96a88f
NC		 8568}
8569
99e4ae17 8570static enum elf_reloc_type_class
57e8b36a 8571elf32_arm_reloc_type_class (const Elf_Internal_Rela *rela)
99e4ae17 8572{
f51e552e 8573 switch ((int) ELF32_R_TYPE (rela->r_info))
99e4ae17
AJ		 8574 {
8575 case R_ARM_RELATIVE:
8576 return reloc_class_relative;
8577 case R_ARM_JUMP_SLOT:
8578 return reloc_class_plt;
8579 case R_ARM_COPY:
8580 return reloc_class_copy;
8581 default:
8582 return reloc_class_normal;
8583 }
8584}
8585
e16bb312
NC		 8586/* Set the right machine number for an Arm ELF file. */
8587
8588static bfd_boolean
57e8b36a 8589elf32_arm_section_flags (flagword *flags, const Elf_Internal_Shdr *hdr)
e16bb312
NC		 8590{
8591 if (hdr->sh_type == SHT_NOTE)
8592 *flags |= SEC_LINK_ONCE | SEC_LINK_DUPLICATES_SAME_CONTENTS;
8593
8594 return TRUE;
8595}
8596
e489d0ae 8597static void
57e8b36a 8598elf32_arm_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
e16bb312 8599{
5a6c6817 8600 bfd_arm_update_notes (abfd, ARM_NOTE_SECTION);
e16bb312
NC		 8601}
8602
40a18ebd
NC		 8603/* Return TRUE if this is an unwinding table entry. */
8604
8605static bfd_boolean
8606is_arm_elf_unwind_section_name (bfd * abfd ATTRIBUTE_UNUSED, const char * name)
8607{
8608 size_t len1, len2;
8609
8610 len1 = sizeof (ELF_STRING_ARM_unwind) - 1;
8611 len2 = sizeof (ELF_STRING_ARM_unwind_once) - 1;
8612 return (strncmp (name, ELF_STRING_ARM_unwind, len1) == 0
8613 || strncmp (name, ELF_STRING_ARM_unwind_once, len2) == 0);
8614}
8615
8616
8617/* Set the type and flags for an ARM section. We do this by
8618 the section name, which is a hack, but ought to work. */
8619
8620static bfd_boolean
8621elf32_arm_fake_sections (bfd * abfd, Elf_Internal_Shdr * hdr, asection * sec)
8622{
8623 const char * name;
8624
8625 name = bfd_get_section_name (abfd, sec);
8626
8627 if (is_arm_elf_unwind_section_name (abfd, name))
8628 {
8629 hdr->sh_type = SHT_ARM_EXIDX;
8630 hdr->sh_flags |= SHF_LINK_ORDER;
8631 }
ee065d83
PB		 8632 else if (strcmp(name, ".ARM.attributes") == 0)
8633 {
8634 hdr->sh_type = SHT_ARM_ATTRIBUTES;
8635 }
40a18ebd
NC		 8636 return TRUE;
8637}
8638
ee065d83
PB		 8639/* Parse an Arm EABI attributes section. */
8640static void
8641elf32_arm_parse_attributes (bfd *abfd, Elf_Internal_Shdr * hdr)
8642{
8643 bfd_byte *contents;
8644 bfd_byte *p;
8645 bfd_vma len;
8646
8647 contents = bfd_malloc (hdr->sh_size);
8648 if (!contents)
8649 return;
8650 if (!bfd_get_section_contents (abfd, hdr->bfd_section, contents, 0,
8651 hdr->sh_size))
8652 {
8653 free (contents);
8654 return;
8655 }
8656 p = contents;
8657 if (*(p++) == 'A')
8658 {
8659 len = hdr->sh_size - 1;
8660 while (len > 0)
8661 {
8662 int namelen;
8663 bfd_vma section_len;
8664
8665 section_len = bfd_get_32 (abfd, p);
8666 p += 4;
8667 if (section_len > len)
8668 section_len = len;
8669 len -= section_len;
8670 namelen = strlen ((char *)p) + 1;
8671 section_len -= namelen + 4;
8672 if (strcmp((char *)p, "aeabi") != 0)
8673 {
8674 /* Vendor section. Ignore it. */
8675 p += namelen + section_len;
8676 }
8677 else
8678 {
8679 p += namelen;
8680 while (section_len > 0)
8681 {
8682 int tag;
8683 unsigned int n;
8684 unsigned int val;
8685 bfd_vma subsection_len;
8686 bfd_byte *end;
8687
8688 tag = read_unsigned_leb128 (abfd, p, &n);
8689 p += n;
8690 subsection_len = bfd_get_32 (abfd, p);
8691 p += 4;
8692 if (subsection_len > section_len)
8693 subsection_len = section_len;
8694 section_len -= subsection_len;
8695 subsection_len -= n + 4;
8696 end = p + subsection_len;
8697 switch (tag)
8698 {
8699 case Tag_File:
8700 while (p < end)
8701 {
8702 bfd_boolean is_string;
8703
8704 tag = read_unsigned_leb128 (abfd, p, &n);
8705 p += n;
8706 if (tag == 4 || tag == 5)
8707 is_string = 1;
8708 else if (tag < 32)
8709 is_string = 0;
8710 else
8711 is_string = (tag & 1) != 0;
8712 if (tag == Tag_compatibility)
8713 {
8714 val = read_unsigned_leb128 (abfd, p, &n);
8715 p += n;
8716 elf32_arm_add_eabi_attr_compat (abfd, val,
8717 (char *)p);
8718 p += strlen ((char *)p) + 1;
8719 }
8720 else if (is_string)
8721 {
8722 elf32_arm_add_eabi_attr_string (abfd, tag,
8723 (char *)p);
8724 p += strlen ((char *)p) + 1;
8725 }
8726 else
8727 {
8728 val = read_unsigned_leb128 (abfd, p, &n);
8729 p += n;
8730 elf32_arm_add_eabi_attr_int (abfd, tag, val);
8731 }
8732 }
8733 break;
8734 case Tag_Section:
8735 case Tag_Symbol:
8736 /* Don't have anywhere convenient to attach these.
8737 Fall through for now. */
8738 default:
8739 /* Ignore things we don't kow about. */
8740 p += subsection_len;
8741 subsection_len = 0;
8742 break;
8743 }
8744 }
8745 }
8746 }
8747 }
8748 free (contents);
8749}
8750
6dc132d9
L		 8751/* Handle an ARM specific section when reading an object file. This is
8752 called when bfd_section_from_shdr finds a section with an unknown
8753 type. */
40a18ebd
NC		 8754
8755static bfd_boolean
8756elf32_arm_section_from_shdr (bfd *abfd,
8757 Elf_Internal_Shdr * hdr,
6dc132d9
L		 8758 const char *name,
8759 int shindex)
40a18ebd
NC		 8760{
8761 /* There ought to be a place to keep ELF backend specific flags, but
8762 at the moment there isn't one. We just keep track of the
8763 sections by their name, instead. Fortunately, the ABI gives
8764 names for all the ARM specific sections, so we will probably get
8765 away with this. */
8766 switch (hdr->sh_type)
8767 {
8768 case SHT_ARM_EXIDX:
0951f019
RE		 8769 case SHT_ARM_PREEMPTMAP:
8770 case SHT_ARM_ATTRIBUTES:
40a18ebd
NC		 8771 break;
8772
8773 default:
8774 return FALSE;
8775 }
8776
6dc132d9 8777 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
40a18ebd
NC		 8778 return FALSE;
8779
ee065d83
PB		 8780 if (hdr->sh_type == SHT_ARM_ATTRIBUTES)
8781 elf32_arm_parse_attributes(abfd, hdr);
40a18ebd
NC		 8782 return TRUE;
8783}
e489d0ae 8784
8e3de13a
NC		 8785/* A structure used to record a list of sections, independently
8786 of the next and prev fields in the asection structure. */
8787typedef struct section_list
8788{
8789 asection * sec;
8790 struct section_list * next;
8791 struct section_list * prev;
8792}
8793section_list;
8794
8795/* Unfortunately we need to keep a list of sections for which
8796 an _arm_elf_section_data structure has been allocated. This
8797 is because it is possible for functions like elf32_arm_write_section
8798 to be called on a section which has had an elf_data_structure
8799 allocated for it (and so the used_by_bfd field is valid) but
8800 for which the ARM extended version of this structure - the
8801 _arm_elf_section_data structure - has not been allocated. */
8802static section_list * sections_with_arm_elf_section_data = NULL;
8803
8804static void
957c6e41 8805record_section_with_arm_elf_section_data (asection * sec)
8e3de13a
NC		 8806{
8807 struct section_list * entry;
8808
957c6e41 8809 entry = bfd_malloc (sizeof (* entry));
8e3de13a
NC		 8810 if (entry == NULL)
8811 return;
8812 entry->sec = sec;
8813 entry->next = sections_with_arm_elf_section_data;
8814 entry->prev = NULL;
8815 if (entry->next != NULL)
8816 entry->next->prev = entry;
8817 sections_with_arm_elf_section_data = entry;
8818}
8819
44444f50
NC		 8820static struct section_list *
8821find_arm_elf_section_entry (asection * sec)
8e3de13a
NC		 8822{
8823 struct section_list * entry;
bd4aae00 8824 static struct section_list * last_entry = NULL;
8e3de13a 8825
bd4aae00
NC		 8826 /* This is a short cut for the typical case where the sections are added
8827 to the sections_with_arm_elf_section_data list in forward order and
8828 then looked up here in backwards order. This makes a real difference
8829 to the ld-srec/sec64k.exp linker test. */
44444f50 8830 entry = sections_with_arm_elf_section_data;
bd4aae00
NC		 8831 if (last_entry != NULL)
8832 {
8833 if (last_entry->sec == sec)
44444f50
NC		 8834 entry = last_entry;
8835 else if (last_entry->next != NULL
8836 && last_entry->next->sec == sec)
8837 entry = last_entry->next;
bd4aae00 8838 }
44444f50
NC		 8839
8840 for (; entry; entry = entry->next)
8e3de13a 8841 if (entry->sec == sec)
44444f50 8842 break;
bd4aae00 8843
44444f50
NC		 8844 if (entry)
8845 /* Record the entry prior to this one - it is the entry we are most
8846 likely to want to locate next time. Also this way if we have been
8847 called from unrecord_section_with_arm_elf_section_data() we will not
8848 be caching a pointer that is about to be freed. */
8849 last_entry = entry->prev;
8850
8851 return entry;
8852}
8853
8854static _arm_elf_section_data *
8855get_arm_elf_section_data (asection * sec)
8856{
8857 struct section_list * entry;
8858
8859 entry = find_arm_elf_section_entry (sec);
8860
8861 if (entry)
8862 return elf32_arm_section_data (entry->sec);
8863 else
8864 return NULL;
8e3de13a
NC		 8865}
8866
8867static void
8868unrecord_section_with_arm_elf_section_data (asection * sec)
8869{
8870 struct section_list * entry;
8871
44444f50
NC		 8872 entry = find_arm_elf_section_entry (sec);
8873
8874 if (entry)
8875 {
8876 if (entry->prev != NULL)
8877 entry->prev->next = entry->next;
8878 if (entry->next != NULL)
8879 entry->next->prev = entry->prev;
8880 if (entry == sections_with_arm_elf_section_data)
8881 sections_with_arm_elf_section_data = entry->next;
8882 free (entry);
8883 }
8e3de13a
NC		 8884}
8885
e489d0ae
PB		 8886/* Called for each symbol. Builds a section map based on mapping symbols.
8887 Does not alter any of the symbols. */
8888
8889static bfd_boolean
8890elf32_arm_output_symbol_hook (struct bfd_link_info *info,
8891 const char *name,
8892 Elf_Internal_Sym *elfsym,
8893 asection *input_sec,
00a97672 8894 struct elf_link_hash_entry *h)
e489d0ae
PB		 8895{
8896 int mapcount;
8897 elf32_arm_section_map *map;
8e3de13a
NC		 8898 elf32_arm_section_map *newmap;
8899 _arm_elf_section_data *arm_data;
e489d0ae
PB		 8900 struct elf32_arm_link_hash_table *globals;
8901
00a97672
RS		 8902 globals = elf32_arm_hash_table (info);
8903 if (globals->vxworks_p
8904 && !elf_vxworks_link_output_symbol_hook (info, name, elfsym,
8905 input_sec, h))
8906 return FALSE;
8907
e489d0ae
PB		 8908 /* Only do this on final link. */
8909 if (info->relocatable)
8910 return TRUE;
8911
8912 /* Only build a map if we need to byteswap code. */
e489d0ae
PB		 8913 if (!globals->byteswap_code)
8914 return TRUE;
8915
8916 /* We only want mapping symbols. */
b0796911 8917 if (!bfd_is_arm_special_symbol_name (name, BFD_ARM_SPECIAL_SYM_TYPE_MAP))
e489d0ae
PB		 8918 return TRUE;
8919
8e3de13a
NC		 8920 /* If this section has not been allocated an _arm_elf_section_data
8921 structure then we cannot record anything. */
8922 arm_data = get_arm_elf_section_data (input_sec);
8923 if (arm_data == NULL)
8924 return TRUE;
8925
8926 mapcount = arm_data->mapcount + 1;
8927 map = arm_data->map;
d7f735da 8928
e489d0ae
PB		 8929 /* TODO: This may be inefficient, but we probably don't usually have many
8930 mapping symbols per section. */
8e3de13a
NC		 8931 newmap = bfd_realloc (map, mapcount * sizeof (* map));
8932 if (newmap != NULL)
8933 {
8934 arm_data->map = newmap;
8935 arm_data->mapcount = mapcount;
8936
d7f735da
NC		 8937 newmap[mapcount - 1].vma = elfsym->st_value;
8938 newmap[mapcount - 1].type = name[1];
8e3de13a 8939 }
57e8b36a 8940
e489d0ae
PB		 8941 return TRUE;
8942}
8943
4e617b1e
PB		 8944typedef struct
8945{
8946 void *finfo;
8947 struct bfd_link_info *info;
8948 int plt_shndx;
8949 bfd_vma plt_offset;
8950 bfd_boolean (*func) (void *, const char *, Elf_Internal_Sym *,
8951 asection *, struct elf_link_hash_entry *);
8952} output_arch_syminfo;
8953
8954enum map_symbol_type
8955{
8956 ARM_MAP_ARM,
8957 ARM_MAP_THUMB,
8958 ARM_MAP_DATA
8959};
8960
8961
8962/* Output a single PLT mapping symbol. */
8963
8964static bfd_boolean
8965elf32_arm_ouput_plt_map_sym (output_arch_syminfo *osi,
8966 enum map_symbol_type type,
8967 bfd_vma offset)
8968{
8969 static const char *names[3] = {"$a", "$t", "$d"};
8970 struct elf32_arm_link_hash_table *htab;
8971 Elf_Internal_Sym sym;
8972
8973 htab = elf32_arm_hash_table (osi->info);
8974 sym.st_value = osi->plt_offset + offset;
8975 sym.st_size = 0;
8976 sym.st_other = 0;
8977 sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_NOTYPE);
8978 sym.st_shndx = osi->plt_shndx;
8979 if (!osi->func (osi->finfo, names[type], &sym, htab->splt, NULL))
8980 return FALSE;
8981 return TRUE;
8982}
8983
8984
8985/* Output mapping symbols for PLT entries associated with H. */
8986
8987static bfd_boolean
8988elf32_arm_output_plt_map (struct elf_link_hash_entry *h, void *inf)
8989{
8990 output_arch_syminfo *osi = (output_arch_syminfo *) inf;
8991 struct elf32_arm_link_hash_table *htab;
8992 struct elf32_arm_link_hash_entry *eh;
8993 bfd_vma addr;
8994
8995 htab = elf32_arm_hash_table (osi->info);
8996
8997 if (h->root.type == bfd_link_hash_indirect)
8998 return TRUE;
8999
9000 if (h->root.type == bfd_link_hash_warning)
9001 /* When warning symbols are created, they **replace** the "real"
9002 entry in the hash table, thus we never get to see the real
9003 symbol in a hash traversal. So look at it now. */
9004 h = (struct elf_link_hash_entry *) h->root.u.i.link;
9005
9006 if (h->plt.offset == (bfd_vma) -1)
9007 return TRUE;
9008
9009 eh = (struct elf32_arm_link_hash_entry *) h;
9010 addr = h->plt.offset;
9011 if (htab->symbian_p)
9012 {
9013 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9014 return FALSE;
9015 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 4))
9016 return FALSE;
9017 }
9018 else if (htab->vxworks_p)
9019 {
9020 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9021 return FALSE;
9022 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 8))
9023 return FALSE;
9024 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr + 12))
9025 return FALSE;
9026 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 20))
9027 return FALSE;
9028 }
9029 else
9030 {
9031 bfd_boolean thumb_stub;
9032
9033 thumb_stub = eh->plt_thumb_refcount > 0 && !htab->use_blx;
9034 if (thumb_stub)
9035 {
9036 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_THUMB, addr - 4))
9037 return FALSE;
9038 }
9039#ifdef FOUR_WORD_PLT
9040 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9041 return FALSE;
9042 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 12))
9043 return FALSE;
9044#else
9045 /* A three-word PLT with no Thumb thunk contains only Arm code,
9046 so only need to output a mapping symbol for the first PLT entry and
9047 entries with thumb thunks. */
9048 if (thumb_stub || addr == 20)
9049 {
9050 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9051 return FALSE;
9052 }
9053#endif
9054 }
9055
9056 return TRUE;
9057}
9058
9059
9060/* Output mapping symbols for the PLT. */
9061
9062static bfd_boolean
9063elf32_arm_output_arch_local_syms (bfd *output_bfd,
9064 struct bfd_link_info *info,
9065 void *finfo, bfd_boolean (*func) (void *, const char *,
9066 Elf_Internal_Sym *,
9067 asection *,
9068 struct elf_link_hash_entry *))
9069{
9070 output_arch_syminfo osi;
9071 struct elf32_arm_link_hash_table *htab;
9072
9073 htab = elf32_arm_hash_table (info);
9074 if (!htab->splt || htab->splt->size == 0)
9075 return TRUE;
9076
9077 check_use_blx(htab);
9078 osi.finfo = finfo;
9079 osi.info = info;
9080 osi.func = func;
9081 osi.plt_shndx = _bfd_elf_section_from_bfd_section (output_bfd,
9082 htab->splt->output_section);
9083 osi.plt_offset = htab->splt->output_section->vma;
9084
9085 /* Output mapping symbols for the plt header. SymbianOS does not have a
9086 plt header. */
9087 if (htab->vxworks_p)
9088 {
9089 /* VxWorks shared libraries have no PLT header. */
9090 if (!info->shared)
9091 {
9092 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_ARM, 0))
9093 return FALSE;
9094 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_DATA, 12))
9095 return FALSE;
9096 }
9097 }
9098 else if (!htab->symbian_p)
9099 {
9100 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_ARM, 0))
9101 return FALSE;
9102#ifndef FOUR_WORD_PLT
9103 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_DATA, 16))
9104 return FALSE;
9105#endif
9106 }
9107
9108 elf_link_hash_traverse (&htab->root, elf32_arm_output_plt_map, (void *) &osi);
9109 return TRUE;
9110}
9111
e489d0ae
PB		 9112/* Allocate target specific section data. */
9113
9114static bfd_boolean
9115elf32_arm_new_section_hook (bfd *abfd, asection *sec)
9116{
f592407e
AM		 9117 if (!sec->used_by_bfd)
9118 {
9119 _arm_elf_section_data *sdata;
9120 bfd_size_type amt = sizeof (*sdata);
e489d0ae 9121
f592407e
AM		 9122 sdata = bfd_zalloc (abfd, amt);
9123 if (sdata == NULL)
9124 return FALSE;
9125 sec->used_by_bfd = sdata;
9126 }
e489d0ae 9127
957c6e41 9128 record_section_with_arm_elf_section_data (sec);
8e3de13a 9129
e489d0ae
PB		 9130 return _bfd_elf_new_section_hook (abfd, sec);
9131}
9132
9133
9134/* Used to order a list of mapping symbols by address. */
9135
9136static int
9137elf32_arm_compare_mapping (const void * a, const void * b)
9138{
9139 return ((const elf32_arm_section_map *) a)->vma
9140 > ((const elf32_arm_section_map *) b)->vma;
9141}
9142
9143
9144/* Do code byteswapping. Return FALSE afterwards so that the section is
9145 written out as normal. */
9146
9147static bfd_boolean
9148elf32_arm_write_section (bfd *output_bfd ATTRIBUTE_UNUSED, asection *sec,
9149 bfd_byte *contents)
9150{
9151 int mapcount;
8e3de13a 9152 _arm_elf_section_data *arm_data;
e489d0ae
PB		 9153 elf32_arm_section_map *map;
9154 bfd_vma ptr;
9155 bfd_vma end;
9156 bfd_vma offset;
9157 bfd_byte tmp;
9158 int i;
57e8b36a 9159
8e3de13a
NC		 9160 /* If this section has not been allocated an _arm_elf_section_data
9161 structure then we cannot record anything. */
9162 arm_data = get_arm_elf_section_data (sec);
9163 if (arm_data == NULL)
9164 return FALSE;
9165
9166 mapcount = arm_data->mapcount;
9167 map = arm_data->map;
e489d0ae
PB		 9168
9169 if (mapcount == 0)
9170 return FALSE;
9171
8e3de13a 9172 qsort (map, mapcount, sizeof (* map), elf32_arm_compare_mapping);
e489d0ae
PB		 9173
9174 offset = sec->output_section->vma + sec->output_offset;
9175 ptr = map[0].vma - offset;
9176 for (i = 0; i < mapcount; i++)
9177 {
9178 if (i == mapcount - 1)
eea6121a 9179 end = sec->size;
e489d0ae
PB		 9180 else
9181 end = map[i + 1].vma - offset;
57e8b36a 9182
e489d0ae
PB		 9183 switch (map[i].type)
9184 {
9185 case 'a':
9186 /* Byte swap code words. */
9187 while (ptr + 3 < end)
9188 {
9189 tmp = contents[ptr];
9190 contents[ptr] = contents[ptr + 3];
9191 contents[ptr + 3] = tmp;
9192 tmp = contents[ptr + 1];
9193 contents[ptr + 1] = contents[ptr + 2];
9194 contents[ptr + 2] = tmp;
9195 ptr += 4;
9196 }
9197 break;
9198
9199 case 't':
9200 /* Byte swap code halfwords. */
9201 while (ptr + 1 < end)
9202 {
9203 tmp = contents[ptr];
9204 contents[ptr] = contents[ptr + 1];
9205 contents[ptr + 1] = tmp;
9206 ptr += 2;
9207 }
9208 break;
9209
9210 case 'd':
9211 /* Leave data alone. */
9212 break;
9213 }
9214 ptr = end;
9215 }
8e3de13a 9216
93204d3a 9217 free (map);
8e3de13a
NC		 9218 arm_data->mapcount = 0;
9219 arm_data->map = NULL;
9220 unrecord_section_with_arm_elf_section_data (sec);
9221
e489d0ae
PB		 9222 return FALSE;
9223}
9224
957c6e41
NC		 9225static void
9226unrecord_section_via_map_over_sections (bfd * abfd ATTRIBUTE_UNUSED,
9227 asection * sec,
9228 void * ignore ATTRIBUTE_UNUSED)
9229{
9230 unrecord_section_with_arm_elf_section_data (sec);
9231}
9232
9233static bfd_boolean
9234elf32_arm_close_and_cleanup (bfd * abfd)
9235{
b25e3d87
L		 9236 if (abfd->sections)
9237 bfd_map_over_sections (abfd,
9238 unrecord_section_via_map_over_sections,
9239 NULL);
957c6e41
NC		 9240
9241 return _bfd_elf_close_and_cleanup (abfd);
9242}
9243
b25e3d87
L		 9244static bfd_boolean
9245elf32_arm_bfd_free_cached_info (bfd * abfd)
9246{
9247 if (abfd->sections)
9248 bfd_map_over_sections (abfd,
9249 unrecord_section_via_map_over_sections,
9250 NULL);
9251
9252 return _bfd_free_cached_info (abfd);
9253}
9254
b7693d02
DJ		 9255/* Display STT_ARM_TFUNC symbols as functions. */
9256
9257static void
9258elf32_arm_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
9259 asymbol *asym)
9260{
9261 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
9262
9263 if (ELF_ST_TYPE (elfsym->internal_elf_sym.st_info) == STT_ARM_TFUNC)
9264 elfsym->symbol.flags |= BSF_FUNCTION;
9265}
9266
0beaef2b
PB		 9267
9268/* Mangle thumb function symbols as we read them in. */
9269
9270static void
9271elf32_arm_swap_symbol_in (bfd * abfd,
9272 const void *psrc,
9273 const void *pshn,
9274 Elf_Internal_Sym *dst)
9275{
9276 bfd_elf32_swap_symbol_in (abfd, psrc, pshn, dst);
9277
9278 /* New EABI objects mark thumb function symbols by setting the low bit of
9279 the address. Turn these into STT_ARM_TFUNC. */
9280 if (ELF_ST_TYPE (dst->st_info) == STT_FUNC
9281 && (dst->st_value & 1))
9282 {
9283 dst->st_info = ELF_ST_INFO (ELF_ST_BIND (dst->st_info), STT_ARM_TFUNC);
9284 dst->st_value &= ~(bfd_vma) 1;
9285 }
9286}
9287
9288
9289/* Mangle thumb function symbols as we write them out. */
9290
9291static void
9292elf32_arm_swap_symbol_out (bfd *abfd,
9293 const Elf_Internal_Sym *src,
9294 void *cdst,
9295 void *shndx)
9296{
9297 Elf_Internal_Sym newsym;
9298
9299 /* We convert STT_ARM_TFUNC symbols into STT_FUNC with the low bit
9300 of the address set, as per the new EABI. We do this unconditionally
9301 because objcopy does not set the elf header flags until after
9302 it writes out the symbol table. */
9303 if (ELF_ST_TYPE (src->st_info) == STT_ARM_TFUNC)
9304 {
9305 newsym = *src;
9306 newsym.st_info = ELF_ST_INFO (ELF_ST_BIND (src->st_info), STT_FUNC);
0fa3dcad
PB		 9307 if (newsym.st_shndx != SHN_UNDEF)
9308 {
9309 /* Do this only for defined symbols. At link type, the static
9310 linker will simulate the work of dynamic linker of resolving
9311 symbols and will carry over the thumbness of found symbols to
9312 the output symbol table. It's not clear how it happens, but
9313 the thumbness of underfined symbols can well be different at
9314 runtime, and writing '1' for them will be confusing for users
9315 and possibly for dynamic linker itself.
9316 */
9317 newsym.st_value |= 1;
9318 }
9319
0beaef2b
PB		 9320 newsym.st_value |= 1;
9321
9322 src = &newsym;
9323 }
9324 bfd_elf32_swap_symbol_out (abfd, src, cdst, shndx);
9325}
9326
b294bdf8
MM		 9327/* Add the PT_ARM_EXIDX program header. */
9328
9329static bfd_boolean
9330elf32_arm_modify_segment_map (bfd *abfd,
9331 struct bfd_link_info *info ATTRIBUTE_UNUSED)
9332{
9333 struct elf_segment_map *m;
9334 asection *sec;
9335
9336 sec = bfd_get_section_by_name (abfd, ".ARM.exidx");
9337 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
9338 {
9339 /* If there is already a PT_ARM_EXIDX header, then we do not
9340 want to add another one. This situation arises when running
9341 "strip"; the input binary already has the header. */
9342 m = elf_tdata (abfd)->segment_map;
9343 while (m && m->p_type != PT_ARM_EXIDX)
9344 m = m->next;
9345 if (!m)
9346 {
9347 m = bfd_zalloc (abfd, sizeof (struct elf_segment_map));
9348 if (m == NULL)
9349 return FALSE;
9350 m->p_type = PT_ARM_EXIDX;
9351 m->count = 1;
9352 m->sections[0] = sec;
9353
9354 m->next = elf_tdata (abfd)->segment_map;
9355 elf_tdata (abfd)->segment_map = m;
9356 }
9357 }
9358
9359 return TRUE;
9360}
9361
9362/* We may add a PT_ARM_EXIDX program header. */
9363
9364static int
a6b96beb
AM		 9365elf32_arm_additional_program_headers (bfd *abfd,
9366 struct bfd_link_info *info ATTRIBUTE_UNUSED)
b294bdf8
MM		 9367{
9368 asection *sec;
9369
9370 sec = bfd_get_section_by_name (abfd, ".ARM.exidx");
9371 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
9372 return 1;
9373 else
9374 return 0;
9375}
9376
0beaef2b
PB		 9377/* We use this to override swap_symbol_in and swap_symbol_out. */
9378const struct elf_size_info elf32_arm_size_info = {
9379 sizeof (Elf32_External_Ehdr),
9380 sizeof (Elf32_External_Phdr),
9381 sizeof (Elf32_External_Shdr),
9382 sizeof (Elf32_External_Rel),
9383 sizeof (Elf32_External_Rela),
9384 sizeof (Elf32_External_Sym),
9385 sizeof (Elf32_External_Dyn),
9386 sizeof (Elf_External_Note),
9387 4,
9388 1,
9389 32, 2,
9390 ELFCLASS32, EV_CURRENT,
9391 bfd_elf32_write_out_phdrs,
9392 bfd_elf32_write_shdrs_and_ehdr,
9393 bfd_elf32_write_relocs,
9394 elf32_arm_swap_symbol_in,
9395 elf32_arm_swap_symbol_out,
9396 bfd_elf32_slurp_reloc_table,
9397 bfd_elf32_slurp_symbol_table,
9398 bfd_elf32_swap_dyn_in,
9399 bfd_elf32_swap_dyn_out,
9400 bfd_elf32_swap_reloc_in,
9401 bfd_elf32_swap_reloc_out,
9402 bfd_elf32_swap_reloca_in,
9403 bfd_elf32_swap_reloca_out
9404};
9405
252b5132
RH		 9406#define ELF_ARCH bfd_arch_arm
9407#define ELF_MACHINE_CODE EM_ARM
d0facd1b
NC		 9408#ifdef __QNXTARGET__
9409#define ELF_MAXPAGESIZE 0x1000
9410#else
f21f3fe0 9411#define ELF_MAXPAGESIZE 0x8000
d0facd1b 9412#endif
b1342370 9413#define ELF_MINPAGESIZE 0x1000
24718e3b 9414#define ELF_COMMONPAGESIZE 0x1000
252b5132 9415
ba93b8ac
DJ		 9416#define bfd_elf32_mkobject elf32_arm_mkobject
9417
99e4ae17
AJ		 9418#define bfd_elf32_bfd_copy_private_bfd_data elf32_arm_copy_private_bfd_data
9419#define bfd_elf32_bfd_merge_private_bfd_data elf32_arm_merge_private_bfd_data
252b5132
RH		 9420#define bfd_elf32_bfd_set_private_flags elf32_arm_set_private_flags
9421#define bfd_elf32_bfd_print_private_bfd_data elf32_arm_print_private_bfd_data
9422#define bfd_elf32_bfd_link_hash_table_create elf32_arm_link_hash_table_create
dc810e39 9423#define bfd_elf32_bfd_reloc_type_lookup elf32_arm_reloc_type_lookup
252b5132 9424#define bfd_elf32_find_nearest_line elf32_arm_find_nearest_line
4ab527b0 9425#define bfd_elf32_find_inliner_info elf32_arm_find_inliner_info
e489d0ae 9426#define bfd_elf32_new_section_hook elf32_arm_new_section_hook
3c9458e9 9427#define bfd_elf32_bfd_is_target_special_symbol elf32_arm_is_target_special_symbol
957c6e41 9428#define bfd_elf32_close_and_cleanup elf32_arm_close_and_cleanup
b25e3d87 9429#define bfd_elf32_bfd_free_cached_info elf32_arm_bfd_free_cached_info
ee065d83 9430#define bfd_elf32_bfd_final_link elf32_arm_bfd_final_link
252b5132
RH		 9431
9432#define elf_backend_get_symbol_type elf32_arm_get_symbol_type
9433#define elf_backend_gc_mark_hook elf32_arm_gc_mark_hook
9434#define elf_backend_gc_sweep_hook elf32_arm_gc_sweep_hook
9435#define elf_backend_check_relocs elf32_arm_check_relocs
dc810e39 9436#define elf_backend_relocate_section elf32_arm_relocate_section
e489d0ae 9437#define elf_backend_write_section elf32_arm_write_section
252b5132 9438#define elf_backend_adjust_dynamic_symbol elf32_arm_adjust_dynamic_symbol
5e681ec4 9439#define elf_backend_create_dynamic_sections elf32_arm_create_dynamic_sections
252b5132
RH		 9440#define elf_backend_finish_dynamic_symbol elf32_arm_finish_dynamic_symbol
9441#define elf_backend_finish_dynamic_sections elf32_arm_finish_dynamic_sections
e489d0ae 9442#define elf_backend_link_output_symbol_hook elf32_arm_output_symbol_hook
252b5132 9443#define elf_backend_size_dynamic_sections elf32_arm_size_dynamic_sections
ba96a88f 9444#define elf_backend_post_process_headers elf32_arm_post_process_headers
99e4ae17 9445#define elf_backend_reloc_type_class elf32_arm_reloc_type_class
c178919b 9446#define elf_backend_object_p elf32_arm_object_p
e16bb312 9447#define elf_backend_section_flags elf32_arm_section_flags
40a18ebd
NC		 9448#define elf_backend_fake_sections elf32_arm_fake_sections
9449#define elf_backend_section_from_shdr elf32_arm_section_from_shdr
e16bb312 9450#define elf_backend_final_write_processing elf32_arm_final_write_processing
5e681ec4 9451#define elf_backend_copy_indirect_symbol elf32_arm_copy_indirect_symbol
b7693d02 9452#define elf_backend_symbol_processing elf32_arm_symbol_processing
0beaef2b 9453#define elf_backend_size_info elf32_arm_size_info
b294bdf8
MM		 9454#define elf_backend_modify_segment_map elf32_arm_modify_segment_map
9455#define elf_backend_additional_program_headers \
9456 elf32_arm_additional_program_headers
4e617b1e
PB		 9457#define elf_backend_output_arch_local_syms \
9458 elf32_arm_output_arch_local_syms
a4fd1a8e
PB		 9459#define elf_backend_begin_write_processing \
9460 elf32_arm_begin_write_processing
252b5132 9461
5e681ec4 9462#define elf_backend_can_refcount 1
252b5132
RH		 9463#define elf_backend_can_gc_sections 1
9464#define elf_backend_plt_readonly 1
9465#define elf_backend_want_got_plt 1
9466#define elf_backend_want_plt_sym 0
4e7fd91e
PB		 9467#define elf_backend_may_use_rel_p 1
9468#define elf_backend_may_use_rela_p 0
9469#define elf_backend_default_use_rela_p 0
9470#define elf_backend_rela_normal 0
252b5132 9471
04f7c78d 9472#define elf_backend_got_header_size 12
04f7c78d 9473
252b5132 9474#include "elf32-target.h"
7f266840 9475
4e7fd91e
PB		 9476/* VxWorks Targets */
9477
9478#undef TARGET_LITTLE_SYM
9479#define TARGET_LITTLE_SYM bfd_elf32_littlearm_vxworks_vec
9480#undef TARGET_LITTLE_NAME
9481#define TARGET_LITTLE_NAME "elf32-littlearm-vxworks"
9482#undef TARGET_BIG_SYM
9483#define TARGET_BIG_SYM bfd_elf32_bigarm_vxworks_vec
9484#undef TARGET_BIG_NAME
9485#define TARGET_BIG_NAME "elf32-bigarm-vxworks"
9486
9487/* Like elf32_arm_link_hash_table_create -- but overrides
9488 appropriately for VxWorks. */
9489static struct bfd_link_hash_table *
9490elf32_arm_vxworks_link_hash_table_create (bfd *abfd)
9491{
9492 struct bfd_link_hash_table *ret;
9493
9494 ret = elf32_arm_link_hash_table_create (abfd);
9495 if (ret)
9496 {
9497 struct elf32_arm_link_hash_table *htab
00a97672 9498 = (struct elf32_arm_link_hash_table *) ret;
4e7fd91e 9499 htab->use_rel = 0;
00a97672 9500 htab->vxworks_p = 1;
4e7fd91e
PB		 9501 }
9502 return ret;
9503}
9504
00a97672
RS		 9505static void
9506elf32_arm_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
9507{
9508 elf32_arm_final_write_processing (abfd, linker);
9509 elf_vxworks_final_write_processing (abfd, linker);
9510}
9511
4e7fd91e
PB		 9512#undef elf32_bed
9513#define elf32_bed elf32_arm_vxworks_bed
9514
9515#undef bfd_elf32_bfd_link_hash_table_create
9516#define bfd_elf32_bfd_link_hash_table_create \
9517 elf32_arm_vxworks_link_hash_table_create
00a97672
RS		 9518#undef elf_backend_add_symbol_hook
9519#define elf_backend_add_symbol_hook \
9520 elf_vxworks_add_symbol_hook
9521#undef elf_backend_final_write_processing
9522#define elf_backend_final_write_processing \
9523 elf32_arm_vxworks_final_write_processing
9524#undef elf_backend_emit_relocs
9525#define elf_backend_emit_relocs \
9526 elf_vxworks_emit_relocs
4e7fd91e
PB		 9527
9528#undef elf_backend_may_use_rel_p
00a97672 9529#define elf_backend_may_use_rel_p 0
4e7fd91e 9530#undef elf_backend_may_use_rela_p
00a97672 9531#define elf_backend_may_use_rela_p 1
4e7fd91e 9532#undef elf_backend_default_use_rela_p
00a97672 9533#define elf_backend_default_use_rela_p 1
4e7fd91e 9534#undef elf_backend_rela_normal
00a97672
RS		 9535#define elf_backend_rela_normal 1
9536#undef elf_backend_want_plt_sym
9537#define elf_backend_want_plt_sym 1
9538#undef ELF_MAXPAGESIZE
9539#define ELF_MAXPAGESIZE 0x1000
4e7fd91e
PB		 9540
9541#include "elf32-target.h"
9542
9543
7f266840
DJ		 9544/* Symbian OS Targets */
9545
9546#undef TARGET_LITTLE_SYM
9547#define TARGET_LITTLE_SYM bfd_elf32_littlearm_symbian_vec
9548#undef TARGET_LITTLE_NAME
9549#define TARGET_LITTLE_NAME "elf32-littlearm-symbian"
9550#undef TARGET_BIG_SYM
9551#define TARGET_BIG_SYM bfd_elf32_bigarm_symbian_vec
9552#undef TARGET_BIG_NAME
9553#define TARGET_BIG_NAME "elf32-bigarm-symbian"
9554
9555/* Like elf32_arm_link_hash_table_create -- but overrides
9556 appropriately for Symbian OS. */
9557static struct bfd_link_hash_table *
9558elf32_arm_symbian_link_hash_table_create (bfd *abfd)
9559{
9560 struct bfd_link_hash_table *ret;
9561
9562 ret = elf32_arm_link_hash_table_create (abfd);
9563 if (ret)
9564 {
9565 struct elf32_arm_link_hash_table *htab
9566 = (struct elf32_arm_link_hash_table *)ret;
9567 /* There is no PLT header for Symbian OS. */
9568 htab->plt_header_size = 0;
9569 /* The PLT entries are each three instructions. */
9570 htab->plt_entry_size = 4 * NUM_ELEM (elf32_arm_symbian_plt_entry);
9571 htab->symbian_p = 1;
33bfe774
JB		 9572 /* Symbian uses armv5t or above, so use_blx is always true. */
9573 htab->use_blx = 1;
67687978 9574 htab->root.is_relocatable_executable = 1;
7f266840
DJ		 9575 }
9576 return ret;
9577}
9578
b35d266b 9579static const struct bfd_elf_special_section
551b43fd 9580elf32_arm_symbian_special_sections[] =
7f266840 9581{
5cd3778d
MM		 9582 /* In a BPABI executable, the dynamic linking sections do not go in
9583 the loadable read-only segment. The post-linker may wish to
9584 refer to these sections, but they are not part of the final
9585 program image. */
7f266840
DJ		 9586 { ".dynamic", 8, 0, SHT_DYNAMIC, 0 },
9587 { ".dynstr", 7, 0, SHT_STRTAB, 0 },
9588 { ".dynsym", 7, 0, SHT_DYNSYM, 0 },
9589 { ".got", 4, 0, SHT_PROGBITS, 0 },
9590 { ".hash", 5, 0, SHT_HASH, 0 },
5cd3778d
MM		 9591 /* These sections do not need to be writable as the SymbianOS
9592 postlinker will arrange things so that no dynamic relocation is
9593 required. */
9594 { ".init_array", 11, 0, SHT_INIT_ARRAY, SHF_ALLOC },
9595 { ".fini_array", 11, 0, SHT_FINI_ARRAY, SHF_ALLOC },
9596 { ".preinit_array", 14, 0, SHT_PREINIT_ARRAY, SHF_ALLOC },
7f266840
DJ		 9597 { NULL, 0, 0, 0, 0 }
9598};
9599
c3c76620 9600static void
b34af79c 9601elf32_arm_symbian_begin_write_processing (bfd *abfd,
a4fd1a8e 9602 struct bfd_link_info *link_info)
c3c76620
MM		 9603{
9604 /* BPABI objects are never loaded directly by an OS kernel; they are
9605 processed by a postlinker first, into an OS-specific format. If
9606 the D_PAGED bit is set on the file, BFD will align segments on
9607 page boundaries, so that an OS can directly map the file. With
9608 BPABI objects, that just results in wasted space. In addition,
9609 because we clear the D_PAGED bit, map_sections_to_segments will
9610 recognize that the program headers should not be mapped into any
9611 loadable segment. */
9612 abfd->flags &= ~D_PAGED;
a4fd1a8e 9613 elf32_arm_begin_write_processing(abfd, link_info);
c3c76620 9614}
7f266840
DJ		 9615
9616static bfd_boolean
b34af79c 9617elf32_arm_symbian_modify_segment_map (bfd *abfd,
b294bdf8 9618 struct bfd_link_info *info)
7f266840
DJ		 9619{
9620 struct elf_segment_map *m;
9621 asection *dynsec;
9622
7f266840
DJ		 9623 /* BPABI shared libraries and executables should have a PT_DYNAMIC
9624 segment. However, because the .dynamic section is not marked
9625 with SEC_LOAD, the generic ELF code will not create such a
9626 segment. */
9627 dynsec = bfd_get_section_by_name (abfd, ".dynamic");
9628 if (dynsec)
9629 {
8ded5a0f
AM		 9630 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
9631 if (m->p_type == PT_DYNAMIC)
9632 break;
9633
9634 if (m == NULL)
9635 {
9636 m = _bfd_elf_make_dynamic_segment (abfd, dynsec);
9637 m->next = elf_tdata (abfd)->segment_map;
9638 elf_tdata (abfd)->segment_map = m;
9639 }
7f266840
DJ		 9640 }
9641
b294bdf8
MM		 9642 /* Also call the generic arm routine. */
9643 return elf32_arm_modify_segment_map (abfd, info);
7f266840
DJ		 9644}
9645
9646#undef elf32_bed
9647#define elf32_bed elf32_arm_symbian_bed
9648
9649/* The dynamic sections are not allocated on SymbianOS; the postlinker
9650 will process them and then discard them. */
9651#undef ELF_DYNAMIC_SEC_FLAGS
9652#define ELF_DYNAMIC_SEC_FLAGS \
9653 (SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED)
9654
9655#undef bfd_elf32_bfd_link_hash_table_create
9656#define bfd_elf32_bfd_link_hash_table_create \
9657 elf32_arm_symbian_link_hash_table_create
00a97672 9658#undef elf_backend_add_symbol_hook
7f266840 9659
29ef7005
L		 9660#undef elf_backend_special_sections
9661#define elf_backend_special_sections elf32_arm_symbian_special_sections
7f266840 9662
c3c76620
MM		 9663#undef elf_backend_begin_write_processing
9664#define elf_backend_begin_write_processing \
9665 elf32_arm_symbian_begin_write_processing
00a97672
RS		 9666#undef elf_backend_final_write_processing
9667#define elf_backend_final_write_processing \
9668 elf32_arm_final_write_processing
9669#undef elf_backend_emit_relocs
c3c76620 9670
7f266840
DJ		 9671#undef elf_backend_modify_segment_map
9672#define elf_backend_modify_segment_map elf32_arm_symbian_modify_segment_map
9673
9674/* There is no .got section for BPABI objects, and hence no header. */
9675#undef elf_backend_got_header_size
9676#define elf_backend_got_header_size 0
9677
9678/* Similarly, there is no .got.plt section. */
9679#undef elf_backend_want_got_plt
9680#define elf_backend_want_got_plt 0
9681
4e7fd91e 9682#undef elf_backend_may_use_rel_p
00a97672 9683#define elf_backend_may_use_rel_p 1
4e7fd91e 9684#undef elf_backend_may_use_rela_p
00a97672 9685#define elf_backend_may_use_rela_p 0
4e7fd91e 9686#undef elf_backend_default_use_rela_p
00a97672 9687#define elf_backend_default_use_rela_p 0
4e7fd91e 9688#undef elf_backend_rela_normal
00a97672
RS		 9689#define elf_backend_rela_normal 0
9690#undef elf_backend_want_plt_sym
9691#define elf_backend_want_plt_sym 0
9692#undef ELF_MAXPAGESIZE
9693#define ELF_MAXPAGESIZE 0x8000
4e7fd91e 9694
7f266840 9695#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.91649 seconds and 4 git commands to generate.