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