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