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 boolean pe_print_pdata
PARAMS ((bfd
*, PTR
));
95 static boolean pe_print_reloc
PARAMS ((bfd
*, PTR
));
96 static boolean pe_print_idata
PARAMS ((bfd
*, PTR
));
97 static 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
;
574 if (pe
->force_minimum_alignment
)
576 if (!extra
->FileAlignment
)
577 extra
->FileAlignment
= PE_DEF_FILE_ALIGNMENT
;
578 if (!extra
->SectionAlignment
)
579 extra
->SectionAlignment
= PE_DEF_SECTION_ALIGNMENT
;
582 if (extra
->Subsystem
== IMAGE_SUBSYSTEM_UNKNOWN
)
583 extra
->Subsystem
= pe
->target_subsystem
;
585 sa
= extra
->SectionAlignment
;
586 fa
= extra
->FileAlignment
;
587 ib
= extra
->ImageBase
;
589 if (aouthdr_in
->tsize
)
591 aouthdr_in
->text_start
-= ib
;
592 #ifndef COFF_WITH_pep
593 aouthdr_in
->text_start
&= 0xffffffff;
597 if (aouthdr_in
->dsize
)
599 aouthdr_in
->data_start
-= ib
;
600 #ifndef COFF_WITH_pep
601 aouthdr_in
->data_start
&= 0xffffffff;
605 if (aouthdr_in
->entry
)
607 aouthdr_in
->entry
-= ib
;
608 #ifndef COFF_WITH_pep
609 aouthdr_in
->entry
&= 0xffffffff;
613 #define FA(x) (((x) + fa -1 ) & (- fa))
614 #define SA(x) (((x) + sa -1 ) & (- sa))
616 /* We like to have the sizes aligned. */
618 aouthdr_in
->bsize
= FA (aouthdr_in
->bsize
);
620 extra
->NumberOfRvaAndSizes
= IMAGE_NUMBEROF_DIRECTORY_ENTRIES
;
622 /* first null out all data directory entries .. */
623 memset (extra
->DataDirectory
, sizeof (extra
->DataDirectory
), 0);
625 add_data_entry (abfd
, extra
, 0, ".edata", ib
);
627 /* Don't call add_data_entry for .idata$2 or .idata$5. It's done in
628 bfd_coff_final_link where all the required information is
631 /* However, until other .idata fixes are made (pending patch), the
632 entry for .idata is needed for backwards compatability. FIXME. */
633 add_data_entry (abfd
, extra
, 1, ".idata", ib
);
635 add_data_entry (abfd
, extra
, 2, ".rsrc", ib
);
637 add_data_entry (abfd
, extra
, 3, ".pdata", ib
);
639 /* For some reason, the virtual size (which is what's set by
640 add_data_entry) for .reloc is not the same as the size recorded
641 in this slot by MSVC; it doesn't seem to cause problems (so far),
642 but since it's the best we've got, use it. It does do the right
644 if (pe
->has_reloc_section
)
645 add_data_entry (abfd
, extra
, 5, ".reloc", ib
);
650 bfd_vma isize
= SA(abfd
->sections
->filepos
);
653 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
655 int rounded
= FA(sec
->_raw_size
);
657 if (sec
->flags
& SEC_DATA
)
659 if (sec
->flags
& SEC_CODE
)
661 /* The image size is the total VIRTUAL size (which is what is
662 in the virt_size field). Files have been seen (from MSVC
663 5.0 link.exe) where the file size of the .data segment is
664 quite small compared to the virtual size. Without this
665 fix, strip munges the file. */
666 isize
+= SA (FA (pei_section_data (abfd
, sec
)->virt_size
));
669 aouthdr_in
->dsize
= dsize
;
670 aouthdr_in
->tsize
= tsize
;
671 extra
->SizeOfImage
= isize
;
674 extra
->SizeOfHeaders
= abfd
->sections
->filepos
;
675 H_PUT_16 (abfd
, aouthdr_in
->magic
, aouthdr_out
->standard
.magic
);
677 #define LINKER_VERSION 256 /* That is, 2.56 */
679 /* This piece of magic sets the "linker version" field to
681 H_PUT_16 (abfd
, (LINKER_VERSION
/ 100 + (LINKER_VERSION
% 100) * 256),
682 aouthdr_out
->standard
.vstamp
);
684 PUT_AOUTHDR_TSIZE (abfd
, aouthdr_in
->tsize
, aouthdr_out
->standard
.tsize
);
685 PUT_AOUTHDR_DSIZE (abfd
, aouthdr_in
->dsize
, aouthdr_out
->standard
.dsize
);
686 PUT_AOUTHDR_BSIZE (abfd
, aouthdr_in
->bsize
, aouthdr_out
->standard
.bsize
);
687 PUT_AOUTHDR_ENTRY (abfd
, aouthdr_in
->entry
, aouthdr_out
->standard
.entry
);
688 PUT_AOUTHDR_TEXT_START (abfd
, aouthdr_in
->text_start
,
689 aouthdr_out
->standard
.text_start
);
691 #ifndef COFF_WITH_pep
692 /* PE32+ does not have data_start member! */
693 PUT_AOUTHDR_DATA_START (abfd
, aouthdr_in
->data_start
,
694 aouthdr_out
->standard
.data_start
);
697 PUT_OPTHDR_IMAGE_BASE (abfd
, extra
->ImageBase
, aouthdr_out
->ImageBase
);
698 H_PUT_32 (abfd
, extra
->SectionAlignment
, aouthdr_out
->SectionAlignment
);
699 H_PUT_32 (abfd
, extra
->FileAlignment
, aouthdr_out
->FileAlignment
);
700 H_PUT_16 (abfd
, extra
->MajorOperatingSystemVersion
,
701 aouthdr_out
->MajorOperatingSystemVersion
);
702 H_PUT_16 (abfd
, extra
->MinorOperatingSystemVersion
,
703 aouthdr_out
->MinorOperatingSystemVersion
);
704 H_PUT_16 (abfd
, extra
->MajorImageVersion
, aouthdr_out
->MajorImageVersion
);
705 H_PUT_16 (abfd
, extra
->MinorImageVersion
, aouthdr_out
->MinorImageVersion
);
706 H_PUT_16 (abfd
, extra
->MajorSubsystemVersion
,
707 aouthdr_out
->MajorSubsystemVersion
);
708 H_PUT_16 (abfd
, extra
->MinorSubsystemVersion
,
709 aouthdr_out
->MinorSubsystemVersion
);
710 H_PUT_32 (abfd
, extra
->Reserved1
, aouthdr_out
->Reserved1
);
711 H_PUT_32 (abfd
, extra
->SizeOfImage
, aouthdr_out
->SizeOfImage
);
712 H_PUT_32 (abfd
, extra
->SizeOfHeaders
, aouthdr_out
->SizeOfHeaders
);
713 H_PUT_32 (abfd
, extra
->CheckSum
, aouthdr_out
->CheckSum
);
714 H_PUT_16 (abfd
, extra
->Subsystem
, aouthdr_out
->Subsystem
);
715 H_PUT_16 (abfd
, extra
->DllCharacteristics
, aouthdr_out
->DllCharacteristics
);
716 PUT_OPTHDR_SIZE_OF_STACK_RESERVE (abfd
, extra
->SizeOfStackReserve
,
717 aouthdr_out
->SizeOfStackReserve
);
718 PUT_OPTHDR_SIZE_OF_STACK_COMMIT (abfd
, extra
->SizeOfStackCommit
,
719 aouthdr_out
->SizeOfStackCommit
);
720 PUT_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd
, extra
->SizeOfHeapReserve
,
721 aouthdr_out
->SizeOfHeapReserve
);
722 PUT_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd
, extra
->SizeOfHeapCommit
,
723 aouthdr_out
->SizeOfHeapCommit
);
724 H_PUT_32 (abfd
, extra
->LoaderFlags
, aouthdr_out
->LoaderFlags
);
725 H_PUT_32 (abfd
, extra
->NumberOfRvaAndSizes
,
726 aouthdr_out
->NumberOfRvaAndSizes
);
730 for (idx
= 0; idx
< 16; idx
++)
732 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].VirtualAddress
,
733 aouthdr_out
->DataDirectory
[idx
][0]);
734 H_PUT_32 (abfd
, extra
->DataDirectory
[idx
].Size
,
735 aouthdr_out
->DataDirectory
[idx
][1]);
743 _bfd_XXi_only_swap_filehdr_out (abfd
, in
, out
)
749 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
750 struct external_PEI_filehdr
*filehdr_out
= (struct external_PEI_filehdr
*) out
;
752 if (pe_data (abfd
)->has_reloc_section
)
753 filehdr_in
->f_flags
&= ~F_RELFLG
;
755 if (pe_data (abfd
)->dll
)
756 filehdr_in
->f_flags
|= F_DLL
;
758 filehdr_in
->pe
.e_magic
= DOSMAGIC
;
759 filehdr_in
->pe
.e_cblp
= 0x90;
760 filehdr_in
->pe
.e_cp
= 0x3;
761 filehdr_in
->pe
.e_crlc
= 0x0;
762 filehdr_in
->pe
.e_cparhdr
= 0x4;
763 filehdr_in
->pe
.e_minalloc
= 0x0;
764 filehdr_in
->pe
.e_maxalloc
= 0xffff;
765 filehdr_in
->pe
.e_ss
= 0x0;
766 filehdr_in
->pe
.e_sp
= 0xb8;
767 filehdr_in
->pe
.e_csum
= 0x0;
768 filehdr_in
->pe
.e_ip
= 0x0;
769 filehdr_in
->pe
.e_cs
= 0x0;
770 filehdr_in
->pe
.e_lfarlc
= 0x40;
771 filehdr_in
->pe
.e_ovno
= 0x0;
773 for (idx
= 0; idx
< 4; idx
++)
774 filehdr_in
->pe
.e_res
[idx
] = 0x0;
776 filehdr_in
->pe
.e_oemid
= 0x0;
777 filehdr_in
->pe
.e_oeminfo
= 0x0;
779 for (idx
= 0; idx
< 10; idx
++)
780 filehdr_in
->pe
.e_res2
[idx
] = 0x0;
782 filehdr_in
->pe
.e_lfanew
= 0x80;
784 /* This next collection of data are mostly just characters. It
785 appears to be constant within the headers put on NT exes. */
786 filehdr_in
->pe
.dos_message
[0] = 0x0eba1f0e;
787 filehdr_in
->pe
.dos_message
[1] = 0xcd09b400;
788 filehdr_in
->pe
.dos_message
[2] = 0x4c01b821;
789 filehdr_in
->pe
.dos_message
[3] = 0x685421cd;
790 filehdr_in
->pe
.dos_message
[4] = 0x70207369;
791 filehdr_in
->pe
.dos_message
[5] = 0x72676f72;
792 filehdr_in
->pe
.dos_message
[6] = 0x63206d61;
793 filehdr_in
->pe
.dos_message
[7] = 0x6f6e6e61;
794 filehdr_in
->pe
.dos_message
[8] = 0x65622074;
795 filehdr_in
->pe
.dos_message
[9] = 0x6e757220;
796 filehdr_in
->pe
.dos_message
[10] = 0x206e6920;
797 filehdr_in
->pe
.dos_message
[11] = 0x20534f44;
798 filehdr_in
->pe
.dos_message
[12] = 0x65646f6d;
799 filehdr_in
->pe
.dos_message
[13] = 0x0a0d0d2e;
800 filehdr_in
->pe
.dos_message
[14] = 0x24;
801 filehdr_in
->pe
.dos_message
[15] = 0x0;
802 filehdr_in
->pe
.nt_signature
= NT_SIGNATURE
;
804 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
805 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
807 H_PUT_32 (abfd
, time (0), filehdr_out
->f_timdat
);
808 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
,
809 filehdr_out
->f_symptr
);
810 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
811 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
812 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
814 /* Put in extra dos header stuff. This data remains essentially
815 constant, it just has to be tacked on to the beginning of all exes
817 H_PUT_16 (abfd
, filehdr_in
->pe
.e_magic
, filehdr_out
->e_magic
);
818 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cblp
, filehdr_out
->e_cblp
);
819 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cp
, filehdr_out
->e_cp
);
820 H_PUT_16 (abfd
, filehdr_in
->pe
.e_crlc
, filehdr_out
->e_crlc
);
821 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cparhdr
, filehdr_out
->e_cparhdr
);
822 H_PUT_16 (abfd
, filehdr_in
->pe
.e_minalloc
, filehdr_out
->e_minalloc
);
823 H_PUT_16 (abfd
, filehdr_in
->pe
.e_maxalloc
, filehdr_out
->e_maxalloc
);
824 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ss
, filehdr_out
->e_ss
);
825 H_PUT_16 (abfd
, filehdr_in
->pe
.e_sp
, filehdr_out
->e_sp
);
826 H_PUT_16 (abfd
, filehdr_in
->pe
.e_csum
, filehdr_out
->e_csum
);
827 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ip
, filehdr_out
->e_ip
);
828 H_PUT_16 (abfd
, filehdr_in
->pe
.e_cs
, filehdr_out
->e_cs
);
829 H_PUT_16 (abfd
, filehdr_in
->pe
.e_lfarlc
, filehdr_out
->e_lfarlc
);
830 H_PUT_16 (abfd
, filehdr_in
->pe
.e_ovno
, filehdr_out
->e_ovno
);
832 for (idx
= 0; idx
< 4; idx
++)
833 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res
[idx
], filehdr_out
->e_res
[idx
]);
835 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oemid
, filehdr_out
->e_oemid
);
836 H_PUT_16 (abfd
, filehdr_in
->pe
.e_oeminfo
, filehdr_out
->e_oeminfo
);
838 for (idx
= 0; idx
< 10; idx
++)
839 H_PUT_16 (abfd
, filehdr_in
->pe
.e_res2
[idx
], filehdr_out
->e_res2
[idx
]);
841 H_PUT_32 (abfd
, filehdr_in
->pe
.e_lfanew
, filehdr_out
->e_lfanew
);
843 for (idx
= 0; idx
< 16; idx
++)
844 H_PUT_32 (abfd
, filehdr_in
->pe
.dos_message
[idx
],
845 filehdr_out
->dos_message
[idx
]);
847 /* Also put in the NT signature. */
848 H_PUT_32 (abfd
, filehdr_in
->pe
.nt_signature
, filehdr_out
->nt_signature
);
854 _bfd_XX_only_swap_filehdr_out (abfd
, in
, out
)
859 struct internal_filehdr
*filehdr_in
= (struct internal_filehdr
*) in
;
860 FILHDR
*filehdr_out
= (FILHDR
*) out
;
862 H_PUT_16 (abfd
, filehdr_in
->f_magic
, filehdr_out
->f_magic
);
863 H_PUT_16 (abfd
, filehdr_in
->f_nscns
, filehdr_out
->f_nscns
);
864 H_PUT_32 (abfd
, filehdr_in
->f_timdat
, filehdr_out
->f_timdat
);
865 PUT_FILEHDR_SYMPTR (abfd
, filehdr_in
->f_symptr
, filehdr_out
->f_symptr
);
866 H_PUT_32 (abfd
, filehdr_in
->f_nsyms
, filehdr_out
->f_nsyms
);
867 H_PUT_16 (abfd
, filehdr_in
->f_opthdr
, filehdr_out
->f_opthdr
);
868 H_PUT_16 (abfd
, filehdr_in
->f_flags
, filehdr_out
->f_flags
);
874 _bfd_XXi_swap_scnhdr_out (abfd
, in
, out
)
879 struct internal_scnhdr
*scnhdr_int
= (struct internal_scnhdr
*) in
;
880 SCNHDR
*scnhdr_ext
= (SCNHDR
*) out
;
881 unsigned int ret
= SCNHSZ
;
885 memcpy (scnhdr_ext
->s_name
, scnhdr_int
->s_name
, sizeof (scnhdr_int
->s_name
));
887 PUT_SCNHDR_VADDR (abfd
,
888 ((scnhdr_int
->s_vaddr
889 - pe_data (abfd
)->pe_opthdr
.ImageBase
)
891 scnhdr_ext
->s_vaddr
);
893 /* NT wants the size data to be rounded up to the next
894 NT_FILE_ALIGNMENT, but zero if it has no content (as in .bss,
896 if ((scnhdr_int
->s_flags
& IMAGE_SCN_CNT_UNINITIALIZED_DATA
) != 0)
898 ps
= scnhdr_int
->s_size
;
903 ps
= scnhdr_int
->s_paddr
;
904 ss
= scnhdr_int
->s_size
;
907 PUT_SCNHDR_SIZE (abfd
, ss
,
910 /* s_paddr in PE is really the virtual size. */
911 PUT_SCNHDR_PADDR (abfd
, ps
, scnhdr_ext
->s_paddr
);
913 PUT_SCNHDR_SCNPTR (abfd
, scnhdr_int
->s_scnptr
,
914 scnhdr_ext
->s_scnptr
);
915 PUT_SCNHDR_RELPTR (abfd
, scnhdr_int
->s_relptr
,
916 scnhdr_ext
->s_relptr
);
917 PUT_SCNHDR_LNNOPTR (abfd
, scnhdr_int
->s_lnnoptr
,
918 scnhdr_ext
->s_lnnoptr
);
920 /* Extra flags must be set when dealing with NT. All sections should also
921 have the IMAGE_SCN_MEM_READ (0x40000000) flag set. In addition, the
922 .text section must have IMAGE_SCN_MEM_EXECUTE (0x20000000) and the data
923 sections (.idata, .data, .bss, .CRT) must have IMAGE_SCN_MEM_WRITE set
924 (this is especially important when dealing with the .idata section since
925 the addresses for routines from .dlls must be overwritten). If .reloc
926 section data is ever generated, we must add IMAGE_SCN_MEM_DISCARDABLE
927 (0x02000000). Also, the resource data should also be read and
930 /* FIXME: alignment is also encoded in this field, at least on ppc (krk) */
931 /* FIXME: even worse, I don't see how to get the original alignment field*/
935 int flags
= scnhdr_int
->s_flags
;
937 H_PUT_32 (abfd
, flags
, scnhdr_ext
->s_flags
);
940 if (coff_data (abfd
)->link_info
941 && ! coff_data (abfd
)->link_info
->relocateable
942 && ! coff_data (abfd
)->link_info
->shared
943 && strcmp (scnhdr_int
->s_name
, ".text") == 0)
945 /* By inference from looking at MS output, the 32 bit field
946 which is the combintion of the number_of_relocs and
947 number_of_linenos is used for the line number count in
948 executables. A 16-bit field won't do for cc1. The MS
949 document says that the number of relocs is zero for
950 executables, but the 17-th bit has been observed to be there.
951 Overflow is not an issue: a 4G-line program will overflow a
952 bunch of other fields long before this! */
953 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
& 0xffff), scnhdr_ext
->s_nlnno
);
954 H_PUT_16 (abfd
, (scnhdr_int
->s_nlnno
>> 16), scnhdr_ext
->s_nreloc
);
958 if (scnhdr_int
->s_nlnno
<= 0xffff)
959 H_PUT_16 (abfd
, scnhdr_int
->s_nlnno
, scnhdr_ext
->s_nlnno
);
962 (*_bfd_error_handler
) (_("%s: line number overflow: 0x%lx > 0xffff"),
963 bfd_get_filename (abfd
),
964 scnhdr_int
->s_nlnno
);
965 bfd_set_error (bfd_error_file_truncated
);
966 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nlnno
);
970 if (scnhdr_int
->s_nreloc
<= 0xffff)
971 H_PUT_16 (abfd
, scnhdr_int
->s_nreloc
, scnhdr_ext
->s_nreloc
);
974 /* PE can deal with large #s of relocs, but not here. */
975 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
976 scnhdr_int
->s_flags
|= IMAGE_SCN_LNK_NRELOC_OVFL
;
977 H_PUT_32 (abfd
, scnhdr_int
->s_flags
, scnhdr_ext
->s_flags
);
979 (*_bfd_error_handler
) (_("%s: reloc overflow 1: 0x%lx > 0xffff"),
980 bfd_get_filename (abfd
),
981 scnhdr_int
->s_nreloc
);
982 bfd_set_error (bfd_error_file_truncated
);
983 H_PUT_16 (abfd
, 0xffff, scnhdr_ext
->s_nreloc
);
991 static char * dir_names
[IMAGE_NUMBEROF_DIRECTORY_ENTRIES
] =
993 N_("Export Directory [.edata (or where ever we found it)]"),
994 N_("Import Directory [parts of .idata]"),
995 N_("Resource Directory [.rsrc]"),
996 N_("Exception Directory [.pdata]"),
997 N_("Security Directory"),
998 N_("Base Relocation Directory [.reloc]"),
999 N_("Debug Directory"),
1000 N_("Description Directory"),
1001 N_("Special Directory"),
1002 N_("Thread Storage Directory [.tls]"),
1003 N_("Load Configuration Directory"),
1004 N_("Bound Import Directory"),
1005 N_("Import Address Table Directory"),
1006 N_("Delay Import Directory"),
1011 #ifdef POWERPC_LE_PE
1012 /* The code for the PPC really falls in the "architecture dependent"
1013 category. However, it's not clear that anyone will ever care, so
1014 we're ignoring the issue for now; if/when PPC matters, some of this
1015 may need to go into peicode.h, or arguments passed to enable the
1016 PPC- specific code. */
1020 pe_print_idata (abfd
, vfile
)
1024 FILE *file
= (FILE *) vfile
;
1029 #ifdef POWERPC_LE_PE
1030 asection
*rel_section
= bfd_get_section_by_name (abfd
, ".reldata");
1033 bfd_size_type datasize
= 0;
1034 bfd_size_type dataoff
;
1039 pe_data_type
*pe
= pe_data (abfd
);
1040 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1044 addr
= extra
->DataDirectory
[1].VirtualAddress
;
1046 if (addr
== 0 && extra
->DataDirectory
[1].Size
== 0)
1048 /* Maybe the extra header isn't there. Look for the section. */
1049 section
= bfd_get_section_by_name (abfd
, ".idata");
1050 if (section
== NULL
)
1053 addr
= section
->vma
;
1054 datasize
= bfd_section_size (abfd
, section
);
1060 addr
+= extra
->ImageBase
;
1061 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1063 datasize
= bfd_section_size (abfd
, section
);
1064 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1068 if (section
== NULL
)
1071 _("\nThere is an import table, but the section containing it could not be found\n"));
1076 fprintf (file
, _("\nThere is an import table in %s at 0x%lx\n"),
1077 section
->name
, (unsigned long) addr
);
1079 dataoff
= addr
- section
->vma
;
1080 datasize
-= dataoff
;
1082 #ifdef POWERPC_LE_PE
1083 if (rel_section
!= 0 && bfd_section_size (abfd
, rel_section
) != 0)
1085 /* The toc address can be found by taking the starting address,
1086 which on the PPC locates a function descriptor. The
1087 descriptor consists of the function code starting address
1088 followed by the address of the toc. The starting address we
1089 get from the bfd, and the descriptor is supposed to be in the
1090 .reldata section. */
1092 bfd_vma loadable_toc_address
;
1093 bfd_vma toc_address
;
1094 bfd_vma start_address
;
1098 amt
= bfd_section_size (abfd
, rel_section
);
1099 data
= (bfd_byte
*) bfd_malloc (amt
);
1100 if (data
== NULL
&& amt
!= 0)
1103 bfd_get_section_contents (abfd
, rel_section
, (PTR
) data
, (bfd_vma
) 0,
1106 offset
= abfd
->start_address
- rel_section
->vma
;
1108 start_address
= bfd_get_32 (abfd
, data
+ offset
);
1109 loadable_toc_address
= bfd_get_32 (abfd
, data
+ offset
+ 4);
1110 toc_address
= loadable_toc_address
- 32768;
1113 _("\nFunction descriptor located at the start address: %04lx\n"),
1114 (unsigned long int) (abfd
->start_address
));
1116 _("\tcode-base %08lx toc (loadable/actual) %08lx/%08lx\n"),
1117 start_address
, loadable_toc_address
, toc_address
);
1122 _("\nNo reldata section! Function descriptor not decoded.\n"));
1127 _("\nThe Import Tables (interpreted %s section contents)\n"),
1131 vma: Hint Time Forward DLL First\n\
1132 Table Stamp Chain Name Thunk\n"));
1134 amt
= dataoff
+ datasize
;
1135 data
= (bfd_byte
*) bfd_malloc (amt
);
1139 /* Read the whole section. Some of the fields might be before dataoff. */
1140 if (! bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0, amt
))
1143 adj
= section
->vma
- extra
->ImageBase
;
1145 for (i
= 0; i
< datasize
; i
+= onaline
)
1149 bfd_vma forward_chain
;
1151 bfd_vma first_thunk
;
1156 /* print (i + extra->DataDirectory[1].VirtualAddress) */
1157 fprintf (file
, " %08lx\t", (unsigned long) (i
+ adj
+ dataoff
));
1159 if (i
+ 20 > datasize
)
1163 hint_addr
= bfd_get_32 (abfd
, data
+ i
+ dataoff
);
1164 time_stamp
= bfd_get_32 (abfd
, data
+ i
+ 4 + dataoff
);
1165 forward_chain
= bfd_get_32 (abfd
, data
+ i
+ 8 + dataoff
);
1166 dll_name
= bfd_get_32 (abfd
, data
+ i
+ 12 + dataoff
);
1167 first_thunk
= bfd_get_32 (abfd
, data
+ i
+ 16 + dataoff
);
1169 fprintf (file
, "%08lx %08lx %08lx %08lx %08lx\n",
1170 (unsigned long) hint_addr
,
1171 (unsigned long) time_stamp
,
1172 (unsigned long) forward_chain
,
1173 (unsigned long) dll_name
,
1174 (unsigned long) first_thunk
);
1176 if (hint_addr
== 0 && first_thunk
== 0)
1179 dll
= (char *) data
+ dll_name
- adj
;
1180 fprintf (file
, _("\n\tDLL Name: %s\n"), dll
);
1184 fprintf (file
, _("\tvma: Hint/Ord Member-Name\n"));
1186 idx
= hint_addr
- adj
;
1188 for (j
= 0; j
< datasize
; j
+= 4)
1190 unsigned long member
= bfd_get_32 (abfd
, data
+ idx
+ j
);
1194 if (member
& 0x80000000)
1195 fprintf (file
, "\t%04lx\t %4lu", member
,
1196 member
& 0x7fffffff);
1202 ordinal
= bfd_get_16 (abfd
, data
+ member
- adj
);
1203 member_name
= (char *) data
+ member
- adj
+ 2;
1204 fprintf (file
, "\t%04lx\t %4d %s",
1205 member
, ordinal
, member_name
);
1208 /* If the time stamp is not zero, the import address
1209 table holds actual addresses. */
1212 && first_thunk
!= hint_addr
)
1213 fprintf (file
, "\t%04lx",
1214 (long) bfd_get_32 (abfd
, data
+ first_thunk
- adj
+ j
));
1216 fprintf (file
, "\n");
1220 if (hint_addr
!= first_thunk
&& time_stamp
== 0)
1225 idx2
= first_thunk
- adj
;
1227 for (j
= 0; j
< datasize
; j
+= 4)
1231 bfd_vma hint_member
= 0;
1235 hint_member
= bfd_get_32 (abfd
, data
+ idx
+ j
);
1236 iat_member
= bfd_get_32 (abfd
, data
+ idx2
+ j
);
1238 if (hint_addr
== 0 && iat_member
== 0)
1241 if (hint_addr
== 0 || hint_member
!= iat_member
)
1246 _("\tThe Import Address Table (difference found)\n"));
1247 fprintf (file
, _("\tvma: Hint/Ord Member-Name\n"));
1251 if (iat_member
== 0)
1253 _("\t>>> Ran out of IAT members!\n"));
1256 ordinal
= bfd_get_16 (abfd
, data
+ iat_member
- adj
);
1257 member_name
= (char *) data
+ iat_member
- adj
+ 2;
1258 fprintf (file
, "\t%04lx\t %4d %s\n",
1259 (unsigned long) iat_member
,
1265 if (hint_addr
!= 0 && hint_member
== 0)
1271 _("\tThe Import Address Table is identical\n"));
1274 fprintf (file
, "\n");
1283 pe_print_edata (abfd
, vfile
)
1287 FILE *file
= (FILE *) vfile
;
1290 bfd_size_type datasize
= 0;
1291 bfd_size_type dataoff
;
1296 long export_flags
; /* reserved - should be zero */
1300 bfd_vma name
; /* rva - relative to image base */
1301 long base
; /* ordinal base */
1302 unsigned long num_functions
;/* Number in the export address table */
1303 unsigned long num_names
; /* Number in the name pointer table */
1304 bfd_vma eat_addr
; /* rva to the export address table */
1305 bfd_vma npt_addr
; /* rva to the Export Name Pointer Table */
1306 bfd_vma ot_addr
; /* rva to the Ordinal Table */
1309 pe_data_type
*pe
= pe_data (abfd
);
1310 struct internal_extra_pe_aouthdr
*extra
= &pe
->pe_opthdr
;
1314 addr
= extra
->DataDirectory
[0].VirtualAddress
;
1316 if (addr
== 0 && extra
->DataDirectory
[0].Size
== 0)
1318 /* Maybe the extra header isn't there. Look for the section. */
1319 section
= bfd_get_section_by_name (abfd
, ".edata");
1320 if (section
== NULL
)
1323 addr
= section
->vma
;
1324 datasize
= bfd_section_size (abfd
, section
);
1330 addr
+= extra
->ImageBase
;
1332 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
1334 datasize
= bfd_section_size (abfd
, section
);
1336 if (addr
>= section
->vma
&& addr
< section
->vma
+ datasize
)
1340 if (section
== NULL
)
1343 _("\nThere is an export table, but the section containing it could not be found\n"));
1348 fprintf (file
, _("\nThere is an export table in %s at 0x%lx\n"),
1349 section
->name
, (unsigned long) addr
);
1351 dataoff
= addr
- section
->vma
;
1352 datasize
-= dataoff
;
1354 data
= (bfd_byte
*) bfd_malloc (datasize
);
1358 if (! bfd_get_section_contents (abfd
, section
, (PTR
) data
,
1359 (file_ptr
) dataoff
, datasize
))
1362 /* Go get Export Directory Table. */
1363 edt
.export_flags
= bfd_get_32 (abfd
, data
+ 0);
1364 edt
.time_stamp
= bfd_get_32 (abfd
, data
+ 4);
1365 edt
.major_ver
= bfd_get_16 (abfd
, data
+ 8);
1366 edt
.minor_ver
= bfd_get_16 (abfd
, data
+ 10);
1367 edt
.name
= bfd_get_32 (abfd
, data
+ 12);
1368 edt
.base
= bfd_get_32 (abfd
, data
+ 16);
1369 edt
.num_functions
= bfd_get_32 (abfd
, data
+ 20);
1370 edt
.num_names
= bfd_get_32 (abfd
, data
+ 24);
1371 edt
.eat_addr
= bfd_get_32 (abfd
, data
+ 28);
1372 edt
.npt_addr
= bfd_get_32 (abfd
, data
+ 32);
1373 edt
.ot_addr
= bfd_get_32 (abfd
, data
+ 36);
1375 adj
= section
->vma
- extra
->ImageBase
+ dataoff
;
1377 /* Dump the EDT first. */
1379 _("\nThe Export Tables (interpreted %s section contents)\n\n"),
1383 _("Export Flags \t\t\t%lx\n"), (unsigned long) edt
.export_flags
);
1386 _("Time/Date stamp \t\t%lx\n"), (unsigned long) edt
.time_stamp
);
1389 _("Major/Minor \t\t\t%d/%d\n"), edt
.major_ver
, edt
.minor_ver
);
1392 _("Name \t\t\t\t"));
1393 fprintf_vma (file
, edt
.name
);
1395 " %s\n", data
+ edt
.name
- adj
);
1398 _("Ordinal Base \t\t\t%ld\n"), edt
.base
);
1404 _("\tExport Address Table \t\t%08lx\n"),
1408 _("\t[Name Pointer/Ordinal] Table\t%08lx\n"), edt
.num_names
);
1411 _("Table Addresses\n"));
1414 _("\tExport Address Table \t\t"));
1415 fprintf_vma (file
, edt
.eat_addr
);
1416 fprintf (file
, "\n");
1419 _("\tName Pointer Table \t\t"));
1420 fprintf_vma (file
, edt
.npt_addr
);
1421 fprintf (file
, "\n");
1424 _("\tOrdinal Table \t\t\t"));
1425 fprintf_vma (file
, edt
.ot_addr
);
1426 fprintf (file
, "\n");
1428 /* The next table to find is the Export Address Table. It's basically
1429 a list of pointers that either locate a function in this dll, or
1430 forward the call to another dll. Something like:
1435 } export_address_table_entry;
1439 _("\nExport Address Table -- Ordinal Base %ld\n"),
1442 for (i
= 0; i
< edt
.num_functions
; ++i
)
1444 bfd_vma eat_member
= bfd_get_32 (abfd
,
1445 data
+ edt
.eat_addr
+ (i
* 4) - adj
);
1446 if (eat_member
== 0)
1449 if (eat_member
- adj
<= datasize
)
1451 /* This rva is to a name (forwarding function) in our section. */
1452 /* Should locate a function descriptor. */
1454 "\t[%4ld] +base[%4ld] %04lx %s -- %s\n",
1456 (long) (i
+ edt
.base
),
1457 (unsigned long) eat_member
,
1459 data
+ eat_member
- adj
);
1463 /* Should locate a function descriptor in the reldata section. */
1465 "\t[%4ld] +base[%4ld] %04lx %s\n",
1467 (long) (i
+ edt
.base
),
1468 (unsigned long) eat_member
,
1473 /* The Export Name Pointer Table is paired with the Export Ordinal Table. */
1474 /* Dump them in parallel for clarity. */
1476 _("\n[Ordinal/Name Pointer] Table\n"));
1478 for (i
= 0; i
< edt
.num_names
; ++i
)
1480 bfd_vma name_ptr
= bfd_get_32 (abfd
,
1485 char *name
= (char *) data
+ name_ptr
- adj
;
1487 bfd_vma ord
= bfd_get_16 (abfd
,
1492 "\t[%4ld] %s\n", (long) ord
, name
);
1500 /* This really is architecture dependent. On IA-64, a .pdata entry
1501 consists of three dwords containing relative virtual addresses that
1502 specify the start and end address of the code range the entry
1503 covers and the address of the corresponding unwind info data. */
1506 pe_print_pdata (abfd
, vfile
)
1510 #ifdef COFF_WITH_pep
1511 # define PDATA_ROW_SIZE (3*8)
1513 # define PDATA_ROW_SIZE (5*4)
1515 FILE *file
= (FILE *) vfile
;
1517 asection
*section
= bfd_get_section_by_name (abfd
, ".pdata");
1518 bfd_size_type datasize
= 0;
1520 bfd_size_type start
, stop
;
1521 int onaline
= PDATA_ROW_SIZE
;
1524 || coff_section_data (abfd
, section
) == NULL
1525 || pei_section_data (abfd
, section
) == NULL
)
1528 stop
= pei_section_data (abfd
, section
)->virt_size
;
1529 if ((stop
% onaline
) != 0)
1531 _("Warning, .pdata section size (%ld) is not a multiple of %d\n"),
1532 (long) stop
, onaline
);
1535 _("\nThe Function Table (interpreted .pdata section contents)\n"));
1536 #ifdef COFF_WITH_pep
1538 _(" vma:\t\t\tBegin Address End Address Unwind Info\n"));
1541 vma:\t\tBegin End EH EH PrologEnd Exception\n\
1542 \t\tAddress Address Handler Data Address Mask\n"));
1545 datasize
= bfd_section_size (abfd
, section
);
1549 data
= (bfd_byte
*) bfd_malloc (datasize
);
1550 if (data
== NULL
&& datasize
!= 0)
1553 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1558 for (i
= start
; i
< stop
; i
+= onaline
)
1564 bfd_vma prolog_end_addr
;
1567 if (i
+ PDATA_ROW_SIZE
> stop
)
1570 begin_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
);
1571 end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 4);
1572 eh_handler
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 8);
1573 eh_data
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 12);
1574 prolog_end_addr
= GET_PDATA_ENTRY (abfd
, data
+ i
+ 16);
1576 if (begin_addr
== 0 && end_addr
== 0 && eh_handler
== 0
1577 && eh_data
== 0 && prolog_end_addr
== 0)
1578 /* We are probably into the padding of the section now. */
1581 em_data
= ((eh_handler
& 0x1) << 2) | (prolog_end_addr
& 0x3);
1582 eh_handler
&= ~(bfd_vma
) 0x3;
1583 prolog_end_addr
&= ~(bfd_vma
) 0x3;
1586 fprintf_vma (file
, i
+ section
->vma
); fputc ('\t', file
);
1587 fprintf_vma (file
, begin_addr
); fputc (' ', file
);
1588 fprintf_vma (file
, end_addr
); fputc (' ', file
);
1589 fprintf_vma (file
, eh_handler
);
1590 #ifndef COFF_WITH_pep
1592 fprintf_vma (file
, eh_data
); fputc (' ', file
);
1593 fprintf_vma (file
, prolog_end_addr
);
1594 fprintf (file
, " %x", em_data
);
1597 #ifdef POWERPC_LE_PE
1598 if (eh_handler
== 0 && eh_data
!= 0)
1600 /* Special bits here, although the meaning may be a little
1601 mysterious. The only one I know for sure is 0x03. */
1602 /* Code Significance */
1604 /* 0x01 Register Save Millicode */
1605 /* 0x02 Register Restore Millicode */
1606 /* 0x03 Glue Code Sequence */
1610 fprintf (file
, _(" Register save millicode"));
1613 fprintf (file
, _(" Register restore millicode"));
1616 fprintf (file
, _(" Glue code sequence"));
1623 fprintf (file
, "\n");
1631 #define IMAGE_REL_BASED_HIGHADJ 4
1632 static const char * const tbl
[] =
1646 "UNKNOWN", /* MUST be last */
1650 pe_print_reloc (abfd
, vfile
)
1654 FILE *file
= (FILE *) vfile
;
1656 asection
*section
= bfd_get_section_by_name (abfd
, ".reloc");
1657 bfd_size_type datasize
;
1659 bfd_size_type start
, stop
;
1661 if (section
== NULL
)
1664 if (bfd_section_size (abfd
, section
) == 0)
1668 _("\n\nPE File Base Relocations (interpreted .reloc section contents)\n"));
1670 datasize
= bfd_section_size (abfd
, section
);
1671 data
= (bfd_byte
*) bfd_malloc (datasize
);
1672 if (data
== NULL
&& datasize
!= 0)
1675 bfd_get_section_contents (abfd
, section
, (PTR
) data
, (bfd_vma
) 0,
1680 stop
= bfd_section_size (abfd
, section
);
1682 for (i
= start
; i
< stop
;)
1685 bfd_vma virtual_address
;
1688 /* The .reloc section is a sequence of blocks, with a header consisting
1689 of two 32 bit quantities, followed by a number of 16 bit entries. */
1690 virtual_address
= bfd_get_32 (abfd
, data
+i
);
1691 size
= bfd_get_32 (abfd
, data
+i
+4);
1692 number
= (size
- 8) / 2;
1698 _("\nVirtual Address: %08lx Chunk size %ld (0x%lx) Number of fixups %ld\n"),
1699 (unsigned long) virtual_address
, size
, size
, number
);
1701 for (j
= 0; j
< number
; ++j
)
1703 unsigned short e
= bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2);
1704 unsigned int t
= (e
& 0xF000) >> 12;
1705 int off
= e
& 0x0FFF;
1707 if (t
>= sizeof (tbl
) / sizeof (tbl
[0]))
1708 t
= (sizeof (tbl
) / sizeof (tbl
[0])) - 1;
1711 _("\treloc %4d offset %4x [%4lx] %s"),
1712 j
, off
, (long) (off
+ virtual_address
), tbl
[t
]);
1714 /* HIGHADJ takes an argument, - the next record *is* the
1715 low 16 bits of addend. */
1716 if (t
== IMAGE_REL_BASED_HIGHADJ
)
1718 fprintf (file
, " (%4x)",
1720 bfd_get_16 (abfd
, data
+ i
+ 8 + j
* 2 + 2)));
1724 fprintf (file
, "\n");
1735 /* Print out the program headers. */
1738 _bfd_XX_print_private_bfd_data_common (abfd
, vfile
)
1742 FILE *file
= (FILE *) vfile
;
1744 pe_data_type
*pe
= pe_data (abfd
);
1745 struct internal_extra_pe_aouthdr
*i
= &pe
->pe_opthdr
;
1746 const char *subsystem_name
= NULL
;
1748 /* The MS dumpbin program reportedly ands with 0xff0f before
1749 printing the characteristics field. Not sure why. No reason to
1751 fprintf (file
, _("\nCharacteristics 0x%x\n"), pe
->real_flags
);
1753 #define PF(x, y) if (pe->real_flags & x) { fprintf (file, "\t%s\n", y); }
1754 PF (F_RELFLG
, "relocations stripped");
1755 PF (F_EXEC
, "executable");
1756 PF (F_LNNO
, "line numbers stripped");
1757 PF (F_LSYMS
, "symbols stripped");
1758 PF (0x80, "little endian");
1759 PF (F_AR32WR
, "32 bit words");
1760 PF (0x200, "debugging information removed");
1761 PF (0x1000, "system file");
1763 PF (0x8000, "big endian");
1766 /* ctime implies '\n'. */
1768 time_t t
= pe
->coff
.timestamp
;
1769 fprintf (file
, "\nTime/Date\t\t%s", ctime (&t
));
1771 fprintf (file
, "\nImageBase\t\t");
1772 fprintf_vma (file
, i
->ImageBase
);
1773 fprintf (file
, "\nSectionAlignment\t");
1774 fprintf_vma (file
, i
->SectionAlignment
);
1775 fprintf (file
, "\nFileAlignment\t\t");
1776 fprintf_vma (file
, i
->FileAlignment
);
1777 fprintf (file
, "\nMajorOSystemVersion\t%d\n", i
->MajorOperatingSystemVersion
);
1778 fprintf (file
, "MinorOSystemVersion\t%d\n", i
->MinorOperatingSystemVersion
);
1779 fprintf (file
, "MajorImageVersion\t%d\n", i
->MajorImageVersion
);
1780 fprintf (file
, "MinorImageVersion\t%d\n", i
->MinorImageVersion
);
1781 fprintf (file
, "MajorSubsystemVersion\t%d\n", i
->MajorSubsystemVersion
);
1782 fprintf (file
, "MinorSubsystemVersion\t%d\n", i
->MinorSubsystemVersion
);
1783 fprintf (file
, "Win32Version\t\t%08lx\n", i
->Reserved1
);
1784 fprintf (file
, "SizeOfImage\t\t%08lx\n", i
->SizeOfImage
);
1785 fprintf (file
, "SizeOfHeaders\t\t%08lx\n", i
->SizeOfHeaders
);
1786 fprintf (file
, "CheckSum\t\t%08lx\n", i
->CheckSum
);
1788 switch (i
->Subsystem
)
1790 case IMAGE_SUBSYSTEM_UNKNOWN
:
1791 subsystem_name
= "unspecified";
1793 case IMAGE_SUBSYSTEM_NATIVE
:
1794 subsystem_name
= "NT native";
1796 case IMAGE_SUBSYSTEM_WINDOWS_GUI
:
1797 subsystem_name
= "Windows GUI";
1799 case IMAGE_SUBSYSTEM_WINDOWS_CUI
:
1800 subsystem_name
= "Windows CUI";
1802 case IMAGE_SUBSYSTEM_POSIX_CUI
:
1803 subsystem_name
= "POSIX CUI";
1805 case IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
:
1806 subsystem_name
= "Wince CUI";
1808 case IMAGE_SUBSYSTEM_EFI_APPLICATION
:
1809 subsystem_name
= "EFI application";
1811 case IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
:
1812 subsystem_name
= "EFI boot service driver";
1814 case IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
:
1815 subsystem_name
= "EFI runtime driver";
1819 fprintf (file
, "Subsystem\t\t%08x", i
->Subsystem
);
1821 fprintf (file
, "\t(%s)", subsystem_name
);
1822 fprintf (file
, "\nDllCharacteristics\t%08x\n", i
->DllCharacteristics
);
1823 fprintf (file
, "SizeOfStackReserve\t");
1824 fprintf_vma (file
, i
->SizeOfStackReserve
);
1825 fprintf (file
, "\nSizeOfStackCommit\t");
1826 fprintf_vma (file
, i
->SizeOfStackCommit
);
1827 fprintf (file
, "\nSizeOfHeapReserve\t");
1828 fprintf_vma (file
, i
->SizeOfHeapReserve
);
1829 fprintf (file
, "\nSizeOfHeapCommit\t");
1830 fprintf_vma (file
, i
->SizeOfHeapCommit
);
1831 fprintf (file
, "\nLoaderFlags\t\t%08lx\n", i
->LoaderFlags
);
1832 fprintf (file
, "NumberOfRvaAndSizes\t%08lx\n", i
->NumberOfRvaAndSizes
);
1834 fprintf (file
, "\nThe Data Directory\n");
1835 for (j
= 0; j
< IMAGE_NUMBEROF_DIRECTORY_ENTRIES
; j
++)
1837 fprintf (file
, "Entry %1x ", j
);
1838 fprintf_vma (file
, i
->DataDirectory
[j
].VirtualAddress
);
1839 fprintf (file
, " %08lx ", i
->DataDirectory
[j
].Size
);
1840 fprintf (file
, "%s\n", dir_names
[j
]);
1843 pe_print_idata (abfd
, vfile
);
1844 pe_print_edata (abfd
, vfile
);
1845 pe_print_pdata (abfd
, vfile
);
1846 pe_print_reloc (abfd
, vfile
);
1851 /* Copy any private info we understand from the input bfd
1852 to the output bfd. */
1855 _bfd_XX_bfd_copy_private_bfd_data_common (ibfd
, obfd
)
1858 /* One day we may try to grok other private data. */
1859 if (ibfd
->xvec
->flavour
!= bfd_target_coff_flavour
1860 || obfd
->xvec
->flavour
!= bfd_target_coff_flavour
)
1863 pe_data (obfd
)->pe_opthdr
= pe_data (ibfd
)->pe_opthdr
;
1864 pe_data (obfd
)->dll
= pe_data (ibfd
)->dll
;
1866 /* For strip: if we removed .reloc, we'll make a real mess of things
1867 if we don't remove this entry as well. */
1868 if (! pe_data (obfd
)->has_reloc_section
)
1870 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].VirtualAddress
= 0;
1871 pe_data (obfd
)->pe_opthdr
.DataDirectory
[5].Size
= 0;
1876 /* Copy private section data. */
1879 _bfd_XX_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
1885 if (bfd_get_flavour (ibfd
) != bfd_target_coff_flavour
1886 || bfd_get_flavour (obfd
) != bfd_target_coff_flavour
)
1889 if (coff_section_data (ibfd
, isec
) != NULL
1890 && pei_section_data (ibfd
, isec
) != NULL
)
1892 if (coff_section_data (obfd
, osec
) == NULL
)
1894 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
1895 osec
->used_by_bfd
= (PTR
) bfd_zalloc (obfd
, amt
);
1896 if (osec
->used_by_bfd
== NULL
)
1900 if (pei_section_data (obfd
, osec
) == NULL
)
1902 bfd_size_type amt
= sizeof (struct pei_section_tdata
);
1903 coff_section_data (obfd
, osec
)->tdata
= (PTR
) bfd_zalloc (obfd
, amt
);
1904 if (coff_section_data (obfd
, osec
)->tdata
== NULL
)
1908 pei_section_data (obfd
, osec
)->virt_size
=
1909 pei_section_data (ibfd
, isec
)->virt_size
;
1910 pei_section_data (obfd
, osec
)->pe_flags
=
1911 pei_section_data (ibfd
, isec
)->pe_flags
;
1918 _bfd_XX_get_symbol_info (abfd
, symbol
, ret
)
1923 coff_get_symbol_info (abfd
, symbol
, ret
);
1924 #if 0 /* This code no longer appears to be necessary.
1925 ImageBase has already been added in by coff_swap_scnhdr_in. */
1926 if (pe_data (abfd
) != NULL
1927 && ((symbol
->flags
& BSF_DEBUGGING
) == 0
1928 || (symbol
->flags
& BSF_DEBUGGING_RELOC
) != 0)
1929 && ! bfd_is_abs_section (symbol
->section
))
1930 ret
->value
+= pe_data (abfd
)->pe_opthdr
.ImageBase
;
1934 /* Handle the .idata section and other things that need symbol table
1938 _bfd_XXi_final_link_postscript (abfd
, pfinfo
)
1940 struct coff_final_link_info
*pfinfo
;
1942 struct coff_link_hash_entry
*h1
;
1943 struct bfd_link_info
*info
= pfinfo
->info
;
1945 /* There are a few fields that need to be filled in now while we
1946 have symbol table access.
1948 The .idata subsections aren't directly available as sections, but
1949 they are in the symbol table, so get them from there. */
1951 /* The import directory. This is the address of .idata$2, with size
1952 of .idata$2 + .idata$3. */
1953 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1954 ".idata$2", false, false, true);
1957 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
=
1958 (h1
->root
.u
.def
.value
1959 + h1
->root
.u
.def
.section
->output_section
->vma
1960 + h1
->root
.u
.def
.section
->output_offset
);
1961 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1962 ".idata$4", false, false, true);
1963 pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].Size
=
1964 ((h1
->root
.u
.def
.value
1965 + h1
->root
.u
.def
.section
->output_section
->vma
1966 + h1
->root
.u
.def
.section
->output_offset
)
1967 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[1].VirtualAddress
);
1969 /* The import address table. This is the size/address of
1971 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1972 ".idata$5", false, false, true);
1973 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
=
1974 (h1
->root
.u
.def
.value
1975 + h1
->root
.u
.def
.section
->output_section
->vma
1976 + h1
->root
.u
.def
.section
->output_offset
);
1977 h1
= coff_link_hash_lookup (coff_hash_table (info
),
1978 ".idata$6", false, false, true);
1979 pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].Size
=
1980 ((h1
->root
.u
.def
.value
1981 + h1
->root
.u
.def
.section
->output_section
->vma
1982 + h1
->root
.u
.def
.section
->output_offset
)
1983 - pe_data (abfd
)->pe_opthdr
.DataDirectory
[12].VirtualAddress
);
1986 /* If we couldn't find idata$2, we either have an excessively
1987 trivial program or are in DEEP trouble; we have to assume trivial