* config/tc-xtensa.h (resource_table): Change units to unsigned chars.
[deliverable/binutils-gdb.git] / bfd / peXXigen.c
CommitLineData
277d1b5e 1/* Support for the generic parts of PE/PEI; the common executable parts.
9553c638
AM
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005 Free Software Foundation, Inc.
277d1b5e
ILT
4 Written by Cygnus Solutions.
5
5e226794 6 This file is part of BFD, the Binary File Descriptor library.
277d1b5e 7
5e226794
NC
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.
277d1b5e 12
5e226794
NC
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.
277d1b5e 17
5e226794
NC
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
3e110533 20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
277d1b5e 21
6fa957a9 22/* Most of this hacked by Steve Chamberlain <sac@cygnus.com>.
277d1b5e 23
6fa957a9 24 PE/PEI rearrangement (and code added): Donn Terry
ca09e32b 25 Softway Systems, Inc. */
277d1b5e
ILT
26
27/* Hey look, some documentation [and in a place you expect to find it]!
28
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.
32
33 Another reference:
34 "Peering Inside the PE: A Tour of the Win32 Portable Executable
35 File Format", MSJ 1994, Volume 9.
36
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
43 document it here!)
44
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.
50
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
ca09e32b 53 wasting too much time. */
277d1b5e 54
cbff5e0d
DD
55/* This expands into COFF_WITH_pe or COFF_WITH_pep depending on whether
56 we're compiling for straight PE or PE+. */
57#define COFF_WITH_XX
58
277d1b5e
ILT
59#include "bfd.h"
60#include "sysdep.h"
61#include "libbfd.h"
62#include "coff/internal.h"
63
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. */
cbff5e0d
DD
70#ifdef COFF_WITH_pep
71# include "coff/ia64.h"
72#else
73# include "coff/i386.h"
74#endif
277d1b5e
ILT
75
76#include "coff/pe.h"
77#include "libcoff.h"
78#include "libpei.h"
79
cbff5e0d
DD
80#ifdef COFF_WITH_pep
81# undef AOUTSZ
82# define AOUTSZ PEPAOUTSZ
83# define PEAOUTHDR PEPAOUTHDR
84#endif
85
277d1b5e
ILT
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. */
1725a96e 91\f
277d1b5e 92void
7920ce38 93_bfd_XXi_swap_sym_in (bfd * abfd, void * ext1, void * in1)
277d1b5e 94{
6fa957a9
KH
95 SYMENT *ext = (SYMENT *) ext1;
96 struct internal_syment *in = (struct internal_syment *) in1;
277d1b5e 97
6fa957a9
KH
98 if (ext->e.e_name[0] == 0)
99 {
100 in->_n._n_n._n_zeroes = 0;
dc810e39 101 in->_n._n_n._n_offset = H_GET_32 (abfd, ext->e.e.e_offset);
6fa957a9
KH
102 }
103 else
1725a96e 104 memcpy (in->_n._n_name, ext->e.e_name, SYMNMLEN);
277d1b5e 105
dc810e39
AM
106 in->n_value = H_GET_32 (abfd, ext->e_value);
107 in->n_scnum = H_GET_16 (abfd, ext->e_scnum);
1725a96e 108
6fa957a9 109 if (sizeof (ext->e_type) == 2)
dc810e39 110 in->n_type = H_GET_16 (abfd, ext->e_type);
6fa957a9 111 else
dc810e39 112 in->n_type = H_GET_32 (abfd, ext->e_type);
1725a96e 113
dc810e39
AM
114 in->n_sclass = H_GET_8 (abfd, ext->e_sclass);
115 in->n_numaux = H_GET_8 (abfd, ext->e_numaux);
277d1b5e
ILT
116
117#ifndef STRICT_PE_FORMAT
6fa957a9 118 /* This is for Gnu-created DLLs. */
277d1b5e
ILT
119
120 /* The section symbols for the .idata$ sections have class 0x68
121 (C_SECTION), which MS documentation indicates is a section
122 symbol. Unfortunately, the value field in the symbol is simply a
123 copy of the .idata section's flags rather than something useful.
124 When these symbols are encountered, change the value to 0 so that
125 they will be handled somewhat correctly in the bfd code. */
126 if (in->n_sclass == C_SECTION)
127 {
128 in->n_value = 0x0;
129
277d1b5e
ILT
130 /* Create synthetic empty sections as needed. DJ */
131 if (in->n_scnum == 0)
132 {
133 asection *sec;
1725a96e 134
6fa957a9 135 for (sec = abfd->sections; sec; sec = sec->next)
277d1b5e
ILT
136 {
137 if (strcmp (sec->name, in->n_name) == 0)
138 {
139 in->n_scnum = sec->target_index;
140 break;
141 }
142 }
143 }
1725a96e 144
277d1b5e
ILT
145 if (in->n_scnum == 0)
146 {
147 int unused_section_number = 0;
148 asection *sec;
149 char *name;
1725a96e 150
6fa957a9 151 for (sec = abfd->sections; sec; sec = sec->next)
277d1b5e 152 if (unused_section_number <= sec->target_index)
6fa957a9 153 unused_section_number = sec->target_index + 1;
277d1b5e 154
dc810e39 155 name = bfd_alloc (abfd, (bfd_size_type) strlen (in->n_name) + 10);
277d1b5e
ILT
156 if (name == NULL)
157 return;
158 strcpy (name, in->n_name);
159 sec = bfd_make_section_anyway (abfd, name);
160
161 sec->vma = 0;
162 sec->lma = 0;
eea6121a 163 sec->size = 0;
277d1b5e
ILT
164 sec->filepos = 0;
165 sec->rel_filepos = 0;
166 sec->reloc_count = 0;
167 sec->line_filepos = 0;
168 sec->lineno_count = 0;
169 sec->userdata = NULL;
7920ce38 170 sec->next = NULL;
277d1b5e
ILT
171 sec->alignment_power = 2;
172 sec->flags = SEC_HAS_CONTENTS | SEC_ALLOC | SEC_DATA | SEC_LOAD;
173
174 sec->target_index = unused_section_number;
175
176 in->n_scnum = unused_section_number;
177 }
178 in->n_sclass = C_STAT;
277d1b5e
ILT
179 }
180#endif
181
182#ifdef coff_swap_sym_in_hook
183 /* This won't work in peigen.c, but since it's for PPC PE, it's not
9602af51 184 worth fixing. */
6fa957a9 185 coff_swap_sym_in_hook (abfd, ext1, in1);
277d1b5e
ILT
186#endif
187}
188
189unsigned int
7920ce38 190_bfd_XXi_swap_sym_out (bfd * abfd, void * inp, void * extp)
277d1b5e 191{
6fa957a9
KH
192 struct internal_syment *in = (struct internal_syment *) inp;
193 SYMENT *ext = (SYMENT *) extp;
1725a96e 194
6fa957a9
KH
195 if (in->_n._n_name[0] == 0)
196 {
dc810e39
AM
197 H_PUT_32 (abfd, 0, ext->e.e.e_zeroes);
198 H_PUT_32 (abfd, in->_n._n_n._n_offset, ext->e.e.e_offset);
6fa957a9
KH
199 }
200 else
1725a96e 201 memcpy (ext->e.e_name, in->_n._n_name, SYMNMLEN);
277d1b5e 202
dc810e39
AM
203 H_PUT_32 (abfd, in->n_value, ext->e_value);
204 H_PUT_16 (abfd, in->n_scnum, ext->e_scnum);
1725a96e 205
9602af51 206 if (sizeof (ext->e_type) == 2)
dc810e39 207 H_PUT_16 (abfd, in->n_type, ext->e_type);
277d1b5e 208 else
dc810e39 209 H_PUT_32 (abfd, in->n_type, ext->e_type);
1725a96e 210
dc810e39
AM
211 H_PUT_8 (abfd, in->n_sclass, ext->e_sclass);
212 H_PUT_8 (abfd, in->n_numaux, ext->e_numaux);
277d1b5e
ILT
213
214 return SYMESZ;
215}
216
217void
7920ce38
NC
218_bfd_XXi_swap_aux_in (bfd * abfd,
219 void * ext1,
220 int type,
221 int class,
222 int indx ATTRIBUTE_UNUSED,
223 int numaux ATTRIBUTE_UNUSED,
224 void * in1)
277d1b5e 225{
6fa957a9
KH
226 AUXENT *ext = (AUXENT *) ext1;
227 union internal_auxent *in = (union internal_auxent *) in1;
228
229 switch (class)
230 {
231 case C_FILE:
232 if (ext->x_file.x_fname[0] == 0)
233 {
234 in->x_file.x_n.x_zeroes = 0;
dc810e39 235 in->x_file.x_n.x_offset = H_GET_32 (abfd, ext->x_file.x_n.x_offset);
6fa957a9
KH
236 }
237 else
1725a96e 238 memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
277d1b5e 239 return;
6fa957a9
KH
240
241 case C_STAT:
242 case C_LEAFSTAT:
243 case C_HIDDEN:
244 if (type == T_NULL)
245 {
246 in->x_scn.x_scnlen = GET_SCN_SCNLEN (abfd, ext);
247 in->x_scn.x_nreloc = GET_SCN_NRELOC (abfd, ext);
248 in->x_scn.x_nlinno = GET_SCN_NLINNO (abfd, ext);
dc810e39
AM
249 in->x_scn.x_checksum = H_GET_32 (abfd, ext->x_scn.x_checksum);
250 in->x_scn.x_associated = H_GET_16 (abfd, ext->x_scn.x_associated);
251 in->x_scn.x_comdat = H_GET_8 (abfd, ext->x_scn.x_comdat);
6fa957a9
KH
252 return;
253 }
254 break;
277d1b5e 255 }
277d1b5e 256
dc810e39
AM
257 in->x_sym.x_tagndx.l = H_GET_32 (abfd, ext->x_sym.x_tagndx);
258 in->x_sym.x_tvndx = H_GET_16 (abfd, ext->x_sym.x_tvndx);
277d1b5e
ILT
259
260 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
261 {
262 in->x_sym.x_fcnary.x_fcn.x_lnnoptr = GET_FCN_LNNOPTR (abfd, ext);
263 in->x_sym.x_fcnary.x_fcn.x_endndx.l = GET_FCN_ENDNDX (abfd, ext);
264 }
265 else
266 {
267 in->x_sym.x_fcnary.x_ary.x_dimen[0] =
dc810e39 268 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
277d1b5e 269 in->x_sym.x_fcnary.x_ary.x_dimen[1] =
dc810e39 270 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
277d1b5e 271 in->x_sym.x_fcnary.x_ary.x_dimen[2] =
dc810e39 272 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
277d1b5e 273 in->x_sym.x_fcnary.x_ary.x_dimen[3] =
dc810e39 274 H_GET_16 (abfd, ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
277d1b5e
ILT
275 }
276
6fa957a9
KH
277 if (ISFCN (type))
278 {
dc810e39 279 in->x_sym.x_misc.x_fsize = H_GET_32 (abfd, ext->x_sym.x_misc.x_fsize);
6fa957a9
KH
280 }
281 else
282 {
283 in->x_sym.x_misc.x_lnsz.x_lnno = GET_LNSZ_LNNO (abfd, ext);
284 in->x_sym.x_misc.x_lnsz.x_size = GET_LNSZ_SIZE (abfd, ext);
285 }
277d1b5e
ILT
286}
287
288unsigned int
7920ce38
NC
289_bfd_XXi_swap_aux_out (bfd * abfd,
290 void * inp,
291 int type,
292 int class,
293 int indx ATTRIBUTE_UNUSED,
294 int numaux ATTRIBUTE_UNUSED,
295 void * extp)
277d1b5e 296{
6fa957a9
KH
297 union internal_auxent *in = (union internal_auxent *) inp;
298 AUXENT *ext = (AUXENT *) extp;
299
7920ce38
NC
300 memset (ext, 0, AUXESZ);
301
6fa957a9
KH
302 switch (class)
303 {
304 case C_FILE:
305 if (in->x_file.x_fname[0] == 0)
306 {
dc810e39
AM
307 H_PUT_32 (abfd, 0, ext->x_file.x_n.x_zeroes);
308 H_PUT_32 (abfd, in->x_file.x_n.x_offset, ext->x_file.x_n.x_offset);
6fa957a9
KH
309 }
310 else
1725a96e
NC
311 memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
312
277d1b5e 313 return AUXESZ;
6fa957a9
KH
314
315 case C_STAT:
316 case C_LEAFSTAT:
317 case C_HIDDEN:
318 if (type == T_NULL)
319 {
320 PUT_SCN_SCNLEN (abfd, in->x_scn.x_scnlen, ext);
321 PUT_SCN_NRELOC (abfd, in->x_scn.x_nreloc, ext);
322 PUT_SCN_NLINNO (abfd, in->x_scn.x_nlinno, ext);
dc810e39
AM
323 H_PUT_32 (abfd, in->x_scn.x_checksum, ext->x_scn.x_checksum);
324 H_PUT_16 (abfd, in->x_scn.x_associated, ext->x_scn.x_associated);
325 H_PUT_8 (abfd, in->x_scn.x_comdat, ext->x_scn.x_comdat);
6fa957a9
KH
326 return AUXESZ;
327 }
328 break;
277d1b5e 329 }
277d1b5e 330
dc810e39
AM
331 H_PUT_32 (abfd, in->x_sym.x_tagndx.l, ext->x_sym.x_tagndx);
332 H_PUT_16 (abfd, in->x_sym.x_tvndx, ext->x_sym.x_tvndx);
277d1b5e
ILT
333
334 if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
335 {
6fa957a9
KH
336 PUT_FCN_LNNOPTR (abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr, ext);
337 PUT_FCN_ENDNDX (abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l, ext);
277d1b5e
ILT
338 }
339 else
340 {
dc810e39
AM
341 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[0],
342 ext->x_sym.x_fcnary.x_ary.x_dimen[0]);
343 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[1],
344 ext->x_sym.x_fcnary.x_ary.x_dimen[1]);
345 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[2],
346 ext->x_sym.x_fcnary.x_ary.x_dimen[2]);
347 H_PUT_16 (abfd, in->x_sym.x_fcnary.x_ary.x_dimen[3],
348 ext->x_sym.x_fcnary.x_ary.x_dimen[3]);
277d1b5e
ILT
349 }
350
351 if (ISFCN (type))
dc810e39 352 H_PUT_32 (abfd, in->x_sym.x_misc.x_fsize, ext->x_sym.x_misc.x_fsize);
277d1b5e
ILT
353 else
354 {
355 PUT_LNSZ_LNNO (abfd, in->x_sym.x_misc.x_lnsz.x_lnno, ext);
356 PUT_LNSZ_SIZE (abfd, in->x_sym.x_misc.x_lnsz.x_size, ext);
357 }
358
359 return AUXESZ;
360}
361
362void
7920ce38 363_bfd_XXi_swap_lineno_in (bfd * abfd, void * ext1, void * in1)
277d1b5e 364{
6fa957a9
KH
365 LINENO *ext = (LINENO *) ext1;
366 struct internal_lineno *in = (struct internal_lineno *) in1;
277d1b5e 367
dc810e39 368 in->l_addr.l_symndx = H_GET_32 (abfd, ext->l_addr.l_symndx);
6fa957a9 369 in->l_lnno = GET_LINENO_LNNO (abfd, ext);
277d1b5e
ILT
370}
371
372unsigned int
7920ce38 373_bfd_XXi_swap_lineno_out (bfd * abfd, void * inp, void * outp)
277d1b5e 374{
6fa957a9
KH
375 struct internal_lineno *in = (struct internal_lineno *) inp;
376 struct external_lineno *ext = (struct external_lineno *) outp;
dc810e39 377 H_PUT_32 (abfd, in->l_addr.l_symndx, ext->l_addr.l_symndx);
277d1b5e
ILT
378
379 PUT_LINENO_LNNO (abfd, in->l_lnno, ext);
380 return LINESZ;
381}
382
383void
7920ce38
NC
384_bfd_XXi_swap_aouthdr_in (bfd * abfd,
385 void * aouthdr_ext1,
386 void * aouthdr_int1)
277d1b5e
ILT
387{
388 struct internal_extra_pe_aouthdr *a;
7920ce38
NC
389 PEAOUTHDR * src = (PEAOUTHDR *) (aouthdr_ext1);
390 AOUTHDR * aouthdr_ext = (AOUTHDR *) aouthdr_ext1;
277d1b5e
ILT
391 struct internal_aouthdr *aouthdr_int = (struct internal_aouthdr *)aouthdr_int1;
392
dc810e39
AM
393 aouthdr_int->magic = H_GET_16 (abfd, aouthdr_ext->magic);
394 aouthdr_int->vstamp = H_GET_16 (abfd, aouthdr_ext->vstamp);
395 aouthdr_int->tsize = GET_AOUTHDR_TSIZE (abfd, aouthdr_ext->tsize);
396 aouthdr_int->dsize = GET_AOUTHDR_DSIZE (abfd, aouthdr_ext->dsize);
397 aouthdr_int->bsize = GET_AOUTHDR_BSIZE (abfd, aouthdr_ext->bsize);
398 aouthdr_int->entry = GET_AOUTHDR_ENTRY (abfd, aouthdr_ext->entry);
277d1b5e 399 aouthdr_int->text_start =
dc810e39 400 GET_AOUTHDR_TEXT_START (abfd, aouthdr_ext->text_start);
cbff5e0d 401#ifndef COFF_WITH_pep
7920ce38 402 /* PE32+ does not have data_start member! */
277d1b5e 403 aouthdr_int->data_start =
dc810e39 404 GET_AOUTHDR_DATA_START (abfd, aouthdr_ext->data_start);
fac41780 405#endif
277d1b5e
ILT
406
407 a = &aouthdr_int->pe;
dc810e39
AM
408 a->ImageBase = GET_OPTHDR_IMAGE_BASE (abfd, src->ImageBase);
409 a->SectionAlignment = H_GET_32 (abfd, src->SectionAlignment);
410 a->FileAlignment = H_GET_32 (abfd, src->FileAlignment);
277d1b5e 411 a->MajorOperatingSystemVersion =
dc810e39 412 H_GET_16 (abfd, src->MajorOperatingSystemVersion);
277d1b5e 413 a->MinorOperatingSystemVersion =
dc810e39
AM
414 H_GET_16 (abfd, src->MinorOperatingSystemVersion);
415 a->MajorImageVersion = H_GET_16 (abfd, src->MajorImageVersion);
416 a->MinorImageVersion = H_GET_16 (abfd, src->MinorImageVersion);
417 a->MajorSubsystemVersion = H_GET_16 (abfd, src->MajorSubsystemVersion);
418 a->MinorSubsystemVersion = H_GET_16 (abfd, src->MinorSubsystemVersion);
419 a->Reserved1 = H_GET_32 (abfd, src->Reserved1);
420 a->SizeOfImage = H_GET_32 (abfd, src->SizeOfImage);
421 a->SizeOfHeaders = H_GET_32 (abfd, src->SizeOfHeaders);
422 a->CheckSum = H_GET_32 (abfd, src->CheckSum);
423 a->Subsystem = H_GET_16 (abfd, src->Subsystem);
424 a->DllCharacteristics = H_GET_16 (abfd, src->DllCharacteristics);
425 a->SizeOfStackReserve =
426 GET_OPTHDR_SIZE_OF_STACK_RESERVE (abfd, src->SizeOfStackReserve);
427 a->SizeOfStackCommit =
428 GET_OPTHDR_SIZE_OF_STACK_COMMIT (abfd, src->SizeOfStackCommit);
429 a->SizeOfHeapReserve =
430 GET_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd, src->SizeOfHeapReserve);
431 a->SizeOfHeapCommit =
432 GET_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd, src->SizeOfHeapCommit);
433 a->LoaderFlags = H_GET_32 (abfd, src->LoaderFlags);
434 a->NumberOfRvaAndSizes = H_GET_32 (abfd, src->NumberOfRvaAndSizes);
277d1b5e
ILT
435
436 {
437 int idx;
1725a96e 438
6fa957a9 439 for (idx = 0; idx < 16; idx++)
277d1b5e 440 {
6fa957a9
KH
441 /* If data directory is empty, rva also should be 0. */
442 int size =
dc810e39 443 H_GET_32 (abfd, src->DataDirectory[idx][1]);
3028b4c0
DD
444 a->DataDirectory[idx].Size = size;
445
446 if (size)
1725a96e 447 a->DataDirectory[idx].VirtualAddress =
dc810e39 448 H_GET_32 (abfd, src->DataDirectory[idx][0]);
6fa957a9 449 else
3028b4c0 450 a->DataDirectory[idx].VirtualAddress = 0;
277d1b5e
ILT
451 }
452 }
453
454 if (aouthdr_int->entry)
455 {
456 aouthdr_int->entry += a->ImageBase;
cbff5e0d 457#ifndef COFF_WITH_pep
277d1b5e 458 aouthdr_int->entry &= 0xffffffff;
fac41780 459#endif
277d1b5e 460 }
1725a96e 461
9602af51 462 if (aouthdr_int->tsize)
277d1b5e
ILT
463 {
464 aouthdr_int->text_start += a->ImageBase;
cbff5e0d 465#ifndef COFF_WITH_pep
277d1b5e 466 aouthdr_int->text_start &= 0xffffffff;
fac41780 467#endif
277d1b5e 468 }
1725a96e 469
cbff5e0d 470#ifndef COFF_WITH_pep
7920ce38 471 /* PE32+ does not have data_start member! */
9602af51 472 if (aouthdr_int->dsize)
277d1b5e
ILT
473 {
474 aouthdr_int->data_start += a->ImageBase;
475 aouthdr_int->data_start &= 0xffffffff;
476 }
fac41780 477#endif
277d1b5e
ILT
478
479#ifdef POWERPC_LE_PE
480 /* These three fields are normally set up by ppc_relocate_section.
481 In the case of reading a file in, we can pick them up from the
482 DataDirectory. */
6fa957a9 483 first_thunk_address = a->DataDirectory[12].VirtualAddress;
277d1b5e
ILT
484 thunk_size = a->DataDirectory[12].Size;
485 import_table_size = a->DataDirectory[1].Size;
486#endif
277d1b5e
ILT
487}
488
5933bdc9
ILT
489/* A support function for below. */
490
491static void
7920ce38
NC
492add_data_entry (bfd * abfd,
493 struct internal_extra_pe_aouthdr *aout,
494 int idx,
495 char *name,
496 bfd_vma base)
277d1b5e
ILT
497{
498 asection *sec = bfd_get_section_by_name (abfd, name);
499
1725a96e 500 /* Add import directory information if it exists. */
277d1b5e
ILT
501 if ((sec != NULL)
502 && (coff_section_data (abfd, sec) != NULL)
503 && (pei_section_data (abfd, sec) != NULL))
504 {
1725a96e 505 /* If data directory is empty, rva also should be 0. */
3028b4c0
DD
506 int size = pei_section_data (abfd, sec)->virt_size;
507 aout->DataDirectory[idx].Size = size;
508
509 if (size)
6fa957a9
KH
510 {
511 aout->DataDirectory[idx].VirtualAddress =
512 (sec->vma - base) & 0xffffffff;
513 sec->flags |= SEC_DATA;
514 }
277d1b5e
ILT
515 }
516}
517
518unsigned int
7920ce38 519_bfd_XXi_swap_aouthdr_out (bfd * abfd, void * in, void * out)
277d1b5e 520{
6fa957a9 521 struct internal_aouthdr *aouthdr_in = (struct internal_aouthdr *) in;
cbff5e0d
DD
522 pe_data_type *pe = pe_data (abfd);
523 struct internal_extra_pe_aouthdr *extra = &pe->pe_opthdr;
6fa957a9 524 PEAOUTHDR *aouthdr_out = (PEAOUTHDR *) out;
fac41780 525 bfd_vma sa, fa, ib;
ca6dee30 526 IMAGE_DATA_DIRECTORY idata2, idata5, tls;
c25cfdf8 527
cbff5e0d
DD
528 if (pe->force_minimum_alignment)
529 {
530 if (!extra->FileAlignment)
531 extra->FileAlignment = PE_DEF_FILE_ALIGNMENT;
532 if (!extra->SectionAlignment)
533 extra->SectionAlignment = PE_DEF_SECTION_ALIGNMENT;
534 }
277d1b5e 535
fac41780 536 if (extra->Subsystem == IMAGE_SUBSYSTEM_UNKNOWN)
cbff5e0d 537 extra->Subsystem = pe->target_subsystem;
fac41780
JW
538
539 sa = extra->SectionAlignment;
540 fa = extra->FileAlignment;
541 ib = extra->ImageBase;
277d1b5e 542
c25cfdf8
NC
543 idata2 = pe->pe_opthdr.DataDirectory[1];
544 idata5 = pe->pe_opthdr.DataDirectory[12];
ca6dee30 545 tls = pe->pe_opthdr.DataDirectory[9];
c25cfdf8 546
9602af51 547 if (aouthdr_in->tsize)
277d1b5e
ILT
548 {
549 aouthdr_in->text_start -= ib;
cbff5e0d 550#ifndef COFF_WITH_pep
277d1b5e 551 aouthdr_in->text_start &= 0xffffffff;
cbff5e0d 552#endif
277d1b5e 553 }
1725a96e 554
9602af51 555 if (aouthdr_in->dsize)
277d1b5e
ILT
556 {
557 aouthdr_in->data_start -= ib;
cbff5e0d 558#ifndef COFF_WITH_pep
277d1b5e 559 aouthdr_in->data_start &= 0xffffffff;
cbff5e0d 560#endif
277d1b5e 561 }
1725a96e 562
9602af51 563 if (aouthdr_in->entry)
277d1b5e
ILT
564 {
565 aouthdr_in->entry -= ib;
cbff5e0d 566#ifndef COFF_WITH_pep
277d1b5e 567 aouthdr_in->entry &= 0xffffffff;
cbff5e0d 568#endif
277d1b5e
ILT
569 }
570
6fa957a9
KH
571#define FA(x) (((x) + fa -1 ) & (- fa))
572#define SA(x) (((x) + sa -1 ) & (- sa))
277d1b5e 573
6fa957a9 574 /* We like to have the sizes aligned. */
277d1b5e
ILT
575 aouthdr_in->bsize = FA (aouthdr_in->bsize);
576
277d1b5e
ILT
577 extra->NumberOfRvaAndSizes = IMAGE_NUMBEROF_DIRECTORY_ENTRIES;
578
c25cfdf8 579 /* First null out all data directory entries. */
36b08f12 580 memset (extra->DataDirectory, 0, sizeof (extra->DataDirectory));
277d1b5e 581
8181c403 582 add_data_entry (abfd, extra, 0, ".edata", ib);
9602af51 583 add_data_entry (abfd, extra, 2, ".rsrc", ib);
8181c403 584 add_data_entry (abfd, extra, 3, ".pdata", ib);
2fbadf2c 585
c25cfdf8
NC
586 /* In theory we do not need to call add_data_entry for .idata$2 or
587 .idata$5. It will be done in bfd_coff_final_link where all the
588 required information is available. If however, we are not going
589 to perform a final link, eg because we have been invoked by objcopy
590 or strip, then we need to make sure that these Data Directory
591 entries are initialised properly.
592
593 So - we copy the input values into the output values, and then, if
594 a final link is going to be performed, it can overwrite them. */
595 extra->DataDirectory[1] = idata2;
596 extra->DataDirectory[12] = idata5;
ca6dee30 597 extra->DataDirectory[9] = tls;
c25cfdf8
NC
598
599 if (extra->DataDirectory[1].VirtualAddress == 0)
600 /* Until other .idata fixes are made (pending patch), the entry for
7dee875e 601 .idata is needed for backwards compatibility. FIXME. */
c25cfdf8
NC
602 add_data_entry (abfd, extra, 1, ".idata", ib);
603
2fbadf2c
ILT
604 /* For some reason, the virtual size (which is what's set by
605 add_data_entry) for .reloc is not the same as the size recorded
606 in this slot by MSVC; it doesn't seem to cause problems (so far),
607 but since it's the best we've got, use it. It does do the right
608 thing for .pdata. */
cbff5e0d 609 if (pe->has_reloc_section)
8181c403 610 add_data_entry (abfd, extra, 5, ".reloc", ib);
277d1b5e
ILT
611
612 {
613 asection *sec;
d48bdb99 614 bfd_vma hsize = 0;
6fa957a9 615 bfd_vma dsize = 0;
d48bdb99 616 bfd_vma isize = 0;
6fa957a9 617 bfd_vma tsize = 0;
277d1b5e
ILT
618
619 for (sec = abfd->sections; sec; sec = sec->next)
620 {
7920ce38 621 int rounded = FA (sec->size);
277d1b5e 622
d48bdb99
AM
623 /* The first non-zero section filepos is the header size.
624 Sections without contents will have a filepos of 0. */
625 if (hsize == 0)
626 hsize = sec->filepos;
277d1b5e
ILT
627 if (sec->flags & SEC_DATA)
628 dsize += rounded;
629 if (sec->flags & SEC_CODE)
630 tsize += rounded;
5933bdc9
ILT
631 /* The image size is the total VIRTUAL size (which is what is
632 in the virt_size field). Files have been seen (from MSVC
633 5.0 link.exe) where the file size of the .data segment is
634 quite small compared to the virtual size. Without this
635 fix, strip munges the file. */
98a96df7
CF
636 if (coff_section_data (abfd, sec) != NULL
637 && pei_section_data (abfd, sec) != NULL)
638 isize += SA (FA (pei_section_data (abfd, sec)->virt_size));
277d1b5e
ILT
639 }
640
641 aouthdr_in->dsize = dsize;
642 aouthdr_in->tsize = tsize;
d48bdb99 643 extra->SizeOfHeaders = hsize;
7920ce38 644 extra->SizeOfImage = SA (hsize) + isize;
277d1b5e
ILT
645 }
646
dc810e39 647 H_PUT_16 (abfd, aouthdr_in->magic, aouthdr_out->standard.magic);
277d1b5e 648
5933bdc9
ILT
649#define LINKER_VERSION 256 /* That is, 2.56 */
650
651 /* This piece of magic sets the "linker version" field to
652 LINKER_VERSION. */
dc810e39
AM
653 H_PUT_16 (abfd, (LINKER_VERSION / 100 + (LINKER_VERSION % 100) * 256),
654 aouthdr_out->standard.vstamp);
655
656 PUT_AOUTHDR_TSIZE (abfd, aouthdr_in->tsize, aouthdr_out->standard.tsize);
657 PUT_AOUTHDR_DSIZE (abfd, aouthdr_in->dsize, aouthdr_out->standard.dsize);
658 PUT_AOUTHDR_BSIZE (abfd, aouthdr_in->bsize, aouthdr_out->standard.bsize);
659 PUT_AOUTHDR_ENTRY (abfd, aouthdr_in->entry, aouthdr_out->standard.entry);
277d1b5e 660 PUT_AOUTHDR_TEXT_START (abfd, aouthdr_in->text_start,
dc810e39 661 aouthdr_out->standard.text_start);
277d1b5e 662
cbff5e0d 663#ifndef COFF_WITH_pep
c25cfdf8 664 /* PE32+ does not have data_start member! */
277d1b5e 665 PUT_AOUTHDR_DATA_START (abfd, aouthdr_in->data_start,
dc810e39 666 aouthdr_out->standard.data_start);
fac41780 667#endif
277d1b5e 668
dc810e39
AM
669 PUT_OPTHDR_IMAGE_BASE (abfd, extra->ImageBase, aouthdr_out->ImageBase);
670 H_PUT_32 (abfd, extra->SectionAlignment, aouthdr_out->SectionAlignment);
671 H_PUT_32 (abfd, extra->FileAlignment, aouthdr_out->FileAlignment);
672 H_PUT_16 (abfd, extra->MajorOperatingSystemVersion,
673 aouthdr_out->MajorOperatingSystemVersion);
674 H_PUT_16 (abfd, extra->MinorOperatingSystemVersion,
675 aouthdr_out->MinorOperatingSystemVersion);
676 H_PUT_16 (abfd, extra->MajorImageVersion, aouthdr_out->MajorImageVersion);
677 H_PUT_16 (abfd, extra->MinorImageVersion, aouthdr_out->MinorImageVersion);
678 H_PUT_16 (abfd, extra->MajorSubsystemVersion,
679 aouthdr_out->MajorSubsystemVersion);
680 H_PUT_16 (abfd, extra->MinorSubsystemVersion,
681 aouthdr_out->MinorSubsystemVersion);
682 H_PUT_32 (abfd, extra->Reserved1, aouthdr_out->Reserved1);
683 H_PUT_32 (abfd, extra->SizeOfImage, aouthdr_out->SizeOfImage);
684 H_PUT_32 (abfd, extra->SizeOfHeaders, aouthdr_out->SizeOfHeaders);
685 H_PUT_32 (abfd, extra->CheckSum, aouthdr_out->CheckSum);
686 H_PUT_16 (abfd, extra->Subsystem, aouthdr_out->Subsystem);
687 H_PUT_16 (abfd, extra->DllCharacteristics, aouthdr_out->DllCharacteristics);
fac41780 688 PUT_OPTHDR_SIZE_OF_STACK_RESERVE (abfd, extra->SizeOfStackReserve,
dc810e39 689 aouthdr_out->SizeOfStackReserve);
fac41780 690 PUT_OPTHDR_SIZE_OF_STACK_COMMIT (abfd, extra->SizeOfStackCommit,
dc810e39 691 aouthdr_out->SizeOfStackCommit);
fac41780 692 PUT_OPTHDR_SIZE_OF_HEAP_RESERVE (abfd, extra->SizeOfHeapReserve,
dc810e39 693 aouthdr_out->SizeOfHeapReserve);
fac41780 694 PUT_OPTHDR_SIZE_OF_HEAP_COMMIT (abfd, extra->SizeOfHeapCommit,
dc810e39
AM
695 aouthdr_out->SizeOfHeapCommit);
696 H_PUT_32 (abfd, extra->LoaderFlags, aouthdr_out->LoaderFlags);
697 H_PUT_32 (abfd, extra->NumberOfRvaAndSizes,
698 aouthdr_out->NumberOfRvaAndSizes);
277d1b5e
ILT
699 {
700 int idx;
1725a96e 701
6fa957a9 702 for (idx = 0; idx < 16; idx++)
277d1b5e 703 {
dc810e39
AM
704 H_PUT_32 (abfd, extra->DataDirectory[idx].VirtualAddress,
705 aouthdr_out->DataDirectory[idx][0]);
706 H_PUT_32 (abfd, extra->DataDirectory[idx].Size,
707 aouthdr_out->DataDirectory[idx][1]);
277d1b5e
ILT
708 }
709 }
710
711 return AOUTSZ;
712}
713
714unsigned int
7920ce38 715_bfd_XXi_only_swap_filehdr_out (bfd * abfd, void * in, void * out)
277d1b5e
ILT
716{
717 int idx;
6fa957a9
KH
718 struct internal_filehdr *filehdr_in = (struct internal_filehdr *) in;
719 struct external_PEI_filehdr *filehdr_out = (struct external_PEI_filehdr *) out;
277d1b5e
ILT
720
721 if (pe_data (abfd)->has_reloc_section)
722 filehdr_in->f_flags &= ~F_RELFLG;
723
724 if (pe_data (abfd)->dll)
725 filehdr_in->f_flags |= F_DLL;
726
727 filehdr_in->pe.e_magic = DOSMAGIC;
728 filehdr_in->pe.e_cblp = 0x90;
729 filehdr_in->pe.e_cp = 0x3;
730 filehdr_in->pe.e_crlc = 0x0;
731 filehdr_in->pe.e_cparhdr = 0x4;
732 filehdr_in->pe.e_minalloc = 0x0;
733 filehdr_in->pe.e_maxalloc = 0xffff;
734 filehdr_in->pe.e_ss = 0x0;
735 filehdr_in->pe.e_sp = 0xb8;
736 filehdr_in->pe.e_csum = 0x0;
737 filehdr_in->pe.e_ip = 0x0;
738 filehdr_in->pe.e_cs = 0x0;
739 filehdr_in->pe.e_lfarlc = 0x40;
740 filehdr_in->pe.e_ovno = 0x0;
741
6fa957a9 742 for (idx = 0; idx < 4; idx++)
277d1b5e
ILT
743 filehdr_in->pe.e_res[idx] = 0x0;
744
745 filehdr_in->pe.e_oemid = 0x0;
746 filehdr_in->pe.e_oeminfo = 0x0;
747
6fa957a9 748 for (idx = 0; idx < 10; idx++)
277d1b5e
ILT
749 filehdr_in->pe.e_res2[idx] = 0x0;
750
751 filehdr_in->pe.e_lfanew = 0x80;
752
6fa957a9
KH
753 /* This next collection of data are mostly just characters. It
754 appears to be constant within the headers put on NT exes. */
277d1b5e
ILT
755 filehdr_in->pe.dos_message[0] = 0x0eba1f0e;
756 filehdr_in->pe.dos_message[1] = 0xcd09b400;
757 filehdr_in->pe.dos_message[2] = 0x4c01b821;
758 filehdr_in->pe.dos_message[3] = 0x685421cd;
759 filehdr_in->pe.dos_message[4] = 0x70207369;
760 filehdr_in->pe.dos_message[5] = 0x72676f72;
761 filehdr_in->pe.dos_message[6] = 0x63206d61;
762 filehdr_in->pe.dos_message[7] = 0x6f6e6e61;
763 filehdr_in->pe.dos_message[8] = 0x65622074;
764 filehdr_in->pe.dos_message[9] = 0x6e757220;
765 filehdr_in->pe.dos_message[10] = 0x206e6920;
766 filehdr_in->pe.dos_message[11] = 0x20534f44;
767 filehdr_in->pe.dos_message[12] = 0x65646f6d;
768 filehdr_in->pe.dos_message[13] = 0x0a0d0d2e;
769 filehdr_in->pe.dos_message[14] = 0x24;
770 filehdr_in->pe.dos_message[15] = 0x0;
771 filehdr_in->pe.nt_signature = NT_SIGNATURE;
772
dc810e39
AM
773 H_PUT_16 (abfd, filehdr_in->f_magic, filehdr_out->f_magic);
774 H_PUT_16 (abfd, filehdr_in->f_nscns, filehdr_out->f_nscns);
277d1b5e 775
dc810e39
AM
776 H_PUT_32 (abfd, time (0), filehdr_out->f_timdat);
777 PUT_FILEHDR_SYMPTR (abfd, filehdr_in->f_symptr,
778 filehdr_out->f_symptr);
779 H_PUT_32 (abfd, filehdr_in->f_nsyms, filehdr_out->f_nsyms);
780 H_PUT_16 (abfd, filehdr_in->f_opthdr, filehdr_out->f_opthdr);
781 H_PUT_16 (abfd, filehdr_in->f_flags, filehdr_out->f_flags);
277d1b5e 782
1725a96e 783 /* Put in extra dos header stuff. This data remains essentially
277d1b5e 784 constant, it just has to be tacked on to the beginning of all exes
1725a96e 785 for NT. */
dc810e39
AM
786 H_PUT_16 (abfd, filehdr_in->pe.e_magic, filehdr_out->e_magic);
787 H_PUT_16 (abfd, filehdr_in->pe.e_cblp, filehdr_out->e_cblp);
788 H_PUT_16 (abfd, filehdr_in->pe.e_cp, filehdr_out->e_cp);
789 H_PUT_16 (abfd, filehdr_in->pe.e_crlc, filehdr_out->e_crlc);
790 H_PUT_16 (abfd, filehdr_in->pe.e_cparhdr, filehdr_out->e_cparhdr);
791 H_PUT_16 (abfd, filehdr_in->pe.e_minalloc, filehdr_out->e_minalloc);
792 H_PUT_16 (abfd, filehdr_in->pe.e_maxalloc, filehdr_out->e_maxalloc);
793 H_PUT_16 (abfd, filehdr_in->pe.e_ss, filehdr_out->e_ss);
794 H_PUT_16 (abfd, filehdr_in->pe.e_sp, filehdr_out->e_sp);
795 H_PUT_16 (abfd, filehdr_in->pe.e_csum, filehdr_out->e_csum);
796 H_PUT_16 (abfd, filehdr_in->pe.e_ip, filehdr_out->e_ip);
797 H_PUT_16 (abfd, filehdr_in->pe.e_cs, filehdr_out->e_cs);
798 H_PUT_16 (abfd, filehdr_in->pe.e_lfarlc, filehdr_out->e_lfarlc);
799 H_PUT_16 (abfd, filehdr_in->pe.e_ovno, filehdr_out->e_ovno);
1725a96e
NC
800
801 for (idx = 0; idx < 4; idx++)
dc810e39 802 H_PUT_16 (abfd, filehdr_in->pe.e_res[idx], filehdr_out->e_res[idx]);
1725a96e 803
dc810e39
AM
804 H_PUT_16 (abfd, filehdr_in->pe.e_oemid, filehdr_out->e_oemid);
805 H_PUT_16 (abfd, filehdr_in->pe.e_oeminfo, filehdr_out->e_oeminfo);
1725a96e
NC
806
807 for (idx = 0; idx < 10; idx++)
dc810e39 808 H_PUT_16 (abfd, filehdr_in->pe.e_res2[idx], filehdr_out->e_res2[idx]);
1725a96e 809
dc810e39 810 H_PUT_32 (abfd, filehdr_in->pe.e_lfanew, filehdr_out->e_lfanew);
277d1b5e 811
1725a96e 812 for (idx = 0; idx < 16; idx++)
dc810e39
AM
813 H_PUT_32 (abfd, filehdr_in->pe.dos_message[idx],
814 filehdr_out->dos_message[idx]);
277d1b5e 815
6fa957a9 816 /* Also put in the NT signature. */
dc810e39 817 H_PUT_32 (abfd, filehdr_in->pe.nt_signature, filehdr_out->nt_signature);
277d1b5e 818
277d1b5e
ILT
819 return FILHSZ;
820}
821
822unsigned int
7920ce38 823_bfd_XX_only_swap_filehdr_out (bfd * abfd, void * in, void * out)
277d1b5e 824{
6fa957a9
KH
825 struct internal_filehdr *filehdr_in = (struct internal_filehdr *) in;
826 FILHDR *filehdr_out = (FILHDR *) out;
277d1b5e 827
dc810e39
AM
828 H_PUT_16 (abfd, filehdr_in->f_magic, filehdr_out->f_magic);
829 H_PUT_16 (abfd, filehdr_in->f_nscns, filehdr_out->f_nscns);
830 H_PUT_32 (abfd, filehdr_in->f_timdat, filehdr_out->f_timdat);
831 PUT_FILEHDR_SYMPTR (abfd, filehdr_in->f_symptr, filehdr_out->f_symptr);
832 H_PUT_32 (abfd, filehdr_in->f_nsyms, filehdr_out->f_nsyms);
833 H_PUT_16 (abfd, filehdr_in->f_opthdr, filehdr_out->f_opthdr);
834 H_PUT_16 (abfd, filehdr_in->f_flags, filehdr_out->f_flags);
277d1b5e
ILT
835
836 return FILHSZ;
837}
838
839unsigned int
7920ce38 840_bfd_XXi_swap_scnhdr_out (bfd * abfd, void * in, void * out)
277d1b5e 841{
6fa957a9
KH
842 struct internal_scnhdr *scnhdr_int = (struct internal_scnhdr *) in;
843 SCNHDR *scnhdr_ext = (SCNHDR *) out;
277d1b5e
ILT
844 unsigned int ret = SCNHSZ;
845 bfd_vma ps;
846 bfd_vma ss;
847
6fa957a9 848 memcpy (scnhdr_ext->s_name, scnhdr_int->s_name, sizeof (scnhdr_int->s_name));
277d1b5e
ILT
849
850 PUT_SCNHDR_VADDR (abfd,
9602af51 851 ((scnhdr_int->s_vaddr
6fa957a9 852 - pe_data (abfd)->pe_opthdr.ImageBase)
277d1b5e 853 & 0xffffffff),
dc810e39 854 scnhdr_ext->s_vaddr);
277d1b5e 855
5933bdc9
ILT
856 /* NT wants the size data to be rounded up to the next
857 NT_FILE_ALIGNMENT, but zero if it has no content (as in .bss,
858 sometimes). */
5933bdc9 859 if ((scnhdr_int->s_flags & IMAGE_SCN_CNT_UNINITIALIZED_DATA) != 0)
277d1b5e 860 {
ff0c9faf
NC
861 if (bfd_pe_executable_p (abfd))
862 {
863 ps = scnhdr_int->s_size;
864 ss = 0;
865 }
866 else
867 {
868 ps = 0;
869 ss = scnhdr_int->s_size;
870 }
277d1b5e
ILT
871 }
872 else
873 {
ff0c9faf
NC
874 if (bfd_pe_executable_p (abfd))
875 ps = scnhdr_int->s_paddr;
876 else
877 ps = 0;
878
277d1b5e
ILT
879 ss = scnhdr_int->s_size;
880 }
881
882 PUT_SCNHDR_SIZE (abfd, ss,
dc810e39 883 scnhdr_ext->s_size);
277d1b5e 884
5933bdc9 885 /* s_paddr in PE is really the virtual size. */
dc810e39 886 PUT_SCNHDR_PADDR (abfd, ps, scnhdr_ext->s_paddr);
277d1b5e
ILT
887
888 PUT_SCNHDR_SCNPTR (abfd, scnhdr_int->s_scnptr,
dc810e39 889 scnhdr_ext->s_scnptr);
277d1b5e 890 PUT_SCNHDR_RELPTR (abfd, scnhdr_int->s_relptr,
dc810e39 891 scnhdr_ext->s_relptr);
277d1b5e 892 PUT_SCNHDR_LNNOPTR (abfd, scnhdr_int->s_lnnoptr,
dc810e39 893 scnhdr_ext->s_lnnoptr);
277d1b5e 894
277d1b5e 895 {
25c80428
NC
896 /* Extra flags must be set when dealing with PE. All sections should also
897 have the IMAGE_SCN_MEM_READ (0x40000000) flag set. In addition, the
898 .text section must have IMAGE_SCN_MEM_EXECUTE (0x20000000) and the data
899 sections (.idata, .data, .bss, .CRT) must have IMAGE_SCN_MEM_WRITE set
900 (this is especially important when dealing with the .idata section since
901 the addresses for routines from .dlls must be overwritten). If .reloc
902 section data is ever generated, we must add IMAGE_SCN_MEM_DISCARDABLE
903 (0x02000000). Also, the resource data should also be read and
904 writable. */
905
906 /* FIXME: Alignment is also encoded in this field, at least on PPC and
907 ARM-WINCE. Although - how do we get the original alignment field
908 back ? */
909
910 typedef struct
911 {
912 const char * section_name;
913 unsigned long must_have;
914 }
915 pe_required_section_flags;
916
917 pe_required_section_flags known_sections [] =
918 {
919 { ".arch", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_DISCARDABLE | IMAGE_SCN_ALIGN_8BYTES },
920 { ".bss", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_UNINITIALIZED_DATA | IMAGE_SCN_MEM_WRITE },
921 { ".data", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_WRITE },
922 { ".edata", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA },
923 { ".idata", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_WRITE },
924 { ".pdata", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA },
925 { ".rdata", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA },
926 { ".reloc", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_DISCARDABLE },
927 { ".rsrc", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_WRITE },
928 { ".text" , IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_CODE | IMAGE_SCN_MEM_EXECUTE },
929 { ".tls", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA | IMAGE_SCN_MEM_WRITE },
930 { ".xdata", IMAGE_SCN_MEM_READ | IMAGE_SCN_CNT_INITIALIZED_DATA },
931 { NULL, 0}
932 };
933
934 pe_required_section_flags * p;
1725a96e 935
66bed356
DS
936 /* We have defaulted to adding the IMAGE_SCN_MEM_WRITE flag, but now
937 we know exactly what this specific section wants so we remove it
938 and then allow the must_have field to add it back in if necessary.
939 However, we don't remove IMAGE_SCN_MEM_WRITE flag from .text if the
940 default WP_TEXT file flag has been cleared. WP_TEXT may be cleared
941 by ld --enable-auto-import (if auto-import is actually needed),
942 by ld --omagic, or by obcopy --writable-text. */
66bed356 943
25c80428
NC
944 for (p = known_sections; p->section_name; p++)
945 if (strcmp (scnhdr_int->s_name, p->section_name) == 0)
946 {
3c9d0484
DS
947 if (strcmp (scnhdr_int->s_name, ".text")
948 || (bfd_get_file_flags (abfd) & WP_TEXT))
d48bdb99
AM
949 scnhdr_int->s_flags &= ~IMAGE_SCN_MEM_WRITE;
950 scnhdr_int->s_flags |= p->must_have;
25c80428
NC
951 break;
952 }
953
d48bdb99 954 H_PUT_32 (abfd, scnhdr_int->s_flags, scnhdr_ext->s_flags);
277d1b5e
ILT
955 }
956
cb43721d 957 if (coff_data (abfd)->link_info
1049f94e 958 && ! coff_data (abfd)->link_info->relocatable
cb43721d
ILT
959 && ! coff_data (abfd)->link_info->shared
960 && strcmp (scnhdr_int->s_name, ".text") == 0)
277d1b5e 961 {
cb43721d 962 /* By inference from looking at MS output, the 32 bit field
7dee875e 963 which is the combination of the number_of_relocs and
cb43721d
ILT
964 number_of_linenos is used for the line number count in
965 executables. A 16-bit field won't do for cc1. The MS
966 document says that the number of relocs is zero for
967 executables, but the 17-th bit has been observed to be there.
968 Overflow is not an issue: a 4G-line program will overflow a
969 bunch of other fields long before this! */
dc810e39
AM
970 H_PUT_16 (abfd, (scnhdr_int->s_nlnno & 0xffff), scnhdr_ext->s_nlnno);
971 H_PUT_16 (abfd, (scnhdr_int->s_nlnno >> 16), scnhdr_ext->s_nreloc);
277d1b5e 972 }
277d1b5e
ILT
973 else
974 {
cb43721d 975 if (scnhdr_int->s_nlnno <= 0xffff)
dc810e39 976 H_PUT_16 (abfd, scnhdr_int->s_nlnno, scnhdr_ext->s_nlnno);
cb43721d
ILT
977 else
978 {
979 (*_bfd_error_handler) (_("%s: line number overflow: 0x%lx > 0xffff"),
980 bfd_get_filename (abfd),
981 scnhdr_int->s_nlnno);
982 bfd_set_error (bfd_error_file_truncated);
dc810e39 983 H_PUT_16 (abfd, 0xffff, scnhdr_ext->s_nlnno);
cb43721d
ILT
984 ret = 0;
985 }
1725a96e 986
cd339148
NS
987 /* Although we could encode 0xffff relocs here, we do not, to be
988 consistent with other parts of bfd. Also it lets us warn, as
989 we should never see 0xffff here w/o having the overflow flag
990 set. */
991 if (scnhdr_int->s_nreloc < 0xffff)
dc810e39 992 H_PUT_16 (abfd, scnhdr_int->s_nreloc, scnhdr_ext->s_nreloc);
cb43721d
ILT
993 else
994 {
1725a96e 995 /* PE can deal with large #s of relocs, but not here. */
dc810e39 996 H_PUT_16 (abfd, 0xffff, scnhdr_ext->s_nreloc);
3e4554a2 997 scnhdr_int->s_flags |= IMAGE_SCN_LNK_NRELOC_OVFL;
dc810e39 998 H_PUT_32 (abfd, scnhdr_int->s_flags, scnhdr_ext->s_flags);
cb43721d 999 }
277d1b5e
ILT
1000 }
1001 return ret;
1002}
1003
1725a96e 1004static char * dir_names[IMAGE_NUMBEROF_DIRECTORY_ENTRIES] =
7920ce38
NC
1005{
1006 N_("Export Directory [.edata (or where ever we found it)]"),
1007 N_("Import Directory [parts of .idata]"),
1008 N_("Resource Directory [.rsrc]"),
1009 N_("Exception Directory [.pdata]"),
1010 N_("Security Directory"),
1011 N_("Base Relocation Directory [.reloc]"),
1012 N_("Debug Directory"),
1013 N_("Description Directory"),
1014 N_("Special Directory"),
1015 N_("Thread Storage Directory [.tls]"),
1016 N_("Load Configuration Directory"),
1017 N_("Bound Import Directory"),
1018 N_("Import Address Table Directory"),
1019 N_("Delay Import Directory"),
1020 N_("Reserved"),
1021 N_("Reserved")
1022};
1725a96e 1023
277d1b5e
ILT
1024#ifdef POWERPC_LE_PE
1025/* The code for the PPC really falls in the "architecture dependent"
1026 category. However, it's not clear that anyone will ever care, so
1027 we're ignoring the issue for now; if/when PPC matters, some of this
1028 may need to go into peicode.h, or arguments passed to enable the
1029 PPC- specific code. */
1030#endif
1031
b34976b6 1032static bfd_boolean
7920ce38 1033pe_print_idata (bfd * abfd, void * vfile)
277d1b5e
ILT
1034{
1035 FILE *file = (FILE *) vfile;
a76b448c 1036 bfd_byte *data;
8181c403
AM
1037 asection *section;
1038 bfd_signed_vma adj;
277d1b5e
ILT
1039
1040#ifdef POWERPC_LE_PE
1041 asection *rel_section = bfd_get_section_by_name (abfd, ".reldata");
1042#endif
1043
a76b448c 1044 bfd_size_type datasize = 0;
277d1b5e 1045 bfd_size_type dataoff;
277d1b5e 1046 bfd_size_type i;
277d1b5e
ILT
1047 int onaline = 20;
1048
1049 pe_data_type *pe = pe_data (abfd);
1050 struct internal_extra_pe_aouthdr *extra = &pe->pe_opthdr;
1051
8181c403 1052 bfd_vma addr;
277d1b5e 1053
8181c403 1054 addr = extra->DataDirectory[1].VirtualAddress;
277d1b5e 1055
a76b448c 1056 if (addr == 0 && extra->DataDirectory[1].Size == 0)
8181c403 1057 {
a76b448c
AM
1058 /* Maybe the extra header isn't there. Look for the section. */
1059 section = bfd_get_section_by_name (abfd, ".idata");
1060 if (section == NULL)
b34976b6 1061 return TRUE;
a76b448c
AM
1062
1063 addr = section->vma;
eea6121a 1064 datasize = section->size;
a76b448c 1065 if (datasize == 0)
b34976b6 1066 return TRUE;
8181c403 1067 }
a76b448c 1068 else
8181c403 1069 {
a76b448c
AM
1070 addr += extra->ImageBase;
1071 for (section = abfd->sections; section != NULL; section = section->next)
1072 {
eea6121a 1073 datasize = section->size;
a76b448c
AM
1074 if (addr >= section->vma && addr < section->vma + datasize)
1075 break;
1076 }
1077
1078 if (section == NULL)
1079 {
1080 fprintf (file,
1081 _("\nThere is an import table, but the section containing it could not be found\n"));
b34976b6 1082 return TRUE;
a76b448c 1083 }
8181c403 1084 }
5933bdc9 1085
8181c403
AM
1086 fprintf (file, _("\nThere is an import table in %s at 0x%lx\n"),
1087 section->name, (unsigned long) addr);
277d1b5e 1088
8181c403 1089 dataoff = addr - section->vma;
a76b448c 1090 datasize -= dataoff;
277d1b5e
ILT
1091
1092#ifdef POWERPC_LE_PE
eea6121a 1093 if (rel_section != 0 && rel_section->size != 0)
277d1b5e
ILT
1094 {
1095 /* The toc address can be found by taking the starting address,
1096 which on the PPC locates a function descriptor. The
1097 descriptor consists of the function code starting address
1098 followed by the address of the toc. The starting address we
1099 get from the bfd, and the descriptor is supposed to be in the
1100 .reldata section. */
1101
1102 bfd_vma loadable_toc_address;
1103 bfd_vma toc_address;
1104 bfd_vma start_address;
eea6121a 1105 bfd_byte *data;
277d1b5e 1106 int offset;
8181c403 1107
eea6121a
AM
1108 if (!bfd_malloc_and_get_section (abfd, rel_section, &data))
1109 {
1110 if (data != NULL)
1111 free (data);
1112 return FALSE;
1113 }
277d1b5e
ILT
1114
1115 offset = abfd->start_address - rel_section->vma;
1116
db8503c4
AM
1117 start_address = bfd_get_32 (abfd, data + offset);
1118 loadable_toc_address = bfd_get_32 (abfd, data + offset + 4);
277d1b5e
ILT
1119 toc_address = loadable_toc_address - 32768;
1120
9602af51 1121 fprintf (file,
6fa957a9
KH
1122 _("\nFunction descriptor located at the start address: %04lx\n"),
1123 (unsigned long int) (abfd->start_address));
277d1b5e
ILT
1124 fprintf (file,
1125 _("\tcode-base %08lx toc (loadable/actual) %08lx/%08lx\n"),
1126 start_address, loadable_toc_address, toc_address);
eea6121a
AM
1127 if (data != NULL)
1128 free (data);
277d1b5e
ILT
1129 }
1130 else
1131 {
9602af51 1132 fprintf (file,
6fa957a9 1133 _("\nNo reldata section! Function descriptor not decoded.\n"));
277d1b5e
ILT
1134 }
1135#endif
1136
9602af51 1137 fprintf (file,
6fa957a9
KH
1138 _("\nThe Import Tables (interpreted %s section contents)\n"),
1139 section->name);
9602af51 1140 fprintf (file,
ca09e32b
NC
1141 _("\
1142 vma: Hint Time Forward DLL First\n\
1143 Table Stamp Chain Name Thunk\n"));
277d1b5e 1144
db8503c4 1145 /* Read the whole section. Some of the fields might be before dataoff. */
eea6121a
AM
1146 if (!bfd_malloc_and_get_section (abfd, section, &data))
1147 {
1148 if (data != NULL)
1149 free (data);
1150 return FALSE;
1151 }
277d1b5e 1152
db8503c4 1153 adj = section->vma - extra->ImageBase;
277d1b5e 1154
5e226794 1155 /* Print all image import descriptors. */
5933bdc9 1156 for (i = 0; i < datasize; i += onaline)
277d1b5e
ILT
1157 {
1158 bfd_vma hint_addr;
1159 bfd_vma time_stamp;
1160 bfd_vma forward_chain;
1161 bfd_vma dll_name;
1162 bfd_vma first_thunk;
1163 int idx = 0;
1164 bfd_size_type j;
1165 char *dll;
1166
5e226794 1167 /* Print (i + extra->DataDirectory[1].VirtualAddress). */
db8503c4 1168 fprintf (file, " %08lx\t", (unsigned long) (i + adj + dataoff));
db8503c4
AM
1169 hint_addr = bfd_get_32 (abfd, data + i + dataoff);
1170 time_stamp = bfd_get_32 (abfd, data + i + 4 + dataoff);
1171 forward_chain = bfd_get_32 (abfd, data + i + 8 + dataoff);
1172 dll_name = bfd_get_32 (abfd, data + i + 12 + dataoff);
1173 first_thunk = bfd_get_32 (abfd, data + i + 16 + dataoff);
5933bdc9
ILT
1174
1175 fprintf (file, "%08lx %08lx %08lx %08lx %08lx\n",
a76b448c
AM
1176 (unsigned long) hint_addr,
1177 (unsigned long) time_stamp,
1178 (unsigned long) forward_chain,
1179 (unsigned long) dll_name,
1180 (unsigned long) first_thunk);
277d1b5e
ILT
1181
1182 if (hint_addr == 0 && first_thunk == 0)
1183 break;
1184
8181c403 1185 dll = (char *) data + dll_name - adj;
9602af51 1186 fprintf (file, _("\n\tDLL Name: %s\n"), dll);
277d1b5e
ILT
1187
1188 if (hint_addr != 0)
1189 {
6e7c73dd
CF
1190 bfd_byte *ft_data;
1191 asection *ft_section;
1192 bfd_vma ft_addr;
1193 bfd_size_type ft_datasize;
1194 int ft_idx;
6e7c73dd
CF
1195 int ft_allocated = 0;
1196
5e226794 1197 fprintf (file, _("\tvma: Hint/Ord Member-Name Bound-To\n"));
277d1b5e 1198
8181c403 1199 idx = hint_addr - adj;
5e226794
NC
1200
1201 ft_addr = first_thunk + extra->ImageBase;
6e7c73dd
CF
1202 ft_data = data;
1203 ft_idx = first_thunk - adj;
1204 ft_allocated = 0;
1205
1206 if (first_thunk != hint_addr)
1207 {
1208 /* Find the section which contains the first thunk. */
1209 for (ft_section = abfd->sections;
1210 ft_section != NULL;
1211 ft_section = ft_section->next)
1212 {
eea6121a 1213 ft_datasize = ft_section->size;
6e7c73dd
CF
1214 if (ft_addr >= ft_section->vma
1215 && ft_addr < ft_section->vma + ft_datasize)
1216 break;
1217 }
1218
1219 if (ft_section == NULL)
1220 {
1221 fprintf (file,
1222 _("\nThere is a first thunk, but the section containing it could not be found\n"));
1223 continue;
1224 }
1225
1226 /* Now check to see if this section is the same as our current
1227 section. If it is not then we will have to load its data in. */
1228 if (ft_section == section)
1229 {
1230 ft_data = data;
1231 ft_idx = first_thunk - adj;
1232 }
1233 else
1234 {
1235 ft_idx = first_thunk - (ft_section->vma - extra->ImageBase);
7920ce38 1236 ft_data = bfd_malloc (datasize);
6e7c73dd
CF
1237 if (ft_data == NULL)
1238 continue;
1239
1240 /* Read datasize bfd_bytes starting at offset ft_idx. */
7920ce38
NC
1241 if (! bfd_get_section_contents
1242 (abfd, ft_section, ft_data, (bfd_vma) ft_idx, datasize))
6e7c73dd
CF
1243 {
1244 free (ft_data);
1245 continue;
1246 }
1247
1248 ft_idx = 0;
1249 ft_allocated = 1;
1250 }
1251 }
5e226794
NC
1252
1253 /* Print HintName vector entries. */
5933bdc9 1254 for (j = 0; j < datasize; j += 4)
277d1b5e
ILT
1255 {
1256 unsigned long member = bfd_get_32 (abfd, data + idx + j);
1257
5e226794 1258 /* Print single IMAGE_IMPORT_BY_NAME vector. */
277d1b5e
ILT
1259 if (member == 0)
1260 break;
5e226794 1261
277d1b5e 1262 if (member & 0x80000000)
5e226794
NC
1263 fprintf (file, "\t%04lx\t %4lu <none>",
1264 member, member & 0x7fffffff);
277d1b5e
ILT
1265 else
1266 {
1267 int ordinal;
1268 char *member_name;
1269
8181c403
AM
1270 ordinal = bfd_get_16 (abfd, data + member - adj);
1271 member_name = (char *) data + member - adj + 2;
277d1b5e
ILT
1272 fprintf (file, "\t%04lx\t %4d %s",
1273 member, ordinal, member_name);
1274 }
5e226794 1275
277d1b5e 1276 /* If the time stamp is not zero, the import address
5e226794
NC
1277 table holds actual addresses. */
1278 if (time_stamp != 0
1279 && first_thunk != 0
1280 && first_thunk != hint_addr)
277d1b5e 1281 fprintf (file, "\t%04lx",
6e7c73dd 1282 (long) bfd_get_32 (abfd, ft_data + ft_idx + j));
277d1b5e
ILT
1283
1284 fprintf (file, "\n");
1285 }
277d1b5e 1286
e4cf60a8
NC
1287 if (ft_allocated)
1288 free (ft_data);
277d1b5e
ILT
1289 }
1290
9602af51 1291 fprintf (file, "\n");
277d1b5e
ILT
1292 }
1293
1294 free (data);
1295
b34976b6 1296 return TRUE;
277d1b5e
ILT
1297}
1298
b34976b6 1299static bfd_boolean
7920ce38 1300pe_print_edata (bfd * abfd, void * vfile)
277d1b5e
ILT
1301{
1302 FILE *file = (FILE *) vfile;
a76b448c 1303 bfd_byte *data;
8181c403 1304 asection *section;
a76b448c 1305 bfd_size_type datasize = 0;
277d1b5e
ILT
1306 bfd_size_type dataoff;
1307 bfd_size_type i;
8181c403 1308 bfd_signed_vma adj;
1725a96e
NC
1309 struct EDT_type
1310 {
7920ce38 1311 long export_flags; /* Reserved - should be zero. */
6fa957a9
KH
1312 long time_stamp;
1313 short major_ver;
1314 short minor_ver;
7920ce38
NC
1315 bfd_vma name; /* RVA - relative to image base. */
1316 long base; /* Ordinal base. */
1317 unsigned long num_functions;/* Number in the export address table. */
1318 unsigned long num_names; /* Number in the name pointer table. */
1319 bfd_vma eat_addr; /* RVA to the export address table. */
1320 bfd_vma npt_addr; /* RVA to the Export Name Pointer Table. */
1321 bfd_vma ot_addr; /* RVA to the Ordinal Table. */
6fa957a9 1322 } edt;
277d1b5e
ILT
1323
1324 pe_data_type *pe = pe_data (abfd);
1325 struct internal_extra_pe_aouthdr *extra = &pe->pe_opthdr;
1326
8181c403 1327 bfd_vma addr;
277d1b5e 1328
8181c403 1329 addr = extra->DataDirectory[0].VirtualAddress;
277d1b5e 1330
a76b448c 1331 if (addr == 0 && extra->DataDirectory[0].Size == 0)
8181c403 1332 {
a76b448c
AM
1333 /* Maybe the extra header isn't there. Look for the section. */
1334 section = bfd_get_section_by_name (abfd, ".edata");
1335 if (section == NULL)
b34976b6 1336 return TRUE;
a76b448c
AM
1337
1338 addr = section->vma;
eea6121a 1339 datasize = section->size;
a76b448c 1340 if (datasize == 0)
b34976b6 1341 return TRUE;
8181c403 1342 }
a76b448c 1343 else
8181c403 1344 {
a76b448c 1345 addr += extra->ImageBase;
1725a96e 1346
a76b448c
AM
1347 for (section = abfd->sections; section != NULL; section = section->next)
1348 {
eea6121a 1349 datasize = section->size;
1725a96e 1350
a76b448c
AM
1351 if (addr >= section->vma && addr < section->vma + datasize)
1352 break;
1353 }
1354
1355 if (section == NULL)
1356 {
1357 fprintf (file,
1358 _("\nThere is an export table, but the section containing it could not be found\n"));
b34976b6 1359 return TRUE;
a76b448c 1360 }
277d1b5e
ILT
1361 }
1362
8181c403
AM
1363 fprintf (file, _("\nThere is an export table in %s at 0x%lx\n"),
1364 section->name, (unsigned long) addr);
1365
1366 dataoff = addr - section->vma;
a76b448c 1367 datasize -= dataoff;
8181c403 1368
7920ce38 1369 data = bfd_malloc (datasize);
8181c403 1370 if (data == NULL)
b34976b6 1371 return FALSE;
277d1b5e 1372
7920ce38 1373 if (! bfd_get_section_contents (abfd, section, data,
dc810e39 1374 (file_ptr) dataoff, datasize))
b34976b6 1375 return FALSE;
277d1b5e 1376
6fa957a9
KH
1377 /* Go get Export Directory Table. */
1378 edt.export_flags = bfd_get_32 (abfd, data + 0);
1379 edt.time_stamp = bfd_get_32 (abfd, data + 4);
1380 edt.major_ver = bfd_get_16 (abfd, data + 8);
1381 edt.minor_ver = bfd_get_16 (abfd, data + 10);
1382 edt.name = bfd_get_32 (abfd, data + 12);
1383 edt.base = bfd_get_32 (abfd, data + 16);
1384 edt.num_functions = bfd_get_32 (abfd, data + 20);
1385 edt.num_names = bfd_get_32 (abfd, data + 24);
1386 edt.eat_addr = bfd_get_32 (abfd, data + 28);
1387 edt.npt_addr = bfd_get_32 (abfd, data + 32);
1388 edt.ot_addr = bfd_get_32 (abfd, data + 36);
277d1b5e 1389
8181c403 1390 adj = section->vma - extra->ImageBase + dataoff;
277d1b5e 1391
1725a96e 1392 /* Dump the EDT first. */
9602af51 1393 fprintf (file,
6fa957a9
KH
1394 _("\nThe Export Tables (interpreted %s section contents)\n\n"),
1395 section->name);
277d1b5e 1396
9602af51 1397 fprintf (file,
6fa957a9 1398 _("Export Flags \t\t\t%lx\n"), (unsigned long) edt.export_flags);
277d1b5e 1399
9602af51 1400 fprintf (file,
6fa957a9 1401 _("Time/Date stamp \t\t%lx\n"), (unsigned long) edt.time_stamp);
277d1b5e 1402
9602af51 1403 fprintf (file,
6fa957a9 1404 _("Major/Minor \t\t\t%d/%d\n"), edt.major_ver, edt.minor_ver);
277d1b5e
ILT
1405
1406 fprintf (file,
1407 _("Name \t\t\t\t"));
1408 fprintf_vma (file, edt.name);
1409 fprintf (file,
8181c403 1410 " %s\n", data + edt.name - adj);
277d1b5e 1411
9602af51 1412 fprintf (file,
6fa957a9 1413 _("Ordinal Base \t\t\t%ld\n"), edt.base);
277d1b5e 1414
9602af51 1415 fprintf (file,
6fa957a9 1416 _("Number in:\n"));
277d1b5e 1417
9602af51 1418 fprintf (file,
6fa957a9
KH
1419 _("\tExport Address Table \t\t%08lx\n"),
1420 edt.num_functions);
277d1b5e 1421
9602af51 1422 fprintf (file,
6fa957a9 1423 _("\t[Name Pointer/Ordinal] Table\t%08lx\n"), edt.num_names);
277d1b5e 1424
9602af51 1425 fprintf (file,
6fa957a9 1426 _("Table Addresses\n"));
277d1b5e
ILT
1427
1428 fprintf (file,
1429 _("\tExport Address Table \t\t"));
1430 fprintf_vma (file, edt.eat_addr);
1431 fprintf (file, "\n");
1432
1433 fprintf (file,
6fa957a9 1434 _("\tName Pointer Table \t\t"));
277d1b5e
ILT
1435 fprintf_vma (file, edt.npt_addr);
1436 fprintf (file, "\n");
1437
1438 fprintf (file,
1439 _("\tOrdinal Table \t\t\t"));
1440 fprintf_vma (file, edt.ot_addr);
1441 fprintf (file, "\n");
1442
5933bdc9 1443 /* The next table to find is the Export Address Table. It's basically
277d1b5e
ILT
1444 a list of pointers that either locate a function in this dll, or
1445 forward the call to another dll. Something like:
1725a96e
NC
1446 typedef union
1447 {
277d1b5e
ILT
1448 long export_rva;
1449 long forwarder_rva;
7920ce38 1450 } export_address_table_entry; */
277d1b5e 1451
9602af51 1452 fprintf (file,
277d1b5e
ILT
1453 _("\nExport Address Table -- Ordinal Base %ld\n"),
1454 edt.base);
1455
1456 for (i = 0; i < edt.num_functions; ++i)
1457 {
1458 bfd_vma eat_member = bfd_get_32 (abfd,
8181c403 1459 data + edt.eat_addr + (i * 4) - adj);
277d1b5e
ILT
1460 if (eat_member == 0)
1461 continue;
1462
db8503c4 1463 if (eat_member - adj <= datasize)
277d1b5e 1464 {
db8503c4 1465 /* This rva is to a name (forwarding function) in our section. */
6fa957a9 1466 /* Should locate a function descriptor. */
5933bdc9
ILT
1467 fprintf (file,
1468 "\t[%4ld] +base[%4ld] %04lx %s -- %s\n",
a76b448c
AM
1469 (long) i,
1470 (long) (i + edt.base),
1471 (unsigned long) eat_member,
1472 _("Forwarder RVA"),
1473 data + eat_member - adj);
277d1b5e
ILT
1474 }
1475 else
1476 {
6fa957a9 1477 /* Should locate a function descriptor in the reldata section. */
5933bdc9
ILT
1478 fprintf (file,
1479 "\t[%4ld] +base[%4ld] %04lx %s\n",
a76b448c
AM
1480 (long) i,
1481 (long) (i + edt.base),
1482 (unsigned long) eat_member,
5933bdc9 1483 _("Export RVA"));
277d1b5e
ILT
1484 }
1485 }
1486
6fa957a9
KH
1487 /* The Export Name Pointer Table is paired with the Export Ordinal Table. */
1488 /* Dump them in parallel for clarity. */
9602af51 1489 fprintf (file,
6fa957a9 1490 _("\n[Ordinal/Name Pointer] Table\n"));
277d1b5e
ILT
1491
1492 for (i = 0; i < edt.num_names; ++i)
1493 {
9602af51 1494 bfd_vma name_ptr = bfd_get_32 (abfd,
277d1b5e
ILT
1495 data +
1496 edt.npt_addr
8181c403 1497 + (i*4) - adj);
9602af51 1498
8181c403 1499 char *name = (char *) data + name_ptr - adj;
277d1b5e 1500
9602af51 1501 bfd_vma ord = bfd_get_16 (abfd,
277d1b5e
ILT
1502 data +
1503 edt.ot_addr
8181c403 1504 + (i*2) - adj);
9602af51 1505 fprintf (file,
277d1b5e 1506 "\t[%4ld] %s\n", (long) ord, name);
277d1b5e
ILT
1507 }
1508
1509 free (data);
1510
b34976b6 1511 return TRUE;
277d1b5e
ILT
1512}
1513
fac41780
JW
1514/* This really is architecture dependent. On IA-64, a .pdata entry
1515 consists of three dwords containing relative virtual addresses that
1516 specify the start and end address of the code range the entry
1517 covers and the address of the corresponding unwind info data. */
6fa957a9 1518
b34976b6 1519static bfd_boolean
7920ce38 1520pe_print_pdata (bfd * abfd, void * vfile)
277d1b5e 1521{
cbff5e0d 1522#ifdef COFF_WITH_pep
fac41780
JW
1523# define PDATA_ROW_SIZE (3*8)
1524#else
1525# define PDATA_ROW_SIZE (5*4)
1526#endif
277d1b5e
ILT
1527 FILE *file = (FILE *) vfile;
1528 bfd_byte *data = 0;
1529 asection *section = bfd_get_section_by_name (abfd, ".pdata");
1530 bfd_size_type datasize = 0;
1531 bfd_size_type i;
1532 bfd_size_type start, stop;
fac41780 1533 int onaline = PDATA_ROW_SIZE;
277d1b5e 1534
5933bdc9
ILT
1535 if (section == NULL
1536 || coff_section_data (abfd, section) == NULL
1537 || pei_section_data (abfd, section) == NULL)
b34976b6 1538 return TRUE;
277d1b5e 1539
5933bdc9 1540 stop = pei_section_data (abfd, section)->virt_size;
277d1b5e 1541 if ((stop % onaline) != 0)
6fa957a9
KH
1542 fprintf (file,
1543 _("Warning, .pdata section size (%ld) is not a multiple of %d\n"),
1544 (long) stop, onaline);
277d1b5e 1545
5933bdc9
ILT
1546 fprintf (file,
1547 _("\nThe Function Table (interpreted .pdata section contents)\n"));
cbff5e0d 1548#ifdef COFF_WITH_pep
9602af51 1549 fprintf (file,
6fa957a9 1550 _(" vma:\t\t\tBegin Address End Address Unwind Info\n"));
fac41780 1551#else
ca09e32b
NC
1552 fprintf (file, _("\
1553 vma:\t\tBegin End EH EH PrologEnd Exception\n\
1554 \t\tAddress Address Handler Data Address Mask\n"));
fac41780 1555#endif
277d1b5e 1556
eea6121a 1557 datasize = section->size;
dc810e39 1558 if (datasize == 0)
b34976b6 1559 return TRUE;
277d1b5e 1560
7920ce38 1561 if (! bfd_malloc_and_get_section (abfd, section, &data))
eea6121a
AM
1562 {
1563 if (data != NULL)
1564 free (data);
1565 return FALSE;
1566 }
277d1b5e
ILT
1567
1568 start = 0;
1569
1570 for (i = start; i < stop; i += onaline)
1571 {
1572 bfd_vma begin_addr;
1573 bfd_vma end_addr;
1574 bfd_vma eh_handler;
1575 bfd_vma eh_data;
1576 bfd_vma prolog_end_addr;
5933bdc9 1577 int em_data;
277d1b5e 1578
fac41780 1579 if (i + PDATA_ROW_SIZE > stop)
277d1b5e 1580 break;
5933bdc9 1581
6fa957a9
KH
1582 begin_addr = GET_PDATA_ENTRY (abfd, data + i );
1583 end_addr = GET_PDATA_ENTRY (abfd, data + i + 4);
1584 eh_handler = GET_PDATA_ENTRY (abfd, data + i + 8);
1585 eh_data = GET_PDATA_ENTRY (abfd, data + i + 12);
1586 prolog_end_addr = GET_PDATA_ENTRY (abfd, data + i + 16);
9602af51 1587
277d1b5e
ILT
1588 if (begin_addr == 0 && end_addr == 0 && eh_handler == 0
1589 && eh_data == 0 && prolog_end_addr == 0)
1725a96e
NC
1590 /* We are probably into the padding of the section now. */
1591 break;
277d1b5e 1592
5933bdc9 1593 em_data = ((eh_handler & 0x1) << 2) | (prolog_end_addr & 0x3);
6fa957a9
KH
1594 eh_handler &= ~(bfd_vma) 0x3;
1595 prolog_end_addr &= ~(bfd_vma) 0x3;
fac41780
JW
1596
1597 fputc (' ', file);
1598 fprintf_vma (file, i + section->vma); fputc ('\t', file);
1599 fprintf_vma (file, begin_addr); fputc (' ', file);
1600 fprintf_vma (file, end_addr); fputc (' ', file);
1601 fprintf_vma (file, eh_handler);
cbff5e0d 1602#ifndef COFF_WITH_pep
fac41780
JW
1603 fputc (' ', file);
1604 fprintf_vma (file, eh_data); fputc (' ', file);
1605 fprintf_vma (file, prolog_end_addr);
1606 fprintf (file, " %x", em_data);
1607#endif
277d1b5e
ILT
1608
1609#ifdef POWERPC_LE_PE
1610 if (eh_handler == 0 && eh_data != 0)
1611 {
6fa957a9 1612 /* Special bits here, although the meaning may be a little
7920ce38
NC
1613 mysterious. The only one I know for sure is 0x03
1614 Code Significance
1615 0x00 None
1616 0x01 Register Save Millicode
1617 0x02 Register Restore Millicode
1618 0x03 Glue Code Sequence. */
277d1b5e
ILT
1619 switch (eh_data)
1620 {
1621 case 0x01:
9602af51 1622 fprintf (file, _(" Register save millicode"));
277d1b5e
ILT
1623 break;
1624 case 0x02:
9602af51 1625 fprintf (file, _(" Register restore millicode"));
277d1b5e
ILT
1626 break;
1627 case 0x03:
9602af51 1628 fprintf (file, _(" Glue code sequence"));
277d1b5e
ILT
1629 break;
1630 default:
1631 break;
1632 }
1633 }
1634#endif
9602af51 1635 fprintf (file, "\n");
277d1b5e
ILT
1636 }
1637
1638 free (data);
1639
b34976b6 1640 return TRUE;
277d1b5e
ILT
1641}
1642
5933bdc9 1643#define IMAGE_REL_BASED_HIGHADJ 4
1725a96e 1644static const char * const tbl[] =
7920ce38
NC
1645{
1646 "ABSOLUTE",
1647 "HIGH",
1648 "LOW",
1649 "HIGHLOW",
1650 "HIGHADJ",
1651 "MIPS_JMPADDR",
1652 "SECTION",
1653 "REL32",
1654 "RESERVED1",
1655 "MIPS_JMPADDR16",
1656 "DIR64",
1657 "HIGH3ADJ"
1658 "UNKNOWN", /* MUST be last. */
1659};
277d1b5e 1660
b34976b6 1661static bfd_boolean
7920ce38 1662pe_print_reloc (bfd * abfd, void * vfile)
277d1b5e
ILT
1663{
1664 FILE *file = (FILE *) vfile;
1665 bfd_byte *data = 0;
1666 asection *section = bfd_get_section_by_name (abfd, ".reloc");
dc810e39 1667 bfd_size_type datasize;
277d1b5e
ILT
1668 bfd_size_type i;
1669 bfd_size_type start, stop;
1670
5933bdc9 1671 if (section == NULL)
b34976b6 1672 return TRUE;
277d1b5e 1673
eea6121a 1674 if (section->size == 0)
b34976b6 1675 return TRUE;
277d1b5e 1676
5933bdc9
ILT
1677 fprintf (file,
1678 _("\n\nPE File Base Relocations (interpreted .reloc section contents)\n"));
277d1b5e 1679
eea6121a 1680 datasize = section->size;
7920ce38 1681 if (! bfd_malloc_and_get_section (abfd, section, &data))
eea6121a
AM
1682 {
1683 if (data != NULL)
1684 free (data);
1685 return FALSE;
1686 }
277d1b5e
ILT
1687
1688 start = 0;
1689
eea6121a 1690 stop = section->size;
277d1b5e
ILT
1691
1692 for (i = start; i < stop;)
1693 {
1694 int j;
1695 bfd_vma virtual_address;
1696 long number, size;
1697
1698 /* The .reloc section is a sequence of blocks, with a header consisting
1725a96e 1699 of two 32 bit quantities, followed by a number of 16 bit entries. */
9602af51
KH
1700 virtual_address = bfd_get_32 (abfd, data+i);
1701 size = bfd_get_32 (abfd, data+i+4);
277d1b5e
ILT
1702 number = (size - 8) / 2;
1703
1704 if (size == 0)
1725a96e 1705 break;
277d1b5e
ILT
1706
1707 fprintf (file,
1708 _("\nVirtual Address: %08lx Chunk size %ld (0x%lx) Number of fixups %ld\n"),
a76b448c 1709 (unsigned long) virtual_address, size, size, number);
277d1b5e
ILT
1710
1711 for (j = 0; j < number; ++j)
1712 {
5933bdc9
ILT
1713 unsigned short e = bfd_get_16 (abfd, data + i + 8 + j * 2);
1714 unsigned int t = (e & 0xF000) >> 12;
277d1b5e
ILT
1715 int off = e & 0x0FFF;
1716
5933bdc9
ILT
1717 if (t >= sizeof (tbl) / sizeof (tbl[0]))
1718 t = (sizeof (tbl) / sizeof (tbl[0])) - 1;
277d1b5e 1719
5933bdc9
ILT
1720 fprintf (file,
1721 _("\treloc %4d offset %4x [%4lx] %s"),
1722 j, off, (long) (off + virtual_address), tbl[t]);
277d1b5e 1723
17505c5c 1724 /* HIGHADJ takes an argument, - the next record *is* the
9602af51 1725 low 16 bits of addend. */
5933bdc9
ILT
1726 if (t == IMAGE_REL_BASED_HIGHADJ)
1727 {
6fa957a9
KH
1728 fprintf (file, " (%4x)",
1729 ((unsigned int)
1730 bfd_get_16 (abfd, data + i + 8 + j * 2 + 2)));
1731 j++;
5933bdc9 1732 }
9602af51 1733
17505c5c 1734 fprintf (file, "\n");
277d1b5e 1735 }
1725a96e 1736
277d1b5e
ILT
1737 i += size;
1738 }
1739
1740 free (data);
1741
b34976b6 1742 return TRUE;
277d1b5e
ILT
1743}
1744
1745/* Print out the program headers. */
1746
b34976b6 1747bfd_boolean
7920ce38 1748_bfd_XX_print_private_bfd_data_common (bfd * abfd, void * vfile)
277d1b5e
ILT
1749{
1750 FILE *file = (FILE *) vfile;
1751 int j;
1752 pe_data_type *pe = pe_data (abfd);
1753 struct internal_extra_pe_aouthdr *i = &pe->pe_opthdr;
fac41780 1754 const char *subsystem_name = NULL;
277d1b5e
ILT
1755
1756 /* The MS dumpbin program reportedly ands with 0xff0f before
1757 printing the characteristics field. Not sure why. No reason to
1758 emulate it here. */
1759 fprintf (file, _("\nCharacteristics 0x%x\n"), pe->real_flags);
1760#undef PF
6fa957a9 1761#define PF(x, y) if (pe->real_flags & x) { fprintf (file, "\t%s\n", y); }
d70270c5
BF
1762 PF (IMAGE_FILE_RELOCS_STRIPPED, "relocations stripped");
1763 PF (IMAGE_FILE_EXECUTABLE_IMAGE, "executable");
1764 PF (IMAGE_FILE_LINE_NUMS_STRIPPED, "line numbers stripped");
1765 PF (IMAGE_FILE_LOCAL_SYMS_STRIPPED, "symbols stripped");
1766 PF (IMAGE_FILE_LARGE_ADDRESS_AWARE, "large address aware");
1767 PF (IMAGE_FILE_BYTES_REVERSED_LO, "little endian");
1768 PF (IMAGE_FILE_32BIT_MACHINE, "32 bit words");
1769 PF (IMAGE_FILE_DEBUG_STRIPPED, "debugging information removed");
1770 PF (IMAGE_FILE_SYSTEM, "system file");
1771 PF (IMAGE_FILE_DLL, "DLL");
1772 PF (IMAGE_FILE_BYTES_REVERSED_HI, "big endian");
277d1b5e
ILT
1773#undef PF
1774
5933bdc9 1775 /* ctime implies '\n'. */
0b6488e2
RH
1776 {
1777 time_t t = pe->coff.timestamp;
1778 fprintf (file, "\nTime/Date\t\t%s", ctime (&t));
1779 }
9602af51 1780 fprintf (file, "\nImageBase\t\t");
277d1b5e 1781 fprintf_vma (file, i->ImageBase);
9602af51 1782 fprintf (file, "\nSectionAlignment\t");
277d1b5e 1783 fprintf_vma (file, i->SectionAlignment);
9602af51 1784 fprintf (file, "\nFileAlignment\t\t");
277d1b5e 1785 fprintf_vma (file, i->FileAlignment);
9602af51
KH
1786 fprintf (file, "\nMajorOSystemVersion\t%d\n", i->MajorOperatingSystemVersion);
1787 fprintf (file, "MinorOSystemVersion\t%d\n", i->MinorOperatingSystemVersion);
1788 fprintf (file, "MajorImageVersion\t%d\n", i->MajorImageVersion);
1789 fprintf (file, "MinorImageVersion\t%d\n", i->MinorImageVersion);
1790 fprintf (file, "MajorSubsystemVersion\t%d\n", i->MajorSubsystemVersion);
1791 fprintf (file, "MinorSubsystemVersion\t%d\n", i->MinorSubsystemVersion);
1792 fprintf (file, "Win32Version\t\t%08lx\n", i->Reserved1);
1793 fprintf (file, "SizeOfImage\t\t%08lx\n", i->SizeOfImage);
1794 fprintf (file, "SizeOfHeaders\t\t%08lx\n", i->SizeOfHeaders);
1795 fprintf (file, "CheckSum\t\t%08lx\n", i->CheckSum);
1725a96e 1796
fac41780
JW
1797 switch (i->Subsystem)
1798 {
1799 case IMAGE_SUBSYSTEM_UNKNOWN:
1800 subsystem_name = "unspecified";
1801 break;
1802 case IMAGE_SUBSYSTEM_NATIVE:
1803 subsystem_name = "NT native";
1804 break;
1805 case IMAGE_SUBSYSTEM_WINDOWS_GUI:
1806 subsystem_name = "Windows GUI";
1807 break;
1808 case IMAGE_SUBSYSTEM_WINDOWS_CUI:
1809 subsystem_name = "Windows CUI";
1810 break;
1811 case IMAGE_SUBSYSTEM_POSIX_CUI:
1812 subsystem_name = "POSIX CUI";
1813 break;
1814 case IMAGE_SUBSYSTEM_WINDOWS_CE_GUI:
1815 subsystem_name = "Wince CUI";
1816 break;
1817 case IMAGE_SUBSYSTEM_EFI_APPLICATION:
1818 subsystem_name = "EFI application";
1819 break;
1820 case IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER:
1821 subsystem_name = "EFI boot service driver";
1822 break;
1823 case IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER:
9602af51 1824 subsystem_name = "EFI runtime driver";
fac41780
JW
1825 break;
1826 }
1725a96e 1827
9602af51 1828 fprintf (file, "Subsystem\t\t%08x", i->Subsystem);
fac41780
JW
1829 if (subsystem_name)
1830 fprintf (file, "\t(%s)", subsystem_name);
9602af51
KH
1831 fprintf (file, "\nDllCharacteristics\t%08x\n", i->DllCharacteristics);
1832 fprintf (file, "SizeOfStackReserve\t");
277d1b5e 1833 fprintf_vma (file, i->SizeOfStackReserve);
9602af51 1834 fprintf (file, "\nSizeOfStackCommit\t");
277d1b5e 1835 fprintf_vma (file, i->SizeOfStackCommit);
9602af51 1836 fprintf (file, "\nSizeOfHeapReserve\t");
277d1b5e 1837 fprintf_vma (file, i->SizeOfHeapReserve);
9602af51 1838 fprintf (file, "\nSizeOfHeapCommit\t");
277d1b5e 1839 fprintf_vma (file, i->SizeOfHeapCommit);
9602af51
KH
1840 fprintf (file, "\nLoaderFlags\t\t%08lx\n", i->LoaderFlags);
1841 fprintf (file, "NumberOfRvaAndSizes\t%08lx\n", i->NumberOfRvaAndSizes);
277d1b5e 1842
9602af51 1843 fprintf (file, "\nThe Data Directory\n");
277d1b5e
ILT
1844 for (j = 0; j < IMAGE_NUMBEROF_DIRECTORY_ENTRIES; j++)
1845 {
1846 fprintf (file, "Entry %1x ", j);
1847 fprintf_vma (file, i->DataDirectory[j].VirtualAddress);
1848 fprintf (file, " %08lx ", i->DataDirectory[j].Size);
1849 fprintf (file, "%s\n", dir_names[j]);
1850 }
1851
1852 pe_print_idata (abfd, vfile);
1853 pe_print_edata (abfd, vfile);
1854 pe_print_pdata (abfd, vfile);
1855 pe_print_reloc (abfd, vfile);
1856
b34976b6 1857 return TRUE;
277d1b5e
ILT
1858}
1859
1860/* Copy any private info we understand from the input bfd
1861 to the output bfd. */
1862
b34976b6 1863bfd_boolean
7920ce38 1864_bfd_XX_bfd_copy_private_bfd_data_common (bfd * ibfd, bfd * obfd)
277d1b5e
ILT
1865{
1866 /* One day we may try to grok other private data. */
1867 if (ibfd->xvec->flavour != bfd_target_coff_flavour
1868 || obfd->xvec->flavour != bfd_target_coff_flavour)
b34976b6 1869 return TRUE;
277d1b5e
ILT
1870
1871 pe_data (obfd)->pe_opthdr = pe_data (ibfd)->pe_opthdr;
1872 pe_data (obfd)->dll = pe_data (ibfd)->dll;
1873
1725a96e 1874 /* For strip: if we removed .reloc, we'll make a real mess of things
5933bdc9
ILT
1875 if we don't remove this entry as well. */
1876 if (! pe_data (obfd)->has_reloc_section)
1877 {
6fa957a9
KH
1878 pe_data (obfd)->pe_opthdr.DataDirectory[5].VirtualAddress = 0;
1879 pe_data (obfd)->pe_opthdr.DataDirectory[5].Size = 0;
5933bdc9 1880 }
b34976b6 1881 return TRUE;
277d1b5e
ILT
1882}
1883
9602af51 1884/* Copy private section data. */
1725a96e 1885
b34976b6 1886bfd_boolean
7920ce38
NC
1887_bfd_XX_bfd_copy_private_section_data (bfd *ibfd,
1888 asection *isec,
1889 bfd *obfd,
1890 asection *osec)
277d1b5e
ILT
1891{
1892 if (bfd_get_flavour (ibfd) != bfd_target_coff_flavour
1893 || bfd_get_flavour (obfd) != bfd_target_coff_flavour)
b34976b6 1894 return TRUE;
277d1b5e
ILT
1895
1896 if (coff_section_data (ibfd, isec) != NULL
1897 && pei_section_data (ibfd, isec) != NULL)
1898 {
1899 if (coff_section_data (obfd, osec) == NULL)
1900 {
dc810e39 1901 bfd_size_type amt = sizeof (struct coff_section_tdata);
7920ce38 1902 osec->used_by_bfd = bfd_zalloc (obfd, amt);
277d1b5e 1903 if (osec->used_by_bfd == NULL)
b34976b6 1904 return FALSE;
277d1b5e 1905 }
1725a96e 1906
277d1b5e
ILT
1907 if (pei_section_data (obfd, osec) == NULL)
1908 {
dc810e39 1909 bfd_size_type amt = sizeof (struct pei_section_tdata);
7920ce38 1910 coff_section_data (obfd, osec)->tdata = bfd_zalloc (obfd, amt);
277d1b5e 1911 if (coff_section_data (obfd, osec)->tdata == NULL)
b34976b6 1912 return FALSE;
277d1b5e 1913 }
1725a96e 1914
277d1b5e
ILT
1915 pei_section_data (obfd, osec)->virt_size =
1916 pei_section_data (ibfd, isec)->virt_size;
5933bdc9 1917 pei_section_data (obfd, osec)->pe_flags =
6fa957a9 1918 pei_section_data (ibfd, isec)->pe_flags;
277d1b5e
ILT
1919 }
1920
b34976b6 1921 return TRUE;
277d1b5e 1922}
7d2b58d6
ILT
1923
1924void
7920ce38 1925_bfd_XX_get_symbol_info (bfd * abfd, asymbol *symbol, symbol_info *ret)
7d2b58d6
ILT
1926{
1927 coff_get_symbol_info (abfd, symbol, ret);
7d2b58d6 1928}
2fbadf2c
ILT
1929
1930/* Handle the .idata section and other things that need symbol table
1931 access. */
1932
b34976b6 1933bfd_boolean
7920ce38 1934_bfd_XXi_final_link_postscript (bfd * abfd, struct coff_final_link_info *pfinfo)
2fbadf2c
ILT
1935{
1936 struct coff_link_hash_entry *h1;
1937 struct bfd_link_info *info = pfinfo->info;
1938
1939 /* There are a few fields that need to be filled in now while we
1940 have symbol table access.
1941
1942 The .idata subsections aren't directly available as sections, but
1943 they are in the symbol table, so get them from there. */
1944
1945 /* The import directory. This is the address of .idata$2, with size
1946 of .idata$2 + .idata$3. */
1947 h1 = coff_link_hash_lookup (coff_hash_table (info),
b34976b6 1948 ".idata$2", FALSE, FALSE, TRUE);
2fbadf2c
ILT
1949 if (h1 != NULL)
1950 {
6fa957a9 1951 pe_data (abfd)->pe_opthdr.DataDirectory[1].VirtualAddress =
2fbadf2c
ILT
1952 (h1->root.u.def.value
1953 + h1->root.u.def.section->output_section->vma
1954 + h1->root.u.def.section->output_offset);
1955 h1 = coff_link_hash_lookup (coff_hash_table (info),
b34976b6 1956 ".idata$4", FALSE, FALSE, TRUE);
2fbadf2c
ILT
1957 pe_data (abfd)->pe_opthdr.DataDirectory[1].Size =
1958 ((h1->root.u.def.value
1959 + h1->root.u.def.section->output_section->vma
1960 + h1->root.u.def.section->output_offset)
6fa957a9 1961 - pe_data (abfd)->pe_opthdr.DataDirectory[1].VirtualAddress);
2fbadf2c
ILT
1962
1963 /* The import address table. This is the size/address of
1964 .idata$5. */
1965 h1 = coff_link_hash_lookup (coff_hash_table (info),
b34976b6 1966 ".idata$5", FALSE, FALSE, TRUE);
2fbadf2c
ILT
1967 pe_data (abfd)->pe_opthdr.DataDirectory[12].VirtualAddress =
1968 (h1->root.u.def.value
1969 + h1->root.u.def.section->output_section->vma
1970 + h1->root.u.def.section->output_offset);
1971 h1 = coff_link_hash_lookup (coff_hash_table (info),
b34976b6 1972 ".idata$6", FALSE, FALSE, TRUE);
2fbadf2c
ILT
1973 pe_data (abfd)->pe_opthdr.DataDirectory[12].Size =
1974 ((h1->root.u.def.value
1975 + h1->root.u.def.section->output_section->vma
1976 + h1->root.u.def.section->output_offset)
c25cfdf8 1977 - pe_data (abfd)->pe_opthdr.DataDirectory[12].VirtualAddress);
2fbadf2c 1978 }
ca6dee30
NC
1979
1980 h1 = coff_link_hash_lookup (coff_hash_table (info),
1981 "__tls_used", FALSE, FALSE, TRUE);
1982 if (h1 != NULL)
1983 {
1984 pe_data (abfd)->pe_opthdr.DataDirectory[9].VirtualAddress =
1985 (h1->root.u.def.value
1986 + h1->root.u.def.section->output_section->vma
1987 + h1->root.u.def.section->output_offset
1988 - pe_data (abfd)->pe_opthdr.ImageBase);
1989 pe_data (abfd)->pe_opthdr.DataDirectory[9].Size = 0x18;
1990 }
1991
2fbadf2c
ILT
1992 /* If we couldn't find idata$2, we either have an excessively
1993 trivial program or are in DEEP trouble; we have to assume trivial
1994 program.... */
b34976b6 1995 return TRUE;
2fbadf2c 1996}
This page took 0.447333 seconds and 4 git commands to generate.