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 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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. */
92 static void add_data_entry
93 PARAMS ((bfd
*, struct internal_extra_pe_aouthdr
*, int, char *, bfd_vma
));
94 static bfd_boolean pe_print_pdata
PARAMS ((bfd
*, PTR
));
95 static bfd_boolean pe_print_reloc
PARAMS ((bfd
*, PTR
));
96 static bfd_boolean pe_print_idata
PARAMS ((bfd
*, PTR
));
97 static bfd_boolean pe_print_edata
PARAMS ((bfd
*, PTR
));
101 _bfd_XXi_swap_sym_in (abfd
, ext1
, in1
)
106 SYMENT
*ext
= (SYMENT
*) ext1
;
107 struct internal_syment
*in
= (struct internal_syment
*) in1
;
109 if (ext
->e
.e_name
[0] == 0)
111 in
->_n
._n_n
._n_zeroes
= 0;
112 in
->_n
._n_n
._n_offset
= H_GET_32 (abfd
, ext
->e
.e
.e_offset
);
115 memcpy (in
->_n
._n_name
, ext
->e
.e_name
, SYMNMLEN
);
117 in
->n_value
= H_GET_32 (abfd
, ext
->e_value
);
118 in
->n_scnum
= H_GET_16 (abfd
, ext
->e_scnum
);
120 if (sizeof (ext
->e_type
) == 2)
121 in
->n_type
= H_GET_16 (abfd
, ext
->e_type
);
123 in
->n_type
= H_GET_32 (abfd
, ext
->e_type
);
125 in
->n_sclass
= H_GET_8 (abfd
, ext
->e_sclass
);
126 in
->n_numaux
= H_GET_8 (abfd
, ext
->e_numaux
);
128 #ifndef STRICT_PE_FORMAT
129 /* This is for Gnu-created DLLs. */
131 /* The section symbols for the .idata$ sections have class 0x68
132 (C_SECTION), which MS documentation indicates is a section
133 symbol. Unfortunately, the value field in the symbol is simply a
134 copy of the .idata section's flags rather than something useful.
135 When these symbols are encountered, change the value to 0 so that
136 they will be handled somewhat correctly in the bfd code. */
137 if (in
->n_sclass
== C_SECTION
)
142 /* FIXME: This is clearly wrong. The problem seems to be that
143 undefined C_SECTION symbols appear in the first object of a
144 MS generated .lib file, and the symbols are not defined
148 /* I have tried setting the class to 3 and using the following
149 to set the section number. This will put the address of the
150 pointer to the string kernel32.dll at addresses 0 and 0x10
151 off start of idata section which is not correct. */
153 if (strcmp (in
->_n
._n_name
, ".idata$4") == 0)
159 /* Create synthetic empty sections as needed. DJ */
160 if (in
->n_scnum
== 0)
164 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
166 if (strcmp (sec
->name
, in
->n_name
) == 0)
168 in
->n_scnum
= sec
->target_index
;
174 if (in
->n_scnum
== 0)
176 int unused_section_number
= 0;
180 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
181 if (unused_section_number
<= sec
->target_index
)
182 unused_section_number
= sec
->target_index
+ 1;
184 name
= bfd_alloc (abfd
, (bfd_size_type
) strlen (in
->n_name
) + 10);
187 strcpy (name
, in
->n_name
);
188 sec
= bfd_make_section_anyway (abfd
, name
);
192 sec
->_cooked_size
= 0;
195 sec
->rel_filepos
= 0;
196 sec
->reloc_count
= 0;
197 sec
->line_filepos
= 0;
198 sec
->lineno_count
= 0;
199 sec
->userdata
= NULL
;
200 sec
->next
= (asection
*) NULL
;
202 sec
->alignment_power
= 2;
203 sec
->flags
= SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_DATA
| SEC_LOAD
;
205 sec
->target_index
= unused_section_number
;
207 in
->n_scnum
= unused_section_number
;
209 in
->n_sclass
= C_STAT
;
214 #ifdef coff_swap_sym_in_hook
215 /* This won't work in peigen.c, but since it's for PPC PE, it's not
217 coff_swap_sym_in_hook (abfd
, ext1
, in1
);
222 _bfd_XXi_swap_sym_out (abfd
, inp
, extp
)
227 struct internal_syment
*in
= (struct internal_syment
*) inp
;
228 SYMENT
*ext
= (SYMENT
*) extp
;
230 if (in
->_n
._n_name
[0] == 0)
232 H_PUT_32 (abfd
, 0, ext
->e
.e
.e_zeroes
);
233 H_PUT_32 (abfd
, in
->_n
._n_n
._n_offset
, ext
->e
.e
.e_offset
);
236 memcpy (ext
->e
.e_name
, in
->_n
._n_name
, SYMNMLEN
);
238 H_PUT_32 (abfd
, in
->n_value
, ext
->e_value
);
239 H_PUT_16 (abfd
, in
->n_scnum
, ext
->e_scnum
);
241 if (sizeof (ext
->e_type
) == 2)
242 H_PUT_16 (abfd
, in
->n_type
, ext
->e_type
);
244 H_PUT_32 (abfd
, in
->n_type
, ext
->e_type
);
246 H_PUT_8 (abfd
, in
->n_sclass
, ext
->e_sclass
);
247 H_PUT_8 (abfd
, in
->n_numaux
, ext
->e_numaux
);
253 _bfd_XXi_swap_aux_in (abfd
, ext1
, type
, class, indx
, numaux
, in1
)
258 int indx ATTRIBUTE_UNUSED
;
259 int numaux ATTRIBUTE_UNUSED
;
262 AUXENT
*ext
= (AUXENT
*) ext1
;
263 union internal_auxent
*in
= (union internal_auxent
*) in1
;
268 if (ext
->x_file
.x_fname
[0] == 0)
270 in
->x_file
.x_n
.x_zeroes
= 0;
271 in
->x_file
.x_n
.x_offset
= H_GET_32 (abfd
, ext
->x_file
.x_n
.x_offset
);
274 memcpy (in
->x_file
.x_fname
, ext
->x_file
.x_fname
, FILNMLEN
);
282 in
->x_scn
.x_scnlen
= GET_SCN_SCNLEN (abfd
, ext
);
283 in
->x_scn
.x_nreloc
= GET_SCN_NRELOC (abfd
, ext
);
284 in
->x_scn
.x_nlinno
= GET_SCN_NLINNO (abfd
, ext
);
285 in
->x_scn
.x_checksum
= H_GET_32 (abfd
, ext
->x_scn
.x_checksum
);
286 in
->x_scn
.x_associated
= H_GET_16 (abfd
, ext
->x_scn
.x_associated
);
287 in
->x_scn
.x_comdat
= H_GET_8 (abfd
, ext
->x_scn
.x_comdat
);
293 in
->x_sym
.x_tagndx
.l
= H_GET_32 (abfd
, ext
->x_sym
.x_tagndx
);
294 in
->x_sym
.x_tvndx
= H_GET_16 (abfd
, ext
->x_sym
.x_tvndx
);
296 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
298 in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
= GET_FCN_LNNOPTR (abfd
, ext
);
299 in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
= GET_FCN_ENDNDX (abfd
, ext
);
303 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0] =
304 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
305 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1] =
306 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
307 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2] =
308 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
309 in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3] =
310 H_GET_16 (abfd
, ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
315 in
->x_sym
.x_misc
.x_fsize
= H_GET_32 (abfd
, ext
->x_sym
.x_misc
.x_fsize
);
319 in
->x_sym
.x_misc
.x_lnsz
.x_lnno
= GET_LNSZ_LNNO (abfd
, ext
);
320 in
->x_sym
.x_misc
.x_lnsz
.x_size
= GET_LNSZ_SIZE (abfd
, ext
);
325 _bfd_XXi_swap_aux_out (abfd
, inp
, type
, class, indx
, numaux
, extp
)
330 int indx ATTRIBUTE_UNUSED
;
331 int numaux ATTRIBUTE_UNUSED
;
334 union internal_auxent
*in
= (union internal_auxent
*) inp
;
335 AUXENT
*ext
= (AUXENT
*) extp
;
337 memset ((PTR
) ext
, 0, AUXESZ
);
341 if (in
->x_file
.x_fname
[0] == 0)
343 H_PUT_32 (abfd
, 0, ext
->x_file
.x_n
.x_zeroes
);
344 H_PUT_32 (abfd
, in
->x_file
.x_n
.x_offset
, ext
->x_file
.x_n
.x_offset
);
347 memcpy (ext
->x_file
.x_fname
, in
->x_file
.x_fname
, FILNMLEN
);
356 PUT_SCN_SCNLEN (abfd
, in
->x_scn
.x_scnlen
, ext
);
357 PUT_SCN_NRELOC (abfd
, in
->x_scn
.x_nreloc
, ext
);
358 PUT_SCN_NLINNO (abfd
, in
->x_scn
.x_nlinno
, ext
);
359 H_PUT_32 (abfd
, in
->x_scn
.x_checksum
, ext
->x_scn
.x_checksum
);
360 H_PUT_16 (abfd
, in
->x_scn
.x_associated
, ext
->x_scn
.x_associated
);
361 H_PUT_8 (abfd
, in
->x_scn
.x_comdat
, ext
->x_scn
.x_comdat
);
367 H_PUT_32 (abfd
, in
->x_sym
.x_tagndx
.l
, ext
->x_sym
.x_tagndx
);
368 H_PUT_16 (abfd
, in
->x_sym
.x_tvndx
, ext
->x_sym
.x_tvndx
);
370 if (class == C_BLOCK
|| class == C_FCN
|| ISFCN (type
) || ISTAG (class))
372 PUT_FCN_LNNOPTR (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_lnnoptr
, ext
);
373 PUT_FCN_ENDNDX (abfd
, in
->x_sym
.x_fcnary
.x_fcn
.x_endndx
.l
, ext
);
377 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0],
378 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[0]);
379 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1],
380 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[1]);
381 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2],
382 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[2]);
383 H_PUT_16 (abfd
, in
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3],
384 ext
->x_sym
.x_fcnary
.x_ary
.x_dimen
[3]);
388 H_PUT_32 (abfd
, in
->x_sym
.x_misc
.x_fsize
, ext
->x_sym
.x_misc
.x_fsize
);
391 PUT_LNSZ_LNNO (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_lnno
, ext
);
392 PUT_LNSZ_SIZE (abfd
, in
->x_sym
.x_misc
.x_lnsz
.x_size
, ext
);
399 _bfd_XXi_swap_lineno_in (abfd
, ext1
, in1
)
404 LINENO
*ext
= (LINENO
*) ext1
;
405 struct internal_lineno
*in
= (struct internal_lineno
*) in1
;
407 in
->l_addr
.l_symndx
= H_GET_32 (abfd
, ext
->l_addr
.l_symndx
);
408 in
->l_lnno
= GET_LINENO_LNNO (abfd
, ext
);
412 _bfd_XXi_swap_lineno_out (abfd
, inp
, outp
)
417 struct internal_lineno
*in
= (struct internal_lineno
*) inp
;
418 struct external_lineno
*ext
= (struct external_lineno
*) outp
;
419 H_PUT_32 (abfd
, in
->l_addr
.l_symndx
, ext
->l_addr
.l_symndx
);
421 PUT_LINENO_LNNO (abfd
, in
->l_lnno
, ext
);
426 _bfd_XXi_swap_aouthdr_in (abfd
, aouthdr_ext1
, aouthdr_int1
)
431 struct internal_extra_pe_aouthdr
*a
;
432 PEAOUTHDR
*src
= (PEAOUTHDR
*) (aouthdr_ext1
);
433 AOUTHDR
*aouthdr_ext
= (AOUTHDR
*) aouthdr_ext1
;
434 struct internal_aouthdr
*aouthdr_int
= (struct internal_aouthdr
*)aouthdr_int1
;
436 aouthdr_int
->magic
= H_GET_16 (abfd
, aouthdr_ext
->magic
);
437 aouthdr_int
->vstamp
= H_GET_16 (abfd
, aouthdr_ext
->vstamp
);
438 aouthdr_int
->tsize
= GET_AOUTHDR_TSIZE (abfd
, aouthdr_ext
->tsize
);
439 aouthdr_int
->dsize
= GET_AOUTHDR_DSIZE (abfd
, aouthdr_ext
->dsize
);
440 aouthdr_int
->bsize
= GET_AOUTHDR_BSIZE (abfd
, aouthdr_ext
->bsize
);
441 aouthdr_int
->entry
= GET_AOUTHDR_ENTRY (abfd
, aouthdr_ext
->entry
);
442 aouthdr_int
->text_start
=
443 GET_AOUTHDR_TEXT_START (abfd
, aouthdr_ext
->text_start
);
444 #ifndef COFF_WITH_pep
445 /* PE32+ does not have data_start member! */
446 aouthdr_int
->data_start
=
447 GET_AOUTHDR_DATA_START (abfd
, aouthdr_ext
->data_start
);
450 a
= &aouthdr_int
->pe
;
451 a
->ImageBase
= GET_OPTHDR_IMAGE_BASE (abfd
, src
->ImageBase
);
452 a
->SectionAlignment
= H_GET_32 (abfd
, src
->SectionAlignment
);
453 a
->FileAlignment
= H_GET_32 (abfd
, src
->FileAlignment
);
454 a
->MajorOperatingSystemVersion
=
455 H_GET_16 (abfd
, src
->MajorOperatingSystemVersion
);
456 a
->MinorOperatingSystemVersion
=
457 H_GET_16 (abfd
, src
->MinorOperatingSystemVersion
);
458 a
->MajorImageVersion
= H_GET_16 (abfd
, src
->MajorImageVersion
);
459 a
->MinorImageVersion
= H_GET_16 (abfd
, src
->MinorImageVersion
);
460 a
->MajorSubsystemVersion
= H_GET_16 (abfd
, src
->MajorSubsystemVersion
);
461 a
->MinorSubsystemVersion
= H_GET_16 (abfd
, src
->MinorSubsystemVersion
);
462 a
->Reserved1
= H_GET_32 (abfd
, src
->Reserved1
);
463 a
->SizeOfImage
= H_GET_32 (abfd
, src
->SizeOfImage
);
464 a
->SizeOfHeaders
= H_GET_32 (abfd
, src
->SizeOfHeaders
);
465 a
->CheckSum
= H_GET_32 (abfd
, src
->CheckSum
);
466 a
->Subsystem
= H_GET_16 (abfd
, src
->Subsystem
);
467 a
->DllCharacteristics
= H_GET_16 (abfd
, src
->DllCharacteristics
);
468 a
->SizeOfStackReserve
=
469 GET_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, src
->SizeOfStackReserve
);
470 a
->SizeOfStackCommit
=
471 GET_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, src
->SizeOfStackCommit
);
472 a
->SizeOfHeapReserve
=
473 GET_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, src
->SizeOfHeapReserve
);
474 a
->SizeOfHeapCommit
=
475 GET_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, src
->SizeOfHeapCommit
);
476 a
->LoaderFlags
= H_GET_32 (abfd
, src
->LoaderFlags
);
477 a
->NumberOfRvaAndSizes
= H_GET_32 (abfd
, src
->NumberOfRvaAndSizes
);
482 for (idx
= 0; idx
< 16; idx
++)
484 /* If data directory is empty, rva also should be 0. */
486 H_GET_32 (abfd
, src
->DataDirectory
[idx
][1]);
487 a
->DataDirectory
[idx
].Size
= size
;
490 a
->DataDirectory
[idx
].VirtualAddress
=
491 H_GET_32 (abfd
, src
->DataDirectory
[idx
][0]);
493 a
->DataDirectory
[idx
].VirtualAddress
= 0;
497 if (aouthdr_int
->entry
)
499 aouthdr_int
->entry
+= a
->ImageBase
;
500 #ifndef COFF_WITH_pep
501 aouthdr_int
->entry
&= 0xffffffff;
505 if (aouthdr_int
->tsize
)
507 aouthdr_int
->text_start
+= a
->ImageBase
;
508 #ifndef COFF_WITH_pep
509 aouthdr_int
->text_start
&= 0xffffffff;
513 #ifndef COFF_WITH_pep
514 /* PE32+ does not have data_start member! */
515 if (aouthdr_int
->dsize
)
517 aouthdr_int
->data_start
+= a
->ImageBase
;
518 aouthdr_int
->data_start
&= 0xffffffff;
523 /* These three fields are normally set up by ppc_relocate_section.
524 In the case of reading a file in, we can pick them up from the
526 first_thunk_address
= a
->DataDirectory
[12].VirtualAddress
;
527 thunk_size
= a
->DataDirectory
[12].Size
;
528 import_table_size
= a
->DataDirectory
[1].Size
;
532 /* A support function for below. */
535 add_data_entry (abfd
, aout
, idx
, name
, base
)
537 struct internal_extra_pe_aouthdr
*aout
;
542 asection
*sec
= bfd_get_section_by_name (abfd
, name
);
544 /* Add import directory information if it exists. */
546 && (coff_section_data (abfd
, sec
) != NULL
)
547 && (pei_section_data (abfd
, sec
) != NULL
))
549 /* If data directory is empty, rva also should be 0. */
550 int size
= pei_section_data (abfd
, sec
)->virt_size
;
551 aout
->DataDirectory
[idx
].Size
= size
;
555 aout
->DataDirectory
[idx
].VirtualAddress
=
556 (sec
->vma
- base
) & 0xffffffff;
557 sec
->flags
|= SEC_DATA
;
563 _bfd_XXi_swap_aouthdr_out (abfd
, in
, out
)
568 struct internal_aouthdr
*aouthdr_in
= (struct internal_aouthdr
*) in
;
569 pe_data_type
*pe
= pe_data (abfd
);
570 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
571 PEAOUTHDR
*aouthdr_out
= (PEAOUTHDR
*) out
;
573 IMAGE_DATA_DIRECTORY idata2
, idata5
, tls
;
575 if (pe
->force_minimum_alignment
)
577 if (!extra
->FileAlignment
)
578 extra
->FileAlignment
= PE_DEF_FILE_ALIGNMENT
;
579 if (!extra
->SectionAlignment
)
580 extra
->SectionAlignment
= PE_DEF_SECTION_ALIGNMENT
;
583 if (extra
->Subsystem
== IMAGE_SUBSYSTEM_UNKNOWN
)
584 extra
->Subsystem
= pe
->target_subsystem
;
586 sa
= extra
->SectionAlignment
;
587 fa
= extra
->FileAlignment
;
588 ib
= extra
->ImageBase
;
590 idata2
= pe
->pe_opthdr
.DataDirectory
[1];
591 idata5
= pe
->pe_opthdr
.DataDirectory
[12];
592 tls
= pe
->pe_opthdr
.DataDirectory
[9];
594 if (aouthdr_in
->tsize
)
596 aouthdr_in
->text_start
-= ib
;
597 #ifndef COFF_WITH_pep
598 aouthdr_in
->text_start
&= 0xffffffff;
602 if (aouthdr_in
->dsize
)
604 aouthdr_in
->data_start
-= ib
;
605 #ifndef COFF_WITH_pep
606 aouthdr_in
->data_start
&= 0xffffffff;
610 if (aouthdr_in
->entry
)
612 aouthdr_in
->entry
-= ib
;
613 #ifndef COFF_WITH_pep
614 aouthdr_in
->entry
&= 0xffffffff;
618 #define FA(x) (((x) + fa -1 ) & (- fa))
619 #define SA(x) (((x) + sa -1 ) & (- sa))
621 /* We like to have the sizes aligned. */
622 aouthdr_in
->bsize
= FA (aouthdr_in
->bsize
);
624 extra
->NumberOfRvaAndSizes
= IMAGE_NUMBEROF_DIRECTORY_ENTRIES
;
626 /* First null out all data directory entries. */
627 memset (extra
->DataDirectory
, 0, sizeof (extra
->DataDirectory
));
629 add_data_entry (abfd
, extra
, 0, ".edata", ib
);
630 add_data_entry (abfd
, extra
, 2, ".rsrc", ib
);
631 add_data_entry (abfd
, extra
, 3, ".pdata", ib
);
633 /* In theory we do not need to call add_data_entry for .idata$2 or
634 .idata$5. It will be done in bfd_coff_final_link where all the
635 required information is available. If however, we are not going
636 to perform a final link, eg because we have been invoked by objcopy
637 or strip, then we need to make sure that these Data Directory
638 entries are initialised properly.
640 So - we copy the input values into the output values, and then, if
641 a final link is going to be performed, it can overwrite them. */
642 extra
->DataDirectory
[1] = idata2
;
643 extra
->DataDirectory
[12] = idata5
;
644 extra
->DataDirectory
[9] = tls
;
646 if (extra
->DataDirectory
[1].VirtualAddress
== 0)
647 /* Until other .idata fixes are made (pending patch), the entry for
648 .idata is needed for backwards compatibility. FIXME. */
649 add_data_entry (abfd
, extra
, 1, ".idata", ib
);
651 /* For some reason, the virtual size (which is what's set by
652 add_data_entry) for .reloc is not the same as the size recorded
653 in this slot by MSVC; it doesn't seem to cause problems (so far),
654 but since it's the best we've got, use it. It does do the right
656 if (pe
->has_reloc_section
)
657 add_data_entry (abfd
, extra
, 5, ".reloc", ib
);
662 bfd_vma isize
= SA(abfd
->sections
->filepos
);
665 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
667 int rounded
= FA(sec
->_raw_size
);
669 if (sec
->flags
& SEC_DATA
)
671 if (sec
->flags
& SEC_CODE
)
673 /* The image size is the total VIRTUAL size (which is what is
674 in the virt_size field). Files have been seen (from MSVC
675 5.0 link.exe) where the file size of the .data segment is
676 quite small compared to the virtual size. Without this
677 fix, strip munges the file. */
678 if (coff_section_data (abfd
, sec
) != NULL
679 && pei_section_data (abfd
, sec
) != NULL
)
680 isize
+= SA (FA (pei_section_data (abfd
, sec
)->virt_size
));
683 aouthdr_in
->dsize
= dsize
;
684 aouthdr_in
->tsize
= tsize
;
685 extra
->SizeOfImage
= isize
;
688 extra
->SizeOfHeaders
= abfd
->sections
->filepos
;
689 H_PUT_16 (abfd
, aouthdr_in
->magic
, aouthdr_out
->standard
.magic
);
691 #define LINKER_VERSION 256 /* That is, 2.56 */
693 /* This piece of magic sets the "linker version" field to
695 H_PUT_16 (abfd
, (LINKER_VERSION
/ 100 + (LINKER_VERSION
% 100) * 256),
696 aouthdr_out
->standard
.vstamp
);
698 PUT_AOUTHDR_TSIZE (abfd
, aouthdr_in
->tsize
, aouthdr_out
->standard
.tsize
);
699 PUT_AOUTHDR_DSIZE (abfd
, aouthdr_in
->dsize
, aouthdr_out
->standard
.dsize
);
700 PUT_AOUTHDR_BSIZE (abfd
, aouthdr_in
->bsize
, aouthdr_out
->standard
.bsize
);
701 PUT_AOUTHDR_ENTRY (abfd
, aouthdr_in
->entry
, aouthdr_out
->standard
.entry
);
702 PUT_AOUTHDR_TEXT_START (abfd
, aouthdr_in
->text_start
,
703 aouthdr_out
->standard
.text_start
);
705 #ifndef COFF_WITH_pep
706 /* PE32+ does not have data_start member! */
707 PUT_AOUTHDR_DATA_START (abfd
, aouthdr_in
->data_start
,
708 aouthdr_out
->standard
.data_start
);
711 PUT_OPTHDR_IMAGE_BASE (abfd
, extra
->ImageBase
, aouthdr_out
->ImageBase
);
712 H_PUT_32 (abfd
, extra
->SectionAlignment
, aouthdr_out
->SectionAlignment
);
713 H_PUT_32 (abfd
, extra
->FileAlignment
, aouthdr_out
->FileAlignment
);
714 H_PUT_16 (abfd
, extra
->MajorOperatingSystemVersion
,
715 aouthdr_out
->MajorOperatingSystemVersion
);
716 H_PUT_16 (abfd
, extra
->MinorOperatingSystemVersion
,
717 aouthdr_out
->MinorOperatingSystemVersion
);
718 H_PUT_16 (abfd
, extra
->MajorImageVersion
, aouthdr_out
->MajorImageVersion
);
719 H_PUT_16 (abfd
, extra
->MinorImageVersion
, aouthdr_out
->MinorImageVersion
);
720 H_PUT_16 (abfd
, extra
->MajorSubsystemVersion
,
721 aouthdr_out
->MajorSubsystemVersion
);
722 H_PUT_16 (abfd
, extra
->MinorSubsystemVersion
,
723 aouthdr_out
->MinorSubsystemVersion
);
724 H_PUT_32 (abfd
, extra
->Reserved1
, aouthdr_out
->Reserved1
);
725 H_PUT_32 (abfd
, extra
->SizeOfImage
, aouthdr_out
->SizeOfImage
);
726 H_PUT_32 (abfd
, extra
->SizeOfHeaders
, aouthdr_out
->SizeOfHeaders
);
727 H_PUT_32 (abfd
, extra
->CheckSum
, aouthdr_out
->CheckSum
);
728 H_PUT_16 (abfd
, extra
->Subsystem
, aouthdr_out
->Subsystem
);
729 H_PUT_16 (abfd
, extra
->DllCharacteristics
, aouthdr_out
->DllCharacteristics
);
730 PUT_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, extra
->SizeOfStackReserve
,
731 aouthdr_out
->SizeOfStackReserve
);
732 PUT_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, extra
->SizeOfStackCommit
,
733 aouthdr_out
->SizeOfStackCommit
);
734 PUT_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, extra
->SizeOfHeapReserve
,
735 aouthdr_out
->SizeOfHeapReserve
);
736 PUT_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, extra
->SizeOfHeapCommit
,
737 aouthdr_out
->SizeOfHeapCommit
);
738 H_PUT_32 (abfd
, extra
->LoaderFlags
, aouthdr_out
->LoaderFlags
);
739 H_PUT_32 (abfd
, extra
->NumberOfRvaAndSizes
,
740 aouthdr_out
->NumberOfRvaAndSizes
);
744 for (idx
= 0; idx
< 16; idx
++)
746 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].VirtualAddress
,
747 aouthdr_out
->DataDirectory
[idx
][0]);
748 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].Size
,
749 aouthdr_out
->DataDirectory
[idx
][1]);
757 _bfd_XXi_only_swap_filehdr_out (abfd
, in
, out
)
763 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
764 struct external_PEI_filehdr
*filehdr_out
= (struct external_PEI_filehdr
*) out
;
766 if (pe_data (abfd
)->has_reloc_section
)
767 filehdr_in
->f_flags
&= ~F_RELFLG
;
769 if (pe_data (abfd
)->dll
)
770 filehdr_in
->f_flags
|= F_DLL
;
772 filehdr_in
->pe
.e_magic
= DOSMAGIC
;
773 filehdr_in
->pe
.e_cblp
= 0x90;
774 filehdr_in
->pe
.e_cp
= 0x3;
775 filehdr_in
->pe
.e_crlc
= 0x0;
776 filehdr_in
->pe
.e_cparhdr
= 0x4;
777 filehdr_in
->pe
.e_minalloc
= 0x0;
778 filehdr_in
->pe
.e_maxalloc
= 0xffff;
779 filehdr_in
->pe
.e_ss
= 0x0;
780 filehdr_in
->pe
.e_sp
= 0xb8;
781 filehdr_in
->pe
.e_csum
= 0x0;
782 filehdr_in
->pe
.e_ip
= 0x0;
783 filehdr_in
->pe
.e_cs
= 0x0;
784 filehdr_in
->pe
.e_lfarlc
= 0x40;
785 filehdr_in
->pe
.e_ovno
= 0x0;
787 for (idx
= 0; idx
< 4; idx
++)
788 filehdr_in
->pe
.e_res
[idx
] = 0x0;
790 filehdr_in
->pe
.e_oemid
= 0x0;
791 filehdr_in
->pe
.e_oeminfo
= 0x0;
793 for (idx
= 0; idx
< 10; idx
++)
794 filehdr_in
->pe
.e_res2
[idx
] = 0x0;
796 filehdr_in
->pe
.e_lfanew
= 0x80;
798 /* This next collection of data are mostly just characters. It
799 appears to be constant within the headers put on NT exes. */
800 filehdr_in
->pe
.dos_message
[0] = 0x0eba1f0e;
801 filehdr_in
->pe
.dos_message
[1] = 0xcd09b400;
802 filehdr_in
->pe
.dos_message
[2] = 0x4c01b821;
803 filehdr_in
->pe
.dos_message
[3] = 0x685421cd;
804 filehdr_in
->pe
.dos_message
[4] = 0x70207369;
805 filehdr_in
->pe
.dos_message
[5] = 0x72676f72;
806 filehdr_in
->pe
.dos_message
[6] = 0x63206d61;
807 filehdr_in
->pe
.dos_message
[7] = 0x6f6e6e61;
808 filehdr_in
->pe
.dos_message
[8] = 0x65622074;
809 filehdr_in
->pe
.dos_message
[9] = 0x6e757220;
810 filehdr_in
->pe
.dos_message
[10] = 0x206e6920;
811 filehdr_in
->pe
.dos_message
[11] = 0x20534f44;
812 filehdr_in
->pe
.dos_message
[12] = 0x65646f6d;
813 filehdr_in
->pe
.dos_message
[13] = 0x0a0d0d2e;
814 filehdr_in
->pe
.dos_message
[14] = 0x24;
815 filehdr_in
->pe
.dos_message
[15] = 0x0;
816 filehdr_in
->pe
.nt_signature
= NT_SIGNATURE
;
818 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
819 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
821 H_PUT_32 (abfd
, time (0), filehdr_out
->f_timdat
);
822 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
,
823 filehdr_out
->f_symptr
);
824 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
825 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
826 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
828 /* Put in extra dos header stuff. This data remains essentially
829 constant, it just has to be tacked on to the beginning of all exes
831 H_PUT_16 (abfd
, filehdr_in
->pe
.e_magic
, filehdr_out
->e_magic
);
832 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cblp
, filehdr_out
->e_cblp
);
833 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cp
, filehdr_out
->e_cp
);
834 H_PUT_16 (abfd
, filehdr_in
->pe
.e_crlc
, filehdr_out
->e_crlc
);
835 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cparhdr
, filehdr_out
->e_cparhdr
);
836 H_PUT_16 (abfd
, filehdr_in
->pe
.e_minalloc
, filehdr_out
->e_minalloc
);
837 H_PUT_16 (abfd
, filehdr_in
->pe
.e_maxalloc
, filehdr_out
->e_maxalloc
);
838 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ss
, filehdr_out
->e_ss
);
839 H_PUT_16 (abfd
, filehdr_in
->pe
.e_sp
, filehdr_out
->e_sp
);
840 H_PUT_16 (abfd
, filehdr_in
->pe
.e_csum
, filehdr_out
->e_csum
);
841 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ip
, filehdr_out
->e_ip
);
842 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cs
, filehdr_out
->e_cs
);
843 H_PUT_16 (abfd
, filehdr_in
->pe
.e_lfarlc
, filehdr_out
->e_lfarlc
);
844 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ovno
, filehdr_out
->e_ovno
);
846 for (idx
= 0; idx
< 4; idx
++)
847 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res
[idx
], filehdr_out
->e_res
[idx
]);
849 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oemid
, filehdr_out
->e_oemid
);
850 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oeminfo
, filehdr_out
->e_oeminfo
);
852 for (idx
= 0; idx
< 10; idx
++)
853 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res2
[idx
], filehdr_out
->e_res2
[idx
]);
855 H_PUT_32 (abfd
, filehdr_in
->pe
.e_lfanew
, filehdr_out
->e_lfanew
);
857 for (idx
= 0; idx
< 16; idx
++)
858 H_PUT_32 (abfd
, filehdr_in
->pe
.dos_message
[idx
],
859 filehdr_out
->dos_message
[idx
]);
861 /* Also put in the NT signature. */
862 H_PUT_32 (abfd
, filehdr_in
->pe
.nt_signature
, filehdr_out
->nt_signature
);
868 _bfd_XX_only_swap_filehdr_out (abfd
, in
, out
)
873 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
874 FILHDR
*filehdr_out
= (FILHDR
*) out
;
876 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
877 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
878 H_PUT_32 (abfd
, filehdr_in
->f_timdat
, filehdr_out
->f_timdat
);
879 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
, filehdr_out
->f_symptr
);
880 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
881 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
882 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
888 _bfd_XXi_swap_scnhdr_out (abfd
, in
, out
)
893 struct internal_scnhdr
*scnhdr_int
= (struct internal_scnhdr
*) in
;
894 SCNHDR
*scnhdr_ext
= (SCNHDR
*) out
;
895 unsigned int ret
= SCNHSZ
;
899 memcpy (scnhdr_ext
->s_name
, scnhdr_int
->s_name
, sizeof (scnhdr_int
->s_name
));
901 PUT_SCNHDR_VADDR (abfd
,
902 ((scnhdr_int
->s_vaddr
903 - pe_data (abfd
)->pe_opthdr
.ImageBase
)
905 scnhdr_ext
->s_vaddr
);
907 /* NT wants the size data to be rounded up to the next
908 NT_FILE_ALIGNMENT, but zero if it has no content (as in .bss,
910 if ((scnhdr_int
->s_flags
& IMAGE_SCN_CNT_UNINITIALIZED_DATA
) != 0)
912 if (bfd_pe_executable_p (abfd
))
914 ps
= scnhdr_int
->s_size
;
920 ss
= scnhdr_int
->s_size
;
925 if (bfd_pe_executable_p (abfd
))
926 ps
= scnhdr_int
->s_paddr
;
930 ss
= scnhdr_int
->s_size
;
933 PUT_SCNHDR_SIZE (abfd
, ss
,
936 /* s_paddr in PE is really the virtual size. */
937 PUT_SCNHDR_PADDR (abfd
, ps
, scnhdr_ext
->s_paddr
);
939 PUT_SCNHDR_SCNPTR (abfd
, scnhdr_int
->s_scnptr
,
940 scnhdr_ext
->s_scnptr
);
941 PUT_SCNHDR_RELPTR (abfd
, scnhdr_int
->s_relptr
,
942 scnhdr_ext
->s_relptr
);
943 PUT_SCNHDR_LNNOPTR (abfd
, scnhdr_int
->s_lnnoptr
,
944 scnhdr_ext
->s_lnnoptr
);
947 /* Extra flags must be set when dealing with PE. All sections should also
948 have the IMAGE_SCN_MEM_READ (0x40000000) flag set. In addition, the
949 .text section must have IMAGE_SCN_MEM_EXECUTE (0x20000000) and the data
950 sections (.idata, .data, .bss, .CRT) must have IMAGE_SCN_MEM_WRITE set
951 (this is especially important when dealing with the .idata section since
952 the addresses for routines from .dlls must be overwritten). If .reloc
953 section data is ever generated, we must add IMAGE_SCN_MEM_DISCARDABLE
954 (0x02000000). Also, the resource data should also be read and
957 /* FIXME: Alignment is also encoded in this field, at least on PPC and
958 ARM-WINCE. Although - how do we get the original alignment field
963 const char * section_name
;
964 unsigned long must_have
;
966 pe_required_section_flags
;
968 pe_required_section_flags known_sections
[] =
970 { ".arch", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_DISCARDABLE
| IMAGE_SCN_ALIGN_8BYTES
},
971 { ".bss", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_UNINITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
972 { ".data", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
973 { ".edata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
974 { ".idata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
975 { ".pdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
976 { ".rdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
977 { ".reloc", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_DISCARDABLE
},
978 { ".rsrc", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
979 { ".text" , IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_CODE
| IMAGE_SCN_MEM_EXECUTE
},
980 { ".tls", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
| IMAGE_SCN_MEM_WRITE
},
981 { ".xdata", IMAGE_SCN_MEM_READ
| IMAGE_SCN_CNT_INITIALIZED_DATA
},
985 pe_required_section_flags
* p
;
986 int flags
= scnhdr_int
->s_flags
;
988 /* We have defaulted to adding the IMAGE_SCN_MEM_WRITE flag, but now
989 we know exactly what this specific section wants so we remove it
990 and then allow the must_have field to add it back in if necessary.
991 However, we don't remove IMAGE_SCN_MEM_WRITE flag from .text if the
992 default WP_TEXT file flag has been cleared. WP_TEXT may be cleared
993 by ld --enable-auto-import (if auto-import is actually needed),
994 by ld --omagic, or by obcopy --writable-text. */
996 if (strcmp (scnhdr_int
->s_name
, ".text")
997 || (bfd_get_file_flags (abfd
) & WP_TEXT
))
998 flags
&= ~IMAGE_SCN_MEM_WRITE
;
1000 for (p
= known_sections
; p
->section_name
; p
++)
1001 if (strcmp (scnhdr_int
->s_name
, p
->section_name
) == 0)
1003 flags
|= p
->must_have
;
1007 H_PUT_32 (abfd
, flags
, scnhdr_ext
->s_flags
);
1010 if (coff_data (abfd
)->link_info
1011 && ! coff_data (abfd
)->link_info
->relocatable
1012 && ! coff_data (abfd
)->link_info
->shared
1013 && strcmp (scnhdr_int
->s_name
, ".text") == 0)
1015 /* By inference from looking at MS output, the 32 bit field
1016 which is the combination of the number_of_relocs and
1017 number_of_linenos is used for the line number count in
1018 executables. A 16-bit field won't do for cc1. The MS
1019 document says that the number of relocs is zero for
1020 executables, but the 17-th bit has been observed to be there.
1021 Overflow is not an issue: a 4G-line program will overflow a
1022 bunch of other fields long before this! */
1023 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
& 0xffff), scnhdr_ext
->s_nlnno
);
1024 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
>> 16), scnhdr_ext
->s_nreloc
);
1028 if (scnhdr_int
->s_nlnno
<= 0xffff)
1029 H_PUT_16 (abfd
, scnhdr_int
->s_nlnno
, scnhdr_ext
->s_nlnno
);
1032 (*_bfd_error_handler
) (_("%s: line number overflow: 0x%lx > 0xffff"),
1033 bfd_get_filename (abfd
),
1034 scnhdr_int
->s_nlnno
);
1035 bfd_set_error (bfd_error_file_truncated
);
1036 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nlnno
);
1040 /* Although we could encode 0xffff relocs here, we do not, to be
1041 consistent with other parts of bfd. Also it lets us warn, as
1042 we should never see 0xffff here w/o having the overflow flag
1044 if (scnhdr_int
->s_nreloc
< 0xffff)
1045 H_PUT_16 (abfd
, scnhdr_int
->s_nreloc
, scnhdr_ext
->s_nreloc
);
1048 /* PE can deal with large #s of relocs, but not here. */
1049 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
1050 scnhdr_int
->s_flags
|= IMAGE_SCN_LNK_NRELOC_OVFL
;
1051 H_PUT_32 (abfd
, scnhdr_int
->s_flags
, scnhdr_ext
->s_flags
);
1053 (*_bfd_error_handler
) (_("%s: reloc overflow 1: 0x%lx > 0xffff"),
1054 bfd_get_filename (abfd
),
1055 scnhdr_int
->s_nreloc
);
1056 bfd_set_error (bfd_error_file_truncated
);
1057 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
1065 static char * dir_names
[IMAGE_NUMBEROF_DIRECTORY_ENTRIES
] =
1067 N_("Export Directory [.edata (or where ever we found it)]"),
1068 N_("Import Directory [parts of .idata]"),
1069 N_("Resource Directory [.rsrc]"),
1070 N_("Exception Directory [.pdata]"),
1071 N_("Security Directory"),
1072 N_("Base Relocation Directory [.reloc]"),
1073 N_("Debug Directory"),
1074 N_("Description Directory"),
1075 N_("Special Directory"),
1076 N_("Thread Storage Directory [.tls]"),
1077 N_("Load Configuration Directory"),
1078 N_("Bound Import Directory"),
1079 N_("Import Address Table Directory"),
1080 N_("Delay Import Directory"),
1085 #ifdef POWERPC_LE_PE
1086 /* The code for the PPC really falls in the "architecture dependent"
1087 category. However, it's not clear that anyone will ever care, so
1088 we're ignoring the issue for now; if/when PPC matters, some of this
1089 may need to go into peicode.h, or arguments passed to enable the
1090 PPC- specific code. */
1094 pe_print_idata (abfd
, vfile
)
1098 FILE *file
= (FILE *) vfile
;
1103 #ifdef POWERPC_LE_PE
1104 asection
*rel_section
= bfd_get_section_by_name (abfd
, ".reldata");
1107 bfd_size_type datasize
= 0;
1108 bfd_size_type dataoff
;
1113 pe_data_type
*pe
= pe_data (abfd
);
1114 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1118 addr
= extra
->DataDirectory
[1].VirtualAddress
;
1120 if (addr
== 0 && extra
->DataDirectory
[1].Size
== 0)
1122 /* Maybe the extra header isn't there. Look for the section. */
1123 section
= bfd_get_section_by_name (abfd
, ".idata");
1124 if (section
== NULL
)
1127 addr
= section
->vma
;
1128 datasize
= bfd_section_size (abfd
, section
);
1134 addr
+= extra
->ImageBase
;
1135 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1137 datasize
= bfd_section_size (abfd
, section
);
1138 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1142 if (section
== NULL
)
1145 _("\nThere is an import table, but the section containing it could not be found\n"));
1150 fprintf (file
, _("\nThere is an import table in %s at 0x%lx\n"),
1151 section
->name
, (unsigned long) addr
);
1153 dataoff
= addr
- section
->vma
;
1154 datasize
-= dataoff
;
1156 #ifdef POWERPC_LE_PE
1157 if (rel_section
!= 0 && bfd_section_size (abfd
, rel_section
) != 0)
1159 /* The toc address can be found by taking the starting address,
1160 which on the PPC locates a function descriptor. The
1161 descriptor consists of the function code starting address
1162 followed by the address of the toc. The starting address we
1163 get from the bfd, and the descriptor is supposed to be in the
1164 .reldata section. */
1166 bfd_vma loadable_toc_address
;
1167 bfd_vma toc_address
;
1168 bfd_vma start_address
;
1172 amt
= bfd_section_size (abfd
, rel_section
);
1173 data
= (bfd_byte
*) bfd_malloc (amt
);
1174 if (data
== NULL
&& amt
!= 0)
1177 bfd_get_section_contents (abfd
, rel_section
, (PTR
) data
, (bfd_vma
) 0,
1180 offset
= abfd
->start_address
- rel_section
->vma
;
1182 start_address
= bfd_get_32 (abfd
, data
+ offset
);
1183 loadable_toc_address
= bfd_get_32 (abfd
, data
+ offset
+ 4);
1184 toc_address
= loadable_toc_address
- 32768;
1187 _("\nFunction descriptor located at the start address: %04lx\n"),
1188 (unsigned long int) (abfd
->start_address
));
1190 _("\tcode-base %08lx toc (loadable/actual) %08lx/%08lx\n"),
1191 start_address
, loadable_toc_address
, toc_address
);
1196 _("\nNo reldata section! Function descriptor not decoded.\n"));
1201 _("\nThe Import Tables (interpreted %s section contents)\n"),
1205 vma: Hint Time Forward DLL First\n\
1206 Table Stamp Chain Name Thunk\n"));
1208 amt
= dataoff
+ datasize
;
1209 data
= (bfd_byte
*) bfd_malloc (amt
);
1213 /* Read the whole section. Some of the fields might be before dataoff. */
1214 if (! bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0, amt
))
1217 adj
= section
->vma
- extra
->ImageBase
;
1219 /* Print all image import descriptors. */
1220 for (i
= 0; i
< datasize
; i
+= onaline
)
1224 bfd_vma forward_chain
;
1226 bfd_vma first_thunk
;
1231 /* Print (i + extra->DataDirectory[1].VirtualAddress). */
1232 fprintf (file
, " %08lx\t", (unsigned long) (i
+ adj
+ dataoff
));
1234 if (i
+ 20 > datasize
)
1238 hint_addr
= bfd_get_32 (abfd
, data
+ i
+ dataoff
);
1239 time_stamp
= bfd_get_32 (abfd
, data
+ i
+ 4 + dataoff
);
1240 forward_chain
= bfd_get_32 (abfd
, data
+ i
+ 8 + dataoff
);
1241 dll_name
= bfd_get_32 (abfd
, data
+ i
+ 12 + dataoff
);
1242 first_thunk
= bfd_get_32 (abfd
, data
+ i
+ 16 + dataoff
);
1244 fprintf (file
, "%08lx %08lx %08lx %08lx %08lx\n",
1245 (unsigned long) hint_addr
,
1246 (unsigned long) time_stamp
,
1247 (unsigned long) forward_chain
,
1248 (unsigned long) dll_name
,
1249 (unsigned long) first_thunk
);
1251 if (hint_addr
== 0 && first_thunk
== 0)
1254 dll
= (char *) data
+ dll_name
- adj
;
1255 fprintf (file
, _("\n\tDLL Name: %s\n"), dll
);
1260 asection
*ft_section
;
1262 bfd_size_type ft_datasize
;
1264 int ft_allocated
= 0;
1266 fprintf (file
, _("\tvma: Hint/Ord Member-Name Bound-To\n"));
1268 idx
= hint_addr
- adj
;
1270 ft_addr
= first_thunk
+ extra
->ImageBase
;
1272 ft_idx
= first_thunk
- adj
;
1275 if (first_thunk
!= hint_addr
)
1277 /* Find the section which contains the first thunk. */
1278 for (ft_section
= abfd
->sections
;
1280 ft_section
= ft_section
->next
)
1282 ft_datasize
= bfd_section_size (abfd
, ft_section
);
1283 if (ft_addr
>= ft_section
->vma
1284 && ft_addr
< ft_section
->vma
+ ft_datasize
)
1288 if (ft_section
== NULL
)
1291 _("\nThere is a first thunk, but the section containing it could not be found\n"));
1295 /* Now check to see if this section is the same as our current
1296 section. If it is not then we will have to load its data in. */
1297 if (ft_section
== section
)
1300 ft_idx
= first_thunk
- adj
;
1304 ft_idx
= first_thunk
- (ft_section
->vma
- extra
->ImageBase
);
1305 ft_data
= (bfd_byte
*) bfd_malloc (datasize
);
1306 if (ft_data
== NULL
)
1309 /* Read datasize bfd_bytes starting at offset ft_idx. */
1310 if (! bfd_get_section_contents (abfd
, ft_section
,
1324 /* Print HintName vector entries. */
1325 for (j
= 0; j
< datasize
; j
+= 4)
1327 unsigned long member
= bfd_get_32 (abfd
, data
+ idx
+ j
);
1329 /* Print single IMAGE_IMPORT_BY_NAME vector. */
1333 if (member
& 0x80000000)
1334 fprintf (file
, "\t%04lx\t %4lu <none>",
1335 member
, member
& 0x7fffffff);
1341 ordinal
= bfd_get_16 (abfd
, data
+ member
- adj
);
1342 member_name
= (char *) data
+ member
- adj
+ 2;
1343 fprintf (file
, "\t%04lx\t %4d %s",
1344 member
, ordinal
, member_name
);
1347 /* If the time stamp is not zero, the import address
1348 table holds actual addresses. */
1351 && first_thunk
!= hint_addr
)
1352 fprintf (file
, "\t%04lx",
1353 (long) bfd_get_32 (abfd
, ft_data
+ ft_idx
+ j
));
1355 fprintf (file
, "\n");
1362 fprintf (file
, "\n");
1371 pe_print_edata (abfd
, vfile
)
1375 FILE *file
= (FILE *) vfile
;
1378 bfd_size_type datasize
= 0;
1379 bfd_size_type dataoff
;
1384 long export_flags
; /* reserved - should be zero */
1388 bfd_vma name
; /* rva - relative to image base */
1389 long base
; /* ordinal base */
1390 unsigned long num_functions
;/* Number in the export address table */
1391 unsigned long num_names
; /* Number in the name pointer table */
1392 bfd_vma eat_addr
; /* rva to the export address table */
1393 bfd_vma npt_addr
; /* rva to the Export Name Pointer Table */
1394 bfd_vma ot_addr
; /* rva to the Ordinal Table */
1397 pe_data_type
*pe
= pe_data (abfd
);
1398 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1402 addr
= extra
->DataDirectory
[0].VirtualAddress
;
1404 if (addr
== 0 && extra
->DataDirectory
[0].Size
== 0)
1406 /* Maybe the extra header isn't there. Look for the section. */
1407 section
= bfd_get_section_by_name (abfd
, ".edata");
1408 if (section
== NULL
)
1411 addr
= section
->vma
;
1412 datasize
= bfd_section_size (abfd
, section
);
1418 addr
+= extra
->ImageBase
;
1420 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1422 datasize
= bfd_section_size (abfd
, section
);
1424 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1428 if (section
== NULL
)
1431 _("\nThere is an export table, but the section containing it could not be found\n"));
1436 fprintf (file
, _("\nThere is an export table in %s at 0x%lx\n"),
1437 section
->name
, (unsigned long) addr
);
1439 dataoff
= addr
- section
->vma
;
1440 datasize
-= dataoff
;
1442 data
= (bfd_byte
*) bfd_malloc (datasize
);
1446 if (! bfd_get_section_contents (abfd
, section
, (PTR
) data
,
1447 (file_ptr
) dataoff
, datasize
))
1450 /* Go get Export Directory Table. */
1451 edt
.export_flags
= bfd_get_32 (abfd
, data
+ 0);
1452 edt
.time_stamp
= bfd_get_32 (abfd
, data
+ 4);
1453 edt
.major_ver
= bfd_get_16 (abfd
, data
+ 8);
1454 edt
.minor_ver
= bfd_get_16 (abfd
, data
+ 10);
1455 edt
.name
= bfd_get_32 (abfd
, data
+ 12);
1456 edt
.base
= bfd_get_32 (abfd
, data
+ 16);
1457 edt
.num_functions
= bfd_get_32 (abfd
, data
+ 20);
1458 edt
.num_names
= bfd_get_32 (abfd
, data
+ 24);
1459 edt
.eat_addr
= bfd_get_32 (abfd
, data
+ 28);
1460 edt
.npt_addr
= bfd_get_32 (abfd
, data
+ 32);
1461 edt
.ot_addr
= bfd_get_32 (abfd
, data
+ 36);
1463 adj
= section
->vma
- extra
->ImageBase
+ dataoff
;
1465 /* Dump the EDT first. */
1467 _("\nThe Export Tables (interpreted %s section contents)\n\n"),
1471 _("Export Flags \t\t\t%lx\n"), (unsigned long) edt
.export_flags
);
1474 _("Time/Date stamp \t\t%lx\n"), (unsigned long) edt
.time_stamp
);
1477 _("Major/Minor \t\t\t%d/%d\n"), edt
.major_ver
, edt
.minor_ver
);
1480 _("Name \t\t\t\t"));
1481 fprintf_vma (file
, edt
.name
);
1483 " %s\n", data
+ edt
.name
- adj
);
1486 _("Ordinal Base \t\t\t%ld\n"), edt
.base
);
1492 _("\tExport Address Table \t\t%08lx\n"),
1496 _("\t[Name Pointer/Ordinal] Table\t%08lx\n"), edt
.num_names
);
1499 _("Table Addresses\n"));
1502 _("\tExport Address Table \t\t"));
1503 fprintf_vma (file
, edt
.eat_addr
);
1504 fprintf (file
, "\n");
1507 _("\tName Pointer Table \t\t"));
1508 fprintf_vma (file
, edt
.npt_addr
);
1509 fprintf (file
, "\n");
1512 _("\tOrdinal Table \t\t\t"));
1513 fprintf_vma (file
, edt
.ot_addr
);
1514 fprintf (file
, "\n");
1516 /* The next table to find is the Export Address Table. It's basically
1517 a list of pointers that either locate a function in this dll, or
1518 forward the call to another dll. Something like:
1523 } export_address_table_entry;
1527 _("\nExport Address Table -- Ordinal Base %ld\n"),
1530 for (i
= 0; i
< edt
.num_functions
; ++i
)
1532 bfd_vma eat_member
= bfd_get_32 (abfd
,
1533 data
+ edt
.eat_addr
+ (i
* 4) - adj
);
1534 if (eat_member
== 0)
1537 if (eat_member
- adj
<= datasize
)
1539 /* This rva is to a name (forwarding function) in our section. */
1540 /* Should locate a function descriptor. */
1542 "\t[%4ld] +base[%4ld] %04lx %s -- %s\n",
1544 (long) (i
+ edt
.base
),
1545 (unsigned long) eat_member
,
1547 data
+ eat_member
- adj
);
1551 /* Should locate a function descriptor in the reldata section. */
1553 "\t[%4ld] +base[%4ld] %04lx %s\n",
1555 (long) (i
+ edt
.base
),
1556 (unsigned long) eat_member
,
1561 /* The Export Name Pointer Table is paired with the Export Ordinal Table. */
1562 /* Dump them in parallel for clarity. */
1564 _("\n[Ordinal/Name Pointer] Table\n"));
1566 for (i
= 0; i
< edt
.num_names
; ++i
)
1568 bfd_vma name_ptr
= bfd_get_32 (abfd
,
1573 char *name
= (char *) data
+ name_ptr
- adj
;
1575 bfd_vma ord
= bfd_get_16 (abfd
,
1580 "\t[%4ld] %s\n", (long) ord
, name
);
1588 /* This really is architecture dependent. On IA-64, a .pdata entry
1589 consists of three dwords containing relative virtual addresses that
1590 specify the start and end address of the code range the entry
1591 covers and the address of the corresponding unwind info data. */
1594 pe_print_pdata (abfd
, vfile
)
1598 #ifdef COFF_WITH_pep
1599 # define PDATA_ROW_SIZE (3*8)
1601 # define PDATA_ROW_SIZE (5*4)
1603 FILE *file
= (FILE *) vfile
;
1605 asection
*section
= bfd_get_section_by_name (abfd
, ".pdata");
1606 bfd_size_type datasize
= 0;
1608 bfd_size_type start
, stop
;
1609 int onaline
= PDATA_ROW_SIZE
;
1612 || coff_section_data (abfd
, section
) == NULL
1613 || pei_section_data (abfd
, section
) == NULL
)
1616 stop
= pei_section_data (abfd
, section
)->virt_size
;
1617 if ((stop
% onaline
) != 0)
1619 _("Warning, .pdata section size (%ld) is not a multiple of %d\n"),
1620 (long) stop
, onaline
);
1623 _("\nThe Function Table (interpreted .pdata section contents)\n"));
1624 #ifdef COFF_WITH_pep
1626 _(" vma:\t\t\tBegin Address End Address Unwind Info\n"));
1629 vma:\t\tBegin End EH EH PrologEnd Exception\n\
1630 \t\tAddress Address Handler Data Address Mask\n"));
1633 datasize
= bfd_section_size (abfd
, section
);
1637 data
= (bfd_byte
*) bfd_malloc (datasize
);
1638 if (data
== NULL
&& datasize
!= 0)
1641 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1646 for (i
= start
; i
< stop
; i
+= onaline
)
1652 bfd_vma prolog_end_addr
;
1655 if (i
+ PDATA_ROW_SIZE
> stop
)
1658 begin_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
);
1659 end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 4);
1660 eh_handler
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 8);
1661 eh_data
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 12);
1662 prolog_end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 16);
1664 if (begin_addr
== 0 && end_addr
== 0 && eh_handler
== 0
1665 && eh_data
== 0 && prolog_end_addr
== 0)
1666 /* We are probably into the padding of the section now. */
1669 em_data
= ((eh_handler
& 0x1) << 2) | (prolog_end_addr
& 0x3);
1670 eh_handler
&= ~(bfd_vma
) 0x3;
1671 prolog_end_addr
&= ~(bfd_vma
) 0x3;
1674 fprintf_vma (file
, i
+ section
->vma
); fputc ('\t', file
);
1675 fprintf_vma (file
, begin_addr
); fputc (' ', file
);
1676 fprintf_vma (file
, end_addr
); fputc (' ', file
);
1677 fprintf_vma (file
, eh_handler
);
1678 #ifndef COFF_WITH_pep
1680 fprintf_vma (file
, eh_data
); fputc (' ', file
);
1681 fprintf_vma (file
, prolog_end_addr
);
1682 fprintf (file
, " %x", em_data
);
1685 #ifdef POWERPC_LE_PE
1686 if (eh_handler
== 0 && eh_data
!= 0)
1688 /* Special bits here, although the meaning may be a little
1689 mysterious. The only one I know for sure is 0x03. */
1690 /* Code Significance */
1692 /* 0x01 Register Save Millicode */
1693 /* 0x02 Register Restore Millicode */
1694 /* 0x03 Glue Code Sequence */
1698 fprintf (file
, _(" Register save millicode"));
1701 fprintf (file
, _(" Register restore millicode"));
1704 fprintf (file
, _(" Glue code sequence"));
1711 fprintf (file
, "\n");
1719 #define IMAGE_REL_BASED_HIGHADJ 4
1720 static const char * const tbl
[] =
1734 "UNKNOWN", /* MUST be last */
1738 pe_print_reloc (abfd
, vfile
)
1742 FILE *file
= (FILE *) vfile
;
1744 asection
*section
= bfd_get_section_by_name (abfd
, ".reloc");
1745 bfd_size_type datasize
;
1747 bfd_size_type start
, stop
;
1749 if (section
== NULL
)
1752 if (bfd_section_size (abfd
, section
) == 0)
1756 _("\n\nPE File Base Relocations (interpreted .reloc section contents)\n"));
1758 datasize
= bfd_section_size (abfd
, section
);
1759 data
= (bfd_byte
*) bfd_malloc (datasize
);
1760 if (data
== NULL
&& datasize
!= 0)
1763 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1768 stop
= bfd_section_size (abfd
, section
);
1770 for (i
= start
; i
< stop
;)
1773 bfd_vma virtual_address
;
1776 /* The .reloc section is a sequence of blocks, with a header consisting
1777 of two 32 bit quantities, followed by a number of 16 bit entries. */
1778 virtual_address
= bfd_get_32 (abfd
, data
+i
);
1779 size
= bfd_get_32 (abfd
, data
+i
+4);
1780 number
= (size
- 8) / 2;
1786 _("\nVirtual Address: %08lx Chunk size %ld (0x%lx) Number of fixups %ld\n"),
1787 (unsigned long) virtual_address
, size
, size
, number
);
1789 for (j
= 0; j
< number
; ++j
)
1791 unsigned short e
= bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2);
1792 unsigned int t
= (e
& 0xF000) >> 12;
1793 int off
= e
& 0x0FFF;
1795 if (t
>= sizeof (tbl
) / sizeof (tbl
[0]))
1796 t
= (sizeof (tbl
) / sizeof (tbl
[0])) - 1;
1799 _("\treloc %4d offset %4x [%4lx] %s"),
1800 j
, off
, (long) (off
+ virtual_address
), tbl
[t
]);
1802 /* HIGHADJ takes an argument, - the next record *is* the
1803 low 16 bits of addend. */
1804 if (t
== IMAGE_REL_BASED_HIGHADJ
)
1806 fprintf (file
, " (%4x)",
1808 bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2 + 2)));
1812 fprintf (file
, "\n");
1823 /* Print out the program headers. */
1826 _bfd_XX_print_private_bfd_data_common (abfd
, vfile
)
1830 FILE *file
= (FILE *) vfile
;
1832 pe_data_type
*pe
= pe_data (abfd
);
1833 struct internal_extra_pe_aouthdr
*i
= &pe
->pe_opthdr
;
1834 const char *subsystem_name
= NULL
;
1836 /* The MS dumpbin program reportedly ands with 0xff0f before
1837 printing the characteristics field. Not sure why. No reason to
1839 fprintf (file
, _("\nCharacteristics 0x%x\n"), pe
->real_flags
);
1841 #define PF(x, y) if (pe->real_flags & x) { fprintf (file, "\t%s\n", y); }
1842 PF (F_RELFLG
, "relocations stripped");
1843 PF (F_EXEC
, "executable");
1844 PF (F_LNNO
, "line numbers stripped");
1845 PF (F_LSYMS
, "symbols stripped");
1846 PF (0x80, "little endian");
1847 PF (F_AR32WR
, "32 bit words");
1848 PF (0x200, "debugging information removed");
1849 PF (0x1000, "system file");
1851 PF (0x8000, "big endian");
1854 /* ctime implies '\n'. */
1856 time_t t
= pe
->coff
.timestamp
;
1857 fprintf (file
, "\nTime/Date\t\t%s", ctime (&t
));
1859 fprintf (file
, "\nImageBase\t\t");
1860 fprintf_vma (file
, i
->ImageBase
);
1861 fprintf (file
, "\nSectionAlignment\t");
1862 fprintf_vma (file
, i
->SectionAlignment
);
1863 fprintf (file
, "\nFileAlignment\t\t");
1864 fprintf_vma (file
, i
->FileAlignment
);
1865 fprintf (file
, "\nMajorOSystemVersion\t%d\n", i
->MajorOperatingSystemVersion
);
1866 fprintf (file
, "MinorOSystemVersion\t%d\n", i
->MinorOperatingSystemVersion
);
1867 fprintf (file
, "MajorImageVersion\t%d\n", i
->MajorImageVersion
);
1868 fprintf (file
, "MinorImageVersion\t%d\n", i
->MinorImageVersion
);
1869 fprintf (file
, "MajorSubsystemVersion\t%d\n", i
->MajorSubsystemVersion
);
1870 fprintf (file
, "MinorSubsystemVersion\t%d\n", i
->MinorSubsystemVersion
);
1871 fprintf (file
, "Win32Version\t\t%08lx\n", i
->Reserved1
);
1872 fprintf (file
, "SizeOfImage\t\t%08lx\n", i
->SizeOfImage
);
1873 fprintf (file
, "SizeOfHeaders\t\t%08lx\n", i
->SizeOfHeaders
);
1874 fprintf (file
, "CheckSum\t\t%08lx\n", i
->CheckSum
);
1876 switch (i
->Subsystem
)
1878 case IMAGE_SUBSYSTEM_UNKNOWN
:
1879 subsystem_name
= "unspecified";
1881 case IMAGE_SUBSYSTEM_NATIVE
:
1882 subsystem_name
= "NT native";
1884 case IMAGE_SUBSYSTEM_WINDOWS_GUI
:
1885 subsystem_name
= "Windows GUI";
1887 case IMAGE_SUBSYSTEM_WINDOWS_CUI
:
1888 subsystem_name
= "Windows CUI";
1890 case IMAGE_SUBSYSTEM_POSIX_CUI
:
1891 subsystem_name
= "POSIX CUI";
1893 case IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
:
1894 subsystem_name
= "Wince CUI";
1896 case IMAGE_SUBSYSTEM_EFI_APPLICATION
:
1897 subsystem_name
= "EFI application";
1899 case IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
:
1900 subsystem_name
= "EFI boot service driver";
1902 case IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
:
1903 subsystem_name
= "EFI runtime driver";
1907 fprintf (file
, "Subsystem\t\t%08x", i
->Subsystem
);
1909 fprintf (file
, "\t(%s)", subsystem_name
);
1910 fprintf (file
, "\nDllCharacteristics\t%08x\n", i
->DllCharacteristics
);
1911 fprintf (file
, "SizeOfStackReserve\t");
1912 fprintf_vma (file
, i
->SizeOfStackReserve
);
1913 fprintf (file
, "\nSizeOfStackCommit\t");
1914 fprintf_vma (file
, i
->SizeOfStackCommit
);
1915 fprintf (file
, "\nSizeOfHeapReserve\t");
1916 fprintf_vma (file
, i
->SizeOfHeapReserve
);
1917 fprintf (file
, "\nSizeOfHeapCommit\t");
1918 fprintf_vma (file
, i
->SizeOfHeapCommit
);
1919 fprintf (file
, "\nLoaderFlags\t\t%08lx\n", i
->LoaderFlags
);
1920 fprintf (file
, "NumberOfRvaAndSizes\t%08lx\n", i
->NumberOfRvaAndSizes
);
1922 fprintf (file
, "\nThe Data Directory\n");
1923 for (j
= 0; j
< IMAGE_NUMBEROF_DIRECTORY_ENTRIES
; j
++)
1925 fprintf (file
, "Entry %1x ", j
);
1926 fprintf_vma (file
, i
->DataDirectory
[j
].VirtualAddress
);
1927 fprintf (file
, " %08lx ", i
->DataDirectory
[j
].Size
);
1928 fprintf (file
, "%s\n", dir_names
[j
]);
1931 pe_print_idata (abfd
, vfile
);
1932 pe_print_edata (abfd
, vfile
);
1933 pe_print_pdata (abfd
, vfile
);
1934 pe_print_reloc (abfd
, vfile
);
1939 /* Copy any private info we understand from the input bfd
1940 to the output bfd. */
1943 _bfd_XX_bfd_copy_private_bfd_data_common (ibfd
, obfd
)
1946 /* One day we may try to grok other private data. */
1947 if (ibfd
->xvec
->flavour
!= bfd_target_coff_flavour
1948 || obfd
->xvec
->flavour
!= bfd_target_coff_flavour
)
1951 pe_data (obfd
)->pe_opthdr
= pe_data (ibfd
)->pe_opthdr
;
1952 pe_data (obfd
)->dll
= pe_data (ibfd
)->dll
;
1954 /* For strip: if we removed .reloc, we'll make a real mess of things
1955 if we don't remove this entry as well. */
1956 if (! pe_data (obfd
)->has_reloc_section
)
1958 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].VirtualAddress
= 0;
1959 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].Size
= 0;
1964 /* Copy private section data. */
1967 _bfd_XX_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
1973 if (bfd_get_flavour (ibfd
) != bfd_target_coff_flavour
1974 || bfd_get_flavour (obfd
) != bfd_target_coff_flavour
)
1977 if (coff_section_data (ibfd
, isec
) != NULL
1978 && pei_section_data (ibfd
, isec
) != NULL
)
1980 if (coff_section_data (obfd
, osec
) == NULL
)
1982 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
1983 osec
->used_by_bfd
= (PTR
) bfd_zalloc (obfd
, amt
);
1984 if (osec
->used_by_bfd
== NULL
)
1988 if (pei_section_data (obfd
, osec
) == NULL
)
1990 bfd_size_type amt
= sizeof (struct pei_section_tdata
);
1991 coff_section_data (obfd
, osec
)->tdata
= (PTR
) bfd_zalloc (obfd
, amt
);
1992 if (coff_section_data (obfd
, osec
)->tdata
== NULL
)
1996 pei_section_data (obfd
, osec
)->virt_size
=
1997 pei_section_data (ibfd
, isec
)->virt_size
;
1998 pei_section_data (obfd
, osec
)->pe_flags
=
1999 pei_section_data (ibfd
, isec
)->pe_flags
;
2006 _bfd_XX_get_symbol_info (abfd
, symbol
, ret
)
2011 coff_get_symbol_info (abfd
, symbol
, ret
);
2012 #if 0 /* This code no longer appears to be necessary.
2013 ImageBase has already been added in by coff_swap_scnhdr_in. */
2014 if (pe_data (abfd
) != NULL
2015 && ((symbol
->flags
& BSF_DEBUGGING
) == 0
2016 || (symbol
->flags
& BSF_DEBUGGING_RELOC
) != 0)
2017 && ! bfd_is_abs_section (symbol
->section
))
2018 ret
->value
+= pe_data (abfd
)->pe_opthdr
.ImageBase
;
2022 /* Handle the .idata section and other things that need symbol table
2026 _bfd_XXi_final_link_postscript (abfd
, pfinfo
)
2028 struct coff_final_link_info
*pfinfo
;
2030 struct coff_link_hash_entry
*h1
;
2031 struct bfd_link_info
*info
= pfinfo
->info
;
2033 /* There are a few fields that need to be filled in now while we
2034 have symbol table access.
2036 The .idata subsections aren't directly available as sections, but
2037 they are in the symbol table, so get them from there. */
2039 /* The import directory. This is the address of .idata$2, with size
2040 of .idata$2 + .idata$3. */
2041 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2042 ".idata$2", FALSE
, FALSE
, TRUE
);
2045 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
=
2046 (h1
->root
.u
.def
.value
2047 + h1
->root
.u
.def
.section
->output_section
->vma
2048 + h1
->root
.u
.def
.section
->output_offset
);
2049 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2050 ".idata$4", FALSE
, FALSE
, TRUE
);
2051 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].Size
=
2052 ((h1
->root
.u
.def
.value
2053 + h1
->root
.u
.def
.section
->output_section
->vma
2054 + h1
->root
.u
.def
.section
->output_offset
)
2055 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
);
2057 /* The import address table. This is the size/address of
2059 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2060 ".idata$5", FALSE
, FALSE
, TRUE
);
2061 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
=
2062 (h1
->root
.u
.def
.value
2063 + h1
->root
.u
.def
.section
->output_section
->vma
2064 + h1
->root
.u
.def
.section
->output_offset
);
2065 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2066 ".idata$6", FALSE
, FALSE
, TRUE
);
2067 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].Size
=
2068 ((h1
->root
.u
.def
.value
2069 + h1
->root
.u
.def
.section
->output_section
->vma
2070 + h1
->root
.u
.def
.section
->output_offset
)
2071 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
);
2074 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2075 "__tls_used", FALSE
, FALSE
, TRUE
);
2078 pe_data (abfd
)->pe_opthdr
.DataDirectory
[9].VirtualAddress
=
2079 (h1
->root
.u
.def
.value
2080 + h1
->root
.u
.def
.section
->output_section
->vma
2081 + h1
->root
.u
.def
.section
->output_offset
2082 - pe_data (abfd
)->pe_opthdr
.ImageBase
);
2083 pe_data (abfd
)->pe_opthdr
.DataDirectory
[9].Size
= 0x18;
2086 /* If we couldn't find idata$2, we either have an excessively
2087 trivial program or are in DEEP trouble; we have to assume trivial