1 /* Support for the generic parts of most COFF variants, for BFD.
2 Copyright (C) 1990-2015 Free Software Foundation, Inc.
3 Written by Cygnus Support.
5 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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. */
22 /* Most of this hacked by Steve Chamberlain,
28 BFD supports a number of different flavours of coff format.
29 The major differences between formats are the sizes and
30 alignments of fields in structures on disk, and the occasional
33 Coff in all its varieties is implemented with a few common
34 files and a number of implementation specific files. For
35 example, The 88k bcs coff format is implemented in the file
36 @file{coff-m88k.c}. This file @code{#include}s
37 @file{coff/m88k.h} which defines the external structure of the
38 coff format for the 88k, and @file{coff/internal.h} which
39 defines the internal structure. @file{coff-m88k.c} also
40 defines the relocations used by the 88k format
43 The Intel i960 processor version of coff is implemented in
44 @file{coff-i960.c}. This file has the same structure as
45 @file{coff-m88k.c}, except that it includes @file{coff/i960.h}
46 rather than @file{coff-m88k.h}.
49 Porting to a new version of coff
51 The recommended method is to select from the existing
52 implementations the version of coff which is most like the one
53 you want to use. For example, we'll say that i386 coff is
54 the one you select, and that your coff flavour is called foo.
55 Copy @file{i386coff.c} to @file{foocoff.c}, copy
56 @file{../include/coff/i386.h} to @file{../include/coff/foo.h},
57 and add the lines to @file{targets.c} and @file{Makefile.in}
58 so that your new back end is used. Alter the shapes of the
59 structures in @file{../include/coff/foo.h} so that they match
60 what you need. You will probably also have to add
61 @code{#ifdef}s to the code in @file{coff/internal.h} and
62 @file{coffcode.h} if your version of coff is too wild.
64 You can verify that your new BFD backend works quite simply by
65 building @file{objdump} from the @file{binutils} directory,
66 and making sure that its version of what's going on and your
67 host system's idea (assuming it has the pretty standard coff
68 dump utility, usually called @code{att-dump} or just
69 @code{dump}) are the same. Then clean up your code, and send
70 what you've done to Cygnus. Then your stuff will be in the
71 next release, and you won't have to keep integrating it.
74 How the coff backend works
79 The Coff backend is split into generic routines that are
80 applicable to any Coff target and routines that are specific
81 to a particular target. The target-specific routines are
82 further split into ones which are basically the same for all
83 Coff targets except that they use the external symbol format
84 or use different values for certain constants.
86 The generic routines are in @file{coffgen.c}. These routines
87 work for any Coff target. They use some hooks into the target
88 specific code; the hooks are in a @code{bfd_coff_backend_data}
89 structure, one of which exists for each target.
91 The essentially similar target-specific routines are in
92 @file{coffcode.h}. This header file includes executable C code.
93 The various Coff targets first include the appropriate Coff
94 header file, make any special defines that are needed, and
95 then include @file{coffcode.h}.
97 Some of the Coff targets then also have additional routines in
98 the target source file itself.
100 For example, @file{coff-i960.c} includes
101 @file{coff/internal.h} and @file{coff/i960.h}. It then
102 defines a few constants, such as @code{I960}, and includes
103 @file{coffcode.h}. Since the i960 has complex relocation
104 types, @file{coff-i960.c} also includes some code to
105 manipulate the i960 relocs. This code is not in
106 @file{coffcode.h} because it would not be used by any other
110 Coff long section names
112 In the standard Coff object format, section names are limited to
113 the eight bytes available in the @code{s_name} field of the
114 @code{SCNHDR} section header structure. The format requires the
115 field to be NUL-padded, but not necessarily NUL-terminated, so
116 the longest section names permitted are a full eight characters.
118 The Microsoft PE variants of the Coff object file format add
119 an extension to support the use of long section names. This
120 extension is defined in section 4 of the Microsoft PE/COFF
121 specification (rev 8.1). If a section name is too long to fit
122 into the section header's @code{s_name} field, it is instead
123 placed into the string table, and the @code{s_name} field is
124 filled with a slash ("/") followed by the ASCII decimal
125 representation of the offset of the full name relative to the
128 Note that this implies that the extension can only be used in object
129 files, as executables do not contain a string table. The standard
130 specifies that long section names from objects emitted into executable
131 images are to be truncated.
133 However, as a GNU extension, BFD can generate executable images
134 that contain a string table and long section names. This
135 would appear to be technically valid, as the standard only says
136 that Coff debugging information is deprecated, not forbidden,
137 and in practice it works, although some tools that parse PE files
138 expecting the MS standard format may become confused; @file{PEview} is
141 The functionality is supported in BFD by code implemented under
142 the control of the macro @code{COFF_LONG_SECTION_NAMES}. If not
143 defined, the format does not support long section names in any way.
144 If defined, it is used to initialise a flag,
145 @code{_bfd_coff_long_section_names}, and a hook function pointer,
146 @code{_bfd_coff_set_long_section_names}, in the Coff backend data
147 structure. The flag controls the generation of long section names
148 in output BFDs at runtime; if it is false, as it will be by default
149 when generating an executable image, long section names are truncated;
150 if true, the long section names extension is employed. The hook
151 points to a function that allows the value of the flag to be altered
152 at runtime, on formats that support long section names at all; on
153 other formats it points to a stub that returns an error indication.
155 With input BFDs, the flag is set according to whether any long section
156 names are detected while reading the section headers. For a completely
157 new BFD, the flag is set to the default for the target format. This
158 information can be used by a client of the BFD library when deciding
159 what output format to generate, and means that a BFD that is opened
160 for read and subsequently converted to a writeable BFD and modified
161 in-place will retain whatever format it had on input.
163 If @code{COFF_LONG_SECTION_NAMES} is simply defined (blank), or is
164 defined to the value "1", then long section names are enabled by
165 default; if it is defined to the value zero, they are disabled by
166 default (but still accepted in input BFDs). The header @file{coffcode.h}
167 defines a macro, @code{COFF_DEFAULT_LONG_SECTION_NAMES}, which is
168 used in the backends to initialise the backend data structure fields
169 appropriately; see the comments for further detail.
174 Each flavour of coff supported in BFD has its own header file
175 describing the external layout of the structures. There is also
176 an internal description of the coff layout, in
177 @file{coff/internal.h}. A major function of the
178 coff backend is swapping the bytes and twiddling the bits to
179 translate the external form of the structures into the normal
180 internal form. This is all performed in the
181 @code{bfd_swap}_@i{thing}_@i{direction} routines. Some
182 elements are different sizes between different versions of
183 coff; it is the duty of the coff version specific include file
184 to override the definitions of various packing routines in
185 @file{coffcode.h}. E.g., the size of line number entry in coff is
186 sometimes 16 bits, and sometimes 32 bits. @code{#define}ing
187 @code{PUT_LNSZ_LNNO} and @code{GET_LNSZ_LNNO} will select the
188 correct one. No doubt, some day someone will find a version of
189 coff which has a varying field size not catered to at the
190 moment. To port BFD, that person will have to add more @code{#defines}.
191 Three of the bit twiddling routines are exported to
192 @code{gdb}; @code{coff_swap_aux_in}, @code{coff_swap_sym_in}
193 and @code{coff_swap_lineno_in}. @code{GDB} reads the symbol
194 table on its own, but uses BFD to fix things up. More of the
195 bit twiddlers are exported for @code{gas};
196 @code{coff_swap_aux_out}, @code{coff_swap_sym_out},
197 @code{coff_swap_lineno_out}, @code{coff_swap_reloc_out},
198 @code{coff_swap_filehdr_out}, @code{coff_swap_aouthdr_out},
199 @code{coff_swap_scnhdr_out}. @code{Gas} currently keeps track
200 of all the symbol table and reloc drudgery itself, thereby
201 saving the internal BFD overhead, but uses BFD to swap things
202 on the way out, making cross ports much safer. Doing so also
203 allows BFD (and thus the linker) to use the same header files
204 as @code{gas}, which makes one avenue to disaster disappear.
209 The simple canonical form for symbols used by BFD is not rich
210 enough to keep all the information available in a coff symbol
211 table. The back end gets around this problem by keeping the original
212 symbol table around, "behind the scenes".
214 When a symbol table is requested (through a call to
215 @code{bfd_canonicalize_symtab}), a request gets through to
216 @code{coff_get_normalized_symtab}. This reads the symbol table from
217 the coff file and swaps all the structures inside into the
218 internal form. It also fixes up all the pointers in the table
219 (represented in the file by offsets from the first symbol in
220 the table) into physical pointers to elements in the new
221 internal table. This involves some work since the meanings of
222 fields change depending upon context: a field that is a
223 pointer to another structure in the symbol table at one moment
224 may be the size in bytes of a structure at the next. Another
225 pass is made over the table. All symbols which mark file names
226 (<<C_FILE>> symbols) are modified so that the internal
227 string points to the value in the auxent (the real filename)
228 rather than the normal text associated with the symbol
231 At this time the symbol names are moved around. Coff stores
232 all symbols less than nine characters long physically
233 within the symbol table; longer strings are kept at the end of
234 the file in the string table. This pass moves all strings
235 into memory and replaces them with pointers to the strings.
237 The symbol table is massaged once again, this time to create
238 the canonical table used by the BFD application. Each symbol
239 is inspected in turn, and a decision made (using the
240 @code{sclass} field) about the various flags to set in the
241 @code{asymbol}. @xref{Symbols}. The generated canonical table
242 shares strings with the hidden internal symbol table.
244 Any linenumbers are read from the coff file too, and attached
245 to the symbols which own the functions the linenumbers belong to.
250 Writing a symbol to a coff file which didn't come from a coff
251 file will lose any debugging information. The @code{asymbol}
252 structure remembers the BFD from which the symbol was taken, and on
253 output the back end makes sure that the same destination target as
254 source target is present.
256 When the symbols have come from a coff file then all the
257 debugging information is preserved.
259 Symbol tables are provided for writing to the back end in a
260 vector of pointers to pointers. This allows applications like
261 the linker to accumulate and output large symbol tables
262 without having to do too much byte copying.
264 This function runs through the provided symbol table and
265 patches each symbol marked as a file place holder
266 (@code{C_FILE}) to point to the next file place holder in the
267 list. It also marks each @code{offset} field in the list with
268 the offset from the first symbol of the current symbol.
270 Another function of this procedure is to turn the canonical
271 value form of BFD into the form used by coff. Internally, BFD
272 expects symbol values to be offsets from a section base; so a
273 symbol physically at 0x120, but in a section starting at
274 0x100, would have the value 0x20. Coff expects symbols to
275 contain their final value, so symbols have their values
276 changed at this point to reflect their sum with their owning
277 section. This transformation uses the
278 <<output_section>> field of the @code{asymbol}'s
279 @code{asection} @xref{Sections}.
281 o <<coff_mangle_symbols>>
283 This routine runs though the provided symbol table and uses
284 the offsets generated by the previous pass and the pointers
285 generated when the symbol table was read in to create the
286 structured hierarchy required by coff. It changes each pointer
287 to a symbol into the index into the symbol table of the asymbol.
289 o <<coff_write_symbols>>
291 This routine runs through the symbol table and patches up the
292 symbols from their internal form into the coff way, calls the
293 bit twiddlers, and writes out the table to the file.
302 The hidden information for an <<asymbol>> is described in a
303 <<combined_entry_type>>:
307 .typedef struct coff_ptr_struct
309 . {* Remembers the offset from the first symbol in the file for
310 . this symbol. Generated by coff_renumber_symbols. *}
311 . unsigned int offset;
313 . {* Should the value of this symbol be renumbered. Used for
314 . XCOFF C_BSTAT symbols. Set by coff_slurp_symbol_table. *}
315 . unsigned int fix_value : 1;
317 . {* Should the tag field of this symbol be renumbered.
318 . Created by coff_pointerize_aux. *}
319 . unsigned int fix_tag : 1;
321 . {* Should the endidx field of this symbol be renumbered.
322 . Created by coff_pointerize_aux. *}
323 . unsigned int fix_end : 1;
325 . {* Should the x_csect.x_scnlen field be renumbered.
326 . Created by coff_pointerize_aux. *}
327 . unsigned int fix_scnlen : 1;
329 . {* Fix up an XCOFF C_BINCL/C_EINCL symbol. The value is the
330 . index into the line number entries. Set by coff_slurp_symbol_table. *}
331 . unsigned int fix_line : 1;
333 . {* The container for the symbol structure as read and translated
337 . union internal_auxent auxent;
338 . struct internal_syment syment;
341 . {* Selector for the union above. *}
342 . bfd_boolean is_sym;
343 .} combined_entry_type;
346 .{* Each canonical asymbol really looks like this: *}
348 .typedef struct coff_symbol_struct
350 . {* The actual symbol which the rest of BFD works with *}
353 . {* A pointer to the hidden information for this symbol *}
354 . combined_entry_type *native;
356 . {* A pointer to the linenumber information for this symbol *}
357 . struct lineno_cache_entry *lineno;
359 . {* Have the line numbers been relocated yet ? *}
360 . bfd_boolean done_lineno;
365 #include "libiberty.h"
370 #include "coffswap.h"
373 #define STRING_SIZE_SIZE 4
375 #define DOT_DEBUG ".debug"
376 #define DOT_ZDEBUG ".zdebug"
377 #define GNU_LINKONCE_WI ".gnu.linkonce.wi."
378 #define GNU_LINKONCE_WT ".gnu.linkonce.wt."
379 #define DOT_RELOC ".reloc"
381 #if defined (COFF_LONG_SECTION_NAMES)
382 /* Needed to expand the inputs to BLANKOR1TOODD. */
383 #define COFFLONGSECTIONCATHELPER(x,y) x ## y
384 /* If the input macro Y is blank or '1', return an odd number; if it is
385 '0', return an even number. Result undefined in all other cases. */
386 #define BLANKOR1TOODD(y) COFFLONGSECTIONCATHELPER(1,y)
387 /* Defined to numerical 0 or 1 according to whether generation of long
388 section names is disabled or enabled by default. */
389 #define COFF_ENABLE_LONG_SECTION_NAMES (BLANKOR1TOODD(COFF_LONG_SECTION_NAMES) & 1)
390 /* Where long section names are supported, we allow them to be enabled
391 and disabled at runtime, so select an appropriate hook function for
392 _bfd_coff_set_long_section_names. */
393 #define COFF_LONG_SECTION_NAMES_SETTER bfd_coff_set_long_section_names_allowed
394 #else /* !defined (COFF_LONG_SECTION_NAMES) */
395 /* If long section names are not supported, this stub disallows any
396 attempt to enable them at run-time. */
397 #define COFF_LONG_SECTION_NAMES_SETTER bfd_coff_set_long_section_names_disallowed
398 #endif /* defined (COFF_LONG_SECTION_NAMES) */
400 /* Define a macro that can be used to initialise both the fields relating
401 to long section names in the backend data struct simultaneously. */
402 #if COFF_ENABLE_LONG_SECTION_NAMES
403 #define COFF_DEFAULT_LONG_SECTION_NAMES (TRUE), COFF_LONG_SECTION_NAMES_SETTER
404 #else /* !COFF_ENABLE_LONG_SECTION_NAMES */
405 #define COFF_DEFAULT_LONG_SECTION_NAMES (FALSE), COFF_LONG_SECTION_NAMES_SETTER
406 #endif /* COFF_ENABLE_LONG_SECTION_NAMES */
408 #if defined (COFF_LONG_SECTION_NAMES)
409 static bfd_boolean bfd_coff_set_long_section_names_allowed
411 #else /* !defined (COFF_LONG_SECTION_NAMES) */
412 static bfd_boolean bfd_coff_set_long_section_names_disallowed
414 #endif /* defined (COFF_LONG_SECTION_NAMES) */
415 static long sec_to_styp_flags
416 (const char *, flagword
);
417 static bfd_boolean styp_to_sec_flags
418 (bfd
*, void *, const char *, asection
*, flagword
*);
419 static bfd_boolean coff_bad_format_hook
421 static void coff_set_custom_section_alignment
422 (bfd
*, asection
*, const struct coff_section_alignment_entry
*,
424 static bfd_boolean coff_new_section_hook
426 static bfd_boolean coff_set_arch_mach_hook
428 static bfd_boolean coff_write_relocs
430 static bfd_boolean coff_set_flags
431 (bfd
*, unsigned int *, unsigned short *);
432 static bfd_boolean coff_set_arch_mach
433 (bfd
*, enum bfd_architecture
, unsigned long) ATTRIBUTE_UNUSED
;
434 static bfd_boolean coff_compute_section_file_positions
436 static bfd_boolean coff_write_object_contents
437 (bfd
*) ATTRIBUTE_UNUSED
;
438 static bfd_boolean coff_set_section_contents
439 (bfd
*, asection
*, const void *, file_ptr
, bfd_size_type
);
440 static void * buy_and_read
441 (bfd
*, file_ptr
, bfd_size_type
);
442 static bfd_boolean coff_slurp_line_table
444 static bfd_boolean coff_slurp_symbol_table
446 static enum coff_symbol_classification coff_classify_symbol
447 (bfd
*, struct internal_syment
*);
448 static bfd_boolean coff_slurp_reloc_table
449 (bfd
*, asection
*, asymbol
**);
450 static long coff_canonicalize_reloc
451 (bfd
*, asection
*, arelent
**, asymbol
**);
452 #ifndef coff_mkobject_hook
453 static void * coff_mkobject_hook
454 (bfd
*, void *, void *);
457 static flagword handle_COMDAT
458 (bfd
*, flagword
, void *, const char *, asection
*);
460 #ifdef COFF_IMAGE_WITH_PE
461 static bfd_boolean coff_read_word
462 (bfd
*, unsigned int *);
463 static unsigned int coff_compute_checksum
465 static bfd_boolean coff_apply_checksum
469 static bfd_boolean ticoff0_bad_format_hook
471 static bfd_boolean ticoff1_bad_format_hook
475 /* void warning(); */
477 #if defined (COFF_LONG_SECTION_NAMES)
479 bfd_coff_set_long_section_names_allowed (bfd
*abfd
, int enable
)
481 coff_backend_info (abfd
)->_bfd_coff_long_section_names
= enable
;
484 #else /* !defined (COFF_LONG_SECTION_NAMES) */
486 bfd_coff_set_long_section_names_disallowed (bfd
*abfd
, int enable
)
492 #endif /* defined (COFF_LONG_SECTION_NAMES) */
494 /* Return a word with STYP_* (scnhdr.s_flags) flags set to represent
495 the incoming SEC_* flags. The inverse of this function is
496 styp_to_sec_flags(). NOTE: If you add to/change this routine, you
497 should probably mirror the changes in styp_to_sec_flags(). */
501 /* Macros for setting debugging flags. */
504 #define STYP_XCOFF_DEBUG STYP_DEBUG
506 #define STYP_XCOFF_DEBUG STYP_INFO
509 #ifdef COFF_ALIGN_IN_S_FLAGS
510 #define STYP_DEBUG_INFO STYP_DSECT
512 #define STYP_DEBUG_INFO STYP_INFO
516 sec_to_styp_flags (const char *sec_name
, flagword sec_flags
)
520 if (!strcmp (sec_name
, _TEXT
))
522 styp_flags
= STYP_TEXT
;
524 else if (!strcmp (sec_name
, _DATA
))
526 styp_flags
= STYP_DATA
;
528 else if (!strcmp (sec_name
, _BSS
))
530 styp_flags
= STYP_BSS
;
533 else if (!strcmp (sec_name
, _COMMENT
))
535 styp_flags
= STYP_INFO
;
536 #endif /* _COMMENT */
539 else if (!strcmp (sec_name
, _LIB
))
541 styp_flags
= STYP_LIB
;
545 else if (!strcmp (sec_name
, _LIT
))
547 styp_flags
= STYP_LIT
;
550 else if (CONST_STRNEQ (sec_name
, DOT_DEBUG
)
551 || CONST_STRNEQ (sec_name
, DOT_ZDEBUG
))
553 /* Handle the XCOFF debug section and DWARF2 debug sections. */
555 styp_flags
= STYP_XCOFF_DEBUG
;
557 styp_flags
= STYP_DEBUG_INFO
;
559 else if (CONST_STRNEQ (sec_name
, ".stab"))
561 styp_flags
= STYP_DEBUG_INFO
;
563 #ifdef COFF_LONG_SECTION_NAMES
564 else if (CONST_STRNEQ (sec_name
, GNU_LINKONCE_WI
)
565 || CONST_STRNEQ (sec_name
, GNU_LINKONCE_WT
))
567 styp_flags
= STYP_DEBUG_INFO
;
571 else if (!strcmp (sec_name
, _PAD
))
573 styp_flags
= STYP_PAD
;
575 else if (!strcmp (sec_name
, _LOADER
))
577 styp_flags
= STYP_LOADER
;
579 else if (!strcmp (sec_name
, _EXCEPT
))
581 styp_flags
= STYP_EXCEPT
;
583 else if (!strcmp (sec_name
, _TYPCHK
))
585 styp_flags
= STYP_TYPCHK
;
587 else if (sec_flags
& SEC_DEBUGGING
)
591 for (i
= 0; i
< XCOFF_DWSECT_NBR_NAMES
; i
++)
592 if (!strcmp (sec_name
, xcoff_dwsect_names
[i
].name
))
594 styp_flags
= STYP_DWARF
| xcoff_dwsect_names
[i
].flag
;
599 /* Try and figure out what it should be */
600 else if (sec_flags
& SEC_CODE
)
602 styp_flags
= STYP_TEXT
;
604 else if (sec_flags
& SEC_DATA
)
606 styp_flags
= STYP_DATA
;
608 else if (sec_flags
& SEC_READONLY
)
610 #ifdef STYP_LIT /* 29k readonly text/data section */
611 styp_flags
= STYP_LIT
;
613 styp_flags
= STYP_TEXT
;
614 #endif /* STYP_LIT */
616 else if (sec_flags
& SEC_LOAD
)
618 styp_flags
= STYP_TEXT
;
620 else if (sec_flags
& SEC_ALLOC
)
622 styp_flags
= STYP_BSS
;
626 if (sec_flags
& SEC_TIC54X_CLINK
)
627 styp_flags
|= STYP_CLINK
;
631 if (sec_flags
& SEC_TIC54X_BLOCK
)
632 styp_flags
|= STYP_BLOCK
;
636 if ((sec_flags
& (SEC_NEVER_LOAD
| SEC_COFF_SHARED_LIBRARY
)) != 0)
637 styp_flags
|= STYP_NOLOAD
;
643 #else /* COFF_WITH_PE */
645 /* The PE version; see above for the general comments. The non-PE
646 case seems to be more guessing, and breaks PE format; specifically,
647 .rdata is readonly, but it sure ain't text. Really, all this
648 should be set up properly in gas (or whatever assembler is in use),
649 and honor whatever objcopy/strip, etc. sent us as input. */
652 sec_to_styp_flags (const char *sec_name
, flagword sec_flags
)
655 bfd_boolean is_dbg
= FALSE
;
657 if (CONST_STRNEQ (sec_name
, DOT_DEBUG
)
658 || CONST_STRNEQ (sec_name
, DOT_ZDEBUG
)
659 #ifdef COFF_LONG_SECTION_NAMES
660 || CONST_STRNEQ (sec_name
, GNU_LINKONCE_WI
)
661 || CONST_STRNEQ (sec_name
, GNU_LINKONCE_WT
)
663 || CONST_STRNEQ (sec_name
, ".stab"))
666 /* caution: there are at least three groups of symbols that have
667 very similar bits and meanings: IMAGE_SCN*, SEC_*, and STYP_*.
668 SEC_* are the BFD internal flags, used for generic BFD
669 information. STYP_* are the COFF section flags which appear in
670 COFF files. IMAGE_SCN_* are the PE section flags which appear in
671 PE files. The STYP_* flags and the IMAGE_SCN_* flags overlap,
672 but there are more IMAGE_SCN_* flags. */
674 /* FIXME: There is no gas syntax to specify the debug section flag. */
677 sec_flags
&= (SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
678 | SEC_LINK_DUPLICATES_SAME_CONTENTS
679 | SEC_LINK_DUPLICATES_SAME_SIZE
);
680 sec_flags
|= SEC_DEBUGGING
| SEC_READONLY
;
686 if ((sec_flags
& SEC_CODE
) != 0)
687 styp_flags
|= IMAGE_SCN_CNT_CODE
;
688 if ((sec_flags
& (SEC_DATA
| SEC_DEBUGGING
)) != 0)
689 styp_flags
|= IMAGE_SCN_CNT_INITIALIZED_DATA
;
690 if ((sec_flags
& SEC_ALLOC
) != 0 && (sec_flags
& SEC_LOAD
) == 0)
691 styp_flags
|= IMAGE_SCN_CNT_UNINITIALIZED_DATA
; /* ==STYP_BSS */
693 /* skip constRUCTOR */
695 if ((sec_flags
& SEC_IS_COMMON
) != 0)
696 styp_flags
|= IMAGE_SCN_LNK_COMDAT
;
697 if ((sec_flags
& SEC_DEBUGGING
) != 0)
698 styp_flags
|= IMAGE_SCN_MEM_DISCARDABLE
;
699 if ((sec_flags
& SEC_EXCLUDE
) != 0 && !is_dbg
)
700 styp_flags
|= IMAGE_SCN_LNK_REMOVE
;
701 if ((sec_flags
& SEC_NEVER_LOAD
) != 0 && !is_dbg
)
702 styp_flags
|= IMAGE_SCN_LNK_REMOVE
;
705 if (sec_flags
& SEC_LINK_ONCE
)
706 styp_flags
|= IMAGE_SCN_LNK_COMDAT
;
708 & (SEC_LINK_DUPLICATES_DISCARD
| SEC_LINK_DUPLICATES_SAME_CONTENTS
709 | SEC_LINK_DUPLICATES_SAME_SIZE
)) != 0)
710 styp_flags
|= IMAGE_SCN_LNK_COMDAT
;
712 /* skip LINKER_CREATED */
714 if ((sec_flags
& SEC_COFF_NOREAD
) == 0)
715 styp_flags
|= IMAGE_SCN_MEM_READ
; /* Invert NOREAD for read. */
716 if ((sec_flags
& SEC_READONLY
) == 0)
717 styp_flags
|= IMAGE_SCN_MEM_WRITE
; /* Invert READONLY for write. */
718 if (sec_flags
& SEC_CODE
)
719 styp_flags
|= IMAGE_SCN_MEM_EXECUTE
; /* CODE->EXECUTE. */
720 if (sec_flags
& SEC_COFF_SHARED
)
721 styp_flags
|= IMAGE_SCN_MEM_SHARED
; /* Shared remains meaningful. */
726 #endif /* COFF_WITH_PE */
728 /* Return a word with SEC_* flags set to represent the incoming STYP_*
729 flags (from scnhdr.s_flags). The inverse of this function is
730 sec_to_styp_flags(). NOTE: If you add to/change this routine, you
731 should probably mirror the changes in sec_to_styp_flags(). */
736 styp_to_sec_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
739 asection
*section ATTRIBUTE_UNUSED
,
742 struct internal_scnhdr
*internal_s
= (struct internal_scnhdr
*) hdr
;
743 long styp_flags
= internal_s
->s_flags
;
744 flagword sec_flags
= 0;
747 if (styp_flags
& STYP_BLOCK
)
748 sec_flags
|= SEC_TIC54X_BLOCK
;
752 if (styp_flags
& STYP_CLINK
)
753 sec_flags
|= SEC_TIC54X_CLINK
;
757 if (styp_flags
& STYP_NOLOAD
)
758 sec_flags
|= SEC_NEVER_LOAD
;
759 #endif /* STYP_NOLOAD */
761 /* For 386 COFF, at least, an unloadable text or data section is
762 actually a shared library section. */
763 if (styp_flags
& STYP_TEXT
)
765 if (sec_flags
& SEC_NEVER_LOAD
)
766 sec_flags
|= SEC_CODE
| SEC_COFF_SHARED_LIBRARY
;
768 sec_flags
|= SEC_CODE
| SEC_LOAD
| SEC_ALLOC
;
770 else if (styp_flags
& STYP_DATA
)
772 if (sec_flags
& SEC_NEVER_LOAD
)
773 sec_flags
|= SEC_DATA
| SEC_COFF_SHARED_LIBRARY
;
775 sec_flags
|= SEC_DATA
| SEC_LOAD
| SEC_ALLOC
;
777 else if (styp_flags
& STYP_BSS
)
779 #ifdef BSS_NOLOAD_IS_SHARED_LIBRARY
780 if (sec_flags
& SEC_NEVER_LOAD
)
781 sec_flags
|= SEC_ALLOC
| SEC_COFF_SHARED_LIBRARY
;
784 sec_flags
|= SEC_ALLOC
;
786 else if (styp_flags
& STYP_INFO
)
788 /* We mark these as SEC_DEBUGGING, but only if COFF_PAGE_SIZE is
789 defined. coff_compute_section_file_positions uses
790 COFF_PAGE_SIZE to ensure that the low order bits of the
791 section VMA and the file offset match. If we don't know
792 COFF_PAGE_SIZE, we can't ensure the correct correspondence,
793 and demand page loading of the file will fail. */
794 #if defined (COFF_PAGE_SIZE) && !defined (COFF_ALIGN_IN_S_FLAGS)
795 sec_flags
|= SEC_DEBUGGING
;
798 else if (styp_flags
& STYP_PAD
)
801 else if (styp_flags
& STYP_EXCEPT
)
802 sec_flags
|= SEC_LOAD
;
803 else if (styp_flags
& STYP_LOADER
)
804 sec_flags
|= SEC_LOAD
;
805 else if (styp_flags
& STYP_TYPCHK
)
806 sec_flags
|= SEC_LOAD
;
807 else if (styp_flags
& STYP_DWARF
)
808 sec_flags
|= SEC_DEBUGGING
;
810 else if (strcmp (name
, _TEXT
) == 0)
812 if (sec_flags
& SEC_NEVER_LOAD
)
813 sec_flags
|= SEC_CODE
| SEC_COFF_SHARED_LIBRARY
;
815 sec_flags
|= SEC_CODE
| SEC_LOAD
| SEC_ALLOC
;
817 else if (strcmp (name
, _DATA
) == 0)
819 if (sec_flags
& SEC_NEVER_LOAD
)
820 sec_flags
|= SEC_DATA
| SEC_COFF_SHARED_LIBRARY
;
822 sec_flags
|= SEC_DATA
| SEC_LOAD
| SEC_ALLOC
;
824 else if (strcmp (name
, _BSS
) == 0)
826 #ifdef BSS_NOLOAD_IS_SHARED_LIBRARY
827 if (sec_flags
& SEC_NEVER_LOAD
)
828 sec_flags
|= SEC_ALLOC
| SEC_COFF_SHARED_LIBRARY
;
831 sec_flags
|= SEC_ALLOC
;
833 else if (CONST_STRNEQ (name
, DOT_DEBUG
)
834 || CONST_STRNEQ (name
, DOT_ZDEBUG
)
836 || strcmp (name
, _COMMENT
) == 0
838 #ifdef COFF_LONG_SECTION_NAMES
839 || CONST_STRNEQ (name
, GNU_LINKONCE_WI
)
840 || CONST_STRNEQ (name
, GNU_LINKONCE_WT
)
842 || CONST_STRNEQ (name
, ".stab"))
844 #ifdef COFF_PAGE_SIZE
845 sec_flags
|= SEC_DEBUGGING
;
849 else if (strcmp (name
, _LIB
) == 0)
853 else if (strcmp (name
, _LIT
) == 0)
854 sec_flags
= SEC_LOAD
| SEC_ALLOC
| SEC_READONLY
;
857 sec_flags
|= SEC_ALLOC
| SEC_LOAD
;
859 #ifdef STYP_LIT /* A29k readonly text/data section type. */
860 if ((styp_flags
& STYP_LIT
) == STYP_LIT
)
861 sec_flags
= (SEC_LOAD
| SEC_ALLOC
| SEC_READONLY
);
862 #endif /* STYP_LIT */
864 #ifdef STYP_OTHER_LOAD /* Other loaded sections. */
865 if (styp_flags
& STYP_OTHER_LOAD
)
866 sec_flags
= (SEC_LOAD
| SEC_ALLOC
);
867 #endif /* STYP_SDATA */
869 #if defined (COFF_LONG_SECTION_NAMES) && defined (COFF_SUPPORT_GNU_LINKONCE)
870 /* As a GNU extension, if the name begins with .gnu.linkonce, we
871 only link a single copy of the section. This is used to support
872 g++. g++ will emit each template expansion in its own section.
873 The symbols will be defined as weak, so that multiple definitions
874 are permitted. The GNU linker extension is to actually discard
875 all but one of the sections. */
876 if (CONST_STRNEQ (name
, ".gnu.linkonce"))
877 sec_flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
880 if (flags_ptr
== NULL
)
883 * flags_ptr
= sec_flags
;
887 #else /* COFF_WITH_PE */
890 handle_COMDAT (bfd
* abfd
,
896 struct internal_scnhdr
*internal_s
= (struct internal_scnhdr
*) hdr
;
897 bfd_byte
*esymstart
, *esym
, *esymend
;
899 char *target_name
= NULL
;
901 sec_flags
|= SEC_LINK_ONCE
;
903 /* Unfortunately, the PE format stores essential information in
904 the symbol table, of all places. We need to extract that
905 information now, so that objdump and the linker will know how
906 to handle the section without worrying about the symbols. We
907 can't call slurp_symtab, because the linker doesn't want the
910 /* COMDAT sections are special. The first symbol is the section
911 symbol, which tells what kind of COMDAT section it is. The
912 second symbol is the "comdat symbol" - the one with the
913 unique name. GNU uses the section symbol for the unique
914 name; MS uses ".text" for every comdat section. Sigh. - DJ */
916 /* This is not mirrored in sec_to_styp_flags(), but there
917 doesn't seem to be a need to, either, and it would at best be
920 if (! _bfd_coff_get_external_symbols (abfd
))
923 esymstart
= esym
= (bfd_byte
*) obj_coff_external_syms (abfd
);
924 esymend
= esym
+ obj_raw_syment_count (abfd
) * bfd_coff_symesz (abfd
);
926 while (esym
< esymend
)
928 struct internal_syment isym
;
929 char buf
[SYMNMLEN
+ 1];
932 bfd_coff_swap_sym_in (abfd
, esym
, & isym
);
934 BFD_ASSERT (sizeof (internal_s
->s_name
) <= SYMNMLEN
);
936 if (isym
.n_scnum
== section
->target_index
)
938 /* According to the MSVC documentation, the first
939 TWO entries with the section # are both of
940 interest to us. The first one is the "section
941 symbol" (section name). The second is the comdat
942 symbol name. Here, we've found the first
943 qualifying entry; we distinguish it from the
944 second with a state flag.
946 In the case of gas-generated (at least until that
947 is fixed) .o files, it isn't necessarily the
948 second one. It may be some other later symbol.
950 Since gas also doesn't follow MS conventions and
951 emits the section similar to .text$<name>, where
952 <something> is the name we're looking for, we
953 distinguish the two as follows:
955 If the section name is simply a section name (no
956 $) we presume it's MS-generated, and look at
957 precisely the second symbol for the comdat name.
958 If the section name has a $, we assume it's
959 gas-generated, and look for <something> (whatever
960 follows the $) as the comdat symbol. */
962 /* All 3 branches use this. */
963 symname
= _bfd_coff_internal_syment_name (abfd
, &isym
, buf
);
965 /* PR 17512 file: 078-11867-0.004 */
968 _bfd_error_handler (_("%B: unable to load COMDAT section name"), abfd
);
976 /* The first time we've seen the symbol. */
977 union internal_auxent aux
;
979 /* If it isn't the stuff we're expecting, die;
980 The MS documentation is vague, but it
981 appears that the second entry serves BOTH
982 as the comdat symbol and the defining
983 symbol record (either C_STAT or C_EXT,
984 possibly with an aux entry with debug
985 information if it's a function.) It
986 appears the only way to find the second one
987 is to count. (On Intel, they appear to be
988 adjacent, but on Alpha, they have been
991 Here, we think we've found the first one,
992 but there's some checking we can do to be
995 if (! ((isym
.n_sclass
== C_STAT
996 || isym
.n_sclass
== C_EXT
)
997 && BTYPE (isym
.n_type
) == T_NULL
998 && isym
.n_value
== 0))
1001 /* FIXME LATER: MSVC generates section names
1002 like .text for comdats. Gas generates
1003 names like .text$foo__Fv (in the case of a
1004 function). See comment above for more. */
1006 if (isym
.n_sclass
== C_STAT
&& strcmp (name
, symname
) != 0)
1007 _bfd_error_handler (_("%B: warning: COMDAT symbol '%s' does not match section name '%s'"),
1008 abfd
, symname
, name
);
1012 /* PR 17512: file: e2cfe54f. */
1013 if (esym
+ bfd_coff_symesz (abfd
) >= esymend
)
1015 _bfd_error_handler (_("%B: warning: No symbol for section '%s' found"),
1019 /* This is the section symbol. */
1020 bfd_coff_swap_aux_in (abfd
, (esym
+ bfd_coff_symesz (abfd
)),
1021 isym
.n_type
, isym
.n_sclass
,
1022 0, isym
.n_numaux
, & aux
);
1024 target_name
= strchr (name
, '$');
1025 if (target_name
!= NULL
)
1033 /* FIXME: Microsoft uses NODUPLICATES and
1034 ASSOCIATIVE, but gnu uses ANY and
1035 SAME_SIZE. Unfortunately, gnu doesn't do
1036 the comdat symbols right. So, until we can
1037 fix it to do the right thing, we are
1038 temporarily disabling comdats for the MS
1039 types (they're used in DLLs and C++, but we
1040 don't support *their* C++ libraries anyway
1043 /* Cygwin does not follow the MS style, and
1044 uses ANY and SAME_SIZE where NODUPLICATES
1045 and ASSOCIATIVE should be used. For
1046 Interix, we just do the right thing up
1049 switch (aux
.x_scn
.x_comdat
)
1051 case IMAGE_COMDAT_SELECT_NODUPLICATES
:
1052 #ifdef STRICT_PE_FORMAT
1053 sec_flags
|= SEC_LINK_DUPLICATES_ONE_ONLY
;
1055 sec_flags
&= ~SEC_LINK_ONCE
;
1059 case IMAGE_COMDAT_SELECT_ANY
:
1060 sec_flags
|= SEC_LINK_DUPLICATES_DISCARD
;
1063 case IMAGE_COMDAT_SELECT_SAME_SIZE
:
1064 sec_flags
|= SEC_LINK_DUPLICATES_SAME_SIZE
;
1067 case IMAGE_COMDAT_SELECT_EXACT_MATCH
:
1068 /* Not yet fully implemented ??? */
1069 sec_flags
|= SEC_LINK_DUPLICATES_SAME_CONTENTS
;
1072 /* debug$S gets this case; other
1075 /* There may be no symbol... we'll search
1076 the whole table... Is this the right
1077 place to play this game? Or should we do
1078 it when reading it in. */
1079 case IMAGE_COMDAT_SELECT_ASSOCIATIVE
:
1080 #ifdef STRICT_PE_FORMAT
1081 /* FIXME: This is not currently implemented. */
1082 sec_flags
|= SEC_LINK_DUPLICATES_DISCARD
;
1084 sec_flags
&= ~SEC_LINK_ONCE
;
1088 default: /* 0 means "no symbol" */
1089 /* debug$F gets this case; other
1091 sec_flags
|= SEC_LINK_DUPLICATES_DISCARD
;
1098 /* Gas mode: the first matching on partial name. */
1100 #ifndef TARGET_UNDERSCORE
1101 #define TARGET_UNDERSCORE 0
1103 /* Is this the name we're looking for ? */
1104 if (strcmp (target_name
,
1105 symname
+ (TARGET_UNDERSCORE
? 1 : 0)) != 0)
1107 /* Not the name we're looking for */
1108 esym
+= (isym
.n_numaux
+ 1) * bfd_coff_symesz (abfd
);
1113 /* MSVC mode: the lexically second symbol (or
1114 drop through from the above). */
1119 /* This must the second symbol with the
1120 section #. It is the actual symbol name.
1121 Intel puts the two adjacent, but Alpha (at
1122 least) spreads them out. */
1124 amt
= sizeof (struct coff_comdat_info
);
1125 coff_section_data (abfd
, section
)->comdat
1126 = (struct coff_comdat_info
*) bfd_alloc (abfd
, amt
);
1127 if (coff_section_data (abfd
, section
)->comdat
== NULL
)
1130 coff_section_data (abfd
, section
)->comdat
->symbol
=
1131 (esym
- esymstart
) / bfd_coff_symesz (abfd
);
1133 amt
= strlen (symname
) + 1;
1134 newname
= (char *) bfd_alloc (abfd
, amt
);
1135 if (newname
== NULL
)
1138 strcpy (newname
, symname
);
1139 coff_section_data (abfd
, section
)->comdat
->name
1147 esym
+= (isym
.n_numaux
+ 1) * bfd_coff_symesz (abfd
);
1155 /* The PE version; see above for the general comments.
1157 Since to set the SEC_LINK_ONCE and associated flags, we have to
1158 look at the symbol table anyway, we return the symbol table index
1159 of the symbol being used as the COMDAT symbol. This is admittedly
1160 ugly, but there's really nowhere else that we have access to the
1161 required information. FIXME: Is the COMDAT symbol index used for
1162 any purpose other than objdump? */
1165 styp_to_sec_flags (bfd
*abfd
,
1169 flagword
*flags_ptr
)
1171 struct internal_scnhdr
*internal_s
= (struct internal_scnhdr
*) hdr
;
1172 long styp_flags
= internal_s
->s_flags
;
1174 bfd_boolean result
= TRUE
;
1175 bfd_boolean is_dbg
= FALSE
;
1177 if (CONST_STRNEQ (name
, DOT_DEBUG
)
1178 || CONST_STRNEQ (name
, DOT_ZDEBUG
)
1179 #ifdef COFF_LONG_SECTION_NAMES
1180 || CONST_STRNEQ (name
, GNU_LINKONCE_WI
)
1181 || CONST_STRNEQ (name
, GNU_LINKONCE_WT
)
1183 || CONST_STRNEQ (name
, ".stab"))
1185 /* Assume read only unless IMAGE_SCN_MEM_WRITE is specified. */
1186 sec_flags
= SEC_READONLY
;
1188 /* If section disallows read, then set the NOREAD flag. */
1189 if ((styp_flags
& IMAGE_SCN_MEM_READ
) == 0)
1190 sec_flags
|= SEC_COFF_NOREAD
;
1192 /* Process each flag bit in styp_flags in turn. */
1195 long flag
= styp_flags
& - styp_flags
;
1196 char * unhandled
= NULL
;
1198 styp_flags
&= ~ flag
;
1200 /* We infer from the distinct read/write/execute bits the settings
1201 of some of the bfd flags; the actual values, should we need them,
1202 are also in pei_section_data (abfd, section)->pe_flags. */
1207 unhandled
= "STYP_DSECT";
1210 unhandled
= "STYP_GROUP";
1213 unhandled
= "STYP_COPY";
1216 unhandled
= "STYP_OVER";
1218 #ifdef SEC_NEVER_LOAD
1220 sec_flags
|= SEC_NEVER_LOAD
;
1223 case IMAGE_SCN_MEM_READ
:
1224 sec_flags
&= ~SEC_COFF_NOREAD
;
1226 case IMAGE_SCN_TYPE_NO_PAD
:
1229 case IMAGE_SCN_LNK_OTHER
:
1230 unhandled
= "IMAGE_SCN_LNK_OTHER";
1232 case IMAGE_SCN_MEM_NOT_CACHED
:
1233 unhandled
= "IMAGE_SCN_MEM_NOT_CACHED";
1235 case IMAGE_SCN_MEM_NOT_PAGED
:
1236 /* Generate a warning message rather using the 'unhandled'
1237 variable as this will allow some .sys files generate by
1238 other toolchains to be processed. See bugzilla issue 196. */
1239 _bfd_error_handler (_("%B: Warning: Ignoring section flag IMAGE_SCN_MEM_NOT_PAGED in section %s"),
1242 case IMAGE_SCN_MEM_EXECUTE
:
1243 sec_flags
|= SEC_CODE
;
1245 case IMAGE_SCN_MEM_WRITE
:
1246 sec_flags
&= ~ SEC_READONLY
;
1248 case IMAGE_SCN_MEM_DISCARDABLE
:
1249 /* The MS PE spec says that debug sections are DISCARDABLE,
1250 but the presence of a DISCARDABLE flag does not necessarily
1251 mean that a given section contains debug information. Thus
1252 we only set the SEC_DEBUGGING flag on sections that we
1253 recognise as containing debug information. */
1256 || strcmp (name
, _COMMENT
) == 0
1260 sec_flags
|= SEC_DEBUGGING
| SEC_READONLY
;
1263 case IMAGE_SCN_MEM_SHARED
:
1264 sec_flags
|= SEC_COFF_SHARED
;
1266 case IMAGE_SCN_LNK_REMOVE
:
1268 sec_flags
|= SEC_EXCLUDE
;
1270 case IMAGE_SCN_CNT_CODE
:
1271 sec_flags
|= SEC_CODE
| SEC_ALLOC
| SEC_LOAD
;
1273 case IMAGE_SCN_CNT_INITIALIZED_DATA
:
1275 sec_flags
|= SEC_DEBUGGING
;
1277 sec_flags
|= SEC_DATA
| SEC_ALLOC
| SEC_LOAD
;
1279 case IMAGE_SCN_CNT_UNINITIALIZED_DATA
:
1280 sec_flags
|= SEC_ALLOC
;
1282 case IMAGE_SCN_LNK_INFO
:
1283 /* We mark these as SEC_DEBUGGING, but only if COFF_PAGE_SIZE is
1284 defined. coff_compute_section_file_positions uses
1285 COFF_PAGE_SIZE to ensure that the low order bits of the
1286 section VMA and the file offset match. If we don't know
1287 COFF_PAGE_SIZE, we can't ensure the correct correspondence,
1288 and demand page loading of the file will fail. */
1289 #ifdef COFF_PAGE_SIZE
1290 sec_flags
|= SEC_DEBUGGING
;
1293 case IMAGE_SCN_LNK_COMDAT
:
1294 /* COMDAT gets very special treatment. */
1295 sec_flags
= handle_COMDAT (abfd
, sec_flags
, hdr
, name
, section
);
1298 /* Silently ignore for now. */
1302 /* If the section flag was not handled, report it here. */
1303 if (unhandled
!= NULL
)
1305 (*_bfd_error_handler
)
1306 (_("%B (%s): Section flag %s (0x%x) ignored"),
1307 abfd
, name
, unhandled
, flag
);
1312 #if defined (COFF_LONG_SECTION_NAMES) && defined (COFF_SUPPORT_GNU_LINKONCE)
1313 /* As a GNU extension, if the name begins with .gnu.linkonce, we
1314 only link a single copy of the section. This is used to support
1315 g++. g++ will emit each template expansion in its own section.
1316 The symbols will be defined as weak, so that multiple definitions
1317 are permitted. The GNU linker extension is to actually discard
1318 all but one of the sections. */
1319 if (CONST_STRNEQ (name
, ".gnu.linkonce"))
1320 sec_flags
|= SEC_LINK_ONCE
| SEC_LINK_DUPLICATES_DISCARD
;
1324 * flags_ptr
= sec_flags
;
1329 #endif /* COFF_WITH_PE */
1331 #define get_index(symbol) ((symbol)->udata.i)
1335 bfd_coff_backend_data
1339 .{* COFF symbol classifications. *}
1341 .enum coff_symbol_classification
1343 . {* Global symbol. *}
1344 . COFF_SYMBOL_GLOBAL,
1345 . {* Common symbol. *}
1346 . COFF_SYMBOL_COMMON,
1347 . {* Undefined symbol. *}
1348 . COFF_SYMBOL_UNDEFINED,
1349 . {* Local symbol. *}
1350 . COFF_SYMBOL_LOCAL,
1351 . {* PE section symbol. *}
1352 . COFF_SYMBOL_PE_SECTION
1355 Special entry points for gdb to swap in coff symbol table parts:
1358 . void (*_bfd_coff_swap_aux_in)
1359 . (bfd *, void *, int, int, int, int, void *);
1361 . void (*_bfd_coff_swap_sym_in)
1362 . (bfd *, void *, void *);
1364 . void (*_bfd_coff_swap_lineno_in)
1365 . (bfd *, void *, void *);
1367 . unsigned int (*_bfd_coff_swap_aux_out)
1368 . (bfd *, void *, int, int, int, int, void *);
1370 . unsigned int (*_bfd_coff_swap_sym_out)
1371 . (bfd *, void *, void *);
1373 . unsigned int (*_bfd_coff_swap_lineno_out)
1374 . (bfd *, void *, void *);
1376 . unsigned int (*_bfd_coff_swap_reloc_out)
1377 . (bfd *, void *, void *);
1379 . unsigned int (*_bfd_coff_swap_filehdr_out)
1380 . (bfd *, void *, void *);
1382 . unsigned int (*_bfd_coff_swap_aouthdr_out)
1383 . (bfd *, void *, void *);
1385 . unsigned int (*_bfd_coff_swap_scnhdr_out)
1386 . (bfd *, void *, void *);
1388 . unsigned int _bfd_filhsz;
1389 . unsigned int _bfd_aoutsz;
1390 . unsigned int _bfd_scnhsz;
1391 . unsigned int _bfd_symesz;
1392 . unsigned int _bfd_auxesz;
1393 . unsigned int _bfd_relsz;
1394 . unsigned int _bfd_linesz;
1395 . unsigned int _bfd_filnmlen;
1396 . bfd_boolean _bfd_coff_long_filenames;
1398 . bfd_boolean _bfd_coff_long_section_names;
1399 . bfd_boolean (*_bfd_coff_set_long_section_names)
1402 . unsigned int _bfd_coff_default_section_alignment_power;
1403 . bfd_boolean _bfd_coff_force_symnames_in_strings;
1404 . unsigned int _bfd_coff_debug_string_prefix_length;
1405 . unsigned int _bfd_coff_max_nscns;
1407 . void (*_bfd_coff_swap_filehdr_in)
1408 . (bfd *, void *, void *);
1410 . void (*_bfd_coff_swap_aouthdr_in)
1411 . (bfd *, void *, void *);
1413 . void (*_bfd_coff_swap_scnhdr_in)
1414 . (bfd *, void *, void *);
1416 . void (*_bfd_coff_swap_reloc_in)
1417 . (bfd *abfd, void *, void *);
1419 . bfd_boolean (*_bfd_coff_bad_format_hook)
1422 . bfd_boolean (*_bfd_coff_set_arch_mach_hook)
1425 . void * (*_bfd_coff_mkobject_hook)
1426 . (bfd *, void *, void *);
1428 . bfd_boolean (*_bfd_styp_to_sec_flags_hook)
1429 . (bfd *, void *, const char *, asection *, flagword *);
1431 . void (*_bfd_set_alignment_hook)
1432 . (bfd *, asection *, void *);
1434 . bfd_boolean (*_bfd_coff_slurp_symbol_table)
1437 . bfd_boolean (*_bfd_coff_symname_in_debug)
1438 . (bfd *, struct internal_syment *);
1440 . bfd_boolean (*_bfd_coff_pointerize_aux_hook)
1441 . (bfd *, combined_entry_type *, combined_entry_type *,
1442 . unsigned int, combined_entry_type *);
1444 . bfd_boolean (*_bfd_coff_print_aux)
1445 . (bfd *, FILE *, combined_entry_type *, combined_entry_type *,
1446 . combined_entry_type *, unsigned int);
1448 . void (*_bfd_coff_reloc16_extra_cases)
1449 . (bfd *, struct bfd_link_info *, struct bfd_link_order *, arelent *,
1450 . bfd_byte *, unsigned int *, unsigned int *);
1452 . int (*_bfd_coff_reloc16_estimate)
1453 . (bfd *, asection *, arelent *, unsigned int,
1454 . struct bfd_link_info *);
1456 . enum coff_symbol_classification (*_bfd_coff_classify_symbol)
1457 . (bfd *, struct internal_syment *);
1459 . bfd_boolean (*_bfd_coff_compute_section_file_positions)
1462 . bfd_boolean (*_bfd_coff_start_final_link)
1463 . (bfd *, struct bfd_link_info *);
1465 . bfd_boolean (*_bfd_coff_relocate_section)
1466 . (bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
1467 . struct internal_reloc *, struct internal_syment *, asection **);
1469 . reloc_howto_type *(*_bfd_coff_rtype_to_howto)
1470 . (bfd *, asection *, struct internal_reloc *,
1471 . struct coff_link_hash_entry *, struct internal_syment *,
1474 . bfd_boolean (*_bfd_coff_adjust_symndx)
1475 . (bfd *, struct bfd_link_info *, bfd *, asection *,
1476 . struct internal_reloc *, bfd_boolean *);
1478 . bfd_boolean (*_bfd_coff_link_add_one_symbol)
1479 . (struct bfd_link_info *, bfd *, const char *, flagword,
1480 . asection *, bfd_vma, const char *, bfd_boolean, bfd_boolean,
1481 . struct bfd_link_hash_entry **);
1483 . bfd_boolean (*_bfd_coff_link_output_has_begun)
1484 . (bfd *, struct coff_final_link_info *);
1486 . bfd_boolean (*_bfd_coff_final_link_postscript)
1487 . (bfd *, struct coff_final_link_info *);
1489 . bfd_boolean (*_bfd_coff_print_pdata)
1492 .} bfd_coff_backend_data;
1494 .#define coff_backend_info(abfd) \
1495 . ((bfd_coff_backend_data *) (abfd)->xvec->backend_data)
1497 .#define bfd_coff_swap_aux_in(a,e,t,c,ind,num,i) \
1498 . ((coff_backend_info (a)->_bfd_coff_swap_aux_in) (a,e,t,c,ind,num,i))
1500 .#define bfd_coff_swap_sym_in(a,e,i) \
1501 . ((coff_backend_info (a)->_bfd_coff_swap_sym_in) (a,e,i))
1503 .#define bfd_coff_swap_lineno_in(a,e,i) \
1504 . ((coff_backend_info ( a)->_bfd_coff_swap_lineno_in) (a,e,i))
1506 .#define bfd_coff_swap_reloc_out(abfd, i, o) \
1507 . ((coff_backend_info (abfd)->_bfd_coff_swap_reloc_out) (abfd, i, o))
1509 .#define bfd_coff_swap_lineno_out(abfd, i, o) \
1510 . ((coff_backend_info (abfd)->_bfd_coff_swap_lineno_out) (abfd, i, o))
1512 .#define bfd_coff_swap_aux_out(a,i,t,c,ind,num,o) \
1513 . ((coff_backend_info (a)->_bfd_coff_swap_aux_out) (a,i,t,c,ind,num,o))
1515 .#define bfd_coff_swap_sym_out(abfd, i,o) \
1516 . ((coff_backend_info (abfd)->_bfd_coff_swap_sym_out) (abfd, i, o))
1518 .#define bfd_coff_swap_scnhdr_out(abfd, i,o) \
1519 . ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_out) (abfd, i, o))
1521 .#define bfd_coff_swap_filehdr_out(abfd, i,o) \
1522 . ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_out) (abfd, i, o))
1524 .#define bfd_coff_swap_aouthdr_out(abfd, i,o) \
1525 . ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_out) (abfd, i, o))
1527 .#define bfd_coff_filhsz(abfd) (coff_backend_info (abfd)->_bfd_filhsz)
1528 .#define bfd_coff_aoutsz(abfd) (coff_backend_info (abfd)->_bfd_aoutsz)
1529 .#define bfd_coff_scnhsz(abfd) (coff_backend_info (abfd)->_bfd_scnhsz)
1530 .#define bfd_coff_symesz(abfd) (coff_backend_info (abfd)->_bfd_symesz)
1531 .#define bfd_coff_auxesz(abfd) (coff_backend_info (abfd)->_bfd_auxesz)
1532 .#define bfd_coff_relsz(abfd) (coff_backend_info (abfd)->_bfd_relsz)
1533 .#define bfd_coff_linesz(abfd) (coff_backend_info (abfd)->_bfd_linesz)
1534 .#define bfd_coff_filnmlen(abfd) (coff_backend_info (abfd)->_bfd_filnmlen)
1535 .#define bfd_coff_long_filenames(abfd) \
1536 . (coff_backend_info (abfd)->_bfd_coff_long_filenames)
1537 .#define bfd_coff_long_section_names(abfd) \
1538 . (coff_backend_info (abfd)->_bfd_coff_long_section_names)
1539 .#define bfd_coff_set_long_section_names(abfd, enable) \
1540 . ((coff_backend_info (abfd)->_bfd_coff_set_long_section_names) (abfd, enable))
1541 .#define bfd_coff_default_section_alignment_power(abfd) \
1542 . (coff_backend_info (abfd)->_bfd_coff_default_section_alignment_power)
1543 .#define bfd_coff_max_nscns(abfd) \
1544 . (coff_backend_info (abfd)->_bfd_coff_max_nscns)
1546 .#define bfd_coff_swap_filehdr_in(abfd, i,o) \
1547 . ((coff_backend_info (abfd)->_bfd_coff_swap_filehdr_in) (abfd, i, o))
1549 .#define bfd_coff_swap_aouthdr_in(abfd, i,o) \
1550 . ((coff_backend_info (abfd)->_bfd_coff_swap_aouthdr_in) (abfd, i, o))
1552 .#define bfd_coff_swap_scnhdr_in(abfd, i,o) \
1553 . ((coff_backend_info (abfd)->_bfd_coff_swap_scnhdr_in) (abfd, i, o))
1555 .#define bfd_coff_swap_reloc_in(abfd, i, o) \
1556 . ((coff_backend_info (abfd)->_bfd_coff_swap_reloc_in) (abfd, i, o))
1558 .#define bfd_coff_bad_format_hook(abfd, filehdr) \
1559 . ((coff_backend_info (abfd)->_bfd_coff_bad_format_hook) (abfd, filehdr))
1561 .#define bfd_coff_set_arch_mach_hook(abfd, filehdr)\
1562 . ((coff_backend_info (abfd)->_bfd_coff_set_arch_mach_hook) (abfd, filehdr))
1563 .#define bfd_coff_mkobject_hook(abfd, filehdr, aouthdr)\
1564 . ((coff_backend_info (abfd)->_bfd_coff_mkobject_hook)\
1565 . (abfd, filehdr, aouthdr))
1567 .#define bfd_coff_styp_to_sec_flags_hook(abfd, scnhdr, name, section, flags_ptr)\
1568 . ((coff_backend_info (abfd)->_bfd_styp_to_sec_flags_hook)\
1569 . (abfd, scnhdr, name, section, flags_ptr))
1571 .#define bfd_coff_set_alignment_hook(abfd, sec, scnhdr)\
1572 . ((coff_backend_info (abfd)->_bfd_set_alignment_hook) (abfd, sec, scnhdr))
1574 .#define bfd_coff_slurp_symbol_table(abfd)\
1575 . ((coff_backend_info (abfd)->_bfd_coff_slurp_symbol_table) (abfd))
1577 .#define bfd_coff_symname_in_debug(abfd, sym)\
1578 . ((coff_backend_info (abfd)->_bfd_coff_symname_in_debug) (abfd, sym))
1580 .#define bfd_coff_force_symnames_in_strings(abfd)\
1581 . (coff_backend_info (abfd)->_bfd_coff_force_symnames_in_strings)
1583 .#define bfd_coff_debug_string_prefix_length(abfd)\
1584 . (coff_backend_info (abfd)->_bfd_coff_debug_string_prefix_length)
1586 .#define bfd_coff_print_aux(abfd, file, base, symbol, aux, indaux)\
1587 . ((coff_backend_info (abfd)->_bfd_coff_print_aux)\
1588 . (abfd, file, base, symbol, aux, indaux))
1590 .#define bfd_coff_reloc16_extra_cases(abfd, link_info, link_order,\
1591 . reloc, data, src_ptr, dst_ptr)\
1592 . ((coff_backend_info (abfd)->_bfd_coff_reloc16_extra_cases)\
1593 . (abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr))
1595 .#define bfd_coff_reloc16_estimate(abfd, section, reloc, shrink, link_info)\
1596 . ((coff_backend_info (abfd)->_bfd_coff_reloc16_estimate)\
1597 . (abfd, section, reloc, shrink, link_info))
1599 .#define bfd_coff_classify_symbol(abfd, sym)\
1600 . ((coff_backend_info (abfd)->_bfd_coff_classify_symbol)\
1603 .#define bfd_coff_compute_section_file_positions(abfd)\
1604 . ((coff_backend_info (abfd)->_bfd_coff_compute_section_file_positions)\
1607 .#define bfd_coff_start_final_link(obfd, info)\
1608 . ((coff_backend_info (obfd)->_bfd_coff_start_final_link)\
1610 .#define bfd_coff_relocate_section(obfd,info,ibfd,o,con,rel,isyms,secs)\
1611 . ((coff_backend_info (ibfd)->_bfd_coff_relocate_section)\
1612 . (obfd, info, ibfd, o, con, rel, isyms, secs))
1613 .#define bfd_coff_rtype_to_howto(abfd, sec, rel, h, sym, addendp)\
1614 . ((coff_backend_info (abfd)->_bfd_coff_rtype_to_howto)\
1615 . (abfd, sec, rel, h, sym, addendp))
1616 .#define bfd_coff_adjust_symndx(obfd, info, ibfd, sec, rel, adjustedp)\
1617 . ((coff_backend_info (abfd)->_bfd_coff_adjust_symndx)\
1618 . (obfd, info, ibfd, sec, rel, adjustedp))
1619 .#define bfd_coff_link_add_one_symbol(info, abfd, name, flags, section,\
1620 . value, string, cp, coll, hashp)\
1621 . ((coff_backend_info (abfd)->_bfd_coff_link_add_one_symbol)\
1622 . (info, abfd, name, flags, section, value, string, cp, coll, hashp))
1624 .#define bfd_coff_link_output_has_begun(a,p) \
1625 . ((coff_backend_info (a)->_bfd_coff_link_output_has_begun) (a, p))
1626 .#define bfd_coff_final_link_postscript(a,p) \
1627 . ((coff_backend_info (a)->_bfd_coff_final_link_postscript) (a, p))
1629 .#define bfd_coff_have_print_pdata(a) \
1630 . (coff_backend_info (a)->_bfd_coff_print_pdata)
1631 .#define bfd_coff_print_pdata(a,p) \
1632 . ((coff_backend_info (a)->_bfd_coff_print_pdata) (a, p))
1634 .{* Macro: Returns true if the bfd is a PE executable as opposed to a
1635 . PE object file. *}
1636 .#define bfd_pei_p(abfd) \
1637 . (CONST_STRNEQ ((abfd)->xvec->name, "pei-"))
1640 /* See whether the magic number matches. */
1643 coff_bad_format_hook (bfd
* abfd ATTRIBUTE_UNUSED
, void * filehdr
)
1645 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
1647 if (BADMAG (*internal_f
))
1650 /* If the optional header is NULL or not the correct size then
1651 quit; the only difference I can see between m88k dgux headers (MC88DMAGIC)
1652 and Intel 960 readwrite headers (I960WRMAGIC) is that the
1653 optional header is of a different size.
1655 But the mips keeps extra stuff in it's opthdr, so dont check
1658 #if defined(M88) || defined(I960)
1659 if (internal_f
->f_opthdr
!= 0 && bfd_coff_aoutsz (abfd
) != internal_f
->f_opthdr
)
1668 ticoff0_bad_format_hook (bfd
*abfd ATTRIBUTE_UNUSED
, void * filehdr
)
1670 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
1672 if (COFF0_BADMAG (*internal_f
))
1681 ticoff1_bad_format_hook (bfd
*abfd ATTRIBUTE_UNUSED
, void * filehdr
)
1683 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
1685 if (COFF1_BADMAG (*internal_f
))
1692 /* Check whether this section uses an alignment other than the
1696 coff_set_custom_section_alignment (bfd
*abfd ATTRIBUTE_UNUSED
,
1698 const struct coff_section_alignment_entry
*alignment_table
,
1699 const unsigned int table_size
)
1701 const unsigned int default_alignment
= COFF_DEFAULT_SECTION_ALIGNMENT_POWER
;
1704 for (i
= 0; i
< table_size
; ++i
)
1706 const char *secname
= bfd_get_section_name (abfd
, section
);
1708 if (alignment_table
[i
].comparison_length
== (unsigned int) -1
1709 ? strcmp (alignment_table
[i
].name
, secname
) == 0
1710 : strncmp (alignment_table
[i
].name
, secname
,
1711 alignment_table
[i
].comparison_length
) == 0)
1714 if (i
>= table_size
)
1717 if (alignment_table
[i
].default_alignment_min
!= COFF_ALIGNMENT_FIELD_EMPTY
1718 && default_alignment
< alignment_table
[i
].default_alignment_min
)
1721 if (alignment_table
[i
].default_alignment_max
!= COFF_ALIGNMENT_FIELD_EMPTY
1722 #if COFF_DEFAULT_SECTION_ALIGNMENT_POWER != 0
1723 && default_alignment
> alignment_table
[i
].default_alignment_max
1728 section
->alignment_power
= alignment_table
[i
].alignment_power
;
1731 /* Custom section alignment records. */
1733 static const struct coff_section_alignment_entry
1734 coff_section_alignment_table
[] =
1736 #ifdef COFF_SECTION_ALIGNMENT_ENTRIES
1737 COFF_SECTION_ALIGNMENT_ENTRIES
,
1739 /* There must not be any gaps between .stabstr sections. */
1740 { COFF_SECTION_NAME_PARTIAL_MATCH (".stabstr"),
1741 1, COFF_ALIGNMENT_FIELD_EMPTY
, 0 },
1742 /* The .stab section must be aligned to 2**2 at most, to avoid gaps. */
1743 { COFF_SECTION_NAME_PARTIAL_MATCH (".stab"),
1744 3, COFF_ALIGNMENT_FIELD_EMPTY
, 2 },
1745 /* Similarly for the .ctors and .dtors sections. */
1746 { COFF_SECTION_NAME_EXACT_MATCH (".ctors"),
1747 3, COFF_ALIGNMENT_FIELD_EMPTY
, 2 },
1748 { COFF_SECTION_NAME_EXACT_MATCH (".dtors"),
1749 3, COFF_ALIGNMENT_FIELD_EMPTY
, 2 }
1752 static const unsigned int coff_section_alignment_table_size
=
1753 sizeof coff_section_alignment_table
/ sizeof coff_section_alignment_table
[0];
1755 /* Initialize a section structure with information peculiar to this
1756 particular implementation of COFF. */
1759 coff_new_section_hook (bfd
* abfd
, asection
* section
)
1761 combined_entry_type
*native
;
1763 unsigned char sclass
= C_STAT
;
1765 section
->alignment_power
= COFF_DEFAULT_SECTION_ALIGNMENT_POWER
;
1768 if (bfd_xcoff_text_align_power (abfd
) != 0
1769 && strcmp (bfd_get_section_name (abfd
, section
), ".text") == 0)
1770 section
->alignment_power
= bfd_xcoff_text_align_power (abfd
);
1771 else if (bfd_xcoff_data_align_power (abfd
) != 0
1772 && strcmp (bfd_get_section_name (abfd
, section
), ".data") == 0)
1773 section
->alignment_power
= bfd_xcoff_data_align_power (abfd
);
1778 for (i
= 0; i
< XCOFF_DWSECT_NBR_NAMES
; i
++)
1779 if (strcmp (bfd_get_section_name (abfd
, section
),
1780 xcoff_dwsect_names
[i
].name
) == 0)
1782 section
->alignment_power
= 0;
1789 /* Set up the section symbol. */
1790 if (!_bfd_generic_new_section_hook (abfd
, section
))
1793 /* Allocate aux records for section symbols, to store size and
1796 @@ The 10 is a guess at a plausible maximum number of aux entries
1797 (but shouldn't be a constant). */
1798 amt
= sizeof (combined_entry_type
) * 10;
1799 native
= (combined_entry_type
*) bfd_zalloc (abfd
, amt
);
1803 /* We don't need to set up n_name, n_value, or n_scnum in the native
1804 symbol information, since they'll be overridden by the BFD symbol
1805 anyhow. However, we do need to set the type and storage class,
1806 in case this symbol winds up getting written out. The value 0
1807 for n_numaux is already correct. */
1809 native
->is_sym
= TRUE
;
1810 native
->u
.syment
.n_type
= T_NULL
;
1811 native
->u
.syment
.n_sclass
= sclass
;
1813 coffsymbol (section
->symbol
)->native
= native
;
1815 coff_set_custom_section_alignment (abfd
, section
,
1816 coff_section_alignment_table
,
1817 coff_section_alignment_table_size
);
1822 #ifdef COFF_ALIGN_IN_SECTION_HEADER
1824 /* Set the alignment of a BFD section. */
1827 coff_set_alignment_hook (bfd
* abfd ATTRIBUTE_UNUSED
,
1831 struct internal_scnhdr
*hdr
= (struct internal_scnhdr
*) scnhdr
;
1835 /* Extract ALIGN from 2**ALIGN stored in section header. */
1836 for (i
= 0; i
< 32; i
++)
1837 if ((1 << i
) >= hdr
->s_align
)
1841 /* TI tools puts the alignment power in bits 8-11. */
1842 i
= (hdr
->s_flags
>> 8) & 0xF ;
1844 #ifdef COFF_DECODE_ALIGNMENT
1845 i
= COFF_DECODE_ALIGNMENT(hdr
->s_flags
);
1847 section
->alignment_power
= i
;
1849 #ifdef coff_set_section_load_page
1850 coff_set_section_load_page (section
, hdr
->s_page
);
1854 #else /* ! COFF_ALIGN_IN_SECTION_HEADER */
1858 coff_set_alignment_hook (bfd
* abfd ATTRIBUTE_UNUSED
,
1862 struct internal_scnhdr
*hdr
= (struct internal_scnhdr
*) scnhdr
;
1864 unsigned int alignment_power_const
1865 = hdr
->s_flags
& IMAGE_SCN_ALIGN_POWER_BIT_MASK
;
1867 switch (alignment_power_const
)
1869 case IMAGE_SCN_ALIGN_8192BYTES
:
1870 case IMAGE_SCN_ALIGN_4096BYTES
:
1871 case IMAGE_SCN_ALIGN_2048BYTES
:
1872 case IMAGE_SCN_ALIGN_1024BYTES
:
1873 case IMAGE_SCN_ALIGN_512BYTES
:
1874 case IMAGE_SCN_ALIGN_256BYTES
:
1875 case IMAGE_SCN_ALIGN_128BYTES
:
1876 case IMAGE_SCN_ALIGN_64BYTES
:
1877 case IMAGE_SCN_ALIGN_32BYTES
:
1878 case IMAGE_SCN_ALIGN_16BYTES
:
1879 case IMAGE_SCN_ALIGN_8BYTES
:
1880 case IMAGE_SCN_ALIGN_4BYTES
:
1881 case IMAGE_SCN_ALIGN_2BYTES
:
1882 case IMAGE_SCN_ALIGN_1BYTES
:
1883 section
->alignment_power
1884 = IMAGE_SCN_ALIGN_POWER_NUM (alignment_power_const
);
1890 /* In a PE image file, the s_paddr field holds the virtual size of a
1891 section, while the s_size field holds the raw size. We also keep
1892 the original section flag value, since not every bit can be
1893 mapped onto a generic BFD section bit. */
1894 if (coff_section_data (abfd
, section
) == NULL
)
1896 amt
= sizeof (struct coff_section_tdata
);
1897 section
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
1898 if (section
->used_by_bfd
== NULL
)
1899 /* FIXME: Return error. */
1903 if (pei_section_data (abfd
, section
) == NULL
)
1905 amt
= sizeof (struct pei_section_tdata
);
1906 coff_section_data (abfd
, section
)->tdata
= bfd_zalloc (abfd
, amt
);
1907 if (coff_section_data (abfd
, section
)->tdata
== NULL
)
1908 /* FIXME: Return error. */
1911 pei_section_data (abfd
, section
)->virt_size
= hdr
->s_paddr
;
1912 pei_section_data (abfd
, section
)->pe_flags
= hdr
->s_flags
;
1914 section
->lma
= hdr
->s_vaddr
;
1916 /* Check for extended relocs. */
1917 if (hdr
->s_flags
& IMAGE_SCN_LNK_NRELOC_OVFL
)
1919 struct external_reloc dst
;
1920 struct internal_reloc n
;
1921 file_ptr oldpos
= bfd_tell (abfd
);
1922 bfd_size_type relsz
= bfd_coff_relsz (abfd
);
1924 if (bfd_seek (abfd
, (file_ptr
) hdr
->s_relptr
, 0) != 0)
1926 if (bfd_bread (& dst
, relsz
, abfd
) != relsz
)
1929 coff_swap_reloc_in (abfd
, &dst
, &n
);
1930 if (bfd_seek (abfd
, oldpos
, 0) != 0)
1932 section
->reloc_count
= hdr
->s_nreloc
= n
.r_vaddr
- 1;
1933 section
->rel_filepos
+= relsz
;
1935 else if (hdr
->s_nreloc
== 0xffff)
1936 (*_bfd_error_handler
)
1937 ("%s: warning: claims to have 0xffff relocs, without overflow",
1938 bfd_get_filename (abfd
));
1941 #undef ELIFALIGN_SET
1943 #else /* ! COFF_WITH_PE */
1946 /* We grossly abuse this function to handle XCOFF overflow headers.
1947 When we see one, we correct the reloc and line number counts in the
1948 real header, and remove the section we just created. */
1951 coff_set_alignment_hook (bfd
*abfd
, asection
*section
, void * scnhdr
)
1953 struct internal_scnhdr
*hdr
= (struct internal_scnhdr
*) scnhdr
;
1956 if ((hdr
->s_flags
& STYP_OVRFLO
) == 0)
1959 real_sec
= coff_section_from_bfd_index (abfd
, (int) hdr
->s_nreloc
);
1960 if (real_sec
== NULL
)
1963 real_sec
->reloc_count
= hdr
->s_paddr
;
1964 real_sec
->lineno_count
= hdr
->s_vaddr
;
1966 if (!bfd_section_removed_from_list (abfd
, section
))
1968 bfd_section_list_remove (abfd
, section
);
1969 --abfd
->section_count
;
1973 #else /* ! RS6000COFF_C */
1975 #define coff_set_alignment_hook \
1976 ((void (*) (bfd *, asection *, void *)) bfd_void)
1978 #endif /* ! RS6000COFF_C */
1979 #endif /* ! COFF_WITH_PE */
1980 #endif /* ! COFF_ALIGN_IN_SECTION_HEADER */
1982 #ifndef coff_mkobject
1985 coff_mkobject (bfd
* abfd
)
1987 coff_data_type
*coff
;
1988 bfd_size_type amt
= sizeof (coff_data_type
);
1990 abfd
->tdata
.coff_obj_data
= bfd_zalloc (abfd
, amt
);
1991 if (abfd
->tdata
.coff_obj_data
== NULL
)
1993 coff
= coff_data (abfd
);
1994 coff
->symbols
= NULL
;
1995 coff
->conversion_table
= NULL
;
1996 coff
->raw_syments
= NULL
;
1997 coff
->relocbase
= 0;
1998 coff
->local_toc_sym_map
= 0;
2000 /* make_abs_section(abfd);*/
2006 /* Create the COFF backend specific information. */
2008 #ifndef coff_mkobject_hook
2010 coff_mkobject_hook (bfd
* abfd
,
2012 void * aouthdr ATTRIBUTE_UNUSED
)
2014 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
2015 coff_data_type
*coff
;
2017 if (! coff_mkobject (abfd
))
2020 coff
= coff_data (abfd
);
2022 coff
->sym_filepos
= internal_f
->f_symptr
;
2024 /* These members communicate important constants about the symbol
2025 table to GDB's symbol-reading code. These `constants'
2026 unfortunately vary among coff implementations... */
2027 coff
->local_n_btmask
= N_BTMASK
;
2028 coff
->local_n_btshft
= N_BTSHFT
;
2029 coff
->local_n_tmask
= N_TMASK
;
2030 coff
->local_n_tshift
= N_TSHIFT
;
2031 coff
->local_symesz
= bfd_coff_symesz (abfd
);
2032 coff
->local_auxesz
= bfd_coff_auxesz (abfd
);
2033 coff
->local_linesz
= bfd_coff_linesz (abfd
);
2035 coff
->timestamp
= internal_f
->f_timdat
;
2037 obj_raw_syment_count (abfd
) =
2038 obj_conv_table_size (abfd
) =
2039 internal_f
->f_nsyms
;
2042 if ((internal_f
->f_flags
& F_SHROBJ
) != 0)
2043 abfd
->flags
|= DYNAMIC
;
2044 if (aouthdr
!= NULL
&& internal_f
->f_opthdr
>= bfd_coff_aoutsz (abfd
))
2046 struct internal_aouthdr
*internal_a
=
2047 (struct internal_aouthdr
*) aouthdr
;
2048 struct xcoff_tdata
*xcoff
;
2050 xcoff
= xcoff_data (abfd
);
2051 # ifdef U803XTOCMAGIC
2052 xcoff
->xcoff64
= internal_f
->f_magic
== U803XTOCMAGIC
;
2056 xcoff
->full_aouthdr
= TRUE
;
2057 xcoff
->toc
= internal_a
->o_toc
;
2058 xcoff
->sntoc
= internal_a
->o_sntoc
;
2059 xcoff
->snentry
= internal_a
->o_snentry
;
2060 bfd_xcoff_text_align_power (abfd
) = internal_a
->o_algntext
;
2061 bfd_xcoff_data_align_power (abfd
) = internal_a
->o_algndata
;
2062 xcoff
->modtype
= internal_a
->o_modtype
;
2063 xcoff
->cputype
= internal_a
->o_cputype
;
2064 xcoff
->maxdata
= internal_a
->o_maxdata
;
2065 xcoff
->maxstack
= internal_a
->o_maxstack
;
2070 /* Set the flags field from the COFF header read in. */
2071 if (! _bfd_coff_arm_set_private_flags (abfd
, internal_f
->f_flags
))
2076 /* FIXME: I'm not sure this is ever executed, since peicode.h
2077 defines coff_mkobject_hook. */
2078 if ((internal_f
->f_flags
& IMAGE_FILE_DEBUG_STRIPPED
) == 0)
2079 abfd
->flags
|= HAS_DEBUG
;
2082 if ((internal_f
->f_flags
& F_GO32STUB
) != 0)
2084 coff
->go32stub
= (char *) bfd_alloc (abfd
, (bfd_size_type
) GO32_STUBSIZE
);
2085 if (coff
->go32stub
== NULL
)
2088 if (coff
->go32stub
!= NULL
)
2089 memcpy (coff
->go32stub
, internal_f
->go32stub
, GO32_STUBSIZE
);
2095 /* Determine the machine architecture and type. FIXME: This is target
2096 dependent because the magic numbers are defined in the target
2097 dependent header files. But there is no particular need for this.
2098 If the magic numbers were moved to a separate file, this function
2099 would be target independent and would also be much more successful
2100 at linking together COFF files for different architectures. */
2103 coff_set_arch_mach_hook (bfd
*abfd
, void * filehdr
)
2105 unsigned long machine
;
2106 enum bfd_architecture arch
;
2107 struct internal_filehdr
*internal_f
= (struct internal_filehdr
*) filehdr
;
2109 /* Zero selects the default machine for an arch. */
2111 switch (internal_f
->f_magic
)
2115 arch
= bfd_arch_powerpc
;
2121 case I386AIXMAGIC
: /* Danbury PS/2 AIX C Compiler. */
2122 case LYNXCOFFMAGIC
: /* Shadows the m68k Lynx number below, sigh. */
2123 arch
= bfd_arch_i386
;
2128 arch
= bfd_arch_i386
;
2129 machine
= bfd_mach_x86_64
;
2134 arch
= bfd_arch_ia64
;
2141 arch
= bfd_arch_arm
;
2142 machine
= bfd_arm_get_mach_from_notes (abfd
, ARM_NOTE_SECTION
);
2143 if (machine
== bfd_mach_arm_unknown
)
2145 switch (internal_f
->f_flags
& F_ARM_ARCHITECTURE_MASK
)
2147 case F_ARM_2
: machine
= bfd_mach_arm_2
; break;
2148 case F_ARM_2a
: machine
= bfd_mach_arm_2a
; break;
2149 case F_ARM_3
: machine
= bfd_mach_arm_3
; break;
2151 case F_ARM_3M
: machine
= bfd_mach_arm_3M
; break;
2152 case F_ARM_4
: machine
= bfd_mach_arm_4
; break;
2153 case F_ARM_4T
: machine
= bfd_mach_arm_4T
; break;
2154 /* The COFF header does not have enough bits available
2155 to cover all the different ARM architectures. So
2156 we interpret F_ARM_5, the highest flag value to mean
2157 "the highest ARM architecture known to BFD" which is
2158 currently the XScale. */
2159 case F_ARM_5
: machine
= bfd_mach_arm_XScale
; break;
2167 #ifdef MC68KBCSMAGIC
2170 #ifdef APOLLOM68KMAGIC
2171 case APOLLOM68KMAGIC
:
2173 #ifdef LYNXCOFFMAGIC
2176 arch
= bfd_arch_m68k
;
2177 machine
= bfd_mach_m68020
;
2184 arch
= bfd_arch_m88k
;
2190 arch
= bfd_arch_z80
;
2191 switch (internal_f
->f_flags
& F_MACHMASK
)
2194 case bfd_mach_z80strict
<< 12:
2195 case bfd_mach_z80
<< 12:
2196 case bfd_mach_z80full
<< 12:
2197 case bfd_mach_r800
<< 12:
2198 machine
= ((unsigned)internal_f
->f_flags
& F_MACHMASK
) >> 12;
2207 arch
= bfd_arch_z8k
;
2208 switch (internal_f
->f_flags
& F_MACHMASK
)
2211 machine
= bfd_mach_z8001
;
2214 machine
= bfd_mach_z8002
;
2223 arch
= bfd_arch_i860
;
2230 arch
= bfd_arch_i960
;
2231 switch (F_I960TYPE
& internal_f
->f_flags
)
2235 machine
= bfd_mach_i960_core
;
2238 machine
= bfd_mach_i960_kb_sb
;
2241 machine
= bfd_mach_i960_mc
;
2244 machine
= bfd_mach_i960_xa
;
2247 machine
= bfd_mach_i960_ca
;
2250 machine
= bfd_mach_i960_ka_sa
;
2253 machine
= bfd_mach_i960_jx
;
2256 machine
= bfd_mach_i960_hx
;
2275 if (xcoff_data (abfd
)->cputype
!= -1)
2276 cputype
= xcoff_data (abfd
)->cputype
& 0xff;
2279 /* We did not get a value from the a.out header. If the
2280 file has not been stripped, we may be able to get the
2281 architecture information from the first symbol, if it
2282 is a .file symbol. */
2283 if (obj_raw_syment_count (abfd
) == 0)
2288 struct internal_syment sym
;
2289 bfd_size_type amt
= bfd_coff_symesz (abfd
);
2291 buf
= bfd_malloc (amt
);
2294 if (bfd_seek (abfd
, obj_sym_filepos (abfd
), SEEK_SET
) != 0
2295 || bfd_bread (buf
, amt
, abfd
) != amt
)
2300 bfd_coff_swap_sym_in (abfd
, buf
, & sym
);
2301 if (sym
.n_sclass
== C_FILE
)
2302 cputype
= sym
.n_type
& 0xff;
2309 /* FIXME: We don't handle all cases here. */
2314 arch
= bfd_xcoff_architecture (abfd
);
2315 machine
= bfd_xcoff_machine (abfd
);
2319 arch
= bfd_arch_powerpc
;
2320 machine
= bfd_mach_ppc_601
;
2322 case 2: /* 64 bit PowerPC */
2323 arch
= bfd_arch_powerpc
;
2324 machine
= bfd_mach_ppc_620
;
2327 arch
= bfd_arch_powerpc
;
2328 machine
= bfd_mach_ppc
;
2331 arch
= bfd_arch_rs6000
;
2332 machine
= bfd_mach_rs6k
;
2341 arch
= bfd_arch_we32k
;
2347 arch
= bfd_arch_h8300
;
2348 machine
= bfd_mach_h8300
;
2349 /* !! FIXME this probably isn't the right place for this. */
2350 abfd
->flags
|= BFD_IS_RELAXABLE
;
2356 arch
= bfd_arch_h8300
;
2357 machine
= bfd_mach_h8300h
;
2358 /* !! FIXME this probably isn't the right place for this. */
2359 abfd
->flags
|= BFD_IS_RELAXABLE
;
2365 arch
= bfd_arch_h8300
;
2366 machine
= bfd_mach_h8300s
;
2367 /* !! FIXME this probably isn't the right place for this. */
2368 abfd
->flags
|= BFD_IS_RELAXABLE
;
2374 arch
= bfd_arch_h8300
;
2375 machine
= bfd_mach_h8300hn
;
2376 /* !! FIXME this probably isn't the right place for this. */
2377 abfd
->flags
|= BFD_IS_RELAXABLE
;
2383 arch
= bfd_arch_h8300
;
2384 machine
= bfd_mach_h8300sn
;
2385 /* !! FIXME this probably isn't the right place for this. */
2386 abfd
->flags
|= BFD_IS_RELAXABLE
;
2390 #ifdef SH_ARCH_MAGIC_BIG
2391 case SH_ARCH_MAGIC_BIG
:
2392 case SH_ARCH_MAGIC_LITTLE
:
2394 case SH_ARCH_MAGIC_WINCE
:
2400 #ifdef MIPS_ARCH_MAGIC_WINCE
2401 case MIPS_ARCH_MAGIC_WINCE
:
2402 arch
= bfd_arch_mips
;
2408 arch
= bfd_arch_h8500
;
2414 #ifdef LYNXCOFFMAGIC
2417 arch
= bfd_arch_sparc
;
2423 arch
= bfd_arch_tic30
;
2428 #ifdef TICOFF_TARGET_ARCH
2429 /* This TI COFF section should be used by all new TI COFF v0 targets. */
2431 arch
= TICOFF_TARGET_ARCH
;
2432 machine
= TICOFF_TARGET_MACHINE_GET (internal_f
->f_flags
);
2438 /* This TI COFF section should be used by all new TI COFF v1/2 targets. */
2439 /* TI COFF1 and COFF2 use the target_id field to specify which arch. */
2442 switch (internal_f
->f_target_id
)
2446 arch
= TICOFF_TARGET_ARCH
;
2447 machine
= TICOFF_TARGET_MACHINE_GET (internal_f
->f_flags
);
2451 arch
= bfd_arch_obscure
;
2452 (*_bfd_error_handler
)
2453 (_("Unrecognized TI COFF target id '0x%x'"),
2454 internal_f
->f_target_id
);
2460 #ifdef TIC80_ARCH_MAGIC
2461 case TIC80_ARCH_MAGIC
:
2462 arch
= bfd_arch_tic80
;
2468 arch
= bfd_arch_mcore
;
2474 arch
= bfd_arch_w65
;
2478 default: /* Unreadable input file type. */
2479 arch
= bfd_arch_obscure
;
2483 bfd_default_set_arch_mach (abfd
, arch
, machine
);
2487 #ifdef SYMNAME_IN_DEBUG
2490 symname_in_debug_hook (bfd
* abfd ATTRIBUTE_UNUSED
, struct internal_syment
*sym
)
2492 return SYMNAME_IN_DEBUG (sym
) != 0;
2497 #define symname_in_debug_hook \
2498 (bfd_boolean (*) (bfd *, struct internal_syment *)) bfd_false
2505 #define FORCE_SYMNAMES_IN_STRINGS
2508 /* Handle the csect auxent of a C_EXT, C_AIX_WEAKEXT or C_HIDEXT symbol. */
2511 coff_pointerize_aux_hook (bfd
*abfd ATTRIBUTE_UNUSED
,
2512 combined_entry_type
*table_base
,
2513 combined_entry_type
*symbol
,
2514 unsigned int indaux
,
2515 combined_entry_type
*aux
)
2517 BFD_ASSERT (symbol
->is_sym
);
2518 int n_sclass
= symbol
->u
.syment
.n_sclass
;
2520 if (CSECT_SYM_P (n_sclass
)
2521 && indaux
+ 1 == symbol
->u
.syment
.n_numaux
)
2523 BFD_ASSERT (! aux
->is_sym
);
2524 if (SMTYP_SMTYP (aux
->u
.auxent
.x_csect
.x_smtyp
) == XTY_LD
)
2526 aux
->u
.auxent
.x_csect
.x_scnlen
.p
=
2527 table_base
+ aux
->u
.auxent
.x_csect
.x_scnlen
.l
;
2528 aux
->fix_scnlen
= 1;
2531 /* Return TRUE to indicate that the caller should not do any
2532 further work on this auxent. */
2536 /* Return FALSE to indicate that this auxent should be handled by
2544 /* We don't want to pointerize bal entries. */
2547 coff_pointerize_aux_hook (bfd
*abfd ATTRIBUTE_UNUSED
,
2548 combined_entry_type
*table_base ATTRIBUTE_UNUSED
,
2549 combined_entry_type
*symbol
,
2550 unsigned int indaux
,
2551 combined_entry_type
*aux ATTRIBUTE_UNUSED
)
2553 /* Return TRUE if we don't want to pointerize this aux entry, which
2554 is the case for the lastfirst aux entry for a C_LEAFPROC symbol. */
2557 && (symbol
->u
.syment
.n_sclass
== C_LEAFPROC
2558 || symbol
->u
.syment
.n_sclass
== C_LEAFSTAT
2559 || symbol
->u
.syment
.n_sclass
== C_LEAFEXT
));
2564 #define coff_pointerize_aux_hook 0
2567 #endif /* ! RS6000COFF_C */
2569 /* Print an aux entry. This returns TRUE if it has printed it. */
2572 coff_print_aux (bfd
*abfd ATTRIBUTE_UNUSED
,
2573 FILE *file ATTRIBUTE_UNUSED
,
2574 combined_entry_type
*table_base ATTRIBUTE_UNUSED
,
2575 combined_entry_type
*symbol ATTRIBUTE_UNUSED
,
2576 combined_entry_type
*aux ATTRIBUTE_UNUSED
,
2577 unsigned int indaux ATTRIBUTE_UNUSED
)
2579 BFD_ASSERT (symbol
->is_sym
);
2580 BFD_ASSERT (! aux
->is_sym
);
2582 if (CSECT_SYM_P (symbol
->u
.syment
.n_sclass
)
2583 && indaux
+ 1 == symbol
->u
.syment
.n_numaux
)
2585 /* This is a csect entry. */
2586 fprintf (file
, "AUX ");
2587 if (SMTYP_SMTYP (aux
->u
.auxent
.x_csect
.x_smtyp
) != XTY_LD
)
2589 BFD_ASSERT (! aux
->fix_scnlen
);
2591 fprintf (file
, "val %5lld",
2592 (long long) aux
->u
.auxent
.x_csect
.x_scnlen
.l
);
2594 fprintf (file
, "val %5ld", (long) aux
->u
.auxent
.x_csect
.x_scnlen
.l
);
2599 fprintf (file
, "indx ");
2600 if (! aux
->fix_scnlen
)
2602 fprintf (file
, "%4lld",
2603 (long long) aux
->u
.auxent
.x_csect
.x_scnlen
.l
);
2605 fprintf (file
, "%4ld", (long) aux
->u
.auxent
.x_csect
.x_scnlen
.l
);
2608 fprintf (file
, "%4ld",
2609 (long) (aux
->u
.auxent
.x_csect
.x_scnlen
.p
- table_base
));
2612 " prmhsh %ld snhsh %u typ %d algn %d clss %u stb %ld snstb %u",
2613 aux
->u
.auxent
.x_csect
.x_parmhash
,
2614 (unsigned int) aux
->u
.auxent
.x_csect
.x_snhash
,
2615 SMTYP_SMTYP (aux
->u
.auxent
.x_csect
.x_smtyp
),
2616 SMTYP_ALIGN (aux
->u
.auxent
.x_csect
.x_smtyp
),
2617 (unsigned int) aux
->u
.auxent
.x_csect
.x_smclas
,
2618 aux
->u
.auxent
.x_csect
.x_stab
,
2619 (unsigned int) aux
->u
.auxent
.x_csect
.x_snstab
);
2624 /* Return FALSE to indicate that no special action was taken. */
2632 To write relocations, the back end steps though the
2633 canonical relocation table and create an
2634 @code{internal_reloc}. The symbol index to use is removed from
2635 the @code{offset} field in the symbol table supplied. The
2636 address comes directly from the sum of the section base
2637 address and the relocation offset; the type is dug directly
2638 from the howto field. Then the @code{internal_reloc} is
2639 swapped into the shape of an @code{external_reloc} and written
2647 /* AUX's ld wants relocations to be sorted. */
2649 compare_arelent_ptr (const void * x
, const void * y
)
2651 const arelent
**a
= (const arelent
**) x
;
2652 const arelent
**b
= (const arelent
**) y
;
2653 bfd_size_type aadr
= (*a
)->address
;
2654 bfd_size_type badr
= (*b
)->address
;
2656 return (aadr
< badr
? -1 : badr
< aadr
? 1 : 0);
2659 #endif /* TARG_AUX */
2662 coff_write_relocs (bfd
* abfd
, int first_undef
)
2666 for (s
= abfd
->sections
; s
!= NULL
; s
= s
->next
)
2669 struct external_reloc dst
;
2676 /* Sort relocations before we write them out. */
2679 amt
= s
->reloc_count
;
2680 amt
*= sizeof (arelent
*);
2681 p
= bfd_malloc (amt
);
2684 if (s
->reloc_count
> 0)
2689 memcpy (p
, s
->orelocation
, (size_t) amt
);
2690 qsort (p
, s
->reloc_count
, sizeof (arelent
*), compare_arelent_ptr
);
2695 if (bfd_seek (abfd
, s
->rel_filepos
, SEEK_SET
) != 0)
2699 if (obj_pe (abfd
) && s
->reloc_count
>= 0xffff)
2701 /* Encode real count here as first reloc. */
2702 struct internal_reloc n
;
2704 memset (& n
, 0, sizeof (n
));
2705 /* Add one to count *this* reloc (grr). */
2706 n
.r_vaddr
= s
->reloc_count
+ 1;
2707 coff_swap_reloc_out (abfd
, &n
, &dst
);
2708 if (bfd_bwrite (& dst
, (bfd_size_type
) bfd_coff_relsz (abfd
),
2709 abfd
) != bfd_coff_relsz (abfd
))
2714 for (i
= 0; i
< s
->reloc_count
; i
++)
2716 struct internal_reloc n
;
2719 memset (& n
, 0, sizeof (n
));
2721 /* Now we've renumbered the symbols we know where the
2722 undefined symbols live in the table. Check the reloc
2723 entries for symbols who's output bfd isn't the right one.
2724 This is because the symbol was undefined (which means
2725 that all the pointers are never made to point to the same
2726 place). This is a bad thing,'cause the symbols attached
2727 to the output bfd are indexed, so that the relocation
2728 entries know which symbol index they point to. So we
2729 have to look up the output symbol here. */
2731 if (q
->sym_ptr_ptr
[0] != NULL
&& q
->sym_ptr_ptr
[0]->the_bfd
!= abfd
)
2734 const char *sname
= q
->sym_ptr_ptr
[0]->name
;
2735 asymbol
**outsyms
= abfd
->outsymbols
;
2737 for (j
= first_undef
; outsyms
[j
]; j
++)
2739 const char *intable
= outsyms
[j
]->name
;
2741 if (strcmp (intable
, sname
) == 0)
2743 /* Got a hit, so repoint the reloc. */
2744 q
->sym_ptr_ptr
= outsyms
+ j
;
2750 n
.r_vaddr
= q
->address
+ s
->vma
;
2753 /* The 29k const/consth reloc pair is a real kludge. The consth
2754 part doesn't have a symbol; it has an offset. So rebuilt
2756 if (q
->howto
->type
== R_IHCONST
)
2757 n
.r_symndx
= q
->addend
;
2760 if (q
->sym_ptr_ptr
&& q
->sym_ptr_ptr
[0] != NULL
)
2762 #ifdef SECTION_RELATIVE_ABSOLUTE_SYMBOL_P
2763 if (SECTION_RELATIVE_ABSOLUTE_SYMBOL_P (q
, s
))
2765 if ((*q
->sym_ptr_ptr
)->section
== bfd_abs_section_ptr
2766 && ((*q
->sym_ptr_ptr
)->flags
& BSF_SECTION_SYM
) != 0)
2768 /* This is a relocation relative to the absolute symbol. */
2772 n
.r_symndx
= get_index ((*(q
->sym_ptr_ptr
)));
2773 /* Check to see if the symbol reloc points to a symbol
2774 we don't have in our symbol table. */
2775 if (n
.r_symndx
> obj_conv_table_size (abfd
))
2777 bfd_set_error (bfd_error_bad_value
);
2778 _bfd_error_handler (_("%B: reloc against a non-existant symbol index: %ld"),
2785 #ifdef SWAP_OUT_RELOC_OFFSET
2786 n
.r_offset
= q
->addend
;
2790 /* Work out reloc type from what is required. */
2791 SELECT_RELOC (n
, q
->howto
);
2793 n
.r_type
= q
->howto
->type
;
2795 coff_swap_reloc_out (abfd
, &n
, &dst
);
2797 if (bfd_bwrite (& dst
, (bfd_size_type
) bfd_coff_relsz (abfd
),
2798 abfd
) != bfd_coff_relsz (abfd
))
2811 /* Set flags and magic number of a coff file from architecture and machine
2812 type. Result is TRUE if we can represent the arch&type, FALSE if not. */
2815 coff_set_flags (bfd
* abfd
,
2816 unsigned int *magicp ATTRIBUTE_UNUSED
,
2817 unsigned short *flagsp ATTRIBUTE_UNUSED
)
2819 switch (bfd_get_arch (abfd
))
2824 switch (bfd_get_mach (abfd
))
2827 case bfd_mach_z80strict
:
2829 case bfd_mach_z80full
:
2831 *flagsp
= bfd_get_mach (abfd
) << 12;
2843 switch (bfd_get_mach (abfd
))
2845 case bfd_mach_z8001
: *flagsp
= F_Z8001
; break;
2846 case bfd_mach_z8002
: *flagsp
= F_Z8002
; break;
2847 default: return FALSE
;
2858 *magicp
= I960ROMAGIC
;
2860 switch (bfd_get_mach (abfd
))
2862 case bfd_mach_i960_core
: flags
= F_I960CORE
; break;
2863 case bfd_mach_i960_kb_sb
: flags
= F_I960KB
; break;
2864 case bfd_mach_i960_mc
: flags
= F_I960MC
; break;
2865 case bfd_mach_i960_xa
: flags
= F_I960XA
; break;
2866 case bfd_mach_i960_ca
: flags
= F_I960CA
; break;
2867 case bfd_mach_i960_ka_sa
: flags
= F_I960KA
; break;
2868 case bfd_mach_i960_jx
: flags
= F_I960JX
; break;
2869 case bfd_mach_i960_hx
: flags
= F_I960HX
; break;
2870 default: return FALSE
;
2879 case bfd_arch_tic30
:
2880 *magicp
= TIC30MAGIC
;
2884 #ifdef TICOFF_DEFAULT_MAGIC
2885 case TICOFF_TARGET_ARCH
:
2886 /* If there's no indication of which version we want, use the default. */
2888 *magicp
= TICOFF_DEFAULT_MAGIC
;
2891 /* We may want to output in a different COFF version. */
2892 switch (abfd
->xvec
->name
[4])
2895 *magicp
= TICOFF0MAGIC
;
2898 *magicp
= TICOFF1MAGIC
;
2901 *magicp
= TICOFF2MAGIC
;
2907 TICOFF_TARGET_MACHINE_SET (flagsp
, bfd_get_mach (abfd
));
2911 #ifdef TIC80_ARCH_MAGIC
2912 case bfd_arch_tic80
:
2913 *magicp
= TIC80_ARCH_MAGIC
;
2920 * magicp
= ARMPEMAGIC
;
2922 * magicp
= ARMMAGIC
;
2925 if (APCS_SET (abfd
))
2927 if (APCS_26_FLAG (abfd
))
2928 * flagsp
|= F_APCS26
;
2930 if (APCS_FLOAT_FLAG (abfd
))
2931 * flagsp
|= F_APCS_FLOAT
;
2933 if (PIC_FLAG (abfd
))
2936 if (INTERWORK_SET (abfd
) && INTERWORK_FLAG (abfd
))
2937 * flagsp
|= F_INTERWORK
;
2938 switch (bfd_get_mach (abfd
))
2940 case bfd_mach_arm_2
: * flagsp
|= F_ARM_2
; break;
2941 case bfd_mach_arm_2a
: * flagsp
|= F_ARM_2a
; break;
2942 case bfd_mach_arm_3
: * flagsp
|= F_ARM_3
; break;
2943 case bfd_mach_arm_3M
: * flagsp
|= F_ARM_3M
; break;
2944 case bfd_mach_arm_4
: * flagsp
|= F_ARM_4
; break;
2945 case bfd_mach_arm_4T
: * flagsp
|= F_ARM_4T
; break;
2946 case bfd_mach_arm_5
: * flagsp
|= F_ARM_5
; break;
2947 /* FIXME: we do not have F_ARM vaues greater than F_ARM_5.
2948 See also the comment in coff_set_arch_mach_hook(). */
2949 case bfd_mach_arm_5T
: * flagsp
|= F_ARM_5
; break;
2950 case bfd_mach_arm_5TE
: * flagsp
|= F_ARM_5
; break;
2951 case bfd_mach_arm_XScale
: * flagsp
|= F_ARM_5
; break;
2957 case bfd_arch_powerpc
:
2962 #if defined(I386MAGIC) || defined(AMD64MAGIC)
2964 #if defined(I386MAGIC)
2965 *magicp
= I386MAGIC
;
2968 /* Just overwrite the usual value if we're doing Lynx. */
2969 *magicp
= LYNXCOFFMAGIC
;
2971 #if defined AMD64MAGIC
2972 *magicp
= AMD64MAGIC
;
2979 *magicp
= I860MAGIC
;
2985 *magicp
= IA64MAGIC
;
2991 #ifdef APOLLOM68KMAGIC
2992 *magicp
= APOLLO_COFF_VERSION_NUMBER
;
2994 /* NAMES_HAVE_UNDERSCORE may be defined by coff-u68k.c. */
2995 #ifdef NAMES_HAVE_UNDERSCORE
2996 *magicp
= MC68KBCSMAGIC
;
2998 *magicp
= MC68MAGIC
;
3002 /* Just overwrite the usual value if we're doing Lynx. */
3003 *magicp
= LYNXCOFFMAGIC
;
3010 *magicp
= MC88OMAGIC
;
3015 case bfd_arch_h8300
:
3016 switch (bfd_get_mach (abfd
))
3018 case bfd_mach_h8300
: *magicp
= H8300MAGIC
; return TRUE
;
3019 case bfd_mach_h8300h
: *magicp
= H8300HMAGIC
; return TRUE
;
3020 case bfd_mach_h8300s
: *magicp
= H8300SMAGIC
; return TRUE
;
3021 case bfd_mach_h8300hn
: *magicp
= H8300HNMAGIC
; return TRUE
;
3022 case bfd_mach_h8300sn
: *magicp
= H8300SNMAGIC
; return TRUE
;
3028 #ifdef SH_ARCH_MAGIC_BIG
3030 #ifdef COFF_IMAGE_WITH_PE
3031 *magicp
= SH_ARCH_MAGIC_WINCE
;
3033 if (bfd_big_endian (abfd
))
3034 *magicp
= SH_ARCH_MAGIC_BIG
;
3036 *magicp
= SH_ARCH_MAGIC_LITTLE
;
3041 #ifdef MIPS_ARCH_MAGIC_WINCE
3043 *magicp
= MIPS_ARCH_MAGIC_WINCE
;
3048 case bfd_arch_sparc
:
3049 *magicp
= SPARCMAGIC
;
3051 /* Just overwrite the usual value if we're doing Lynx. */
3052 *magicp
= LYNXCOFFMAGIC
;
3058 case bfd_arch_h8500
:
3059 *magicp
= H8500MAGIC
;
3065 case bfd_arch_we32k
:
3066 *magicp
= WE32KMAGIC
;
3071 case bfd_arch_rs6000
:
3073 case bfd_arch_powerpc
:
3075 BFD_ASSERT (bfd_get_flavour (abfd
) == bfd_target_xcoff_flavour
);
3076 *magicp
= bfd_xcoff_magic_number (abfd
);
3081 case bfd_arch_mcore
:
3082 * magicp
= MCOREMAGIC
;
3092 default: /* Unknown architecture. */
3093 /* Fall through to "return FALSE" below, to avoid
3094 "statement never reached" errors on the one below. */
3102 coff_set_arch_mach (bfd
* abfd
,
3103 enum bfd_architecture arch
,
3104 unsigned long machine
)
3107 unsigned short dummy2
;
3109 if (! bfd_default_set_arch_mach (abfd
, arch
, machine
))
3112 if (arch
!= bfd_arch_unknown
3113 && ! coff_set_flags (abfd
, &dummy1
, &dummy2
))
3114 return FALSE
; /* We can't represent this type. */
3116 return TRUE
; /* We're easy... */
3119 #ifdef COFF_IMAGE_WITH_PE
3121 /* This is used to sort sections by VMA, as required by PE image
3125 sort_by_secaddr (const void * arg1
, const void * arg2
)
3127 const asection
*a
= *(const asection
**) arg1
;
3128 const asection
*b
= *(const asection
**) arg2
;
3130 if (a
->vma
< b
->vma
)
3132 else if (a
->vma
> b
->vma
)
3138 #endif /* COFF_IMAGE_WITH_PE */
3140 /* Calculate the file position for each section. */
3143 #define ALIGN_SECTIONS_IN_FILE
3145 #if defined(TIC80COFF) || defined(TICOFF)
3146 #undef ALIGN_SECTIONS_IN_FILE
3150 coff_compute_section_file_positions (bfd
* abfd
)
3153 file_ptr sofar
= bfd_coff_filhsz (abfd
);
3154 bfd_boolean align_adjust
;
3155 unsigned int target_index
;
3156 #ifdef ALIGN_SECTIONS_IN_FILE
3157 asection
*previous
= NULL
;
3161 #ifdef COFF_IMAGE_WITH_PE
3164 if (coff_data (abfd
)->link_info
3165 || (pe_data (abfd
) && pe_data (abfd
)->pe_opthdr
.FileAlignment
))
3167 page_size
= pe_data (abfd
)->pe_opthdr
.FileAlignment
;
3169 /* If no file alignment has been set, default to one.
3170 This repairs 'ld -r' for arm-wince-pe target. */
3175 page_size
= PE_DEF_FILE_ALIGNMENT
;
3177 #ifdef COFF_PAGE_SIZE
3178 int page_size
= COFF_PAGE_SIZE
;
3183 /* On XCOFF, if we have symbols, set up the .debug section. */
3184 if (bfd_get_symcount (abfd
) > 0)
3187 bfd_size_type i
, symcount
;
3191 symcount
= bfd_get_symcount (abfd
);
3192 for (symp
= abfd
->outsymbols
, i
= 0; i
< symcount
; symp
++, i
++)
3194 coff_symbol_type
*cf
;
3196 cf
= coff_symbol_from (*symp
);
3198 && cf
->native
!= NULL
3199 && cf
->native
->is_sym
3200 && SYMNAME_IN_DEBUG (&cf
->native
->u
.syment
))
3204 len
= strlen (bfd_asymbol_name (*symp
));
3205 if (len
> SYMNMLEN
|| bfd_coff_force_symnames_in_strings (abfd
))
3206 sz
+= len
+ 1 + bfd_coff_debug_string_prefix_length (abfd
);
3213 dsec
= bfd_make_section_old_way (abfd
, DOT_DEBUG
);
3217 dsec
->flags
|= SEC_HAS_CONTENTS
;
3222 if (bfd_get_start_address (abfd
))
3223 /* A start address may have been added to the original file. In this
3224 case it will need an optional header to record it. */
3225 abfd
->flags
|= EXEC_P
;
3227 if (abfd
->flags
& EXEC_P
)
3228 sofar
+= bfd_coff_aoutsz (abfd
);
3230 else if (xcoff_data (abfd
)->full_aouthdr
)
3231 sofar
+= bfd_coff_aoutsz (abfd
);
3233 sofar
+= SMALL_AOUTSZ
;
3236 sofar
+= abfd
->section_count
* bfd_coff_scnhsz (abfd
);
3239 /* XCOFF handles overflows in the reloc and line number count fields
3240 by allocating a new section header to hold the correct counts. */
3241 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
3242 if (current
->reloc_count
>= 0xffff || current
->lineno_count
>= 0xffff)
3243 sofar
+= bfd_coff_scnhsz (abfd
);
3246 #ifdef COFF_IMAGE_WITH_PE
3248 /* PE requires the sections to be in memory order when listed in
3249 the section headers. It also does not like empty loadable
3250 sections. The sections apparently do not have to be in the
3251 right order in the image file itself, but we do need to get the
3252 target_index values right. */
3255 asection
**section_list
;
3259 #ifdef COFF_PAGE_SIZE
3260 /* Clear D_PAGED if section alignment is smaller than
3262 if (pe_data (abfd
)->pe_opthdr
.SectionAlignment
< COFF_PAGE_SIZE
)
3263 abfd
->flags
&= ~D_PAGED
;
3267 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
3270 /* We allocate an extra cell to simplify the final loop. */
3271 amt
= sizeof (struct asection
*) * (count
+ 1);
3272 section_list
= (asection
**) bfd_malloc (amt
);
3273 if (section_list
== NULL
)
3277 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
3279 section_list
[i
] = current
;
3282 section_list
[i
] = NULL
;
3284 qsort (section_list
, count
, sizeof (asection
*), sort_by_secaddr
);
3286 /* Rethread the linked list into sorted order; at the same time,
3287 assign target_index values. */
3289 abfd
->sections
= NULL
;
3290 abfd
->section_last
= NULL
;
3291 for (i
= 0; i
< count
; i
++)
3293 current
= section_list
[i
];
3294 bfd_section_list_append (abfd
, current
);
3296 /* Later, if the section has zero size, we'll be throwing it
3297 away, so we don't want to number it now. Note that having
3298 a zero size and having real contents are different
3299 concepts: .bss has no contents, but (usually) non-zero
3301 if (current
->size
== 0)
3303 /* Discard. However, it still might have (valid) symbols
3304 in it, so arbitrarily set it to section 1 (indexing is
3305 1-based here; usually .text). __end__ and other
3306 contents of .endsection really have this happen.
3307 FIXME: This seems somewhat dubious. */
3308 current
->target_index
= 1;
3311 current
->target_index
= target_index
++;
3314 free (section_list
);
3316 #else /* ! COFF_IMAGE_WITH_PE */
3318 /* Set the target_index field. */
3320 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
3321 current
->target_index
= target_index
++;
3323 #endif /* ! COFF_IMAGE_WITH_PE */
3325 if (target_index
>= bfd_coff_max_nscns (abfd
))
3327 bfd_set_error (bfd_error_file_too_big
);
3328 (*_bfd_error_handler
)
3329 (_("%B: too many sections (%d)"), abfd
, target_index
);
3333 align_adjust
= FALSE
;
3334 for (current
= abfd
->sections
;
3336 current
= current
->next
)
3338 #ifdef COFF_IMAGE_WITH_PE
3339 /* With PE we have to pad each section to be a multiple of its
3340 page size too, and remember both sizes. */
3341 if (coff_section_data (abfd
, current
) == NULL
)
3343 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
3345 current
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
3346 if (current
->used_by_bfd
== NULL
)
3349 if (pei_section_data (abfd
, current
) == NULL
)
3351 bfd_size_type amt
= sizeof (struct pei_section_tdata
);
3353 coff_section_data (abfd
, current
)->tdata
= bfd_zalloc (abfd
, amt
);
3354 if (coff_section_data (abfd
, current
)->tdata
== NULL
)
3357 if (pei_section_data (abfd
, current
)->virt_size
== 0)
3358 pei_section_data (abfd
, current
)->virt_size
= current
->size
;
3361 /* Only deal with sections which have contents. */
3362 if (!(current
->flags
& SEC_HAS_CONTENTS
))
3365 current
->rawsize
= current
->size
;
3367 #ifdef COFF_IMAGE_WITH_PE
3368 /* Make sure we skip empty sections in a PE image. */
3369 if (current
->size
== 0)
3373 /* Align the sections in the file to the same boundary on
3374 which they are aligned in virtual memory. I960 doesn't
3375 do this (FIXME) so we can stay in sync with Intel. 960
3376 doesn't yet page from files... */
3377 #ifdef ALIGN_SECTIONS_IN_FILE
3378 if ((abfd
->flags
& EXEC_P
) != 0)
3380 /* Make sure this section is aligned on the right boundary - by
3381 padding the previous section up if necessary. */
3384 sofar
= BFD_ALIGN (sofar
, 1 << current
->alignment_power
);
3387 /* Make sure the file offset and the vma of .text/.data are at the
3388 same page offset, so that the file can be mmap'ed without being
3389 relocated. Failing that, AIX is able to load and execute the
3390 program, but it will be silently relocated (possible as
3391 executables are PIE). But the relocation is slightly costly and
3392 complexify the use of addr2line or gdb. So better to avoid it,
3393 like does the native linker. Usually gnu ld makes sure that
3394 the vma of .text is the file offset so this issue shouldn't
3395 appear unless you are stripping such an executable.
3397 AIX loader checks the text section alignment of (vma - filepos),
3398 and the native linker doesn't try to align the text sections.
3401 0 .text 000054cc 10000128 10000128 00000128 2**5
3402 CONTENTS, ALLOC, LOAD, CODE
3405 if (!strcmp (current
->name
, _TEXT
)
3406 || !strcmp (current
->name
, _DATA
))
3408 bfd_vma align
= 4096;
3409 bfd_vma sofar_off
= sofar
% align
;
3410 bfd_vma vma_off
= current
->vma
% align
;
3412 if (vma_off
> sofar_off
)
3413 sofar
+= vma_off
- sofar_off
;
3414 else if (vma_off
< sofar_off
)
3415 sofar
+= align
+ vma_off
- sofar_off
;
3418 if (previous
!= NULL
)
3419 previous
->size
+= sofar
- old_sofar
;
3424 /* In demand paged files the low order bits of the file offset
3425 must match the low order bits of the virtual address. */
3426 #ifdef COFF_PAGE_SIZE
3427 if ((abfd
->flags
& D_PAGED
) != 0
3428 && (current
->flags
& SEC_ALLOC
) != 0)
3429 sofar
+= (current
->vma
- (bfd_vma
) sofar
) % page_size
;
3431 current
->filepos
= sofar
;
3433 #ifdef COFF_IMAGE_WITH_PE
3434 /* Set the padded size. */
3435 current
->size
= (current
->size
+ page_size
- 1) & -page_size
;
3438 sofar
+= current
->size
;
3440 #ifdef ALIGN_SECTIONS_IN_FILE
3441 /* Make sure that this section is of the right size too. */
3442 if ((abfd
->flags
& EXEC_P
) == 0)
3444 bfd_size_type old_size
;
3446 old_size
= current
->size
;
3447 current
->size
= BFD_ALIGN (current
->size
,
3448 1 << current
->alignment_power
);
3449 align_adjust
= current
->size
!= old_size
;
3450 sofar
+= current
->size
- old_size
;
3455 sofar
= BFD_ALIGN (sofar
, 1 << current
->alignment_power
);
3456 align_adjust
= sofar
!= old_sofar
;
3457 current
->size
+= sofar
- old_sofar
;
3461 #ifdef COFF_IMAGE_WITH_PE
3462 /* For PE we need to make sure we pad out to the aligned
3463 size, in case the caller only writes out data to the
3465 if (pei_section_data (abfd
, current
)->virt_size
< current
->size
)
3466 align_adjust
= TRUE
;
3470 /* Force .lib sections to start at zero. The vma is then
3471 incremented in coff_set_section_contents. This is right for
3473 if (strcmp (current
->name
, _LIB
) == 0)
3474 (void) bfd_set_section_vma (abfd
, current
, 0);
3477 #ifdef ALIGN_SECTIONS_IN_FILE
3482 /* It is now safe to write to the output file. If we needed an
3483 alignment adjustment for the last section, then make sure that
3484 there is a byte at offset sofar. If there are no symbols and no
3485 relocs, then nothing follows the last section. If we don't force
3486 the last byte out, then the file may appear to be truncated. */
3492 if (bfd_seek (abfd
, sofar
- 1, SEEK_SET
) != 0
3493 || bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
3497 /* Make sure the relocations are aligned. We don't need to make
3498 sure that this byte exists, because it will only matter if there
3499 really are relocs. */
3500 sofar
= BFD_ALIGN (sofar
, 1 << COFF_DEFAULT_SECTION_ALIGNMENT_POWER
);
3502 obj_relocbase (abfd
) = sofar
;
3503 abfd
->output_has_begun
= TRUE
;
3508 #ifdef COFF_IMAGE_WITH_PE
3510 static unsigned int pelength
;
3511 static unsigned int peheader
;
3514 coff_read_word (bfd
*abfd
, unsigned int *value
)
3519 status
= bfd_bread (b
, (bfd_size_type
) 2, abfd
);
3527 *value
= (unsigned int) b
[0];
3529 *value
= (unsigned int) (b
[0] + (b
[1] << 8));
3531 pelength
+= (unsigned int) status
;
3537 coff_compute_checksum (bfd
*abfd
)
3539 bfd_boolean more_data
;
3546 filepos
= (file_ptr
) 0;
3550 if (bfd_seek (abfd
, filepos
, SEEK_SET
) != 0)
3553 more_data
= coff_read_word (abfd
, &value
);
3555 total
= 0xffff & (total
+ (total
>> 0x10));
3560 return (0xffff & (total
+ (total
>> 0x10)));
3564 coff_apply_checksum (bfd
*abfd
)
3566 unsigned int computed
;
3567 unsigned int checksum
= 0;
3569 if (bfd_seek (abfd
, 0x3c, SEEK_SET
) != 0)
3572 if (!coff_read_word (abfd
, &peheader
))
3575 if (bfd_seek (abfd
, peheader
+ 0x58, SEEK_SET
) != 0)
3579 bfd_bwrite (&checksum
, (bfd_size_type
) 4, abfd
);
3581 if (bfd_seek (abfd
, peheader
, SEEK_SET
) != 0)
3584 computed
= coff_compute_checksum (abfd
);
3586 checksum
= computed
+ pelength
;
3588 if (bfd_seek (abfd
, peheader
+ 0x58, SEEK_SET
) != 0)
3591 bfd_bwrite (&checksum
, (bfd_size_type
) 4, abfd
);
3596 #endif /* COFF_IMAGE_WITH_PE */
3599 coff_write_object_contents (bfd
* abfd
)
3602 bfd_boolean hasrelocs
= FALSE
;
3603 bfd_boolean haslinno
= FALSE
;
3604 #ifdef COFF_IMAGE_WITH_PE
3605 bfd_boolean hasdebug
= FALSE
;
3608 file_ptr reloc_base
;
3609 file_ptr lineno_base
;
3611 unsigned long reloc_size
= 0, reloc_count
= 0;
3612 unsigned long lnno_size
= 0;
3613 bfd_boolean long_section_names
;
3614 asection
*text_sec
= NULL
;
3615 asection
*data_sec
= NULL
;
3616 asection
*bss_sec
= NULL
;
3617 struct internal_filehdr internal_f
;
3618 struct internal_aouthdr internal_a
;
3619 #ifdef COFF_LONG_SECTION_NAMES
3620 size_t string_size
= STRING_SIZE_SIZE
;
3623 bfd_set_error (bfd_error_system_call
);
3625 /* Make a pass through the symbol table to count line number entries and
3626 put them into the correct asections. */
3627 lnno_size
= coff_count_linenumbers (abfd
) * bfd_coff_linesz (abfd
);
3629 if (! abfd
->output_has_begun
)
3631 if (! coff_compute_section_file_positions (abfd
))
3635 reloc_base
= obj_relocbase (abfd
);
3637 /* Work out the size of the reloc and linno areas. */
3639 for (current
= abfd
->sections
; current
!= NULL
; current
=
3643 /* We store the actual reloc count in the first reloc's addr. */
3644 if (obj_pe (abfd
) && current
->reloc_count
>= 0xffff)
3647 reloc_count
+= current
->reloc_count
;
3650 reloc_size
= reloc_count
* bfd_coff_relsz (abfd
);
3652 lineno_base
= reloc_base
+ reloc_size
;
3653 sym_base
= lineno_base
+ lnno_size
;
3655 /* Indicate in each section->line_filepos its actual file address. */
3656 for (current
= abfd
->sections
; current
!= NULL
; current
=
3659 if (current
->lineno_count
)
3661 current
->line_filepos
= lineno_base
;
3662 current
->moving_line_filepos
= lineno_base
;
3663 lineno_base
+= current
->lineno_count
* bfd_coff_linesz (abfd
);
3666 current
->line_filepos
= 0;
3668 if (current
->reloc_count
)
3670 current
->rel_filepos
= reloc_base
;
3671 reloc_base
+= current
->reloc_count
* bfd_coff_relsz (abfd
);
3673 /* Extra reloc to hold real count. */
3674 if (obj_pe (abfd
) && current
->reloc_count
>= 0xffff)
3675 reloc_base
+= bfd_coff_relsz (abfd
);
3679 current
->rel_filepos
= 0;
3682 /* Write section headers to the file. */
3683 internal_f
.f_nscns
= 0;
3685 if ((abfd
->flags
& EXEC_P
) != 0)
3686 scn_base
= bfd_coff_filhsz (abfd
) + bfd_coff_aoutsz (abfd
);
3689 scn_base
= bfd_coff_filhsz (abfd
);
3692 if (xcoff_data (abfd
)->full_aouthdr
)
3693 scn_base
+= bfd_coff_aoutsz (abfd
);
3695 scn_base
+= SMALL_AOUTSZ
;
3700 if (bfd_seek (abfd
, scn_base
, SEEK_SET
) != 0)
3703 long_section_names
= FALSE
;
3704 for (current
= abfd
->sections
;
3706 current
= current
->next
)
3708 struct internal_scnhdr section
;
3709 #ifdef COFF_IMAGE_WITH_PE
3710 bfd_boolean is_reloc_section
= FALSE
;
3712 if (strcmp (current
->name
, DOT_RELOC
) == 0)
3714 is_reloc_section
= TRUE
;
3716 pe_data (abfd
)->has_reloc_section
= 1;
3720 internal_f
.f_nscns
++;
3722 strncpy (section
.s_name
, current
->name
, SCNNMLEN
);
3724 #ifdef COFF_LONG_SECTION_NAMES
3725 /* Handle long section names as in PE. This must be compatible
3726 with the code in coff_write_symbols and _bfd_coff_final_link. */
3727 if (bfd_coff_long_section_names (abfd
))
3731 len
= strlen (current
->name
);
3734 /* The s_name field is defined to be NUL-padded but need not be
3735 NUL-terminated. We use a temporary buffer so that we can still
3736 sprintf all eight chars without splatting a terminating NUL
3737 over the first byte of the following member (s_paddr). */
3738 char s_name_buf
[SCNNMLEN
+ 1];
3740 /* An inherent limitation of the /nnnnnnn notation used to indicate
3741 the offset of the long name in the string table is that we
3742 cannot address entries beyone the ten million byte boundary. */
3743 if (string_size
>= 10000000)
3745 bfd_set_error (bfd_error_file_too_big
);
3746 (*_bfd_error_handler
)
3747 (_("%B: section %s: string table overflow at offset %ld"),
3748 abfd
, current
->name
, string_size
);
3752 /* snprintf not strictly necessary now we've verified the value
3753 has less than eight ASCII digits, but never mind. */
3754 snprintf (s_name_buf
, SCNNMLEN
+ 1, "/%lu", (unsigned long) string_size
);
3755 /* Then strncpy takes care of any padding for us. */
3756 strncpy (section
.s_name
, s_name_buf
, SCNNMLEN
);
3757 string_size
+= len
+ 1;
3758 long_section_names
= TRUE
;
3764 /* Always set s_vaddr of .lib to 0. This is right for SVR3.2
3765 Ian Taylor <ian@cygnus.com>. */
3766 if (strcmp (current
->name
, _LIB
) == 0)
3767 section
.s_vaddr
= 0;
3770 section
.s_vaddr
= current
->vma
;
3771 section
.s_paddr
= current
->lma
;
3772 section
.s_size
= current
->size
;
3773 #ifdef coff_get_section_load_page
3774 section
.s_page
= coff_get_section_load_page (current
);
3780 section
.s_paddr
= 0;
3782 #ifdef COFF_IMAGE_WITH_PE
3783 /* Reminder: s_paddr holds the virtual size of the section. */
3784 if (coff_section_data (abfd
, current
) != NULL
3785 && pei_section_data (abfd
, current
) != NULL
)
3786 section
.s_paddr
= pei_section_data (abfd
, current
)->virt_size
;
3788 section
.s_paddr
= 0;
3791 /* If this section has no size or is unloadable then the scnptr
3793 if (current
->size
== 0
3794 || (current
->flags
& (SEC_LOAD
| SEC_HAS_CONTENTS
)) == 0)
3795 section
.s_scnptr
= 0;
3797 section
.s_scnptr
= current
->filepos
;
3799 section
.s_relptr
= current
->rel_filepos
;
3800 section
.s_lnnoptr
= current
->line_filepos
;
3801 section
.s_nreloc
= current
->reloc_count
;
3802 section
.s_nlnno
= current
->lineno_count
;
3803 #ifndef COFF_IMAGE_WITH_PE
3804 /* In PEI, relocs come in the .reloc section. */
3805 if (current
->reloc_count
!= 0)
3808 if (current
->lineno_count
!= 0)
3810 #ifdef COFF_IMAGE_WITH_PE
3811 if ((current
->flags
& SEC_DEBUGGING
) != 0
3812 && ! is_reloc_section
)
3818 /* Indicate the use of an XCOFF overflow section header. */
3819 if (current
->reloc_count
>= 0xffff || current
->lineno_count
>= 0xffff)
3821 section
.s_nreloc
= 0xffff;
3822 section
.s_nlnno
= 0xffff;
3827 section
.s_flags
= sec_to_styp_flags (current
->name
, current
->flags
);
3829 if (!strcmp (current
->name
, _TEXT
))
3831 else if (!strcmp (current
->name
, _DATA
))
3833 else if (!strcmp (current
->name
, _BSS
))
3837 section
.s_align
= (current
->alignment_power
3838 ? 1 << current
->alignment_power
3842 /* TI COFF puts the alignment power in bits 8-11 of the flags. */
3843 section
.s_flags
|= (current
->alignment_power
& 0xF) << 8;
3845 #ifdef COFF_ENCODE_ALIGNMENT
3846 COFF_ENCODE_ALIGNMENT(section
, current
->alignment_power
);
3849 #ifdef COFF_IMAGE_WITH_PE
3850 /* Suppress output of the sections if they are null. ld
3851 includes the bss and data sections even if there is no size
3852 assigned to them. NT loader doesn't like it if these section
3853 headers are included if the sections themselves are not
3854 needed. See also coff_compute_section_file_positions. */
3855 if (section
.s_size
== 0)
3856 internal_f
.f_nscns
--;
3861 bfd_size_type amt
= bfd_coff_scnhsz (abfd
);
3863 if (coff_swap_scnhdr_out (abfd
, §ion
, &buff
) == 0
3864 || bfd_bwrite (& buff
, amt
, abfd
) != amt
)
3869 /* PE stores COMDAT section information in the symbol table. If
3870 this section is supposed to have some COMDAT info, track down
3871 the symbol in the symbol table and modify it. */
3872 if ((current
->flags
& SEC_LINK_ONCE
) != 0)
3874 unsigned int i
, count
;
3876 coff_symbol_type
*csym
= NULL
;
3880 count
= bfd_get_symcount (abfd
);
3881 for (i
= 0, psym
= abfd
->outsymbols
; i
< count
; i
++, psym
++)
3883 if ((*psym
)->section
!= current
)
3886 /* Remember the location of the first symbol in this
3888 if (psymsec
== NULL
)
3891 /* See if this is the section symbol. */
3892 if (strcmp ((*psym
)->name
, current
->name
) == 0)
3894 csym
= coff_symbol_from (*psym
);
3896 || csym
->native
== NULL
3897 || ! csym
->native
->is_sym
3898 || csym
->native
->u
.syment
.n_numaux
< 1
3899 || csym
->native
->u
.syment
.n_sclass
!= C_STAT
3900 || csym
->native
->u
.syment
.n_type
!= T_NULL
)
3903 /* Here *PSYM is the section symbol for CURRENT. */
3910 Note that we might not if we're converting the file from
3911 some other object file format. */
3914 combined_entry_type
*aux
;
3916 /* We don't touch the x_checksum field. The
3917 x_associated field is not currently supported. */
3919 aux
= csym
->native
+ 1;
3920 BFD_ASSERT (! aux
->is_sym
);
3921 switch (current
->flags
& SEC_LINK_DUPLICATES
)
3923 case SEC_LINK_DUPLICATES_DISCARD
:
3924 aux
->u
.auxent
.x_scn
.x_comdat
= IMAGE_COMDAT_SELECT_ANY
;
3927 case SEC_LINK_DUPLICATES_ONE_ONLY
:
3928 aux
->u
.auxent
.x_scn
.x_comdat
=
3929 IMAGE_COMDAT_SELECT_NODUPLICATES
;
3932 case SEC_LINK_DUPLICATES_SAME_SIZE
:
3933 aux
->u
.auxent
.x_scn
.x_comdat
=
3934 IMAGE_COMDAT_SELECT_SAME_SIZE
;
3937 case SEC_LINK_DUPLICATES_SAME_CONTENTS
:
3938 aux
->u
.auxent
.x_scn
.x_comdat
=
3939 IMAGE_COMDAT_SELECT_EXACT_MATCH
;
3943 /* The COMDAT symbol must be the first symbol from this
3944 section in the symbol table. In order to make this
3945 work, we move the COMDAT symbol before the first
3946 symbol we found in the search above. It's OK to
3947 rearrange the symbol table at this point, because
3948 coff_renumber_symbols is going to rearrange it
3949 further and fix up all the aux entries. */
3950 if (psym
!= psymsec
)
3956 for (pcopy
= psym
; pcopy
> psymsec
; pcopy
--)
3957 pcopy
[0] = pcopy
[-1];
3962 #endif /* COFF_WITH_PE */
3967 /* XCOFF handles overflows in the reloc and line number count fields
3968 by creating a new section header to hold the correct values. */
3969 for (current
= abfd
->sections
; current
!= NULL
; current
= current
->next
)
3971 if (current
->reloc_count
>= 0xffff || current
->lineno_count
>= 0xffff)
3973 struct internal_scnhdr scnhdr
;
3977 internal_f
.f_nscns
++;
3978 memcpy (scnhdr
.s_name
, ".ovrflo", 8);
3979 scnhdr
.s_paddr
= current
->reloc_count
;
3980 scnhdr
.s_vaddr
= current
->lineno_count
;
3982 scnhdr
.s_scnptr
= 0;
3983 scnhdr
.s_relptr
= current
->rel_filepos
;
3984 scnhdr
.s_lnnoptr
= current
->line_filepos
;
3985 scnhdr
.s_nreloc
= current
->target_index
;
3986 scnhdr
.s_nlnno
= current
->target_index
;
3987 scnhdr
.s_flags
= STYP_OVRFLO
;
3988 amt
= bfd_coff_scnhsz (abfd
);
3989 if (coff_swap_scnhdr_out (abfd
, &scnhdr
, &buff
) == 0
3990 || bfd_bwrite (& buff
, amt
, abfd
) != amt
)
3997 /* OK, now set up the filehdr... */
3999 /* Don't include the internal abs section in the section count */
4001 /* We will NOT put a fucking timestamp in the header here. Every time you
4002 put it back, I will come in and take it out again. I'm sorry. This
4003 field does not belong here. We fill it with a 0 so it compares the
4004 same but is not a reasonable time. -- gnu@cygnus.com */
4005 internal_f
.f_timdat
= 0;
4006 internal_f
.f_flags
= 0;
4008 if (abfd
->flags
& EXEC_P
)
4009 internal_f
.f_opthdr
= bfd_coff_aoutsz (abfd
);
4012 internal_f
.f_opthdr
= 0;
4015 if (xcoff_data (abfd
)->full_aouthdr
)
4016 internal_f
.f_opthdr
= bfd_coff_aoutsz (abfd
);
4018 internal_f
.f_opthdr
= SMALL_AOUTSZ
;
4024 internal_f
.f_flags
|= F_RELFLG
;
4026 internal_f
.f_flags
|= F_LNNO
;
4027 if (abfd
->flags
& EXEC_P
)
4028 internal_f
.f_flags
|= F_EXEC
;
4029 #ifdef COFF_IMAGE_WITH_PE
4031 internal_f
.f_flags
|= IMAGE_FILE_DEBUG_STRIPPED
;
4032 if (pe_data (abfd
)->real_flags
& IMAGE_FILE_LARGE_ADDRESS_AWARE
)
4033 internal_f
.f_flags
|= IMAGE_FILE_LARGE_ADDRESS_AWARE
;
4036 #ifndef COFF_WITH_pex64
4038 internal_f
.f_flags
|= IMAGE_FILE_32BIT_MACHINE
;
4040 if (bfd_little_endian (abfd
))
4041 internal_f
.f_flags
|= F_AR32WR
;
4043 internal_f
.f_flags
|= F_AR32W
;
4048 /* Target id is used in TI COFF v1 and later; COFF0 won't use this field,
4049 but it doesn't hurt to set it internally. */
4050 internal_f
.f_target_id
= TI_TARGET_ID
;
4052 #ifdef TIC80_TARGET_ID
4053 internal_f
.f_target_id
= TIC80_TARGET_ID
;
4056 /* FIXME, should do something about the other byte orders and
4060 if ((abfd
->flags
& DYNAMIC
) != 0)
4061 internal_f
.f_flags
|= F_SHROBJ
;
4062 if (bfd_get_section_by_name (abfd
, _LOADER
) != NULL
)
4063 internal_f
.f_flags
|= F_DYNLOAD
;
4066 /* Set up architecture-dependent stuff. */
4068 unsigned int magic
= 0;
4069 unsigned short flags
= 0;
4071 coff_set_flags (abfd
, &magic
, &flags
);
4072 internal_f
.f_magic
= magic
;
4073 internal_f
.f_flags
|= flags
;
4074 /* ...and the "opt"hdr... */
4076 #ifdef TICOFF_AOUT_MAGIC
4077 internal_a
.magic
= TICOFF_AOUT_MAGIC
;
4078 #define __A_MAGIC_SET__
4081 internal_a
.magic
= TIC80_ARCH_MAGIC
;
4082 #define __A_MAGIC_SET__
4085 /* FIXME: What are the a.out magic numbers for the i860? */
4086 internal_a
.magic
= 0;
4087 #define __A_MAGIC_SET__
4090 internal_a
.magic
= (magic
== I960ROMAGIC
? NMAGIC
: OMAGIC
);
4091 #define __A_MAGIC_SET__
4094 #define __A_MAGIC_SET__
4095 internal_a
.magic
= PAGEMAGICBCS
;
4099 #define __A_MAGIC_SET__
4100 internal_a
.magic
= APOLLO_COFF_VERSION_NUMBER
;
4103 #if defined(M68) || defined(WE32K) || defined(M68K)
4104 #define __A_MAGIC_SET__
4106 internal_a
.magic
= LYNXCOFFMAGIC
;
4108 #if defined(TARG_AUX)
4109 internal_a
.magic
= (abfd
->flags
& D_PAGED
? PAGEMAGICPEXECPAGED
:
4110 abfd
->flags
& WP_TEXT
? PAGEMAGICPEXECSWAPPED
:
4111 PAGEMAGICEXECSWAPPED
);
4113 #if defined (PAGEMAGICPEXECPAGED)
4114 internal_a
.magic
= PAGEMAGICPEXECPAGED
;
4116 #endif /* TARG_AUX */
4118 #endif /* M68 || WE32K || M68K */
4121 #define __A_MAGIC_SET__
4122 internal_a
.magic
= ZMAGIC
;
4126 #define __A_MAGIC_SET__
4127 internal_a
.magic
= IMAGE_NT_OPTIONAL_HDR_MAGIC
;
4130 #if defined MCORE_PE
4131 #define __A_MAGIC_SET__
4132 internal_a
.magic
= IMAGE_NT_OPTIONAL_HDR_MAGIC
;
4136 #define __A_MAGIC_SET__
4138 internal_a
.magic
= LYNXCOFFMAGIC
;
4140 internal_a
.magic
= IMAGE_NT_OPTIONAL_HDR64_MAGIC
;
4142 internal_a
.magic
= ZMAGIC
;
4147 #define __A_MAGIC_SET__
4148 internal_a
.magic
= PE32PMAGIC
;
4152 #define __A_MAGIC_SET__
4154 internal_a
.magic
= LYNXCOFFMAGIC
;
4159 #define __A_MAGIC_SET__
4160 internal_a
.magic
= (abfd
->flags
& D_PAGED
) ? RS6K_AOUTHDR_ZMAGIC
:
4161 (abfd
->flags
& WP_TEXT
) ? RS6K_AOUTHDR_NMAGIC
:
4162 RS6K_AOUTHDR_OMAGIC
;
4165 #if defined(SH) && defined(COFF_WITH_PE)
4166 #define __A_MAGIC_SET__
4167 internal_a
.magic
= SH_PE_MAGIC
;
4170 #if defined(MIPS) && defined(COFF_WITH_PE)
4171 #define __A_MAGIC_SET__
4172 internal_a
.magic
= MIPS_PE_MAGIC
;
4175 #ifndef __A_MAGIC_SET__
4176 #include "Your aouthdr magic number is not being set!"
4178 #undef __A_MAGIC_SET__
4182 /* FIXME: Does anybody ever set this to another value? */
4183 internal_a
.vstamp
= 0;
4185 /* Now should write relocs, strings, syms. */
4186 obj_sym_filepos (abfd
) = sym_base
;
4188 if (bfd_get_symcount (abfd
) != 0)
4192 if (!coff_renumber_symbols (abfd
, &firstundef
))
4194 coff_mangle_symbols (abfd
);
4195 if (! coff_write_symbols (abfd
))
4197 if (! coff_write_linenumbers (abfd
))
4199 if (! coff_write_relocs (abfd
, firstundef
))
4202 #ifdef COFF_LONG_SECTION_NAMES
4203 else if (long_section_names
&& ! obj_coff_strings_written (abfd
))
4205 /* If we have long section names we have to write out the string
4206 table even if there are no symbols. */
4207 if (! coff_write_symbols (abfd
))
4211 #ifdef COFF_IMAGE_WITH_PE
4213 else if ((abfd
->flags
& EXEC_P
) != 0)
4217 /* PowerPC PE appears to require that all executable files be
4218 rounded up to the page size. */
4221 (file_ptr
) BFD_ALIGN (sym_base
, COFF_PAGE_SIZE
) - 1,
4223 || bfd_bwrite (&b
, (bfd_size_type
) 1, abfd
) != 1)
4229 /* If bfd_get_symcount (abfd) != 0, then we are not using the COFF
4230 backend linker, and obj_raw_syment_count is not valid until after
4231 coff_write_symbols is called. */
4232 if (obj_raw_syment_count (abfd
) != 0)
4234 internal_f
.f_symptr
= sym_base
;
4236 /* AIX appears to require that F_RELFLG not be set if there are
4237 local symbols but no relocations. */
4238 internal_f
.f_flags
&=~ F_RELFLG
;
4243 if (long_section_names
)
4244 internal_f
.f_symptr
= sym_base
;
4246 internal_f
.f_symptr
= 0;
4247 internal_f
.f_flags
|= F_LSYMS
;
4252 internal_a
.tsize
= text_sec
->size
;
4253 internal_a
.text_start
= internal_a
.tsize
? text_sec
->vma
: 0;
4257 internal_a
.dsize
= data_sec
->size
;
4258 internal_a
.data_start
= internal_a
.dsize
? data_sec
->vma
: 0;
4262 internal_a
.bsize
= bss_sec
->size
;
4263 if (internal_a
.bsize
&& bss_sec
->vma
< internal_a
.data_start
)
4264 internal_a
.data_start
= bss_sec
->vma
;
4267 internal_a
.entry
= bfd_get_start_address (abfd
);
4268 internal_f
.f_nsyms
= obj_raw_syment_count (abfd
);
4271 if (xcoff_data (abfd
)->full_aouthdr
)
4274 asection
*loader_sec
;
4276 internal_a
.vstamp
= 1;
4278 internal_a
.o_snentry
= xcoff_data (abfd
)->snentry
;
4279 if (internal_a
.o_snentry
== 0)
4280 internal_a
.entry
= (bfd_vma
) -1;
4282 if (text_sec
!= NULL
)
4284 internal_a
.o_sntext
= text_sec
->target_index
;
4285 internal_a
.o_algntext
= bfd_get_section_alignment (abfd
, text_sec
);
4289 internal_a
.o_sntext
= 0;
4290 internal_a
.o_algntext
= 0;
4292 if (data_sec
!= NULL
)
4294 internal_a
.o_sndata
= data_sec
->target_index
;
4295 internal_a
.o_algndata
= bfd_get_section_alignment (abfd
, data_sec
);
4299 internal_a
.o_sndata
= 0;
4300 internal_a
.o_algndata
= 0;
4302 loader_sec
= bfd_get_section_by_name (abfd
, ".loader");
4303 if (loader_sec
!= NULL
)
4304 internal_a
.o_snloader
= loader_sec
->target_index
;
4306 internal_a
.o_snloader
= 0;
4307 if (bss_sec
!= NULL
)
4308 internal_a
.o_snbss
= bss_sec
->target_index
;
4310 internal_a
.o_snbss
= 0;
4312 toc
= xcoff_data (abfd
)->toc
;
4313 internal_a
.o_toc
= toc
;
4314 internal_a
.o_sntoc
= xcoff_data (abfd
)->sntoc
;
4316 internal_a
.o_modtype
= xcoff_data (abfd
)->modtype
;
4317 if (xcoff_data (abfd
)->cputype
!= -1)
4318 internal_a
.o_cputype
= xcoff_data (abfd
)->cputype
;
4321 switch (bfd_get_arch (abfd
))
4323 case bfd_arch_rs6000
:
4324 internal_a
.o_cputype
= 4;
4326 case bfd_arch_powerpc
:
4327 if (bfd_get_mach (abfd
) == bfd_mach_ppc
)
4328 internal_a
.o_cputype
= 3;
4330 internal_a
.o_cputype
= 1;
4336 internal_a
.o_maxstack
= xcoff_data (abfd
)->maxstack
;
4337 internal_a
.o_maxdata
= xcoff_data (abfd
)->maxdata
;
4343 /* After object contents are finalized so we can compute a reasonable hash,
4344 but before header is written so we can update it to point to debug directory. */
4345 struct pe_tdata
*pe
= pe_data (abfd
);
4347 if (pe
->build_id
.after_write_object_contents
!= NULL
)
4348 (*pe
->build_id
.after_write_object_contents
) (abfd
);
4352 /* Now write header. */
4353 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
) != 0)
4358 bfd_size_type amount
= bfd_coff_filhsz (abfd
);
4360 buff
= (char *) bfd_malloc (amount
);
4364 bfd_coff_swap_filehdr_out (abfd
, & internal_f
, buff
);
4365 amount
= bfd_bwrite (buff
, amount
, abfd
);
4369 if (amount
!= bfd_coff_filhsz (abfd
))
4373 if (abfd
->flags
& EXEC_P
)
4375 /* Note that peicode.h fills in a PEAOUTHDR, not an AOUTHDR.
4376 include/coff/pe.h sets AOUTSZ == sizeof (PEAOUTHDR)). */
4378 bfd_size_type amount
= bfd_coff_aoutsz (abfd
);
4380 buff
= (char *) bfd_malloc (amount
);
4384 coff_swap_aouthdr_out (abfd
, & internal_a
, buff
);
4385 amount
= bfd_bwrite (buff
, amount
, abfd
);
4389 if (amount
!= bfd_coff_aoutsz (abfd
))
4392 #ifdef COFF_IMAGE_WITH_PE
4393 if (! coff_apply_checksum (abfd
))
4403 /* XCOFF seems to always write at least a small a.out header. */
4404 coff_swap_aouthdr_out (abfd
, & internal_a
, & buff
);
4405 if (xcoff_data (abfd
)->full_aouthdr
)
4406 size
= bfd_coff_aoutsz (abfd
);
4408 size
= SMALL_AOUTSZ
;
4409 if (bfd_bwrite (& buff
, (bfd_size_type
) size
, abfd
) != size
)
4418 coff_set_section_contents (bfd
* abfd
,
4420 const void * location
,
4422 bfd_size_type count
)
4424 if (! abfd
->output_has_begun
) /* Set by bfd.c handler. */
4426 if (! coff_compute_section_file_positions (abfd
))
4430 #if defined(_LIB) && !defined(TARG_AUX)
4431 /* The physical address field of a .lib section is used to hold the
4432 number of shared libraries in the section. This code counts the
4433 number of sections being written, and increments the lma field
4436 I have found no documentation on the contents of this section.
4437 Experimentation indicates that the section contains zero or more
4438 records, each of which has the following structure:
4440 - a (four byte) word holding the length of this record, in words,
4441 - a word that always seems to be set to "2",
4442 - the path to a shared library, null-terminated and then padded
4443 to a whole word boundary.
4445 bfd_assert calls have been added to alert if an attempt is made
4446 to write a section which doesn't follow these assumptions. The
4447 code has been tested on ISC 4.1 by me, and on SCO by Robert Lipe
4448 <robertl@arnet.com> (Thanks!).
4450 Gvran Uddeborg <gvran@uddeborg.pp.se>. */
4451 if (strcmp (section
->name
, _LIB
) == 0)
4453 bfd_byte
*rec
, *recend
;
4455 rec
= (bfd_byte
*) location
;
4456 recend
= rec
+ count
;
4457 while (rec
< recend
)
4460 rec
+= bfd_get_32 (abfd
, rec
) * 4;
4463 BFD_ASSERT (rec
== recend
);
4467 /* Don't write out bss sections - one way to do this is to
4468 see if the filepos has not been set. */
4469 if (section
->filepos
== 0)
4472 if (bfd_seek (abfd
, section
->filepos
+ offset
, SEEK_SET
) != 0)
4478 return bfd_bwrite (location
, count
, abfd
) == count
;
4482 buy_and_read (bfd
*abfd
, file_ptr where
, bfd_size_type size
)
4484 void * area
= bfd_alloc (abfd
, size
);
4488 if (bfd_seek (abfd
, where
, SEEK_SET
) != 0
4489 || bfd_bread (area
, size
, abfd
) != size
)
4498 Creating the linenumber table is done by reading in the entire
4499 coff linenumber table, and creating another table for internal use.
4501 A coff linenumber table is structured so that each function
4502 is marked as having a line number of 0. Each line within the
4503 function is an offset from the first line in the function. The
4504 base of the line number information for the table is stored in
4505 the symbol associated with the function.
4507 Note: The PE format uses line number 0 for a flag indicating a
4510 The information is copied from the external to the internal
4511 table, and each symbol which marks a function is marked by
4514 How does this work ?
4518 coff_sort_func_alent (const void * arg1
, const void * arg2
)
4520 const alent
*al1
= *(const alent
**) arg1
;
4521 const alent
*al2
= *(const alent
**) arg2
;
4522 const coff_symbol_type
*s1
= (const coff_symbol_type
*) (al1
->u
.sym
);
4523 const coff_symbol_type
*s2
= (const coff_symbol_type
*) (al2
->u
.sym
);
4525 if (s1
== NULL
|| s2
== NULL
)
4527 if (s1
->symbol
.value
< s2
->symbol
.value
)
4529 else if (s1
->symbol
.value
> s2
->symbol
.value
)
4536 coff_slurp_line_table (bfd
*abfd
, asection
*asect
)
4538 LINENO
*native_lineno
;
4539 alent
*lineno_cache
;
4541 unsigned int counter
;
4543 bfd_vma prev_offset
= 0;
4544 bfd_boolean ordered
= TRUE
;
4545 unsigned int nbr_func
;
4547 bfd_boolean have_func
;
4548 bfd_boolean ret
= TRUE
;
4550 BFD_ASSERT (asect
->lineno
== NULL
);
4552 amt
= ((bfd_size_type
) asect
->lineno_count
+ 1) * sizeof (alent
);
4553 lineno_cache
= (alent
*) bfd_alloc (abfd
, amt
);
4554 if (lineno_cache
== NULL
)
4557 amt
= (bfd_size_type
) bfd_coff_linesz (abfd
) * asect
->lineno_count
;
4558 native_lineno
= (LINENO
*) buy_and_read (abfd
, asect
->line_filepos
, amt
);
4559 if (native_lineno
== NULL
)
4561 (*_bfd_error_handler
)
4562 (_("%B: warning: line number table read failed"), abfd
);
4563 bfd_release (abfd
, lineno_cache
);
4567 cache_ptr
= lineno_cache
;
4568 asect
->lineno
= lineno_cache
;
4569 src
= native_lineno
;
4573 for (counter
= 0; counter
< asect
->lineno_count
; counter
++, src
++)
4575 struct internal_lineno dst
;
4577 bfd_coff_swap_lineno_in (abfd
, src
, &dst
);
4578 cache_ptr
->line_number
= dst
.l_lnno
;
4579 /* Appease memory checkers that get all excited about
4580 uninitialised memory when copying alents if u.offset is
4581 larger than u.sym. (64-bit BFD on 32-bit host.) */
4582 memset (&cache_ptr
->u
, 0, sizeof (cache_ptr
->u
));
4584 if (cache_ptr
->line_number
== 0)
4586 combined_entry_type
* ent
;
4588 coff_symbol_type
*sym
;
4591 symndx
= dst
.l_addr
.l_symndx
;
4592 if (symndx
>= obj_raw_syment_count (abfd
))
4594 (*_bfd_error_handler
)
4595 (_("%B: warning: illegal symbol index 0x%lx in line number entry %d"),
4596 abfd
, (long) symndx
, counter
);
4597 cache_ptr
->line_number
= -1;
4602 ent
= obj_raw_syments (abfd
) + symndx
;
4603 /* FIXME: We should not be casting between ints and
4604 pointers like this. */
4607 (*_bfd_error_handler
)
4608 (_("%B: warning: illegal symbol index 0x%lx in line number entry %d"),
4609 abfd
, (long) symndx
, counter
);
4610 cache_ptr
->line_number
= -1;
4614 sym
= (coff_symbol_type
*) (ent
->u
.syment
._n
._n_n
._n_zeroes
);
4616 /* PR 17512 file: 078-10659-0.004 */
4617 if (sym
< obj_symbols (abfd
)
4618 || sym
>= obj_symbols (abfd
) + bfd_get_symcount (abfd
))
4620 (*_bfd_error_handler
)
4621 (_("%B: warning: illegal symbol in line number entry %d"),
4623 cache_ptr
->line_number
= -1;
4630 cache_ptr
->u
.sym
= (asymbol
*) sym
;
4631 if (sym
->lineno
!= NULL
)
4632 (*_bfd_error_handler
)
4633 (_("%B: warning: duplicate line number information for `%s'"),
4634 abfd
, bfd_asymbol_name (&sym
->symbol
));
4636 sym
->lineno
= cache_ptr
;
4637 if (sym
->symbol
.value
< prev_offset
)
4639 prev_offset
= sym
->symbol
.value
;
4641 else if (!have_func
)
4642 /* Drop line information that has no associated function.
4643 PR 17521: file: 078-10659-0.004. */
4646 cache_ptr
->u
.offset
= (dst
.l_addr
.l_paddr
4647 - bfd_section_vma (abfd
, asect
));
4651 asect
->lineno_count
= cache_ptr
- lineno_cache
;
4652 memset (cache_ptr
, 0, sizeof (*cache_ptr
));
4653 bfd_release (abfd
, native_lineno
);
4655 /* On some systems (eg AIX5.3) the lineno table may not be sorted. */
4658 /* Sort the table. */
4660 alent
*n_lineno_cache
;
4662 /* Create a table of functions. */
4663 func_table
= (alent
**) bfd_alloc (abfd
, nbr_func
* sizeof (alent
*));
4664 if (func_table
!= NULL
)
4666 alent
**p
= func_table
;
4669 for (i
= 0; i
< asect
->lineno_count
; i
++)
4670 if (lineno_cache
[i
].line_number
== 0)
4671 *p
++ = &lineno_cache
[i
];
4673 BFD_ASSERT ((unsigned int) (p
- func_table
) == nbr_func
);
4675 /* Sort by functions. */
4676 qsort (func_table
, nbr_func
, sizeof (alent
*), coff_sort_func_alent
);
4678 /* Create the new sorted table. */
4679 amt
= (bfd_size_type
) asect
->lineno_count
* sizeof (alent
);
4680 n_lineno_cache
= (alent
*) bfd_alloc (abfd
, amt
);
4681 if (n_lineno_cache
!= NULL
)
4683 alent
*n_cache_ptr
= n_lineno_cache
;
4685 for (i
= 0; i
< nbr_func
; i
++)
4687 coff_symbol_type
*sym
;
4688 alent
*old_ptr
= func_table
[i
];
4690 /* Update the function entry. */
4691 sym
= (coff_symbol_type
*) old_ptr
->u
.sym
;
4692 /* PR binutils/17512: Point the lineno to where
4693 this entry will be after the memcpy below. */
4694 sym
->lineno
= lineno_cache
+ (n_cache_ptr
- n_lineno_cache
);
4695 /* Copy the function and line number entries. */
4697 *n_cache_ptr
++ = *old_ptr
++;
4698 while (old_ptr
->line_number
!= 0);
4700 BFD_ASSERT ((bfd_size_type
) (n_cache_ptr
- n_lineno_cache
) == (amt
/ sizeof (alent
)));
4702 memcpy (lineno_cache
, n_lineno_cache
, amt
);
4706 bfd_release (abfd
, func_table
);
4715 /* Slurp in the symbol table, converting it to generic form. Note
4716 that if coff_relocate_section is defined, the linker will read
4717 symbols via coff_link_add_symbols, rather than via this routine. */
4720 coff_slurp_symbol_table (bfd
* abfd
)
4722 combined_entry_type
*native_symbols
;
4723 coff_symbol_type
*cached_area
;
4724 unsigned int *table_ptr
;
4726 unsigned int number_of_symbols
= 0;
4727 bfd_boolean ret
= TRUE
;
4729 if (obj_symbols (abfd
))
4732 /* Read in the symbol table. */
4733 if ((native_symbols
= coff_get_normalized_symtab (abfd
)) == NULL
)
4736 /* Allocate enough room for all the symbols in cached form. */
4737 amt
= obj_raw_syment_count (abfd
);
4738 amt
*= sizeof (coff_symbol_type
);
4739 cached_area
= (coff_symbol_type
*) bfd_alloc (abfd
, amt
);
4740 if (cached_area
== NULL
)
4743 amt
= obj_raw_syment_count (abfd
);
4744 amt
*= sizeof (unsigned int);
4745 table_ptr
= (unsigned int *) bfd_zalloc (abfd
, amt
);
4747 if (table_ptr
== NULL
)
4751 coff_symbol_type
*dst
= cached_area
;
4752 unsigned int last_native_index
= obj_raw_syment_count (abfd
);
4753 unsigned int this_index
= 0;
4755 while (this_index
< last_native_index
)
4757 combined_entry_type
*src
= native_symbols
+ this_index
;
4758 table_ptr
[this_index
] = number_of_symbols
;
4760 dst
->symbol
.the_bfd
= abfd
;
4761 BFD_ASSERT (src
->is_sym
);
4762 dst
->symbol
.name
= (char *) (src
->u
.syment
._n
._n_n
._n_offset
);
4763 /* We use the native name field to point to the cached field. */
4764 src
->u
.syment
._n
._n_n
._n_zeroes
= (bfd_hostptr_t
) dst
;
4765 dst
->symbol
.section
= coff_section_from_bfd_index (abfd
,
4766 src
->u
.syment
.n_scnum
);
4767 dst
->symbol
.flags
= 0;
4768 /* PR 17512: file: 079-7098-0.001:0.1. */
4769 dst
->symbol
.value
= 0;
4770 dst
->done_lineno
= FALSE
;
4772 switch (src
->u
.syment
.n_sclass
)
4776 /* Fall through to next case. */
4783 case C_THUMBEXTFUNC
:
4789 case C_SYSTEM
: /* System Wide variable. */
4792 /* In PE, 0x68 (104) denotes a section symbol. */
4794 /* In PE, 0x69 (105) denotes a weak external symbol. */
4797 switch (coff_classify_symbol (abfd
, &src
->u
.syment
))
4799 case COFF_SYMBOL_GLOBAL
:
4800 dst
->symbol
.flags
= BSF_EXPORT
| BSF_GLOBAL
;
4801 #if defined COFF_WITH_PE
4802 /* PE sets the symbol to a value relative to the
4803 start of the section. */
4804 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4806 dst
->symbol
.value
= (src
->u
.syment
.n_value
4807 - dst
->symbol
.section
->vma
);
4809 if (ISFCN ((src
->u
.syment
.n_type
)))
4810 /* A function ext does not go at the end of a
4812 dst
->symbol
.flags
|= BSF_NOT_AT_END
| BSF_FUNCTION
;
4815 case COFF_SYMBOL_COMMON
:
4816 dst
->symbol
.section
= bfd_com_section_ptr
;
4817 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4820 case COFF_SYMBOL_UNDEFINED
:
4821 dst
->symbol
.section
= bfd_und_section_ptr
;
4822 dst
->symbol
.value
= 0;
4825 case COFF_SYMBOL_PE_SECTION
:
4826 dst
->symbol
.flags
|= BSF_EXPORT
| BSF_SECTION_SYM
;
4827 dst
->symbol
.value
= 0;
4830 case COFF_SYMBOL_LOCAL
:
4831 dst
->symbol
.flags
= BSF_LOCAL
;
4832 #if defined COFF_WITH_PE
4833 /* PE sets the symbol to a value relative to the
4834 start of the section. */
4835 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4837 dst
->symbol
.value
= (src
->u
.syment
.n_value
4838 - dst
->symbol
.section
->vma
);
4840 if (ISFCN ((src
->u
.syment
.n_type
)))
4841 dst
->symbol
.flags
|= BSF_NOT_AT_END
| BSF_FUNCTION
;
4846 /* A symbol with a csect entry should not go at the end. */
4847 if (src
->u
.syment
.n_numaux
> 0)
4848 dst
->symbol
.flags
|= BSF_NOT_AT_END
;
4852 if (src
->u
.syment
.n_sclass
== C_NT_WEAK
)
4853 dst
->symbol
.flags
|= BSF_WEAK
;
4855 if (src
->u
.syment
.n_sclass
== C_SECTION
4856 && src
->u
.syment
.n_scnum
> 0)
4857 dst
->symbol
.flags
= BSF_LOCAL
;
4859 if (src
->u
.syment
.n_sclass
== C_WEAKEXT
)
4860 dst
->symbol
.flags
|= BSF_WEAK
;
4864 case C_STAT
: /* Static. */
4866 case C_LEAFSTAT
: /* Static leaf procedure. */
4869 case C_THUMBSTAT
: /* Thumb static. */
4870 case C_THUMBLABEL
: /* Thumb label. */
4871 case C_THUMBSTATFUNC
:/* Thumb static function. */
4874 case C_DWARF
: /* A label in a dwarf section. */
4875 case C_INFO
: /* A label in a comment section. */
4877 case C_LABEL
: /* Label. */
4878 if (src
->u
.syment
.n_scnum
== N_DEBUG
)
4879 dst
->symbol
.flags
= BSF_DEBUGGING
;
4881 dst
->symbol
.flags
= BSF_LOCAL
;
4883 /* Base the value as an index from the base of the
4884 section, if there is one. */
4885 if (dst
->symbol
.section
)
4887 #if defined COFF_WITH_PE
4888 /* PE sets the symbol to a value relative to the
4889 start of the section. */
4890 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4892 dst
->symbol
.value
= (src
->u
.syment
.n_value
4893 - dst
->symbol
.section
->vma
);
4897 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4900 case C_MOS
: /* Member of structure. */
4901 case C_EOS
: /* End of structure. */
4902 case C_REGPARM
: /* Register parameter. */
4903 case C_REG
: /* register variable. */
4904 /* C_AUTOARG conflicts with TI COFF C_UEXT. */
4905 #if !defined (TIC80COFF) && !defined (TICOFF)
4907 case C_AUTOARG
: /* 960-specific storage class. */
4910 case C_TPDEF
: /* Type definition. */
4912 case C_AUTO
: /* Automatic variable. */
4913 case C_FIELD
: /* Bit field. */
4914 case C_ENTAG
: /* Enumeration tag. */
4915 case C_MOE
: /* Member of enumeration. */
4916 case C_MOU
: /* Member of union. */
4917 case C_UNTAG
: /* Union tag. */
4918 dst
->symbol
.flags
= BSF_DEBUGGING
;
4919 dst
->symbol
.value
= (src
->u
.syment
.n_value
);
4922 case C_FILE
: /* File name. */
4923 case C_STRTAG
: /* Structure tag. */
4940 dst
->symbol
.flags
= BSF_DEBUGGING
;
4941 dst
->symbol
.value
= (src
->u
.syment
.n_value
);
4945 case C_BINCL
: /* Beginning of include file. */
4946 case C_EINCL
: /* Ending of include file. */
4947 /* The value is actually a pointer into the line numbers
4948 of the file. We locate the line number entry, and
4949 set the section to the section which contains it, and
4950 the value to the index in that section. */
4954 dst
->symbol
.flags
= BSF_DEBUGGING
;
4955 for (sec
= abfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
4956 if (sec
->line_filepos
<= (file_ptr
) src
->u
.syment
.n_value
4957 && ((file_ptr
) (sec
->line_filepos
4958 + sec
->lineno_count
* bfd_coff_linesz (abfd
))
4959 > (file_ptr
) src
->u
.syment
.n_value
))
4962 dst
->symbol
.value
= 0;
4965 dst
->symbol
.section
= sec
;
4966 dst
->symbol
.value
= ((src
->u
.syment
.n_value
4967 - sec
->line_filepos
)
4968 / bfd_coff_linesz (abfd
));
4975 dst
->symbol
.flags
= BSF_DEBUGGING
;
4977 /* The value is actually a symbol index. Save a pointer
4978 to the symbol instead of the index. FIXME: This
4979 should use a union. */
4980 src
->u
.syment
.n_value
=
4981 (long) (intptr_t) (native_symbols
+ src
->u
.syment
.n_value
);
4982 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4987 case C_BLOCK
: /* ".bb" or ".eb". */
4988 case C_FCN
: /* ".bf" or ".ef" (or PE ".lf"). */
4989 case C_EFCN
: /* Physical end of function. */
4990 #if defined COFF_WITH_PE
4991 /* PE sets the symbol to a value relative to the start
4993 dst
->symbol
.value
= src
->u
.syment
.n_value
;
4994 if (strcmp (dst
->symbol
.name
, ".bf") != 0)
4996 /* PE uses funny values for .ef and .lf; don't
4998 dst
->symbol
.flags
= BSF_DEBUGGING
;
5001 dst
->symbol
.flags
= BSF_DEBUGGING
| BSF_DEBUGGING_RELOC
;
5003 /* Base the value as an index from the base of the
5005 dst
->symbol
.flags
= BSF_LOCAL
;
5006 dst
->symbol
.value
= (src
->u
.syment
.n_value
5007 - dst
->symbol
.section
->vma
);
5011 case C_STATLAB
: /* Static load time label. */
5012 dst
->symbol
.value
= src
->u
.syment
.n_value
;
5013 dst
->symbol
.flags
= BSF_GLOBAL
;
5017 /* PE DLLs sometimes have zeroed out symbols for some
5018 reason. Just ignore them without a warning. */
5019 if (src
->u
.syment
.n_type
== 0
5020 && src
->u
.syment
.n_value
== 0
5021 && src
->u
.syment
.n_scnum
== 0)
5024 /* XCOFF specific: deleted entry. */
5025 if (src
->u
.syment
.n_value
== C_NULL_VALUE
)
5029 case C_EXTDEF
: /* External definition. */
5030 case C_ULABEL
: /* Undefined label. */
5031 case C_USTATIC
: /* Undefined static. */
5032 #ifndef COFF_WITH_PE
5033 /* C_LINE in regular coff is 0x68. NT has taken over this storage
5034 class to represent a section symbol. */
5035 case C_LINE
: /* line # reformatted as symbol table entry. */
5036 /* NT uses 0x67 for a weak symbol, not C_ALIAS. */
5037 case C_ALIAS
: /* Duplicate tag. */
5039 /* New storage classes for TI COFF. */
5040 #if defined(TIC80COFF) || defined(TICOFF)
5041 case C_UEXT
: /* Tentative external definition. */
5044 (*_bfd_error_handler
)
5045 (_("%B: Unrecognized storage class %d for %s symbol `%s'"),
5046 abfd
, src
->u
.syment
.n_sclass
,
5047 dst
->symbol
.section
->name
, dst
->symbol
.name
);
5049 case C_EXTLAB
: /* External load time label. */
5050 case C_HIDDEN
: /* Ext symbol in dmert public lib. */
5051 dst
->symbol
.flags
= BSF_DEBUGGING
;
5052 dst
->symbol
.value
= (src
->u
.syment
.n_value
);
5057 dst
->symbol
.udata
.i
= 0;
5060 this_index
+= (src
->u
.syment
.n_numaux
) + 1;
5062 number_of_symbols
++;
5066 obj_symbols (abfd
) = cached_area
;
5067 obj_raw_syments (abfd
) = native_symbols
;
5069 bfd_get_symcount (abfd
) = number_of_symbols
;
5070 obj_convert (abfd
) = table_ptr
;
5071 /* Slurp the line tables for each section too. */
5078 if (! coff_slurp_line_table (abfd
, p
))
5087 /* Classify a COFF symbol. A couple of targets have globally visible
5088 symbols which are not class C_EXT, and this handles those. It also
5089 recognizes some special PE cases. */
5091 static enum coff_symbol_classification
5092 coff_classify_symbol (bfd
*abfd
,
5093 struct internal_syment
*syment
)
5095 /* FIXME: This partially duplicates the switch in
5096 coff_slurp_symbol_table. */
5097 switch (syment
->n_sclass
)
5106 case C_THUMBEXTFUNC
:
5114 if (syment
->n_scnum
== 0)
5116 if (syment
->n_value
== 0)
5117 return COFF_SYMBOL_UNDEFINED
;
5119 return COFF_SYMBOL_COMMON
;
5121 return COFF_SYMBOL_GLOBAL
;
5128 if (syment
->n_sclass
== C_STAT
)
5130 if (syment
->n_scnum
== 0)
5131 /* The Microsoft compiler sometimes generates these if a
5132 small static function is inlined every time it is used.
5133 The function is discarded, but the symbol table entry
5135 return COFF_SYMBOL_LOCAL
;
5137 #ifdef STRICT_PE_FORMAT
5138 /* This is correct for Microsoft generated objects, but it
5139 breaks gas generated objects. */
5140 if (syment
->n_value
== 0)
5144 char buf
[SYMNMLEN
+ 1];
5146 name
= _bfd_coff_internal_syment_name (abfd
, syment
, buf
)
5147 sec
= coff_section_from_bfd_index (abfd
, syment
->n_scnum
);
5148 if (sec
!= NULL
&& name
!= NULL
5149 && (strcmp (bfd_get_section_name (abfd
, sec
), name
) == 0))
5150 return COFF_SYMBOL_PE_SECTION
;
5154 return COFF_SYMBOL_LOCAL
;
5157 if (syment
->n_sclass
== C_SECTION
)
5159 /* In some cases in a DLL generated by the Microsoft linker, the
5160 n_value field will contain garbage. FIXME: This should
5161 probably be handled by the swapping function instead. */
5162 syment
->n_value
= 0;
5163 if (syment
->n_scnum
== 0)
5164 return COFF_SYMBOL_UNDEFINED
;
5165 return COFF_SYMBOL_PE_SECTION
;
5167 #endif /* COFF_WITH_PE */
5169 /* If it is not a global symbol, we presume it is a local symbol. */
5170 if (syment
->n_scnum
== 0)
5172 char buf
[SYMNMLEN
+ 1];
5174 (*_bfd_error_handler
)
5175 (_("warning: %B: local symbol `%s' has no section"),
5176 abfd
, _bfd_coff_internal_syment_name (abfd
, syment
, buf
));
5179 return COFF_SYMBOL_LOCAL
;
5186 Coff relocations are easily transformed into the internal BFD form
5189 Reading a coff relocation table is done in the following stages:
5191 o Read the entire coff relocation table into memory.
5193 o Process each relocation in turn; first swap it from the
5194 external to the internal form.
5196 o Turn the symbol referenced in the relocation's symbol index
5197 into a pointer into the canonical symbol table.
5198 This table is the same as the one returned by a call to
5199 @code{bfd_canonicalize_symtab}. The back end will call that
5200 routine and save the result if a canonicalization hasn't been done.
5202 o The reloc index is turned into a pointer to a howto
5203 structure, in a back end specific way. For instance, the 386
5204 and 960 use the @code{r_type} to directly produce an index
5205 into a howto table vector; the 88k subtracts a number from the
5206 @code{r_type} field and creates an addend field.
5210 #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \
5212 coff_symbol_type *coffsym = NULL; \
5214 if (ptr && bfd_asymbol_bfd (ptr) != abfd) \
5215 coffsym = (obj_symbols (abfd) \
5216 + (cache_ptr->sym_ptr_ptr - symbols)); \
5218 coffsym = coff_symbol_from (ptr); \
5219 if (coffsym != NULL \
5220 && coffsym->native->is_sym \
5221 && coffsym->native->u.syment.n_scnum == 0) \
5222 cache_ptr->addend = 0; \
5223 else if (ptr && bfd_asymbol_bfd (ptr) == abfd \
5224 && ptr->section != NULL) \
5225 cache_ptr->addend = - (ptr->section->vma + ptr->value); \
5227 cache_ptr->addend = 0; \
5232 coff_slurp_reloc_table (bfd
* abfd
, sec_ptr asect
, asymbol
** symbols
)
5234 RELOC
*native_relocs
;
5235 arelent
*reloc_cache
;
5240 if (asect
->relocation
)
5242 if (asect
->reloc_count
== 0)
5244 if (asect
->flags
& SEC_CONSTRUCTOR
)
5246 if (!coff_slurp_symbol_table (abfd
))
5249 amt
= (bfd_size_type
) bfd_coff_relsz (abfd
) * asect
->reloc_count
;
5250 native_relocs
= (RELOC
*) buy_and_read (abfd
, asect
->rel_filepos
, amt
);
5251 amt
= (bfd_size_type
) asect
->reloc_count
* sizeof (arelent
);
5252 reloc_cache
= (arelent
*) bfd_alloc (abfd
, amt
);
5254 if (reloc_cache
== NULL
|| native_relocs
== NULL
)
5257 for (idx
= 0; idx
< asect
->reloc_count
; idx
++)
5259 struct internal_reloc dst
;
5260 struct external_reloc
*src
;
5261 #ifndef RELOC_PROCESSING
5265 cache_ptr
= reloc_cache
+ idx
;
5266 src
= native_relocs
+ idx
;
5269 coff_swap_reloc_in (abfd
, src
, &dst
);
5271 #ifdef RELOC_PROCESSING
5272 RELOC_PROCESSING (cache_ptr
, &dst
, symbols
, abfd
, asect
);
5274 cache_ptr
->address
= dst
.r_vaddr
;
5276 if (dst
.r_symndx
!= -1)
5278 if (dst
.r_symndx
< 0 || dst
.r_symndx
>= obj_conv_table_size (abfd
))
5280 (*_bfd_error_handler
)
5281 (_("%B: warning: illegal symbol index %ld in relocs"),
5282 abfd
, (long) dst
.r_symndx
);
5283 cache_ptr
->sym_ptr_ptr
= bfd_abs_section_ptr
->symbol_ptr_ptr
;
5288 cache_ptr
->sym_ptr_ptr
= (symbols
5289 + obj_convert (abfd
)[dst
.r_symndx
]);
5290 ptr
= *(cache_ptr
->sym_ptr_ptr
);
5295 cache_ptr
->sym_ptr_ptr
= bfd_abs_section_ptr
->symbol_ptr_ptr
;
5299 /* The symbols definitions that we have read in have been
5300 relocated as if their sections started at 0. But the offsets
5301 refering to the symbols in the raw data have not been
5302 modified, so we have to have a negative addend to compensate.
5304 Note that symbols which used to be common must be left alone. */
5306 /* Calculate any reloc addend by looking at the symbol. */
5307 CALC_ADDEND (abfd
, ptr
, dst
, cache_ptr
);
5310 cache_ptr
->address
-= asect
->vma
;
5311 /* !! cache_ptr->section = NULL;*/
5313 /* Fill in the cache_ptr->howto field from dst.r_type. */
5314 RTYPE2HOWTO (cache_ptr
, &dst
);
5315 #endif /* RELOC_PROCESSING */
5317 if (cache_ptr
->howto
== NULL
)
5319 (*_bfd_error_handler
)
5320 (_("%B: illegal relocation type %d at address 0x%lx"),
5321 abfd
, dst
.r_type
, (long) dst
.r_vaddr
);
5322 bfd_set_error (bfd_error_bad_value
);
5327 asect
->relocation
= reloc_cache
;
5331 #ifndef coff_rtype_to_howto
5334 /* Get the howto structure for a reloc. This is only used if the file
5335 including this one defines coff_relocate_section to be
5336 _bfd_coff_generic_relocate_section, so it is OK if it does not
5337 always work. It is the responsibility of the including file to
5338 make sure it is reasonable if it is needed. */
5340 static reloc_howto_type
*
5341 coff_rtype_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
,
5342 asection
*sec ATTRIBUTE_UNUSED
,
5343 struct internal_reloc
*rel ATTRIBUTE_UNUSED
,
5344 struct coff_link_hash_entry
*h ATTRIBUTE_UNUSED
,
5345 struct internal_syment
*sym ATTRIBUTE_UNUSED
,
5346 bfd_vma
*addendp ATTRIBUTE_UNUSED
)
5350 genrel
.howto
= NULL
;
5351 RTYPE2HOWTO (&genrel
, rel
);
5352 return genrel
.howto
;
5355 #else /* ! defined (RTYPE2HOWTO) */
5357 #define coff_rtype_to_howto NULL
5359 #endif /* ! defined (RTYPE2HOWTO) */
5360 #endif /* ! defined (coff_rtype_to_howto) */
5362 /* This is stupid. This function should be a boolean predicate. */
5365 coff_canonicalize_reloc (bfd
* abfd
,
5370 arelent
*tblptr
= section
->relocation
;
5371 unsigned int count
= 0;
5373 if (section
->flags
& SEC_CONSTRUCTOR
)
5375 /* This section has relocs made up by us, they are not in the
5376 file, so take them out of their chain and place them into
5377 the data area provided. */
5378 arelent_chain
*chain
= section
->constructor_chain
;
5380 for (count
= 0; count
< section
->reloc_count
; count
++)
5382 *relptr
++ = &chain
->relent
;
5383 chain
= chain
->next
;
5388 if (! coff_slurp_reloc_table (abfd
, section
, symbols
))
5391 tblptr
= section
->relocation
;
5393 for (; count
++ < section
->reloc_count
;)
5394 *relptr
++ = tblptr
++;
5397 return section
->reloc_count
;
5400 #ifndef coff_reloc16_estimate
5401 #define coff_reloc16_estimate dummy_reloc16_estimate
5404 dummy_reloc16_estimate (bfd
*abfd ATTRIBUTE_UNUSED
,
5405 asection
*input_section ATTRIBUTE_UNUSED
,
5406 arelent
*reloc ATTRIBUTE_UNUSED
,
5407 unsigned int shrink ATTRIBUTE_UNUSED
,
5408 struct bfd_link_info
*link_info ATTRIBUTE_UNUSED
)
5416 #ifndef coff_reloc16_extra_cases
5418 #define coff_reloc16_extra_cases dummy_reloc16_extra_cases
5420 /* This works even if abort is not declared in any header file. */
5423 dummy_reloc16_extra_cases (bfd
*abfd ATTRIBUTE_UNUSED
,
5424 struct bfd_link_info
*link_info ATTRIBUTE_UNUSED
,
5425 struct bfd_link_order
*link_order ATTRIBUTE_UNUSED
,
5426 arelent
*reloc ATTRIBUTE_UNUSED
,
5427 bfd_byte
*data ATTRIBUTE_UNUSED
,
5428 unsigned int *src_ptr ATTRIBUTE_UNUSED
,
5429 unsigned int *dst_ptr ATTRIBUTE_UNUSED
)
5435 /* If coff_relocate_section is defined, we can use the optimized COFF
5436 backend linker. Otherwise we must continue to use the old linker. */
5438 #ifdef coff_relocate_section
5440 #ifndef coff_bfd_link_hash_table_create
5441 #define coff_bfd_link_hash_table_create _bfd_coff_link_hash_table_create
5443 #ifndef coff_bfd_link_add_symbols
5444 #define coff_bfd_link_add_symbols _bfd_coff_link_add_symbols
5446 #ifndef coff_bfd_final_link
5447 #define coff_bfd_final_link _bfd_coff_final_link
5450 #else /* ! defined (coff_relocate_section) */
5452 #define coff_relocate_section NULL
5453 #ifndef coff_bfd_link_hash_table_create
5454 #define coff_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
5456 #ifndef coff_bfd_link_add_symbols
5457 #define coff_bfd_link_add_symbols _bfd_generic_link_add_symbols
5459 #define coff_bfd_final_link _bfd_generic_final_link
5461 #endif /* ! defined (coff_relocate_section) */
5463 #define coff_bfd_link_just_syms _bfd_generic_link_just_syms
5464 #define coff_bfd_copy_link_hash_symbol_type \
5465 _bfd_generic_copy_link_hash_symbol_type
5466 #define coff_bfd_link_split_section _bfd_generic_link_split_section
5468 #ifndef coff_start_final_link
5469 #define coff_start_final_link NULL
5472 #ifndef coff_adjust_symndx
5473 #define coff_adjust_symndx NULL
5476 #ifndef coff_link_add_one_symbol
5477 #define coff_link_add_one_symbol _bfd_generic_link_add_one_symbol
5480 #ifndef coff_link_output_has_begun
5483 coff_link_output_has_begun (bfd
* abfd
,
5484 struct coff_final_link_info
* info ATTRIBUTE_UNUSED
)
5486 return abfd
->output_has_begun
;
5490 #ifndef coff_final_link_postscript
5493 coff_final_link_postscript (bfd
* abfd ATTRIBUTE_UNUSED
,
5494 struct coff_final_link_info
* pfinfo ATTRIBUTE_UNUSED
)
5500 #ifndef coff_SWAP_aux_in
5501 #define coff_SWAP_aux_in coff_swap_aux_in
5503 #ifndef coff_SWAP_sym_in
5504 #define coff_SWAP_sym_in coff_swap_sym_in
5506 #ifndef coff_SWAP_lineno_in
5507 #define coff_SWAP_lineno_in coff_swap_lineno_in
5509 #ifndef coff_SWAP_aux_out
5510 #define coff_SWAP_aux_out coff_swap_aux_out
5512 #ifndef coff_SWAP_sym_out
5513 #define coff_SWAP_sym_out coff_swap_sym_out
5515 #ifndef coff_SWAP_lineno_out
5516 #define coff_SWAP_lineno_out coff_swap_lineno_out
5518 #ifndef coff_SWAP_reloc_out
5519 #define coff_SWAP_reloc_out coff_swap_reloc_out
5521 #ifndef coff_SWAP_filehdr_out
5522 #define coff_SWAP_filehdr_out coff_swap_filehdr_out
5524 #ifndef coff_SWAP_aouthdr_out
5525 #define coff_SWAP_aouthdr_out coff_swap_aouthdr_out
5527 #ifndef coff_SWAP_scnhdr_out
5528 #define coff_SWAP_scnhdr_out coff_swap_scnhdr_out
5530 #ifndef coff_SWAP_reloc_in
5531 #define coff_SWAP_reloc_in coff_swap_reloc_in
5533 #ifndef coff_SWAP_filehdr_in
5534 #define coff_SWAP_filehdr_in coff_swap_filehdr_in
5536 #ifndef coff_SWAP_aouthdr_in
5537 #define coff_SWAP_aouthdr_in coff_swap_aouthdr_in
5539 #ifndef coff_SWAP_scnhdr_in
5540 #define coff_SWAP_scnhdr_in coff_swap_scnhdr_in
5543 static bfd_coff_backend_data bfd_coff_std_swap_table ATTRIBUTE_UNUSED
=
5545 coff_SWAP_aux_in
, coff_SWAP_sym_in
, coff_SWAP_lineno_in
,
5546 coff_SWAP_aux_out
, coff_SWAP_sym_out
,
5547 coff_SWAP_lineno_out
, coff_SWAP_reloc_out
,
5548 coff_SWAP_filehdr_out
, coff_SWAP_aouthdr_out
,
5549 coff_SWAP_scnhdr_out
,
5550 FILHSZ
, AOUTSZ
, SCNHSZ
, SYMESZ
, AUXESZ
, RELSZ
, LINESZ
, FILNMLEN
,
5551 #ifdef COFF_LONG_FILENAMES
5556 COFF_DEFAULT_LONG_SECTION_NAMES
,
5557 COFF_DEFAULT_SECTION_ALIGNMENT_POWER
,
5558 #ifdef COFF_FORCE_SYMBOLS_IN_STRINGS
5563 #ifdef COFF_DEBUG_STRING_WIDE_PREFIX
5569 coff_SWAP_filehdr_in
, coff_SWAP_aouthdr_in
, coff_SWAP_scnhdr_in
,
5570 coff_SWAP_reloc_in
, coff_bad_format_hook
, coff_set_arch_mach_hook
,
5571 coff_mkobject_hook
, styp_to_sec_flags
, coff_set_alignment_hook
,
5572 coff_slurp_symbol_table
, symname_in_debug_hook
, coff_pointerize_aux_hook
,
5573 coff_print_aux
, coff_reloc16_extra_cases
, coff_reloc16_estimate
,
5574 coff_classify_symbol
, coff_compute_section_file_positions
,
5575 coff_start_final_link
, coff_relocate_section
, coff_rtype_to_howto
,
5576 coff_adjust_symndx
, coff_link_add_one_symbol
,
5577 coff_link_output_has_begun
, coff_final_link_postscript
,
5582 /* COFF0 differs in file/section header size and relocation entry size. */
5584 static bfd_coff_backend_data ticoff0_swap_table
=
5586 coff_SWAP_aux_in
, coff_SWAP_sym_in
, coff_SWAP_lineno_in
,
5587 coff_SWAP_aux_out
, coff_SWAP_sym_out
,
5588 coff_SWAP_lineno_out
, coff_SWAP_reloc_out
,
5589 coff_SWAP_filehdr_out
, coff_SWAP_aouthdr_out
,
5590 coff_SWAP_scnhdr_out
,
5591 FILHSZ_V0
, AOUTSZ
, SCNHSZ_V01
, SYMESZ
, AUXESZ
, RELSZ_V0
, LINESZ
, FILNMLEN
,
5592 #ifdef COFF_LONG_FILENAMES
5597 COFF_DEFAULT_LONG_SECTION_NAMES
,
5598 COFF_DEFAULT_SECTION_ALIGNMENT_POWER
,
5599 #ifdef COFF_FORCE_SYMBOLS_IN_STRINGS
5604 #ifdef COFF_DEBUG_STRING_WIDE_PREFIX
5610 coff_SWAP_filehdr_in
, coff_SWAP_aouthdr_in
, coff_SWAP_scnhdr_in
,
5611 coff_SWAP_reloc_in
, ticoff0_bad_format_hook
, coff_set_arch_mach_hook
,
5612 coff_mkobject_hook
, styp_to_sec_flags
, coff_set_alignment_hook
,
5613 coff_slurp_symbol_table
, symname_in_debug_hook
, coff_pointerize_aux_hook
,
5614 coff_print_aux
, coff_reloc16_extra_cases
, coff_reloc16_estimate
,
5615 coff_classify_symbol
, coff_compute_section_file_positions
,
5616 coff_start_final_link
, coff_relocate_section
, coff_rtype_to_howto
,
5617 coff_adjust_symndx
, coff_link_add_one_symbol
,
5618 coff_link_output_has_begun
, coff_final_link_postscript
,
5624 /* COFF1 differs in section header size. */
5626 static bfd_coff_backend_data ticoff1_swap_table
=
5628 coff_SWAP_aux_in
, coff_SWAP_sym_in
, coff_SWAP_lineno_in
,
5629 coff_SWAP_aux_out
, coff_SWAP_sym_out
,
5630 coff_SWAP_lineno_out
, coff_SWAP_reloc_out
,
5631 coff_SWAP_filehdr_out
, coff_SWAP_aouthdr_out
,
5632 coff_SWAP_scnhdr_out
,
5633 FILHSZ
, AOUTSZ
, SCNHSZ_V01
, SYMESZ
, AUXESZ
, RELSZ
, LINESZ
, FILNMLEN
,
5634 #ifdef COFF_LONG_FILENAMES
5639 COFF_DEFAULT_LONG_SECTION_NAMES
,
5640 COFF_DEFAULT_SECTION_ALIGNMENT_POWER
,
5641 #ifdef COFF_FORCE_SYMBOLS_IN_STRINGS
5646 #ifdef COFF_DEBUG_STRING_WIDE_PREFIX
5652 coff_SWAP_filehdr_in
, coff_SWAP_aouthdr_in
, coff_SWAP_scnhdr_in
,
5653 coff_SWAP_reloc_in
, ticoff1_bad_format_hook
, coff_set_arch_mach_hook
,
5654 coff_mkobject_hook
, styp_to_sec_flags
, coff_set_alignment_hook
,
5655 coff_slurp_symbol_table
, symname_in_debug_hook
, coff_pointerize_aux_hook
,
5656 coff_print_aux
, coff_reloc16_extra_cases
, coff_reloc16_estimate
,
5657 coff_classify_symbol
, coff_compute_section_file_positions
,
5658 coff_start_final_link
, coff_relocate_section
, coff_rtype_to_howto
,
5659 coff_adjust_symndx
, coff_link_add_one_symbol
,
5660 coff_link_output_has_begun
, coff_final_link_postscript
,
5661 bfd_pe_print_pdata
/* huh */
5665 #ifdef COFF_WITH_PE_BIGOBJ
5666 /* The UID for bigobj files. */
5668 static const char header_bigobj_classid
[16] =
5670 0xC7, 0xA1, 0xBA, 0xD1,
5674 0xFA, 0xF6, 0x6A, 0xA4, 0xDC, 0xB8
5677 /* Swap routines. */
5680 coff_bigobj_swap_filehdr_in (bfd
* abfd
, void * src
, void * dst
)
5682 struct external_ANON_OBJECT_HEADER_BIGOBJ
*filehdr_src
=
5683 (struct external_ANON_OBJECT_HEADER_BIGOBJ
*) src
;
5684 struct internal_filehdr
*filehdr_dst
= (struct internal_filehdr
*) dst
;
5686 filehdr_dst
->f_magic
= H_GET_16 (abfd
, filehdr_src
->Machine
);
5687 filehdr_dst
->f_nscns
= H_GET_32 (abfd
, filehdr_src
->NumberOfSections
);
5688 filehdr_dst
->f_timdat
= H_GET_32 (abfd
, filehdr_src
->TimeDateStamp
);
5689 filehdr_dst
->f_symptr
=
5690 GET_FILEHDR_SYMPTR (abfd
, filehdr_src
->PointerToSymbolTable
);
5691 filehdr_dst
->f_nsyms
= H_GET_32 (abfd
, filehdr_src
->NumberOfSymbols
);
5692 filehdr_dst
->f_opthdr
= 0;
5693 filehdr_dst
->f_flags
= 0;
5695 /* Check other magic numbers. */
5696 if (H_GET_16 (abfd
, filehdr_src
->Sig1
) != IMAGE_FILE_MACHINE_UNKNOWN
5697 || H_GET_16 (abfd
, filehdr_src
->Sig2
) != 0xffff
5698 || H_GET_16 (abfd
, filehdr_src
->Version
) != 2
5699 || memcmp (filehdr_src
->ClassID
, header_bigobj_classid
, 16) != 0)
5700 filehdr_dst
->f_opthdr
= 0xffff;
5702 /* Note that CLR metadata are ignored. */
5706 coff_bigobj_swap_filehdr_out (bfd
*abfd
, void * in
, void * out
)
5708 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
5709 struct external_ANON_OBJECT_HEADER_BIGOBJ
*filehdr_out
=
5710 (struct external_ANON_OBJECT_HEADER_BIGOBJ
*) out
;
5712 memset (filehdr_out
, 0, sizeof (*filehdr_out
));
5714 H_PUT_16 (abfd
, IMAGE_FILE_MACHINE_UNKNOWN
, filehdr_out
->Sig1
);
5715 H_PUT_16 (abfd
, 0xffff, filehdr_out
->Sig2
);
5716 H_PUT_16 (abfd
, 2, filehdr_out
->Version
);
5717 memcpy (filehdr_out
->ClassID
, header_bigobj_classid
, 16);
5718 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->Machine
);
5719 H_PUT_32 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->NumberOfSections
);
5720 H_PUT_32 (abfd
, filehdr_in
->f_timdat
, filehdr_out
->TimeDateStamp
);
5721 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
,
5722 filehdr_out
->PointerToSymbolTable
);
5723 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->NumberOfSymbols
);
5725 return bfd_coff_filhsz (abfd
);
5729 coff_bigobj_swap_sym_in (bfd
* abfd
, void * ext1
, void * in1
)
5731 SYMENT_BIGOBJ
*ext
= (SYMENT_BIGOBJ
*) ext1
;
5732 struct internal_syment
*in
= (struct internal_syment
*) in1
;
5734 if (ext
->e
.e_name
[0] == 0)
5736 in
->_n
._n_n
._n_zeroes
= 0;
5737 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
5741 #if SYMNMLEN != E_SYMNMLEN
5742 #error we need to cope with truncating or extending SYMNMLEN
5744 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
5748 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
5749 in
->n_scnum
= H_GET_32 (abfd
, ext
->e_scnum
);
5750 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
5751 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
5752 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
5756 coff_bigobj_swap_sym_out (bfd
* abfd
, void * inp
, void * extp
)
5758 struct internal_syment
*in
= (struct internal_syment
*) inp
;
5759 SYMENT_BIGOBJ
*ext
= (SYMENT_BIGOBJ
*) extp
;
5761 if (in
->_n
._n_name
[0] == 0)
5763 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
5764 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
5768 #if SYMNMLEN != E_SYMNMLEN
5769 #error we need to cope with truncating or extending SYMNMLEN
5771 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
5775 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
5776 H_PUT_32 (abfd
, in
->n_scnum
, ext
->e_scnum
);
5778 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
5779 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
5780 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
5782 return SYMESZ_BIGOBJ
;
5786 coff_bigobj_swap_aux_in (bfd
*abfd
,
5794 AUXENT_BIGOBJ
*ext
= (AUXENT_BIGOBJ
*) ext1
;
5795 union internal_auxent
*in
= (union internal_auxent
*) in1
;
5803 memcpy (in
->x_file
.x_fname
, ext
->File
.Name
,
5804 numaux
* sizeof (AUXENT_BIGOBJ
));
5807 memcpy (in
->x_file
.x_fname
, ext
->File
.Name
, sizeof (ext
->File
.Name
));
5815 in
->x_scn
.x_scnlen
= H_GET_32 (abfd
, ext
->Section
.Length
);
5816 in
->x_scn
.x_nreloc
=
5817 H_GET_16 (abfd
, ext
->Section
.NumberOfRelocations
);
5818 in
->x_scn
.x_nlinno
=
5819 H_GET_16 (abfd
, ext
->Section
.NumberOfLinenumbers
);
5820 in
->x_scn
.x_checksum
= H_GET_32 (abfd
, ext
->Section
.Checksum
);
5821 in
->x_scn
.x_associated
= H_GET_16 (abfd
, ext
->Section
.Number
)
5822 | (H_GET_16 (abfd
, ext
->Section
.HighNumber
) << 16);
5823 in
->x_scn
.x_comdat
= H_GET_8 (abfd
, ext
->Section
.Selection
);
5829 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->Sym
.WeakDefaultSymIndex
);
5830 /* Characteristics is ignored. */
5836 coff_bigobj_swap_aux_out (bfd
* abfd
,
5840 int indx ATTRIBUTE_UNUSED
,
5841 int numaux ATTRIBUTE_UNUSED
,
5844 union internal_auxent
* in
= (union internal_auxent
*) inp
;
5845 AUXENT_BIGOBJ
*ext
= (AUXENT_BIGOBJ
*) extp
;
5847 memset (ext
, 0, AUXESZ
);
5852 memcpy (ext
->File
.Name
, in
->x_file
.x_fname
, sizeof (ext
->File
.Name
));
5861 H_PUT_32 (abfd
, in
->x_scn
.x_scnlen
, ext
->Section
.Length
);
5862 H_PUT_16 (abfd
, in
->x_scn
.x_nreloc
,
5863 ext
->Section
.NumberOfRelocations
);
5864 H_PUT_16 (abfd
, in
->x_scn
.x_nlinno
,
5865 ext
->Section
.NumberOfLinenumbers
);
5866 H_PUT_32 (abfd
, in
->x_scn
.x_checksum
, ext
->Section
.Checksum
);
5867 H_PUT_16 (abfd
, in
->x_scn
.x_associated
& 0xffff,
5868 ext
->Section
.Number
);
5869 H_PUT_16 (abfd
, (in
->x_scn
.x_associated
>> 16),
5870 ext
->Section
.HighNumber
);
5871 H_PUT_8 (abfd
, in
->x_scn
.x_comdat
, ext
->Section
.Selection
);
5877 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->Sym
.WeakDefaultSymIndex
);
5878 H_PUT_32 (abfd
, 1, ext
->Sym
.WeakSearchType
);
5883 static bfd_coff_backend_data bigobj_swap_table
=
5885 coff_bigobj_swap_aux_in
, coff_bigobj_swap_sym_in
, coff_SWAP_lineno_in
,
5886 coff_bigobj_swap_aux_out
, coff_bigobj_swap_sym_out
,
5887 coff_SWAP_lineno_out
, coff_SWAP_reloc_out
,
5888 coff_bigobj_swap_filehdr_out
, coff_SWAP_aouthdr_out
,
5889 coff_SWAP_scnhdr_out
,
5890 FILHSZ_BIGOBJ
, AOUTSZ
, SCNHSZ
, SYMESZ_BIGOBJ
, AUXESZ_BIGOBJ
,
5891 RELSZ
, LINESZ
, FILNMLEN_BIGOBJ
,
5893 COFF_DEFAULT_LONG_SECTION_NAMES
,
5894 COFF_DEFAULT_SECTION_ALIGNMENT_POWER
,
5898 coff_bigobj_swap_filehdr_in
, coff_SWAP_aouthdr_in
, coff_SWAP_scnhdr_in
,
5899 coff_SWAP_reloc_in
, coff_bad_format_hook
, coff_set_arch_mach_hook
,
5900 coff_mkobject_hook
, styp_to_sec_flags
, coff_set_alignment_hook
,
5901 coff_slurp_symbol_table
, symname_in_debug_hook
, coff_pointerize_aux_hook
,
5902 coff_print_aux
, coff_reloc16_extra_cases
, coff_reloc16_estimate
,
5903 coff_classify_symbol
, coff_compute_section_file_positions
,
5904 coff_start_final_link
, coff_relocate_section
, coff_rtype_to_howto
,
5905 coff_adjust_symndx
, coff_link_add_one_symbol
,
5906 coff_link_output_has_begun
, coff_final_link_postscript
,
5907 bfd_pe_print_pdata
/* huh */
5910 #endif /* COFF_WITH_PE_BIGOBJ */
5912 #ifndef coff_close_and_cleanup
5913 #define coff_close_and_cleanup _bfd_generic_close_and_cleanup
5916 #ifndef coff_bfd_free_cached_info
5917 #define coff_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
5920 #ifndef coff_get_section_contents
5921 #define coff_get_section_contents _bfd_generic_get_section_contents
5924 #ifndef coff_bfd_copy_private_symbol_data
5925 #define coff_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
5928 #ifndef coff_bfd_copy_private_header_data
5929 #define coff_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
5932 #ifndef coff_bfd_copy_private_section_data
5933 #define coff_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
5936 #ifndef coff_bfd_copy_private_bfd_data
5937 #define coff_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
5940 #ifndef coff_bfd_merge_private_bfd_data
5941 #define coff_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
5944 #ifndef coff_bfd_set_private_flags
5945 #define coff_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
5948 #ifndef coff_bfd_print_private_bfd_data
5949 #define coff_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
5952 #ifndef coff_bfd_is_local_label_name
5953 #define coff_bfd_is_local_label_name _bfd_coff_is_local_label_name
5956 #ifndef coff_bfd_is_target_special_symbol
5957 #define coff_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
5960 #ifndef coff_read_minisymbols
5961 #define coff_read_minisymbols _bfd_generic_read_minisymbols
5964 #ifndef coff_minisymbol_to_symbol
5965 #define coff_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
5968 /* The reloc lookup routine must be supplied by each individual COFF
5970 #ifndef coff_bfd_reloc_type_lookup
5971 #define coff_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
5973 #ifndef coff_bfd_reloc_name_lookup
5974 #define coff_bfd_reloc_name_lookup _bfd_norelocs_bfd_reloc_name_lookup
5977 #ifndef coff_bfd_get_relocated_section_contents
5978 #define coff_bfd_get_relocated_section_contents \
5979 bfd_generic_get_relocated_section_contents
5982 #ifndef coff_bfd_relax_section
5983 #define coff_bfd_relax_section bfd_generic_relax_section
5986 #ifndef coff_bfd_gc_sections
5987 #define coff_bfd_gc_sections bfd_generic_gc_sections
5990 #ifndef coff_bfd_lookup_section_flags
5991 #define coff_bfd_lookup_section_flags bfd_generic_lookup_section_flags
5994 #ifndef coff_bfd_merge_sections
5995 #define coff_bfd_merge_sections bfd_generic_merge_sections
5998 #ifndef coff_bfd_is_group_section
5999 #define coff_bfd_is_group_section bfd_generic_is_group_section
6002 #ifndef coff_bfd_discard_group
6003 #define coff_bfd_discard_group bfd_generic_discard_group
6006 #ifndef coff_section_already_linked
6007 #define coff_section_already_linked \
6008 _bfd_coff_section_already_linked
6011 #ifndef coff_bfd_define_common_symbol
6012 #define coff_bfd_define_common_symbol bfd_generic_define_common_symbol
6015 #define CREATE_BIG_COFF_TARGET_VEC(VAR, NAME, EXTRA_O_FLAGS, EXTRA_S_FLAGS, UNDER, ALTERNATIVE, SWAP_TABLE) \
6016 const bfd_target VAR = \
6019 bfd_target_coff_flavour, \
6020 BFD_ENDIAN_BIG, /* Data byte order is big. */ \
6021 BFD_ENDIAN_BIG, /* Header byte order is big. */ \
6022 /* object flags */ \
6023 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | \
6024 HAS_SYMS | HAS_LOCALS | WP_TEXT | EXTRA_O_FLAGS), \
6025 /* section flags */ \
6026 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | EXTRA_S_FLAGS),\
6027 UNDER, /* Leading symbol underscore. */ \
6028 '/', /* AR_pad_char. */ \
6029 15, /* AR_max_namelen. */ \
6030 0, /* match priority. */ \
6032 /* Data conversion functions. */ \
6033 bfd_getb64, bfd_getb_signed_64, bfd_putb64, \
6034 bfd_getb32, bfd_getb_signed_32, bfd_putb32, \
6035 bfd_getb16, bfd_getb_signed_16, bfd_putb16, \
6037 /* Header conversion functions. */ \
6038 bfd_getb64, bfd_getb_signed_64, bfd_putb64, \
6039 bfd_getb32, bfd_getb_signed_32, bfd_putb32, \
6040 bfd_getb16, bfd_getb_signed_16, bfd_putb16, \
6042 /* bfd_check_format. */ \
6043 { _bfd_dummy_target, coff_object_p, bfd_generic_archive_p, \
6044 _bfd_dummy_target }, \
6045 /* bfd_set_format. */ \
6046 { bfd_false, coff_mkobject, _bfd_generic_mkarchive, bfd_false }, \
6047 /* bfd_write_contents. */ \
6048 { bfd_false, coff_write_object_contents, _bfd_write_archive_contents, \
6051 BFD_JUMP_TABLE_GENERIC (coff), \
6052 BFD_JUMP_TABLE_COPY (coff), \
6053 BFD_JUMP_TABLE_CORE (_bfd_nocore), \
6054 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), \
6055 BFD_JUMP_TABLE_SYMBOLS (coff), \
6056 BFD_JUMP_TABLE_RELOCS (coff), \
6057 BFD_JUMP_TABLE_WRITE (coff), \
6058 BFD_JUMP_TABLE_LINK (coff), \
6059 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), \
6066 #define CREATE_BIGHDR_COFF_TARGET_VEC(VAR, NAME, EXTRA_O_FLAGS, EXTRA_S_FLAGS, UNDER, ALTERNATIVE, SWAP_TABLE) \
6067 const bfd_target VAR = \
6070 bfd_target_coff_flavour, \
6071 BFD_ENDIAN_LITTLE, /* Data byte order is little. */ \
6072 BFD_ENDIAN_BIG, /* Header byte order is big. */ \
6073 /* object flags */ \
6074 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | \
6075 HAS_SYMS | HAS_LOCALS | WP_TEXT | EXTRA_O_FLAGS), \
6076 /* section flags */ \
6077 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | EXTRA_S_FLAGS),\
6078 UNDER, /* Leading symbol underscore. */ \
6079 '/', /* AR_pad_char. */ \
6080 15, /* AR_max_namelen. */ \
6081 0, /* match priority. */ \
6083 /* Data conversion functions. */ \
6084 bfd_getb64, bfd_getb_signed_64, bfd_putb64, \
6085 bfd_getb32, bfd_getb_signed_32, bfd_putb32, \
6086 bfd_getb16, bfd_getb_signed_16, bfd_putb16, \
6088 /* Header conversion functions. */ \
6089 bfd_getb64, bfd_getb_signed_64, bfd_putb64, \
6090 bfd_getb32, bfd_getb_signed_32, bfd_putb32, \
6091 bfd_getb16, bfd_getb_signed_16, bfd_putb16, \
6093 /* bfd_check_format. */ \
6094 { _bfd_dummy_target, coff_object_p, bfd_generic_archive_p, \
6095 _bfd_dummy_target }, \
6096 /* bfd_set_format. */ \
6097 { bfd_false, coff_mkobject, _bfd_generic_mkarchive, bfd_false }, \
6098 /* bfd_write_contents. */ \
6099 { bfd_false, coff_write_object_contents, _bfd_write_archive_contents, \
6102 BFD_JUMP_TABLE_GENERIC (coff), \
6103 BFD_JUMP_TABLE_COPY (coff), \
6104 BFD_JUMP_TABLE_CORE (_bfd_nocore), \
6105 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), \
6106 BFD_JUMP_TABLE_SYMBOLS (coff), \
6107 BFD_JUMP_TABLE_RELOCS (coff), \
6108 BFD_JUMP_TABLE_WRITE (coff), \
6109 BFD_JUMP_TABLE_LINK (coff), \
6110 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), \
6117 #define CREATE_LITTLE_COFF_TARGET_VEC(VAR, NAME, EXTRA_O_FLAGS, EXTRA_S_FLAGS, UNDER, ALTERNATIVE, SWAP_TABLE) \
6118 const bfd_target VAR = \
6121 bfd_target_coff_flavour, \
6122 BFD_ENDIAN_LITTLE, /* Data byte order is little. */ \
6123 BFD_ENDIAN_LITTLE, /* Header byte order is little. */ \
6124 /* object flags */ \
6125 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | \
6126 HAS_SYMS | HAS_LOCALS | WP_TEXT | EXTRA_O_FLAGS), \
6127 /* section flags */ \
6128 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | EXTRA_S_FLAGS),\
6129 UNDER, /* Leading symbol underscore. */ \
6130 '/', /* AR_pad_char. */ \
6131 15, /* AR_max_namelen. */ \
6132 0, /* match priority. */ \
6134 /* Data conversion functions. */ \
6135 bfd_getl64, bfd_getl_signed_64, bfd_putl64, \
6136 bfd_getl32, bfd_getl_signed_32, bfd_putl32, \
6137 bfd_getl16, bfd_getl_signed_16, bfd_putl16, \
6138 /* Header conversion functions. */ \
6139 bfd_getl64, bfd_getl_signed_64, bfd_putl64, \
6140 bfd_getl32, bfd_getl_signed_32, bfd_putl32, \
6141 bfd_getl16, bfd_getl_signed_16, bfd_putl16, \
6142 /* bfd_check_format. */ \
6143 { _bfd_dummy_target, coff_object_p, bfd_generic_archive_p, \
6144 _bfd_dummy_target }, \
6145 /* bfd_set_format. */ \
6146 { bfd_false, coff_mkobject, _bfd_generic_mkarchive, bfd_false }, \
6147 /* bfd_write_contents. */ \
6148 { bfd_false, coff_write_object_contents, _bfd_write_archive_contents, \
6151 BFD_JUMP_TABLE_GENERIC (coff), \
6152 BFD_JUMP_TABLE_COPY (coff), \
6153 BFD_JUMP_TABLE_CORE (_bfd_nocore), \
6154 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), \
6155 BFD_JUMP_TABLE_SYMBOLS (coff), \
6156 BFD_JUMP_TABLE_RELOCS (coff), \
6157 BFD_JUMP_TABLE_WRITE (coff), \
6158 BFD_JUMP_TABLE_LINK (coff), \
6159 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), \