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