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