?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Add field ``name'' to floatformat.
[binutils.git] / bfd / coff-mips.c
blobdd7ace5ecdd3f545eb46b4b944aa30cfd93dece4
1 /* BFD back-end for MIPS Extended-Coff files.
2 Copyright 1990, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
3 Free Software Foundation, Inc.
4 Original version by Per Bothner.
5 Full support added by Ian Lance Taylor, ian@cygnus.com.
6
7 This file is part of BFD, the Binary File Descriptor library.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23 #include "bfd.h"
24 #include "sysdep.h"
25 #include "bfdlink.h"
26 #include "libbfd.h"
27 #include "coff/internal.h"
28 #include "coff/sym.h"
29 #include "coff/symconst.h"
30 #include "coff/ecoff.h"
31 #include "coff/mips.h"
32 #include "libcoff.h"
33 #include "libecoff.h"
34 \f
35 /* Prototypes for static functions. */
36
37 static boolean mips_ecoff_bad_format_hook PARAMS ((bfd *abfd, PTR filehdr));
38 static void mips_ecoff_swap_reloc_in PARAMS ((bfd *, PTR,
39 struct internal_reloc *));
40 static void mips_ecoff_swap_reloc_out PARAMS ((bfd *,
41 const struct internal_reloc *,
42 PTR));
43 static void mips_adjust_reloc_in PARAMS ((bfd *,
44 const struct internal_reloc *,
45 arelent *));
46 static void mips_adjust_reloc_out PARAMS ((bfd *, const arelent *,
47 struct internal_reloc *));
48 static bfd_reloc_status_type mips_generic_reloc PARAMS ((bfd *abfd,
49 arelent *reloc,
50 asymbol *symbol,
51 PTR data,
52 asection *section,
53 bfd *output_bfd,
54 char **error));
55 static bfd_reloc_status_type mips_refhi_reloc PARAMS ((bfd *abfd,
56 arelent *reloc,
57 asymbol *symbol,
58 PTR data,
59 asection *section,
60 bfd *output_bfd,
61 char **error));
62 static bfd_reloc_status_type mips_reflo_reloc PARAMS ((bfd *abfd,
63 arelent *reloc,
64 asymbol *symbol,
65 PTR data,
66 asection *section,
67 bfd *output_bfd,
68 char **error));
69 static bfd_reloc_status_type mips_gprel_reloc PARAMS ((bfd *abfd,
70 arelent *reloc,
71 asymbol *symbol,
72 PTR data,
73 asection *section,
74 bfd *output_bfd,
75 char **error));
76 static bfd_reloc_status_type mips_relhi_reloc PARAMS ((bfd *abfd,
77 arelent *reloc,
78 asymbol *symbol,
79 PTR data,
80 asection *section,
81 bfd *output_bfd,
82 char **error));
83 static bfd_reloc_status_type mips_rello_reloc PARAMS ((bfd *abfd,
84 arelent *reloc,
85 asymbol *symbol,
86 PTR data,
87 asection *section,
88 bfd *output_bfd,
89 char **error));
90 static bfd_reloc_status_type mips_switch_reloc PARAMS ((bfd *abfd,
91 arelent *reloc,
92 asymbol *symbol,
93 PTR data,
94 asection *section,
95 bfd *output_bfd,
96 char **error));
97 static void mips_relocate_hi PARAMS ((struct internal_reloc *refhi,
98 struct internal_reloc *reflo,
99 bfd *input_bfd,
100 asection *input_section,
101 bfd_byte *contents,
102 size_t adjust,
103 bfd_vma relocation,
104 boolean pcrel));
105 static boolean mips_relocate_section PARAMS ((bfd *, struct bfd_link_info *,
106 bfd *, asection *,
107 bfd_byte *, PTR));
108 static boolean mips_read_relocs PARAMS ((bfd *, asection *));
109 static boolean mips_relax_section PARAMS ((bfd *, asection *,
110 struct bfd_link_info *,
111 boolean *));
112 static boolean mips_relax_pcrel16 PARAMS ((struct bfd_link_info *, bfd *,
113 asection *,
114 struct ecoff_link_hash_entry *,
115 bfd_byte *, bfd_vma));
116 static reloc_howto_type *mips_bfd_reloc_type_lookup
117 PARAMS ((bfd *, bfd_reloc_code_real_type));
118
119 \f
120 /* ECOFF has COFF sections, but the debugging information is stored in
121 a completely different format. ECOFF targets use some of the
122 swapping routines from coffswap.h, and some of the generic COFF
123 routines in coffgen.c, but, unlike the real COFF targets, do not
124 use coffcode.h itself.
125
126 Get the generic COFF swapping routines, except for the reloc,
127 symbol, and lineno ones. Give them ECOFF names. */
128 #define MIPSECOFF
129 #define NO_COFF_RELOCS
130 #define NO_COFF_SYMBOLS
131 #define NO_COFF_LINENOS
132 #define coff_swap_filehdr_in mips_ecoff_swap_filehdr_in
133 #define coff_swap_filehdr_out mips_ecoff_swap_filehdr_out
134 #define coff_swap_aouthdr_in mips_ecoff_swap_aouthdr_in
135 #define coff_swap_aouthdr_out mips_ecoff_swap_aouthdr_out
136 #define coff_swap_scnhdr_in mips_ecoff_swap_scnhdr_in
137 #define coff_swap_scnhdr_out mips_ecoff_swap_scnhdr_out
138 #include "coffswap.h"
139
140 /* Get the ECOFF swapping routines. */
141 #define ECOFF_32
142 #include "ecoffswap.h"
143 \f
144 /* How to process the various relocs types. */
145
146 static reloc_howto_type mips_howto_table[] =
147 {
148 /* Reloc type 0 is ignored. The reloc reading code ensures that
149 this is a reference to the .abs section, which will cause
150 bfd_perform_relocation to do nothing. */
151 HOWTO (MIPS_R_IGNORE, /* type */
152 0, /* rightshift */
153 0, /* size (0 = byte, 1 = short, 2 = long) */
154 8, /* bitsize */
155 false, /* pc_relative */
156 0, /* bitpos */
157 complain_overflow_dont, /* complain_on_overflow */
158 0, /* special_function */
159 "IGNORE", /* name */
160 false, /* partial_inplace */
161 0, /* src_mask */
162 0, /* dst_mask */
163 false), /* pcrel_offset */
164
165 /* A 16 bit reference to a symbol, normally from a data section. */
166 HOWTO (MIPS_R_REFHALF, /* type */
167 0, /* rightshift */
168 1, /* size (0 = byte, 1 = short, 2 = long) */
169 16, /* bitsize */
170 false, /* pc_relative */
171 0, /* bitpos */
172 complain_overflow_bitfield, /* complain_on_overflow */
173 mips_generic_reloc, /* special_function */
174 "REFHALF", /* name */
175 true, /* partial_inplace */
176 0xffff, /* src_mask */
177 0xffff, /* dst_mask */
178 false), /* pcrel_offset */
179
180 /* A 32 bit reference to a symbol, normally from a data section. */
181 HOWTO (MIPS_R_REFWORD, /* type */
182 0, /* rightshift */
183 2, /* size (0 = byte, 1 = short, 2 = long) */
184 32, /* bitsize */
185 false, /* pc_relative */
186 0, /* bitpos */
187 complain_overflow_bitfield, /* complain_on_overflow */
188 mips_generic_reloc, /* special_function */
189 "REFWORD", /* name */
190 true, /* partial_inplace */
191 0xffffffff, /* src_mask */
192 0xffffffff, /* dst_mask */
193 false), /* pcrel_offset */
194
195 /* A 26 bit absolute jump address. */
196 HOWTO (MIPS_R_JMPADDR, /* type */
197 2, /* rightshift */
198 2, /* size (0 = byte, 1 = short, 2 = long) */
199 26, /* bitsize */
200 false, /* pc_relative */
201 0, /* bitpos */
202 complain_overflow_dont, /* complain_on_overflow */
203 /* This needs complex overflow
204 detection, because the upper four
205 bits must match the PC. */
206 mips_generic_reloc, /* special_function */
207 "JMPADDR", /* name */
208 true, /* partial_inplace */
209 0x3ffffff, /* src_mask */
210 0x3ffffff, /* dst_mask */
211 false), /* pcrel_offset */
212
213 /* The high 16 bits of a symbol value. Handled by the function
214 mips_refhi_reloc. */
215 HOWTO (MIPS_R_REFHI, /* type */
216 16, /* rightshift */
217 2, /* size (0 = byte, 1 = short, 2 = long) */
218 16, /* bitsize */
219 false, /* pc_relative */
220 0, /* bitpos */
221 complain_overflow_bitfield, /* complain_on_overflow */
222 mips_refhi_reloc, /* special_function */
223 "REFHI", /* name */
224 true, /* partial_inplace */
225 0xffff, /* src_mask */
226 0xffff, /* dst_mask */
227 false), /* pcrel_offset */
228
229 /* The low 16 bits of a symbol value. */
230 HOWTO (MIPS_R_REFLO, /* type */
231 0, /* rightshift */
232 2, /* size (0 = byte, 1 = short, 2 = long) */
233 16, /* bitsize */
234 false, /* pc_relative */
235 0, /* bitpos */
236 complain_overflow_dont, /* complain_on_overflow */
237 mips_reflo_reloc, /* special_function */
238 "REFLO", /* name */
239 true, /* partial_inplace */
240 0xffff, /* src_mask */
241 0xffff, /* dst_mask */
242 false), /* pcrel_offset */
243
244 /* A reference to an offset from the gp register. Handled by the
245 function mips_gprel_reloc. */
246 HOWTO (MIPS_R_GPREL, /* 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 mips_gprel_reloc, /* special_function */
254 "GPREL", /* name */
255 true, /* partial_inplace */
256 0xffff, /* src_mask */
257 0xffff, /* dst_mask */
258 false), /* pcrel_offset */
259
260 /* A reference to a literal using an offset from the gp register.
261 Handled by the function mips_gprel_reloc. */
262 HOWTO (MIPS_R_LITERAL, /* type */
263 0, /* rightshift */
264 2, /* size (0 = byte, 1 = short, 2 = long) */
265 16, /* bitsize */
266 false, /* pc_relative */
267 0, /* bitpos */
268 complain_overflow_signed, /* complain_on_overflow */
269 mips_gprel_reloc, /* special_function */
270 "LITERAL", /* name */
271 true, /* partial_inplace */
272 0xffff, /* src_mask */
273 0xffff, /* dst_mask */
274 false), /* pcrel_offset */
275
276 EMPTY_HOWTO (8),
277 EMPTY_HOWTO (9),
278 EMPTY_HOWTO (10),
279 EMPTY_HOWTO (11),
280
281 /* This reloc is a Cygnus extension used when generating position
282 independent code for embedded systems. It represents a 16 bit PC
283 relative reloc rightshifted twice as used in the MIPS branch
284 instructions. */
285 HOWTO (MIPS_R_PCREL16, /* type */
286 2, /* rightshift */
287 2, /* size (0 = byte, 1 = short, 2 = long) */
288 16, /* bitsize */
289 true, /* pc_relative */
290 0, /* bitpos */
291 complain_overflow_signed, /* complain_on_overflow */
292 mips_generic_reloc, /* special_function */
293 "PCREL16", /* name */
294 true, /* partial_inplace */
295 0xffff, /* src_mask */
296 0xffff, /* dst_mask */
297 true), /* pcrel_offset */
298
299 /* This reloc is a Cygnus extension used when generating position
300 independent code for embedded systems. It represents the high 16
301 bits of a PC relative reloc. The next reloc must be
302 MIPS_R_RELLO, and the addend is formed from the addends of the
303 two instructions, just as in MIPS_R_REFHI and MIPS_R_REFLO. The
304 final value is actually PC relative to the location of the
305 MIPS_R_RELLO reloc, not the MIPS_R_RELHI reloc. */
306 HOWTO (MIPS_R_RELHI, /* type */
307 16, /* rightshift */
308 2, /* size (0 = byte, 1 = short, 2 = long) */
309 16, /* bitsize */
310 true, /* pc_relative */
311 0, /* bitpos */
312 complain_overflow_bitfield, /* complain_on_overflow */
313 mips_relhi_reloc, /* special_function */
314 "RELHI", /* name */
315 true, /* partial_inplace */
316 0xffff, /* src_mask */
317 0xffff, /* dst_mask */
318 true), /* pcrel_offset */
319
320 /* This reloc is a Cygnus extension used when generating position
321 independent code for embedded systems. It represents the low 16
322 bits of a PC relative reloc. */
323 HOWTO (MIPS_R_RELLO, /* type */
324 0, /* rightshift */
325 2, /* size (0 = byte, 1 = short, 2 = long) */
326 16, /* bitsize */
327 true, /* pc_relative */
328 0, /* bitpos */
329 complain_overflow_dont, /* complain_on_overflow */
330 mips_rello_reloc, /* special_function */
331 "RELLO", /* name */
332 true, /* partial_inplace */
333 0xffff, /* src_mask */
334 0xffff, /* dst_mask */
335 true), /* pcrel_offset */
336
337 EMPTY_HOWTO (15),
338 EMPTY_HOWTO (16),
339 EMPTY_HOWTO (17),
340 EMPTY_HOWTO (18),
341 EMPTY_HOWTO (19),
342 EMPTY_HOWTO (20),
343 EMPTY_HOWTO (21),
344
345 /* This reloc is a Cygnus extension used when generating position
346 independent code for embedded systems. It represents an entry in
347 a switch table, which is the difference between two symbols in
348 the .text section. The symndx is actually the offset from the
349 reloc address to the subtrahend. See include/coff/mips.h for
350 more details. */
351 HOWTO (MIPS_R_SWITCH, /* type */
352 0, /* rightshift */
353 2, /* size (0 = byte, 1 = short, 2 = long) */
354 32, /* bitsize */
355 true, /* pc_relative */
356 0, /* bitpos */
357 complain_overflow_dont, /* complain_on_overflow */
358 mips_switch_reloc, /* special_function */
359 "SWITCH", /* name */
360 true, /* partial_inplace */
361 0xffffffff, /* src_mask */
362 0xffffffff, /* dst_mask */
363 true) /* pcrel_offset */
364 };
365
366 #define MIPS_HOWTO_COUNT \
367 (sizeof mips_howto_table / sizeof mips_howto_table[0])
368
369 /* When the linker is doing relaxing, it may change a external PCREL16
370 reloc. This typically represents an instruction like
371 bal foo
372 We change it to
373 .set noreorder
374 bal $L1
375 lui $at,%hi(foo - $L1)
376 $L1:
377 addiu $at,%lo(foo - $L1)
378 addu $at,$at,$31
379 jalr $at
380 PCREL16_EXPANSION_ADJUSTMENT is the number of bytes this changes the
381 instruction by. */
382
383 #define PCREL16_EXPANSION_ADJUSTMENT (4 * 4)
384 \f
385 /* See whether the magic number matches. */
386
387 static boolean
388 mips_ecoff_bad_format_hook (abfd, filehdr)
389 bfd *abfd;
390 PTR filehdr;
391 {
392 struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
393
394 switch (internal_f->f_magic)
395 {
396 case MIPS_MAGIC_1:
397 /* I don't know what endianness this implies. */
398 return true;
399
400 case MIPS_MAGIC_BIG:
401 case MIPS_MAGIC_BIG2:
402 case MIPS_MAGIC_BIG3:
403 return bfd_big_endian (abfd);
404
405 case MIPS_MAGIC_LITTLE:
406 case MIPS_MAGIC_LITTLE2:
407 case MIPS_MAGIC_LITTLE3:
408 return bfd_little_endian (abfd);
409
410 default:
411 return false;
412 }
413 }
414 \f
415 /* Reloc handling. MIPS ECOFF relocs are packed into 8 bytes in
416 external form. They use a bit which indicates whether the symbol
417 is external. */
418
419 /* Swap a reloc in. */
420
421 static void
422 mips_ecoff_swap_reloc_in (abfd, ext_ptr, intern)
423 bfd *abfd;
424 PTR ext_ptr;
425 struct internal_reloc *intern;
426 {
427 const RELOC *ext = (RELOC *) ext_ptr;
428
429 intern->r_vaddr = bfd_h_get_32 (abfd, (bfd_byte *) ext->r_vaddr);
430 if (bfd_header_big_endian (abfd))
431 {
432 intern->r_symndx = (((int) ext->r_bits[0]
433 << RELOC_BITS0_SYMNDX_SH_LEFT_BIG)
434 | ((int) ext->r_bits[1]
435 << RELOC_BITS1_SYMNDX_SH_LEFT_BIG)
436 | ((int) ext->r_bits[2]
437 << RELOC_BITS2_SYMNDX_SH_LEFT_BIG));
438 intern->r_type = ((ext->r_bits[3] & RELOC_BITS3_TYPE_BIG)
439 >> RELOC_BITS3_TYPE_SH_BIG);
440 intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_BIG) != 0;
441 }
442 else
443 {
444 intern->r_symndx = (((int) ext->r_bits[0]
445 << RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE)
446 | ((int) ext->r_bits[1]
447 << RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE)
448 | ((int) ext->r_bits[2]
449 << RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE));
450 intern->r_type = (((ext->r_bits[3] & RELOC_BITS3_TYPE_LITTLE)
451 >> RELOC_BITS3_TYPE_SH_LITTLE)
452 | ((ext->r_bits[3] & RELOC_BITS3_TYPEHI_LITTLE)
453 << RELOC_BITS3_TYPEHI_SH_LITTLE));
454 intern->r_extern = (ext->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) != 0;
455 }
456
457 /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or
458 MIPS_R_RELLO reloc, r_symndx is actually the offset from the
459 reloc address to the base of the difference (see
460 include/coff/mips.h for more details). We copy symndx into the
461 r_offset field so as not to confuse ecoff_slurp_reloc_table in
462 ecoff.c. In adjust_reloc_in we then copy r_offset into the reloc
463 addend. */
464 if (intern->r_type == MIPS_R_SWITCH
465 || (! intern->r_extern
466 && (intern->r_type == MIPS_R_RELLO
467 || intern->r_type == MIPS_R_RELHI)))
468 {
469 BFD_ASSERT (! intern->r_extern);
470 intern->r_offset = intern->r_symndx;
471 if (intern->r_offset & 0x800000)
472 intern->r_offset -= 0x1000000;
473 intern->r_symndx = RELOC_SECTION_TEXT;
474 }
475 }
476
477 /* Swap a reloc out. */
478
479 static void
480 mips_ecoff_swap_reloc_out (abfd, intern, dst)
481 bfd *abfd;
482 const struct internal_reloc *intern;
483 PTR dst;
484 {
485 RELOC *ext = (RELOC *) dst;
486 long r_symndx;
487
488 BFD_ASSERT (intern->r_extern
489 || (intern->r_symndx >= 0 && intern->r_symndx <= 12));
490
491 /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELLO or
492 MIPS_R_RELHI reloc, we actually want to write the contents of
493 r_offset out as the symbol index. This undoes the change made by
494 mips_ecoff_swap_reloc_in. */
495 if (intern->r_type != MIPS_R_SWITCH
496 && (intern->r_extern
497 || (intern->r_type != MIPS_R_RELHI
498 && intern->r_type != MIPS_R_RELLO)))
499 r_symndx = intern->r_symndx;
500 else
501 {
502 BFD_ASSERT (intern->r_symndx == RELOC_SECTION_TEXT);
503 r_symndx = intern->r_offset & 0xffffff;
504 }
505
506 bfd_h_put_32 (abfd, intern->r_vaddr, (bfd_byte *) ext->r_vaddr);
507 if (bfd_header_big_endian (abfd))
508 {
509 ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_BIG;
510 ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_BIG;
511 ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_BIG;
512 ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_BIG)
513 & RELOC_BITS3_TYPE_BIG)
514 | (intern->r_extern ? RELOC_BITS3_EXTERN_BIG : 0));
515 }
516 else
517 {
518 ext->r_bits[0] = r_symndx >> RELOC_BITS0_SYMNDX_SH_LEFT_LITTLE;
519 ext->r_bits[1] = r_symndx >> RELOC_BITS1_SYMNDX_SH_LEFT_LITTLE;
520 ext->r_bits[2] = r_symndx >> RELOC_BITS2_SYMNDX_SH_LEFT_LITTLE;
521 ext->r_bits[3] = (((intern->r_type << RELOC_BITS3_TYPE_SH_LITTLE)
522 & RELOC_BITS3_TYPE_LITTLE)
523 | ((intern->r_type >> RELOC_BITS3_TYPEHI_SH_LITTLE
524 & RELOC_BITS3_TYPEHI_LITTLE))
525 | (intern->r_extern ? RELOC_BITS3_EXTERN_LITTLE : 0));
526 }
527 }
528
529 /* Finish canonicalizing a reloc. Part of this is generic to all
530 ECOFF targets, and that part is in ecoff.c. The rest is done in
531 this backend routine. It must fill in the howto field. */
532
533 static void
534 mips_adjust_reloc_in (abfd, intern, rptr)
535 bfd *abfd;
536 const struct internal_reloc *intern;
537 arelent *rptr;
538 {
539 if (intern->r_type > MIPS_R_SWITCH)
540 abort ();
541
542 if (! intern->r_extern
543 && (intern->r_type == MIPS_R_GPREL
544 || intern->r_type == MIPS_R_LITERAL))
545 rptr->addend += ecoff_data (abfd)->gp;
546
547 /* If the type is MIPS_R_IGNORE, make sure this is a reference to
548 the absolute section so that the reloc is ignored. */
549 if (intern->r_type == MIPS_R_IGNORE)
550 rptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
551
552 /* If this is a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or
553 MIPS_R_RELLO reloc, we want the addend field of the BFD relocto
554 hold the value which was originally in the symndx field of the
555 internal MIPS ECOFF reloc. This value was copied into
556 intern->r_offset by mips_swap_reloc_in, and here we copy it into
557 the addend field. */
558 if (intern->r_type == MIPS_R_SWITCH
559 || (! intern->r_extern
560 && (intern->r_type == MIPS_R_RELHI
561 || intern->r_type == MIPS_R_RELLO)))
562 rptr->addend = intern->r_offset;
563
564 rptr->howto = &mips_howto_table[intern->r_type];
565 }
566
567 /* Make any adjustments needed to a reloc before writing it out. None
568 are needed for MIPS. */
569
570 static void
571 mips_adjust_reloc_out (abfd, rel, intern)
572 bfd *abfd ATTRIBUTE_UNUSED;
573 const arelent *rel;
574 struct internal_reloc *intern;
575 {
576 /* For a MIPS_R_SWITCH reloc, or an internal MIPS_R_RELHI or
577 MIPS_R_RELLO reloc, we must copy rel->addend into
578 intern->r_offset. This will then be written out as the symbol
579 index by mips_ecoff_swap_reloc_out. This operation parallels the
580 action of mips_adjust_reloc_in. */
581 if (intern->r_type == MIPS_R_SWITCH
582 || (! intern->r_extern
583 && (intern->r_type == MIPS_R_RELHI
584 || intern->r_type == MIPS_R_RELLO)))
585 intern->r_offset = rel->addend;
586 }
587
588 /* ECOFF relocs are either against external symbols, or against
589 sections. If we are producing relocateable output, and the reloc
590 is against an external symbol, and nothing has given us any
591 additional addend, the resulting reloc will also be against the
592 same symbol. In such a case, we don't want to change anything
593 about the way the reloc is handled, since it will all be done at
594 final link time. Rather than put special case code into
595 bfd_perform_relocation, all the reloc types use this howto
596 function. It just short circuits the reloc if producing
597 relocateable output against an external symbol. */
598
599 static bfd_reloc_status_type
600 mips_generic_reloc (abfd,
601 reloc_entry,
602 symbol,
603 data,
604 input_section,
605 output_bfd,
606 error_message)
607 bfd *abfd ATTRIBUTE_UNUSED;
608 arelent *reloc_entry;
609 asymbol *symbol;
610 PTR data ATTRIBUTE_UNUSED;
611 asection *input_section;
612 bfd *output_bfd;
613 char **error_message ATTRIBUTE_UNUSED;
614 {
615 if (output_bfd != (bfd *) NULL
616 && (symbol->flags & BSF_SECTION_SYM) == 0
617 && reloc_entry->addend == 0)
618 {
619 reloc_entry->address += input_section->output_offset;
620 return bfd_reloc_ok;
621 }
622
623 return bfd_reloc_continue;
624 }
625
626 /* Do a REFHI relocation. This has to be done in combination with a
627 REFLO reloc, because there is a carry from the REFLO to the REFHI.
628 Here we just save the information we need; we do the actual
629 relocation when we see the REFLO. MIPS ECOFF requires that the
630 REFLO immediately follow the REFHI. As a GNU extension, we permit
631 an arbitrary number of HI relocs to be associated with a single LO
632 reloc. This extension permits gcc to output the HI and LO relocs
633 itself. */
634
635 struct mips_hi
636 {
637 struct mips_hi *next;
638 bfd_byte *addr;
639 bfd_vma addend;
640 };
641
642 /* FIXME: This should not be a static variable. */
643
644 static struct mips_hi *mips_refhi_list;
645
646 static bfd_reloc_status_type
647 mips_refhi_reloc (abfd,
648 reloc_entry,
649 symbol,
650 data,
651 input_section,
652 output_bfd,
653 error_message)
654 bfd *abfd ATTRIBUTE_UNUSED;
655 arelent *reloc_entry;
656 asymbol *symbol;
657 PTR data;
658 asection *input_section;
659 bfd *output_bfd;
660 char **error_message ATTRIBUTE_UNUSED;
661 {
662 bfd_reloc_status_type ret;
663 bfd_vma relocation;
664 struct mips_hi *n;
665
666 /* If we're relocating, and this an external symbol, we don't want
667 to change anything. */
668 if (output_bfd != (bfd *) NULL
669 && (symbol->flags & BSF_SECTION_SYM) == 0
670 && reloc_entry->addend == 0)
671 {
672 reloc_entry->address += input_section->output_offset;
673 return bfd_reloc_ok;
674 }
675
676 ret = bfd_reloc_ok;
677 if (bfd_is_und_section (symbol->section)
678 && output_bfd == (bfd *) NULL)
679 ret = bfd_reloc_undefined;
680
681 if (bfd_is_com_section (symbol->section))
682 relocation = 0;
683 else
684 relocation = symbol->value;
685
686 relocation += symbol->section->output_section->vma;
687 relocation += symbol->section->output_offset;
688 relocation += reloc_entry->addend;
689
690 if (reloc_entry->address > input_section->_cooked_size)
691 return bfd_reloc_outofrange;
692
693 /* Save the information, and let REFLO do the actual relocation. */
694 n = (struct mips_hi *) bfd_malloc (sizeof *n);
695 if (n == NULL)
696 return bfd_reloc_outofrange;
697 n->addr = (bfd_byte *) data + reloc_entry->address;
698 n->addend = relocation;
699 n->next = mips_refhi_list;
700 mips_refhi_list = n;
701
702 if (output_bfd != (bfd *) NULL)
703 reloc_entry->address += input_section->output_offset;
704
705 return ret;
706 }
707
708 /* Do a REFLO relocation. This is a straightforward 16 bit inplace
709 relocation; this function exists in order to do the REFHI
710 relocation described above. */
711
712 static bfd_reloc_status_type
713 mips_reflo_reloc (abfd,
714 reloc_entry,
715 symbol,
716 data,
717 input_section,
718 output_bfd,
719 error_message)
720 bfd *abfd;
721 arelent *reloc_entry;
722 asymbol *symbol;
723 PTR data;
724 asection *input_section;
725 bfd *output_bfd;
726 char **error_message;
727 {
728 if (mips_refhi_list != NULL)
729 {
730 struct mips_hi *l;
731
732 l = mips_refhi_list;
733 while (l != NULL)
734 {
735 unsigned long insn;
736 unsigned long val;
737 unsigned long vallo;
738 struct mips_hi *next;
739
740 /* Do the REFHI relocation. Note that we actually don't
741 need to know anything about the REFLO itself, except
742 where to find the low 16 bits of the addend needed by the
743 REFHI. */
744 insn = bfd_get_32 (abfd, l->addr);
745 vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address)
746 & 0xffff);
747 val = ((insn & 0xffff) << 16) + vallo;
748 val += l->addend;
749
750 /* The low order 16 bits are always treated as a signed
751 value. Therefore, a negative value in the low order bits
752 requires an adjustment in the high order bits. We need
753 to make this adjustment in two ways: once for the bits we
754 took from the data, and once for the bits we are putting
755 back in to the data. */
756 if ((vallo & 0x8000) != 0)
757 val -= 0x10000;
758 if ((val & 0x8000) != 0)
759 val += 0x10000;
760
761 insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff);
762 bfd_put_32 (abfd, insn, l->addr);
763
764 next = l->next;
765 free (l);
766 l = next;
767 }
768
769 mips_refhi_list = NULL;
770 }
771
772 /* Now do the REFLO reloc in the usual way. */
773 return mips_generic_reloc (abfd, reloc_entry, symbol, data,
774 input_section, output_bfd, error_message);
775 }
776
777 /* Do a GPREL relocation. This is a 16 bit value which must become
778 the offset from the gp register. */
779
780 static bfd_reloc_status_type
781 mips_gprel_reloc (abfd,
782 reloc_entry,
783 symbol,
784 data,
785 input_section,
786 output_bfd,
787 error_message)
788 bfd *abfd;
789 arelent *reloc_entry;
790 asymbol *symbol;
791 PTR data;
792 asection *input_section;
793 bfd *output_bfd;
794 char **error_message;
795 {
796 boolean relocateable;
797 bfd_vma gp;
798 bfd_vma relocation;
799 unsigned long val;
800 unsigned long insn;
801
802 /* If we're relocating, and this is an external symbol with no
803 addend, we don't want to change anything. We will only have an
804 addend if this is a newly created reloc, not read from an ECOFF
805 file. */
806 if (output_bfd != (bfd *) NULL
807 && (symbol->flags & BSF_SECTION_SYM) == 0
808 && reloc_entry->addend == 0)
809 {
810 reloc_entry->address += input_section->output_offset;
811 return bfd_reloc_ok;
812 }
813
814 if (output_bfd != (bfd *) NULL)
815 relocateable = true;
816 else
817 {
818 relocateable = false;
819 output_bfd = symbol->section->output_section->owner;
820 }
821
822 if (bfd_is_und_section (symbol->section)
823 && relocateable == false)
824 return bfd_reloc_undefined;
825
826 /* We have to figure out the gp value, so that we can adjust the
827 symbol value correctly. We look up the symbol _gp in the output
828 BFD. If we can't find it, we're stuck. We cache it in the ECOFF
829 target data. We don't need to adjust the symbol value for an
830 external symbol if we are producing relocateable output. */
831 gp = _bfd_get_gp_value (output_bfd);
832 if (gp == 0
833 && (relocateable == false
834 || (symbol->flags & BSF_SECTION_SYM) != 0))
835 {
836 if (relocateable != false)
837 {
838 /* Make up a value. */
839 gp = symbol->section->output_section->vma + 0x4000;
840 _bfd_set_gp_value (output_bfd, gp);
841 }
842 else
843 {
844 unsigned int count;
845 asymbol **sym;
846 unsigned int i;
847
848 count = bfd_get_symcount (output_bfd);
849 sym = bfd_get_outsymbols (output_bfd);
850
851 if (sym == (asymbol **) NULL)
852 i = count;
853 else
854 {
855 for (i = 0; i < count; i++, sym++)
856 {
857 register CONST char *name;
858
859 name = bfd_asymbol_name (*sym);
860 if (*name == '_' && strcmp (name, "_gp") == 0)
861 {
862 gp = bfd_asymbol_value (*sym);
863 _bfd_set_gp_value (output_bfd, gp);
864 break;
865 }
866 }
867 }
868
869 if (i >= count)
870 {
871 /* Only get the error once. */
872 gp = 4;
873 _bfd_set_gp_value (output_bfd, gp);
874 *error_message =
875 (char *) _("GP relative relocation when _gp not defined");
876 return bfd_reloc_dangerous;
877 }
878 }
879 }
880
881 if (bfd_is_com_section (symbol->section))
882 relocation = 0;
883 else
884 relocation = symbol->value;
885
886 relocation += symbol->section->output_section->vma;
887 relocation += symbol->section->output_offset;
888
889 if (reloc_entry->address > input_section->_cooked_size)
890 return bfd_reloc_outofrange;
891
892 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
893
894 /* Set val to the offset into the section or symbol. */
895 val = ((insn & 0xffff) + reloc_entry->addend) & 0xffff;
896 if (val & 0x8000)
897 val -= 0x10000;
898
899 /* Adjust val for the final section location and GP value. If we
900 are producing relocateable output, we don't want to do this for
901 an external symbol. */
902 if (relocateable == false
903 || (symbol->flags & BSF_SECTION_SYM) != 0)
904 val += relocation - gp;
905
906 insn = (insn &~ 0xffff) | (val & 0xffff);
907 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
908
909 if (relocateable != false)
910 reloc_entry->address += input_section->output_offset;
911
912 /* Make sure it fit in 16 bits. */
913 if ((long) val >= 0x8000 || (long) val < -0x8000)
914 return bfd_reloc_overflow;
915
916 return bfd_reloc_ok;
917 }
918
919 /* Do a RELHI relocation. We do this in conjunction with a RELLO
920 reloc, just as REFHI and REFLO are done together. RELHI and RELLO
921 are Cygnus extensions used when generating position independent
922 code for embedded systems. */
923
924 /* FIXME: This should not be a static variable. */
925
926 static struct mips_hi *mips_relhi_list;
927
928 static bfd_reloc_status_type
929 mips_relhi_reloc (abfd,
930 reloc_entry,
931 symbol,
932 data,
933 input_section,
934 output_bfd,
935 error_message)
936 bfd *abfd ATTRIBUTE_UNUSED;
937 arelent *reloc_entry;
938 asymbol *symbol;
939 PTR data;
940 asection *input_section;
941 bfd *output_bfd;
942 char **error_message ATTRIBUTE_UNUSED;
943 {
944 bfd_reloc_status_type ret;
945 bfd_vma relocation;
946 struct mips_hi *n;
947
948 /* If this is a reloc against a section symbol, then it is correct
949 in the object file. The only time we want to change this case is
950 when we are relaxing, and that is handled entirely by
951 mips_relocate_section and never calls this function. */
952 if ((symbol->flags & BSF_SECTION_SYM) != 0)
953 {
954 if (output_bfd != (bfd *) NULL)
955 reloc_entry->address += input_section->output_offset;
956 return bfd_reloc_ok;
957 }
958
959 /* This is an external symbol. If we're relocating, we don't want
960 to change anything. */
961 if (output_bfd != (bfd *) NULL)
962 {
963 reloc_entry->address += input_section->output_offset;
964 return bfd_reloc_ok;
965 }
966
967 ret = bfd_reloc_ok;
968 if (bfd_is_und_section (symbol->section)
969 && output_bfd == (bfd *) NULL)
970 ret = bfd_reloc_undefined;
971
972 if (bfd_is_com_section (symbol->section))
973 relocation = 0;
974 else
975 relocation = symbol->value;
976
977 relocation += symbol->section->output_section->vma;
978 relocation += symbol->section->output_offset;
979 relocation += reloc_entry->addend;
980
981 if (reloc_entry->address > input_section->_cooked_size)
982 return bfd_reloc_outofrange;
983
984 /* Save the information, and let RELLO do the actual relocation. */
985 n = (struct mips_hi *) bfd_malloc (sizeof *n);
986 if (n == NULL)
987 return bfd_reloc_outofrange;
988 n->addr = (bfd_byte *) data + reloc_entry->address;
989 n->addend = relocation;
990 n->next = mips_relhi_list;
991 mips_relhi_list = n;
992
993 if (output_bfd != (bfd *) NULL)
994 reloc_entry->address += input_section->output_offset;
995
996 return ret;
997 }
998
999 /* Do a RELLO relocation. This is a straightforward 16 bit PC
1000 relative relocation; this function exists in order to do the RELHI
1001 relocation described above. */
1002
1003 static bfd_reloc_status_type
1004 mips_rello_reloc (abfd,
1005 reloc_entry,
1006 symbol,
1007 data,
1008 input_section,
1009 output_bfd,
1010 error_message)
1011 bfd *abfd;
1012 arelent *reloc_entry;
1013 asymbol *symbol;
1014 PTR data;
1015 asection *input_section;
1016 bfd *output_bfd;
1017 char **error_message;
1018 {
1019 if (mips_relhi_list != NULL)
1020 {
1021 struct mips_hi *l;
1022
1023 l = mips_relhi_list;
1024 while (l != NULL)
1025 {
1026 unsigned long insn;
1027 unsigned long val;
1028 unsigned long vallo;
1029 struct mips_hi *next;
1030
1031 /* Do the RELHI relocation. Note that we actually don't
1032 need to know anything about the RELLO itself, except
1033 where to find the low 16 bits of the addend needed by the
1034 RELHI. */
1035 insn = bfd_get_32 (abfd, l->addr);
1036 vallo = (bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address)
1037 & 0xffff);
1038 val = ((insn & 0xffff) << 16) + vallo;
1039 val += l->addend;
1040
1041 /* If the symbol is defined, make val PC relative. If the
1042 symbol is not defined we don't want to do this, because
1043 we don't want the value in the object file to incorporate
1044 the address of the reloc. */
1045 if (! bfd_is_und_section (bfd_get_section (symbol))
1046 && ! bfd_is_com_section (bfd_get_section (symbol)))
1047 val -= (input_section->output_section->vma
1048 + input_section->output_offset
1049 + reloc_entry->address);
1050
1051 /* The low order 16 bits are always treated as a signed
1052 value. Therefore, a negative value in the low order bits
1053 requires an adjustment in the high order bits. We need
1054 to make this adjustment in two ways: once for the bits we
1055 took from the data, and once for the bits we are putting
1056 back in to the data. */
1057 if ((vallo & 0x8000) != 0)
1058 val -= 0x10000;
1059 if ((val & 0x8000) != 0)
1060 val += 0x10000;
1061
1062 insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff);
1063 bfd_put_32 (abfd, insn, l->addr);
1064
1065 next = l->next;
1066 free (l);
1067 l = next;
1068 }
1069
1070 mips_relhi_list = NULL;
1071 }
1072
1073 /* If this is a reloc against a section symbol, then it is correct
1074 in the object file. The only time we want to change this case is
1075 when we are relaxing, and that is handled entirely by
1076 mips_relocate_section and never calls this function. */
1077 if ((symbol->flags & BSF_SECTION_SYM) != 0)
1078 {
1079 if (output_bfd != (bfd *) NULL)
1080 reloc_entry->address += input_section->output_offset;
1081 return bfd_reloc_ok;
1082 }
1083
1084 /* bfd_perform_relocation does not handle pcrel_offset relocations
1085 correctly when generating a relocateable file, so handle them
1086 directly here. */
1087 if (output_bfd != (bfd *) NULL)
1088 {
1089 reloc_entry->address += input_section->output_offset;
1090 return bfd_reloc_ok;
1091 }
1092
1093 /* Now do the RELLO reloc in the usual way. */
1094 return mips_generic_reloc (abfd, reloc_entry, symbol, data,
1095 input_section, output_bfd, error_message);
1096 }
1097
1098 /* This is the special function for the MIPS_R_SWITCH reloc. This
1099 special reloc is normally correct in the object file, and only
1100 requires special handling when relaxing. We don't want
1101 bfd_perform_relocation to tamper with it at all. */
1102
1103 /*ARGSUSED*/
1104 static bfd_reloc_status_type
1105 mips_switch_reloc (abfd,
1106 reloc_entry,
1107 symbol,
1108 data,
1109 input_section,
1110 output_bfd,
1111 error_message)
1112 bfd *abfd ATTRIBUTE_UNUSED;
1113 arelent *reloc_entry ATTRIBUTE_UNUSED;
1114 asymbol *symbol ATTRIBUTE_UNUSED;
1115 PTR data ATTRIBUTE_UNUSED;
1116 asection *input_section ATTRIBUTE_UNUSED;
1117 bfd *output_bfd ATTRIBUTE_UNUSED;
1118 char **error_message ATTRIBUTE_UNUSED;
1119 {
1120 return bfd_reloc_ok;
1121 }
1122
1123 /* Get the howto structure for a generic reloc type. */
1124
1125 static reloc_howto_type *
1126 mips_bfd_reloc_type_lookup (abfd, code)
1127 bfd *abfd ATTRIBUTE_UNUSED;
1128 bfd_reloc_code_real_type code;
1129 {
1130 int mips_type;
1131
1132 switch (code)
1133 {
1134 case BFD_RELOC_16:
1135 mips_type = MIPS_R_REFHALF;
1136 break;
1137 case BFD_RELOC_32:
1138 case BFD_RELOC_CTOR:
1139 mips_type = MIPS_R_REFWORD;
1140 break;
1141 case BFD_RELOC_MIPS_JMP:
1142 mips_type = MIPS_R_JMPADDR;
1143 break;
1144 case BFD_RELOC_HI16_S:
1145 mips_type = MIPS_R_REFHI;
1146 break;
1147 case BFD_RELOC_LO16:
1148 mips_type = MIPS_R_REFLO;
1149 break;
1150 case BFD_RELOC_MIPS_GPREL:
1151 mips_type = MIPS_R_GPREL;
1152 break;
1153 case BFD_RELOC_MIPS_LITERAL:
1154 mips_type = MIPS_R_LITERAL;
1155 break;
1156 case BFD_RELOC_16_PCREL_S2:
1157 mips_type = MIPS_R_PCREL16;
1158 break;
1159 case BFD_RELOC_PCREL_HI16_S:
1160 mips_type = MIPS_R_RELHI;
1161 break;
1162 case BFD_RELOC_PCREL_LO16:
1163 mips_type = MIPS_R_RELLO;
1164 break;
1165 case BFD_RELOC_GPREL32:
1166 mips_type = MIPS_R_SWITCH;
1167 break;
1168 default:
1169 return (reloc_howto_type *) NULL;
1170 }
1171
1172 return &mips_howto_table[mips_type];
1173 }
1174 \f
1175 /* A helper routine for mips_relocate_section which handles the REFHI
1176 and RELHI relocations. The REFHI relocation must be followed by a
1177 REFLO relocation (and RELHI by a RELLO), and the addend used is
1178 formed from the addends of both instructions. */
1179
1180 static void
1181 mips_relocate_hi (refhi, reflo, input_bfd, input_section, contents, adjust,
1182 relocation, pcrel)
1183 struct internal_reloc *refhi;
1184 struct internal_reloc *reflo;
1185 bfd *input_bfd;
1186 asection *input_section;
1187 bfd_byte *contents;
1188 size_t adjust;
1189 bfd_vma relocation;
1190 boolean pcrel;
1191 {
1192 unsigned long insn;
1193 unsigned long val;
1194 unsigned long vallo;
1195
1196 if (refhi == NULL)
1197 return;
1198
1199 insn = bfd_get_32 (input_bfd,
1200 contents + adjust + refhi->r_vaddr - input_section->vma);
1201 if (reflo == NULL)
1202 vallo = 0;
1203 else
1204 vallo = (bfd_get_32 (input_bfd,
1205 contents + adjust + reflo->r_vaddr - input_section->vma)
1206 & 0xffff);
1207
1208 val = ((insn & 0xffff) << 16) + vallo;
1209 val += relocation;
1210
1211 /* The low order 16 bits are always treated as a signed value.
1212 Therefore, a negative value in the low order bits requires an
1213 adjustment in the high order bits. We need to make this
1214 adjustment in two ways: once for the bits we took from the data,
1215 and once for the bits we are putting back in to the data. */
1216 if ((vallo & 0x8000) != 0)
1217 val -= 0x10000;
1218
1219 if (pcrel)
1220 val -= (input_section->output_section->vma
1221 + input_section->output_offset
1222 + (reflo->r_vaddr - input_section->vma + adjust));
1223
1224 if ((val & 0x8000) != 0)
1225 val += 0x10000;
1226
1227 insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff);
1228 bfd_put_32 (input_bfd, (bfd_vma) insn,
1229 contents + adjust + refhi->r_vaddr - input_section->vma);
1230 }
1231
1232 /* Relocate a section while linking a MIPS ECOFF file. */
1233
1234 static boolean
1235 mips_relocate_section (output_bfd, info, input_bfd, input_section,
1236 contents, external_relocs)
1237 bfd *output_bfd;
1238 struct bfd_link_info *info;
1239 bfd *input_bfd;
1240 asection *input_section;
1241 bfd_byte *contents;
1242 PTR external_relocs;
1243 {
1244 asection **symndx_to_section;
1245 struct ecoff_link_hash_entry **sym_hashes;
1246 bfd_vma gp;
1247 boolean gp_undefined;
1248 size_t adjust;
1249 long *offsets;
1250 struct external_reloc *ext_rel;
1251 struct external_reloc *ext_rel_end;
1252 unsigned int i;
1253 boolean got_lo;
1254 struct internal_reloc lo_int_rel;
1255
1256 BFD_ASSERT (input_bfd->xvec->byteorder
1257 == output_bfd->xvec->byteorder);
1258
1259 /* We keep a table mapping the symndx found in an internal reloc to
1260 the appropriate section. This is faster than looking up the
1261 section by name each time. */
1262 symndx_to_section = ecoff_data (input_bfd)->symndx_to_section;
1263 if (symndx_to_section == (asection **) NULL)
1264 {
1265 symndx_to_section = ((asection **)
1266 bfd_alloc (input_bfd,
1267 (NUM_RELOC_SECTIONS
1268 * sizeof (asection *))));
1269 if (!symndx_to_section)
1270 return false;
1271
1272 symndx_to_section[RELOC_SECTION_NONE] = NULL;
1273 symndx_to_section[RELOC_SECTION_TEXT] =
1274 bfd_get_section_by_name (input_bfd, ".text");
1275 symndx_to_section[RELOC_SECTION_RDATA] =
1276 bfd_get_section_by_name (input_bfd, ".rdata");
1277 symndx_to_section[RELOC_SECTION_DATA] =
1278 bfd_get_section_by_name (input_bfd, ".data");
1279 symndx_to_section[RELOC_SECTION_SDATA] =
1280 bfd_get_section_by_name (input_bfd, ".sdata");
1281 symndx_to_section[RELOC_SECTION_SBSS] =
1282 bfd_get_section_by_name (input_bfd, ".sbss");
1283 symndx_to_section[RELOC_SECTION_BSS] =
1284 bfd_get_section_by_name (input_bfd, ".bss");
1285 symndx_to_section[RELOC_SECTION_INIT] =
1286 bfd_get_section_by_name (input_bfd, ".init");
1287 symndx_to_section[RELOC_SECTION_LIT8] =
1288 bfd_get_section_by_name (input_bfd, ".lit8");
1289 symndx_to_section[RELOC_SECTION_LIT4] =
1290 bfd_get_section_by_name (input_bfd, ".lit4");
1291 symndx_to_section[RELOC_SECTION_XDATA] = NULL;
1292 symndx_to_section[RELOC_SECTION_PDATA] = NULL;
1293 symndx_to_section[RELOC_SECTION_FINI] =
1294 bfd_get_section_by_name (input_bfd, ".fini");
1295 symndx_to_section[RELOC_SECTION_LITA] = NULL;
1296 symndx_to_section[RELOC_SECTION_ABS] = NULL;
1297
1298 ecoff_data (input_bfd)->symndx_to_section = symndx_to_section;
1299 }
1300
1301 sym_hashes = ecoff_data (input_bfd)->sym_hashes;
1302
1303 gp = _bfd_get_gp_value (output_bfd);
1304 if (gp == 0)
1305 gp_undefined = true;
1306 else
1307 gp_undefined = false;
1308
1309 got_lo = false;
1310
1311 adjust = 0;
1312
1313 if (ecoff_section_data (input_bfd, input_section) == NULL)
1314 offsets = NULL;
1315 else
1316 offsets = ecoff_section_data (input_bfd, input_section)->offsets;
1317
1318 ext_rel = (struct external_reloc *) external_relocs;
1319 ext_rel_end = ext_rel + input_section->reloc_count;
1320 for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++)
1321 {
1322 struct internal_reloc int_rel;
1323 boolean use_lo = false;
1324 bfd_vma addend;
1325 reloc_howto_type *howto;
1326 struct ecoff_link_hash_entry *h = NULL;
1327 asection *s = NULL;
1328 bfd_vma relocation;
1329 bfd_reloc_status_type r;
1330
1331 if (! got_lo)
1332 mips_ecoff_swap_reloc_in (input_bfd, (PTR) ext_rel, &int_rel);
1333 else
1334 {
1335 int_rel = lo_int_rel;
1336 got_lo = false;
1337 }
1338
1339 BFD_ASSERT (int_rel.r_type
1340 < sizeof mips_howto_table / sizeof mips_howto_table[0]);
1341
1342 /* The REFHI and RELHI relocs requires special handling. they
1343 must be followed by a REFLO or RELLO reloc, respectively, and
1344 the addend is formed from both relocs. */
1345 if (int_rel.r_type == MIPS_R_REFHI
1346 || int_rel.r_type == MIPS_R_RELHI)
1347 {
1348 struct external_reloc *lo_ext_rel;
1349
1350 /* As a GNU extension, permit an arbitrary number of REFHI
1351 or RELHI relocs before the REFLO or RELLO reloc. This
1352 permits gcc to emit the HI and LO relocs itself. */
1353 for (lo_ext_rel = ext_rel + 1;
1354 lo_ext_rel < ext_rel_end;
1355 lo_ext_rel++)
1356 {
1357 mips_ecoff_swap_reloc_in (input_bfd, (PTR) lo_ext_rel,
1358 &lo_int_rel);
1359 if (lo_int_rel.r_type != int_rel.r_type)
1360 break;
1361 }
1362
1363 if (lo_ext_rel < ext_rel_end
1364 && (lo_int_rel.r_type
1365 == (int_rel.r_type == MIPS_R_REFHI
1366 ? MIPS_R_REFLO
1367 : MIPS_R_RELLO))
1368 && int_rel.r_extern == lo_int_rel.r_extern
1369 && int_rel.r_symndx == lo_int_rel.r_symndx)
1370 {
1371 use_lo = true;
1372 if (lo_ext_rel == ext_rel + 1)
1373 got_lo = true;
1374 }
1375 }
1376
1377 howto = &mips_howto_table[int_rel.r_type];
1378
1379 /* The SWITCH reloc must be handled specially. This reloc is
1380 marks the location of a difference between two portions of an
1381 object file. The symbol index does not reference a symbol,
1382 but is actually the offset from the reloc to the subtrahend
1383 of the difference. This reloc is correct in the object file,
1384 and needs no further adjustment, unless we are relaxing. If
1385 we are relaxing, we may have to add in an offset. Since no
1386 symbols are involved in this reloc, we handle it completely
1387 here. */
1388 if (int_rel.r_type == MIPS_R_SWITCH)
1389 {
1390 if (offsets != NULL
1391 && offsets[i] != 0)
1392 {
1393 r = _bfd_relocate_contents (howto, input_bfd,
1394 (bfd_vma) offsets[i],
1395 (contents
1396 + adjust
1397 + int_rel.r_vaddr
1398 - input_section->vma));
1399 BFD_ASSERT (r == bfd_reloc_ok);
1400 }
1401
1402 continue;
1403 }
1404
1405 if (int_rel.r_extern)
1406 {
1407 h = sym_hashes[int_rel.r_symndx];
1408 /* If h is NULL, that means that there is a reloc against an
1409 external symbol which we thought was just a debugging
1410 symbol. This should not happen. */
1411 if (h == (struct ecoff_link_hash_entry *) NULL)
1412 abort ();
1413 }
1414 else
1415 {
1416 if (int_rel.r_symndx < 0 || int_rel.r_symndx >= NUM_RELOC_SECTIONS)
1417 s = NULL;
1418 else
1419 s = symndx_to_section[int_rel.r_symndx];
1420
1421 if (s == (asection *) NULL)
1422 abort ();
1423 }
1424
1425 /* The GPREL reloc uses an addend: the difference in the GP
1426 values. */
1427 if (int_rel.r_type != MIPS_R_GPREL
1428 && int_rel.r_type != MIPS_R_LITERAL)
1429 addend = 0;
1430 else
1431 {
1432 if (gp_undefined)
1433 {
1434 if (! ((*info->callbacks->reloc_dangerous)
1435 (info, _("GP relative relocation when GP not defined"),
1436 input_bfd, input_section,
1437 int_rel.r_vaddr - input_section->vma)))
1438 return false;
1439 /* Only give the error once per link. */
1440 gp = 4;
1441 _bfd_set_gp_value (output_bfd, gp);
1442 gp_undefined = false;
1443 }
1444 if (! int_rel.r_extern)
1445 {
1446 /* This is a relocation against a section. The current
1447 addend in the instruction is the difference between
1448 INPUT_SECTION->vma and the GP value of INPUT_BFD. We
1449 must change this to be the difference between the
1450 final definition (which will end up in RELOCATION)
1451 and the GP value of OUTPUT_BFD (which is in GP). */
1452 addend = ecoff_data (input_bfd)->gp - gp;
1453 }
1454 else if (! info->relocateable
1455 || h->root.type == bfd_link_hash_defined
1456 || h->root.type == bfd_link_hash_defweak)
1457 {
1458 /* This is a relocation against a defined symbol. The
1459 current addend in the instruction is simply the
1460 desired offset into the symbol (normally zero). We
1461 are going to change this into a relocation against a
1462 defined symbol, so we want the instruction to hold
1463 the difference between the final definition of the
1464 symbol (which will end up in RELOCATION) and the GP
1465 value of OUTPUT_BFD (which is in GP). */
1466 addend = - gp;
1467 }
1468 else
1469 {
1470 /* This is a relocation against an undefined or common
1471 symbol. The current addend in the instruction is
1472 simply the desired offset into the symbol (normally
1473 zero). We are generating relocateable output, and we
1474 aren't going to define this symbol, so we just leave
1475 the instruction alone. */
1476 addend = 0;
1477 }
1478 }
1479
1480 /* If we are relaxing, mips_relax_section may have set
1481 offsets[i] to some value. A value of 1 means we must expand
1482 a PC relative branch into a multi-instruction of sequence,
1483 and any other value is an addend. */
1484 if (offsets != NULL
1485 && offsets[i] != 0)
1486 {
1487 BFD_ASSERT (! info->relocateable);
1488 BFD_ASSERT (int_rel.r_type == MIPS_R_PCREL16
1489 || int_rel.r_type == MIPS_R_RELHI
1490 || int_rel.r_type == MIPS_R_RELLO);
1491 if (offsets[i] != 1)
1492 addend += offsets[i];
1493 else
1494 {
1495 bfd_byte *here;
1496
1497 BFD_ASSERT (int_rel.r_extern
1498 && int_rel.r_type == MIPS_R_PCREL16);
1499
1500 /* Move the rest of the instructions up. */
1501 here = (contents
1502 + adjust
1503 + int_rel.r_vaddr
1504 - input_section->vma);
1505 memmove (here + PCREL16_EXPANSION_ADJUSTMENT, here,
1506 (size_t) (input_section->_raw_size
1507 - (int_rel.r_vaddr - input_section->vma)));
1508
1509 /* Generate the new instructions. */
1510 if (! mips_relax_pcrel16 (info, input_bfd, input_section,
1511 h, here,
1512 (input_section->output_section->vma
1513 + input_section->output_offset
1514 + (int_rel.r_vaddr
1515 - input_section->vma)
1516 + adjust)))
1517 return false;
1518
1519 /* We must adjust everything else up a notch. */
1520 adjust += PCREL16_EXPANSION_ADJUSTMENT;
1521
1522 /* mips_relax_pcrel16 handles all the details of this
1523 relocation. */
1524 continue;
1525 }
1526 }
1527
1528 /* If we are relaxing, and this is a reloc against the .text
1529 segment, we may need to adjust it if some branches have been
1530 expanded. The reloc types which are likely to occur in the
1531 .text section are handled efficiently by mips_relax_section,
1532 and thus do not need to be handled here. */
1533 if (ecoff_data (input_bfd)->debug_info.adjust != NULL
1534 && ! int_rel.r_extern
1535 && int_rel.r_symndx == RELOC_SECTION_TEXT
1536 && (strcmp (bfd_get_section_name (input_bfd, input_section),
1537 ".text") != 0
1538 || (int_rel.r_type != MIPS_R_PCREL16
1539 && int_rel.r_type != MIPS_R_SWITCH
1540 && int_rel.r_type != MIPS_R_RELHI
1541 && int_rel.r_type != MIPS_R_RELLO)))
1542 {
1543 bfd_vma adr;
1544 struct ecoff_value_adjust *a;
1545
1546 /* We need to get the addend so that we know whether we need
1547 to adjust the address. */
1548 BFD_ASSERT (int_rel.r_type == MIPS_R_REFWORD);
1549
1550 adr = bfd_get_32 (input_bfd,
1551 (contents
1552 + adjust
1553 + int_rel.r_vaddr
1554 - input_section->vma));
1555
1556 for (a = ecoff_data (input_bfd)->debug_info.adjust;
1557 a != (struct ecoff_value_adjust *) NULL;
1558 a = a->next)
1559 {
1560 if (adr >= a->start && adr < a->end)
1561 addend += a->adjust;
1562 }
1563 }
1564
1565 if (info->relocateable)
1566 {
1567 /* We are generating relocateable output, and must convert
1568 the existing reloc. */
1569 if (int_rel.r_extern)
1570 {
1571 if ((h->root.type == bfd_link_hash_defined
1572 || h->root.type == bfd_link_hash_defweak)
1573 && ! bfd_is_abs_section (h->root.u.def.section))
1574 {
1575 const char *name;
1576
1577 /* This symbol is defined in the output. Convert
1578 the reloc from being against the symbol to being
1579 against the section. */
1580
1581 /* Clear the r_extern bit. */
1582 int_rel.r_extern = 0;
1583
1584 /* Compute a new r_symndx value. */
1585 s = h->root.u.def.section;
1586 name = bfd_get_section_name (output_bfd,
1587 s->output_section);
1588
1589 int_rel.r_symndx = -1;
1590 switch (name[1])
1591 {
1592 case 'b':
1593 if (strcmp (name, ".bss") == 0)
1594 int_rel.r_symndx = RELOC_SECTION_BSS;
1595 break;
1596 case 'd':
1597 if (strcmp (name, ".data") == 0)
1598 int_rel.r_symndx = RELOC_SECTION_DATA;
1599 break;
1600 case 'f':
1601 if (strcmp (name, ".fini") == 0)
1602 int_rel.r_symndx = RELOC_SECTION_FINI;
1603 break;
1604 case 'i':
1605 if (strcmp (name, ".init") == 0)
1606 int_rel.r_symndx = RELOC_SECTION_INIT;
1607 break;
1608 case 'l':
1609 if (strcmp (name, ".lit8") == 0)
1610 int_rel.r_symndx = RELOC_SECTION_LIT8;
1611 else if (strcmp (name, ".lit4") == 0)
1612 int_rel.r_symndx = RELOC_SECTION_LIT4;
1613 break;
1614 case 'r':
1615 if (strcmp (name, ".rdata") == 0)
1616 int_rel.r_symndx = RELOC_SECTION_RDATA;
1617 break;
1618 case 's':
1619 if (strcmp (name, ".sdata") == 0)
1620 int_rel.r_symndx = RELOC_SECTION_SDATA;
1621 else if (strcmp (name, ".sbss") == 0)
1622 int_rel.r_symndx = RELOC_SECTION_SBSS;
1623 break;
1624 case 't':
1625 if (strcmp (name, ".text") == 0)
1626 int_rel.r_symndx = RELOC_SECTION_TEXT;
1627 break;
1628 }
1629
1630 if (int_rel.r_symndx == -1)
1631 abort ();
1632
1633 /* Add the section VMA and the symbol value. */
1634 relocation = (h->root.u.def.value
1635 + s->output_section->vma
1636 + s->output_offset);
1637
1638 /* For a PC relative relocation, the object file
1639 currently holds just the addend. We must adjust
1640 by the address to get the right value. */
1641 if (howto->pc_relative)
1642 {
1643 relocation -= int_rel.r_vaddr - input_section->vma;
1644
1645 /* If we are converting a RELHI or RELLO reloc
1646 from being against an external symbol to
1647 being against a section, we must put a
1648 special value into the r_offset field. This
1649 value is the old addend. The r_offset for
1650 both the RELHI and RELLO relocs are the same,
1651 and we set both when we see RELHI. */
1652 if (int_rel.r_type == MIPS_R_RELHI)
1653 {
1654 long addhi, addlo;
1655
1656 addhi = bfd_get_32 (input_bfd,
1657 (contents
1658 + adjust
1659 + int_rel.r_vaddr
1660 - input_section->vma));
1661 addhi &= 0xffff;
1662 if (addhi & 0x8000)
1663 addhi -= 0x10000;
1664 addhi <<= 16;
1665
1666 if (! use_lo)
1667 addlo = 0;
1668 else
1669 {
1670 addlo = bfd_get_32 (input_bfd,
1671 (contents
1672 + adjust
1673 + lo_int_rel.r_vaddr
1674 - input_section->vma));
1675 addlo &= 0xffff;
1676 if (addlo & 0x8000)
1677 addlo -= 0x10000;
1678
1679 lo_int_rel.r_offset = addhi + addlo;
1680 }
1681
1682 int_rel.r_offset = addhi + addlo;
1683 }
1684 }
1685
1686 h = NULL;
1687 }
1688 else
1689 {
1690 /* Change the symndx value to the right one for the
1691 output BFD. */
1692 int_rel.r_symndx = h->indx;
1693 if (int_rel.r_symndx == -1)
1694 {
1695 /* This symbol is not being written out. */
1696 if (! ((*info->callbacks->unattached_reloc)
1697 (info, h->root.root.string, input_bfd,
1698 input_section,
1699 int_rel.r_vaddr - input_section->vma)))
1700 return false;
1701 int_rel.r_symndx = 0;
1702 }
1703 relocation = 0;
1704 }
1705 }
1706 else
1707 {
1708 /* This is a relocation against a section. Adjust the
1709 value by the amount the section moved. */
1710 relocation = (s->output_section->vma
1711 + s->output_offset
1712 - s->vma);
1713 }
1714
1715 relocation += addend;
1716 addend = 0;
1717
1718 /* Adjust a PC relative relocation by removing the reference
1719 to the original address in the section and including the
1720 reference to the new address. However, external RELHI
1721 and RELLO relocs are PC relative, but don't include any
1722 reference to the address. The addend is merely an
1723 addend. */
1724 if (howto->pc_relative
1725 && (! int_rel.r_extern
1726 || (int_rel.r_type != MIPS_R_RELHI
1727 && int_rel.r_type != MIPS_R_RELLO)))
1728 relocation -= (input_section->output_section->vma
1729 + input_section->output_offset
1730 - input_section->vma);
1731
1732 /* Adjust the contents. */
1733 if (relocation == 0)
1734 r = bfd_reloc_ok;
1735 else
1736 {
1737 if (int_rel.r_type != MIPS_R_REFHI
1738 && int_rel.r_type != MIPS_R_RELHI)
1739 r = _bfd_relocate_contents (howto, input_bfd, relocation,
1740 (contents
1741 + adjust
1742 + int_rel.r_vaddr
1743 - input_section->vma));
1744 else
1745 {
1746 mips_relocate_hi (&int_rel,
1747 use_lo ? &lo_int_rel : NULL,
1748 input_bfd, input_section, contents,
1749 adjust, relocation,
1750 int_rel.r_type == MIPS_R_RELHI);
1751 r = bfd_reloc_ok;
1752 }
1753 }
1754
1755 /* Adjust the reloc address. */
1756 int_rel.r_vaddr += (input_section->output_section->vma
1757 + input_section->output_offset
1758 - input_section->vma);
1759
1760 /* Save the changed reloc information. */
1761 mips_ecoff_swap_reloc_out (input_bfd, &int_rel, (PTR) ext_rel);
1762 }
1763 else
1764 {
1765 /* We are producing a final executable. */
1766 if (int_rel.r_extern)
1767 {
1768 /* This is a reloc against a symbol. */
1769 if (h->root.type == bfd_link_hash_defined
1770 || h->root.type == bfd_link_hash_defweak)
1771 {
1772 asection *hsec;
1773
1774 hsec = h->root.u.def.section;
1775 relocation = (h->root.u.def.value
1776 + hsec->output_section->vma
1777 + hsec->output_offset);
1778 }
1779 else
1780 {
1781 if (! ((*info->callbacks->undefined_symbol)
1782 (info, h->root.root.string, input_bfd,
1783 input_section,
1784 int_rel.r_vaddr - input_section->vma, true)))
1785 return false;
1786 relocation = 0;
1787 }
1788 }
1789 else
1790 {
1791 /* This is a reloc against a section. */
1792 relocation = (s->output_section->vma
1793 + s->output_offset
1794 - s->vma);
1795
1796 /* A PC relative reloc is already correct in the object
1797 file. Make it look like a pcrel_offset relocation by
1798 adding in the start address. */
1799 if (howto->pc_relative)
1800 {
1801 if (int_rel.r_type != MIPS_R_RELHI || ! use_lo)
1802 relocation += int_rel.r_vaddr + adjust;
1803 else
1804 relocation += lo_int_rel.r_vaddr + adjust;
1805 }
1806 }
1807
1808 if (int_rel.r_type != MIPS_R_REFHI
1809 && int_rel.r_type != MIPS_R_RELHI)
1810 r = _bfd_final_link_relocate (howto,
1811 input_bfd,
1812 input_section,
1813 contents,
1814 (int_rel.r_vaddr
1815 - input_section->vma
1816 + adjust),
1817 relocation,
1818 addend);
1819 else
1820 {
1821 mips_relocate_hi (&int_rel,
1822 use_lo ? &lo_int_rel : NULL,
1823 input_bfd, input_section, contents, adjust,
1824 relocation,
1825 int_rel.r_type == MIPS_R_RELHI);
1826 r = bfd_reloc_ok;
1827 }
1828 }
1829
1830 /* MIPS_R_JMPADDR requires peculiar overflow detection. The
1831 instruction provides a 28 bit address (the two lower bits are
1832 implicit zeroes) which is combined with the upper four bits
1833 of the instruction address. */
1834 if (r == bfd_reloc_ok
1835 && int_rel.r_type == MIPS_R_JMPADDR
1836 && (((relocation
1837 + addend
1838 + (int_rel.r_extern ? 0 : s->vma))
1839 & 0xf0000000)
1840 != ((input_section->output_section->vma
1841 + input_section->output_offset
1842 + (int_rel.r_vaddr - input_section->vma)
1843 + adjust)
1844 & 0xf0000000)))
1845 r = bfd_reloc_overflow;
1846
1847 if (r != bfd_reloc_ok)
1848 {
1849 switch (r)
1850 {
1851 default:
1852 case bfd_reloc_outofrange:
1853 abort ();
1854 case bfd_reloc_overflow:
1855 {
1856 const char *name;
1857
1858 if (int_rel.r_extern)
1859 name = h->root.root.string;
1860 else
1861 name = bfd_section_name (input_bfd, s);
1862 if (! ((*info->callbacks->reloc_overflow)
1863 (info, name, howto->name, (bfd_vma) 0,
1864 input_bfd, input_section,
1865 int_rel.r_vaddr - input_section->vma)))
1866 return false;
1867 }
1868 break;
1869 }
1870 }
1871 }
1872
1873 return true;
1874 }
1875 \f
1876 /* Read in the relocs for a section. */
1877
1878 static boolean
1879 mips_read_relocs (abfd, sec)
1880 bfd *abfd;
1881 asection *sec;
1882 {
1883 struct ecoff_section_tdata *section_tdata;
1884
1885 section_tdata = ecoff_section_data (abfd, sec);
1886 if (section_tdata == (struct ecoff_section_tdata *) NULL)
1887 {
1888 sec->used_by_bfd =
1889 (PTR) bfd_alloc (abfd, sizeof (struct ecoff_section_tdata));
1890 if (sec->used_by_bfd == NULL)
1891 return false;
1892
1893 section_tdata = ecoff_section_data (abfd, sec);
1894 section_tdata->external_relocs = NULL;
1895 section_tdata->contents = NULL;
1896 section_tdata->offsets = NULL;
1897 }
1898
1899 if (section_tdata->external_relocs == NULL)
1900 {
1901 bfd_size_type external_relocs_size;
1902
1903 external_relocs_size = (ecoff_backend (abfd)->external_reloc_size
1904 * sec->reloc_count);
1905
1906 section_tdata->external_relocs =
1907 (PTR) bfd_alloc (abfd, external_relocs_size);
1908 if (section_tdata->external_relocs == NULL && external_relocs_size != 0)
1909 return false;
1910
1911 if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET) != 0
1912 || (bfd_read (section_tdata->external_relocs, 1,
1913 external_relocs_size, abfd)
1914 != external_relocs_size))
1915 return false;
1916 }
1917
1918 return true;
1919 }
1920
1921 /* Relax a section when linking a MIPS ECOFF file. This is used for
1922 embedded PIC code, which always uses PC relative branches which
1923 only have an 18 bit range on MIPS. If a branch is not in range, we
1924 generate a long instruction sequence to compensate. Each time we
1925 find a branch to expand, we have to check all the others again to
1926 make sure they are still in range. This is slow, but it only has
1927 to be done when -relax is passed to the linker.
1928
1929 This routine figures out which branches need to expand; the actual
1930 expansion is done in mips_relocate_section when the section
1931 contents are relocated. The information is stored in the offsets
1932 field of the ecoff_section_tdata structure. An offset of 1 means
1933 that the branch must be expanded into a multi-instruction PC
1934 relative branch (such an offset will only occur for a PC relative
1935 branch to an external symbol). Any other offset must be a multiple
1936 of four, and is the amount to change the branch by (such an offset
1937 will only occur for a PC relative branch within the same section).
1938
1939 We do not modify the section relocs or contents themselves so that
1940 if memory usage becomes an issue we can discard them and read them
1941 again. The only information we must save in memory between this
1942 routine and the mips_relocate_section routine is the table of
1943 offsets. */
1944
1945 static boolean
1946 mips_relax_section (abfd, sec, info, again)
1947 bfd *abfd;
1948 asection *sec;
1949 struct bfd_link_info *info;
1950 boolean *again;
1951 {
1952 struct ecoff_section_tdata *section_tdata;
1953 bfd_byte *contents = NULL;
1954 long *offsets;
1955 struct external_reloc *ext_rel;
1956 struct external_reloc *ext_rel_end;
1957 unsigned int i;
1958
1959 /* Assume we are not going to need another pass. */
1960 *again = false;
1961
1962 /* If we are not generating an ECOFF file, this is much too
1963 confusing to deal with. */
1964 if (info->hash->creator->flavour != bfd_get_flavour (abfd))
1965 return true;
1966
1967 /* If there are no relocs, there is nothing to do. */
1968 if (sec->reloc_count == 0)
1969 return true;
1970
1971 /* We are only interested in PC relative relocs, and why would there
1972 ever be one from anything but the .text section? */
1973 if (strcmp (bfd_get_section_name (abfd, sec), ".text") != 0)
1974 return true;
1975
1976 /* Read in the relocs, if we haven't already got them. */
1977 section_tdata = ecoff_section_data (abfd, sec);
1978 if (section_tdata == (struct ecoff_section_tdata *) NULL
1979 || section_tdata->external_relocs == NULL)
1980 {
1981 if (! mips_read_relocs (abfd, sec))
1982 goto error_return;
1983 section_tdata = ecoff_section_data (abfd, sec);
1984 }
1985
1986 if (sec->_cooked_size == 0)
1987 {
1988 /* We must initialize _cooked_size only the first time we are
1989 called. */
1990 sec->_cooked_size = sec->_raw_size;
1991 }
1992
1993 contents = section_tdata->contents;
1994 offsets = section_tdata->offsets;
1995
1996 /* Look for any external PC relative relocs. Internal PC relative
1997 relocs are already correct in the object file, so they certainly
1998 can not overflow. */
1999 ext_rel = (struct external_reloc *) section_tdata->external_relocs;
2000 ext_rel_end = ext_rel + sec->reloc_count;
2001 for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++)
2002 {
2003 struct internal_reloc int_rel;
2004 struct ecoff_link_hash_entry *h;
2005 asection *hsec;
2006 bfd_signed_vma relocation;
2007 struct external_reloc *adj_ext_rel;
2008 unsigned int adj_i;
2009 unsigned long ext_count;
2010 struct ecoff_link_hash_entry **adj_h_ptr;
2011 struct ecoff_link_hash_entry **adj_h_ptr_end;
2012 struct ecoff_value_adjust *adjust;
2013
2014 /* If we have already expanded this reloc, we certainly don't
2015 need to do it again. */
2016 if (offsets != (long *) NULL && offsets[i] == 1)
2017 continue;
2018
2019 /* Quickly check that this reloc is external PCREL16. */
2020 if (bfd_header_big_endian (abfd))
2021 {
2022 if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_BIG) == 0
2023 || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_BIG)
2024 >> RELOC_BITS3_TYPE_SH_BIG)
2025 != MIPS_R_PCREL16))
2026 continue;
2027 }
2028 else
2029 {
2030 if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) == 0
2031 || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_LITTLE)
2032 >> RELOC_BITS3_TYPE_SH_LITTLE)
2033 != MIPS_R_PCREL16))
2034 continue;
2035 }
2036
2037 mips_ecoff_swap_reloc_in (abfd, (PTR) ext_rel, &int_rel);
2038
2039 h = ecoff_data (abfd)->sym_hashes[int_rel.r_symndx];
2040 if (h == (struct ecoff_link_hash_entry *) NULL)
2041 abort ();
2042
2043 if (h->root.type != bfd_link_hash_defined
2044 && h->root.type != bfd_link_hash_defweak)
2045 {
2046 /* Just ignore undefined symbols. These will presumably
2047 generate an error later in the link. */
2048 continue;
2049 }
2050
2051 /* Get the value of the symbol. */
2052 hsec = h->root.u.def.section;
2053 relocation = (h->root.u.def.value
2054 + hsec->output_section->vma
2055 + hsec->output_offset);
2056
2057 /* Subtract out the current address. */
2058 relocation -= (sec->output_section->vma
2059 + sec->output_offset
2060 + (int_rel.r_vaddr - sec->vma));
2061
2062 /* The addend is stored in the object file. In the normal case
2063 of ``bal symbol'', the addend will be -4. It will only be
2064 different in the case of ``bal symbol+constant''. To avoid
2065 always reading in the section contents, we don't check the
2066 addend in the object file (we could easily check the contents
2067 if we happen to have already read them in, but I fear that
2068 this could be confusing). This means we will screw up if
2069 there is a branch to a symbol that is in range, but added to
2070 a constant which puts it out of range; in such a case the
2071 link will fail with a reloc overflow error. Since the
2072 compiler will never generate such code, it should be easy
2073 enough to work around it by changing the assembly code in the
2074 source file. */
2075 relocation -= 4;
2076
2077 /* Now RELOCATION is the number we want to put in the object
2078 file. See whether it fits. */
2079 if (relocation >= -0x20000 && relocation < 0x20000)
2080 continue;
2081
2082 /* Now that we know this reloc needs work, which will rarely
2083 happen, go ahead and grab the section contents. */
2084 if (contents == (bfd_byte *) NULL)
2085 {
2086 if (info->keep_memory)
2087 contents = (bfd_byte *) bfd_alloc (abfd, sec->_raw_size);
2088 else
2089 contents = (bfd_byte *) bfd_malloc ((size_t) sec->_raw_size);
2090 if (contents == (bfd_byte *) NULL)
2091 goto error_return;
2092 if (! bfd_get_section_contents (abfd, sec, (PTR) contents,
2093 (file_ptr) 0, sec->_raw_size))
2094 goto error_return;
2095 if (info->keep_memory)
2096 section_tdata->contents = contents;
2097 }
2098
2099 /* We only support changing the bal instruction. It would be
2100 possible to handle other PC relative branches, but some of
2101 them (the conditional branches) would require a different
2102 length instruction sequence which would complicate both this
2103 routine and mips_relax_pcrel16. It could be written if
2104 somebody felt it were important. Ignoring this reloc will
2105 presumably cause a reloc overflow error later on. */
2106 if (bfd_get_32 (abfd, contents + int_rel.r_vaddr - sec->vma)
2107 != 0x0411ffff) /* bgezal $0,. == bal . */
2108 continue;
2109
2110 /* Bother. We need to expand this reloc, and we will need to
2111 make another relaxation pass since this change may put other
2112 relocs out of range. We need to examine the local branches
2113 and we need to allocate memory to hold the offsets we must
2114 add to them. We also need to adjust the values of all
2115 symbols in the object file following this location. */
2116
2117 sec->_cooked_size += PCREL16_EXPANSION_ADJUSTMENT;
2118 *again = true;
2119
2120 if (offsets == (long *) NULL)
2121 {
2122 size_t size;
2123
2124 size = sec->reloc_count * sizeof (long);
2125 offsets = (long *) bfd_alloc (abfd, size);
2126 if (offsets == (long *) NULL)
2127 goto error_return;
2128 memset (offsets, 0, size);
2129 section_tdata->offsets = offsets;
2130 }
2131
2132 offsets[i] = 1;
2133
2134 /* Now look for all PC relative references that cross this reloc
2135 and adjust their offsets. */
2136 adj_ext_rel = (struct external_reloc *) section_tdata->external_relocs;
2137 for (adj_i = 0; adj_ext_rel < ext_rel_end; adj_ext_rel++, adj_i++)
2138 {
2139 struct internal_reloc adj_int_rel;
2140 bfd_vma start, stop;
2141 int change;
2142
2143 mips_ecoff_swap_reloc_in (abfd, (PTR) adj_ext_rel, &adj_int_rel);
2144
2145 if (adj_int_rel.r_type == MIPS_R_PCREL16)
2146 {
2147 unsigned long insn;
2148
2149 /* We only care about local references. External ones
2150 will be relocated correctly anyhow. */
2151 if (adj_int_rel.r_extern)
2152 continue;
2153
2154 /* We are only interested in a PC relative reloc within
2155 this section. FIXME: Cross section PC relative
2156 relocs may not be handled correctly; does anybody
2157 care? */
2158 if (adj_int_rel.r_symndx != RELOC_SECTION_TEXT)
2159 continue;
2160
2161 start = adj_int_rel.r_vaddr;
2162
2163 insn = bfd_get_32 (abfd,
2164 contents + adj_int_rel.r_vaddr - sec->vma);
2165
2166 stop = (insn & 0xffff) << 2;
2167 if ((stop & 0x20000) != 0)
2168 stop -= 0x40000;
2169 stop += adj_int_rel.r_vaddr + 4;
2170 }
2171 else if (adj_int_rel.r_type == MIPS_R_RELHI)
2172 {
2173 struct internal_reloc rello;
2174 long addhi, addlo;
2175
2176 /* The next reloc must be MIPS_R_RELLO, and we handle
2177 them together. */
2178 BFD_ASSERT (adj_ext_rel + 1 < ext_rel_end);
2179
2180 mips_ecoff_swap_reloc_in (abfd, (PTR) (adj_ext_rel + 1), &rello);
2181
2182 BFD_ASSERT (rello.r_type == MIPS_R_RELLO);
2183
2184 addhi = bfd_get_32 (abfd,
2185 contents + adj_int_rel.r_vaddr - sec->vma);
2186 addhi &= 0xffff;
2187 if (addhi & 0x8000)
2188 addhi -= 0x10000;
2189 addhi <<= 16;
2190
2191 addlo = bfd_get_32 (abfd, contents + rello.r_vaddr - sec->vma);
2192 addlo &= 0xffff;
2193 if (addlo & 0x8000)
2194 addlo -= 0x10000;
2195
2196 if (adj_int_rel.r_extern)
2197 {
2198 /* The value we want here is
2199 sym - RELLOaddr + addend
2200 which we can express as
2201 sym - (RELLOaddr - addend)
2202 Therefore if we are expanding the area between
2203 RELLOaddr and RELLOaddr - addend we must adjust
2204 the addend. This is admittedly ambiguous, since
2205 we might mean (sym + addend) - RELLOaddr, but in
2206 practice we don't, and there is no way to handle
2207 that case correctly since at this point we have
2208 no idea whether any reloc is being expanded
2209 between sym and sym + addend. */
2210 start = rello.r_vaddr - (addhi + addlo);
2211 stop = rello.r_vaddr;
2212 }
2213 else
2214 {
2215 /* An internal RELHI/RELLO pair represents the
2216 difference between two addresses, $LC0 - foo.
2217 The symndx value is actually the difference
2218 between the reloc address and $LC0. This lets us
2219 compute $LC0, and, by considering the addend,
2220 foo. If the reloc we are expanding falls between
2221 those two relocs, we must adjust the addend. At
2222 this point, the symndx value is actually in the
2223 r_offset field, where it was put by
2224 mips_ecoff_swap_reloc_in. */
2225 start = rello.r_vaddr - adj_int_rel.r_offset;
2226 stop = start + addhi + addlo;
2227 }
2228 }
2229 else if (adj_int_rel.r_type == MIPS_R_SWITCH)
2230 {
2231 /* A MIPS_R_SWITCH reloc represents a word of the form
2232 .word $L3-$LS12
2233 The value in the object file is correct, assuming the
2234 original value of $L3. The symndx value is actually
2235 the difference between the reloc address and $LS12.
2236 This lets us compute the original value of $LS12 as
2237 vaddr - symndx
2238 and the original value of $L3 as
2239 vaddr - symndx + addend
2240 where addend is the value from the object file. At
2241 this point, the symndx value is actually found in the
2242 r_offset field, since it was moved by
2243 mips_ecoff_swap_reloc_in. */
2244 start = adj_int_rel.r_vaddr - adj_int_rel.r_offset;
2245 stop = start + bfd_get_32 (abfd,
2246 (contents
2247 + adj_int_rel.r_vaddr
2248 - sec->vma));
2249 }
2250 else
2251 continue;
2252
2253 /* If the range expressed by this reloc, which is the
2254 distance between START and STOP crosses the reloc we are
2255 expanding, we must adjust the offset. The sign of the
2256 adjustment depends upon the direction in which the range
2257 crosses the reloc being expanded. */
2258 if (start <= int_rel.r_vaddr && stop > int_rel.r_vaddr)
2259 change = PCREL16_EXPANSION_ADJUSTMENT;
2260 else if (start > int_rel.r_vaddr && stop <= int_rel.r_vaddr)
2261 change = - PCREL16_EXPANSION_ADJUSTMENT;
2262 else
2263 change = 0;
2264
2265 offsets[adj_i] += change;
2266
2267 if (adj_int_rel.r_type == MIPS_R_RELHI)
2268 {
2269 adj_ext_rel++;
2270 adj_i++;
2271 offsets[adj_i] += change;
2272 }
2273 }
2274
2275 /* Find all symbols in this section defined by this object file
2276 and adjust their values. Note that we decide whether to
2277 adjust the value based on the value stored in the ECOFF EXTR
2278 structure, because the value stored in the hash table may
2279 have been changed by an earlier expanded reloc and thus may
2280 no longer correctly indicate whether the symbol is before or
2281 after the expanded reloc. */
2282 ext_count = ecoff_data (abfd)->debug_info.symbolic_header.iextMax;
2283 adj_h_ptr = ecoff_data (abfd)->sym_hashes;
2284 adj_h_ptr_end = adj_h_ptr + ext_count;
2285 for (; adj_h_ptr < adj_h_ptr_end; adj_h_ptr++)
2286 {
2287 struct ecoff_link_hash_entry *adj_h;
2288
2289 adj_h = *adj_h_ptr;
2290 if (adj_h != (struct ecoff_link_hash_entry *) NULL
2291 && (adj_h->root.type == bfd_link_hash_defined
2292 || adj_h->root.type == bfd_link_hash_defweak)
2293 && adj_h->root.u.def.section == sec
2294 && adj_h->esym.asym.value > int_rel.r_vaddr)
2295 adj_h->root.u.def.value += PCREL16_EXPANSION_ADJUSTMENT;
2296 }
2297
2298 /* Add an entry to the symbol value adjust list. This is used
2299 by bfd_ecoff_debug_accumulate to adjust the values of
2300 internal symbols and FDR's. */
2301 adjust = ((struct ecoff_value_adjust *)
2302 bfd_alloc (abfd, sizeof (struct ecoff_value_adjust)));
2303 if (adjust == (struct ecoff_value_adjust *) NULL)
2304 goto error_return;
2305
2306 adjust->start = int_rel.r_vaddr;
2307 adjust->end = sec->vma + sec->_raw_size;
2308 adjust->adjust = PCREL16_EXPANSION_ADJUSTMENT;
2309
2310 adjust->next = ecoff_data (abfd)->debug_info.adjust;
2311 ecoff_data (abfd)->debug_info.adjust = adjust;
2312 }
2313
2314 if (contents != (bfd_byte *) NULL && ! info->keep_memory)
2315 free (contents);
2316
2317 return true;
2318
2319 error_return:
2320 if (contents != (bfd_byte *) NULL && ! info->keep_memory)
2321 free (contents);
2322 return false;
2323 }
2324
2325 /* This routine is called from mips_relocate_section when a PC
2326 relative reloc must be expanded into the five instruction sequence.
2327 It handles all the details of the expansion, including resolving
2328 the reloc. */
2329
2330 static boolean
2331 mips_relax_pcrel16 (info, input_bfd, input_section, h, location, address)
2332 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2333 bfd *input_bfd;
2334 asection *input_section ATTRIBUTE_UNUSED;
2335 struct ecoff_link_hash_entry *h;
2336 bfd_byte *location;
2337 bfd_vma address;
2338 {
2339 bfd_vma relocation;
2340
2341 /* 0x0411ffff is bgezal $0,. == bal . */
2342 BFD_ASSERT (bfd_get_32 (input_bfd, location) == 0x0411ffff);
2343
2344 /* We need to compute the distance between the symbol and the
2345 current address plus eight. */
2346 relocation = (h->root.u.def.value
2347 + h->root.u.def.section->output_section->vma
2348 + h->root.u.def.section->output_offset);
2349 relocation -= address + 8;
2350
2351 /* If the lower half is negative, increment the upper 16 half. */
2352 if ((relocation & 0x8000) != 0)
2353 relocation += 0x10000;
2354
2355 bfd_put_32 (input_bfd, 0x04110001, location); /* bal .+8 */
2356 bfd_put_32 (input_bfd,
2357 0x3c010000 | ((relocation >> 16) & 0xffff), /* lui $at,XX */
2358 location + 4);
2359 bfd_put_32 (input_bfd,
2360 0x24210000 | (relocation & 0xffff), /* addiu $at,$at,XX */
2361 location + 8);
2362 bfd_put_32 (input_bfd, 0x003f0821, location + 12); /* addu $at,$at,$ra */
2363 bfd_put_32 (input_bfd, 0x0020f809, location + 16); /* jalr $at */
2364
2365 return true;
2366 }
2367
2368 /* Given a .sdata section and a .rel.sdata in-memory section, store
2369 relocation information into the .rel.sdata section which can be
2370 used at runtime to relocate the section. This is called by the
2371 linker when the --embedded-relocs switch is used. This is called
2372 after the add_symbols entry point has been called for all the
2373 objects, and before the final_link entry point is called. This
2374 function presumes that the object was compiled using
2375 -membedded-pic. */
2376
2377 boolean
2378 bfd_mips_ecoff_create_embedded_relocs (abfd, info, datasec, relsec, errmsg)
2379 bfd *abfd;
2380 struct bfd_link_info *info;
2381 asection *datasec;
2382 asection *relsec;
2383 char **errmsg;
2384 {
2385 struct ecoff_link_hash_entry **sym_hashes;
2386 struct ecoff_section_tdata *section_tdata;
2387 struct external_reloc *ext_rel;
2388 struct external_reloc *ext_rel_end;
2389 bfd_byte *p;
2390
2391 BFD_ASSERT (! info->relocateable);
2392
2393 *errmsg = NULL;
2394
2395 if (datasec->reloc_count == 0)
2396 return true;
2397
2398 sym_hashes = ecoff_data (abfd)->sym_hashes;
2399
2400 if (! mips_read_relocs (abfd, datasec))
2401 return false;
2402
2403 relsec->contents = (bfd_byte *) bfd_alloc (abfd, datasec->reloc_count * 4);
2404 if (relsec->contents == NULL)
2405 return false;
2406
2407 p = relsec->contents;
2408
2409 section_tdata = ecoff_section_data (abfd, datasec);
2410 ext_rel = (struct external_reloc *) section_tdata->external_relocs;
2411 ext_rel_end = ext_rel + datasec->reloc_count;
2412 for (; ext_rel < ext_rel_end; ext_rel++, p += 4)
2413 {
2414 struct internal_reloc int_rel;
2415 boolean text_relative;
2416
2417 mips_ecoff_swap_reloc_in (abfd, (PTR) ext_rel, &int_rel);
2418
2419 /* We are going to write a four byte word into the runtime reloc
2420 section. The word will be the address in the data section
2421 which must be relocated. This must be on a word boundary,
2422 which means the lower two bits must be zero. We use the
2423 least significant bit to indicate how the value in the data
2424 section must be relocated. A 0 means that the value is
2425 relative to the text section, while a 1 indicates that the
2426 value is relative to the data section. Given that we are
2427 assuming the code was compiled using -membedded-pic, there
2428 should not be any other possibilities. */
2429
2430 /* We can only relocate REFWORD relocs at run time. */
2431 if (int_rel.r_type != MIPS_R_REFWORD)
2432 {
2433 *errmsg = _("unsupported reloc type");
2434 bfd_set_error (bfd_error_bad_value);
2435 return false;
2436 }
2437
2438 if (int_rel.r_extern)
2439 {
2440 struct ecoff_link_hash_entry *h;
2441
2442 h = sym_hashes[int_rel.r_symndx];
2443 /* If h is NULL, that means that there is a reloc against an
2444 external symbol which we thought was just a debugging
2445 symbol. This should not happen. */
2446 if (h == (struct ecoff_link_hash_entry *) NULL)
2447 abort ();
2448 if ((h->root.type == bfd_link_hash_defined
2449 || h->root.type == bfd_link_hash_defweak)
2450 && (h->root.u.def.section->flags & SEC_CODE) != 0)
2451 text_relative = true;
2452 else
2453 text_relative = false;
2454 }
2455 else
2456 {
2457 switch (int_rel.r_symndx)
2458 {
2459 case RELOC_SECTION_TEXT:
2460 text_relative = true;
2461 break;
2462 case RELOC_SECTION_SDATA:
2463 case RELOC_SECTION_SBSS:
2464 case RELOC_SECTION_LIT8:
2465 text_relative = false;
2466 break;
2467 default:
2468 /* No other sections should appear in -membedded-pic
2469 code. */
2470 *errmsg = _("reloc against unsupported section");
2471 bfd_set_error (bfd_error_bad_value);
2472 return false;
2473 }
2474 }
2475
2476 if ((int_rel.r_offset & 3) != 0)
2477 {
2478 *errmsg = _("reloc not properly aligned");
2479 bfd_set_error (bfd_error_bad_value);
2480 return false;
2481 }
2482
2483 bfd_put_32 (abfd,
2484 (int_rel.r_vaddr - datasec->vma + datasec->output_offset
2485 + (text_relative ? 0 : 1)),
2486 p);
2487 }
2488
2489 return true;
2490 }
2491 \f
2492 /* This is the ECOFF backend structure. The backend field of the
2493 target vector points to this. */
2494
2495 static const struct ecoff_backend_data mips_ecoff_backend_data =
2496 {
2497 /* COFF backend structure. */
2498 {
2499 (void (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR))) bfd_void, /* aux_in */
2500 (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_in */
2501 (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_in */
2502 (unsigned (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR)))bfd_void,/*aux_out*/
2503 (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_out */
2504 (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_out */
2505 (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* reloc_out */
2506 mips_ecoff_swap_filehdr_out, mips_ecoff_swap_aouthdr_out,
2507 mips_ecoff_swap_scnhdr_out,
2508 FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, 0, FILNMLEN, true, false, 4, false, 2,
2509 mips_ecoff_swap_filehdr_in, mips_ecoff_swap_aouthdr_in,
2510 mips_ecoff_swap_scnhdr_in, NULL,
2511 mips_ecoff_bad_format_hook, _bfd_ecoff_set_arch_mach_hook,
2512 _bfd_ecoff_mkobject_hook, _bfd_ecoff_styp_to_sec_flags,
2513 _bfd_ecoff_set_alignment_hook, _bfd_ecoff_slurp_symbol_table,
2514 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
2515 NULL, NULL
2516 },
2517 /* Supported architecture. */
2518 bfd_arch_mips,
2519 /* Initial portion of armap string. */
2520 "__________",
2521 /* The page boundary used to align sections in a demand-paged
2522 executable file. E.g., 0x1000. */
2523 0x1000,
2524 /* True if the .rdata section is part of the text segment, as on the
2525 Alpha. False if .rdata is part of the data segment, as on the
2526 MIPS. */
2527 false,
2528 /* Bitsize of constructor entries. */
2529 32,
2530 /* Reloc to use for constructor entries. */
2531 &mips_howto_table[MIPS_R_REFWORD],
2532 {
2533 /* Symbol table magic number. */
2534 magicSym,
2535 /* Alignment of debugging information. E.g., 4. */
2536 4,
2537 /* Sizes of external symbolic information. */
2538 sizeof (struct hdr_ext),
2539 sizeof (struct dnr_ext),
2540 sizeof (struct pdr_ext),
2541 sizeof (struct sym_ext),
2542 sizeof (struct opt_ext),
2543 sizeof (struct fdr_ext),
2544 sizeof (struct rfd_ext),
2545 sizeof (struct ext_ext),
2546 /* Functions to swap in external symbolic data. */
2547 ecoff_swap_hdr_in,
2548 ecoff_swap_dnr_in,
2549 ecoff_swap_pdr_in,
2550 ecoff_swap_sym_in,
2551 ecoff_swap_opt_in,
2552 ecoff_swap_fdr_in,
2553 ecoff_swap_rfd_in,
2554 ecoff_swap_ext_in,
2555 _bfd_ecoff_swap_tir_in,
2556 _bfd_ecoff_swap_rndx_in,
2557 /* Functions to swap out external symbolic data. */
2558 ecoff_swap_hdr_out,
2559 ecoff_swap_dnr_out,
2560 ecoff_swap_pdr_out,
2561 ecoff_swap_sym_out,
2562 ecoff_swap_opt_out,
2563 ecoff_swap_fdr_out,
2564 ecoff_swap_rfd_out,
2565 ecoff_swap_ext_out,
2566 _bfd_ecoff_swap_tir_out,
2567 _bfd_ecoff_swap_rndx_out,
2568 /* Function to read in symbolic data. */
2569 _bfd_ecoff_slurp_symbolic_info
2570 },
2571 /* External reloc size. */
2572 RELSZ,
2573 /* Reloc swapping functions. */
2574 mips_ecoff_swap_reloc_in,
2575 mips_ecoff_swap_reloc_out,
2576 /* Backend reloc tweaking. */
2577 mips_adjust_reloc_in,
2578 mips_adjust_reloc_out,
2579 /* Relocate section contents while linking. */
2580 mips_relocate_section,
2581 /* Do final adjustments to filehdr and aouthdr. */
2582 NULL,
2583 /* Read an element from an archive at a given file position. */
2584 _bfd_get_elt_at_filepos
2585 };
2586
2587 /* Looking up a reloc type is MIPS specific. */
2588 #define _bfd_ecoff_bfd_reloc_type_lookup mips_bfd_reloc_type_lookup
2589
2590 /* Getting relocated section contents is generic. */
2591 #define _bfd_ecoff_bfd_get_relocated_section_contents \
2592 bfd_generic_get_relocated_section_contents
2593
2594 /* Handling file windows is generic. */
2595 #define _bfd_ecoff_get_section_contents_in_window \
2596 _bfd_generic_get_section_contents_in_window
2597
2598 /* Relaxing sections is MIPS specific. */
2599 #define _bfd_ecoff_bfd_relax_section mips_relax_section
2600
2601 /* GC of sections is not done. */
2602 #define _bfd_ecoff_bfd_gc_sections bfd_generic_gc_sections
2603
2604 extern const bfd_target ecoff_big_vec;
2605
2606 const bfd_target ecoff_little_vec =
2607 {
2608 "ecoff-littlemips", /* name */
2609 bfd_target_ecoff_flavour,
2610 BFD_ENDIAN_LITTLE, /* data byte order is little */
2611 BFD_ENDIAN_LITTLE, /* header byte order is little */
2612
2613 (HAS_RELOC | EXEC_P | /* object flags */
2614 HAS_LINENO | HAS_DEBUG |
2615 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
2616
2617 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
2618 0, /* leading underscore */
2619 ' ', /* ar_pad_char */
2620 15, /* ar_max_namelen */
2621 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
2622 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
2623 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
2624 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
2625 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
2626 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
2627
2628 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
2629 _bfd_ecoff_archive_p, _bfd_dummy_target},
2630 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
2631 _bfd_generic_mkarchive, bfd_false},
2632 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
2633 _bfd_write_archive_contents, bfd_false},
2634
2635 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
2636 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
2637 BFD_JUMP_TABLE_CORE (_bfd_nocore),
2638 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
2639 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
2640 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
2641 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
2642 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
2643 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2644
2645 & ecoff_big_vec,
2646
2647 (PTR) &mips_ecoff_backend_data
2648 };
2649
2650 const bfd_target ecoff_big_vec =
2651 {
2652 "ecoff-bigmips", /* name */
2653 bfd_target_ecoff_flavour,
2654 BFD_ENDIAN_BIG, /* data byte order is big */
2655 BFD_ENDIAN_BIG, /* header byte order is big */
2656
2657 (HAS_RELOC | EXEC_P | /* object flags */
2658 HAS_LINENO | HAS_DEBUG |
2659 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
2660
2661 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
2662 0, /* leading underscore */
2663 ' ', /* ar_pad_char */
2664 15, /* ar_max_namelen */
2665 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2666 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2667 bfd_getb16, bfd_getb_signed_16, bfd_putb16,
2668 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2669 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2670 bfd_getb16, bfd_getb_signed_16, bfd_putb16,
2671 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
2672 _bfd_ecoff_archive_p, _bfd_dummy_target},
2673 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
2674 _bfd_generic_mkarchive, bfd_false},
2675 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
2676 _bfd_write_archive_contents, bfd_false},
2677
2678 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
2679 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
2680 BFD_JUMP_TABLE_CORE (_bfd_nocore),
2681 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
2682 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
2683 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
2684 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
2685 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
2686 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2687
2688 & ecoff_little_vec,
2689
2690 (PTR) &mips_ecoff_backend_data
2691 };
2692
2693 const bfd_target ecoff_biglittle_vec =
2694 {
2695 "ecoff-biglittlemips", /* name */
2696 bfd_target_ecoff_flavour,
2697 BFD_ENDIAN_LITTLE, /* data byte order is little */
2698 BFD_ENDIAN_BIG, /* header byte order is big */
2699
2700 (HAS_RELOC | EXEC_P | /* object flags */
2701 HAS_LINENO | HAS_DEBUG |
2702 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
2703
2704 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
2705 0, /* leading underscore */
2706 ' ', /* ar_pad_char */
2707 15, /* ar_max_namelen */
2708 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
2709 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
2710 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
2711 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
2712 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
2713 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
2714
2715 {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
2716 _bfd_ecoff_archive_p, _bfd_dummy_target},
2717 {bfd_false, _bfd_ecoff_mkobject, /* bfd_set_format */
2718 _bfd_generic_mkarchive, bfd_false},
2719 {bfd_false, _bfd_ecoff_write_object_contents, /* bfd_write_contents */
2720 _bfd_write_archive_contents, bfd_false},
2721
2722 BFD_JUMP_TABLE_GENERIC (_bfd_ecoff),
2723 BFD_JUMP_TABLE_COPY (_bfd_ecoff),
2724 BFD_JUMP_TABLE_CORE (_bfd_nocore),
2725 BFD_JUMP_TABLE_ARCHIVE (_bfd_ecoff),
2726 BFD_JUMP_TABLE_SYMBOLS (_bfd_ecoff),
2727 BFD_JUMP_TABLE_RELOCS (_bfd_ecoff),
2728 BFD_JUMP_TABLE_WRITE (_bfd_ecoff),
2729 BFD_JUMP_TABLE_LINK (_bfd_ecoff),
2730 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
2731
2732 NULL,
2733
2734 (PTR) &mips_ecoff_backend_data
2735 };
git-cvsimport of binutils cvsroot