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