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