]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - bfd/coff-mips.c
projects / thirdparty / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Remove trailing white spaces in bfd
[thirdparty/binutils-gdb.git] / bfd / coff-mips.c
1 /* BFD back-end for MIPS Extended-Coff files.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2011, 2012
4 Free Software Foundation, Inc.
5 Original version by Per Bothner.
6 Full support added by Ian Lance Taylor, ian@cygnus.com.
7
8 This file is part of BFD, the Binary File Descriptor library.
9
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
14
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
19
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23 MA 02110-1301, USA. */
24
25 #include "sysdep.h"
26 #include "bfd.h"
27 #include "bfdlink.h"
28 #include "libbfd.h"
29 #include "coff/internal.h"
30 #include "coff/sym.h"
31 #include "coff/symconst.h"
32 #include "coff/ecoff.h"
33 #include "coff/mips.h"
34 #include "libcoff.h"
35 #include "libecoff.h"
36 \f
37 /* Prototypes for static functions. */
38 static bfd_reloc_status_type
39 mips_generic_reloc
40 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
41 static bfd_reloc_status_type
42 mips_refhi_reloc
43 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
44 static bfd_reloc_status_type
45 mips_reflo_reloc
46 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
47 static bfd_reloc_status_type
48 mips_gprel_reloc
49 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
50
51 \f
52 /* ECOFF has COFF sections, but the debugging information is stored in
53 a completely different format. ECOFF targets use some of the
54 swapping routines from coffswap.h, and some of the generic COFF
55 routines in coffgen.c, but, unlike the real COFF targets, do not
56 use coffcode.h itself.
57
58 Get the generic COFF swapping routines, except for the reloc,
59 symbol, and lineno ones. Give them ECOFF names. */
60 #define MIPSECOFF
61 #define NO_COFF_RELOCS
62 #define NO_COFF_SYMBOLS
63 #define NO_COFF_LINENOS
64 #define coff_swap_filehdr_in mips_ecoff_swap_filehdr_in
65 #define coff_swap_filehdr_out mips_ecoff_swap_filehdr_out
66 #define coff_swap_aouthdr_in mips_ecoff_swap_aouthdr_in
67 #define coff_swap_aouthdr_out mips_ecoff_swap_aouthdr_out
68 #define coff_swap_scnhdr_in mips_ecoff_swap_scnhdr_in
69 #define coff_swap_scnhdr_out mips_ecoff_swap_scnhdr_out
70
71 #include "coffswap.h"
72
73 /* Get the ECOFF swapping routines. */
74 #define ECOFF_32
75 #include "ecoffswap.h"
76 \f
77 /* How to process the various relocs types. */
78
79 static reloc_howto_type mips_howto_table[] =
80 {
81 /* Reloc type 0 is ignored. The reloc reading code ensures that
82 this is a reference to the .abs section, which will cause
83 bfd_perform_relocation to do nothing. */
84 HOWTO (MIPS_R_IGNORE, /* type */
85 0, /* rightshift */
86 0, /* size (0 = byte, 1 = short, 2 = long) */
87 8, /* bitsize */
88 FALSE, /* pc_relative */
89 0, /* bitpos */
90 complain_overflow_dont, /* complain_on_overflow */
91 0, /* special_function */
92 "IGNORE", /* name */
93 FALSE, /* partial_inplace */
94 0, /* src_mask */
95 0, /* dst_mask */
96 FALSE), /* pcrel_offset */
97
98 /* A 16 bit reference to a symbol, normally from a data section. */
99 HOWTO (MIPS_R_REFHALF, /* type */
100 0, /* rightshift */
101 1, /* size (0 = byte, 1 = short, 2 = long) */
102 16, /* bitsize */
103 FALSE, /* pc_relative */
104 0, /* bitpos */
105 complain_overflow_bitfield, /* complain_on_overflow */
106 mips_generic_reloc, /* special_function */
107 "REFHALF", /* name */
108 TRUE, /* partial_inplace */
109 0xffff, /* src_mask */
110 0xffff, /* dst_mask */
111 FALSE), /* pcrel_offset */
112
113 /* A 32 bit reference to a symbol, normally from a data section. */
114 HOWTO (MIPS_R_REFWORD, /* type */
115 0, /* rightshift */
116 2, /* size (0 = byte, 1 = short, 2 = long) */
117 32, /* bitsize */
118 FALSE, /* pc_relative */
119 0, /* bitpos */
120 complain_overflow_bitfield, /* complain_on_overflow */
121 mips_generic_reloc, /* special_function */
122 "REFWORD", /* name */
123 TRUE, /* partial_inplace */
124 0xffffffff, /* src_mask */
125 0xffffffff, /* dst_mask */
126 FALSE), /* pcrel_offset */
127
128 /* A 26 bit absolute jump address. */
129 HOWTO (MIPS_R_JMPADDR, /* type */
130 2, /* rightshift */
131 2, /* size (0 = byte, 1 = short, 2 = long) */
132 26, /* bitsize */
133 FALSE, /* pc_relative */
134 0, /* bitpos */
135 complain_overflow_dont, /* complain_on_overflow */
136 /* This needs complex overflow
137 detection, because the upper four
138 bits must match the PC. */
139 mips_generic_reloc, /* special_function */
140 "JMPADDR", /* name */
141 TRUE, /* partial_inplace */
142 0x3ffffff, /* src_mask */
143 0x3ffffff, /* dst_mask */
144 FALSE), /* pcrel_offset */
145
146 /* The high 16 bits of a symbol value. Handled by the function
147 mips_refhi_reloc. */
148 HOWTO (MIPS_R_REFHI, /* type */
149 16, /* rightshift */
150 2, /* size (0 = byte, 1 = short, 2 = long) */
151 16, /* bitsize */
152 FALSE, /* pc_relative */
153 0, /* bitpos */
154 complain_overflow_bitfield, /* complain_on_overflow */
155 mips_refhi_reloc, /* special_function */
156 "REFHI", /* name */
157 TRUE, /* partial_inplace */
158 0xffff, /* src_mask */
159 0xffff, /* dst_mask */
160 FALSE), /* pcrel_offset */
161
162 /* The low 16 bits of a symbol value. */
163 HOWTO (MIPS_R_REFLO, /* type */
164 0, /* rightshift */
165 2, /* size (0 = byte, 1 = short, 2 = long) */
166 16, /* bitsize */
167 FALSE, /* pc_relative */
168 0, /* bitpos */
169 complain_overflow_dont, /* complain_on_overflow */
170 mips_reflo_reloc, /* special_function */
171 "REFLO", /* name */
172 TRUE, /* partial_inplace */
173 0xffff, /* src_mask */
174 0xffff, /* dst_mask */
175 FALSE), /* pcrel_offset */
176
177 /* A reference to an offset from the gp register. Handled by the
178 function mips_gprel_reloc. */
179 HOWTO (MIPS_R_GPREL, /* type */
180 0, /* rightshift */
181 2, /* size (0 = byte, 1 = short, 2 = long) */
182 16, /* bitsize */
183 FALSE, /* pc_relative */
184 0, /* bitpos */
185 complain_overflow_signed, /* complain_on_overflow */
186 mips_gprel_reloc, /* special_function */
187 "GPREL", /* name */
188 TRUE, /* partial_inplace */
189 0xffff, /* src_mask */
190 0xffff, /* dst_mask */
191 FALSE), /* pcrel_offset */
192
193 /* A reference to a literal using an offset from the gp register.
194 Handled by the function mips_gprel_reloc. */
195 HOWTO (MIPS_R_LITERAL, /* type */
196 0, /* rightshift */
197 2, /* size (0 = byte, 1 = short, 2 = long) */
198 16, /* bitsize */
199 FALSE, /* pc_relative */
200 0, /* bitpos */
201 complain_overflow_signed, /* complain_on_overflow */
202 mips_gprel_reloc, /* special_function */
203 "LITERAL", /* name */
204 TRUE, /* partial_inplace */
205 0xffff, /* src_mask */
206 0xffff, /* dst_mask */
207 FALSE), /* pcrel_offset */
208
209 EMPTY_HOWTO (8),
210 EMPTY_HOWTO (9),
211 EMPTY_HOWTO (10),
212 EMPTY_HOWTO (11),
213
214 /* FIXME: This relocation is used (internally only) to represent branches
215 when assembling. It should never appear in output files, and
216 be removed. (It used to be used for embedded-PIC support.) */
217 HOWTO (MIPS_R_PCREL16, /* type */
218 2, /* rightshift */
219 2, /* size (0 = byte, 1 = short, 2 = long) */
220 16, /* bitsize */
221 TRUE, /* pc_relative */
222 0, /* bitpos */
223 complain_overflow_signed, /* complain_on_overflow */
224 mips_generic_reloc, /* special_function */
225 "PCREL16", /* name */
226 TRUE, /* partial_inplace */
227 0xffff, /* src_mask */
228 0xffff, /* dst_mask */
229 TRUE), /* pcrel_offset */
230 };
231
232 #define MIPS_HOWTO_COUNT \
233 (sizeof mips_howto_table / sizeof mips_howto_table[0])
234 \f
235 /* See whether the magic number matches. */
236
237 static bfd_boolean
238 mips_ecoff_bad_format_hook (bfd * abfd, void * filehdr)
239 {
240 struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
241
242 switch (internal_f->f_magic)
243 {
244 case MIPS_MAGIC_1:
245 /* I don't know what endianness this implies. */
246 return TRUE;
247
248 case MIPS_MAGIC_BIG:
249 case MIPS_MAGIC_BIG2:
250 case MIPS_MAGIC_BIG3:
251 return bfd_big_endian (abfd);
252
253 case MIPS_MAGIC_LITTLE:
254 case MIPS_MAGIC_LITTLE2:
255 case MIPS_MAGIC_LITTLE3:
256 return bfd_little_endian (abfd);
257
258 default:
259 return FALSE;
260 }
261 }
262 \f
263 /* Reloc handling. MIPS ECOFF relocs are packed into 8 bytes in
264 external form. They use a bit which indicates whether the symbol
265 is external. */
266
267 /* Swap a reloc in. */
268
269 static void
270 mips_ecoff_swap_reloc_in (bfd * abfd,
271 void * ext_ptr,
272 struct internal_reloc *intern)
273 {
274 const RELOC *ext = (RELOC *) ext_ptr;
275
276 intern->r_vaddr = H_GET_32 (abfd, ext->r_vaddr);
277 if (bfd_header_big_endian (abfd))
278 {
279 intern->r_symndx = (((int) ext->r_bits[0]
280 << RELOC_BITS0_SYMNDX_SH_LEFT_BIG)
281 | ((int) ext->r_bits[1]
282 << RELOC_BITS1_SYMNDX_SH_LEFT_BIG)
283 | ((int) ext->r_bits[2]
284 << RELOC_BITS2_SYMNDX_SH_LEFT_BIG));
285 intern->r_type = ((ext->r_bits[3] & RELOC_BITS3_TYPE_BIG)
286 >> RELOC_BITS3_TYPE_SH_BIG);
287 intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_BIG) != 0;
288 }
289 else
290 {
291 intern->r_symndx = (((int) ext->r_bits[0]
292 << RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE)
293 | ((int) ext->r_bits[1]
294 << RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE)
295 | ((int) ext->r_bits[2]
296 << RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE));
297 intern->r_type = (((ext->r_bits[3] & RELOC_BITS3_TYPE_LITTLE)
298 >> RELOC_BITS3_TYPE_SH_LITTLE)
299 | ((ext->r_bits[3] & RELOC_BITS3_TYPEHI_LITTLE)
300 << RELOC_BITS3_TYPEHI_SH_LITTLE));
301 intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) != 0;
302 }
303 }
304
305 /* Swap a reloc out. */
306
307 static void
308 mips_ecoff_swap_reloc_out (bfd * abfd,
309 const struct internal_reloc * intern,
310 void * dst)
311 {
312 RELOC *ext = (RELOC *) dst;
313 long r_symndx;
314
315 BFD_ASSERT (intern->r_extern
316 || (intern->r_symndx >= 0 && intern->r_symndx <= 12));
317
318 r_symndx = intern->r_symndx;
319
320 H_PUT_32 (abfd, intern->r_vaddr, ext->r_vaddr);
321 if (bfd_header_big_endian (abfd))
322 {
323 ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_BIG;
324 ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_BIG;
325 ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_BIG;
326 ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_BIG)
327 & RELOC_BITS3_TYPE_BIG)
328 | (intern->r_extern ? RELOC_BITS3_EXTERN_BIG : 0));
329 }
330 else
331 {
332 ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE;
333 ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE;
334 ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE;
335 ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_LITTLE)
336 & RELOC_BITS3_TYPE_LITTLE)
337 | ((intern->r_type >> RELOC_BITS3_TYPEHI_SH_LITTLE
338 & RELOC_BITS3_TYPEHI_LITTLE))
339 | (intern->r_extern ? RELOC_BITS3_EXTERN_LITTLE : 0));
340 }
341 }
342
343 /* Finish canonicalizing a reloc. Part of this is generic to all
344 ECOFF targets, and that part is in ecoff.c. The rest is done in
345 this backend routine. It must fill in the howto field. */
346
347 static void
348 mips_adjust_reloc_in (bfd *abfd,
349 const struct internal_reloc *intern,
350 arelent *rptr)
351 {
352 if (intern->r_type > MIPS_R_PCREL16)
353 abort ();
354
355 if (! intern->r_extern
356 && (intern->r_type == MIPS_R_GPREL
357 || intern->r_type == MIPS_R_LITERAL))
358 rptr->addend += ecoff_data (abfd)->gp;
359
360 /* If the type is MIPS_R_IGNORE, make sure this is a reference to
361 the absolute section so that the reloc is ignored. */
362 if (intern->r_type == MIPS_R_IGNORE)
363 rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
364
365 rptr->howto = &mips_howto_table[intern->r_type];
366 }
367
368 /* Make any adjustments needed to a reloc before writing it out. None
369 are needed for MIPS. */
370
371 static void
372 mips_adjust_reloc_out (bfd *abfd ATTRIBUTE_UNUSED,
373 const arelent *rel ATTRIBUTE_UNUSED,
374 struct internal_reloc *intern ATTRIBUTE_UNUSED)
375 {
376 }
377
378 /* ECOFF relocs are either against external symbols, or against
379 sections. If we are producing relocatable output, and the reloc
380 is against an external symbol, and nothing has given us any
381 additional addend, the resulting reloc will also be against the
382 same symbol. In such a case, we don't want to change anything
383 about the way the reloc is handled, since it will all be done at
384 final link time. Rather than put special case code into
385 bfd_perform_relocation, all the reloc types use this howto
386 function. It just short circuits the reloc if producing
387 relocatable output against an external symbol. */
388
389 static bfd_reloc_status_type
390 mips_generic_reloc (bfd *abfd ATTRIBUTE_UNUSED,
391 arelent *reloc_entry,
392 asymbol *symbol,
393 void * data ATTRIBUTE_UNUSED,
394 asection *input_section,
395 bfd *output_bfd,
396 char **error_message ATTRIBUTE_UNUSED)
397 {
398 if (output_bfd != (bfd *) NULL
399 && (symbol->flags & BSF_SECTION_SYM) == 0
400 && reloc_entry->addend == 0)
401 {
402 reloc_entry->address += input_section->output_offset;
403 return bfd_reloc_ok;
404 }
405
406 return bfd_reloc_continue;
407 }
408
409 /* Do a REFHI relocation. This has to be done in combination with a
410 REFLO reloc, because there is a carry from the REFLO to the REFHI.
411 Here we just save the information we need; we do the actual
412 relocation when we see the REFLO. MIPS ECOFF requires that the
413 REFLO immediately follow the REFHI. As a GNU extension, we permit
414 an arbitrary number of HI relocs to be associated with a single LO
415 reloc. This extension permits gcc to output the HI and LO relocs
416 itself. */
417
418 struct mips_hi
419 {
420 struct mips_hi *next;
421 bfd_byte *addr;
422 bfd_vma addend;
423 };
424
425 /* FIXME: This should not be a static variable. */
426
427 static struct mips_hi *mips_refhi_list;
428
429 static bfd_reloc_status_type
430 mips_refhi_reloc (bfd *abfd ATTRIBUTE_UNUSED,
431 arelent *reloc_entry,
432 asymbol *symbol,
433 void * data,
434 asection *input_section,
435 bfd *output_bfd,
436 char **error_message ATTRIBUTE_UNUSED)
437 {
438 bfd_reloc_status_type ret;
439 bfd_vma relocation;
440 struct mips_hi *n;
441
442 /* If we're relocating, and this an external symbol, we don't want
443 to change anything. */
444 if (output_bfd != (bfd *) NULL
445 && (symbol->flags & BSF_SECTION_SYM) == 0
446 && reloc_entry->addend == 0)
447 {
448 reloc_entry->address += input_section->output_offset;
449 return bfd_reloc_ok;
450 }
451
452 ret = bfd_reloc_ok;
453 if (bfd_is_und_section (symbol->section)
454 && output_bfd == (bfd *) NULL)
455 ret = bfd_reloc_undefined;
456
457 if (bfd_is_com_section (symbol->section))
458 relocation = 0;
459 else
460 relocation = symbol->value;
461
462 relocation += symbol->section->output_section->vma;
463 relocation += symbol->section->output_offset;
464 relocation += reloc_entry->addend;
465
466 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
467 return bfd_reloc_outofrange;
468
469 /* Save the information, and let REFLO do the actual relocation. */
470 n = (struct mips_hi *) bfd_malloc ((bfd_size_type) sizeof *n);
471 if (n == NULL)
472 return bfd_reloc_outofrange;
473 n->addr = (bfd_byte *) data + reloc_entry->address;
474 n->addend = relocation;
475 n->next = mips_refhi_list;
476 mips_refhi_list = n;
477
478 if (output_bfd != (bfd *) NULL)
479 reloc_entry->address += input_section->output_offset;
480
481 return ret;
482 }
483
484 /* Do a REFLO relocation. This is a straightforward 16 bit inplace
485 relocation; this function exists in order to do the REFHI
486 relocation described above. */
487
488 static bfd_reloc_status_type
489 mips_reflo_reloc (bfd *abfd ATTRIBUTE_UNUSED,
490 arelent *reloc_entry,
491 asymbol *symbol,
492 void * data,
493 asection *input_section,
494 bfd *output_bfd,
495 char **error_message ATTRIBUTE_UNUSED)
496 {
497 if (mips_refhi_list != NULL)
498 {
499 struct mips_hi *l;
500
501 l = mips_refhi_list;
502 while (l != NULL)
503 {
504 unsigned long insn;
505 unsigned long val;
506 unsigned long vallo;
507 struct mips_hi *next;
508
509 /* Do the REFHI relocation. Note that we actually don't
510 need to know anything about the REFLO itself, except
511 where to find the low 16 bits of the addend needed by the
512 REFHI. */
513 insn = bfd_get_32 (abfd, l->addr);
514 vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address)
515 & 0xffff);
516 val = ((insn & 0xffff) << 16) + vallo;
517 val += l->addend;
518
519 /* The low order 16 bits are always treated as a signed
520 value. Therefore, a negative value in the low order bits
521 requires an adjustment in the high order bits. We need
522 to make this adjustment in two ways: once for the bits we
523 took from the data, and once for the bits we are putting
524 back in to the data. */
525 if ((vallo & 0x8000) != 0)
526 val -= 0x10000;
527 if ((val & 0x8000) != 0)
528 val += 0x10000;
529
530 insn = (insn &~ (unsigned) 0xffff) | ((val >> 16) & 0xffff);
531 bfd_put_32 (abfd, (bfd_vma) insn, l->addr);
532
533 next = l->next;
534 free (l);
535 l = next;
536 }
537
538 mips_refhi_list = NULL;
539 }
540
541 /* Now do the REFLO reloc in the usual way. */
542 return mips_generic_reloc (abfd, reloc_entry, symbol, data,
543 input_section, output_bfd, error_message);
544 }
545
546 /* Do a GPREL relocation. This is a 16 bit value which must become
547 the offset from the gp register. */
548
549 static bfd_reloc_status_type
550 mips_gprel_reloc (bfd *abfd ATTRIBUTE_UNUSED,
551 arelent *reloc_entry,
552 asymbol *symbol,
553 void * data,
554 asection *input_section,
555 bfd *output_bfd,
556 char **error_message ATTRIBUTE_UNUSED)
557 {
558 bfd_boolean relocatable;
559 bfd_vma gp;
560 bfd_vma relocation;
561 unsigned long val;
562 unsigned long insn;
563
564 /* If we're relocating, and this is an external symbol with no
565 addend, we don't want to change anything. We will only have an
566 addend if this is a newly created reloc, not read from an ECOFF
567 file. */
568 if (output_bfd != (bfd *) NULL
569 && (symbol->flags & BSF_SECTION_SYM) == 0
570 && reloc_entry->addend == 0)
571 {
572 reloc_entry->address += input_section->output_offset;
573 return bfd_reloc_ok;
574 }
575
576 if (output_bfd != (bfd *) NULL)
577 relocatable = TRUE;
578 else
579 {
580 relocatable = FALSE;
581 output_bfd = symbol->section->output_section->owner;
582 }
583
584 if (bfd_is_und_section (symbol->section) && ! relocatable)
585 return bfd_reloc_undefined;
586
587 /* We have to figure out the gp value, so that we can adjust the
588 symbol value correctly. We look up the symbol _gp in the output
589 BFD. If we can't find it, we're stuck. We cache it in the ECOFF
590 target data. We don't need to adjust the symbol value for an
591 external symbol if we are producing relocatable output. */
592 gp = _bfd_get_gp_value (output_bfd);
593 if (gp == 0
594 && (! relocatable
595 || (symbol->flags & BSF_SECTION_SYM) != 0))
596 {
597 if (relocatable)
598 {
599 /* Make up a value. */
600 gp = symbol->section->output_section->vma + 0x4000;
601 _bfd_set_gp_value (output_bfd, gp);
602 }
603 else
604 {
605 unsigned int count;
606 asymbol **sym;
607 unsigned int i;
608
609 count = bfd_get_symcount (output_bfd);
610 sym = bfd_get_outsymbols (output_bfd);
611
612 if (sym == (asymbol **) NULL)
613 i = count;
614 else
615 {
616 for (i = 0; i < count; i++, sym++)
617 {
618 register const char *name;
619
620 name = bfd_asymbol_name (*sym);
621 if (*name == '_' && strcmp (name, "_gp") == 0)
622 {
623 gp = bfd_asymbol_value (*sym);
624 _bfd_set_gp_value (output_bfd, gp);
625 break;
626 }
627 }
628 }
629
630 if (i >= count)
631 {
632 /* Only get the error once. */
633 gp = 4;
634 _bfd_set_gp_value (output_bfd, gp);
635 *error_message =
636 (char *) _("GP relative relocation when _gp not defined");
637 return bfd_reloc_dangerous;
638 }
639 }
640 }
641
642 if (bfd_is_com_section (symbol->section))
643 relocation = 0;
644 else
645 relocation = symbol->value;
646
647 relocation += symbol->section->output_section->vma;
648 relocation += symbol->section->output_offset;
649
650 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
651 return bfd_reloc_outofrange;
652
653 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
654
655 /* Set val to the offset into the section or symbol. */
656 val = ((insn & 0xffff) + reloc_entry->addend) & 0xffff;
657 if (val & 0x8000)
658 val -= 0x10000;
659
660 /* Adjust val for the final section location and GP value. If we
661 are producing relocatable output, we don't want to do this for
662 an external symbol. */
663 if (! relocatable
664 || (symbol->flags & BSF_SECTION_SYM) != 0)
665 val += relocation - gp;
666
667 insn = (insn &~ (unsigned) 0xffff) | (val & 0xffff);
668 bfd_put_32 (abfd, (bfd_vma) insn, (bfd_byte *) data + reloc_entry->address);
669
670 if (relocatable)
671 reloc_entry->address += input_section->output_offset;
672
673 /* Make sure it fit in 16 bits. */
674 if ((long) val >= 0x8000 || (long) val < -0x8000)
675 return bfd_reloc_overflow;
676
677 return bfd_reloc_ok;
678 }
679
680 /* Get the howto structure for a generic reloc type. */
681
682 static reloc_howto_type *
683 mips_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
684 bfd_reloc_code_real_type code)
685 {
686 int mips_type;
687
688 switch (code)
689 {
690 case BFD_RELOC_16:
691 mips_type = MIPS_R_REFHALF;
692 break;
693 case BFD_RELOC_32:
694 case BFD_RELOC_CTOR:
695 mips_type = MIPS_R_REFWORD;
696 break;
697 case BFD_RELOC_MIPS_JMP:
698 mips_type = MIPS_R_JMPADDR;
699 break;
700 case BFD_RELOC_HI16_S:
701 mips_type = MIPS_R_REFHI;
702 break;
703 case BFD_RELOC_LO16:
704 mips_type = MIPS_R_REFLO;
705 break;
706 case BFD_RELOC_GPREL16:
707 mips_type = MIPS_R_GPREL;
708 break;
709 case BFD_RELOC_MIPS_LITERAL:
710 mips_type = MIPS_R_LITERAL;
711 break;
712 case BFD_RELOC_16_PCREL_S2:
713 mips_type = MIPS_R_PCREL16;
714 break;
715 default:
716 return (reloc_howto_type *) NULL;
717 }
718
719 return &mips_howto_table[mips_type];
720 }
721
722 static reloc_howto_type *
723 mips_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
724 const char *r_name)
725 {
726 unsigned int i;
727
728 for (i = 0;
729 i < sizeof (mips_howto_table) / sizeof (mips_howto_table[0]);
730 i++)
731 if (mips_howto_table[i].name != NULL
732 && strcasecmp (mips_howto_table[i].name, r_name) == 0)
733 return &mips_howto_table[i];
734
735 return NULL;
736 }
737 \f
738 /* A helper routine for mips_relocate_section which handles the REFHI
739 relocations. The REFHI relocation must be followed by a REFLO
740 relocation, and the addend used is formed from the addends of both
741 instructions. */
742
743 static void
744 mips_relocate_hi (struct internal_reloc *refhi,
745 struct internal_reloc *reflo,
746 bfd *input_bfd,
747 asection *input_section,
748 bfd_byte *contents,
749 bfd_vma relocation)
750 {
751 unsigned long insn;
752 unsigned long val;
753 unsigned long vallo;
754
755 if (refhi == NULL)
756 return;
757
758 insn = bfd_get_32 (input_bfd,
759 contents + refhi->r_vaddr - input_section->vma);
760 if (reflo == NULL)
761 vallo = 0;
762 else
763 vallo = (bfd_get_32 (input_bfd,
764 contents + reflo->r_vaddr - input_section->vma)
765 & 0xffff);
766
767 val = ((insn & 0xffff) << 16) + vallo;
768 val += relocation;
769
770 /* The low order 16 bits are always treated as a signed value.
771 Therefore, a negative value in the low order bits requires an
772 adjustment in the high order bits. We need to make this
773 adjustment in two ways: once for the bits we took from the data,
774 and once for the bits we are putting back in to the data. */
775 if ((vallo & 0x8000) != 0)
776 val -= 0x10000;
777
778 if ((val & 0x8000) != 0)
779 val += 0x10000;
780
781 insn = (insn &~ (unsigned) 0xffff) | ((val >> 16) & 0xffff);
782 bfd_put_32 (input_bfd, (bfd_vma) insn,
783 contents + refhi->r_vaddr - input_section->vma);
784 }
785
786 /* Relocate a section while linking a MIPS ECOFF file. */
787
788 static bfd_boolean
789 mips_relocate_section (bfd *output_bfd,
790 struct bfd_link_info *info,
791 bfd *input_bfd,
792 asection *input_section,
793 bfd_byte *contents,
794 void * external_relocs)
795 {
796 asection **symndx_to_section;
797 struct ecoff_link_hash_entry **sym_hashes;
798 bfd_vma gp;
799 bfd_boolean gp_undefined;
800 struct external_reloc *ext_rel;
801 struct external_reloc *ext_rel_end;
802 unsigned int i;
803 bfd_boolean got_lo;
804 struct internal_reloc lo_int_rel;
805 bfd_size_type amt;
806
807 BFD_ASSERT (input_bfd->xvec->byteorder
808 == output_bfd->xvec->byteorder);
809
810 /* We keep a table mapping the symndx found in an internal reloc to
811 the appropriate section. This is faster than looking up the
812 section by name each time. */
813 symndx_to_section = ecoff_data (input_bfd)->symndx_to_section;
814 if (symndx_to_section == (asection **) NULL)
815 {
816 amt = NUM_RELOC_SECTIONS * sizeof (asection *);
817 symndx_to_section = (asection **) bfd_alloc (input_bfd, amt);
818 if (!symndx_to_section)
819 return FALSE;
820
821 symndx_to_section[RELOC_SECTION_NONE] = NULL;
822 symndx_to_section[RELOC_SECTION_TEXT] =
823 bfd_get_section_by_name (input_bfd, ".text");
824 symndx_to_section[RELOC_SECTION_RDATA] =
825 bfd_get_section_by_name (input_bfd, ".rdata");
826 symndx_to_section[RELOC_SECTION_DATA] =
827 bfd_get_section_by_name (input_bfd, ".data");
828 symndx_to_section[RELOC_SECTION_SDATA] =
829 bfd_get_section_by_name (input_bfd, ".sdata");
830 symndx_to_section[RELOC_SECTION_SBSS] =
831 bfd_get_section_by_name (input_bfd, ".sbss");
832 symndx_to_section[RELOC_SECTION_BSS] =
833 bfd_get_section_by_name (input_bfd, ".bss");
834 symndx_to_section[RELOC_SECTION_INIT] =
835 bfd_get_section_by_name (input_bfd, ".init");
836 symndx_to_section[RELOC_SECTION_LIT8] =
837 bfd_get_section_by_name (input_bfd, ".lit8");
838 symndx_to_section[RELOC_SECTION_LIT4] =
839 bfd_get_section_by_name (input_bfd, ".lit4");
840 symndx_to_section[RELOC_SECTION_XDATA] = NULL;
841 symndx_to_section[RELOC_SECTION_PDATA] = NULL;
842 symndx_to_section[RELOC_SECTION_FINI] =
843 bfd_get_section_by_name (input_bfd, ".fini");
844 symndx_to_section[RELOC_SECTION_LITA] = NULL;
845 symndx_to_section[RELOC_SECTION_ABS] = NULL;
846
847 ecoff_data (input_bfd)->symndx_to_section = symndx_to_section;
848 }
849
850 sym_hashes = ecoff_data (input_bfd)->sym_hashes;
851
852 gp = _bfd_get_gp_value (output_bfd);
853 if (gp == 0)
854 gp_undefined = TRUE;
855 else
856 gp_undefined = FALSE;
857
858 got_lo = FALSE;
859
860 ext_rel = (struct external_reloc *) external_relocs;
861 ext_rel_end = ext_rel + input_section->reloc_count;
862 for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++)
863 {
864 struct internal_reloc int_rel;
865 bfd_boolean use_lo = FALSE;
866 bfd_vma addend;
867 reloc_howto_type *howto;
868 struct ecoff_link_hash_entry *h = NULL;
869 asection *s = NULL;
870 bfd_vma relocation;
871 bfd_reloc_status_type r;
872
873 if (! got_lo)
874 mips_ecoff_swap_reloc_in (input_bfd, ext_rel, &int_rel);
875 else
876 {
877 int_rel = lo_int_rel;
878 got_lo = FALSE;
879 }
880
881 BFD_ASSERT (int_rel.r_type
882 < sizeof mips_howto_table / sizeof mips_howto_table[0]);
883
884 /* The REFHI reloc requires special handling. It must be followed
885 by a REFLO reloc, and the addend is formed from both relocs. */
886 if (int_rel.r_type == MIPS_R_REFHI)
887 {
888 struct external_reloc *lo_ext_rel;
889
890 /* As a GNU extension, permit an arbitrary number of REFHI
891 relocs before the REFLO reloc. This permits gcc to emit
892 the HI and LO relocs itself. */
893 for (lo_ext_rel = ext_rel + 1;
894 lo_ext_rel < ext_rel_end;
895 lo_ext_rel++)
896 {
897 mips_ecoff_swap_reloc_in (input_bfd, lo_ext_rel,
898 &lo_int_rel);
899 if (lo_int_rel.r_type != int_rel.r_type)
900 break;
901 }
902
903 if (lo_ext_rel < ext_rel_end
904 && lo_int_rel.r_type == MIPS_R_REFLO
905 && int_rel.r_extern == lo_int_rel.r_extern
906 && int_rel.r_symndx == lo_int_rel.r_symndx)
907 {
908 use_lo = TRUE;
909 if (lo_ext_rel == ext_rel + 1)
910 got_lo = TRUE;
911 }
912 }
913
914 howto = &mips_howto_table[int_rel.r_type];
915
916 if (int_rel.r_extern)
917 {
918 h = sym_hashes[int_rel.r_symndx];
919 /* If h is NULL, that means that there is a reloc against an
920 external symbol which we thought was just a debugging
921 symbol. This should not happen. */
922 if (h == (struct ecoff_link_hash_entry *) NULL)
923 abort ();
924 }
925 else
926 {
927 if (int_rel.r_symndx < 0 || int_rel.r_symndx >= NUM_RELOC_SECTIONS)
928 s = NULL;
929 else
930 s = symndx_to_section[int_rel.r_symndx];
931
932 if (s == (asection *) NULL)
933 abort ();
934 }
935
936 /* The GPREL reloc uses an addend: the difference in the GP
937 values. */
938 if (int_rel.r_type != MIPS_R_GPREL
939 && int_rel.r_type != MIPS_R_LITERAL)
940 addend = 0;
941 else
942 {
943 if (gp_undefined)
944 {
945 if (! ((*info->callbacks->reloc_dangerous)
946 (info, _("GP relative relocation used when GP not defined"),
947 input_bfd, input_section,
948 int_rel.r_vaddr - input_section->vma)))
949 return FALSE;
950 /* Only give the error once per link. */
951 gp = 4;
952 _bfd_set_gp_value (output_bfd, gp);
953 gp_undefined = FALSE;
954 }
955 if (! int_rel.r_extern)
956 {
957 /* This is a relocation against a section. The current
958 addend in the instruction is the difference between
959 INPUT_SECTION->vma and the GP value of INPUT_BFD. We
960 must change this to be the difference between the
961 final definition (which will end up in RELOCATION)
962 and the GP value of OUTPUT_BFD (which is in GP). */
963 addend = ecoff_data (input_bfd)->gp - gp;
964 }
965 else if (! info->relocatable
966 || h->root.type == bfd_link_hash_defined
967 || h->root.type == bfd_link_hash_defweak)
968 {
969 /* This is a relocation against a defined symbol. The
970 current addend in the instruction is simply the
971 desired offset into the symbol (normally zero). We
972 are going to change this into a relocation against a
973 defined symbol, so we want the instruction to hold
974 the difference between the final definition of the
975 symbol (which will end up in RELOCATION) and the GP
976 value of OUTPUT_BFD (which is in GP). */
977 addend = - gp;
978 }
979 else
980 {
981 /* This is a relocation against an undefined or common
982 symbol. The current addend in the instruction is
983 simply the desired offset into the symbol (normally
984 zero). We are generating relocatable output, and we
985 aren't going to define this symbol, so we just leave
986 the instruction alone. */
987 addend = 0;
988 }
989 }
990
991 if (info->relocatable)
992 {
993 /* We are generating relocatable output, and must convert
994 the existing reloc. */
995 if (int_rel.r_extern)
996 {
997 if ((h->root.type == bfd_link_hash_defined
998 || h->root.type == bfd_link_hash_defweak)
999 && ! bfd_is_abs_section (h->root.u.def.section))
1000 {
1001 const char *name;
1002
1003 /* This symbol is defined in the output. Convert
1004 the reloc from being against the symbol to being
1005 against the section. */
1006
1007 /* Clear the r_extern bit. */
1008 int_rel.r_extern = 0;
1009
1010 /* Compute a new r_symndx value. */
1011 s = h->root.u.def.section;
1012 name = bfd_get_section_name (output_bfd,
1013 s->output_section);
1014
1015 int_rel.r_symndx = -1;
1016 switch (name[1])
1017 {
1018 case 'b':
1019 if (strcmp (name, ".bss") == 0)
1020 int_rel.r_symndx = RELOC_SECTION_BSS;
1021 break;
1022 case 'd':
1023 if (strcmp (name, ".data") == 0)
1024 int_rel.r_symndx = RELOC_SECTION_DATA;
1025 break;
1026 case 'f':
1027 if (strcmp (name, ".fini") == 0)
1028 int_rel.r_symndx = RELOC_SECTION_FINI;
1029 break;
1030 case 'i':
1031 if (strcmp (name, ".init") == 0)
1032 int_rel.r_symndx = RELOC_SECTION_INIT;
1033 break;
1034 case 'l':
1035 if (strcmp (name, ".lit8") == 0)
1036 int_rel.r_symndx = RELOC_SECTION_LIT8;
1037 else if (strcmp (name, ".lit4") == 0)
1038 int_rel.r_symndx = RELOC_SECTION_LIT4;
1039 break;
1040 case 'r':
1041 if (strcmp (name, ".rdata") == 0)
1042 int_rel.r_symndx = RELOC_SECTION_RDATA;
1043 break;
1044 case 's':
1045 if (strcmp (name, ".sdata") == 0)
1046 int_rel.r_symndx = RELOC_SECTION_SDATA;
1047 else if (strcmp (name, ".sbss") == 0)
1048 int_rel.r_symndx = RELOC_SECTION_SBSS;
1049 break;
1050 case 't':
1051 if (strcmp (name, ".text") == 0)
1052 int_rel.r_symndx = RELOC_SECTION_TEXT;
1053 break;
1054 }
1055
1056 if (int_rel.r_symndx == -1)
1057 abort ();
1058
1059 /* Add the section VMA and the symbol value. */
1060 relocation = (h->root.u.def.value
1061 + s->output_section->vma
1062 + s->output_offset);
1063
1064 /* For a PC relative relocation, the object file
1065 currently holds just the addend. We must adjust
1066 by the address to get the right value. */
1067 if (howto->pc_relative)
1068 relocation -= int_rel.r_vaddr - input_section->vma;
1069
1070 h = NULL;
1071 }
1072 else
1073 {
1074 /* Change the symndx value to the right one for the
1075 output BFD. */
1076 int_rel.r_symndx = h->indx;
1077 if (int_rel.r_symndx == -1)
1078 {
1079 /* This symbol is not being written out. */
1080 if (! ((*info->callbacks->unattached_reloc)
1081 (info, h->root.root.string, input_bfd,
1082 input_section,
1083 int_rel.r_vaddr - input_section->vma)))
1084 return FALSE;
1085 int_rel.r_symndx = 0;
1086 }
1087 relocation = 0;
1088 }
1089 }
1090 else
1091 {
1092 /* This is a relocation against a section. Adjust the
1093 value by the amount the section moved. */
1094 relocation = (s->output_section->vma
1095 + s->output_offset
1096 - s->vma);
1097 }
1098
1099 relocation += addend;
1100 addend = 0;
1101
1102 /* Adjust a PC relative relocation by removing the reference
1103 to the original address in the section and including the
1104 reference to the new address. */
1105 if (howto->pc_relative)
1106 relocation -= (input_section->output_section->vma
1107 + input_section->output_offset
1108 - input_section->vma);
1109
1110 /* Adjust the contents. */
1111 if (relocation == 0)
1112 r = bfd_reloc_ok;
1113 else
1114 {
1115 if (int_rel.r_type != MIPS_R_REFHI)
1116 r = _bfd_relocate_contents (howto, input_bfd, relocation,
1117 (contents
1118 + int_rel.r_vaddr
1119 - input_section->vma));
1120 else
1121 {
1122 mips_relocate_hi (&int_rel,
1123 use_lo ? &lo_int_rel : NULL,
1124 input_bfd, input_section, contents,
1125 relocation);
1126 r = bfd_reloc_ok;
1127 }
1128 }
1129
1130 /* Adjust the reloc address. */
1131 int_rel.r_vaddr += (input_section->output_section->vma
1132 + input_section->output_offset
1133 - input_section->vma);
1134
1135 /* Save the changed reloc information. */
1136 mips_ecoff_swap_reloc_out (input_bfd, &int_rel, ext_rel);
1137 }
1138 else
1139 {
1140 /* We are producing a final executable. */
1141 if (int_rel.r_extern)
1142 {
1143 /* This is a reloc against a symbol. */
1144 if (h->root.type == bfd_link_hash_defined
1145 || h->root.type == bfd_link_hash_defweak)
1146 {
1147 asection *hsec;
1148
1149 hsec = h->root.u.def.section;
1150 relocation = (h->root.u.def.value
1151 + hsec->output_section->vma
1152 + hsec->output_offset);
1153 }
1154 else
1155 {
1156 if (! ((*info->callbacks->undefined_symbol)
1157 (info, h->root.root.string, input_bfd,
1158 input_section,
1159 int_rel.r_vaddr - input_section->vma, TRUE)))
1160 return FALSE;
1161 relocation = 0;
1162 }
1163 }
1164 else
1165 {
1166 /* This is a reloc against a section. */
1167 relocation = (s->output_section->vma
1168 + s->output_offset
1169 - s->vma);
1170
1171 /* A PC relative reloc is already correct in the object
1172 file. Make it look like a pcrel_offset relocation by
1173 adding in the start address. */
1174 if (howto->pc_relative)
1175 relocation += int_rel.r_vaddr;
1176 }
1177
1178 if (int_rel.r_type != MIPS_R_REFHI)
1179 r = _bfd_final_link_relocate (howto,
1180 input_bfd,
1181 input_section,
1182 contents,
1183 (int_rel.r_vaddr
1184 - input_section->vma),
1185 relocation,
1186 addend);
1187 else
1188 {
1189 mips_relocate_hi (&int_rel,
1190 use_lo ? &lo_int_rel : NULL,
1191 input_bfd, input_section, contents,
1192 relocation);
1193 r = bfd_reloc_ok;
1194 }
1195 }
1196
1197 /* MIPS_R_JMPADDR requires peculiar overflow detection. The
1198 instruction provides a 28 bit address (the two lower bits are
1199 implicit zeroes) which is combined with the upper four bits
1200 of the instruction address. */
1201 if (r == bfd_reloc_ok
1202 && int_rel.r_type == MIPS_R_JMPADDR
1203 && (((relocation
1204 + addend
1205 + (int_rel.r_extern ? 0 : s->vma))
1206 & 0xf0000000)
1207 != ((input_section->output_section->vma
1208 + input_section->output_offset
1209 + (int_rel.r_vaddr - input_section->vma))
1210 & 0xf0000000)))
1211 r = bfd_reloc_overflow;
1212
1213 if (r != bfd_reloc_ok)
1214 {
1215 switch (r)
1216 {
1217 default:
1218 case bfd_reloc_outofrange:
1219 abort ();
1220 case bfd_reloc_overflow:
1221 {
1222 const char *name;
1223
1224 if (int_rel.r_extern)
1225 name = NULL;
1226 else
1227 name = bfd_section_name (input_bfd, s);
1228 if (! ((*info->callbacks->reloc_overflow)
1229 (info, (h ? &h->root : NULL), name, howto->name,
1230 (bfd_vma) 0, input_bfd, input_section,
1231 int_rel.r_vaddr - input_section->vma)))
1232 return FALSE;
1233 }
1234 break;
1235 }
1236 }
1237 }
1238
1239 return TRUE;
1240 }
1241 \f
1242 /* This is the ECOFF backend structure. The backend field of the
1243 target vector points to this. */
1244
1245 static const struct ecoff_backend_data mips_ecoff_backend_data =
1246 {
1247 /* COFF backend structure. */
1248 {
1249 (void (*) (bfd *,void *,int,int,int,int,void *)) bfd_void, /* aux_in */
1250 (void (*) (bfd *,void *,void *)) bfd_void, /* sym_in */
1251 (void (*) (bfd *,void *,void *)) bfd_void, /* lineno_in */
1252 (unsigned (*) (bfd *,void *,int,int,int,int,void *)) bfd_void,/*aux_out*/
1253 (unsigned (*) (bfd *,void *,void *)) bfd_void, /* sym_out */
1254 (unsigned (*) (bfd *,void *,void *)) bfd_void, /* lineno_out */
1255 (unsigned (*) (bfd *,void *,void *)) bfd_void, /* reloc_out */
1256 mips_ecoff_swap_filehdr_out, mips_ecoff_swap_aouthdr_out,
1257 mips_ecoff_swap_scnhdr_out,
1258 FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, 0, FILNMLEN, TRUE,
1259 ECOFF_NO_LONG_SECTION_NAMES, 4, FALSE, 2,
1260 mips_ecoff_swap_filehdr_in, mips_ecoff_swap_aouthdr_in,
1261 mips_ecoff_swap_scnhdr_in, NULL,
1262 mips_ecoff_bad_format_hook, _bfd_ecoff_set_arch_mach_hook,
1263 _bfd_ecoff_mkobject_hook, _bfd_ecoff_styp_to_sec_flags,
1264 _bfd_ecoff_set_alignment_hook, _bfd_ecoff_slurp_symbol_table,
1265 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
1266 NULL, NULL, NULL
1267 },
1268 /* Supported architecture. */
1269 bfd_arch_mips,
1270 /* Initial portion of armap string. */
1271 "__________",
1272 /* The page boundary used to align sections in a demand-paged
1273 executable file. E.g., 0x1000. */
1274 0x1000,
1275 /* TRUE if the .rdata section is part of the text segment, as on the
1276 Alpha. FALSE if .rdata is part of the data segment, as on the
1277 MIPS. */
1278 FALSE,
1279 /* Bitsize of constructor entries. */
1280 32,
1281 /* Reloc to use for constructor entries. */
1282 &mips_howto_table[MIPS_R_REFWORD],
1283 {
1284 /* Symbol table magic number. */
1285 magicSym,
1286 /* Alignment of debugging information. E.g., 4. */
1287 4,
1288 /* Sizes of external symbolic information. */
1289 sizeof (struct hdr_ext),
1290 sizeof (struct dnr_ext),
1291 sizeof (struct pdr_ext),
1292 sizeof (struct sym_ext),
1293 sizeof (struct opt_ext),
1294 sizeof (struct fdr_ext),
1295 sizeof (struct rfd_ext),
1296 sizeof (struct ext_ext),
1297 /* Functions to swap in external symbolic data. */
1298 ecoff_swap_hdr_in,
1299 ecoff_swap_dnr_in,
1300 ecoff_swap_pdr_in,
1301 ecoff_swap_sym_in,
1302 ecoff_swap_opt_in,
1303 ecoff_swap_fdr_in,
1304 ecoff_swap_rfd_in,
1305 ecoff_swap_ext_in,
1306 _bfd_ecoff_swap_tir_in,
1307 _bfd_ecoff_swap_rndx_in,
1308 /* Functions to swap out external symbolic data. */
1309 ecoff_swap_hdr_out,
1310 ecoff_swap_dnr_out,
1311 ecoff_swap_pdr_out,
1312 ecoff_swap_sym_out,
1313 ecoff_swap_opt_out,
1314 ecoff_swap_fdr_out,
1315 ecoff_swap_rfd_out,
1316 ecoff_swap_ext_out,
1317 _bfd_ecoff_swap_tir_out,
1318 _bfd_ecoff_swap_rndx_out,
1319 /* Function to read in symbolic data. */
1320 _bfd_ecoff_slurp_symbolic_info
1321 },
1322 /* External reloc size. */
1323 RELSZ,
1324 /* Reloc swapping functions. */
1325 mips_ecoff_swap_reloc_in,
1326 mips_ecoff_swap_reloc_out,
1327 /* Backend reloc tweaking. */
1328 mips_adjust_reloc_in,
1329 mips_adjust_reloc_out,
1330 /* Relocate section contents while linking. */
1331 mips_relocate_section,
1332 /* Do final adjustments to filehdr and aouthdr. */
1333 NULL,
1334 /* Read an element from an archive at a given file position. */
1335 _bfd_get_elt_at_filepos
1336 };
1337
1338 /* Looking up a reloc type is MIPS specific. */
1339 #define _bfd_ecoff_bfd_reloc_type_lookup mips_bfd_reloc_type_lookup
1340 #define _bfd_ecoff_bfd_reloc_name_lookup mips_bfd_reloc_name_lookup
1341
1342 /* Getting relocated section contents is generic. */
1343 #define _bfd_ecoff_bfd_get_relocated_section_contents \
1344 bfd_generic_get_relocated_section_contents
1345
1346 /* Handling file windows is generic. */
1347 #define _bfd_ecoff_get_section_contents_in_window \
1348 _bfd_generic_get_section_contents_in_window
1349
1350 /* Relaxing sections is MIPS specific. */
1351 #define _bfd_ecoff_bfd_relax_section bfd_generic_relax_section
1352
1353 /* GC of sections is not done. */
1354 #define _bfd_ecoff_bfd_gc_sections bfd_generic_gc_sections
1355
1356 /* Input section flags is not implemented. */
1357 #define _bfd_ecoff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
1358
1359 /* Merging of sections is not done. */
1360 #define _bfd_ecoff_bfd_merge_sections bfd_generic_merge_sections
1361
1362 #define _bfd_ecoff_bfd_is_group_section bfd_generic_is_group_section
1363 #define _bfd_ecoff_bfd_discard_group bfd_generic_discard_group
1364 #define _bfd_ecoff_section_already_linked \
1365 _bfd_coff_section_already_linked
1366 #define _bfd_ecoff_bfd_define_common_symbol bfd_generic_define_common_symbol
1367
1368 extern const bfd_target ecoff_big_vec;
1369
1370 const bfd_target ecoff_little_vec =
1371 {
1372 "ecoff-littlemips", /* name */
1373 bfd_target_ecoff_flavour,
1374 BFD_ENDIAN_LITTLE, /* data byte order is little */
1375 BFD_ENDIAN_LITTLE, /* header byte order is little */
1376
1377 (HAS_RELOC | EXEC_P | /* object flags */
1378 HAS_LINENO | HAS_DEBUG |
1379 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1380
1381 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
1382 0, /* leading underscore */
1383 ' ', /* ar_pad_char */
1384 15, /* ar_max_namelen */
1385 0, /* match priority. */
1386 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
1387 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
1388 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
1389 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
1390 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
1391 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
1392
1393 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
1394 bfd_generic_archive_p, _bfd_dummy_target},
1395 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
1396 _bfd_generic_mkarchive, bfd_false},
1397 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
1398 _bfd_write_archive_contents, bfd_false},
1399
1400 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
1401 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
1402 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1403 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
1404 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
1405 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
1406 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
1407 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
1408 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1409
1410 & ecoff_big_vec,
1411
1412 & mips_ecoff_backend_data
1413 };
1414
1415 const bfd_target ecoff_big_vec =
1416 {
1417 "ecoff-bigmips", /* name */
1418 bfd_target_ecoff_flavour,
1419 BFD_ENDIAN_BIG, /* data byte order is big */
1420 BFD_ENDIAN_BIG, /* header byte order is big */
1421
1422 (HAS_RELOC | EXEC_P | /* object flags */
1423 HAS_LINENO | HAS_DEBUG |
1424 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1425
1426 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
1427 0, /* leading underscore */
1428 ' ', /* ar_pad_char */
1429 15, /* ar_max_namelen */
1430 0, /* match priority. */
1431 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1432 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1433 bfd_getb16, bfd_getb_signed_16, bfd_putb16,
1434 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1435 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1436 bfd_getb16, bfd_getb_signed_16, bfd_putb16,
1437 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
1438 bfd_generic_archive_p, _bfd_dummy_target},
1439 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
1440 _bfd_generic_mkarchive, bfd_false},
1441 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
1442 _bfd_write_archive_contents, bfd_false},
1443
1444 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
1445 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
1446 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1447 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
1448 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
1449 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
1450 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
1451 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
1452 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1453
1454 & ecoff_little_vec,
1455
1456 & mips_ecoff_backend_data
1457 };
1458
1459 const bfd_target ecoff_biglittle_vec =
1460 {
1461 "ecoff-biglittlemips", /* name */
1462 bfd_target_ecoff_flavour,
1463 BFD_ENDIAN_LITTLE, /* data byte order is little */
1464 BFD_ENDIAN_BIG, /* header byte order is big */
1465
1466 (HAS_RELOC | EXEC_P | /* object flags */
1467 HAS_LINENO | HAS_DEBUG |
1468 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1469
1470 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
1471 0, /* leading underscore */
1472 ' ', /* ar_pad_char */
1473 15, /* ar_max_namelen */
1474 0, /* match priority. */
1475 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
1476 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
1477 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
1478 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1479 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1480 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
1481
1482 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
1483 bfd_generic_archive_p, _bfd_dummy_target},
1484 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
1485 _bfd_generic_mkarchive, bfd_false},
1486 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
1487 _bfd_write_archive_contents, bfd_false},
1488
1489 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
1490 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
1491 BFD_JUMP_TABLE_CORE (_bfd_nocore),
1492 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
1493 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
1494 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
1495 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
1496 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
1497 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1498
1499 NULL,
1500
1501 & mips_ecoff_backend_data
1502 };
A mirror of the official binutils-gdb repository