1 /* MIPS-specific support for 32-bit ELF
2 Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
3 2003 Free Software Foundation, Inc.
4
5 Most of the information added by Ian Lance Taylor, Cygnus Support,
6 <ian@cygnus.com>.
7 N32/64 ABI support added by Mark Mitchell, CodeSourcery, LLC.
8 <mark@codesourcery.com>
9 Traditional MIPS targets support added by Koundinya.K, Dansk Data
10 Elektronik & Operations Research Group. <kk@ddeorg.soft.net>
11
12 This file is part of BFD, the Binary File Descriptor library.
13
14 This program is free software; you can redistribute it and/or modify
15 it under the terms of the GNU General Public License as published by
16 the Free Software Foundation; either version 2 of the License, or
17 (at your option) any later version.
18
19 This program is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 GNU General Public License for more details.
23
24 You should have received a copy of the GNU General Public License
25 along with this program; if not, write to the Free Software
26 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27
28 /* This file handles MIPS ELF targets. SGI Irix 5 uses a slightly
29 different MIPS ELF from other targets. This matters when linking.
30 This file supports both, switching at runtime. */
31
32 #include "bfd.h"
33 #include "sysdep.h"
34 #include "libbfd.h"
35 #include "bfdlink.h"
36 #include "genlink.h"
37 #include "elf-bfd.h"
38 #include "elfxx-mips.h"
39 #include "elf/mips.h"
40
41 /* Get the ECOFF swapping routines. */
42 #include "coff/sym.h"
43 #include "coff/symconst.h"
44 #include "coff/internal.h"
45 #include "coff/ecoff.h"
46 #include "coff/mips.h"
47 #define ECOFF_SIGNED_32
48 #include "ecoffswap.h"
49
50 static bfd_reloc_status_type gprel32_with_gp
51 (bfd *, asymbol *, arelent *, asection *, bfd_boolean, void *, bfd_vma);
52 static bfd_reloc_status_type mips_elf_gprel32_reloc
53 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
54 static bfd_reloc_status_type mips32_64bit_reloc
55 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
56 static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
57 (bfd *, bfd_reloc_code_real_type);
58 static reloc_howto_type *mips_elf32_rtype_to_howto
59 (unsigned int, bfd_boolean);
60 static void mips_info_to_howto_rel
61 (bfd *, arelent *, Elf_Internal_Rela *);
62 static void mips_info_to_howto_rela
63 (bfd *, arelent *, Elf_Internal_Rela *);
64 static bfd_boolean mips_elf_sym_is_global
65 (bfd *, asymbol *);
66 static bfd_boolean mips_elf32_object_p
67 (bfd *);
68 static bfd_boolean mips_elf_is_local_label_name
69 (bfd *, const char *);
70 static bfd_reloc_status_type mips16_jump_reloc
71 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
72 static bfd_reloc_status_type mips16_gprel_reloc
73 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
74 static bfd_reloc_status_type mips_elf_final_gp
75 (bfd *, asymbol *, bfd_boolean, char **, bfd_vma *);
76 static bfd_boolean mips_elf_assign_gp
77 (bfd *, bfd_vma *);
78 static bfd_boolean elf32_mips_grok_prstatus
79 (bfd *, Elf_Internal_Note *);
80 static bfd_boolean elf32_mips_grok_psinfo
81 (bfd *, Elf_Internal_Note *);
82 static irix_compat_t elf32_mips_irix_compat
83 (bfd *);
84
85 extern const bfd_target bfd_elf32_bigmips_vec;
86 extern const bfd_target bfd_elf32_littlemips_vec;
87
88 /* Nonzero if ABFD is using the N32 ABI. */
89 #define ABI_N32_P(abfd) \
90 ((elf_elfheader (abfd)->e_flags & EF_MIPS_ABI2) != 0)
91
92 /* Whether we are trying to be compatible with IRIX at all. */
93 #define SGI_COMPAT(abfd) \
94 (elf32_mips_irix_compat (abfd) != ict_none)
95
96 /* The number of local .got entries we reserve. */
97 #define MIPS_RESERVED_GOTNO (2)
98
99 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
100 from smaller values. Start with zero, widen, *then* decrement. */
101 #define MINUS_ONE (((bfd_vma)0) - 1)
102
103 /* The relocation table used for SHT_REL sections. */
104
105 static reloc_howto_type elf_mips_howto_table_rel[] =
106 {
107 /* No relocation. */
108 HOWTO (R_MIPS_NONE, /* type */
109 0, /* rightshift */
110 0, /* size (0 = byte, 1 = short, 2 = long) */
111 0, /* bitsize */
112 FALSE, /* pc_relative */
113 0, /* bitpos */
114 complain_overflow_dont, /* complain_on_overflow */
115 _bfd_mips_elf_generic_reloc, /* special_function */
116 "R_MIPS_NONE", /* name */
117 FALSE, /* partial_inplace */
118 0, /* src_mask */
119 0, /* dst_mask */
120 FALSE), /* pcrel_offset */
121
122 /* 16 bit relocation. */
123 HOWTO (R_MIPS_16, /* type */
124 0, /* rightshift */
125 2, /* size (0 = byte, 1 = short, 2 = long) */
126 16, /* bitsize */
127 FALSE, /* pc_relative */
128 0, /* bitpos */
129 complain_overflow_signed, /* complain_on_overflow */
130 _bfd_mips_elf_generic_reloc, /* special_function */
131 "R_MIPS_16", /* name */
132 TRUE, /* partial_inplace */
133 0x0000ffff, /* src_mask */
134 0x0000ffff, /* dst_mask */
135 FALSE), /* pcrel_offset */
136
137 /* 32 bit relocation. */
138 HOWTO (R_MIPS_32, /* type */
139 0, /* rightshift */
140 2, /* size (0 = byte, 1 = short, 2 = long) */
141 32, /* bitsize */
142 FALSE, /* pc_relative */
143 0, /* bitpos */
144 complain_overflow_dont, /* complain_on_overflow */
145 _bfd_mips_elf_generic_reloc, /* special_function */
146 "R_MIPS_32", /* name */
147 TRUE, /* partial_inplace */
148 0xffffffff, /* src_mask */
149 0xffffffff, /* dst_mask */
150 FALSE), /* pcrel_offset */
151
152 /* 32 bit symbol relative relocation. */
153 HOWTO (R_MIPS_REL32, /* type */
154 0, /* rightshift */
155 2, /* size (0 = byte, 1 = short, 2 = long) */
156 32, /* bitsize */
157 FALSE, /* pc_relative */
158 0, /* bitpos */
159 complain_overflow_dont, /* complain_on_overflow */
160 _bfd_mips_elf_generic_reloc, /* special_function */
161 "R_MIPS_REL32", /* name */
162 TRUE, /* partial_inplace */
163 0xffffffff, /* src_mask */
164 0xffffffff, /* dst_mask */
165 FALSE), /* pcrel_offset */
166
167 /* 26 bit jump address. */
168 HOWTO (R_MIPS_26, /* type */
169 2, /* rightshift */
170 2, /* size (0 = byte, 1 = short, 2 = long) */
171 26, /* bitsize */
172 FALSE, /* pc_relative */
173 0, /* bitpos */
174 complain_overflow_dont, /* complain_on_overflow */
175 /* This needs complex overflow
176 detection, because the upper four
177 bits must match the PC + 4. */
178 _bfd_mips_elf_generic_reloc, /* special_function */
179 "R_MIPS_26", /* name */
180 TRUE, /* partial_inplace */
181 0x03ffffff, /* src_mask */
182 0x03ffffff, /* dst_mask */
183 FALSE), /* pcrel_offset */
184
185 /* High 16 bits of symbol value. */
186 HOWTO (R_MIPS_HI16, /* type */
187 16, /* rightshift */
188 2, /* size (0 = byte, 1 = short, 2 = long) */
189 16, /* bitsize */
190 FALSE, /* pc_relative */
191 0, /* bitpos */
192 complain_overflow_dont, /* complain_on_overflow */
193 _bfd_mips_elf_hi16_reloc, /* special_function */
194 "R_MIPS_HI16", /* name */
195 TRUE, /* partial_inplace */
196 0x0000ffff, /* src_mask */
197 0x0000ffff, /* dst_mask */
198 FALSE), /* pcrel_offset */
199
200 /* Low 16 bits of symbol value. */
201 HOWTO (R_MIPS_LO16, /* type */
202 0, /* rightshift */
203 2, /* size (0 = byte, 1 = short, 2 = long) */
204 16, /* bitsize */
205 FALSE, /* pc_relative */
206 0, /* bitpos */
207 complain_overflow_dont, /* complain_on_overflow */
208 _bfd_mips_elf_lo16_reloc, /* special_function */
209 "R_MIPS_LO16", /* name */
210 TRUE, /* partial_inplace */
211 0x0000ffff, /* src_mask */
212 0x0000ffff, /* dst_mask */
213 FALSE), /* pcrel_offset */
214
215 /* GP relative reference. */
216 HOWTO (R_MIPS_GPREL16, /* type */
217 0, /* rightshift */
218 2, /* size (0 = byte, 1 = short, 2 = long) */
219 16, /* bitsize */
220 FALSE, /* pc_relative */
221 0, /* bitpos */
222 complain_overflow_signed, /* complain_on_overflow */
223 _bfd_mips_elf32_gprel16_reloc, /* special_function */
224 "R_MIPS_GPREL16", /* name */
225 TRUE, /* partial_inplace */
226 0x0000ffff, /* src_mask */
227 0x0000ffff, /* dst_mask */
228 FALSE), /* pcrel_offset */
229
230 /* Reference to literal section. */
231 HOWTO (R_MIPS_LITERAL, /* type */
232 0, /* rightshift */
233 2, /* size (0 = byte, 1 = short, 2 = long) */
234 16, /* bitsize */
235 FALSE, /* pc_relative */
236 0, /* bitpos */
237 complain_overflow_signed, /* complain_on_overflow */
238 _bfd_mips_elf32_gprel16_reloc, /* special_function */
239 "R_MIPS_LITERAL", /* name */
240 TRUE, /* partial_inplace */
241 0x0000ffff, /* src_mask */
242 0x0000ffff, /* dst_mask */
243 FALSE), /* pcrel_offset */
244
245 /* Reference to global offset table. */
246 HOWTO (R_MIPS_GOT16, /* type */
247 0, /* rightshift */
248 2, /* size (0 = byte, 1 = short, 2 = long) */
249 16, /* bitsize */
250 FALSE, /* pc_relative */
251 0, /* bitpos */
252 complain_overflow_signed, /* complain_on_overflow */
253 _bfd_mips_elf_got16_reloc, /* special_function */
254 "R_MIPS_GOT16", /* name */
255 TRUE, /* partial_inplace */
256 0x0000ffff, /* src_mask */
257 0x0000ffff, /* dst_mask */
258 FALSE), /* pcrel_offset */
259
260 /* 16 bit PC relative reference. */
261 HOWTO (R_MIPS_PC16, /* type */
262 0, /* rightshift */
263 2, /* size (0 = byte, 1 = short, 2 = long) */
264 16, /* bitsize */
265 TRUE, /* pc_relative */
266 0, /* bitpos */
267 complain_overflow_signed, /* complain_on_overflow */
268 _bfd_mips_elf_generic_reloc, /* special_function */
269 "R_MIPS_PC16", /* name */
270 TRUE, /* partial_inplace */
271 0x0000ffff, /* src_mask */
272 0x0000ffff, /* dst_mask */
273 TRUE), /* pcrel_offset */
274
275 /* 16 bit call through global offset table. */
276 HOWTO (R_MIPS_CALL16, /* type */
277 0, /* rightshift */
278 2, /* size (0 = byte, 1 = short, 2 = long) */
279 16, /* bitsize */
280 FALSE, /* pc_relative */
281 0, /* bitpos */
282 complain_overflow_signed, /* complain_on_overflow */
283 _bfd_mips_elf_generic_reloc, /* special_function */
284 "R_MIPS_CALL16", /* name */
285 TRUE, /* partial_inplace */
286 0x0000ffff, /* src_mask */
287 0x0000ffff, /* dst_mask */
288 FALSE), /* pcrel_offset */
289
290 /* 32 bit GP relative reference. */
291 HOWTO (R_MIPS_GPREL32, /* type */
292 0, /* rightshift */
293 2, /* size (0 = byte, 1 = short, 2 = long) */
294 32, /* bitsize */
295 FALSE, /* pc_relative */
296 0, /* bitpos */
297 complain_overflow_dont, /* complain_on_overflow */
298 mips_elf_gprel32_reloc, /* special_function */
299 "R_MIPS_GPREL32", /* name */
300 TRUE, /* partial_inplace */
301 0xffffffff, /* src_mask */
302 0xffffffff, /* dst_mask */
303 FALSE), /* pcrel_offset */
304
305 /* The remaining relocs are defined on Irix 5, although they are
306 not defined by the ABI. */
307 EMPTY_HOWTO (13),
308 EMPTY_HOWTO (14),
309 EMPTY_HOWTO (15),
310
311 /* A 5 bit shift field. */
312 HOWTO (R_MIPS_SHIFT5, /* type */
313 0, /* rightshift */
314 2, /* size (0 = byte, 1 = short, 2 = long) */
315 5, /* bitsize */
316 FALSE, /* pc_relative */
317 6, /* bitpos */
318 complain_overflow_bitfield, /* complain_on_overflow */
319 _bfd_mips_elf_generic_reloc, /* special_function */
320 "R_MIPS_SHIFT5", /* name */
321 TRUE, /* partial_inplace */
322 0x000007c0, /* src_mask */
323 0x000007c0, /* dst_mask */
324 FALSE), /* pcrel_offset */
325
326 /* A 6 bit shift field. */
327 /* FIXME: This is not handled correctly; a special function is
328 needed to put the most significant bit in the right place. */
329 HOWTO (R_MIPS_SHIFT6, /* type */
330 0, /* rightshift */
331 2, /* size (0 = byte, 1 = short, 2 = long) */
332 6, /* bitsize */
333 FALSE, /* pc_relative */
334 6, /* bitpos */
335 complain_overflow_bitfield, /* complain_on_overflow */
336 _bfd_mips_elf_generic_reloc, /* special_function */
337 "R_MIPS_SHIFT6", /* name */
338 TRUE, /* partial_inplace */
339 0x000007c4, /* src_mask */
340 0x000007c4, /* dst_mask */
341 FALSE), /* pcrel_offset */
342
343 /* A 64 bit relocation. */
344 HOWTO (R_MIPS_64, /* type */
345 0, /* rightshift */
346 4, /* size (0 = byte, 1 = short, 2 = long) */
347 64, /* bitsize */
348 FALSE, /* pc_relative */
349 0, /* bitpos */
350 complain_overflow_dont, /* complain_on_overflow */
351 mips32_64bit_reloc, /* special_function */
352 "R_MIPS_64", /* name */
353 TRUE, /* partial_inplace */
354 MINUS_ONE, /* src_mask */
355 MINUS_ONE, /* dst_mask */
356 FALSE), /* pcrel_offset */
357
358 /* Displacement in the global offset table. */
359 HOWTO (R_MIPS_GOT_DISP, /* type */
360 0, /* rightshift */
361 2, /* size (0 = byte, 1 = short, 2 = long) */
362 16, /* bitsize */
363 FALSE, /* pc_relative */
364 0, /* bitpos */
365 complain_overflow_signed, /* complain_on_overflow */
366 _bfd_mips_elf_generic_reloc, /* special_function */
367 "R_MIPS_GOT_DISP", /* name */
368 TRUE, /* partial_inplace */
369 0x0000ffff, /* src_mask */
370 0x0000ffff, /* dst_mask */
371 FALSE), /* pcrel_offset */
372
373 /* Displacement to page pointer in the global offset table. */
374 HOWTO (R_MIPS_GOT_PAGE, /* type */
375 0, /* rightshift */
376 2, /* size (0 = byte, 1 = short, 2 = long) */
377 16, /* bitsize */
378 FALSE, /* pc_relative */
379 0, /* bitpos */
380 complain_overflow_signed, /* complain_on_overflow */
381 _bfd_mips_elf_generic_reloc, /* special_function */
382 "R_MIPS_GOT_PAGE", /* name */
383 TRUE, /* partial_inplace */
384 0x0000ffff, /* src_mask */
385 0x0000ffff, /* dst_mask */
386 FALSE), /* pcrel_offset */
387
388 /* Offset from page pointer in the global offset table. */
389 HOWTO (R_MIPS_GOT_OFST, /* type */
390 0, /* rightshift */
391 2, /* size (0 = byte, 1 = short, 2 = long) */
392 16, /* bitsize */
393 FALSE, /* pc_relative */
394 0, /* bitpos */
395 complain_overflow_signed, /* complain_on_overflow */
396 _bfd_mips_elf_generic_reloc, /* special_function */
397 "R_MIPS_GOT_OFST", /* name */
398 TRUE, /* partial_inplace */
399 0x0000ffff, /* src_mask */
400 0x0000ffff, /* dst_mask */
401 FALSE), /* pcrel_offset */
402
403 /* High 16 bits of displacement in global offset table. */
404 HOWTO (R_MIPS_GOT_HI16, /* type */
405 0, /* rightshift */
406 2, /* size (0 = byte, 1 = short, 2 = long) */
407 16, /* bitsize */
408 FALSE, /* pc_relative */
409 0, /* bitpos */
410 complain_overflow_dont, /* complain_on_overflow */
411 _bfd_mips_elf_generic_reloc, /* special_function */
412 "R_MIPS_GOT_HI16", /* name */
413 TRUE, /* partial_inplace */
414 0x0000ffff, /* src_mask */
415 0x0000ffff, /* dst_mask */
416 FALSE), /* pcrel_offset */
417
418 /* Low 16 bits of displacement in global offset table. */
419 HOWTO (R_MIPS_GOT_LO16, /* type */
420 0, /* rightshift */
421 2, /* size (0 = byte, 1 = short, 2 = long) */
422 16, /* bitsize */
423 FALSE, /* pc_relative */
424 0, /* bitpos */
425 complain_overflow_dont, /* complain_on_overflow */
426 _bfd_mips_elf_generic_reloc, /* special_function */
427 "R_MIPS_GOT_LO16", /* name */
428 TRUE, /* partial_inplace */
429 0x0000ffff, /* src_mask */
430 0x0000ffff, /* dst_mask */
431 FALSE), /* pcrel_offset */
432
433 /* 64 bit subtraction. Used in the N32 ABI. */
434 HOWTO (R_MIPS_SUB, /* type */
435 0, /* rightshift */
436 4, /* size (0 = byte, 1 = short, 2 = long) */
437 64, /* bitsize */
438 FALSE, /* pc_relative */
439 0, /* bitpos */
440 complain_overflow_dont, /* complain_on_overflow */
441 _bfd_mips_elf_generic_reloc, /* special_function */
442 "R_MIPS_SUB", /* name */
443 TRUE, /* partial_inplace */
444 MINUS_ONE, /* src_mask */
445 MINUS_ONE, /* dst_mask */
446 FALSE), /* pcrel_offset */
447
448 /* Used to cause the linker to insert and delete instructions? */
449 EMPTY_HOWTO (R_MIPS_INSERT_A),
450 EMPTY_HOWTO (R_MIPS_INSERT_B),
451 EMPTY_HOWTO (R_MIPS_DELETE),
452
453 /* Get the higher value of a 64 bit addend. */
454 HOWTO (R_MIPS_HIGHER, /* type */
455 0, /* rightshift */
456 2, /* size (0 = byte, 1 = short, 2 = long) */
457 16, /* bitsize */
458 FALSE, /* pc_relative */
459 0, /* bitpos */
460 complain_overflow_dont, /* complain_on_overflow */
461 _bfd_mips_elf_generic_reloc, /* special_function */
462 "R_MIPS_HIGHER", /* name */
463 TRUE, /* partial_inplace */
464 0x0000ffff, /* src_mask */
465 0x0000ffff, /* dst_mask */
466 FALSE), /* pcrel_offset */
467
468 /* Get the highest value of a 64 bit addend. */
469 HOWTO (R_MIPS_HIGHEST, /* type */
470 0, /* rightshift */
471 2, /* size (0 = byte, 1 = short, 2 = long) */
472 16, /* bitsize */
473 FALSE, /* pc_relative */
474 0, /* bitpos */
475 complain_overflow_dont, /* complain_on_overflow */
476 _bfd_mips_elf_generic_reloc, /* special_function */
477 "R_MIPS_HIGHEST", /* name */
478 TRUE, /* partial_inplace */
479 0x0000ffff, /* src_mask */
480 0x0000ffff, /* dst_mask */
481 FALSE), /* pcrel_offset */
482
483 /* High 16 bits of displacement in global offset table. */
484 HOWTO (R_MIPS_CALL_HI16, /* type */
485 0, /* rightshift */
486 2, /* size (0 = byte, 1 = short, 2 = long) */
487 16, /* bitsize */
488 FALSE, /* pc_relative */
489 0, /* bitpos */
490 complain_overflow_dont, /* complain_on_overflow */
491 _bfd_mips_elf_generic_reloc, /* special_function */
492 "R_MIPS_CALL_HI16", /* name */
493 TRUE, /* partial_inplace */
494 0x0000ffff, /* src_mask */
495 0x0000ffff, /* dst_mask */
496 FALSE), /* pcrel_offset */
497
498 /* Low 16 bits of displacement in global offset table. */
499 HOWTO (R_MIPS_CALL_LO16, /* type */
500 0, /* rightshift */
501 2, /* size (0 = byte, 1 = short, 2 = long) */
502 16, /* bitsize */
503 FALSE, /* pc_relative */
504 0, /* bitpos */
505 complain_overflow_dont, /* complain_on_overflow */
506 _bfd_mips_elf_generic_reloc, /* special_function */
507 "R_MIPS_CALL_LO16", /* name */
508 TRUE, /* partial_inplace */
509 0x0000ffff, /* src_mask */
510 0x0000ffff, /* dst_mask */
511 FALSE), /* pcrel_offset */
512
513 /* Section displacement. */
514 HOWTO (R_MIPS_SCN_DISP, /* type */
515 0, /* rightshift */
516 2, /* size (0 = byte, 1 = short, 2 = long) */
517 32, /* bitsize */
518 FALSE, /* pc_relative */
519 0, /* bitpos */
520 complain_overflow_dont, /* complain_on_overflow */
521 _bfd_mips_elf_generic_reloc, /* special_function */
522 "R_MIPS_SCN_DISP", /* name */
523 TRUE, /* partial_inplace */
524 0xffffffff, /* src_mask */
525 0xffffffff, /* dst_mask */
526 FALSE), /* pcrel_offset */
527
528 EMPTY_HOWTO (R_MIPS_REL16),
529 EMPTY_HOWTO (R_MIPS_ADD_IMMEDIATE),
530 EMPTY_HOWTO (R_MIPS_PJUMP),
531 EMPTY_HOWTO (R_MIPS_RELGOT),
532
533 /* Protected jump conversion. This is an optimization hint. No
534 relocation is required for correctness. */
535 HOWTO (R_MIPS_JALR, /* type */
536 0, /* rightshift */
537 2, /* size (0 = byte, 1 = short, 2 = long) */
538 32, /* bitsize */
539 FALSE, /* pc_relative */
540 0, /* bitpos */
541 complain_overflow_dont, /* complain_on_overflow */
542 _bfd_mips_elf_generic_reloc, /* special_function */
543 "R_MIPS_JALR", /* name */
544 FALSE, /* partial_inplace */
545 0x00000000, /* src_mask */
546 0x00000000, /* dst_mask */
547 FALSE), /* pcrel_offset */
548 };
549
550 /* The reloc used for BFD_RELOC_CTOR when doing a 64 bit link. This
551 is a hack to make the linker think that we need 64 bit values. */
552 static reloc_howto_type elf_mips_ctor64_howto =
553 HOWTO (R_MIPS_64, /* type */
554 0, /* rightshift */
555 4, /* size (0 = byte, 1 = short, 2 = long) */
556 32, /* bitsize */
557 FALSE, /* pc_relative */
558 0, /* bitpos */
559 complain_overflow_signed, /* complain_on_overflow */
560 mips32_64bit_reloc, /* special_function */
561 "R_MIPS_64", /* name */
562 TRUE, /* partial_inplace */
563 0xffffffff, /* src_mask */
564 0xffffffff, /* dst_mask */
565 FALSE); /* pcrel_offset */
566
567 /* The reloc used for the mips16 jump instruction. */
568 static reloc_howto_type elf_mips16_jump_howto =
569 HOWTO (R_MIPS16_26, /* type */
570 2, /* rightshift */
571 2, /* size (0 = byte, 1 = short, 2 = long) */
572 26, /* bitsize */
573 FALSE, /* pc_relative */
574 0, /* bitpos */
575 complain_overflow_dont, /* complain_on_overflow */
576 /* This needs complex overflow
577 detection, because the upper four
578 bits must match the PC. */
579 mips16_jump_reloc, /* special_function */
580 "R_MIPS16_26", /* name */
581 TRUE, /* partial_inplace */
582 0x3ffffff, /* src_mask */
583 0x3ffffff, /* dst_mask */
584 FALSE); /* pcrel_offset */
585
586 /* The reloc used for the mips16 gprel instruction. */
587 static reloc_howto_type elf_mips16_gprel_howto =
588 HOWTO (R_MIPS16_GPREL, /* type */
589 0, /* rightshift */
590 2, /* size (0 = byte, 1 = short, 2 = long) */
591 16, /* bitsize */
592 FALSE, /* pc_relative */
593 0, /* bitpos */
594 complain_overflow_signed, /* complain_on_overflow */
595 mips16_gprel_reloc, /* special_function */
596 "R_MIPS16_GPREL", /* name */
597 TRUE, /* partial_inplace */
598 0x07ff001f, /* src_mask */
599 0x07ff001f, /* dst_mask */
600 FALSE); /* pcrel_offset */
601
602 /* GNU extensions for embedded-pic. */
603 /* High 16 bits of symbol value, pc-relative. */
604 static reloc_howto_type elf_mips_gnu_rel_hi16 =
605 HOWTO (R_MIPS_GNU_REL_HI16, /* type */
606 16, /* rightshift */
607 2, /* size (0 = byte, 1 = short, 2 = long) */
608 16, /* bitsize */
609 TRUE, /* pc_relative */
610 0, /* bitpos */
611 complain_overflow_dont, /* complain_on_overflow */
612 _bfd_mips_elf_hi16_reloc, /* special_function */
613 "R_MIPS_GNU_REL_HI16", /* name */
614 TRUE, /* partial_inplace */
615 0xffff, /* src_mask */
616 0xffff, /* dst_mask */
617 TRUE); /* pcrel_offset */
618
619 /* Low 16 bits of symbol value, pc-relative. */
620 static reloc_howto_type elf_mips_gnu_rel_lo16 =
621 HOWTO (R_MIPS_GNU_REL_LO16, /* type */
622 0, /* rightshift */
623 2, /* size (0 = byte, 1 = short, 2 = long) */
624 16, /* bitsize */
625 TRUE, /* pc_relative */
626 0, /* bitpos */
627 complain_overflow_dont, /* complain_on_overflow */
628 _bfd_mips_elf_lo16_reloc, /* special_function */
629 "R_MIPS_GNU_REL_LO16", /* name */
630 TRUE, /* partial_inplace */
631 0xffff, /* src_mask */
632 0xffff, /* dst_mask */
633 TRUE); /* pcrel_offset */
634
635 /* 16 bit offset for pc-relative branches. */
636 static reloc_howto_type elf_mips_gnu_rel16_s2 =
637 HOWTO (R_MIPS_GNU_REL16_S2, /* type */
638 2, /* rightshift */
639 2, /* size (0 = byte, 1 = short, 2 = long) */
640 16, /* bitsize */
641 TRUE, /* pc_relative */
642 0, /* bitpos */
643 complain_overflow_signed, /* complain_on_overflow */
644 _bfd_mips_elf_generic_reloc, /* special_function */
645 "R_MIPS_GNU_REL16_S2", /* name */
646 TRUE, /* partial_inplace */
647 0xffff, /* src_mask */
648 0xffff, /* dst_mask */
649 TRUE); /* pcrel_offset */
650
651 /* 64 bit pc-relative. */
652 static reloc_howto_type elf_mips_gnu_pcrel64 =
653 HOWTO (R_MIPS_PC64, /* type */
654 0, /* rightshift */
655 4, /* size (0 = byte, 1 = short, 2 = long) */
656 64, /* bitsize */
657 TRUE, /* pc_relative */
658 0, /* bitpos */
659 complain_overflow_signed, /* complain_on_overflow */
660 _bfd_mips_elf_generic_reloc, /* special_function */
661 "R_MIPS_PC64", /* name */
662 TRUE, /* partial_inplace */
663 MINUS_ONE, /* src_mask */
664 MINUS_ONE, /* dst_mask */
665 TRUE); /* pcrel_offset */
666
667 /* 32 bit pc-relative. */
668 static reloc_howto_type elf_mips_gnu_pcrel32 =
669 HOWTO (R_MIPS_PC32, /* type */
670 0, /* rightshift */
671 2, /* size (0 = byte, 1 = short, 2 = long) */
672 32, /* bitsize */
673 TRUE, /* pc_relative */
674 0, /* bitpos */
675 complain_overflow_signed, /* complain_on_overflow */
676 _bfd_mips_elf_generic_reloc, /* special_function */
677 "R_MIPS_PC32", /* name */
678 TRUE, /* partial_inplace */
679 0xffffffff, /* src_mask */
680 0xffffffff, /* dst_mask */
681 TRUE); /* pcrel_offset */
682
683 /* GNU extension to record C++ vtable hierarchy */
684 static reloc_howto_type elf_mips_gnu_vtinherit_howto =
685 HOWTO (R_MIPS_GNU_VTINHERIT, /* type */
686 0, /* rightshift */
687 2, /* size (0 = byte, 1 = short, 2 = long) */
688 0, /* bitsize */
689 FALSE, /* pc_relative */
690 0, /* bitpos */
691 complain_overflow_dont, /* complain_on_overflow */
692 NULL, /* special_function */
693 "R_MIPS_GNU_VTINHERIT", /* name */
694 FALSE, /* partial_inplace */
695 0, /* src_mask */
696 0, /* dst_mask */
697 FALSE); /* pcrel_offset */
698
699 /* GNU extension to record C++ vtable member usage */
700 static reloc_howto_type elf_mips_gnu_vtentry_howto =
701 HOWTO (R_MIPS_GNU_VTENTRY, /* type */
702 0, /* rightshift */
703 2, /* size (0 = byte, 1 = short, 2 = long) */
704 0, /* bitsize */
705 FALSE, /* pc_relative */
706 0, /* bitpos */
707 complain_overflow_dont, /* complain_on_overflow */
708 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
709 "R_MIPS_GNU_VTENTRY", /* name */
710 FALSE, /* partial_inplace */
711 0, /* src_mask */
712 0, /* dst_mask */
713 FALSE); /* pcrel_offset */
714
715 /* Set the GP value for OUTPUT_BFD. Returns FALSE if this is a
716 dangerous relocation. */
717
718 static bfd_boolean
mips_elf_assign_gp(bfd * output_bfd,bfd_vma * pgp)719 mips_elf_assign_gp (bfd *output_bfd, bfd_vma *pgp)
720 {
721 unsigned int count;
722 asymbol **sym;
723 unsigned int i;
724
725 /* If we've already figured out what GP will be, just return it. */
726 *pgp = _bfd_get_gp_value (output_bfd);
727 if (*pgp)
728 return TRUE;
729
730 count = bfd_get_symcount (output_bfd);
731 sym = bfd_get_outsymbols (output_bfd);
732
733 /* The linker script will have created a symbol named `_gp' with the
734 appropriate value. */
735 if (sym == NULL)
736 i = count;
737 else
738 {
739 for (i = 0; i < count; i++, sym++)
740 {
741 register const char *name;
742
743 name = bfd_asymbol_name (*sym);
744 if (*name == '_' && strcmp (name, "_gp") == 0)
745 {
746 *pgp = bfd_asymbol_value (*sym);
747 _bfd_set_gp_value (output_bfd, *pgp);
748 break;
749 }
750 }
751 }
752
753 if (i >= count)
754 {
755 /* Only get the error once. */
756 *pgp = 4;
757 _bfd_set_gp_value (output_bfd, *pgp);
758 return FALSE;
759 }
760
761 return TRUE;
762 }
763
764 /* We have to figure out the gp value, so that we can adjust the
765 symbol value correctly. We look up the symbol _gp in the output
766 BFD. If we can't find it, we're stuck. We cache it in the ELF
767 target data. We don't need to adjust the symbol value for an
768 external symbol if we are producing relocatable output. */
769
770 static bfd_reloc_status_type
mips_elf_final_gp(bfd * output_bfd,asymbol * symbol,bfd_boolean relocatable,char ** error_message,bfd_vma * pgp)771 mips_elf_final_gp (bfd *output_bfd, asymbol *symbol, bfd_boolean relocatable,
772 char **error_message, bfd_vma *pgp)
773 {
774 if (bfd_is_und_section (symbol->section)
775 && ! relocatable)
776 {
777 *pgp = 0;
778 return bfd_reloc_undefined;
779 }
780
781 *pgp = _bfd_get_gp_value (output_bfd);
782 if (*pgp == 0
783 && (! relocatable
784 || (symbol->flags & BSF_SECTION_SYM) != 0))
785 {
786 if (relocatable)
787 {
788 /* Make up a value. */
789 *pgp = symbol->section->output_section->vma + 0x4000;
790 _bfd_set_gp_value (output_bfd, *pgp);
791 }
792 else if (!mips_elf_assign_gp (output_bfd, pgp))
793 {
794 *error_message =
795 (char *) _("GP relative relocation when _gp not defined");
796 return bfd_reloc_dangerous;
797 }
798 }
799
800 return bfd_reloc_ok;
801 }
802
803 /* Do a R_MIPS_GPREL16 relocation. This is a 16 bit value which must
804 become the offset from the gp register. This function also handles
805 R_MIPS_LITERAL relocations, although those can be handled more
806 cleverly because the entries in the .lit8 and .lit4 sections can be
807 merged. */
808
809 bfd_reloc_status_type
_bfd_mips_elf32_gprel16_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message)810 _bfd_mips_elf32_gprel16_reloc (bfd *abfd, arelent *reloc_entry,
811 asymbol *symbol, void *data,
812 asection *input_section, bfd *output_bfd,
813 char **error_message)
814 {
815 bfd_boolean relocatable;
816 bfd_reloc_status_type ret;
817 bfd_vma gp;
818
819 if (output_bfd != NULL)
820 relocatable = TRUE;
821 else
822 {
823 relocatable = FALSE;
824 output_bfd = symbol->section->output_section->owner;
825 }
826
827 ret = mips_elf_final_gp (output_bfd, symbol, relocatable, error_message,
828 &gp);
829 if (ret != bfd_reloc_ok)
830 return ret;
831
832 return _bfd_mips_elf_gprel16_with_gp (abfd, symbol, reloc_entry,
833 input_section, relocatable,
834 data, gp);
835 }
836
837 /* Do a R_MIPS_GPREL32 relocation. This is a 32 bit value which must
838 become the offset from the gp register. */
839
840 static bfd_reloc_status_type
mips_elf_gprel32_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message)841 mips_elf_gprel32_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
842 void *data, asection *input_section, bfd *output_bfd,
843 char **error_message)
844 {
845 bfd_boolean relocatable;
846 bfd_reloc_status_type ret;
847 bfd_vma gp;
848
849 if (output_bfd != NULL)
850 relocatable = TRUE;
851 else
852 {
853 relocatable = FALSE;
854 output_bfd = symbol->section->output_section->owner;
855 }
856
857 ret = mips_elf_final_gp (output_bfd, symbol, relocatable,
858 error_message, &gp);
859 if (ret != bfd_reloc_ok)
860 return ret;
861
862 return gprel32_with_gp (abfd, symbol, reloc_entry, input_section,
863 relocatable, data, gp);
864 }
865
866 static bfd_reloc_status_type
gprel32_with_gp(bfd * abfd,asymbol * symbol,arelent * reloc_entry,asection * input_section,bfd_boolean relocatable,void * data,bfd_vma gp)867 gprel32_with_gp (bfd *abfd, asymbol *symbol, arelent *reloc_entry,
868 asection *input_section, bfd_boolean relocatable,
869 void *data, bfd_vma gp)
870 {
871 bfd_vma relocation;
872 bfd_vma val;
873
874 if (bfd_is_com_section (symbol->section))
875 relocation = 0;
876 else
877 relocation = symbol->value;
878
879 relocation += symbol->section->output_section->vma;
880 relocation += symbol->section->output_offset;
881
882 if (reloc_entry->address > input_section->_cooked_size)
883 return bfd_reloc_outofrange;
884
885 /* Set val to the offset into the section or symbol. */
886 val = reloc_entry->addend;
887
888 if (reloc_entry->howto->partial_inplace)
889 val += bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
890
891 /* Adjust val for the final section location and GP value. If we
892 are producing relocatable output, we don't want to do this for
893 an external symbol. */
894 if (! relocatable
895 || (symbol->flags & BSF_SECTION_SYM) != 0)
896 val += relocation - gp;
897
898 if (reloc_entry->howto->partial_inplace)
899 bfd_put_32 (abfd, val, (bfd_byte *) data + reloc_entry->address);
900 else
901 reloc_entry->addend = val;
902
903 if (relocatable)
904 reloc_entry->address += input_section->output_offset;
905
906 return bfd_reloc_ok;
907 }
908
909 /* Handle a 64 bit reloc in a 32 bit MIPS ELF file. These are
910 generated when addresses are 64 bits. The upper 32 bits are a simple
911 sign extension. */
912
913 static bfd_reloc_status_type
mips32_64bit_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol ATTRIBUTE_UNUSED,void * data,asection * input_section,bfd * output_bfd,char ** error_message)914 mips32_64bit_reloc (bfd *abfd, arelent *reloc_entry,
915 asymbol *symbol ATTRIBUTE_UNUSED,
916 void *data, asection *input_section,
917 bfd *output_bfd, char **error_message)
918 {
919 bfd_reloc_status_type r;
920 arelent reloc32;
921 unsigned long val;
922 bfd_size_type addr;
923
924 /* Do a normal 32 bit relocation on the lower 32 bits. */
925 reloc32 = *reloc_entry;
926 if (bfd_big_endian (abfd))
927 reloc32.address += 4;
928 reloc32.howto = &elf_mips_howto_table_rel[R_MIPS_32];
929 r = bfd_perform_relocation (abfd, &reloc32, data, input_section,
930 output_bfd, error_message);
931
932 /* Sign extend into the upper 32 bits. */
933 val = bfd_get_32 (abfd, (bfd_byte *) data + reloc32.address);
934 if ((val & 0x80000000) != 0)
935 val = 0xffffffff;
936 else
937 val = 0;
938 addr = reloc_entry->address;
939 if (bfd_little_endian (abfd))
940 addr += 4;
941 bfd_put_32 (abfd, val, (bfd_byte *) data + addr);
942
943 return r;
944 }
945
946 /* Handle a mips16 jump. */
947
948 static bfd_reloc_status_type
mips16_jump_reloc(bfd * abfd ATTRIBUTE_UNUSED,arelent * reloc_entry,asymbol * symbol,void * data ATTRIBUTE_UNUSED,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)949 mips16_jump_reloc (bfd *abfd ATTRIBUTE_UNUSED, arelent *reloc_entry,
950 asymbol *symbol, void *data ATTRIBUTE_UNUSED,
951 asection *input_section, bfd *output_bfd,
952 char **error_message ATTRIBUTE_UNUSED)
953 {
954 if (output_bfd != NULL
955 && (symbol->flags & BSF_SECTION_SYM) == 0
956 && reloc_entry->addend == 0)
957 {
958 reloc_entry->address += input_section->output_offset;
959 return bfd_reloc_ok;
960 }
961
962 /* FIXME. */
963 {
964 static bfd_boolean warned;
965
966 if (! warned)
967 (*_bfd_error_handler)
968 (_("Linking mips16 objects into %s format is not supported"),
969 bfd_get_target (input_section->output_section->owner));
970 warned = TRUE;
971 }
972
973 return bfd_reloc_undefined;
974 }
975
976 /* Handle a mips16 GP relative reloc. */
977
978 static bfd_reloc_status_type
mips16_gprel_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message)979 mips16_gprel_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
980 void *data, asection *input_section, bfd *output_bfd,
981 char **error_message)
982 {
983 bfd_boolean relocatable;
984 bfd_reloc_status_type ret;
985 bfd_vma gp;
986 unsigned short extend = 0;
987 unsigned short insn = 0;
988 bfd_signed_vma val;
989 bfd_vma relocation;
990
991 /* If we're relocating, and this is an external symbol, we don't want
992 to change anything. */
993 if (output_bfd != NULL
994 && (symbol->flags & BSF_SECTION_SYM) == 0
995 && (symbol->flags & BSF_LOCAL) != 0)
996 {
997 reloc_entry->address += input_section->output_offset;
998 return bfd_reloc_ok;
999 }
1000
1001 if (output_bfd != NULL)
1002 relocatable = TRUE;
1003 else
1004 {
1005 relocatable = FALSE;
1006 output_bfd = symbol->section->output_section->owner;
1007 }
1008
1009 ret = mips_elf_final_gp (output_bfd, symbol, relocatable, error_message,
1010 &gp);
1011 if (ret != bfd_reloc_ok)
1012 return ret;
1013
1014 if (reloc_entry->address > input_section->_cooked_size)
1015 return bfd_reloc_outofrange;
1016
1017 if (bfd_is_com_section (symbol->section))
1018 relocation = 0;
1019 else
1020 relocation = symbol->value;
1021
1022 relocation += symbol->section->output_section->vma;
1023 relocation += symbol->section->output_offset;
1024
1025 /* Set val to the offset into the section or symbol. */
1026 val = reloc_entry->addend;
1027
1028 if (reloc_entry->howto->partial_inplace)
1029 {
1030 /* Pick up the mips16 extend instruction and the real instruction. */
1031 extend = bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
1032 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address + 2);
1033 val += ((extend & 0x1f) << 11) | (extend & 0x7e0) | (insn & 0x1f);
1034 }
1035
1036 _bfd_mips_elf_sign_extend(val, 16);
1037
1038 /* Adjust val for the final section location and GP value. If we
1039 are producing relocatable output, we don't want to do this for
1040 an external symbol. */
1041 if (! relocatable
1042 || (symbol->flags & BSF_SECTION_SYM) != 0)
1043 val += relocation - gp;
1044
1045 if (reloc_entry->howto->partial_inplace)
1046 {
1047 bfd_put_16 (abfd,
1048 (extend & 0xf800) | ((val >> 11) & 0x1f) | (val & 0x7e0),
1049 (bfd_byte *) data + reloc_entry->address);
1050 bfd_put_16 (abfd,
1051 (insn & 0xffe0) | (val & 0x1f),
1052 (bfd_byte *) data + reloc_entry->address + 2);
1053 }
1054 else
1055 reloc_entry->addend = val;
1056
1057 if (relocatable)
1058 reloc_entry->address += input_section->output_offset;
1059 else if (((val & ~0xffff) != ~0xffff) && ((val & ~0xffff) != 0))
1060 return bfd_reloc_overflow;
1061
1062 return bfd_reloc_ok;
1063 }
1064
1065 /* A mapping from BFD reloc types to MIPS ELF reloc types. */
1066
1067 struct elf_reloc_map {
1068 bfd_reloc_code_real_type bfd_val;
1069 enum elf_mips_reloc_type elf_val;
1070 };
1071
1072 static const struct elf_reloc_map mips_reloc_map[] =
1073 {
1074 { BFD_RELOC_NONE, R_MIPS_NONE },
1075 { BFD_RELOC_16, R_MIPS_16 },
1076 { BFD_RELOC_32, R_MIPS_32 },
1077 /* There is no BFD reloc for R_MIPS_REL32. */
1078 { BFD_RELOC_64, R_MIPS_64 },
1079 { BFD_RELOC_MIPS_JMP, R_MIPS_26 },
1080 { BFD_RELOC_HI16_S, R_MIPS_HI16 },
1081 { BFD_RELOC_LO16, R_MIPS_LO16 },
1082 { BFD_RELOC_GPREL16, R_MIPS_GPREL16 },
1083 { BFD_RELOC_MIPS_LITERAL, R_MIPS_LITERAL },
1084 { BFD_RELOC_MIPS_GOT16, R_MIPS_GOT16 },
1085 { BFD_RELOC_16_PCREL, R_MIPS_PC16 },
1086 { BFD_RELOC_MIPS_CALL16, R_MIPS_CALL16 },
1087 { BFD_RELOC_GPREL32, R_MIPS_GPREL32 },
1088 { BFD_RELOC_MIPS_GOT_HI16, R_MIPS_GOT_HI16 },
1089 { BFD_RELOC_MIPS_GOT_LO16, R_MIPS_GOT_LO16 },
1090 { BFD_RELOC_MIPS_CALL_HI16, R_MIPS_CALL_HI16 },
1091 { BFD_RELOC_MIPS_CALL_LO16, R_MIPS_CALL_LO16 },
1092 { BFD_RELOC_MIPS_SUB, R_MIPS_SUB },
1093 { BFD_RELOC_MIPS_GOT_PAGE, R_MIPS_GOT_PAGE },
1094 { BFD_RELOC_MIPS_GOT_OFST, R_MIPS_GOT_OFST },
1095 { BFD_RELOC_MIPS_GOT_DISP, R_MIPS_GOT_DISP }
1096 };
1097
1098 /* Given a BFD reloc type, return a howto structure. */
1099
1100 static reloc_howto_type *
bfd_elf32_bfd_reloc_type_lookup(bfd * abfd,bfd_reloc_code_real_type code)1101 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd, bfd_reloc_code_real_type code)
1102 {
1103 unsigned int i;
1104 reloc_howto_type *howto_table = elf_mips_howto_table_rel;
1105
1106 for (i = 0; i < sizeof (mips_reloc_map) / sizeof (struct elf_reloc_map);
1107 i++)
1108 {
1109 if (mips_reloc_map[i].bfd_val == code)
1110 return &howto_table[(int) mips_reloc_map[i].elf_val];
1111 }
1112
1113 switch (code)
1114 {
1115 default:
1116 bfd_set_error (bfd_error_bad_value);
1117 return NULL;
1118
1119 case BFD_RELOC_CTOR:
1120 /* We need to handle BFD_RELOC_CTOR specially.
1121 Select the right relocation (R_MIPS_32 or R_MIPS_64) based on the
1122 size of addresses of the ABI. */
1123 if ((elf_elfheader (abfd)->e_flags & (E_MIPS_ABI_O64
1124 | E_MIPS_ABI_EABI64)) != 0)
1125 return &elf_mips_ctor64_howto;
1126 else
1127 return &howto_table[(int) R_MIPS_32];
1128
1129 case BFD_RELOC_MIPS16_JMP:
1130 return &elf_mips16_jump_howto;
1131 case BFD_RELOC_MIPS16_GPREL:
1132 return &elf_mips16_gprel_howto;
1133 case BFD_RELOC_VTABLE_INHERIT:
1134 return &elf_mips_gnu_vtinherit_howto;
1135 case BFD_RELOC_VTABLE_ENTRY:
1136 return &elf_mips_gnu_vtentry_howto;
1137 case BFD_RELOC_PCREL_HI16_S:
1138 return &elf_mips_gnu_rel_hi16;
1139 case BFD_RELOC_PCREL_LO16:
1140 return &elf_mips_gnu_rel_lo16;
1141 case BFD_RELOC_16_PCREL_S2:
1142 return &elf_mips_gnu_rel16_s2;
1143 case BFD_RELOC_64_PCREL:
1144 return &elf_mips_gnu_pcrel64;
1145 case BFD_RELOC_32_PCREL:
1146 return &elf_mips_gnu_pcrel32;
1147 }
1148 }
1149
1150 /* Given a MIPS Elf_Internal_Rel, fill in an arelent structure. */
1151
1152 static reloc_howto_type *
mips_elf32_rtype_to_howto(unsigned int r_type,bfd_boolean rela_p ATTRIBUTE_UNUSED)1153 mips_elf32_rtype_to_howto (unsigned int r_type,
1154 bfd_boolean rela_p ATTRIBUTE_UNUSED)
1155 {
1156 switch (r_type)
1157 {
1158 case R_MIPS16_26:
1159 return &elf_mips16_jump_howto;
1160 case R_MIPS16_GPREL:
1161 return &elf_mips16_gprel_howto;
1162 case R_MIPS_GNU_VTINHERIT:
1163 return &elf_mips_gnu_vtinherit_howto;
1164 case R_MIPS_GNU_VTENTRY:
1165 return &elf_mips_gnu_vtentry_howto;
1166 case R_MIPS_GNU_REL_HI16:
1167 return &elf_mips_gnu_rel_hi16;
1168 case R_MIPS_GNU_REL_LO16:
1169 return &elf_mips_gnu_rel_lo16;
1170 case R_MIPS_GNU_REL16_S2:
1171 return &elf_mips_gnu_rel16_s2;
1172 case R_MIPS_PC64:
1173 return &elf_mips_gnu_pcrel64;
1174 case R_MIPS_PC32:
1175 return &elf_mips_gnu_pcrel32;
1176 default:
1177 BFD_ASSERT (r_type < (unsigned int) R_MIPS_max);
1178 return &elf_mips_howto_table_rel[r_type];
1179 }
1180 }
1181
1182 /* Given a MIPS Elf_Internal_Rel, fill in an arelent structure. */
1183
1184 static void
mips_info_to_howto_rel(bfd * abfd,arelent * cache_ptr,Elf_Internal_Rela * dst)1185 mips_info_to_howto_rel (bfd *abfd, arelent *cache_ptr, Elf_Internal_Rela *dst)
1186 {
1187 unsigned int r_type;
1188
1189 r_type = ELF32_R_TYPE (dst->r_info);
1190 cache_ptr->howto = mips_elf32_rtype_to_howto (r_type, FALSE);
1191
1192 /* The addend for a GPREL16 or LITERAL relocation comes from the GP
1193 value for the object file. We get the addend now, rather than
1194 when we do the relocation, because the symbol manipulations done
1195 by the linker may cause us to lose track of the input BFD. */
1196 if (((*cache_ptr->sym_ptr_ptr)->flags & BSF_SECTION_SYM) != 0
1197 && (r_type == (unsigned int) R_MIPS_GPREL16
1198 || r_type == (unsigned int) R_MIPS_LITERAL))
1199 cache_ptr->addend = elf_gp (abfd);
1200 }
1201
1202 /* Given a MIPS Elf_Internal_Rela, fill in an arelent structure. */
1203
1204 static void
mips_info_to_howto_rela(bfd * abfd,arelent * cache_ptr,Elf_Internal_Rela * dst)1205 mips_info_to_howto_rela (bfd *abfd, arelent *cache_ptr, Elf_Internal_Rela *dst)
1206 {
1207 mips_info_to_howto_rel (abfd, cache_ptr, dst);
1208
1209 /* If we ever need to do any extra processing with dst->r_addend
1210 (the field omitted in an Elf_Internal_Rel) we can do it here. */
1211 }
1212
1213 /* Determine whether a symbol is global for the purposes of splitting
1214 the symbol table into global symbols and local symbols. At least
1215 on Irix 5, this split must be between section symbols and all other
1216 symbols. On most ELF targets the split is between static symbols
1217 and externally visible symbols. */
1218
1219 static bfd_boolean
mips_elf_sym_is_global(bfd * abfd ATTRIBUTE_UNUSED,asymbol * sym)1220 mips_elf_sym_is_global (bfd *abfd ATTRIBUTE_UNUSED, asymbol *sym)
1221 {
1222 if (SGI_COMPAT (abfd))
1223 return (sym->flags & BSF_SECTION_SYM) == 0;
1224 else
1225 return ((sym->flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1226 || bfd_is_und_section (bfd_get_section (sym))
1227 || bfd_is_com_section (bfd_get_section (sym)));
1228 }
1229
1230 /* Set the right machine number for a MIPS ELF file. */
1231
1232 static bfd_boolean
mips_elf32_object_p(bfd * abfd)1233 mips_elf32_object_p (bfd *abfd)
1234 {
1235 unsigned long mach;
1236
1237 /* Irix 5 and 6 are broken. Object file symbol tables are not always
1238 sorted correctly such that local symbols precede global symbols,
1239 and the sh_info field in the symbol table is not always right. */
1240 if (SGI_COMPAT (abfd))
1241 elf_bad_symtab (abfd) = TRUE;
1242
1243 if (ABI_N32_P (abfd))
1244 return FALSE;
1245
1246 mach = _bfd_elf_mips_mach (elf_elfheader (abfd)->e_flags);
1247 bfd_default_set_arch_mach (abfd, bfd_arch_mips, mach);
1248
1249 return TRUE;
1250 }
1251
1252 /* MIPS ELF local labels start with '$', not 'L'. */
1253
1254 static bfd_boolean
mips_elf_is_local_label_name(bfd * abfd,const char * name)1255 mips_elf_is_local_label_name (bfd *abfd, const char *name)
1256 {
1257 if (name[0] == '$')
1258 return TRUE;
1259
1260 /* On Irix 6, the labels go back to starting with '.', so we accept
1261 the generic ELF local label syntax as well. */
1262 return _bfd_elf_is_local_label_name (abfd, name);
1263 }
1264
1265 /* Support for core dump NOTE sections. */
1266 static bfd_boolean
elf32_mips_grok_prstatus(bfd * abfd,Elf_Internal_Note * note)1267 elf32_mips_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
1268 {
1269 int offset;
1270 unsigned int raw_size;
1271
1272 switch (note->descsz)
1273 {
1274 default:
1275 return FALSE;
1276
1277 case 256: /* Linux/MIPS */
1278 /* pr_cursig */
1279 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
1280
1281 /* pr_pid */
1282 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
1283
1284 /* pr_reg */
1285 offset = 72;
1286 raw_size = 180;
1287
1288 break;
1289 }
1290
1291 /* Make a ".reg/999" section. */
1292 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1293 raw_size, note->descpos + offset);
1294 }
1295
1296 static bfd_boolean
elf32_mips_grok_psinfo(bfd * abfd,Elf_Internal_Note * note)1297 elf32_mips_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
1298 {
1299 switch (note->descsz)
1300 {
1301 default:
1302 return FALSE;
1303
1304 case 128: /* Linux/MIPS elf_prpsinfo */
1305 elf_tdata (abfd)->core_program
1306 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
1307 elf_tdata (abfd)->core_command
1308 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
1309 }
1310
1311 /* Note that for some reason, a spurious space is tacked
1312 onto the end of the args in some (at least one anyway)
1313 implementations, so strip it off if it exists. */
1314
1315 {
1316 char *command = elf_tdata (abfd)->core_command;
1317 int n = strlen (command);
1318
1319 if (0 < n && command[n - 1] == ' ')
1320 command[n - 1] = '\0';
1321 }
1322
1323 return TRUE;
1324 }
1325
1326 /* Depending on the target vector we generate some version of Irix
1327 executables or "normal" MIPS ELF ABI executables. */
1328 static irix_compat_t
elf32_mips_irix_compat(bfd * abfd)1329 elf32_mips_irix_compat (bfd *abfd)
1330 {
1331 if ((abfd->xvec == &bfd_elf32_bigmips_vec)
1332 || (abfd->xvec == &bfd_elf32_littlemips_vec))
1333 return ict_irix5;
1334 else
1335 return ict_none;
1336 }
1337
1338 /* Given a data section and an in-memory embedded reloc section, store
1339 relocation information into the embedded reloc section which can be
1340 used at runtime to relocate the data section. This is called by the
1341 linker when the --embedded-relocs switch is used. This is called
1342 after the add_symbols entry point has been called for all the
1343 objects, and before the final_link entry point is called. */
1344
1345 bfd_boolean
bfd_mips_elf32_create_embedded_relocs(bfd * abfd,struct bfd_link_info * info,asection * datasec,asection * relsec,char ** errmsg)1346 bfd_mips_elf32_create_embedded_relocs (bfd *abfd, struct bfd_link_info *info,
1347 asection *datasec, asection *relsec,
1348 char **errmsg)
1349 {
1350 Elf_Internal_Shdr *symtab_hdr;
1351 Elf_Internal_Sym *isymbuf = NULL;
1352 Elf_Internal_Rela *internal_relocs = NULL;
1353 Elf_Internal_Rela *irel, *irelend;
1354 bfd_byte *p;
1355
1356 BFD_ASSERT (! info->relocatable);
1357
1358 *errmsg = NULL;
1359
1360 if (datasec->reloc_count == 0)
1361 return TRUE;
1362
1363 /* Read this BFD's symbols if we haven't done so already, or get the cached
1364 copy if it exists. */
1365 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1366 if (symtab_hdr->sh_info != 0)
1367 {
1368 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1369 if (isymbuf == NULL)
1370 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
1371 symtab_hdr->sh_info, 0,
1372 NULL, NULL, NULL);
1373 if (isymbuf == NULL)
1374 goto error_return;
1375 }
1376
1377 /* Get a copy of the native relocations. */
1378 internal_relocs = _bfd_elf_link_read_relocs (abfd, datasec, NULL, NULL,
1379 info->keep_memory);
1380 if (internal_relocs == NULL)
1381 goto error_return;
1382
1383 relsec->contents = bfd_alloc (abfd, datasec->reloc_count * 12);
1384 if (relsec->contents == NULL)
1385 goto error_return;
1386
1387 p = relsec->contents;
1388
1389 irelend = internal_relocs + datasec->reloc_count;
1390
1391 for (irel = internal_relocs; irel < irelend; irel++, p += 12)
1392 {
1393 asection *targetsec;
1394
1395 /* We are going to write a four byte longword into the runtime
1396 reloc section. The longword will be the address in the data
1397 section which must be relocated. It is followed by the name
1398 of the target section NUL-padded or truncated to 8
1399 characters. */
1400
1401 /* We can only relocate absolute longword relocs at run time. */
1402 if ((ELF32_R_TYPE (irel->r_info) != (int) R_MIPS_32) &&
1403 (ELF32_R_TYPE (irel->r_info) != (int) R_MIPS_64))
1404 {
1405 *errmsg = _("unsupported reloc type");
1406 bfd_set_error (bfd_error_bad_value);
1407 goto error_return;
1408 }
1409 /* Get the target section referred to by the reloc. */
1410 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1411 {
1412 Elf_Internal_Sym *isym;
1413
1414 /* A local symbol. */
1415 isym = isymbuf + ELF32_R_SYM (irel->r_info);
1416 targetsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1417 }
1418 else
1419 {
1420 unsigned long indx;
1421 struct elf_link_hash_entry *h;
1422
1423 /* An external symbol. */
1424 indx = ELF32_R_SYM (irel->r_info);
1425 h = elf_sym_hashes (abfd)[indx];
1426 targetsec = NULL;
1427 /*
1428 For some reason, in certain programs, the symbol will
1429 not be in the hash table. It seems to happen when you
1430 declare a static table of pointers to const external structures.
1431 In this case, the relocs are relative to data, not
1432 text, so just treating it like an undefined link
1433 should be sufficient. */
1434 BFD_ASSERT(h != NULL);
1435 if (h->root.type == bfd_link_hash_defined
1436 || h->root.type == bfd_link_hash_defweak)
1437 targetsec = h->root.u.def.section;
1438 }
1439
1440
1441 /*
1442 Set the low bit of the relocation offset if it's a MIPS64 reloc.
1443 Relocations will always be on (at least) 32-bit boundaries. */
1444
1445 bfd_put_32 (abfd, ((irel->r_offset + datasec->output_offset) +
1446 ((ELF32_R_TYPE (irel->r_info) == (int) R_MIPS_64) ? 1 : 0)),
1447 p);
1448 memset (p + 4, 0, 8);
1449 if (targetsec != NULL)
1450 strncpy (p + 4, targetsec->output_section->name, 8);
1451 }
1452
1453 if (internal_relocs != NULL
1454 && elf_section_data (datasec)->relocs != internal_relocs)
1455 free (internal_relocs);
1456 if (isymbuf != NULL
1457 && symtab_hdr->contents != (unsigned char *) isymbuf)
1458 free (isymbuf);
1459 return TRUE;
1460
1461 error_return:
1462 if (internal_relocs != NULL
1463 && elf_section_data (datasec)->relocs != internal_relocs)
1464 free (internal_relocs);
1465 if (isymbuf != NULL
1466 && symtab_hdr->contents != (unsigned char *) isymbuf)
1467 free (isymbuf);
1468 return FALSE;
1469 }
1470
1471 /* ECOFF swapping routines. These are used when dealing with the
1472 .mdebug section, which is in the ECOFF debugging format. */
1473 static const struct ecoff_debug_swap mips_elf32_ecoff_debug_swap = {
1474 /* Symbol table magic number. */
1475 magicSym,
1476 /* Alignment of debugging information. E.g., 4. */
1477 4,
1478 /* Sizes of external symbolic information. */
1479 sizeof (struct hdr_ext),
1480 sizeof (struct dnr_ext),
1481 sizeof (struct pdr_ext),
1482 sizeof (struct sym_ext),
1483 sizeof (struct opt_ext),
1484 sizeof (struct fdr_ext),
1485 sizeof (struct rfd_ext),
1486 sizeof (struct ext_ext),
1487 /* Functions to swap in external symbolic data. */
1488 ecoff_swap_hdr_in,
1489 ecoff_swap_dnr_in,
1490 ecoff_swap_pdr_in,
1491 ecoff_swap_sym_in,
1492 ecoff_swap_opt_in,
1493 ecoff_swap_fdr_in,
1494 ecoff_swap_rfd_in,
1495 ecoff_swap_ext_in,
1496 _bfd_ecoff_swap_tir_in,
1497 _bfd_ecoff_swap_rndx_in,
1498 /* Functions to swap out external symbolic data. */
1499 ecoff_swap_hdr_out,
1500 ecoff_swap_dnr_out,
1501 ecoff_swap_pdr_out,
1502 ecoff_swap_sym_out,
1503 ecoff_swap_opt_out,
1504 ecoff_swap_fdr_out,
1505 ecoff_swap_rfd_out,
1506 ecoff_swap_ext_out,
1507 _bfd_ecoff_swap_tir_out,
1508 _bfd_ecoff_swap_rndx_out,
1509 /* Function to read in symbolic data. */
1510 _bfd_mips_elf_read_ecoff_info
1511 };
1512
1513 #define ELF_ARCH bfd_arch_mips
1514 #define ELF_MACHINE_CODE EM_MIPS
1515
1516 #define elf_backend_collect TRUE
1517 #define elf_backend_type_change_ok TRUE
1518 #define elf_backend_can_gc_sections TRUE
1519 #define elf_info_to_howto mips_info_to_howto_rela
1520 #define elf_info_to_howto_rel mips_info_to_howto_rel
1521 #define elf_backend_sym_is_global mips_elf_sym_is_global
1522 #define elf_backend_object_p mips_elf32_object_p
1523 #define elf_backend_symbol_processing _bfd_mips_elf_symbol_processing
1524 #define elf_backend_section_processing _bfd_mips_elf_section_processing
1525 #define elf_backend_section_from_shdr _bfd_mips_elf_section_from_shdr
1526 #define elf_backend_fake_sections _bfd_mips_elf_fake_sections
1527 #define elf_backend_section_from_bfd_section \
1528 _bfd_mips_elf_section_from_bfd_section
1529 #define elf_backend_add_symbol_hook _bfd_mips_elf_add_symbol_hook
1530 #define elf_backend_link_output_symbol_hook \
1531 _bfd_mips_elf_link_output_symbol_hook
1532 #define elf_backend_create_dynamic_sections \
1533 _bfd_mips_elf_create_dynamic_sections
1534 #define elf_backend_check_relocs _bfd_mips_elf_check_relocs
1535 #define elf_backend_adjust_dynamic_symbol \
1536 _bfd_mips_elf_adjust_dynamic_symbol
1537 #define elf_backend_always_size_sections \
1538 _bfd_mips_elf_always_size_sections
1539 #define elf_backend_size_dynamic_sections \
1540 _bfd_mips_elf_size_dynamic_sections
1541 #define elf_backend_relocate_section _bfd_mips_elf_relocate_section
1542 #define elf_backend_finish_dynamic_symbol \
1543 _bfd_mips_elf_finish_dynamic_symbol
1544 #define elf_backend_finish_dynamic_sections \
1545 _bfd_mips_elf_finish_dynamic_sections
1546 #define elf_backend_final_write_processing \
1547 _bfd_mips_elf_final_write_processing
1548 #define elf_backend_additional_program_headers \
1549 _bfd_mips_elf_additional_program_headers
1550 #define elf_backend_modify_segment_map _bfd_mips_elf_modify_segment_map
1551 #define elf_backend_gc_mark_hook _bfd_mips_elf_gc_mark_hook
1552 #define elf_backend_gc_sweep_hook _bfd_mips_elf_gc_sweep_hook
1553 #define elf_backend_copy_indirect_symbol \
1554 _bfd_mips_elf_copy_indirect_symbol
1555 #define elf_backend_hide_symbol _bfd_mips_elf_hide_symbol
1556 #define elf_backend_grok_prstatus elf32_mips_grok_prstatus
1557 #define elf_backend_grok_psinfo elf32_mips_grok_psinfo
1558 #define elf_backend_ecoff_debug_swap &mips_elf32_ecoff_debug_swap
1559
1560 #define elf_backend_got_header_size (4 * MIPS_RESERVED_GOTNO)
1561 #define elf_backend_may_use_rel_p 1
1562 #define elf_backend_may_use_rela_p 0
1563 #define elf_backend_default_use_rela_p 0
1564 #define elf_backend_sign_extend_vma TRUE
1565
1566 #define elf_backend_discard_info _bfd_mips_elf_discard_info
1567 #define elf_backend_ignore_discarded_relocs \
1568 _bfd_mips_elf_ignore_discarded_relocs
1569 #define elf_backend_mips_irix_compat elf32_mips_irix_compat
1570 #define elf_backend_mips_rtype_to_howto mips_elf32_rtype_to_howto
1571 #define bfd_elf32_bfd_is_local_label_name \
1572 mips_elf_is_local_label_name
1573 #define bfd_elf32_find_nearest_line _bfd_mips_elf_find_nearest_line
1574 #define bfd_elf32_new_section_hook _bfd_mips_elf_new_section_hook
1575 #define bfd_elf32_set_section_contents _bfd_mips_elf_set_section_contents
1576 #define bfd_elf32_bfd_get_relocated_section_contents \
1577 _bfd_elf_mips_get_relocated_section_contents
1578 #define bfd_elf32_bfd_link_hash_table_create \
1579 _bfd_mips_elf_link_hash_table_create
1580 #define bfd_elf32_bfd_final_link _bfd_mips_elf_final_link
1581 #define bfd_elf32_bfd_merge_private_bfd_data \
1582 _bfd_mips_elf_merge_private_bfd_data
1583 #define bfd_elf32_bfd_set_private_flags _bfd_mips_elf_set_private_flags
1584 #define bfd_elf32_bfd_print_private_bfd_data \
1585 _bfd_mips_elf_print_private_bfd_data
1586
1587 /* Support for SGI-ish mips targets. */
1588 #define TARGET_LITTLE_SYM bfd_elf32_littlemips_vec
1589 #define TARGET_LITTLE_NAME "elf32-littlemips"
1590 #define TARGET_BIG_SYM bfd_elf32_bigmips_vec
1591 #define TARGET_BIG_NAME "elf32-bigmips"
1592
1593 /* The SVR4 MIPS ABI says that this should be 0x10000, but Irix 5 uses
1594 a value of 0x1000, and we are compatible. */
1595 #define ELF_MAXPAGESIZE 0x1000
1596
1597 #include "elf32-target.h"
1598
1599 /* Support for traditional mips targets. */
1600 #undef TARGET_LITTLE_SYM
1601 #undef TARGET_LITTLE_NAME
1602 #undef TARGET_BIG_SYM
1603 #undef TARGET_BIG_NAME
1604
1605 #undef ELF_MAXPAGESIZE
1606
1607 #define TARGET_LITTLE_SYM bfd_elf32_tradlittlemips_vec
1608 #define TARGET_LITTLE_NAME "elf32-tradlittlemips"
1609 #define TARGET_BIG_SYM bfd_elf32_tradbigmips_vec
1610 #define TARGET_BIG_NAME "elf32-tradbigmips"
1611
1612 /* The SVR4 MIPS ABI says that this should be 0x10000, and Linux uses
1613 page sizes of up to that limit, so we need to respect it. */
1614 #define ELF_MAXPAGESIZE 0x10000
1615 #define elf32_bed elf32_tradbed
1616
1617 /* Include the target file again for this target. */
1618 #include "elf32-target.h"
1619