1 /* BFD back-end for Intel 386 COFF files.
2 Copyright (C) 1990-2022 Free Software Foundation, Inc.
3 Written by Cygnus Support.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libbfd.h"
25
26 #include "coff/i386.h"
27
28 #include "coff/internal.h"
29
30 #ifdef COFF_WITH_PE
31 #include "coff/pe.h"
32 #endif
33
34 #ifndef bfd_pe_print_pdata
35 #define bfd_pe_print_pdata NULL
36 #endif
37
38 #include "libcoff.h"
39
40 /* All users of this file have bfd_octets_per_byte (abfd, sec) == 1. */
41 #define OCTETS_PER_BYTE(ABFD, SEC) 1
42
43 static reloc_howto_type *coff_i386_rtype_to_howto
44 (bfd *, asection *, struct internal_reloc *,
45 struct coff_link_hash_entry *, struct internal_syment *,
46 bfd_vma *);
47 static reloc_howto_type *coff_i386_reloc_type_lookup
48 (bfd *, bfd_reloc_code_real_type);
49
50 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
51 /* The page size is a guess based on ELF. */
52
53 #define COFF_PAGE_SIZE 0x1000
54
55 /* For some reason when using i386 COFF the value stored in the .text
56 section for a reference to a common symbol is the value itself plus
57 any desired offset. Ian Taylor, Cygnus Support. */
58
59 /* If we are producing relocatable output, we need to do some
60 adjustments to the object file that are not done by the
61 bfd_perform_relocation function. This function is called by every
62 reloc type to make any required adjustments. */
63
64 static bfd_reloc_status_type
coff_i386_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)65 coff_i386_reloc (bfd *abfd,
66 arelent *reloc_entry,
67 asymbol *symbol,
68 void * data,
69 asection *input_section,
70 bfd *output_bfd,
71 char **error_message ATTRIBUTE_UNUSED)
72 {
73 symvalue diff;
74
75 #ifndef COFF_WITH_PE
76 if (output_bfd == (bfd *) NULL)
77 return bfd_reloc_continue;
78 #endif
79
80 if (bfd_is_com_section (symbol->section))
81 {
82 #ifndef COFF_WITH_PE
83 /* We are relocating a common symbol. The current value in the
84 object file is ORIG + OFFSET, where ORIG is the value of the
85 common symbol as seen by the object file when it was compiled
86 (this may be zero if the symbol was undefined) and OFFSET is
87 the offset into the common symbol (normally zero, but may be
88 non-zero when referring to a field in a common structure).
89 ORIG is the negative of reloc_entry->addend, which is set by
90 the CALC_ADDEND macro below. We want to replace the value in
91 the object file with NEW + OFFSET, where NEW is the value of
92 the common symbol which we are going to put in the final
93 object file. NEW is symbol->value. */
94 diff = symbol->value + reloc_entry->addend;
95 #else
96 /* In PE mode, we do not offset the common symbol. */
97 diff = reloc_entry->addend;
98 #endif
99 }
100 else
101 {
102 /* For some reason bfd_perform_relocation always effectively
103 ignores the addend for a COFF target when producing
104 relocatable output. This seems to be always wrong for 386
105 COFF, so we handle the addend here instead. */
106 #ifdef COFF_WITH_PE
107 if (output_bfd == (bfd *) NULL)
108 {
109 reloc_howto_type *howto = reloc_entry->howto;
110
111 /* Although PC relative relocations are very similar between
112 PE and non-PE formats, but they are off by howto->size
113 bytes. For the external relocation, PE is very different
114 from others. See md_apply_fix3 () in gas/config/tc-i386.c.
115 When we link PE and non-PE object files together to
116 generate a non-PE executable, we have to compensate it
117 here. */
118 if (howto->pc_relative && howto->pcrel_offset)
119 diff = -bfd_get_reloc_size (howto);
120 else if (symbol->flags & BSF_WEAK)
121 diff = reloc_entry->addend - symbol->value;
122 else
123 diff = -reloc_entry->addend;
124 }
125 else
126 #endif
127 diff = reloc_entry->addend;
128 }
129
130 #ifdef COFF_WITH_PE
131 /* FIXME: How should this case be handled? */
132 if (reloc_entry->howto->type == R_IMAGEBASE
133 && output_bfd != NULL
134 && bfd_get_flavour(output_bfd) == bfd_target_coff_flavour)
135 diff -= pe_data (output_bfd)->pe_opthdr.ImageBase;
136 #endif
137
138 #define DOIT(x) \
139 x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask))
140
141 if (diff != 0)
142 {
143 reloc_howto_type *howto = reloc_entry->howto;
144 bfd_size_type octets = (reloc_entry->address
145 * OCTETS_PER_BYTE (abfd, input_section));
146 unsigned char *addr = (unsigned char *) data + octets;
147
148 if (!bfd_reloc_offset_in_range (howto, abfd, input_section, octets))
149 return bfd_reloc_outofrange;
150
151 switch (bfd_get_reloc_size (howto))
152 {
153 case 1:
154 {
155 char x = bfd_get_8 (abfd, addr);
156 DOIT (x);
157 bfd_put_8 (abfd, x, addr);
158 }
159 break;
160
161 case 2:
162 {
163 short x = bfd_get_16 (abfd, addr);
164 DOIT (x);
165 bfd_put_16 (abfd, (bfd_vma) x, addr);
166 }
167 break;
168
169 case 4:
170 {
171 long x = bfd_get_32 (abfd, addr);
172 DOIT (x);
173 bfd_put_32 (abfd, (bfd_vma) x, addr);
174 }
175 break;
176
177 default:
178 abort ();
179 }
180 }
181
182 /* Now let bfd_perform_relocation finish everything up. */
183 return bfd_reloc_continue;
184 }
185
186 #ifdef COFF_WITH_PE
187 /* Return TRUE if this relocation should appear in the output .reloc
188 section. */
189
190 static bool
in_reloc_p(bfd * abfd ATTRIBUTE_UNUSED,reloc_howto_type * howto)191 in_reloc_p (bfd *abfd ATTRIBUTE_UNUSED, reloc_howto_type *howto)
192 {
193 return ! howto->pc_relative
194 && howto->type != R_IMAGEBASE
195 && howto->type != R_SECREL32
196 && howto->type != R_SECTION;
197 }
198 #endif /* COFF_WITH_PE */
199
200 #ifndef PCRELOFFSET
201 #define PCRELOFFSET false
202 #endif
203
204 static reloc_howto_type howto_table[] =
205 {
206 EMPTY_HOWTO (0),
207 EMPTY_HOWTO (1),
208 EMPTY_HOWTO (2),
209 EMPTY_HOWTO (3),
210 EMPTY_HOWTO (4),
211 EMPTY_HOWTO (5),
212 HOWTO (R_DIR32, /* type */
213 0, /* rightshift */
214 4, /* size */
215 32, /* bitsize */
216 false, /* pc_relative */
217 0, /* bitpos */
218 complain_overflow_bitfield, /* complain_on_overflow */
219 coff_i386_reloc, /* special_function */
220 "dir32", /* name */
221 true, /* partial_inplace */
222 0xffffffff, /* src_mask */
223 0xffffffff, /* dst_mask */
224 true), /* pcrel_offset */
225 /* PE IMAGE_REL_I386_DIR32NB relocation (7). */
226 HOWTO (R_IMAGEBASE, /* type */
227 0, /* rightshift */
228 4, /* size */
229 32, /* bitsize */
230 false, /* pc_relative */
231 0, /* bitpos */
232 complain_overflow_bitfield, /* complain_on_overflow */
233 coff_i386_reloc, /* special_function */
234 "rva32", /* name */
235 true, /* partial_inplace */
236 0xffffffff, /* src_mask */
237 0xffffffff, /* dst_mask */
238 false), /* pcrel_offset */
239 EMPTY_HOWTO (010),
240 EMPTY_HOWTO (011),
241 #ifdef COFF_WITH_PE
242 /* 16-bit word section relocation (012). */
243 HOWTO (R_SECTION, /* type */
244 0, /* rightshift */
245 2, /* size */
246 16, /* bitsize */
247 false, /* pc_relative */
248 0, /* bitpos */
249 complain_overflow_bitfield, /* complain_on_overflow */
250 coff_i386_reloc, /* special_function */
251 "secidx", /* name */
252 true, /* partial_inplace */
253 0xffffffff, /* src_mask */
254 0xffffffff, /* dst_mask */
255 true), /* pcrel_offset */
256 /* 32-bit longword section relative relocation (013). */
257 HOWTO (R_SECREL32, /* type */
258 0, /* rightshift */
259 4, /* size */
260 32, /* bitsize */
261 false, /* pc_relative */
262 0, /* bitpos */
263 complain_overflow_bitfield, /* complain_on_overflow */
264 coff_i386_reloc, /* special_function */
265 "secrel32", /* name */
266 true, /* partial_inplace */
267 0xffffffff, /* src_mask */
268 0xffffffff, /* dst_mask */
269 true), /* pcrel_offset */
270 #else
271 EMPTY_HOWTO (012),
272 EMPTY_HOWTO (013),
273 #endif
274 EMPTY_HOWTO (014),
275 EMPTY_HOWTO (015),
276 EMPTY_HOWTO (016),
277 /* Byte relocation (017). */
278 HOWTO (R_RELBYTE, /* type */
279 0, /* rightshift */
280 1, /* size */
281 8, /* bitsize */
282 false, /* pc_relative */
283 0, /* bitpos */
284 complain_overflow_bitfield, /* complain_on_overflow */
285 coff_i386_reloc, /* special_function */
286 "8", /* name */
287 true, /* partial_inplace */
288 0x000000ff, /* src_mask */
289 0x000000ff, /* dst_mask */
290 PCRELOFFSET), /* pcrel_offset */
291 /* 16-bit word relocation (020). */
292 HOWTO (R_RELWORD, /* type */
293 0, /* rightshift */
294 2, /* size */
295 16, /* bitsize */
296 false, /* pc_relative */
297 0, /* bitpos */
298 complain_overflow_bitfield, /* complain_on_overflow */
299 coff_i386_reloc, /* special_function */
300 "16", /* name */
301 true, /* partial_inplace */
302 0x0000ffff, /* src_mask */
303 0x0000ffff, /* dst_mask */
304 PCRELOFFSET), /* pcrel_offset */
305 /* 32-bit longword relocation (021). */
306 HOWTO (R_RELLONG, /* type */
307 0, /* rightshift */
308 4, /* size */
309 32, /* bitsize */
310 false, /* pc_relative */
311 0, /* bitpos */
312 complain_overflow_bitfield, /* complain_on_overflow */
313 coff_i386_reloc, /* special_function */
314 "32", /* name */
315 true, /* partial_inplace */
316 0xffffffff, /* src_mask */
317 0xffffffff, /* dst_mask */
318 PCRELOFFSET), /* pcrel_offset */
319 /* Byte PC relative relocation (022). */
320 HOWTO (R_PCRBYTE, /* type */
321 0, /* rightshift */
322 1, /* size */
323 8, /* bitsize */
324 true, /* pc_relative */
325 0, /* bitpos */
326 complain_overflow_signed, /* complain_on_overflow */
327 coff_i386_reloc, /* special_function */
328 "DISP8", /* name */
329 true, /* partial_inplace */
330 0x000000ff, /* src_mask */
331 0x000000ff, /* dst_mask */
332 PCRELOFFSET), /* pcrel_offset */
333 /* 16-bit word PC relative relocation (023). */
334 HOWTO (R_PCRWORD, /* type */
335 0, /* rightshift */
336 2, /* size */
337 16, /* bitsize */
338 true, /* pc_relative */
339 0, /* bitpos */
340 complain_overflow_signed, /* complain_on_overflow */
341 coff_i386_reloc, /* special_function */
342 "DISP16", /* name */
343 true, /* partial_inplace */
344 0x0000ffff, /* src_mask */
345 0x0000ffff, /* dst_mask */
346 PCRELOFFSET), /* pcrel_offset */
347 /* 32-bit longword PC relative relocation (024). */
348 HOWTO (R_PCRLONG, /* type */
349 0, /* rightshift */
350 4, /* size */
351 32, /* bitsize */
352 true, /* pc_relative */
353 0, /* bitpos */
354 complain_overflow_signed, /* complain_on_overflow */
355 coff_i386_reloc, /* special_function */
356 "DISP32", /* name */
357 true, /* partial_inplace */
358 0xffffffff, /* src_mask */
359 0xffffffff, /* dst_mask */
360 PCRELOFFSET) /* pcrel_offset */
361 };
362
363 #define NUM_HOWTOS (sizeof (howto_table) / sizeof (howto_table[0]))
364
365 /* Turn a howto into a reloc nunmber */
366
367 #define SELECT_RELOC(x,howto) { x.r_type = howto->type; }
368 #define BADMAG(x) I386BADMAG(x)
369 #define I386 1 /* Customize coffcode.h */
370
371 #define RTYPE2HOWTO(cache_ptr, dst) \
372 ((cache_ptr)->howto = \
373 ((dst)->r_type < NUM_HOWTOS \
374 ? howto_table + (dst)->r_type \
375 : NULL))
376
377 /* For 386 COFF a STYP_NOLOAD | STYP_BSS section is part of a shared
378 library. On some other COFF targets STYP_BSS is normally
379 STYP_NOLOAD. */
380 #define BSS_NOLOAD_IS_SHARED_LIBRARY
381
382 /* Compute the addend of a reloc. If the reloc is to a common symbol,
383 the object file contains the value of the common symbol. By the
384 time this is called, the linker may be using a different symbol
385 from a different object file with a different value. Therefore, we
386 hack wildly to locate the original symbol from this file so that we
387 can make the correct adjustment. This macro sets coffsym to the
388 symbol from the original file, and uses it to set the addend value
389 correctly. If this is not a common symbol, the usual addend
390 calculation is done, except that an additional tweak is needed for
391 PC relative relocs.
392 FIXME: This macro refers to symbols and asect; these are from the
393 calling function, not the macro arguments. */
394
395 #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \
396 { \
397 coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \
398 if (ptr && bfd_asymbol_bfd (ptr) != abfd) \
399 coffsym = (obj_symbols (abfd) \
400 + (cache_ptr->sym_ptr_ptr - symbols)); \
401 else if (ptr) \
402 coffsym = coff_symbol_from (ptr); \
403 if (coffsym != (coff_symbol_type *) NULL \
404 && coffsym->native->u.syment.n_scnum == 0) \
405 cache_ptr->addend = - coffsym->native->u.syment.n_value; \
406 else if (ptr && bfd_asymbol_bfd (ptr) == abfd \
407 && ptr->section != (asection *) NULL) \
408 cache_ptr->addend = - (ptr->section->vma + ptr->value); \
409 else \
410 cache_ptr->addend = 0; \
411 if (ptr && reloc.r_type < NUM_HOWTOS \
412 && howto_table[reloc.r_type].pc_relative) \
413 cache_ptr->addend += asect->vma; \
414 }
415
416 /* We use the special COFF backend linker. For normal i386 COFF, we
417 can use the generic relocate_section routine. For PE, we need our
418 own routine. */
419
420 #ifndef COFF_WITH_PE
421
422 #define coff_relocate_section _bfd_coff_generic_relocate_section
423
424 #else /* COFF_WITH_PE */
425
426 /* The PE relocate section routine. We handle secidx relocations here,
427 as well as making sure that we don't do anything for a relocatable
428 link. */
429
430 static bool
coff_pe_i386_relocate_section(bfd * output_bfd,struct bfd_link_info * info,bfd * input_bfd,asection * input_section,bfd_byte * contents,struct internal_reloc * relocs,struct internal_syment * syms,asection ** sections)431 coff_pe_i386_relocate_section (bfd *output_bfd,
432 struct bfd_link_info *info,
433 bfd *input_bfd,
434 asection *input_section,
435 bfd_byte *contents,
436 struct internal_reloc *relocs,
437 struct internal_syment *syms,
438 asection **sections)
439 {
440 struct internal_reloc *rel;
441 struct internal_reloc *relend;
442
443 if (bfd_link_relocatable (info))
444 return true;
445
446 rel = relocs;
447 relend = rel + input_section->reloc_count;
448
449 for (; rel < relend; rel++)
450 {
451 long symndx;
452 struct coff_link_hash_entry *h;
453 asection *sec, *s;
454 uint16_t idx = 0, i = 1;
455
456 if (rel->r_type != R_SECTION)
457 continue;
458
459 /* Make sure that _bfd_coff_generic_relocate_section won't parse
460 this reloc after us. */
461 rel->r_type = 0;
462
463 symndx = rel->r_symndx;
464
465 if (symndx < 0
466 || (unsigned long) symndx >= obj_raw_syment_count (input_bfd))
467 continue;
468
469 h = obj_coff_sym_hashes (input_bfd)[symndx];
470
471 if (h == NULL)
472 sec = sections[symndx];
473 else
474 {
475 if (h->root.type == bfd_link_hash_defined
476 || h->root.type == bfd_link_hash_defweak)
477 {
478 /* Defined weak symbols are a GNU extension. */
479 sec = h->root.u.def.section;
480 }
481 else
482 {
483 sec = NULL;
484 }
485 }
486
487 if (!sec)
488 continue;
489
490 if (bfd_is_abs_section (sec))
491 continue;
492
493 if (discarded_section (sec))
494 continue;
495
496 s = output_bfd->sections;
497 while (s)
498 {
499 if (s == sec->output_section)
500 {
501 idx = i;
502 break;
503 }
504
505 i++;
506 s = s->next;
507 }
508
509 bfd_putl16 (idx, contents + rel->r_vaddr - input_section->vma);
510 }
511
512 return _bfd_coff_generic_relocate_section (output_bfd, info, input_bfd,
513 input_section, contents,
514 relocs, syms, sections);
515 }
516
517 #define coff_relocate_section coff_pe_i386_relocate_section
518
519 #endif /* COFF_WITH_PE */
520
521 /* Convert an rtype to howto for the COFF backend linker. */
522
523 static reloc_howto_type *
coff_i386_rtype_to_howto(bfd * abfd ATTRIBUTE_UNUSED,asection * sec,struct internal_reloc * rel,struct coff_link_hash_entry * h,struct internal_syment * sym,bfd_vma * addendp)524 coff_i386_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
525 asection *sec,
526 struct internal_reloc *rel,
527 struct coff_link_hash_entry *h,
528 struct internal_syment *sym,
529 bfd_vma *addendp)
530 {
531 reloc_howto_type *howto;
532
533 if (rel->r_type >= NUM_HOWTOS)
534 {
535 bfd_set_error (bfd_error_bad_value);
536 return NULL;
537 }
538
539 howto = howto_table + rel->r_type;
540
541 #ifdef COFF_WITH_PE
542 /* Cancel out code in _bfd_coff_generic_relocate_section. */
543 *addendp = 0;
544 #endif
545
546 if (howto->pc_relative)
547 *addendp += sec->vma;
548
549 if (sym != NULL && sym->n_scnum == 0 && sym->n_value != 0)
550 {
551 /* This is a common symbol. The section contents include the
552 size (sym->n_value) as an addend. The relocate_section
553 function will be adding in the final value of the symbol. We
554 need to subtract out the current size in order to get the
555 correct result. */
556
557 BFD_ASSERT (h != NULL);
558
559 #ifndef COFF_WITH_PE
560 /* I think we *do* want to bypass this. If we don't, I have
561 seen some data parameters get the wrong relocation address.
562 If I link two versions with and without this section bypassed
563 and then do a binary comparison, the addresses which are
564 different can be looked up in the map. The case in which
565 this section has been bypassed has addresses which correspond
566 to values I can find in the map. */
567 *addendp -= sym->n_value;
568 #endif
569 }
570
571 #ifndef COFF_WITH_PE
572 /* If the output symbol is common (in which case this must be a
573 relocatable link), we need to add in the final size of the
574 common symbol. */
575 if (h != NULL && h->root.type == bfd_link_hash_common)
576 *addendp += h->root.u.c.size;
577 #endif
578
579 #ifdef COFF_WITH_PE
580 if (howto->pc_relative)
581 {
582 *addendp -= 4;
583
584 /* If the symbol is defined, then the generic code is going to
585 add back the symbol value in order to cancel out an
586 adjustment it made to the addend. However, we set the addend
587 to 0 at the start of this function. We need to adjust here,
588 to avoid the adjustment the generic code will make. FIXME:
589 This is getting a bit hackish. */
590 if (sym != NULL && sym->n_scnum != 0)
591 *addendp -= sym->n_value;
592 }
593
594 if (rel->r_type == R_IMAGEBASE
595 && (bfd_get_flavour(sec->output_section->owner)
596 == bfd_target_coff_flavour))
597 {
598 *addendp -= pe_data(sec->output_section->owner)->pe_opthdr.ImageBase;
599 }
600
601 /* PR 17099 - Absolute R_PCRLONG relocations do not need a symbol. */
602 if (rel->r_type == R_PCRLONG && sym == NULL)
603 *addendp -= rel->r_vaddr;
604 else
605 BFD_ASSERT (sym != NULL);
606
607 if (rel->r_type == R_SECREL32 && sym != NULL)
608 {
609 bfd_vma osect_vma;
610
611 if (h && (h->root.type == bfd_link_hash_defined
612 || h->root.type == bfd_link_hash_defweak))
613 osect_vma = h->root.u.def.section->output_section->vma;
614 else
615 {
616 asection *s;
617 int i;
618
619 /* Sigh, the only way to get the section to offset against
620 is to find it the hard way. */
621
622 for (s = abfd->sections, i = 1; i < sym->n_scnum; i++)
623 s = s->next;
624
625 osect_vma = s->output_section->vma;
626 }
627
628 *addendp -= osect_vma;
629 }
630 #endif
631
632 return howto;
633 }
634
635 #define coff_bfd_reloc_type_lookup coff_i386_reloc_type_lookup
636 #define coff_bfd_reloc_name_lookup coff_i386_reloc_name_lookup
637
638 static reloc_howto_type *
coff_i386_reloc_type_lookup(bfd * abfd ATTRIBUTE_UNUSED,bfd_reloc_code_real_type code)639 coff_i386_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
640 bfd_reloc_code_real_type code)
641 {
642 switch (code)
643 {
644 case BFD_RELOC_RVA:
645 return howto_table + R_IMAGEBASE;
646 case BFD_RELOC_32:
647 return howto_table + R_DIR32;
648 case BFD_RELOC_32_PCREL:
649 return howto_table + R_PCRLONG;
650 case BFD_RELOC_16:
651 return howto_table + R_RELWORD;
652 case BFD_RELOC_16_PCREL:
653 return howto_table + R_PCRWORD;
654 case BFD_RELOC_8:
655 return howto_table + R_RELBYTE;
656 case BFD_RELOC_8_PCREL:
657 return howto_table + R_PCRBYTE;
658 #ifdef COFF_WITH_PE
659 case BFD_RELOC_32_SECREL:
660 return howto_table + R_SECREL32;
661 case BFD_RELOC_16_SECIDX:
662 return howto_table + R_SECTION;
663 #endif
664 default:
665 BFD_FAIL ();
666 return 0;
667 }
668 }
669
670 static reloc_howto_type *
coff_i386_reloc_name_lookup(bfd * abfd ATTRIBUTE_UNUSED,const char * r_name)671 coff_i386_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
672 const char *r_name)
673 {
674 unsigned int i;
675
676 for (i = 0; i < NUM_HOWTOS; i++)
677 if (howto_table[i].name != NULL
678 && strcasecmp (howto_table[i].name, r_name) == 0)
679 return &howto_table[i];
680
681 return NULL;
682 }
683
684 #define coff_rtype_to_howto coff_i386_rtype_to_howto
685
686 #ifdef TARGET_UNDERSCORE
687
688 /* If i386 gcc uses underscores for symbol names, then it does not use
689 a leading dot for local labels, so if TARGET_UNDERSCORE is defined
690 we treat all symbols starting with L as local. */
691
692 static bool
coff_i386_is_local_label_name(bfd * abfd,const char * name)693 coff_i386_is_local_label_name (bfd *abfd, const char *name)
694 {
695 if (name[0] == 'L')
696 return true;
697
698 return _bfd_coff_is_local_label_name (abfd, name);
699 }
700
701 #define coff_bfd_is_local_label_name coff_i386_is_local_label_name
702
703 #endif /* TARGET_UNDERSCORE */
704
705 #include "coffcode.h"
706
707 const bfd_target
708 #ifdef TARGET_SYM
709 TARGET_SYM =
710 #else
711 i386_coff_vec =
712 #endif
713 {
714 #ifdef TARGET_NAME
715 TARGET_NAME,
716 #else
717 "coff-i386", /* name */
718 #endif
719 bfd_target_coff_flavour,
720 BFD_ENDIAN_LITTLE, /* data byte order is little */
721 BFD_ENDIAN_LITTLE, /* header byte order is little */
722
723 (HAS_RELOC | EXEC_P | /* object flags */
724 HAS_LINENO | HAS_DEBUG |
725 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED | BFD_COMPRESS | BFD_DECOMPRESS ),
726
727 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
728 #ifdef COFF_WITH_PE
729 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES | SEC_READONLY | SEC_DEBUGGING
730 #endif
731 | SEC_CODE | SEC_DATA | SEC_EXCLUDE ),
732
733 #ifdef TARGET_UNDERSCORE
734 TARGET_UNDERSCORE, /* leading underscore */
735 #else
736 0, /* leading underscore */
737 #endif
738 '/', /* ar_pad_char */
739 15, /* ar_max_namelen */
740 0, /* match priority. */
741 TARGET_KEEP_UNUSED_SECTION_SYMBOLS, /* keep unused section symbols. */
742
743 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
744 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
745 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
746 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
747 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
748 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
749
750 #ifndef COFF_CHECK_FORMAT
751 #define COFF_CHECK_FORMAT coff_object_p
752 #endif
753 #ifndef COFF_WRITE_CONTENTS
754 #define COFF_WRITE_CONTENTS coff_write_object_contents
755 #endif
756
757 /* Note that we allow an object file to be treated as a core file as well. */
758
759 { /* bfd_check_format */
760 _bfd_dummy_target,
761 COFF_CHECK_FORMAT,
762 bfd_generic_archive_p,
763 COFF_CHECK_FORMAT
764 },
765 { /* bfd_set_format */
766 _bfd_bool_bfd_false_error,
767 coff_mkobject,
768 _bfd_generic_mkarchive,
769 _bfd_bool_bfd_false_error
770 },
771 { /* bfd_write_contents */
772 _bfd_bool_bfd_false_error,
773 COFF_WRITE_CONTENTS,
774 _bfd_write_archive_contents,
775 _bfd_bool_bfd_false_error
776 },
777
778 BFD_JUMP_TABLE_GENERIC (coff),
779 BFD_JUMP_TABLE_COPY (coff),
780 BFD_JUMP_TABLE_CORE (_bfd_nocore),
781 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
782 BFD_JUMP_TABLE_SYMBOLS (coff),
783 BFD_JUMP_TABLE_RELOCS (coff),
784 BFD_JUMP_TABLE_WRITE (coff),
785 BFD_JUMP_TABLE_LINK (coff),
786 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
787
788 NULL,
789
790 COFF_SWAP_TABLE
791 };
792
793 #ifdef COFF_WITH_PE_BIGOBJ
794 const bfd_target
795 TARGET_SYM_BIG =
796 {
797 TARGET_NAME_BIG,
798 bfd_target_coff_flavour,
799 BFD_ENDIAN_LITTLE, /* data byte order is little */
800 BFD_ENDIAN_LITTLE, /* header byte order is little */
801
802 (HAS_RELOC | EXEC_P | /* object flags */
803 HAS_LINENO | HAS_DEBUG |
804 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED | BFD_COMPRESS | BFD_DECOMPRESS ),
805
806 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC /* section flags */
807 #ifdef COFF_WITH_PE
808 | SEC_LINK_ONCE | SEC_LINK_DUPLICATES | SEC_READONLY | SEC_DEBUGGING
809 #endif
810 | SEC_CODE | SEC_DATA | SEC_EXCLUDE ),
811
812 #ifdef TARGET_UNDERSCORE
813 TARGET_UNDERSCORE, /* leading underscore */
814 #else
815 0, /* leading underscore */
816 #endif
817 '/', /* ar_pad_char */
818 15, /* ar_max_namelen */
819 0, /* match priority. */
820 TARGET_KEEP_UNUSED_SECTION_SYMBOLS, /* keep unused section symbols. */
821
822 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
823 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
824 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
825 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
826 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
827 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
828
829 /* Note that we allow an object file to be treated as a core file as well. */
830
831 { /* bfd_check_format */
832 _bfd_dummy_target,
833 COFF_CHECK_FORMAT,
834 bfd_generic_archive_p,
835 COFF_CHECK_FORMAT
836 },
837 { /* bfd_set_format */
838 _bfd_bool_bfd_false_error,
839 coff_mkobject,
840 _bfd_generic_mkarchive,
841 _bfd_bool_bfd_false_error
842 },
843 { /* bfd_write_contents */
844 _bfd_bool_bfd_false_error,
845 COFF_WRITE_CONTENTS,
846 _bfd_write_archive_contents,
847 _bfd_bool_bfd_false_error
848 },
849
850 BFD_JUMP_TABLE_GENERIC (coff),
851 BFD_JUMP_TABLE_COPY (coff),
852 BFD_JUMP_TABLE_CORE (_bfd_nocore),
853 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
854 BFD_JUMP_TABLE_SYMBOLS (coff),
855 BFD_JUMP_TABLE_RELOCS (coff),
856 BFD_JUMP_TABLE_WRITE (coff),
857 BFD_JUMP_TABLE_LINK (coff),
858 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
859
860 NULL,
861
862 &bigobj_swap_table
863 };
864 #endif
865