1 /* Support for the generic parts of PE/PEI; the common executable parts.
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005 Free Software Foundation, Inc.
4 Written by Cygnus Solutions.
6 This file is part of BFD, the Binary File Descriptor library.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
22 /* Most of this hacked by Steve Chamberlain <sac@cygnus.com>.
24 PE/PEI rearrangement (and code added): Donn Terry
25 Softway Systems, Inc. */
27 /* Hey look, some documentation [and in a place you expect to find it]!
29 The main reference for the pei format is "Microsoft Portable Executable
30 and Common Object File Format Specification 4.1". Get it if you need to
31 do some serious hacking on this code.
34 "Peering Inside the PE: A Tour of the Win32 Portable Executable
35 File Format", MSJ 1994, Volume 9.
37 The *sole* difference between the pe format and the pei format is that the
38 latter has an MSDOS 2.0 .exe header on the front that prints the message
39 "This app must be run under Windows." (or some such).
40 (FIXME: Whether that statement is *really* true or not is unknown.
41 Are there more subtle differences between pe and pei formats?
42 For now assume there aren't. If you find one, then for God sakes
45 The Microsoft docs use the word "image" instead of "executable" because
46 the former can also refer to a DLL (shared library). Confusion can arise
47 because the `i' in `pei' also refers to "image". The `pe' format can
48 also create images (i.e. executables), it's just that to run on a win32
49 system you need to use the pei format.
51 FIXME: Please add more docs here so the next poor fool that has to hack
52 on this code has a chance of getting something accomplished without
53 wasting too much time. */
55 /* This expands into COFF_WITH_pe or COFF_WITH_pep depending on whether
56 we're compiling for straight PE or PE+. */
62 #include "coff/internal.h"
64 /* NOTE: it's strange to be including an architecture specific header
65 in what's supposed to be general (to PE/PEI) code. However, that's
66 where the definitions are, and they don't vary per architecture
67 within PE/PEI, so we get them from there. FIXME: The lack of
68 variance is an assumption which may prove to be incorrect if new
69 PE/PEI targets are created. */
71 # include "coff/ia64.h"
73 # include "coff/i386.h"
82 # define AOUTSZ PEPAOUTSZ
83 # define PEAOUTHDR PEPAOUTHDR
86 /* FIXME: This file has various tests of POWERPC_LE_PE. Those tests
87 worked when the code was in peicode.h, but no longer work now that
88 the code is in peigen.c. PowerPC NT is said to be dead. If
89 anybody wants to revive the code, you will have to figure out how
90 to handle those issues. */
93 _bfd_XXi_swap_sym_in (bfd
* abfd
, void * ext1
, void * in1
)
95 SYMENT
*ext
= (SYMENT
*) ext1
;
96 struct internal_syment
*in
= (struct internal_syment
*) in1
;
98 if (ext
->e
.e_name
[0] == 0)
100 in
->_n
._n_n
._n_zeroes
= 0;
101 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
104 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
106 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
107 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
109 if (sizeof (ext
->e_type
) == 2)
110 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
112 in
->n_type
= H_GET_32 (abfd
, ext
->e_type
);
114 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
115 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
117 #ifndef STRICT_PE_FORMAT
118 /* This is for Gnu-created DLLs. */
120 /* The section symbols for the .idata$ sections have class 0x68
121 (C_SECTION), which MS documentation indicates is a section
122 symbol. Unfortunately, the value field in the symbol is simply a
123 copy of the .idata section's flags rather than something useful.
124 When these symbols are encountered, change the value to 0 so that
125 they will be handled somewhat correctly in the bfd code. */
126 if (in
->n_sclass
== C_SECTION
)
130 /* Create synthetic empty sections as needed. DJ */
131 if (in
->n_scnum
== 0)
135 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
137 if (strcmp (sec
->name
, in
->n_name
) == 0)
139 in
->n_scnum
= sec
->target_index
;
145 if (in
->n_scnum
== 0)
147 int unused_section_number
= 0;
151 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
152 if (unused_section_number
<= sec
->target_index
)
153 unused_section_number
= sec
->target_index
+ 1;
155 name
= bfd_alloc (abfd
, (bfd_size_type
) strlen (in
->n_name
) + 10);
158 strcpy (name
, in
->n_name
);
159 sec
= bfd_make_section_anyway (abfd
, name
);
165 sec
->rel_filepos
= 0;
166 sec
->reloc_count
= 0;
167 sec
->line_filepos
= 0;
168 sec
->lineno_count
= 0;
169 sec
->userdata
= NULL
;
171 sec
->alignment_power
= 2;
172 sec
->flags
= SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_DATA
| SEC_LOAD
;
174 sec
->target_index
= unused_section_number
;
176 in
->n_scnum
= unused_section_number
;
178 in
->n_sclass
= C_STAT
;
182 #ifdef coff_swap_sym_in_hook
183 /* This won't work in peigen.c, but since it's for PPC PE, it's not
185 coff_swap_sym_in_hook (abfd
, ext1
, in1
);
190 _bfd_XXi_swap_sym_out (bfd
* abfd
, void * inp
, void * extp
)
192 struct internal_syment
*in
= (struct internal_syment
*) inp
;
193 SYMENT
*ext
= (SYMENT
*) extp
;
195 if (in
->_n
._n_name
[0] == 0)
197 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
198 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
201 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
203 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
204 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
206 if (sizeof (ext
->e_type
) == 2)
207 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
209 H_PUT_32 (abfd
, in
->n_type
, ext
->e_type
);
211 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
212 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
218 _bfd_XXi_swap_aux_in (bfd
* abfd
,
222 int indx ATTRIBUTE_UNUSED
,
223 int numaux ATTRIBUTE_UNUSED
,
226 AUXENT
*ext
= (AUXENT
*) ext1
;
227 union internal_auxent
*in
= (union internal_auxent
*) in1
;
232 if (ext
->x_file
.x_fname
[0] == 0)
234 in
->x_file
.x_n
.x_zeroes
= 0;
235 in
->x_file
.x_n
.x_offset
= H_GET_32 (abfd
, ext
->x_file
.x_n
.x_offset
);
238 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
246 in
->x_scn
.x_scnlen
= GET_SCN_SCNLEN (abfd
, ext
);
247 in
->x_scn
.x_nreloc
= GET_SCN_NRELOC (abfd
, ext
);
248 in
->x_scn
.x_nlinno
= GET_SCN_NLINNO (abfd
, ext
);
249 in
->x_scn
.x_checksum
= H_GET_32 (abfd
, ext
->x_scn
.x_checksum
);
250 in
->x_scn
.x_associated
= H_GET_16 (abfd
, ext
->x_scn
.x_associated
);
251 in
->x_scn
.x_comdat
= H_GET_8 (abfd
, ext
->x_scn
.x_comdat
);
257 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->x_sym
.x_tagndx
);
258 in
->x_sym
.x_tvndx
= H_GET_16 (abfd
, ext
->x_sym
.x_tvndx
);
260 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
262 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
= GET_FCN_LNNOPTR (abfd
, ext
);
263 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
= GET_FCN_ENDNDX (abfd
, ext
);
267 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
268 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
269 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
270 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
271 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
272 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
273 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
274 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
279 in
->x_sym
.x_misc
.x_fsize
= H_GET_32 (abfd
, ext
->x_sym
.x_misc
.x_fsize
);
283 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
= GET_LNSZ_LNNO (abfd
, ext
);
284 in
->x_sym
.x_misc
.x_lnsz
.x_size
= GET_LNSZ_SIZE (abfd
, ext
);
289 _bfd_XXi_swap_aux_out (bfd
* abfd
,
293 int indx ATTRIBUTE_UNUSED
,
294 int numaux ATTRIBUTE_UNUSED
,
297 union internal_auxent
*in
= (union internal_auxent
*) inp
;
298 AUXENT
*ext
= (AUXENT
*) extp
;
300 memset (ext
, 0, AUXESZ
);
305 if (in
->x_file
.x_fname
[0] == 0)
307 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_zeroes
);
308 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
, ext
->x_file
.x_n
.x_offset
);
311 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
320 PUT_SCN_SCNLEN (abfd
, in
->x_scn
.x_scnlen
, ext
);
321 PUT_SCN_NRELOC (abfd
, in
->x_scn
.x_nreloc
, ext
);
322 PUT_SCN_NLINNO (abfd
, in
->x_scn
.x_nlinno
, ext
);
323 H_PUT_32 (abfd
, in
->x_scn
.x_checksum
, ext
->x_scn
.x_checksum
);
324 H_PUT_16 (abfd
, in
->x_scn
.x_associated
, ext
->x_scn
.x_associated
);
325 H_PUT_8 (abfd
, in
->x_scn
.x_comdat
, ext
->x_scn
.x_comdat
);
331 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->x_sym
.x_tagndx
);
332 H_PUT_16 (abfd
, in
->x_sym
.x_tvndx
, ext
->x_sym
.x_tvndx
);
334 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
336 PUT_FCN_LNNOPTR (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
, ext
);
337 PUT_FCN_ENDNDX (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
, ext
);
341 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
342 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
343 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
344 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
345 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
346 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
347 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
348 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
352 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_sym
.x_misc
.x_fsize
);
355 PUT_LNSZ_LNNO (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
, ext
);
356 PUT_LNSZ_SIZE (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
, ext
);
363 _bfd_XXi_swap_lineno_in (bfd
* abfd
, void * ext1
, void * in1
)
365 LINENO
*ext
= (LINENO
*) ext1
;
366 struct internal_lineno
*in
= (struct internal_lineno
*) in1
;
368 in
->l_addr
.l_symndx
= H_GET_32 (abfd
, ext
->l_addr
.l_symndx
);
369 in
->l_lnno
= GET_LINENO_LNNO (abfd
, ext
);
373 _bfd_XXi_swap_lineno_out (bfd
* abfd
, void * inp
, void * outp
)
375 struct internal_lineno
*in
= (struct internal_lineno
*) inp
;
376 struct external_lineno
*ext
= (struct external_lineno
*) outp
;
377 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
379 PUT_LINENO_LNNO (abfd
, in
->l_lnno
, ext
);
384 _bfd_XXi_swap_aouthdr_in (bfd
* abfd
,
388 struct internal_extra_pe_aouthdr
*a
;
389 PEAOUTHDR
* src
= (PEAOUTHDR
*) (aouthdr_ext1
);
390 AOUTHDR
* aouthdr_ext
= (AOUTHDR
*) aouthdr_ext1
;
391 struct internal_aouthdr
*aouthdr_int
= (struct internal_aouthdr
*)aouthdr_int1
;
393 aouthdr_int
->magic
= H_GET_16 (abfd
, aouthdr_ext
->magic
);
394 aouthdr_int
->vstamp
= H_GET_16 (abfd
, aouthdr_ext
->vstamp
);
395 aouthdr_int
->tsize
= GET_AOUTHDR_TSIZE (abfd
, aouthdr_ext
->tsize
);
396 aouthdr_int
->dsize
= GET_AOUTHDR_DSIZE (abfd
, aouthdr_ext
->dsize
);
397 aouthdr_int
->bsize
= GET_AOUTHDR_BSIZE (abfd
, aouthdr_ext
->bsize
);
398 aouthdr_int
->entry
= GET_AOUTHDR_ENTRY (abfd
, aouthdr_ext
->entry
);
399 aouthdr_int
->text_start
=
400 GET_AOUTHDR_TEXT_START (abfd
, aouthdr_ext
->text_start
);
401 #ifndef COFF_WITH_pep
402 /* PE32+ does not have data_start member! */
403 aouthdr_int
->data_start
=
404 GET_AOUTHDR_DATA_START (abfd
, aouthdr_ext
->data_start
);
407 a
= &aouthdr_int
->pe
;
408 a
->ImageBase
= GET_OPTHDR_IMAGE_BASE (abfd
, src
->ImageBase
);
409 a
->SectionAlignment
= H_GET_32 (abfd
, src
->SectionAlignment
);
410 a
->FileAlignment
= H_GET_32 (abfd
, src
->FileAlignment
);
411 a
->MajorOperatingSystemVersion
=
412 H_GET_16 (abfd
, src
->MajorOperatingSystemVersion
);
413 a
->MinorOperatingSystemVersion
=
414 H_GET_16 (abfd
, src
->MinorOperatingSystemVersion
);
415 a
->MajorImageVersion
= H_GET_16 (abfd
, src
->MajorImageVersion
);
416 a
->MinorImageVersion
= H_GET_16 (abfd
, src
->MinorImageVersion
);
417 a
->MajorSubsystemVersion
= H_GET_16 (abfd
, src
->MajorSubsystemVersion
);
418 a
->MinorSubsystemVersion
= H_GET_16 (abfd
, src
->MinorSubsystemVersion
);
419 a
->Reserved1
= H_GET_32 (abfd
, src
->Reserved1
);
420 a
->SizeOfImage
= H_GET_32 (abfd
, src
->SizeOfImage
);
421 a
->SizeOfHeaders
= H_GET_32 (abfd
, src
->SizeOfHeaders
);
422 a
->CheckSum
= H_GET_32 (abfd
, src
->CheckSum
);
423 a
->Subsystem
= H_GET_16 (abfd
, src
->Subsystem
);
424 a
->DllCharacteristics
= H_GET_16 (abfd
, src
->DllCharacteristics
);
425 a
->SizeOfStackReserve
=
426 GET_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, src
->SizeOfStackReserve
);
427 a
->SizeOfStackCommit
=
428 GET_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, src
->SizeOfStackCommit
);
429 a
->SizeOfHeapReserve
=
430 GET_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, src
->SizeOfHeapReserve
);
431 a
->SizeOfHeapCommit
=
432 GET_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, src
->SizeOfHeapCommit
);
433 a
->LoaderFlags
= H_GET_32 (abfd
, src
->LoaderFlags
);
434 a
->NumberOfRvaAndSizes
= H_GET_32 (abfd
, src
->NumberOfRvaAndSizes
);
439 for (idx
= 0; idx
< 16; idx
++)
441 /* If data directory is empty, rva also should be 0. */
443 H_GET_32 (abfd
, src
->DataDirectory
[idx
][1]);
444 a
->DataDirectory
[idx
].Size
= size
;
447 a
->DataDirectory
[idx
].VirtualAddress
=
448 H_GET_32 (abfd
, src
->DataDirectory
[idx
][0]);
450 a
->DataDirectory
[idx
].VirtualAddress
= 0;
454 if (aouthdr_int
->entry
)
456 aouthdr_int
->entry
+= a
->ImageBase
;
457 #ifndef COFF_WITH_pep
458 aouthdr_int
->entry
&= 0xffffffff;
462 if (aouthdr_int
->tsize
)
464 aouthdr_int
->text_start
+= a
->ImageBase
;
465 #ifndef COFF_WITH_pep
466 aouthdr_int
->text_start
&= 0xffffffff;
470 #ifndef COFF_WITH_pep
471 /* PE32+ does not have data_start member! */
472 if (aouthdr_int
->dsize
)
474 aouthdr_int
->data_start
+= a
->ImageBase
;
475 aouthdr_int
->data_start
&= 0xffffffff;
480 /* These three fields are normally set up by ppc_relocate_section.
481 In the case of reading a file in, we can pick them up from the
483 first_thunk_address
= a
->DataDirectory
[12].VirtualAddress
;
484 thunk_size
= a
->DataDirectory
[12].Size
;
485 import_table_size
= a
->DataDirectory
[1].Size
;
489 /* A support function for below. */
492 add_data_entry (bfd
* abfd
,
493 struct internal_extra_pe_aouthdr
*aout
,
498 asection
*sec
= bfd_get_section_by_name (abfd
, name
);
500 /* Add import directory information if it exists. */
502 && (coff_section_data (abfd
, sec
) != NULL
)
503 && (pei_section_data (abfd
, sec
) != NULL
))
505 /* If data directory is empty, rva also should be 0. */
506 int size
= pei_section_data (abfd
, sec
)->virt_size
;
507 aout
->DataDirectory
[idx
].Size
= size
;
511 aout
->DataDirectory
[idx
].VirtualAddress
=
512 (sec
->vma
- base
) & 0xffffffff;
513 sec
->flags
|= SEC_DATA
;
519 _bfd_XXi_swap_aouthdr_out (bfd
* abfd
, void * in
, void * out
)
521 struct internal_aouthdr
*aouthdr_in
= (struct internal_aouthdr
*) in
;
522 pe_data_type
*pe
= pe_data (abfd
);
523 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
524 PEAOUTHDR
*aouthdr_out
= (PEAOUTHDR
*) out
;
526 IMAGE_DATA_DIRECTORY idata2
, idata5
, tls
;
528 if (pe
->force_minimum_alignment
)
530 if (!extra
->FileAlignment
)
531 extra
->FileAlignment
= PE_DEF_FILE_ALIGNMENT
;
532 if (!extra
->SectionAlignment
)
533 extra
->SectionAlignment
= PE_DEF_SECTION_ALIGNMENT
;
536 if (extra
->Subsystem
== IMAGE_SUBSYSTEM_UNKNOWN
)
537 extra
->Subsystem
= pe
->target_subsystem
;
539 sa
= extra
->SectionAlignment
;
540 fa
= extra
->FileAlignment
;
541 ib
= extra
->ImageBase
;
543 idata2
= pe
->pe_opthdr
.DataDirectory
[1];
544 idata5
= pe
->pe_opthdr
.DataDirectory
[12];
545 tls
= pe
->pe_opthdr
.DataDirectory
[9];
547 if (aouthdr_in
->tsize
)
549 aouthdr_in
->text_start
-= ib
;
550 #ifndef COFF_WITH_pep
551 aouthdr_in
->text_start
&= 0xffffffff;
555 if (aouthdr_in
->dsize
)
557 aouthdr_in
->data_start
-= ib
;
558 #ifndef COFF_WITH_pep
559 aouthdr_in
->data_start
&= 0xffffffff;
563 if (aouthdr_in
->entry
)
565 aouthdr_in
->entry
-= ib
;
566 #ifndef COFF_WITH_pep
567 aouthdr_in
->entry
&= 0xffffffff;
571 #define FA(x) (((x) + fa -1 ) & (- fa))
572 #define SA(x) (((x) + sa -1 ) & (- sa))
574 /* We like to have the sizes aligned. */
575 aouthdr_in
->bsize
= FA (aouthdr_in
->bsize
);
577 extra
->NumberOfRvaAndSizes
= IMAGE_NUMBEROF_DIRECTORY_ENTRIES
;
579 /* First null out all data directory entries. */
580 memset (extra
->DataDirectory
, 0, sizeof (extra
->DataDirectory
));
582 add_data_entry (abfd
, extra
, 0, ".edata", ib
);
583 add_data_entry (abfd
, extra
, 2, ".rsrc", ib
);
584 add_data_entry (abfd
, extra
, 3, ".pdata", ib
);
586 /* In theory we do not need to call add_data_entry for .idata$2 or
587 .idata$5. It will be done in bfd_coff_final_link where all the
588 required information is available. If however, we are not going
589 to perform a final link, eg because we have been invoked by objcopy
590 or strip, then we need to make sure that these Data Directory
591 entries are initialised properly.
593 So - we copy the input values into the output values, and then, if
594 a final link is going to be performed, it can overwrite them. */
595 extra
->DataDirectory
[1] = idata2
;
596 extra
->DataDirectory
[12] = idata5
;
597 extra
->DataDirectory
[9] = tls
;
599 if (extra
->DataDirectory
[1].VirtualAddress
== 0)
600 /* Until other .idata fixes are made (pending patch), the entry for
601 .idata is needed for backwards compatibility. FIXME. */
602 add_data_entry (abfd
, extra
, 1, ".idata", ib
);
604 /* For some reason, the virtual size (which is what's set by
605 add_data_entry) for .reloc is not the same as the size recorded
606 in this slot by MSVC; it doesn't seem to cause problems (so far),
607 but since it's the best we've got, use it. It does do the right
609 if (pe
->has_reloc_section
)
610 add_data_entry (abfd
, extra
, 5, ".reloc", ib
);
619 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
621 int rounded
= FA (sec
->size
);
623 /* The first non-zero section filepos is the header size.
624 Sections without contents will have a filepos of 0. */
626 hsize
= sec
->filepos
;
627 if (sec
->flags
& SEC_DATA
)
629 if (sec
->flags
& SEC_CODE
)
631 /* The image size is the total VIRTUAL size (which is what is
632 in the virt_size field). Files have been seen (from MSVC
633 5.0 link.exe) where the file size of the .data segment is
634 quite small compared to the virtual size. Without this
635 fix, strip munges the file. */
636 if (coff_section_data (abfd
, sec
) != NULL
637 && pei_section_data (abfd
, sec
) != NULL
)
638 isize
+= SA (FA (pei_section_data (abfd
, sec
)->virt_size
));
641 aouthdr_in
->dsize
= dsize
;
642 aouthdr_in
->tsize
= tsize
;
643 extra
->SizeOfHeaders
= hsize
;
644 extra
->SizeOfImage
= SA (hsize
) + isize
;
647 H_PUT_16 (abfd
, aouthdr_in
->magic
, aouthdr_out
->standard
.magic
);
649 #define LINKER_VERSION 256 /* That is, 2.56 */
651 /* This piece of magic sets the "linker version" field to
653 H_PUT_16 (abfd
, (LINKER_VERSION
/ 100 + (LINKER_VERSION
% 100) * 256),
654 aouthdr_out
->standard
.vstamp
);
656 PUT_AOUTHDR_TSIZE (abfd
, aouthdr_in
->tsize
, aouthdr_out
->standard
.tsize
);
657 PUT_AOUTHDR_DSIZE (abfd
, aouthdr_in
->dsize
, aouthdr_out
->standard
.dsize
);
658 PUT_AOUTHDR_BSIZE (abfd
, aouthdr_in
->bsize
, aouthdr_out
->standard
.bsize
);
659 PUT_AOUTHDR_ENTRY (abfd
, aouthdr_in
->entry
, aouthdr_out
->standard
.entry
);
660 PUT_AOUTHDR_TEXT_START (abfd
, aouthdr_in
->text_start
,
661 aouthdr_out
->standard
.text_start
);
663 #ifndef COFF_WITH_pep
664 /* PE32+ does not have data_start member! */
665 PUT_AOUTHDR_DATA_START (abfd
, aouthdr_in
->data_start
,
666 aouthdr_out
->standard
.data_start
);
669 PUT_OPTHDR_IMAGE_BASE (abfd
, extra
->ImageBase
, aouthdr_out
->ImageBase
);
670 H_PUT_32 (abfd
, extra
->SectionAlignment
, aouthdr_out
->SectionAlignment
);
671 H_PUT_32 (abfd
, extra
->FileAlignment
, aouthdr_out
->FileAlignment
);
672 H_PUT_16 (abfd
, extra
->MajorOperatingSystemVersion
,
673 aouthdr_out
->MajorOperatingSystemVersion
);
674 H_PUT_16 (abfd
, extra
->MinorOperatingSystemVersion
,
675 aouthdr_out
->MinorOperatingSystemVersion
);
676 H_PUT_16 (abfd
, extra
->MajorImageVersion
, aouthdr_out
->MajorImageVersion
);
677 H_PUT_16 (abfd
, extra
->MinorImageVersion
, aouthdr_out
->MinorImageVersion
);
678 H_PUT_16 (abfd
, extra
->MajorSubsystemVersion
,
679 aouthdr_out
->MajorSubsystemVersion
);
680 H_PUT_16 (abfd
, extra
->MinorSubsystemVersion
,
681 aouthdr_out
->MinorSubsystemVersion
);
682 H_PUT_32 (abfd
, extra
->Reserved1
, aouthdr_out
->Reserved1
);
683 H_PUT_32 (abfd
, extra
->SizeOfImage
, aouthdr_out
->SizeOfImage
);
684 H_PUT_32 (abfd
, extra
->SizeOfHeaders
, aouthdr_out
->SizeOfHeaders
);
685 H_PUT_32 (abfd
, extra
->CheckSum
, aouthdr_out
->CheckSum
);
686 H_PUT_16 (abfd
, extra
->Subsystem
, aouthdr_out
->Subsystem
);
687 H_PUT_16 (abfd
, extra
->DllCharacteristics
, aouthdr_out
->DllCharacteristics
);
688 PUT_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, extra
->SizeOfStackReserve
,
689 aouthdr_out
->SizeOfStackReserve
);
690 PUT_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, extra
->SizeOfStackCommit
,
691 aouthdr_out
->SizeOfStackCommit
);
692 PUT_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, extra
->SizeOfHeapReserve
,
693 aouthdr_out
->SizeOfHeapReserve
);
694 PUT_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, extra
->SizeOfHeapCommit
,
695 aouthdr_out
->SizeOfHeapCommit
);
696 H_PUT_32 (abfd
, extra
->LoaderFlags
, aouthdr_out
->LoaderFlags
);
697 H_PUT_32 (abfd
, extra
->NumberOfRvaAndSizes
,
698 aouthdr_out
->NumberOfRvaAndSizes
);
702 for (idx
= 0; idx
< 16; idx
++)
704 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].VirtualAddress
,
705 aouthdr_out
->DataDirectory
[idx
][0]);
706 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].Size
,
707 aouthdr_out
->DataDirectory
[idx
][1]);
715 _bfd_XXi_only_swap_filehdr_out (bfd
* abfd
, void * in
, void * out
)
718 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
719 struct external_PEI_filehdr
*filehdr_out
= (struct external_PEI_filehdr
*) out
;
721 if (pe_data (abfd
)->has_reloc_section
)
722 filehdr_in
->f_flags
&= ~F_RELFLG
;
724 if (pe_data (abfd
)->dll
)
725 filehdr_in
->f_flags
|= F_DLL
;
727 filehdr_in
->pe
.e_magic
= DOSMAGIC
;
728 filehdr_in
->pe
.e_cblp
= 0x90;
729 filehdr_in
->pe
.e_cp
= 0x3;
730 filehdr_in
->pe
.e_crlc
= 0x0;
731 filehdr_in
->pe
.e_cparhdr
= 0x4;
732 filehdr_in
->pe
.e_minalloc
= 0x0;
733 filehdr_in
->pe
.e_maxalloc
= 0xffff;
734 filehdr_in
->pe
.e_ss
= 0x0;
735 filehdr_in
->pe
.e_sp
= 0xb8;
736 filehdr_in
->pe
.e_csum
= 0x0;
737 filehdr_in
->pe
.e_ip
= 0x0;
738 filehdr_in
->pe
.e_cs
= 0x0;
739 filehdr_in
->pe
.e_lfarlc
= 0x40;
740 filehdr_in
->pe
.e_ovno
= 0x0;
742 for (idx
= 0; idx
< 4; idx
++)
743 filehdr_in
->pe
.e_res
[idx
] = 0x0;
745 filehdr_in
->pe
.e_oemid
= 0x0;
746 filehdr_in
->pe
.e_oeminfo
= 0x0;
748 for (idx
= 0; idx
< 10; idx
++)
749 filehdr_in
->pe
.e_res2
[idx
] = 0x0;
751 filehdr_in
->pe
.e_lfanew
= 0x80;
753 /* This next collection of data are mostly just characters. It
754 appears to be constant within the headers put on NT exes. */
755 filehdr_in
->pe
.dos_message
[0] = 0x0eba1f0e;
756 filehdr_in
->pe
.dos_message
[1] = 0xcd09b400;
757 filehdr_in
->pe
.dos_message
[2] = 0x4c01b821;
758 filehdr_in
->pe
.dos_message
[3] = 0x685421cd;
759 filehdr_in
->pe
.dos_message
[4] = 0x70207369;
760 filehdr_in
->pe
.dos_message
[5] = 0x72676f72;
761 filehdr_in
->pe
.dos_message
[6] = 0x63206d61;
762 filehdr_in
->pe
.dos_message
[7] = 0x6f6e6e61;
763 filehdr_in
->pe
.dos_message
[8] = 0x65622074;
764 filehdr_in
->pe
.dos_message
[9] = 0x6e757220;
765 filehdr_in
->pe
.dos_message
[10] = 0x206e6920;
766 filehdr_in
->pe
.dos_message
[11] = 0x20534f44;
767 filehdr_in
->pe
.dos_message
[12] = 0x65646f6d;
768 filehdr_in
->pe
.dos_message
[13] = 0x0a0d0d2e;
769 filehdr_in
->pe
.dos_message
[14] = 0x24;
770 filehdr_in
->pe
.dos_message
[15] = 0x0;
771 filehdr_in
->pe
.nt_signature
= NT_SIGNATURE
;
773 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
774 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
776 H_PUT_32 (abfd
, time (0), filehdr_out
->f_timdat
);
777 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
,
778 filehdr_out
->f_symptr
);
779 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
780 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
781 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
783 /* Put in extra dos header stuff. This data remains essentially
784 constant, it just has to be tacked on to the beginning of all exes
786 H_PUT_16 (abfd
, filehdr_in
->pe
.e_magic
, filehdr_out
->e_magic
);
787 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cblp
, filehdr_out
->e_cblp
);
788 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cp
, filehdr_out
->e_cp
);
789 H_PUT_16 (abfd
, filehdr_in
->pe
.e_crlc
, filehdr_out
->e_crlc
);
790 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cparhdr
, filehdr_out
->e_cparhdr
);
791 H_PUT_16 (abfd
, filehdr_in
->pe
.e_minalloc
, filehdr_out
->e_minalloc
);
792 H_PUT_16 (abfd
, filehdr_in
->pe
.e_maxalloc
, filehdr_out
->e_maxalloc
);
793 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ss
, filehdr_out
->e_ss
);
794 H_PUT_16 (abfd
, filehdr_in
->pe
.e_sp
, filehdr_out
->e_sp
);
795 H_PUT_16 (abfd
, filehdr_in
->pe
.e_csum
, filehdr_out
->e_csum
);
796 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ip
, filehdr_out
->e_ip
);
797 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cs
, filehdr_out
->e_cs
);
798 H_PUT_16 (abfd
, filehdr_in
->pe
.e_lfarlc
, filehdr_out
->e_lfarlc
);
799 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ovno
, filehdr_out
->e_ovno
);
801 for (idx
= 0; idx
< 4; idx
++)
802 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res
[idx
], filehdr_out
->e_res
[idx
]);
804 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oemid
, filehdr_out
->e_oemid
);
805 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oeminfo
, filehdr_out
->e_oeminfo
);
807 for (idx
= 0; idx
< 10; idx
++)
808 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res2
[idx
], filehdr_out
->e_res2
[idx
]);
810 H_PUT_32 (abfd
, filehdr_in
->pe
.e_lfanew
, filehdr_out
->e_lfanew
);
812 for (idx
= 0; idx
< 16; idx
++)
813 H_PUT_32 (abfd
, filehdr_in
->pe
.dos_message
[idx
],
814 filehdr_out
->dos_message
[idx
]);
816 /* Also put in the NT signature. */
817 H_PUT_32 (abfd
, filehdr_in
->pe
.nt_signature
, filehdr_out
->nt_signature
);
823 _bfd_XX_only_swap_filehdr_out (bfd
* abfd
, void * in
, void * out
)
825 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
826 FILHDR
*filehdr_out
= (FILHDR
*) out
;
828 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
829 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
830 H_PUT_32 (abfd
, filehdr_in
->f_timdat
, filehdr_out
->f_timdat
);
831 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
, filehdr_out
->f_symptr
);
832 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
833 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
834 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
840 _bfd_XXi_swap_scnhdr_out (bfd
* abfd
, void * in
, void * out
)
842 struct internal_scnhdr
*scnhdr_int
= (struct internal_scnhdr
*) in
;
843 SCNHDR
*scnhdr_ext
= (SCNHDR
*) out
;
844 unsigned int ret
= SCNHSZ
;
848 memcpy (scnhdr_ext
->s_name
, scnhdr_int
->s_name
, sizeof (scnhdr_int
->s_name
));
850 PUT_SCNHDR_VADDR (abfd
,
851 ((scnhdr_int
->s_vaddr
852 - pe_data (abfd
)->pe_opthdr
.ImageBase
)
854 scnhdr_ext
->s_vaddr
);
856 /* NT wants the size data to be rounded up to the next
857 NT_FILE_ALIGNMENT, but zero if it has no content (as in .bss,
859 if ((scnhdr_int
->s_flags
& IMAGE_SCN_CNT_UNINITIALIZED_DATA
) != 0)
861 if (bfd_pe_executable_p (abfd
))
863 ps
= scnhdr_int
->s_size
;
869 ss
= scnhdr_int
->s_size
;
874 if (bfd_pe_executable_p (abfd
))
875 ps
= scnhdr_int
->s_paddr
;
879 ss
= scnhdr_int
->s_size
;
882 PUT_SCNHDR_SIZE (abfd
, ss
,
885 /* s_paddr in PE is really the virtual size. */
886 PUT_SCNHDR_PADDR (abfd
, ps
, scnhdr_ext
->s_paddr
);
888 PUT_SCNHDR_SCNPTR (abfd
, scnhdr_int
->s_scnptr
,
889 scnhdr_ext
->s_scnptr
);
890 PUT_SCNHDR_RELPTR (abfd
, scnhdr_int
->s_relptr
,
891 scnhdr_ext
->s_relptr
);
892 PUT_SCNHDR_LNNOPTR (abfd
, scnhdr_int
->s_lnnoptr
,
893 scnhdr_ext
->s_lnnoptr
);
896 /* Extra flags must be set when dealing with PE. All sections should also
897 have the IMAGE_SCN_MEM_READ (0x40000000) flag set. In addition, the
898 .text section must have IMAGE_SCN_MEM_EXECUTE (0x20000000) and the data
899 sections (.idata, .data, .bss, .CRT) must have IMAGE_SCN_MEM_WRITE set
900 (this is especially important when dealing with the .idata section since
901 the addresses for routines from .dlls must be overwritten). If .reloc
902 section data is ever generated, we must add IMAGE_SCN_MEM_DISCARDABLE
903 (0x02000000). Also, the resource data should also be read and
906 /* FIXME: Alignment is also encoded in this field, at least on PPC and
907 ARM-WINCE. Although - how do we get the original alignment field
912 const char * section_name
;
913 unsigned long must_have
;
915 pe_required_section_flags
;
917 pe_required_section_flags known_sections
[] =
919 { ".arch", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_DISCARDABLE
| IMAGE_SCN_ALIGN_8BYTES
},
920 { ".bss", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_UNINITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
921 { ".data", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
922 { ".edata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
923 { ".idata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
924 { ".pdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
925 { ".rdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
926 { ".reloc", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_DISCARDABLE
},
927 { ".rsrc", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
928 { ".text" , IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_CODE
| IMAGE_SCN_MEM_EXECUTE
},
929 { ".tls", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
930 { ".xdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
934 pe_required_section_flags
* p
;
936 /* We have defaulted to adding the IMAGE_SCN_MEM_WRITE flag, but now
937 we know exactly what this specific section wants so we remove it
938 and then allow the must_have field to add it back in if necessary.
939 However, we don't remove IMAGE_SCN_MEM_WRITE flag from .text if the
940 default WP_TEXT file flag has been cleared. WP_TEXT may be cleared
941 by ld --enable-auto-import (if auto-import is actually needed),
942 by ld --omagic, or by obcopy --writable-text. */
944 for (p
= known_sections
; p
->section_name
; p
++)
945 if (strcmp (scnhdr_int
->s_name
, p
->section_name
) == 0)
947 if (strcmp (scnhdr_int
->s_name
, ".text")
948 || (bfd_get_file_flags (abfd
) & WP_TEXT
))
949 scnhdr_int
->s_flags
&= ~IMAGE_SCN_MEM_WRITE
;
950 scnhdr_int
->s_flags
|= p
->must_have
;
954 H_PUT_32 (abfd
, scnhdr_int
->s_flags
, scnhdr_ext
->s_flags
);
957 if (coff_data (abfd
)->link_info
958 && ! coff_data (abfd
)->link_info
->relocatable
959 && ! coff_data (abfd
)->link_info
->shared
960 && strcmp (scnhdr_int
->s_name
, ".text") == 0)
962 /* By inference from looking at MS output, the 32 bit field
963 which is the combination of the number_of_relocs and
964 number_of_linenos is used for the line number count in
965 executables. A 16-bit field won't do for cc1. The MS
966 document says that the number of relocs is zero for
967 executables, but the 17-th bit has been observed to be there.
968 Overflow is not an issue: a 4G-line program will overflow a
969 bunch of other fields long before this! */
970 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
& 0xffff), scnhdr_ext
->s_nlnno
);
971 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
>> 16), scnhdr_ext
->s_nreloc
);
975 if (scnhdr_int
->s_nlnno
<= 0xffff)
976 H_PUT_16 (abfd
, scnhdr_int
->s_nlnno
, scnhdr_ext
->s_nlnno
);
979 (*_bfd_error_handler
) (_("%s: line number overflow: 0x%lx > 0xffff"),
980 bfd_get_filename (abfd
),
981 scnhdr_int
->s_nlnno
);
982 bfd_set_error (bfd_error_file_truncated
);
983 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nlnno
);
987 /* Although we could encode 0xffff relocs here, we do not, to be
988 consistent with other parts of bfd. Also it lets us warn, as
989 we should never see 0xffff here w/o having the overflow flag
991 if (scnhdr_int
->s_nreloc
< 0xffff)
992 H_PUT_16 (abfd
, scnhdr_int
->s_nreloc
, scnhdr_ext
->s_nreloc
);
995 /* PE can deal with large #s of relocs, but not here. */
996 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
997 scnhdr_int
->s_flags
|= IMAGE_SCN_LNK_NRELOC_OVFL
;
998 H_PUT_32 (abfd
, scnhdr_int
->s_flags
, scnhdr_ext
->s_flags
);
1004 static char * dir_names
[IMAGE_NUMBEROF_DIRECTORY_ENTRIES
] =
1006 N_("Export Directory [.edata (or where ever we found it)]"),
1007 N_("Import Directory [parts of .idata]"),
1008 N_("Resource Directory [.rsrc]"),
1009 N_("Exception Directory [.pdata]"),
1010 N_("Security Directory"),
1011 N_("Base Relocation Directory [.reloc]"),
1012 N_("Debug Directory"),
1013 N_("Description Directory"),
1014 N_("Special Directory"),
1015 N_("Thread Storage Directory [.tls]"),
1016 N_("Load Configuration Directory"),
1017 N_("Bound Import Directory"),
1018 N_("Import Address Table Directory"),
1019 N_("Delay Import Directory"),
1024 #ifdef POWERPC_LE_PE
1025 /* The code for the PPC really falls in the "architecture dependent"
1026 category. However, it's not clear that anyone will ever care, so
1027 we're ignoring the issue for now; if/when PPC matters, some of this
1028 may need to go into peicode.h, or arguments passed to enable the
1029 PPC- specific code. */
1033 pe_print_idata (bfd
* abfd
, void * vfile
)
1035 FILE *file
= (FILE *) vfile
;
1040 #ifdef POWERPC_LE_PE
1041 asection
*rel_section
= bfd_get_section_by_name (abfd
, ".reldata");
1044 bfd_size_type datasize
= 0;
1045 bfd_size_type dataoff
;
1049 pe_data_type
*pe
= pe_data (abfd
);
1050 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1054 addr
= extra
->DataDirectory
[1].VirtualAddress
;
1056 if (addr
== 0 && extra
->DataDirectory
[1].Size
== 0)
1058 /* Maybe the extra header isn't there. Look for the section. */
1059 section
= bfd_get_section_by_name (abfd
, ".idata");
1060 if (section
== NULL
)
1063 addr
= section
->vma
;
1064 datasize
= section
->size
;
1070 addr
+= extra
->ImageBase
;
1071 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1073 datasize
= section
->size
;
1074 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1078 if (section
== NULL
)
1081 _("\nThere is an import table, but the section containing it could not be found\n"));
1086 fprintf (file
, _("\nThere is an import table in %s at 0x%lx\n"),
1087 section
->name
, (unsigned long) addr
);
1089 dataoff
= addr
- section
->vma
;
1090 datasize
-= dataoff
;
1092 #ifdef POWERPC_LE_PE
1093 if (rel_section
!= 0 && rel_section
->size
!= 0)
1095 /* The toc address can be found by taking the starting address,
1096 which on the PPC locates a function descriptor. The
1097 descriptor consists of the function code starting address
1098 followed by the address of the toc. The starting address we
1099 get from the bfd, and the descriptor is supposed to be in the
1100 .reldata section. */
1102 bfd_vma loadable_toc_address
;
1103 bfd_vma toc_address
;
1104 bfd_vma start_address
;
1108 if (!bfd_malloc_and_get_section (abfd
, rel_section
, &data
))
1115 offset
= abfd
->start_address
- rel_section
->vma
;
1117 if (offset
>= rel_section
->size
|| offset
+ 8 > rel_section
->size
)
1124 start_address
= bfd_get_32 (abfd
, data
+ offset
);
1125 loadable_toc_address
= bfd_get_32 (abfd
, data
+ offset
+ 4);
1126 toc_address
= loadable_toc_address
- 32768;
1129 _("\nFunction descriptor located at the start address: %04lx\n"),
1130 (unsigned long int) (abfd
->start_address
));
1132 _("\tcode-base %08lx toc (loadable/actual) %08lx/%08lx\n"),
1133 start_address
, loadable_toc_address
, toc_address
);
1140 _("\nNo reldata section! Function descriptor not decoded.\n"));
1145 _("\nThe Import Tables (interpreted %s section contents)\n"),
1149 vma: Hint Time Forward DLL First\n\
1150 Table Stamp Chain Name Thunk\n"));
1152 /* Read the whole section. Some of the fields might be before dataoff. */
1153 if (!bfd_malloc_and_get_section (abfd
, section
, &data
))
1160 adj
= section
->vma
- extra
->ImageBase
;
1162 /* Print all image import descriptors. */
1163 for (i
= 0; i
< datasize
; i
+= onaline
)
1167 bfd_vma forward_chain
;
1169 bfd_vma first_thunk
;
1174 /* Print (i + extra->DataDirectory[1].VirtualAddress). */
1175 fprintf (file
, " %08lx\t", (unsigned long) (i
+ adj
+ dataoff
));
1176 hint_addr
= bfd_get_32 (abfd
, data
+ i
+ dataoff
);
1177 time_stamp
= bfd_get_32 (abfd
, data
+ i
+ 4 + dataoff
);
1178 forward_chain
= bfd_get_32 (abfd
, data
+ i
+ 8 + dataoff
);
1179 dll_name
= bfd_get_32 (abfd
, data
+ i
+ 12 + dataoff
);
1180 first_thunk
= bfd_get_32 (abfd
, data
+ i
+ 16 + dataoff
);
1182 fprintf (file
, "%08lx %08lx %08lx %08lx %08lx\n",
1183 (unsigned long) hint_addr
,
1184 (unsigned long) time_stamp
,
1185 (unsigned long) forward_chain
,
1186 (unsigned long) dll_name
,
1187 (unsigned long) first_thunk
);
1189 if (hint_addr
== 0 && first_thunk
== 0)
1192 if (dll_name
- adj
>= section
->size
)
1195 dll
= (char *) data
+ dll_name
- adj
;
1196 fprintf (file
, _("\n\tDLL Name: %s\n"), dll
);
1201 asection
*ft_section
;
1203 bfd_size_type ft_datasize
;
1205 int ft_allocated
= 0;
1207 fprintf (file
, _("\tvma: Hint/Ord Member-Name Bound-To\n"));
1209 idx
= hint_addr
- adj
;
1211 ft_addr
= first_thunk
+ extra
->ImageBase
;
1213 ft_idx
= first_thunk
- adj
;
1216 if (first_thunk
!= hint_addr
)
1218 /* Find the section which contains the first thunk. */
1219 for (ft_section
= abfd
->sections
;
1221 ft_section
= ft_section
->next
)
1223 ft_datasize
= ft_section
->size
;
1224 if (ft_addr
>= ft_section
->vma
1225 && ft_addr
< ft_section
->vma
+ ft_datasize
)
1229 if (ft_section
== NULL
)
1232 _("\nThere is a first thunk, but the section containing it could not be found\n"));
1236 /* Now check to see if this section is the same as our current
1237 section. If it is not then we will have to load its data in. */
1238 if (ft_section
== section
)
1241 ft_idx
= first_thunk
- adj
;
1245 ft_idx
= first_thunk
- (ft_section
->vma
- extra
->ImageBase
);
1246 ft_data
= bfd_malloc (datasize
);
1247 if (ft_data
== NULL
)
1250 /* Read datasize bfd_bytes starting at offset ft_idx. */
1251 if (! bfd_get_section_contents
1252 (abfd
, ft_section
, ft_data
, (bfd_vma
) ft_idx
, datasize
))
1263 /* Print HintName vector entries. */
1264 for (j
= 0; j
< datasize
; j
+= 4)
1266 unsigned long member
= bfd_get_32 (abfd
, data
+ idx
+ j
);
1268 /* Print single IMAGE_IMPORT_BY_NAME vector. */
1272 if (member
& 0x80000000)
1273 fprintf (file
, "\t%04lx\t %4lu <none>",
1274 member
, member
& 0x7fffffff);
1280 ordinal
= bfd_get_16 (abfd
, data
+ member
- adj
);
1281 member_name
= (char *) data
+ member
- adj
+ 2;
1282 fprintf (file
, "\t%04lx\t %4d %s",
1283 member
, ordinal
, member_name
);
1286 /* If the time stamp is not zero, the import address
1287 table holds actual addresses. */
1290 && first_thunk
!= hint_addr
)
1291 fprintf (file
, "\t%04lx",
1292 (long) bfd_get_32 (abfd
, ft_data
+ ft_idx
+ j
));
1294 fprintf (file
, "\n");
1301 fprintf (file
, "\n");
1310 pe_print_edata (bfd
* abfd
, void * vfile
)
1312 FILE *file
= (FILE *) vfile
;
1315 bfd_size_type datasize
= 0;
1316 bfd_size_type dataoff
;
1321 long export_flags
; /* Reserved - should be zero. */
1325 bfd_vma name
; /* RVA - relative to image base. */
1326 long base
; /* Ordinal base. */
1327 unsigned long num_functions
;/* Number in the export address table. */
1328 unsigned long num_names
; /* Number in the name pointer table. */
1329 bfd_vma eat_addr
; /* RVA to the export address table. */
1330 bfd_vma npt_addr
; /* RVA to the Export Name Pointer Table. */
1331 bfd_vma ot_addr
; /* RVA to the Ordinal Table. */
1334 pe_data_type
*pe
= pe_data (abfd
);
1335 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1339 addr
= extra
->DataDirectory
[0].VirtualAddress
;
1341 if (addr
== 0 && extra
->DataDirectory
[0].Size
== 0)
1343 /* Maybe the extra header isn't there. Look for the section. */
1344 section
= bfd_get_section_by_name (abfd
, ".edata");
1345 if (section
== NULL
)
1348 addr
= section
->vma
;
1349 datasize
= section
->size
;
1355 addr
+= extra
->ImageBase
;
1357 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1359 datasize
= section
->size
;
1361 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1365 if (section
== NULL
)
1368 _("\nThere is an export table, but the section containing it could not be found\n"));
1373 fprintf (file
, _("\nThere is an export table in %s at 0x%lx\n"),
1374 section
->name
, (unsigned long) addr
);
1376 dataoff
= addr
- section
->vma
;
1377 datasize
-= dataoff
;
1379 data
= bfd_malloc (datasize
);
1383 if (! bfd_get_section_contents (abfd
, section
, data
,
1384 (file_ptr
) dataoff
, datasize
))
1387 /* Go get Export Directory Table. */
1388 edt
.export_flags
= bfd_get_32 (abfd
, data
+ 0);
1389 edt
.time_stamp
= bfd_get_32 (abfd
, data
+ 4);
1390 edt
.major_ver
= bfd_get_16 (abfd
, data
+ 8);
1391 edt
.minor_ver
= bfd_get_16 (abfd
, data
+ 10);
1392 edt
.name
= bfd_get_32 (abfd
, data
+ 12);
1393 edt
.base
= bfd_get_32 (abfd
, data
+ 16);
1394 edt
.num_functions
= bfd_get_32 (abfd
, data
+ 20);
1395 edt
.num_names
= bfd_get_32 (abfd
, data
+ 24);
1396 edt
.eat_addr
= bfd_get_32 (abfd
, data
+ 28);
1397 edt
.npt_addr
= bfd_get_32 (abfd
, data
+ 32);
1398 edt
.ot_addr
= bfd_get_32 (abfd
, data
+ 36);
1400 adj
= section
->vma
- extra
->ImageBase
+ dataoff
;
1402 /* Dump the EDT first. */
1404 _("\nThe Export Tables (interpreted %s section contents)\n\n"),
1408 _("Export Flags \t\t\t%lx\n"), (unsigned long) edt
.export_flags
);
1411 _("Time/Date stamp \t\t%lx\n"), (unsigned long) edt
.time_stamp
);
1414 _("Major/Minor \t\t\t%d/%d\n"), edt
.major_ver
, edt
.minor_ver
);
1417 _("Name \t\t\t\t"));
1418 fprintf_vma (file
, edt
.name
);
1420 " %s\n", data
+ edt
.name
- adj
);
1423 _("Ordinal Base \t\t\t%ld\n"), edt
.base
);
1429 _("\tExport Address Table \t\t%08lx\n"),
1433 _("\t[Name Pointer/Ordinal] Table\t%08lx\n"), edt
.num_names
);
1436 _("Table Addresses\n"));
1439 _("\tExport Address Table \t\t"));
1440 fprintf_vma (file
, edt
.eat_addr
);
1441 fprintf (file
, "\n");
1444 _("\tName Pointer Table \t\t"));
1445 fprintf_vma (file
, edt
.npt_addr
);
1446 fprintf (file
, "\n");
1449 _("\tOrdinal Table \t\t\t"));
1450 fprintf_vma (file
, edt
.ot_addr
);
1451 fprintf (file
, "\n");
1453 /* The next table to find is the Export Address Table. It's basically
1454 a list of pointers that either locate a function in this dll, or
1455 forward the call to another dll. Something like:
1460 } export_address_table_entry; */
1463 _("\nExport Address Table -- Ordinal Base %ld\n"),
1466 for (i
= 0; i
< edt
.num_functions
; ++i
)
1468 bfd_vma eat_member
= bfd_get_32 (abfd
,
1469 data
+ edt
.eat_addr
+ (i
* 4) - adj
);
1470 if (eat_member
== 0)
1473 if (eat_member
- adj
<= datasize
)
1475 /* This rva is to a name (forwarding function) in our section. */
1476 /* Should locate a function descriptor. */
1478 "\t[%4ld] +base[%4ld] %04lx %s -- %s\n",
1480 (long) (i
+ edt
.base
),
1481 (unsigned long) eat_member
,
1483 data
+ eat_member
- adj
);
1487 /* Should locate a function descriptor in the reldata section. */
1489 "\t[%4ld] +base[%4ld] %04lx %s\n",
1491 (long) (i
+ edt
.base
),
1492 (unsigned long) eat_member
,
1497 /* The Export Name Pointer Table is paired with the Export Ordinal Table. */
1498 /* Dump them in parallel for clarity. */
1500 _("\n[Ordinal/Name Pointer] Table\n"));
1502 for (i
= 0; i
< edt
.num_names
; ++i
)
1504 bfd_vma name_ptr
= bfd_get_32 (abfd
,
1509 char *name
= (char *) data
+ name_ptr
- adj
;
1511 bfd_vma ord
= bfd_get_16 (abfd
,
1516 "\t[%4ld] %s\n", (long) ord
, name
);
1524 /* This really is architecture dependent. On IA-64, a .pdata entry
1525 consists of three dwords containing relative virtual addresses that
1526 specify the start and end address of the code range the entry
1527 covers and the address of the corresponding unwind info data. */
1530 pe_print_pdata (bfd
* abfd
, void * vfile
)
1532 #ifdef COFF_WITH_pep
1533 # define PDATA_ROW_SIZE (3*8)
1535 # define PDATA_ROW_SIZE (5*4)
1537 FILE *file
= (FILE *) vfile
;
1539 asection
*section
= bfd_get_section_by_name (abfd
, ".pdata");
1540 bfd_size_type datasize
= 0;
1542 bfd_size_type start
, stop
;
1543 int onaline
= PDATA_ROW_SIZE
;
1546 || coff_section_data (abfd
, section
) == NULL
1547 || pei_section_data (abfd
, section
) == NULL
)
1550 stop
= pei_section_data (abfd
, section
)->virt_size
;
1551 if ((stop
% onaline
) != 0)
1553 _("Warning, .pdata section size (%ld) is not a multiple of %d\n"),
1554 (long) stop
, onaline
);
1557 _("\nThe Function Table (interpreted .pdata section contents)\n"));
1558 #ifdef COFF_WITH_pep
1560 _(" vma:\t\t\tBegin Address End Address Unwind Info\n"));
1563 vma:\t\tBegin End EH EH PrologEnd Exception\n\
1564 \t\tAddress Address Handler Data Address Mask\n"));
1567 datasize
= section
->size
;
1571 if (! bfd_malloc_and_get_section (abfd
, section
, &data
))
1580 for (i
= start
; i
< stop
; i
+= onaline
)
1586 bfd_vma prolog_end_addr
;
1589 if (i
+ PDATA_ROW_SIZE
> stop
)
1592 begin_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
);
1593 end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 4);
1594 eh_handler
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 8);
1595 eh_data
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 12);
1596 prolog_end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 16);
1598 if (begin_addr
== 0 && end_addr
== 0 && eh_handler
== 0
1599 && eh_data
== 0 && prolog_end_addr
== 0)
1600 /* We are probably into the padding of the section now. */
1603 em_data
= ((eh_handler
& 0x1) << 2) | (prolog_end_addr
& 0x3);
1604 eh_handler
&= ~(bfd_vma
) 0x3;
1605 prolog_end_addr
&= ~(bfd_vma
) 0x3;
1608 fprintf_vma (file
, i
+ section
->vma
); fputc ('\t', file
);
1609 fprintf_vma (file
, begin_addr
); fputc (' ', file
);
1610 fprintf_vma (file
, end_addr
); fputc (' ', file
);
1611 fprintf_vma (file
, eh_handler
);
1612 #ifndef COFF_WITH_pep
1614 fprintf_vma (file
, eh_data
); fputc (' ', file
);
1615 fprintf_vma (file
, prolog_end_addr
);
1616 fprintf (file
, " %x", em_data
);
1619 #ifdef POWERPC_LE_PE
1620 if (eh_handler
== 0 && eh_data
!= 0)
1622 /* Special bits here, although the meaning may be a little
1623 mysterious. The only one I know for sure is 0x03
1626 0x01 Register Save Millicode
1627 0x02 Register Restore Millicode
1628 0x03 Glue Code Sequence. */
1632 fprintf (file
, _(" Register save millicode"));
1635 fprintf (file
, _(" Register restore millicode"));
1638 fprintf (file
, _(" Glue code sequence"));
1645 fprintf (file
, "\n");
1653 #define IMAGE_REL_BASED_HIGHADJ 4
1654 static const char * const tbl
[] =
1668 "UNKNOWN", /* MUST be last. */
1672 pe_print_reloc (bfd
* abfd
, void * vfile
)
1674 FILE *file
= (FILE *) vfile
;
1676 asection
*section
= bfd_get_section_by_name (abfd
, ".reloc");
1677 bfd_size_type datasize
;
1679 bfd_size_type start
, stop
;
1681 if (section
== NULL
)
1684 if (section
->size
== 0)
1688 _("\n\nPE File Base Relocations (interpreted .reloc section contents)\n"));
1690 datasize
= section
->size
;
1691 if (! bfd_malloc_and_get_section (abfd
, section
, &data
))
1700 stop
= section
->size
;
1702 for (i
= start
; i
< stop
;)
1705 bfd_vma virtual_address
;
1708 /* The .reloc section is a sequence of blocks, with a header consisting
1709 of two 32 bit quantities, followed by a number of 16 bit entries. */
1710 virtual_address
= bfd_get_32 (abfd
, data
+i
);
1711 size
= bfd_get_32 (abfd
, data
+i
+4);
1712 number
= (size
- 8) / 2;
1718 _("\nVirtual Address: %08lx Chunk size %ld (0x%lx) Number of fixups %ld\n"),
1719 (unsigned long) virtual_address
, size
, size
, number
);
1721 for (j
= 0; j
< number
; ++j
)
1723 unsigned short e
= bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2);
1724 unsigned int t
= (e
& 0xF000) >> 12;
1725 int off
= e
& 0x0FFF;
1727 if (t
>= sizeof (tbl
) / sizeof (tbl
[0]))
1728 t
= (sizeof (tbl
) / sizeof (tbl
[0])) - 1;
1731 _("\treloc %4d offset %4x [%4lx] %s"),
1732 j
, off
, (long) (off
+ virtual_address
), tbl
[t
]);
1734 /* HIGHADJ takes an argument, - the next record *is* the
1735 low 16 bits of addend. */
1736 if (t
== IMAGE_REL_BASED_HIGHADJ
)
1738 fprintf (file
, " (%4x)",
1740 bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2 + 2)));
1744 fprintf (file
, "\n");
1755 /* Print out the program headers. */
1758 _bfd_XX_print_private_bfd_data_common (bfd
* abfd
, void * vfile
)
1760 FILE *file
= (FILE *) vfile
;
1762 pe_data_type
*pe
= pe_data (abfd
);
1763 struct internal_extra_pe_aouthdr
*i
= &pe
->pe_opthdr
;
1764 const char *subsystem_name
= NULL
;
1766 /* The MS dumpbin program reportedly ands with 0xff0f before
1767 printing the characteristics field. Not sure why. No reason to
1769 fprintf (file
, _("\nCharacteristics 0x%x\n"), pe
->real_flags
);
1771 #define PF(x, y) if (pe->real_flags & x) { fprintf (file, "\t%s\n", y); }
1772 PF (IMAGE_FILE_RELOCS_STRIPPED
, "relocations stripped");
1773 PF (IMAGE_FILE_EXECUTABLE_IMAGE
, "executable");
1774 PF (IMAGE_FILE_LINE_NUMS_STRIPPED
, "line numbers stripped");
1775 PF (IMAGE_FILE_LOCAL_SYMS_STRIPPED
, "symbols stripped");
1776 PF (IMAGE_FILE_LARGE_ADDRESS_AWARE
, "large address aware");
1777 PF (IMAGE_FILE_BYTES_REVERSED_LO
, "little endian");
1778 PF (IMAGE_FILE_32BIT_MACHINE
, "32 bit words");
1779 PF (IMAGE_FILE_DEBUG_STRIPPED
, "debugging information removed");
1780 PF (IMAGE_FILE_SYSTEM
, "system file");
1781 PF (IMAGE_FILE_DLL
, "DLL");
1782 PF (IMAGE_FILE_BYTES_REVERSED_HI
, "big endian");
1785 /* ctime implies '\n'. */
1787 time_t t
= pe
->coff
.timestamp
;
1788 fprintf (file
, "\nTime/Date\t\t%s", ctime (&t
));
1790 fprintf (file
, "\nImageBase\t\t");
1791 fprintf_vma (file
, i
->ImageBase
);
1792 fprintf (file
, "\nSectionAlignment\t");
1793 fprintf_vma (file
, i
->SectionAlignment
);
1794 fprintf (file
, "\nFileAlignment\t\t");
1795 fprintf_vma (file
, i
->FileAlignment
);
1796 fprintf (file
, "\nMajorOSystemVersion\t%d\n", i
->MajorOperatingSystemVersion
);
1797 fprintf (file
, "MinorOSystemVersion\t%d\n", i
->MinorOperatingSystemVersion
);
1798 fprintf (file
, "MajorImageVersion\t%d\n", i
->MajorImageVersion
);
1799 fprintf (file
, "MinorImageVersion\t%d\n", i
->MinorImageVersion
);
1800 fprintf (file
, "MajorSubsystemVersion\t%d\n", i
->MajorSubsystemVersion
);
1801 fprintf (file
, "MinorSubsystemVersion\t%d\n", i
->MinorSubsystemVersion
);
1802 fprintf (file
, "Win32Version\t\t%08lx\n", i
->Reserved1
);
1803 fprintf (file
, "SizeOfImage\t\t%08lx\n", i
->SizeOfImage
);
1804 fprintf (file
, "SizeOfHeaders\t\t%08lx\n", i
->SizeOfHeaders
);
1805 fprintf (file
, "CheckSum\t\t%08lx\n", i
->CheckSum
);
1807 switch (i
->Subsystem
)
1809 case IMAGE_SUBSYSTEM_UNKNOWN
:
1810 subsystem_name
= "unspecified";
1812 case IMAGE_SUBSYSTEM_NATIVE
:
1813 subsystem_name
= "NT native";
1815 case IMAGE_SUBSYSTEM_WINDOWS_GUI
:
1816 subsystem_name
= "Windows GUI";
1818 case IMAGE_SUBSYSTEM_WINDOWS_CUI
:
1819 subsystem_name
= "Windows CUI";
1821 case IMAGE_SUBSYSTEM_POSIX_CUI
:
1822 subsystem_name
= "POSIX CUI";
1824 case IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
:
1825 subsystem_name
= "Wince CUI";
1827 case IMAGE_SUBSYSTEM_EFI_APPLICATION
:
1828 subsystem_name
= "EFI application";
1830 case IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
:
1831 subsystem_name
= "EFI boot service driver";
1833 case IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
:
1834 subsystem_name
= "EFI runtime driver";
1838 fprintf (file
, "Subsystem\t\t%08x", i
->Subsystem
);
1840 fprintf (file
, "\t(%s)", subsystem_name
);
1841 fprintf (file
, "\nDllCharacteristics\t%08x\n", i
->DllCharacteristics
);
1842 fprintf (file
, "SizeOfStackReserve\t");
1843 fprintf_vma (file
, i
->SizeOfStackReserve
);
1844 fprintf (file
, "\nSizeOfStackCommit\t");
1845 fprintf_vma (file
, i
->SizeOfStackCommit
);
1846 fprintf (file
, "\nSizeOfHeapReserve\t");
1847 fprintf_vma (file
, i
->SizeOfHeapReserve
);
1848 fprintf (file
, "\nSizeOfHeapCommit\t");
1849 fprintf_vma (file
, i
->SizeOfHeapCommit
);
1850 fprintf (file
, "\nLoaderFlags\t\t%08lx\n", i
->LoaderFlags
);
1851 fprintf (file
, "NumberOfRvaAndSizes\t%08lx\n", i
->NumberOfRvaAndSizes
);
1853 fprintf (file
, "\nThe Data Directory\n");
1854 for (j
= 0; j
< IMAGE_NUMBEROF_DIRECTORY_ENTRIES
; j
++)
1856 fprintf (file
, "Entry %1x ", j
);
1857 fprintf_vma (file
, i
->DataDirectory
[j
].VirtualAddress
);
1858 fprintf (file
, " %08lx ", i
->DataDirectory
[j
].Size
);
1859 fprintf (file
, "%s\n", dir_names
[j
]);
1862 pe_print_idata (abfd
, vfile
);
1863 pe_print_edata (abfd
, vfile
);
1864 pe_print_pdata (abfd
, vfile
);
1865 pe_print_reloc (abfd
, vfile
);
1870 /* Copy any private info we understand from the input bfd
1871 to the output bfd. */
1874 _bfd_XX_bfd_copy_private_bfd_data_common (bfd
* ibfd
, bfd
* obfd
)
1876 /* One day we may try to grok other private data. */
1877 if (ibfd
->xvec
->flavour
!= bfd_target_coff_flavour
1878 || obfd
->xvec
->flavour
!= bfd_target_coff_flavour
)
1881 pe_data (obfd
)->pe_opthdr
= pe_data (ibfd
)->pe_opthdr
;
1882 pe_data (obfd
)->dll
= pe_data (ibfd
)->dll
;
1884 /* For strip: if we removed .reloc, we'll make a real mess of things
1885 if we don't remove this entry as well. */
1886 if (! pe_data (obfd
)->has_reloc_section
)
1888 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].VirtualAddress
= 0;
1889 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].Size
= 0;
1894 /* Copy private section data. */
1897 _bfd_XX_bfd_copy_private_section_data (bfd
*ibfd
,
1902 if (bfd_get_flavour (ibfd
) != bfd_target_coff_flavour
1903 || bfd_get_flavour (obfd
) != bfd_target_coff_flavour
)
1906 if (coff_section_data (ibfd
, isec
) != NULL
1907 && pei_section_data (ibfd
, isec
) != NULL
)
1909 if (coff_section_data (obfd
, osec
) == NULL
)
1911 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
1912 osec
->used_by_bfd
= bfd_zalloc (obfd
, amt
);
1913 if (osec
->used_by_bfd
== NULL
)
1917 if (pei_section_data (obfd
, osec
) == NULL
)
1919 bfd_size_type amt
= sizeof (struct pei_section_tdata
);
1920 coff_section_data (obfd
, osec
)->tdata
= bfd_zalloc (obfd
, amt
);
1921 if (coff_section_data (obfd
, osec
)->tdata
== NULL
)
1925 pei_section_data (obfd
, osec
)->virt_size
=
1926 pei_section_data (ibfd
, isec
)->virt_size
;
1927 pei_section_data (obfd
, osec
)->pe_flags
=
1928 pei_section_data (ibfd
, isec
)->pe_flags
;
1935 _bfd_XX_get_symbol_info (bfd
* abfd
, asymbol
*symbol
, symbol_info
*ret
)
1937 coff_get_symbol_info (abfd
, symbol
, ret
);
1940 /* Handle the .idata section and other things that need symbol table
1944 _bfd_XXi_final_link_postscript (bfd
* abfd
, struct coff_final_link_info
*pfinfo
)
1946 struct coff_link_hash_entry
*h1
;
1947 struct bfd_link_info
*info
= pfinfo
->info
;
1949 /* There are a few fields that need to be filled in now while we
1950 have symbol table access.
1952 The .idata subsections aren't directly available as sections, but
1953 they are in the symbol table, so get them from there. */
1955 /* The import directory. This is the address of .idata$2, with size
1956 of .idata$2 + .idata$3. */
1957 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1958 ".idata$2", FALSE
, FALSE
, TRUE
);
1961 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
=
1962 (h1
->root
.u
.def
.value
1963 + h1
->root
.u
.def
.section
->output_section
->vma
1964 + h1
->root
.u
.def
.section
->output_offset
);
1965 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1966 ".idata$4", FALSE
, FALSE
, TRUE
);
1967 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].Size
=
1968 ((h1
->root
.u
.def
.value
1969 + h1
->root
.u
.def
.section
->output_section
->vma
1970 + h1
->root
.u
.def
.section
->output_offset
)
1971 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
);
1973 /* The import address table. This is the size/address of
1975 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1976 ".idata$5", FALSE
, FALSE
, TRUE
);
1977 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
=
1978 (h1
->root
.u
.def
.value
1979 + h1
->root
.u
.def
.section
->output_section
->vma
1980 + h1
->root
.u
.def
.section
->output_offset
);
1981 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1982 ".idata$6", FALSE
, FALSE
, TRUE
);
1983 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].Size
=
1984 ((h1
->root
.u
.def
.value
1985 + h1
->root
.u
.def
.section
->output_section
->vma
1986 + h1
->root
.u
.def
.section
->output_offset
)
1987 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
);
1990 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1991 "__tls_used", FALSE
, FALSE
, TRUE
);
1994 pe_data (abfd
)->pe_opthdr
.DataDirectory
[9].VirtualAddress
=
1995 (h1
->root
.u
.def
.value
1996 + h1
->root
.u
.def
.section
->output_section
->vma
1997 + h1
->root
.u
.def
.section
->output_offset
1998 - pe_data (abfd
)->pe_opthdr
.ImageBase
);
1999 pe_data (abfd
)->pe_opthdr
.DataDirectory
[9].Size
= 0x18;
2002 /* If we couldn't find idata$2, we either have an excessively
2003 trivial program or are in DEEP trouble; we have to assume trivial