daily update
[binutils.git] / bfd / pe-mips.c
blob03d6beca981c46020e8a3cbeead76809b584806c
1 /* BFD back-end for MIPS PE COFF files.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 Modified from coff-i386.c by DJ Delorie, dj@cygnus.com
6 This file is part of BFD, the Binary File Descriptor library.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
22 #define COFF_WITH_PE
23 #define COFF_LONG_SECTION_NAMES
24 #define PCRELOFFSET TRUE
26 #include "bfd.h"
27 #include "sysdep.h"
28 #include "libbfd.h"
29 #include "coff/mipspe.h"
30 #include "coff/internal.h"
31 #include "coff/pe.h"
32 #include "libcoff.h"
34 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER 2
35 /* The page size is a guess based on ELF. */
37 #define COFF_PAGE_SIZE 0x1000
39 /* For some reason when using mips COFF the value stored in the .text
40 section for a reference to a common symbol is the value itself plus
41 any desired offset. Ian Taylor, Cygnus Support. */
43 /* If we are producing relocatable output, we need to do some
44 adjustments to the object file that are not done by the
45 bfd_perform_relocation function. This function is called by every
46 reloc type to make any required adjustments. */
48 static bfd_reloc_status_type
49 coff_mips_reloc (bfd *abfd,
50 arelent *reloc_entry,
51 asymbol *symbol,
52 void * data,
53 asection *input_section ATTRIBUTE_UNUSED,
54 bfd *output_bfd,
55 char **error_message ATTRIBUTE_UNUSED)
57 symvalue diff;
59 if (output_bfd == NULL)
60 return bfd_reloc_continue;
62 if (bfd_is_com_section (symbol->section))
64 #ifndef COFF_WITH_PE
65 /* We are relocating a common symbol. The current value in the
66 object file is ORIG + OFFSET, where ORIG is the value of the
67 common symbol as seen by the object file when it was compiled
68 (this may be zero if the symbol was undefined) and OFFSET is
69 the offset into the common symbol (normally zero, but may be
70 non-zero when referring to a field in a common structure).
71 ORIG is the negative of reloc_entry->addend, which is set by
72 the CALC_ADDEND macro below. We want to replace the value in
73 the object file with NEW + OFFSET, where NEW is the value of
74 the common symbol which we are going to put in the final
75 object file. NEW is symbol->value. */
76 diff = symbol->value + reloc_entry->addend;
77 #else
78 /* In PE mode, we do not offset the common symbol. */
79 diff = reloc_entry->addend;
80 #endif
82 else
83 /* For some reason bfd_perform_relocation always effectively
84 ignores the addend for a COFF target when producing
85 relocatable output. This seems to be always wrong for 386
86 COFF, so we handle the addend here instead. */
87 diff = reloc_entry->addend;
89 #define DOIT(x) \
90 x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + (diff >> howto->rightshift)) & howto->dst_mask))
92 if (diff != 0)
94 reloc_howto_type *howto = reloc_entry->howto;
95 unsigned char *addr = (unsigned char *) data + reloc_entry->address;
97 switch (howto->size)
99 case 0:
101 char x = bfd_get_8 (abfd, addr);
103 DOIT (x);
104 bfd_put_8 (abfd, x, addr);
106 break;
108 case 1:
110 short x = bfd_get_16 (abfd, addr);
112 DOIT (x);
113 bfd_put_16 (abfd, (bfd_vma) x, addr);
115 break;
117 case 2:
119 long x = bfd_get_32 (abfd, addr);
121 DOIT (x);
122 bfd_put_32 (abfd, (bfd_vma) x, addr);
124 break;
126 default:
127 abort ();
131 /* Now let bfd_perform_relocation finish everything up. */
132 return bfd_reloc_continue;
135 #ifdef COFF_WITH_PE
136 /* Return TRUE if this relocation should
137 appear in the output .reloc section. */
139 static bfd_boolean
140 in_reloc_p (bfd * abfd ATTRIBUTE_UNUSED, reloc_howto_type *howto)
142 return ! howto->pc_relative && howto->type != MIPS_R_RVA;
144 #endif
146 #ifndef PCRELOFFSET
147 #define PCRELOFFSET FALSE
148 #endif
150 static reloc_howto_type howto_table[] =
152 /* Reloc type 0 is ignored. The reloc reading code ensures that
153 this is a reference to the .abs section, which will cause
154 bfd_perform_relocation to do nothing. */
155 HOWTO (MIPS_R_ABSOLUTE, /* Type. */
156 0, /* Rightshift. */
157 0, /* Size (0 = byte, 1 = short, 2 = long). */
158 8, /* Bitsize. */
159 FALSE, /* PC_relative. */
160 0, /* Bitpos. */
161 complain_overflow_dont, /* Complain_on_overflow. */
162 0, /* Special_function. */
163 "IGNORE", /* Name. */
164 FALSE, /* Partial_inplace. */
165 0, /* Src_mask. */
166 0, /* Dst_mask. */
167 FALSE), /* Pcrel_offset. */
169 /* A 16 bit reference to a symbol, normally from a data section. */
170 HOWTO (MIPS_R_REFHALF, /* Type. */
171 0, /* Rightshift. */
172 1, /* Size (0 = byte, 1 = short, 2 = long). */
173 16, /* Bitsize. */
174 FALSE, /* PC_relative. */
175 0, /* Bitpos. */
176 complain_overflow_bitfield, /* Complain_on_overflow. */
177 coff_mips_reloc, /* Special_function. */
178 "REFHALF", /* Name. */
179 TRUE, /* Partial_inplace. */
180 0xffff, /* Src_mask. */
181 0xffff, /* Dst_mask. */
182 FALSE), /* Pcrel_offset. */
184 /* A 32 bit reference to a symbol, normally from a data section. */
185 HOWTO (MIPS_R_REFWORD, /* Type. */
186 0, /* Rightshift. */
187 2, /* Size (0 = byte, 1 = short, 2 = long). */
188 32, /* Bitsize. */
189 FALSE, /* PC_relative. */
190 0, /* Bitpos. */
191 complain_overflow_bitfield, /* Complain_on_overflow. */
192 coff_mips_reloc, /* Special_function. */
193 "REFWORD", /* Name. */
194 TRUE, /* Partial_inplace. */
195 0xffffffff, /* Src_mask. */
196 0xffffffff, /* Dst_mask. */
197 FALSE), /* Pcrel_offset. */
199 /* A 26 bit absolute jump address. */
200 HOWTO (MIPS_R_JMPADDR, /* Type. */
201 2, /* Rightshift. */
202 2, /* Size (0 = byte, 1 = short, 2 = long). */
203 26, /* Bitsize. */
204 FALSE, /* PC_relative. */
205 0, /* Bitpos. */
206 complain_overflow_dont, /* Complain_on_overflow. */
207 /* This needs complex overflow
208 detection, because the upper four
209 bits must match the PC. */
210 coff_mips_reloc, /* Special_function. */
211 "JMPADDR", /* Name. */
212 TRUE, /* Partial_inplace. */
213 0x3ffffff, /* Src_mask. */
214 0x3ffffff, /* Dst_mask. */
215 FALSE), /* Pcrel_offset. */
217 /* The high 16 bits of a symbol value. Handled by the function
218 mips_refhi_reloc. */
219 HOWTO (MIPS_R_REFHI, /* Type. */
220 16, /* Rightshift. */
221 2, /* Size (0 = byte, 1 = short, 2 = long). */
222 16, /* Bitsize. */
223 FALSE, /* PC_relative. */
224 0, /* Bitpos. */
225 complain_overflow_bitfield, /* Complain_on_overflow. */
226 coff_mips_reloc, /* Special_function. */
227 "REFHI", /* Name. */
228 TRUE, /* Partial_inplace. */
229 0xffff, /* Src_mask. */
230 0xffff, /* Dst_mask. */
231 FALSE), /* Pcrel_offset. */
233 /* The low 16 bits of a symbol value. */
234 HOWTO (MIPS_R_REFLO, /* Type. */
235 0, /* Rightshift. */
236 2, /* Size (0 = byte, 1 = short, 2 = long). */
237 16, /* Bitsize. */
238 FALSE, /* PC_relative. */
239 0, /* Bitpos. */
240 complain_overflow_dont, /* Complain_on_overflow. */
241 coff_mips_reloc, /* Special_function. */
242 "REFLO", /* Name. */
243 TRUE, /* Partial_inplace. */
244 0xffff, /* Src_mask. */
245 0xffff, /* Dst_mask. */
246 FALSE), /* Pcrel_offset. */
248 /* A reference to an offset from the gp register. Handled by the
249 function mips_gprel_reloc. */
250 HOWTO (MIPS_R_GPREL, /* Type. */
251 0, /* Rightshift. */
252 2, /* Size (0 = byte, 1 = short, 2 = long). */
253 16, /* Bitsize. */
254 FALSE, /* PC_relative. */
255 0, /* Bitpos. */
256 complain_overflow_signed, /* Complain_on_overflow. */
257 coff_mips_reloc, /* Special_function. */
258 "GPREL", /* Name. */
259 TRUE, /* Partial_inplace. */
260 0xffff, /* Src_mask. */
261 0xffff, /* Dst_mask. */
262 FALSE), /* Pcrel_offset. */
264 /* A reference to a literal using an offset from the gp register.
265 Handled by the function mips_gprel_reloc. */
266 HOWTO (MIPS_R_LITERAL, /* Type. */
267 0, /* Rightshift. */
268 2, /* Size (0 = byte, 1 = short, 2 = long). */
269 16, /* Bitsize. */
270 FALSE, /* PC_relative. */
271 0, /* Bitpos. */
272 complain_overflow_signed, /* Complain_on_overflow. */
273 coff_mips_reloc, /* Special_function. */
274 "LITERAL", /* Name. */
275 TRUE, /* Partial_inplace. */
276 0xffff, /* Src_mask. */
277 0xffff, /* Dst_mask. */
278 FALSE), /* Pcrel_offset. */
280 EMPTY_HOWTO (8),
281 EMPTY_HOWTO (9),
282 EMPTY_HOWTO (10),
283 EMPTY_HOWTO (11),
284 EMPTY_HOWTO (12),
285 EMPTY_HOWTO (13),
286 EMPTY_HOWTO (14),
287 EMPTY_HOWTO (15),
288 EMPTY_HOWTO (16),
289 EMPTY_HOWTO (17),
290 EMPTY_HOWTO (18),
291 EMPTY_HOWTO (19),
292 EMPTY_HOWTO (20),
293 EMPTY_HOWTO (21),
294 EMPTY_HOWTO (22),
295 EMPTY_HOWTO (23),
296 EMPTY_HOWTO (24),
297 EMPTY_HOWTO (25),
298 EMPTY_HOWTO (26),
299 EMPTY_HOWTO (27),
300 EMPTY_HOWTO (28),
301 EMPTY_HOWTO (29),
302 EMPTY_HOWTO (30),
303 EMPTY_HOWTO (31),
304 EMPTY_HOWTO (32),
305 EMPTY_HOWTO (33),
306 HOWTO (MIPS_R_RVA, /* Type. */
307 0, /* Rightshift. */
308 2, /* Size (0 = byte, 1 = short, 2 = long). */
309 32, /* Bitsize. */
310 FALSE, /* PC_relative. */
311 0, /* Bitpos. */
312 complain_overflow_bitfield, /* Complain_on_overflow. */
313 coff_mips_reloc, /* Special_function. */
314 "rva32", /* Name. */
315 TRUE, /* Partial_inplace. */
316 0xffffffff, /* Src_mask. */
317 0xffffffff, /* Dst_mask. */
318 FALSE), /* Pcrel_offset. */
319 EMPTY_HOWTO (35),
320 EMPTY_HOWTO (36),
321 HOWTO (MIPS_R_PAIR, /* Type. */
322 0, /* Rightshift. */
323 2, /* Size (0 = byte, 1 = short, 2 = long). */
324 32, /* Bitsize. */
325 FALSE, /* PC_relative. */
326 0, /* Bitpos. */
327 complain_overflow_bitfield, /* Complain_on_overflow. */
328 coff_mips_reloc, /* Special_function. */
329 "PAIR", /* Name. */
330 TRUE, /* Partial_inplace. */
331 0xffffffff, /* Src_mask. */
332 0xffffffff, /* Dst_mask. */
333 FALSE), /* Pcrel_offset. */
336 /* Turn a howto into a reloc nunmber. */
338 #define SELECT_RELOC(x, howto) { x.r_type = howto->type; }
339 #define BADMAG(x) MIPSBADMAG (x)
341 /* Customize coffcode.h. */
342 #define MIPS 1
344 #define RTYPE2HOWTO(cache_ptr, dst) \
345 (cache_ptr)->howto = howto_table + (dst)->r_type;
347 /* Compute the addend of a reloc. If the reloc is to a common symbol,
348 the object file contains the value of the common symbol. By the
349 time this is called, the linker may be using a different symbol
350 from a different object file with a different value. Therefore, we
351 hack wildly to locate the original symbol from this file so that we
352 can make the correct adjustment. This macro sets coffsym to the
353 symbol from the original file, and uses it to set the addend value
354 correctly. If this is not a common symbol, the usual addend
355 calculation is done, except that an additional tweak is needed for
356 PC relative relocs.
357 FIXME: This macro refers to symbols and asect; these are from the
358 calling function, not the macro arguments. */
360 #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \
362 coff_symbol_type *coffsym = NULL; \
363 if (ptr && bfd_asymbol_bfd (ptr) != abfd) \
364 coffsym = (obj_symbols (abfd) \
365 + (cache_ptr->sym_ptr_ptr - symbols)); \
366 else if (ptr) \
367 coffsym = coff_symbol_from (abfd, ptr); \
368 if (coffsym != NULL \
369 && coffsym->native->u.syment.n_scnum == 0) \
370 cache_ptr->addend = - coffsym->native->u.syment.n_value; \
371 else if (ptr && bfd_asymbol_bfd (ptr) == abfd \
372 && ptr->section != NULL) \
373 cache_ptr->addend = - (ptr->section->vma + ptr->value); \
374 else \
375 cache_ptr->addend = 0; \
376 if (ptr && howto_table[reloc.r_type].pc_relative) \
377 cache_ptr->addend += asect->vma; \
380 /* Convert an rtype to howto for the COFF backend linker. */
382 static reloc_howto_type *
383 coff_mips_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
384 asection *sec,
385 struct internal_reloc *rel,
386 struct coff_link_hash_entry *h,
387 struct internal_syment *sym,
388 bfd_vma *addendp)
391 reloc_howto_type *howto;
393 howto = howto_table + rel->r_type;
395 #ifdef COFF_WITH_PE
396 *addendp = 0;
397 #endif
399 if (howto->pc_relative)
400 *addendp += sec->vma;
402 if (sym != NULL && sym->n_scnum == 0 && sym->n_value != 0)
404 /* This is a common symbol. The section contents include the
405 size (sym->n_value) as an addend. The relocate_section
406 function will be adding in the final value of the symbol. We
407 need to subtract out the current size in order to get the
408 correct result. */
410 BFD_ASSERT (h != NULL);
412 #ifndef COFF_WITH_PE
413 /* I think we *do* want to bypass this. If we don't, I have
414 seen some data parameters get the wrong relocation address.
415 If I link two versions with and without this section bypassed
416 and then do a binary comparison, the addresses which are
417 different can be looked up in the map. The case in which
418 this section has been bypassed has addresses which correspond
419 to values I can find in the map. */
420 *addendp -= sym->n_value;
421 #endif
424 #ifndef COFF_WITH_PE
425 /* If the output symbol is common (in which case this must be a
426 relocatable link), we need to add in the final size of the
427 common symbol. */
428 if (h != NULL && h->root.type == bfd_link_hash_common)
429 *addendp += h->root.u.c.size;
430 #endif
432 #ifdef COFF_WITH_PE
433 if (howto->pc_relative)
435 *addendp -= 4;
437 /* If the symbol is defined, then the generic code is going to
438 add back the symbol value in order to cancel out an
439 adjustment it made to the addend. However, we set the addend
440 to 0 at the start of this function. We need to adjust here,
441 to avoid the adjustment the generic code will make. FIXME:
442 This is getting a bit hackish. */
443 if (sym != NULL && sym->n_scnum != 0)
444 *addendp -= sym->n_value;
447 if (rel->r_type == MIPS_R_RVA)
448 *addendp -= pe_data (sec->output_section->owner)->pe_opthdr.ImageBase;
449 #endif
451 return howto;
454 #define coff_rtype_to_howto coff_mips_rtype_to_howto
455 #define coff_bfd_reloc_type_lookup coff_mips_reloc_type_lookup
457 /* Get the howto structure for a generic reloc type. */
459 static reloc_howto_type *
460 coff_mips_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
461 bfd_reloc_code_real_type code)
463 int mips_type;
465 switch (code)
467 case BFD_RELOC_16:
468 mips_type = MIPS_R_REFHALF;
469 break;
470 case BFD_RELOC_32:
471 case BFD_RELOC_CTOR:
472 mips_type = MIPS_R_REFWORD;
473 break;
474 case BFD_RELOC_MIPS_JMP:
475 mips_type = MIPS_R_JMPADDR;
476 break;
477 case BFD_RELOC_HI16_S:
478 mips_type = MIPS_R_REFHI;
479 break;
480 case BFD_RELOC_LO16:
481 mips_type = MIPS_R_REFLO;
482 break;
483 case BFD_RELOC_GPREL16:
484 mips_type = MIPS_R_GPREL;
485 break;
486 case BFD_RELOC_MIPS_LITERAL:
487 mips_type = MIPS_R_LITERAL;
488 break;
489 case BFD_RELOC_RVA:
490 mips_type = MIPS_R_RVA;
491 break;
492 default:
493 return NULL;
496 return & howto_table [mips_type];
499 static void
500 mips_swap_reloc_in (bfd * abfd, void * src, void * dst)
502 static struct internal_reloc pair_prev;
503 RELOC *reloc_src = (RELOC *) src;
504 struct internal_reloc *reloc_dst = (struct internal_reloc *) dst;
506 reloc_dst->r_vaddr = H_GET_32 (abfd, reloc_src->r_vaddr);
507 reloc_dst->r_symndx = H_GET_S32 (abfd, reloc_src->r_symndx);
508 reloc_dst->r_type = H_GET_16 (abfd, reloc_src->r_type);
509 reloc_dst->r_size = 0;
510 reloc_dst->r_extern = 0;
511 reloc_dst->r_offset = 0;
513 switch (reloc_dst->r_type)
515 case MIPS_R_REFHI:
516 pair_prev = *reloc_dst;
517 break;
518 case MIPS_R_PAIR:
519 reloc_dst->r_offset = reloc_dst->r_symndx;
520 if (reloc_dst->r_offset & 0x8000)
521 reloc_dst->r_offset -= 0x10000;
522 reloc_dst->r_symndx = pair_prev.r_symndx;
523 break;
527 static unsigned int
528 mips_swap_reloc_out (bfd * abfd, void * src, void * dst)
530 static int prev_offset = 1;
531 static bfd_vma prev_addr = 0;
532 struct internal_reloc *reloc_src = (struct internal_reloc *)src;
533 struct external_reloc *reloc_dst = (struct external_reloc *)dst;
535 switch (reloc_src->r_type)
537 case MIPS_R_REFHI:
538 prev_addr = reloc_src->r_vaddr;
539 prev_offset = reloc_src->r_offset;
540 break;
541 case MIPS_R_REFLO:
542 if (reloc_src->r_vaddr == prev_addr)
544 /* FIXME: only slightly hackish. If we see a REFLO pointing to
545 the same address as a REFHI, we assume this is the matching
546 PAIR reloc and output it accordingly. The symndx is really
547 the low 16 bits of the addend */
548 H_PUT_32 (abfd, reloc_src->r_vaddr, reloc_dst->r_vaddr);
549 H_PUT_32 (abfd, reloc_src->r_symndx, reloc_dst->r_symndx);
550 H_PUT_16 (abfd, MIPS_R_PAIR, reloc_dst->r_type);
551 return RELSZ;
553 break;
556 H_PUT_32 (abfd, reloc_src->r_vaddr, reloc_dst->r_vaddr);
557 H_PUT_32 (abfd, reloc_src->r_symndx, reloc_dst->r_symndx);
559 H_PUT_16 (abfd, reloc_src->r_type, reloc_dst->r_type);
560 return RELSZ;
563 #define coff_swap_reloc_in mips_swap_reloc_in
564 #define coff_swap_reloc_out mips_swap_reloc_out
565 #define NO_COFF_RELOCS
567 static bfd_boolean
568 coff_pe_mips_relocate_section (bfd *output_bfd,
569 struct bfd_link_info *info,
570 bfd *input_bfd,
571 asection *input_section,
572 bfd_byte *contents,
573 struct internal_reloc *relocs,
574 struct internal_syment *syms,
575 asection **sections)
577 bfd_vma gp;
578 bfd_boolean gp_undefined;
579 size_t adjust;
580 struct internal_reloc *rel;
581 struct internal_reloc *rel_end;
582 unsigned int i;
583 bfd_boolean got_lo;
585 if (info->relocatable)
587 (*_bfd_error_handler)
588 (_("%B: `ld -r' not supported with PE MIPS objects\n"), input_bfd);
589 bfd_set_error (bfd_error_bad_value);
590 return FALSE;
593 BFD_ASSERT (input_bfd->xvec->byteorder
594 == output_bfd->xvec->byteorder);
596 gp = _bfd_get_gp_value (output_bfd);
597 gp_undefined = (gp == 0) ? TRUE : FALSE;
598 got_lo = FALSE;
599 adjust = 0;
600 rel = relocs;
601 rel_end = rel + input_section->reloc_count;
603 for (i = 0; rel < rel_end; rel++, i++)
605 long symndx;
606 struct coff_link_hash_entry *h;
607 struct internal_syment *sym;
608 bfd_vma addend = 0;
609 bfd_vma val, tmp, targ, src, low;
610 reloc_howto_type *howto;
611 unsigned char *mem = contents + rel->r_vaddr;
613 symndx = rel->r_symndx;
615 if (symndx == -1)
617 h = NULL;
618 sym = NULL;
620 else
622 h = obj_coff_sym_hashes (input_bfd)[symndx];
623 sym = syms + symndx;
626 /* COFF treats common symbols in one of two ways. Either the
627 size of the symbol is included in the section contents, or it
628 is not. We assume that the size is not included, and force
629 the rtype_to_howto function to adjust the addend as needed. */
631 if (sym != NULL && sym->n_scnum != 0)
632 addend = - sym->n_value;
633 else
634 addend = 0;
636 howto = bfd_coff_rtype_to_howto (input_bfd, input_section, rel, h,
637 sym, &addend);
638 if (howto == NULL)
639 return FALSE;
641 /* If we are doing a relocatable link, then we can just ignore
642 a PC relative reloc that is pcrel_offset. It will already
643 have the correct value. If this is not a relocatable link,
644 then we should ignore the symbol value. */
645 if (howto->pc_relative && howto->pcrel_offset)
647 if (info->relocatable)
648 continue;
649 if (sym != NULL && sym->n_scnum != 0)
650 addend += sym->n_value;
653 val = 0;
655 if (h == NULL)
657 asection *sec;
659 if (symndx == -1)
661 sec = bfd_abs_section_ptr;
662 val = 0;
664 else
666 sec = sections[symndx];
667 val = (sec->output_section->vma
668 + sec->output_offset
669 + sym->n_value);
670 if (! obj_pe (input_bfd))
671 val -= sec->vma;
674 else
676 if (h->root.type == bfd_link_hash_defined
677 || h->root.type == bfd_link_hash_defweak)
679 asection *sec;
681 sec = h->root.u.def.section;
682 val = (h->root.u.def.value
683 + sec->output_section->vma
684 + sec->output_offset);
687 else if (! info->relocatable)
689 if (! ((*info->callbacks->undefined_symbol)
690 (info, h->root.root.string, input_bfd, input_section,
691 rel->r_vaddr - input_section->vma, TRUE)))
692 return FALSE;
696 src = rel->r_vaddr + input_section->output_section->vma
697 + input_section->output_offset;
699 /* OK, at this point the following variables are set up:
700 src = VMA of the memory we're fixing up
701 mem = pointer to memory we're fixing up
702 val = VMA of what we need to refer to. */
704 #define UI(x) (*_bfd_error_handler) (_("%B: unimplemented %s\n"), \
705 input_bfd, x); \
706 bfd_set_error (bfd_error_bad_value);
708 switch (rel->r_type)
710 case MIPS_R_ABSOLUTE:
711 /* Ignore these. */
712 break;
714 case MIPS_R_REFHALF:
715 UI ("refhalf");
716 break;
718 case MIPS_R_REFWORD:
719 tmp = bfd_get_32 (input_bfd, mem);
720 /* printf ("refword: src=%08x targ=%08x+%08x\n", src, tmp, val); */
721 tmp += val;
722 bfd_put_32 (input_bfd, tmp, mem);
723 break;
725 case MIPS_R_JMPADDR:
726 tmp = bfd_get_32 (input_bfd, mem);
727 targ = val + (tmp & 0x03ffffff) * 4;
728 if ((src & 0xf0000000) != (targ & 0xf0000000))
730 (*_bfd_error_handler) (_("%B: jump too far away\n"), input_bfd);
731 bfd_set_error (bfd_error_bad_value);
732 return FALSE;
734 tmp &= 0xfc000000;
735 tmp |= (targ / 4) & 0x3ffffff;
736 bfd_put_32 (input_bfd, tmp, mem);
737 break;
739 case MIPS_R_REFHI:
740 tmp = bfd_get_32 (input_bfd, mem);
741 switch (rel[1].r_type)
743 case MIPS_R_PAIR:
744 /* MS PE object */
745 targ = val + rel[1].r_offset + ((tmp & 0xffff) << 16);
746 break;
747 case MIPS_R_REFLO:
748 /* GNU COFF object */
749 low = bfd_get_32 (input_bfd, contents + rel[1].r_vaddr);
750 low &= 0xffff;
751 if (low & 0x8000)
752 low -= 0x10000;
753 targ = val + low + ((tmp & 0xffff) << 16);
754 break;
755 default:
756 (*_bfd_error_handler) (_("%B: bad pair/reflo after refhi\n"),
757 input_bfd);
758 bfd_set_error (bfd_error_bad_value);
759 return FALSE;
761 tmp &= 0xffff0000;
762 tmp |= (targ >> 16) & 0xffff;
763 bfd_put_32 (input_bfd, tmp, mem);
764 break;
766 case MIPS_R_REFLO:
767 tmp = bfd_get_32 (input_bfd, mem);
768 targ = val + (tmp & 0xffff);
769 /* printf ("refword: src=%08x targ=%08x\n", src, targ); */
770 tmp &= 0xffff0000;
771 tmp |= targ & 0xffff;
772 bfd_put_32 (input_bfd, tmp, mem);
773 break;
775 case MIPS_R_GPREL:
776 case MIPS_R_LITERAL:
777 UI ("gprel");
778 break;
780 case MIPS_R_SECTION:
781 UI ("section");
782 break;
784 case MIPS_R_SECREL:
785 UI ("secrel");
786 break;
788 case MIPS_R_SECRELLO:
789 UI ("secrello");
790 break;
792 case MIPS_R_SECRELHI:
793 UI ("secrelhi");
794 break;
796 case MIPS_R_RVA:
797 tmp = bfd_get_32 (input_bfd, mem);
798 /* printf ("rva: src=%08x targ=%08x+%08x\n", src, tmp, val); */
799 tmp += val
800 - pe_data (input_section->output_section->owner)->pe_opthdr.ImageBase;
801 bfd_put_32 (input_bfd, tmp, mem);
802 break;
804 case MIPS_R_PAIR:
805 /* ignore these */
806 break;
810 return TRUE;
813 #define coff_relocate_section coff_pe_mips_relocate_section
815 #ifdef TARGET_UNDERSCORE
817 /* If mips gcc uses underscores for symbol names, then it does not use
818 a leading dot for local labels, so if TARGET_UNDERSCORE is defined
819 we treat all symbols starting with L as local. */
821 static bfd_boolean
822 coff_mips_is_local_label_name (bfd *abfd, const char *name)
824 if (name[0] == 'L')
825 return TRUE;
827 return _bfd_coff_is_local_label_name (abfd, name);
830 #define coff_bfd_is_local_label_name coff_mips_is_local_label_name
832 #endif /* TARGET_UNDERSCORE */
834 #define COFF_NO_HACK_SCNHDR_SIZE
836 #include "coffcode.h"
838 const bfd_target
839 #ifdef TARGET_SYM
840 TARGET_SYM =
841 #else
842 mipslpe_vec =
843 #endif
845 #ifdef TARGET_NAME
846 TARGET_NAME,
847 #else
848 "pe-mips", /* Name. */
849 #endif
850 bfd_target_coff_flavour,
851 BFD_ENDIAN_LITTLE, /* Data byte order is little. */
852 BFD_ENDIAN_LITTLE, /* Header byte order is little. */
854 (HAS_RELOC | EXEC_P | /* Object flags. */
855 HAS_LINENO | HAS_DEBUG |
856 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
858 #ifndef COFF_WITH_PE
859 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* Section flags. */
860 | SEC_CODE | SEC_DATA),
861 #else
862 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* Section flags. */
863 | SEC_CODE | SEC_DATA
864 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES),
865 #endif
867 #ifdef TARGET_UNDERSCORE
868 TARGET_UNDERSCORE, /* Leading underscore. */
869 #else
870 0, /* leading underscore */
871 #endif
872 '/', /* AR_pad_char. */
873 15, /* AR_max_namelen. */
875 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
876 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
877 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Data. */
878 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
879 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
880 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* Headers. */
882 /* Note that we allow an object file to be treated as a core file as well. */
883 {_bfd_dummy_target, coff_object_p, /* bfd_check_format. */
884 bfd_generic_archive_p, coff_object_p},
885 {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format. */
886 bfd_false},
887 {bfd_false, coff_write_object_contents, /* bfd_write_contents. */
888 _bfd_write_archive_contents, bfd_false},
890 BFD_JUMP_TABLE_GENERIC (coff),
891 BFD_JUMP_TABLE_COPY (coff),
892 BFD_JUMP_TABLE_CORE (_bfd_nocore),
893 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
894 BFD_JUMP_TABLE_SYMBOLS (coff),
895 BFD_JUMP_TABLE_RELOCS (coff),
896 BFD_JUMP_TABLE_WRITE (coff),
897 BFD_JUMP_TABLE_LINK (coff),
898 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
900 NULL,
902 COFF_SWAP_TABLE