1 /* Support for the generic parts of PE/PEI; the common executable parts.
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
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
;
576 if (pe
->force_minimum_alignment
)
578 if (!extra
->FileAlignment
)
579 extra
->FileAlignment
= PE_DEF_FILE_ALIGNMENT
;
580 if (!extra
->SectionAlignment
)
581 extra
->SectionAlignment
= PE_DEF_SECTION_ALIGNMENT
;
584 if (extra
->Subsystem
== IMAGE_SUBSYSTEM_UNKNOWN
)
585 extra
->Subsystem
= pe
->target_subsystem
;
587 sa
= extra
->SectionAlignment
;
588 fa
= extra
->FileAlignment
;
589 ib
= extra
->ImageBase
;
591 idata2
= pe
->pe_opthdr
.DataDirectory
[1];
592 idata5
= pe
->pe_opthdr
.DataDirectory
[12];
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
;
645 if (extra
->DataDirectory
[1].VirtualAddress
== 0)
646 /* Until other .idata fixes are made (pending patch), the entry for
647 .idata is needed for backwards compatability. FIXME. */
648 add_data_entry (abfd
, extra
, 1, ".idata", ib
);
650 /* For some reason, the virtual size (which is what's set by
651 add_data_entry) for .reloc is not the same as the size recorded
652 in this slot by MSVC; it doesn't seem to cause problems (so far),
653 but since it's the best we've got, use it. It does do the right
655 if (pe
->has_reloc_section
)
656 add_data_entry (abfd
, extra
, 5, ".reloc", ib
);
661 bfd_vma isize
= SA(abfd
->sections
->filepos
);
664 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
666 int rounded
= FA(sec
->_raw_size
);
668 if (sec
->flags
& SEC_DATA
)
670 if (sec
->flags
& SEC_CODE
)
672 /* The image size is the total VIRTUAL size (which is what is
673 in the virt_size field). Files have been seen (from MSVC
674 5.0 link.exe) where the file size of the .data segment is
675 quite small compared to the virtual size. Without this
676 fix, strip munges the file. */
677 isize
+= SA (FA (pei_section_data (abfd
, sec
)->virt_size
));
680 aouthdr_in
->dsize
= dsize
;
681 aouthdr_in
->tsize
= tsize
;
682 extra
->SizeOfImage
= isize
;
685 extra
->SizeOfHeaders
= abfd
->sections
->filepos
;
686 H_PUT_16 (abfd
, aouthdr_in
->magic
, aouthdr_out
->standard
.magic
);
688 #define LINKER_VERSION 256 /* That is, 2.56 */
690 /* This piece of magic sets the "linker version" field to
692 H_PUT_16 (abfd
, (LINKER_VERSION
/ 100 + (LINKER_VERSION
% 100) * 256),
693 aouthdr_out
->standard
.vstamp
);
695 PUT_AOUTHDR_TSIZE (abfd
, aouthdr_in
->tsize
, aouthdr_out
->standard
.tsize
);
696 PUT_AOUTHDR_DSIZE (abfd
, aouthdr_in
->dsize
, aouthdr_out
->standard
.dsize
);
697 PUT_AOUTHDR_BSIZE (abfd
, aouthdr_in
->bsize
, aouthdr_out
->standard
.bsize
);
698 PUT_AOUTHDR_ENTRY (abfd
, aouthdr_in
->entry
, aouthdr_out
->standard
.entry
);
699 PUT_AOUTHDR_TEXT_START (abfd
, aouthdr_in
->text_start
,
700 aouthdr_out
->standard
.text_start
);
702 #ifndef COFF_WITH_pep
703 /* PE32+ does not have data_start member! */
704 PUT_AOUTHDR_DATA_START (abfd
, aouthdr_in
->data_start
,
705 aouthdr_out
->standard
.data_start
);
708 PUT_OPTHDR_IMAGE_BASE (abfd
, extra
->ImageBase
, aouthdr_out
->ImageBase
);
709 H_PUT_32 (abfd
, extra
->SectionAlignment
, aouthdr_out
->SectionAlignment
);
710 H_PUT_32 (abfd
, extra
->FileAlignment
, aouthdr_out
->FileAlignment
);
711 H_PUT_16 (abfd
, extra
->MajorOperatingSystemVersion
,
712 aouthdr_out
->MajorOperatingSystemVersion
);
713 H_PUT_16 (abfd
, extra
->MinorOperatingSystemVersion
,
714 aouthdr_out
->MinorOperatingSystemVersion
);
715 H_PUT_16 (abfd
, extra
->MajorImageVersion
, aouthdr_out
->MajorImageVersion
);
716 H_PUT_16 (abfd
, extra
->MinorImageVersion
, aouthdr_out
->MinorImageVersion
);
717 H_PUT_16 (abfd
, extra
->MajorSubsystemVersion
,
718 aouthdr_out
->MajorSubsystemVersion
);
719 H_PUT_16 (abfd
, extra
->MinorSubsystemVersion
,
720 aouthdr_out
->MinorSubsystemVersion
);
721 H_PUT_32 (abfd
, extra
->Reserved1
, aouthdr_out
->Reserved1
);
722 H_PUT_32 (abfd
, extra
->SizeOfImage
, aouthdr_out
->SizeOfImage
);
723 H_PUT_32 (abfd
, extra
->SizeOfHeaders
, aouthdr_out
->SizeOfHeaders
);
724 H_PUT_32 (abfd
, extra
->CheckSum
, aouthdr_out
->CheckSum
);
725 H_PUT_16 (abfd
, extra
->Subsystem
, aouthdr_out
->Subsystem
);
726 H_PUT_16 (abfd
, extra
->DllCharacteristics
, aouthdr_out
->DllCharacteristics
);
727 PUT_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, extra
->SizeOfStackReserve
,
728 aouthdr_out
->SizeOfStackReserve
);
729 PUT_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, extra
->SizeOfStackCommit
,
730 aouthdr_out
->SizeOfStackCommit
);
731 PUT_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, extra
->SizeOfHeapReserve
,
732 aouthdr_out
->SizeOfHeapReserve
);
733 PUT_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, extra
->SizeOfHeapCommit
,
734 aouthdr_out
->SizeOfHeapCommit
);
735 H_PUT_32 (abfd
, extra
->LoaderFlags
, aouthdr_out
->LoaderFlags
);
736 H_PUT_32 (abfd
, extra
->NumberOfRvaAndSizes
,
737 aouthdr_out
->NumberOfRvaAndSizes
);
741 for (idx
= 0; idx
< 16; idx
++)
743 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].VirtualAddress
,
744 aouthdr_out
->DataDirectory
[idx
][0]);
745 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].Size
,
746 aouthdr_out
->DataDirectory
[idx
][1]);
754 _bfd_XXi_only_swap_filehdr_out (abfd
, in
, out
)
760 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
761 struct external_PEI_filehdr
*filehdr_out
= (struct external_PEI_filehdr
*) out
;
763 if (pe_data (abfd
)->has_reloc_section
)
764 filehdr_in
->f_flags
&= ~F_RELFLG
;
766 if (pe_data (abfd
)->dll
)
767 filehdr_in
->f_flags
|= F_DLL
;
769 filehdr_in
->pe
.e_magic
= DOSMAGIC
;
770 filehdr_in
->pe
.e_cblp
= 0x90;
771 filehdr_in
->pe
.e_cp
= 0x3;
772 filehdr_in
->pe
.e_crlc
= 0x0;
773 filehdr_in
->pe
.e_cparhdr
= 0x4;
774 filehdr_in
->pe
.e_minalloc
= 0x0;
775 filehdr_in
->pe
.e_maxalloc
= 0xffff;
776 filehdr_in
->pe
.e_ss
= 0x0;
777 filehdr_in
->pe
.e_sp
= 0xb8;
778 filehdr_in
->pe
.e_csum
= 0x0;
779 filehdr_in
->pe
.e_ip
= 0x0;
780 filehdr_in
->pe
.e_cs
= 0x0;
781 filehdr_in
->pe
.e_lfarlc
= 0x40;
782 filehdr_in
->pe
.e_ovno
= 0x0;
784 for (idx
= 0; idx
< 4; idx
++)
785 filehdr_in
->pe
.e_res
[idx
] = 0x0;
787 filehdr_in
->pe
.e_oemid
= 0x0;
788 filehdr_in
->pe
.e_oeminfo
= 0x0;
790 for (idx
= 0; idx
< 10; idx
++)
791 filehdr_in
->pe
.e_res2
[idx
] = 0x0;
793 filehdr_in
->pe
.e_lfanew
= 0x80;
795 /* This next collection of data are mostly just characters. It
796 appears to be constant within the headers put on NT exes. */
797 filehdr_in
->pe
.dos_message
[0] = 0x0eba1f0e;
798 filehdr_in
->pe
.dos_message
[1] = 0xcd09b400;
799 filehdr_in
->pe
.dos_message
[2] = 0x4c01b821;
800 filehdr_in
->pe
.dos_message
[3] = 0x685421cd;
801 filehdr_in
->pe
.dos_message
[4] = 0x70207369;
802 filehdr_in
->pe
.dos_message
[5] = 0x72676f72;
803 filehdr_in
->pe
.dos_message
[6] = 0x63206d61;
804 filehdr_in
->pe
.dos_message
[7] = 0x6f6e6e61;
805 filehdr_in
->pe
.dos_message
[8] = 0x65622074;
806 filehdr_in
->pe
.dos_message
[9] = 0x6e757220;
807 filehdr_in
->pe
.dos_message
[10] = 0x206e6920;
808 filehdr_in
->pe
.dos_message
[11] = 0x20534f44;
809 filehdr_in
->pe
.dos_message
[12] = 0x65646f6d;
810 filehdr_in
->pe
.dos_message
[13] = 0x0a0d0d2e;
811 filehdr_in
->pe
.dos_message
[14] = 0x24;
812 filehdr_in
->pe
.dos_message
[15] = 0x0;
813 filehdr_in
->pe
.nt_signature
= NT_SIGNATURE
;
815 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
816 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
818 H_PUT_32 (abfd
, time (0), filehdr_out
->f_timdat
);
819 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
,
820 filehdr_out
->f_symptr
);
821 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
822 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
823 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
825 /* Put in extra dos header stuff. This data remains essentially
826 constant, it just has to be tacked on to the beginning of all exes
828 H_PUT_16 (abfd
, filehdr_in
->pe
.e_magic
, filehdr_out
->e_magic
);
829 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cblp
, filehdr_out
->e_cblp
);
830 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cp
, filehdr_out
->e_cp
);
831 H_PUT_16 (abfd
, filehdr_in
->pe
.e_crlc
, filehdr_out
->e_crlc
);
832 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cparhdr
, filehdr_out
->e_cparhdr
);
833 H_PUT_16 (abfd
, filehdr_in
->pe
.e_minalloc
, filehdr_out
->e_minalloc
);
834 H_PUT_16 (abfd
, filehdr_in
->pe
.e_maxalloc
, filehdr_out
->e_maxalloc
);
835 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ss
, filehdr_out
->e_ss
);
836 H_PUT_16 (abfd
, filehdr_in
->pe
.e_sp
, filehdr_out
->e_sp
);
837 H_PUT_16 (abfd
, filehdr_in
->pe
.e_csum
, filehdr_out
->e_csum
);
838 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ip
, filehdr_out
->e_ip
);
839 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cs
, filehdr_out
->e_cs
);
840 H_PUT_16 (abfd
, filehdr_in
->pe
.e_lfarlc
, filehdr_out
->e_lfarlc
);
841 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ovno
, filehdr_out
->e_ovno
);
843 for (idx
= 0; idx
< 4; idx
++)
844 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res
[idx
], filehdr_out
->e_res
[idx
]);
846 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oemid
, filehdr_out
->e_oemid
);
847 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oeminfo
, filehdr_out
->e_oeminfo
);
849 for (idx
= 0; idx
< 10; idx
++)
850 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res2
[idx
], filehdr_out
->e_res2
[idx
]);
852 H_PUT_32 (abfd
, filehdr_in
->pe
.e_lfanew
, filehdr_out
->e_lfanew
);
854 for (idx
= 0; idx
< 16; idx
++)
855 H_PUT_32 (abfd
, filehdr_in
->pe
.dos_message
[idx
],
856 filehdr_out
->dos_message
[idx
]);
858 /* Also put in the NT signature. */
859 H_PUT_32 (abfd
, filehdr_in
->pe
.nt_signature
, filehdr_out
->nt_signature
);
865 _bfd_XX_only_swap_filehdr_out (abfd
, in
, out
)
870 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
871 FILHDR
*filehdr_out
= (FILHDR
*) out
;
873 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
874 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
875 H_PUT_32 (abfd
, filehdr_in
->f_timdat
, filehdr_out
->f_timdat
);
876 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
, filehdr_out
->f_symptr
);
877 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
878 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
879 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
885 _bfd_XXi_swap_scnhdr_out (abfd
, in
, out
)
890 struct internal_scnhdr
*scnhdr_int
= (struct internal_scnhdr
*) in
;
891 SCNHDR
*scnhdr_ext
= (SCNHDR
*) out
;
892 unsigned int ret
= SCNHSZ
;
896 memcpy (scnhdr_ext
->s_name
, scnhdr_int
->s_name
, sizeof (scnhdr_int
->s_name
));
898 PUT_SCNHDR_VADDR (abfd
,
899 ((scnhdr_int
->s_vaddr
900 - pe_data (abfd
)->pe_opthdr
.ImageBase
)
902 scnhdr_ext
->s_vaddr
);
904 /* NT wants the size data to be rounded up to the next
905 NT_FILE_ALIGNMENT, but zero if it has no content (as in .bss,
907 if ((scnhdr_int
->s_flags
& IMAGE_SCN_CNT_UNINITIALIZED_DATA
) != 0)
909 ps
= scnhdr_int
->s_size
;
914 ps
= scnhdr_int
->s_paddr
;
915 ss
= scnhdr_int
->s_size
;
918 PUT_SCNHDR_SIZE (abfd
, ss
,
921 /* s_paddr in PE is really the virtual size. */
922 PUT_SCNHDR_PADDR (abfd
, ps
, scnhdr_ext
->s_paddr
);
924 PUT_SCNHDR_SCNPTR (abfd
, scnhdr_int
->s_scnptr
,
925 scnhdr_ext
->s_scnptr
);
926 PUT_SCNHDR_RELPTR (abfd
, scnhdr_int
->s_relptr
,
927 scnhdr_ext
->s_relptr
);
928 PUT_SCNHDR_LNNOPTR (abfd
, scnhdr_int
->s_lnnoptr
,
929 scnhdr_ext
->s_lnnoptr
);
931 /* Extra flags must be set when dealing with NT. All sections should also
932 have the IMAGE_SCN_MEM_READ (0x40000000) flag set. In addition, the
933 .text section must have IMAGE_SCN_MEM_EXECUTE (0x20000000) and the data
934 sections (.idata, .data, .bss, .CRT) must have IMAGE_SCN_MEM_WRITE set
935 (this is especially important when dealing with the .idata section since
936 the addresses for routines from .dlls must be overwritten). If .reloc
937 section data is ever generated, we must add IMAGE_SCN_MEM_DISCARDABLE
938 (0x02000000). Also, the resource data should also be read and
941 /* FIXME: alignment is also encoded in this field, at least on ppc (krk) */
942 /* FIXME: even worse, I don't see how to get the original alignment field*/
946 int flags
= scnhdr_int
->s_flags
;
948 H_PUT_32 (abfd
, flags
, scnhdr_ext
->s_flags
);
951 if (coff_data (abfd
)->link_info
952 && ! coff_data (abfd
)->link_info
->relocateable
953 && ! coff_data (abfd
)->link_info
->shared
954 && strcmp (scnhdr_int
->s_name
, ".text") == 0)
956 /* By inference from looking at MS output, the 32 bit field
957 which is the combintion of the number_of_relocs and
958 number_of_linenos is used for the line number count in
959 executables. A 16-bit field won't do for cc1. The MS
960 document says that the number of relocs is zero for
961 executables, but the 17-th bit has been observed to be there.
962 Overflow is not an issue: a 4G-line program will overflow a
963 bunch of other fields long before this! */
964 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
& 0xffff), scnhdr_ext
->s_nlnno
);
965 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
>> 16), scnhdr_ext
->s_nreloc
);
969 if (scnhdr_int
->s_nlnno
<= 0xffff)
970 H_PUT_16 (abfd
, scnhdr_int
->s_nlnno
, scnhdr_ext
->s_nlnno
);
973 (*_bfd_error_handler
) (_("%s: line number overflow: 0x%lx > 0xffff"),
974 bfd_get_filename (abfd
),
975 scnhdr_int
->s_nlnno
);
976 bfd_set_error (bfd_error_file_truncated
);
977 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nlnno
);
981 if (scnhdr_int
->s_nreloc
<= 0xffff)
982 H_PUT_16 (abfd
, scnhdr_int
->s_nreloc
, scnhdr_ext
->s_nreloc
);
985 /* PE can deal with large #s of relocs, but not here. */
986 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
987 scnhdr_int
->s_flags
|= IMAGE_SCN_LNK_NRELOC_OVFL
;
988 H_PUT_32 (abfd
, scnhdr_int
->s_flags
, scnhdr_ext
->s_flags
);
990 (*_bfd_error_handler
) (_("%s: reloc overflow 1: 0x%lx > 0xffff"),
991 bfd_get_filename (abfd
),
992 scnhdr_int
->s_nreloc
);
993 bfd_set_error (bfd_error_file_truncated
);
994 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
1002 static char * dir_names
[IMAGE_NUMBEROF_DIRECTORY_ENTRIES
] =
1004 N_("Export Directory [.edata (or where ever we found it)]"),
1005 N_("Import Directory [parts of .idata]"),
1006 N_("Resource Directory [.rsrc]"),
1007 N_("Exception Directory [.pdata]"),
1008 N_("Security Directory"),
1009 N_("Base Relocation Directory [.reloc]"),
1010 N_("Debug Directory"),
1011 N_("Description Directory"),
1012 N_("Special Directory"),
1013 N_("Thread Storage Directory [.tls]"),
1014 N_("Load Configuration Directory"),
1015 N_("Bound Import Directory"),
1016 N_("Import Address Table Directory"),
1017 N_("Delay Import Directory"),
1022 #ifdef POWERPC_LE_PE
1023 /* The code for the PPC really falls in the "architecture dependent"
1024 category. However, it's not clear that anyone will ever care, so
1025 we're ignoring the issue for now; if/when PPC matters, some of this
1026 may need to go into peicode.h, or arguments passed to enable the
1027 PPC- specific code. */
1031 pe_print_idata (abfd
, 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
;
1050 pe_data_type
*pe
= pe_data (abfd
);
1051 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1055 addr
= extra
->DataDirectory
[1].VirtualAddress
;
1057 if (addr
== 0 && extra
->DataDirectory
[1].Size
== 0)
1059 /* Maybe the extra header isn't there. Look for the section. */
1060 section
= bfd_get_section_by_name (abfd
, ".idata");
1061 if (section
== NULL
)
1064 addr
= section
->vma
;
1065 datasize
= bfd_section_size (abfd
, section
);
1071 addr
+= extra
->ImageBase
;
1072 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1074 datasize
= bfd_section_size (abfd
, section
);
1075 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1079 if (section
== NULL
)
1082 _("\nThere is an import table, but the section containing it could not be found\n"));
1087 fprintf (file
, _("\nThere is an import table in %s at 0x%lx\n"),
1088 section
->name
, (unsigned long) addr
);
1090 dataoff
= addr
- section
->vma
;
1091 datasize
-= dataoff
;
1093 #ifdef POWERPC_LE_PE
1094 if (rel_section
!= 0 && bfd_section_size (abfd
, rel_section
) != 0)
1096 /* The toc address can be found by taking the starting address,
1097 which on the PPC locates a function descriptor. The
1098 descriptor consists of the function code starting address
1099 followed by the address of the toc. The starting address we
1100 get from the bfd, and the descriptor is supposed to be in the
1101 .reldata section. */
1103 bfd_vma loadable_toc_address
;
1104 bfd_vma toc_address
;
1105 bfd_vma start_address
;
1109 amt
= bfd_section_size (abfd
, rel_section
);
1110 data
= (bfd_byte
*) bfd_malloc (amt
);
1111 if (data
== NULL
&& amt
!= 0)
1114 bfd_get_section_contents (abfd
, rel_section
, (PTR
) data
, (bfd_vma
) 0,
1117 offset
= abfd
->start_address
- rel_section
->vma
;
1119 start_address
= bfd_get_32 (abfd
, data
+ offset
);
1120 loadable_toc_address
= bfd_get_32 (abfd
, data
+ offset
+ 4);
1121 toc_address
= loadable_toc_address
- 32768;
1124 _("\nFunction descriptor located at the start address: %04lx\n"),
1125 (unsigned long int) (abfd
->start_address
));
1127 _("\tcode-base %08lx toc (loadable/actual) %08lx/%08lx\n"),
1128 start_address
, loadable_toc_address
, toc_address
);
1133 _("\nNo reldata section! Function descriptor not decoded.\n"));
1138 _("\nThe Import Tables (interpreted %s section contents)\n"),
1142 vma: Hint Time Forward DLL First\n\
1143 Table Stamp Chain Name Thunk\n"));
1145 amt
= dataoff
+ datasize
;
1146 data
= (bfd_byte
*) bfd_malloc (amt
);
1150 /* Read the whole section. Some of the fields might be before dataoff. */
1151 if (! bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0, amt
))
1154 adj
= section
->vma
- extra
->ImageBase
;
1156 /* Print all image import descriptors. */
1157 for (i
= 0; i
< datasize
; i
+= onaline
)
1161 bfd_vma forward_chain
;
1163 bfd_vma first_thunk
;
1168 /* Print (i + extra->DataDirectory[1].VirtualAddress). */
1169 fprintf (file
, " %08lx\t", (unsigned long) (i
+ adj
+ dataoff
));
1171 if (i
+ 20 > datasize
)
1175 hint_addr
= bfd_get_32 (abfd
, data
+ i
+ dataoff
);
1176 time_stamp
= bfd_get_32 (abfd
, data
+ i
+ 4 + dataoff
);
1177 forward_chain
= bfd_get_32 (abfd
, data
+ i
+ 8 + dataoff
);
1178 dll_name
= bfd_get_32 (abfd
, data
+ i
+ 12 + dataoff
);
1179 first_thunk
= bfd_get_32 (abfd
, data
+ i
+ 16 + dataoff
);
1181 fprintf (file
, "%08lx %08lx %08lx %08lx %08lx\n",
1182 (unsigned long) hint_addr
,
1183 (unsigned long) time_stamp
,
1184 (unsigned long) forward_chain
,
1185 (unsigned long) dll_name
,
1186 (unsigned long) first_thunk
);
1188 if (hint_addr
== 0 && first_thunk
== 0)
1191 dll
= (char *) data
+ dll_name
- adj
;
1192 fprintf (file
, _("\n\tDLL Name: %s\n"), dll
);
1197 asection
*ft_section
;
1199 bfd_size_type ft_datasize
;
1201 int ft_allocated
= 0;
1203 fprintf (file
, _("\tvma: Hint/Ord Member-Name Bound-To\n"));
1205 idx
= hint_addr
- adj
;
1207 ft_addr
= first_thunk
+ extra
->ImageBase
;
1209 ft_idx
= first_thunk
- adj
;
1212 if (first_thunk
!= hint_addr
)
1214 /* Find the section which contains the first thunk. */
1215 for (ft_section
= abfd
->sections
;
1217 ft_section
= ft_section
->next
)
1219 ft_datasize
= bfd_section_size (abfd
, ft_section
);
1220 if (ft_addr
>= ft_section
->vma
1221 && ft_addr
< ft_section
->vma
+ ft_datasize
)
1225 if (ft_section
== NULL
)
1228 _("\nThere is a first thunk, but the section containing it could not be found\n"));
1232 /* Now check to see if this section is the same as our current
1233 section. If it is not then we will have to load its data in. */
1234 if (ft_section
== section
)
1237 ft_idx
= first_thunk
- adj
;
1241 ft_idx
= first_thunk
- (ft_section
->vma
- extra
->ImageBase
);
1242 ft_data
= (bfd_byte
*) bfd_malloc (datasize
);
1243 if (ft_data
== NULL
)
1246 /* Read datasize bfd_bytes starting at offset ft_idx. */
1247 if (! bfd_get_section_contents (abfd
, ft_section
,
1261 /* Print HintName vector entries. */
1262 for (j
= 0; j
< datasize
; j
+= 4)
1264 unsigned long member
= bfd_get_32 (abfd
, data
+ idx
+ j
);
1266 /* Print single IMAGE_IMPORT_BY_NAME vector. */
1270 if (member
& 0x80000000)
1271 fprintf (file
, "\t%04lx\t %4lu <none>",
1272 member
, member
& 0x7fffffff);
1278 ordinal
= bfd_get_16 (abfd
, data
+ member
- adj
);
1279 member_name
= (char *) data
+ member
- adj
+ 2;
1280 fprintf (file
, "\t%04lx\t %4d %s",
1281 member
, ordinal
, member_name
);
1284 /* If the time stamp is not zero, the import address
1285 table holds actual addresses. */
1288 && first_thunk
!= hint_addr
)
1289 fprintf (file
, "\t%04lx",
1290 (long) bfd_get_32 (abfd
, ft_data
+ ft_idx
+ j
));
1292 fprintf (file
, "\n");
1299 fprintf (file
, "\n");
1308 pe_print_edata (abfd
, 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
= bfd_section_size (abfd
, section
);
1355 addr
+= extra
->ImageBase
;
1357 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1359 datasize
= bfd_section_size (abfd
, section
);
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_byte
*) bfd_malloc (datasize
);
1383 if (! bfd_get_section_contents (abfd
, section
, (PTR
) 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;
1464 _("\nExport Address Table -- Ordinal Base %ld\n"),
1467 for (i
= 0; i
< edt
.num_functions
; ++i
)
1469 bfd_vma eat_member
= bfd_get_32 (abfd
,
1470 data
+ edt
.eat_addr
+ (i
* 4) - adj
);
1471 if (eat_member
== 0)
1474 if (eat_member
- adj
<= datasize
)
1476 /* This rva is to a name (forwarding function) in our section. */
1477 /* Should locate a function descriptor. */
1479 "\t[%4ld] +base[%4ld] %04lx %s -- %s\n",
1481 (long) (i
+ edt
.base
),
1482 (unsigned long) eat_member
,
1484 data
+ eat_member
- adj
);
1488 /* Should locate a function descriptor in the reldata section. */
1490 "\t[%4ld] +base[%4ld] %04lx %s\n",
1492 (long) (i
+ edt
.base
),
1493 (unsigned long) eat_member
,
1498 /* The Export Name Pointer Table is paired with the Export Ordinal Table. */
1499 /* Dump them in parallel for clarity. */
1501 _("\n[Ordinal/Name Pointer] Table\n"));
1503 for (i
= 0; i
< edt
.num_names
; ++i
)
1505 bfd_vma name_ptr
= bfd_get_32 (abfd
,
1510 char *name
= (char *) data
+ name_ptr
- adj
;
1512 bfd_vma ord
= bfd_get_16 (abfd
,
1517 "\t[%4ld] %s\n", (long) ord
, name
);
1525 /* This really is architecture dependent. On IA-64, a .pdata entry
1526 consists of three dwords containing relative virtual addresses that
1527 specify the start and end address of the code range the entry
1528 covers and the address of the corresponding unwind info data. */
1531 pe_print_pdata (abfd
, vfile
)
1535 #ifdef COFF_WITH_pep
1536 # define PDATA_ROW_SIZE (3*8)
1538 # define PDATA_ROW_SIZE (5*4)
1540 FILE *file
= (FILE *) vfile
;
1542 asection
*section
= bfd_get_section_by_name (abfd
, ".pdata");
1543 bfd_size_type datasize
= 0;
1545 bfd_size_type start
, stop
;
1546 int onaline
= PDATA_ROW_SIZE
;
1549 || coff_section_data (abfd
, section
) == NULL
1550 || pei_section_data (abfd
, section
) == NULL
)
1553 stop
= pei_section_data (abfd
, section
)->virt_size
;
1554 if ((stop
% onaline
) != 0)
1556 _("Warning, .pdata section size (%ld) is not a multiple of %d\n"),
1557 (long) stop
, onaline
);
1560 _("\nThe Function Table (interpreted .pdata section contents)\n"));
1561 #ifdef COFF_WITH_pep
1563 _(" vma:\t\t\tBegin Address End Address Unwind Info\n"));
1566 vma:\t\tBegin End EH EH PrologEnd Exception\n\
1567 \t\tAddress Address Handler Data Address Mask\n"));
1570 datasize
= bfd_section_size (abfd
, section
);
1574 data
= (bfd_byte
*) bfd_malloc (datasize
);
1575 if (data
== NULL
&& datasize
!= 0)
1578 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1583 for (i
= start
; i
< stop
; i
+= onaline
)
1589 bfd_vma prolog_end_addr
;
1592 if (i
+ PDATA_ROW_SIZE
> stop
)
1595 begin_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
);
1596 end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 4);
1597 eh_handler
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 8);
1598 eh_data
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 12);
1599 prolog_end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 16);
1601 if (begin_addr
== 0 && end_addr
== 0 && eh_handler
== 0
1602 && eh_data
== 0 && prolog_end_addr
== 0)
1603 /* We are probably into the padding of the section now. */
1606 em_data
= ((eh_handler
& 0x1) << 2) | (prolog_end_addr
& 0x3);
1607 eh_handler
&= ~(bfd_vma
) 0x3;
1608 prolog_end_addr
&= ~(bfd_vma
) 0x3;
1611 fprintf_vma (file
, i
+ section
->vma
); fputc ('\t', file
);
1612 fprintf_vma (file
, begin_addr
); fputc (' ', file
);
1613 fprintf_vma (file
, end_addr
); fputc (' ', file
);
1614 fprintf_vma (file
, eh_handler
);
1615 #ifndef COFF_WITH_pep
1617 fprintf_vma (file
, eh_data
); fputc (' ', file
);
1618 fprintf_vma (file
, prolog_end_addr
);
1619 fprintf (file
, " %x", em_data
);
1622 #ifdef POWERPC_LE_PE
1623 if (eh_handler
== 0 && eh_data
!= 0)
1625 /* Special bits here, although the meaning may be a little
1626 mysterious. The only one I know for sure is 0x03. */
1627 /* Code Significance */
1629 /* 0x01 Register Save Millicode */
1630 /* 0x02 Register Restore Millicode */
1631 /* 0x03 Glue Code Sequence */
1635 fprintf (file
, _(" Register save millicode"));
1638 fprintf (file
, _(" Register restore millicode"));
1641 fprintf (file
, _(" Glue code sequence"));
1648 fprintf (file
, "\n");
1656 #define IMAGE_REL_BASED_HIGHADJ 4
1657 static const char * const tbl
[] =
1671 "UNKNOWN", /* MUST be last */
1675 pe_print_reloc (abfd
, vfile
)
1679 FILE *file
= (FILE *) vfile
;
1681 asection
*section
= bfd_get_section_by_name (abfd
, ".reloc");
1682 bfd_size_type datasize
;
1684 bfd_size_type start
, stop
;
1686 if (section
== NULL
)
1689 if (bfd_section_size (abfd
, section
) == 0)
1693 _("\n\nPE File Base Relocations (interpreted .reloc section contents)\n"));
1695 datasize
= bfd_section_size (abfd
, section
);
1696 data
= (bfd_byte
*) bfd_malloc (datasize
);
1697 if (data
== NULL
&& datasize
!= 0)
1700 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1705 stop
= bfd_section_size (abfd
, section
);
1707 for (i
= start
; i
< stop
;)
1710 bfd_vma virtual_address
;
1713 /* The .reloc section is a sequence of blocks, with a header consisting
1714 of two 32 bit quantities, followed by a number of 16 bit entries. */
1715 virtual_address
= bfd_get_32 (abfd
, data
+i
);
1716 size
= bfd_get_32 (abfd
, data
+i
+4);
1717 number
= (size
- 8) / 2;
1723 _("\nVirtual Address: %08lx Chunk size %ld (0x%lx) Number of fixups %ld\n"),
1724 (unsigned long) virtual_address
, size
, size
, number
);
1726 for (j
= 0; j
< number
; ++j
)
1728 unsigned short e
= bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2);
1729 unsigned int t
= (e
& 0xF000) >> 12;
1730 int off
= e
& 0x0FFF;
1732 if (t
>= sizeof (tbl
) / sizeof (tbl
[0]))
1733 t
= (sizeof (tbl
) / sizeof (tbl
[0])) - 1;
1736 _("\treloc %4d offset %4x [%4lx] %s"),
1737 j
, off
, (long) (off
+ virtual_address
), tbl
[t
]);
1739 /* HIGHADJ takes an argument, - the next record *is* the
1740 low 16 bits of addend. */
1741 if (t
== IMAGE_REL_BASED_HIGHADJ
)
1743 fprintf (file
, " (%4x)",
1745 bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2 + 2)));
1749 fprintf (file
, "\n");
1760 /* Print out the program headers. */
1763 _bfd_XX_print_private_bfd_data_common (abfd
, vfile
)
1767 FILE *file
= (FILE *) vfile
;
1769 pe_data_type
*pe
= pe_data (abfd
);
1770 struct internal_extra_pe_aouthdr
*i
= &pe
->pe_opthdr
;
1771 const char *subsystem_name
= NULL
;
1773 /* The MS dumpbin program reportedly ands with 0xff0f before
1774 printing the characteristics field. Not sure why. No reason to
1776 fprintf (file
, _("\nCharacteristics 0x%x\n"), pe
->real_flags
);
1778 #define PF(x, y) if (pe->real_flags & x) { fprintf (file, "\t%s\n", y); }
1779 PF (F_RELFLG
, "relocations stripped");
1780 PF (F_EXEC
, "executable");
1781 PF (F_LNNO
, "line numbers stripped");
1782 PF (F_LSYMS
, "symbols stripped");
1783 PF (0x80, "little endian");
1784 PF (F_AR32WR
, "32 bit words");
1785 PF (0x200, "debugging information removed");
1786 PF (0x1000, "system file");
1788 PF (0x8000, "big endian");
1791 /* ctime implies '\n'. */
1793 time_t t
= pe
->coff
.timestamp
;
1794 fprintf (file
, "\nTime/Date\t\t%s", ctime (&t
));
1796 fprintf (file
, "\nImageBase\t\t");
1797 fprintf_vma (file
, i
->ImageBase
);
1798 fprintf (file
, "\nSectionAlignment\t");
1799 fprintf_vma (file
, i
->SectionAlignment
);
1800 fprintf (file
, "\nFileAlignment\t\t");
1801 fprintf_vma (file
, i
->FileAlignment
);
1802 fprintf (file
, "\nMajorOSystemVersion\t%d\n", i
->MajorOperatingSystemVersion
);
1803 fprintf (file
, "MinorOSystemVersion\t%d\n", i
->MinorOperatingSystemVersion
);
1804 fprintf (file
, "MajorImageVersion\t%d\n", i
->MajorImageVersion
);
1805 fprintf (file
, "MinorImageVersion\t%d\n", i
->MinorImageVersion
);
1806 fprintf (file
, "MajorSubsystemVersion\t%d\n", i
->MajorSubsystemVersion
);
1807 fprintf (file
, "MinorSubsystemVersion\t%d\n", i
->MinorSubsystemVersion
);
1808 fprintf (file
, "Win32Version\t\t%08lx\n", i
->Reserved1
);
1809 fprintf (file
, "SizeOfImage\t\t%08lx\n", i
->SizeOfImage
);
1810 fprintf (file
, "SizeOfHeaders\t\t%08lx\n", i
->SizeOfHeaders
);
1811 fprintf (file
, "CheckSum\t\t%08lx\n", i
->CheckSum
);
1813 switch (i
->Subsystem
)
1815 case IMAGE_SUBSYSTEM_UNKNOWN
:
1816 subsystem_name
= "unspecified";
1818 case IMAGE_SUBSYSTEM_NATIVE
:
1819 subsystem_name
= "NT native";
1821 case IMAGE_SUBSYSTEM_WINDOWS_GUI
:
1822 subsystem_name
= "Windows GUI";
1824 case IMAGE_SUBSYSTEM_WINDOWS_CUI
:
1825 subsystem_name
= "Windows CUI";
1827 case IMAGE_SUBSYSTEM_POSIX_CUI
:
1828 subsystem_name
= "POSIX CUI";
1830 case IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
:
1831 subsystem_name
= "Wince CUI";
1833 case IMAGE_SUBSYSTEM_EFI_APPLICATION
:
1834 subsystem_name
= "EFI application";
1836 case IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
:
1837 subsystem_name
= "EFI boot service driver";
1839 case IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
:
1840 subsystem_name
= "EFI runtime driver";
1844 fprintf (file
, "Subsystem\t\t%08x", i
->Subsystem
);
1846 fprintf (file
, "\t(%s)", subsystem_name
);
1847 fprintf (file
, "\nDllCharacteristics\t%08x\n", i
->DllCharacteristics
);
1848 fprintf (file
, "SizeOfStackReserve\t");
1849 fprintf_vma (file
, i
->SizeOfStackReserve
);
1850 fprintf (file
, "\nSizeOfStackCommit\t");
1851 fprintf_vma (file
, i
->SizeOfStackCommit
);
1852 fprintf (file
, "\nSizeOfHeapReserve\t");
1853 fprintf_vma (file
, i
->SizeOfHeapReserve
);
1854 fprintf (file
, "\nSizeOfHeapCommit\t");
1855 fprintf_vma (file
, i
->SizeOfHeapCommit
);
1856 fprintf (file
, "\nLoaderFlags\t\t%08lx\n", i
->LoaderFlags
);
1857 fprintf (file
, "NumberOfRvaAndSizes\t%08lx\n", i
->NumberOfRvaAndSizes
);
1859 fprintf (file
, "\nThe Data Directory\n");
1860 for (j
= 0; j
< IMAGE_NUMBEROF_DIRECTORY_ENTRIES
; j
++)
1862 fprintf (file
, "Entry %1x ", j
);
1863 fprintf_vma (file
, i
->DataDirectory
[j
].VirtualAddress
);
1864 fprintf (file
, " %08lx ", i
->DataDirectory
[j
].Size
);
1865 fprintf (file
, "%s\n", dir_names
[j
]);
1868 pe_print_idata (abfd
, vfile
);
1869 pe_print_edata (abfd
, vfile
);
1870 pe_print_pdata (abfd
, vfile
);
1871 pe_print_reloc (abfd
, vfile
);
1876 /* Copy any private info we understand from the input bfd
1877 to the output bfd. */
1880 _bfd_XX_bfd_copy_private_bfd_data_common (ibfd
, obfd
)
1883 /* One day we may try to grok other private data. */
1884 if (ibfd
->xvec
->flavour
!= bfd_target_coff_flavour
1885 || obfd
->xvec
->flavour
!= bfd_target_coff_flavour
)
1888 pe_data (obfd
)->pe_opthdr
= pe_data (ibfd
)->pe_opthdr
;
1889 pe_data (obfd
)->dll
= pe_data (ibfd
)->dll
;
1891 /* For strip: if we removed .reloc, we'll make a real mess of things
1892 if we don't remove this entry as well. */
1893 if (! pe_data (obfd
)->has_reloc_section
)
1895 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].VirtualAddress
= 0;
1896 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].Size
= 0;
1901 /* Copy private section data. */
1904 _bfd_XX_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
1910 if (bfd_get_flavour (ibfd
) != bfd_target_coff_flavour
1911 || bfd_get_flavour (obfd
) != bfd_target_coff_flavour
)
1914 if (coff_section_data (ibfd
, isec
) != NULL
1915 && pei_section_data (ibfd
, isec
) != NULL
)
1917 if (coff_section_data (obfd
, osec
) == NULL
)
1919 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
1920 osec
->used_by_bfd
= (PTR
) bfd_zalloc (obfd
, amt
);
1921 if (osec
->used_by_bfd
== NULL
)
1925 if (pei_section_data (obfd
, osec
) == NULL
)
1927 bfd_size_type amt
= sizeof (struct pei_section_tdata
);
1928 coff_section_data (obfd
, osec
)->tdata
= (PTR
) bfd_zalloc (obfd
, amt
);
1929 if (coff_section_data (obfd
, osec
)->tdata
== NULL
)
1933 pei_section_data (obfd
, osec
)->virt_size
=
1934 pei_section_data (ibfd
, isec
)->virt_size
;
1935 pei_section_data (obfd
, osec
)->pe_flags
=
1936 pei_section_data (ibfd
, isec
)->pe_flags
;
1943 _bfd_XX_get_symbol_info (abfd
, symbol
, ret
)
1948 coff_get_symbol_info (abfd
, symbol
, ret
);
1949 #if 0 /* This code no longer appears to be necessary.
1950 ImageBase has already been added in by coff_swap_scnhdr_in. */
1951 if (pe_data (abfd
) != NULL
1952 && ((symbol
->flags
& BSF_DEBUGGING
) == 0
1953 || (symbol
->flags
& BSF_DEBUGGING_RELOC
) != 0)
1954 && ! bfd_is_abs_section (symbol
->section
))
1955 ret
->value
+= pe_data (abfd
)->pe_opthdr
.ImageBase
;
1959 /* Handle the .idata section and other things that need symbol table
1963 _bfd_XXi_final_link_postscript (abfd
, pfinfo
)
1965 struct coff_final_link_info
*pfinfo
;
1967 struct coff_link_hash_entry
*h1
;
1968 struct bfd_link_info
*info
= pfinfo
->info
;
1970 /* There are a few fields that need to be filled in now while we
1971 have symbol table access.
1973 The .idata subsections aren't directly available as sections, but
1974 they are in the symbol table, so get them from there. */
1976 /* The import directory. This is the address of .idata$2, with size
1977 of .idata$2 + .idata$3. */
1978 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1979 ".idata$2", FALSE
, FALSE
, TRUE
);
1982 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
=
1983 (h1
->root
.u
.def
.value
1984 + h1
->root
.u
.def
.section
->output_section
->vma
1985 + h1
->root
.u
.def
.section
->output_offset
);
1986 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1987 ".idata$4", FALSE
, FALSE
, TRUE
);
1988 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].Size
=
1989 ((h1
->root
.u
.def
.value
1990 + h1
->root
.u
.def
.section
->output_section
->vma
1991 + h1
->root
.u
.def
.section
->output_offset
)
1992 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
);
1994 /* The import address table. This is the size/address of
1996 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1997 ".idata$5", FALSE
, FALSE
, TRUE
);
1998 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
=
1999 (h1
->root
.u
.def
.value
2000 + h1
->root
.u
.def
.section
->output_section
->vma
2001 + h1
->root
.u
.def
.section
->output_offset
);
2002 h1
= coff_link_hash_lookup (coff_hash_table (info
),
2003 ".idata$6", FALSE
, FALSE
, TRUE
);
2004 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].Size
=
2005 ((h1
->root
.u
.def
.value
2006 + h1
->root
.u
.def
.section
->output_section
->vma
2007 + h1
->root
.u
.def
.section
->output_offset
)
2008 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
);
2011 /* If we couldn't find idata$2, we either have an excessively
2012 trivial program or are in DEEP trouble; we have to assume trivial