]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - ld/emultempl/pep.em
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fix ppc_collect/supply_ptrace_register() routines
[thirdparty/binutils-gdb.git] / ld / emultempl / pep.em
CommitLineData
99ad8390
NC		 1# This shell script emits a C file. -*- C -*-
2# It does some substitutions.
99ad8390
NC		 3if [ -z "$MACHINE" ]; then
4 OUTPUT_ARCH=${ARCH}
5else
6 OUTPUT_ARCH=${ARCH}:${MACHINE}
7fi
a07ee50e
CV		 8
9case ${target} in
10 *-*-cygwin*)
11 move_default_addr_high=1
12 ;;
13 *)
14 move_default_addr_high=0;
15 ;;
16esac
17
99ad8390
NC		 18rm -f e${EMULATION_NAME}.c
19(echo;echo;echo;echo;echo)>e${EMULATION_NAME}.c # there, now line numbers match ;-)
92b93329 20fragment <<EOF
4b95cf5c 21/* Copyright (C) 2006-2014 Free Software Foundation, Inc.
f96b4a7b
NC		 22 Written by Kai Tietz, OneVision Software GmbH&CoKg.
23
24 This file is part of the GNU Binutils.
99ad8390
NC		 25
26 This program is free software; you can redistribute it and/or modify
27 it under the terms of the GNU General Public License as published by
f96b4a7b 28 the Free Software Foundation; either version 3 of the License, or
99ad8390
NC		 29 (at your option) any later version.
30
31 This program is distributed in the hope that it will be useful,
32 but WITHOUT ANY WARRANTY; without even the implied warranty of
33 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
34 GNU General Public License for more details.
35
36 You should have received a copy of the GNU General Public License
37 along with this program; if not, write to the Free Software
f96b4a7b
NC		 38 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
39 MA 02110-1301, USA. */
40
99ad8390
NC		 41
42/* For WINDOWS_XP64 and higher */
43/* Based on pe.em, but modified for 64 bit support. */
44
45#define TARGET_IS_${EMULATION_NAME}
46
47#define COFF_IMAGE_WITH_PE
48#define COFF_WITH_PE
49#define COFF_WITH_pex64
50
99ad8390 51#include "sysdep.h"
3db64b00 52#include "bfd.h"
99ad8390
NC		 53#include "bfdlink.h"
54#include "getopt.h"
55#include "libiberty.h"
42627821 56#include "filenames.h"
99ad8390
NC		 57#include "ld.h"
58#include "ldmain.h"
59#include "ldexp.h"
60#include "ldlang.h"
61#include "ldfile.h"
62#include "ldemul.h"
63#include <ldgram.h>
64#include "ldlex.h"
65#include "ldmisc.h"
66#include "ldctor.h"
61e2488c 67#include "ldbuildid.h"
99ad8390
NC		 68#include "coff/internal.h"
69
70/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
71 header in generic PE code. */
72#include "coff/x86_64.h"
73#include "coff/pe.h"
74
61e2488c 75/* FIXME: These are BFD internal header files, and we should not be
99ad8390
NC		 76 using it here. */
77#include "../bfd/libcoff.h"
61e2488c 78#include "../bfd/libpei.h"
99ad8390
NC		 79
80#undef AOUTSZ
81#define AOUTSZ PEPAOUTSZ
82#define PEAOUTHDR PEPAOUTHDR
83
84#include "deffile.h"
85#include "pep-dll.h"
86#include "safe-ctype.h"
87
88/* Permit the emulation parameters to override the default section
89 alignment by setting OVERRIDE_SECTION_ALIGNMENT. FIXME: This makes
90 it seem that include/coff/internal.h should not define
91 PE_DEF_SECTION_ALIGNMENT. */
92#if PE_DEF_SECTION_ALIGNMENT != ${OVERRIDE_SECTION_ALIGNMENT:-PE_DEF_SECTION_ALIGNMENT}
93#undef PE_DEF_SECTION_ALIGNMENT
94#define PE_DEF_SECTION_ALIGNMENT ${OVERRIDE_SECTION_ALIGNMENT}
95#endif
96
97#ifdef TARGET_IS_i386pep
98#define DLL_SUPPORT
99#endif
100
101#if defined(TARGET_IS_i386pep) || ! defined(DLL_SUPPORT)
102#define PE_DEF_SUBSYSTEM 3
a07ee50e
CV		 103#undef NT_EXE_IMAGE_BASE
104#define NT_EXE_IMAGE_BASE \
105 ((bfd_vma) (${move_default_addr_high} ? 0x100400000LL \
106 : 0x400000LL))
107#undef NT_DLL_IMAGE_BASE
108#define NT_DLL_IMAGE_BASE \
109 ((bfd_vma) (${move_default_addr_high} ? 0x400000000LL \
110 : 0x10000000LL))
111#undef NT_DLL_AUTO_IMAGE_BASE
112#define NT_DLL_AUTO_IMAGE_BASE \
113 ((bfd_vma) (${move_default_addr_high} ? 0x400000000LL \
114 : 0x61300000LL))
115#undef NT_DLL_AUTO_IMAGE_MASK
116#define NT_DLL_AUTO_IMAGE_MASK \
117 ((bfd_vma) (${move_default_addr_high} ? 0x1ffff0000LL \
118 : 0x0ffc0000LL))
99ad8390
NC		 119#else
120#undef NT_EXE_IMAGE_BASE
a07ee50e
CV		 121#define NT_EXE_IMAGE_BASE \
122 ((bfd_vma) (${move_default_addr_high} ? 0x100010000LL \
123 : 0x10000LL))
124#undef NT_DLL_IMAGE_BASE
125#define NT_DLL_IMAGE_BASE \
126 ((bfd_vma) (${move_default_addr_high} ? 0x110000000LL \
127 : 0x10000000LL))
128#undef NT_DLL_AUTO_IMAGE_BASE
129#define NT_DLL_AUTO_IMAGE_BASE \
130 ((bfd_vma) (${move_default_addr_high} ? 0x120000000LL \
131 : 0x61300000LL))
132#undef NT_DLL_AUTO_IMAGE_MASK
133#define NT_DLL_AUTO_IMAGE_MASK \
134 ((bfd_vma) (${move_default_addr_high} ? 0x0ffff0000LL \
135 : 0x0ffc0000LL))
99ad8390
NC		 136#undef PE_DEF_SECTION_ALIGNMENT
137#define PE_DEF_SUBSYSTEM 2
138#undef PE_DEF_FILE_ALIGNMENT
139#define PE_DEF_FILE_ALIGNMENT 0x00000200
140#define PE_DEF_SECTION_ALIGNMENT 0x00000400
141#endif
142
99ad8390
NC		 143static struct internal_extra_pe_aouthdr pep;
144static int dll;
decfa41e 145static int pep_subsystem = ${SUBSYSTEM};
99ad8390
NC		 146static flagword real_flags = IMAGE_FILE_LARGE_ADDRESS_AWARE;
147static int support_old_code = 0;
148static lang_assignment_statement_type *image_base_statement = 0;
2f563b51 149static unsigned short pe_dll_characteristics = 0;
eeb14e5a 150static bfd_boolean insert_timestamp = TRUE;
61e2488c 151static const char *emit_build_id;
99ad8390
NC		 152
153#ifdef DLL_SUPPORT
880383ca 154static int pep_enable_stdcall_fixup = 1; /* 0=disable 1=enable (default). */
99ad8390
NC		 155static char * pep_out_def_filename = NULL;
156static char * pep_implib_filename = NULL;
157static int pep_enable_auto_image_base = 0;
158static char * pep_dll_search_prefix = NULL;
159#endif
160
161extern const char *output_filename;
162
d74720d2 163static int is_underscoring (void)
99ad8390 164{
d74720d2
KT		 165 int u = 0;
166 if (pep_leading_underscore != -1)
167 return pep_leading_underscore;
168 if (!bfd_get_target_info ("${OUTPUT_FORMAT}", NULL, NULL, &u, NULL))
b804e4af
KT		 169 bfd_get_target_info ("${RELOCATEABLE_OUTPUT_FORMAT}", NULL, NULL, &u, NULL);
170
171 if (u == -1)
172 abort ();
d74720d2
KT		 173 pep_leading_underscore = (u != 0 ? 1 : 0);
174 return pep_leading_underscore;
175}
b804e4af 176
d74720d2
KT		 177
178static void
179gld_${EMULATION_NAME}_before_parse (void)
180{
181 is_underscoring ();
99ad8390
NC		 182 ldfile_set_output_arch ("${OUTPUT_ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`);
183 output_filename = "${EXECUTABLE_NAME:-a.exe}";
184#ifdef DLL_SUPPORT
66be1055 185 input_flags.dynamic = TRUE;
99ad8390 186 config.has_shared = 1;
6ec6c79c 187 link_info.pei386_auto_import = 1;
6cb442d3 188 link_info.pei386_runtime_pseudo_reloc = 2; /* Use by default version 2. */
99ad8390
NC		 189#endif
190}
191\f
192/* PE format extra command line options. */
193
194/* Used for setting flags in the PE header. */
195enum options
196{
197 OPTION_BASE_FILE = 300 + 1,
198 OPTION_DLL,
199 OPTION_FILE_ALIGNMENT,
200 OPTION_IMAGE_BASE,
201 OPTION_MAJOR_IMAGE_VERSION,
202 OPTION_MAJOR_OS_VERSION,
203 OPTION_MAJOR_SUBSYSTEM_VERSION,
204 OPTION_MINOR_IMAGE_VERSION,
205 OPTION_MINOR_OS_VERSION,
206 OPTION_MINOR_SUBSYSTEM_VERSION,
207 OPTION_SECTION_ALIGNMENT,
208 OPTION_STACK,
209 OPTION_SUBSYSTEM,
210 OPTION_HEAP,
211 OPTION_SUPPORT_OLD_CODE,
212 OPTION_OUT_DEF,
213 OPTION_EXPORT_ALL,
214 OPTION_EXCLUDE_SYMBOLS,
2927aaca 215 OPTION_EXCLUDE_ALL_SYMBOLS,
99ad8390
NC		 216 OPTION_KILL_ATS,
217 OPTION_STDCALL_ALIASES,
218 OPTION_ENABLE_STDCALL_FIXUP,
219 OPTION_DISABLE_STDCALL_FIXUP,
220 OPTION_IMPLIB_FILENAME,
221 OPTION_WARN_DUPLICATE_EXPORTS,
222 OPTION_IMP_COMPAT,
223 OPTION_ENABLE_AUTO_IMAGE_BASE,
224 OPTION_DISABLE_AUTO_IMAGE_BASE,
225 OPTION_DLL_SEARCH_PREFIX,
226 OPTION_NO_DEFAULT_EXCLUDES,
227 OPTION_DLL_ENABLE_AUTO_IMPORT,
228 OPTION_DLL_DISABLE_AUTO_IMPORT,
229 OPTION_ENABLE_EXTRA_PE_DEBUG,
230 OPTION_EXCLUDE_LIBS,
231 OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC,
6cb442d3 232 OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC,
e1c37eb5 233 OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2,
ce11ba6c 234 OPTION_EXCLUDE_MODULES_FOR_IMPLIB,
88183869 235 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES,
522f09cd
KT		 236 OPTION_NO_LEADING_UNDERSCORE,
237 OPTION_LEADING_UNDERSCORE,
88183869 238 OPTION_ENABLE_LONG_SECTION_NAMES,
2f563b51 239 OPTION_DISABLE_LONG_SECTION_NAMES,
2d5c3743 240 OPTION_HIGH_ENTROPY_VA,
2f563b51
DK		 241 OPTION_DYNAMIC_BASE,
242 OPTION_FORCE_INTEGRITY,
243 OPTION_NX_COMPAT,
244 OPTION_NO_ISOLATION,
245 OPTION_NO_SEH,
246 OPTION_NO_BIND,
247 OPTION_WDM_DRIVER,
0cb112f7 248 OPTION_INSERT_TIMESTAMP,
eeb14e5a 249 OPTION_NO_INSERT_TIMESTAMP,
61e2488c
JT		 250 OPTION_TERMINAL_SERVER_AWARE,
251 OPTION_BUILD_ID
99ad8390
NC		 252};
253
254static void
255gld${EMULATION_NAME}_add_options
256 (int ns ATTRIBUTE_UNUSED,
257 char **shortopts ATTRIBUTE_UNUSED,
258 int nl,
259 struct option **longopts,
260 int nrl ATTRIBUTE_UNUSED,
261 struct option **really_longopts ATTRIBUTE_UNUSED)
262{
263 static const struct option xtra_long[] =
264 {
265 /* PE options */
266 {"base-file", required_argument, NULL, OPTION_BASE_FILE},
267 {"dll", no_argument, NULL, OPTION_DLL},
268 {"file-alignment", required_argument, NULL, OPTION_FILE_ALIGNMENT},
269 {"heap", required_argument, NULL, OPTION_HEAP},
270 {"image-base", required_argument, NULL, OPTION_IMAGE_BASE},
271 {"major-image-version", required_argument, NULL, OPTION_MAJOR_IMAGE_VERSION},
272 {"major-os-version", required_argument, NULL, OPTION_MAJOR_OS_VERSION},
273 {"major-subsystem-version", required_argument, NULL, OPTION_MAJOR_SUBSYSTEM_VERSION},
274 {"minor-image-version", required_argument, NULL, OPTION_MINOR_IMAGE_VERSION},
275 {"minor-os-version", required_argument, NULL, OPTION_MINOR_OS_VERSION},
276 {"minor-subsystem-version", required_argument, NULL, OPTION_MINOR_SUBSYSTEM_VERSION},
277 {"section-alignment", required_argument, NULL, OPTION_SECTION_ALIGNMENT},
278 {"stack", required_argument, NULL, OPTION_STACK},
279 {"subsystem", required_argument, NULL, OPTION_SUBSYSTEM},
280 {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
ce11ba6c
KT		 281 {"use-nul-prefixed-import-tables", no_argument, NULL,
282 OPTION_USE_NUL_PREFIXED_IMPORT_TABLES},
522f09cd
KT		 283 {"no-leading-underscore", no_argument, NULL, OPTION_NO_LEADING_UNDERSCORE},
284 {"leading-underscore", no_argument, NULL, OPTION_LEADING_UNDERSCORE},
99ad8390
NC		 285#ifdef DLL_SUPPORT
286 /* getopt allows abbreviations, so we do this to stop it
287 from treating -o as an abbreviation for this option. */
288 {"output-def", required_argument, NULL, OPTION_OUT_DEF},
289 {"output-def", required_argument, NULL, OPTION_OUT_DEF},
290 {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL},
291 {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMBOLS},
2927aaca 292 {"exclude-all-symbols", no_argument, NULL, OPTION_EXCLUDE_ALL_SYMBOLS},
99ad8390 293 {"exclude-libs", required_argument, NULL, OPTION_EXCLUDE_LIBS},
e1c37eb5 294 {"exclude-modules-for-implib", required_argument, NULL, OPTION_EXCLUDE_MODULES_FOR_IMPLIB},
99ad8390
NC		 295 {"kill-at", no_argument, NULL, OPTION_KILL_ATS},
296 {"add-stdcall-alias", no_argument, NULL, OPTION_STDCALL_ALIASES},
297 {"enable-stdcall-fixup", no_argument, NULL, OPTION_ENABLE_STDCALL_FIXUP},
298 {"disable-stdcall-fixup", no_argument, NULL, OPTION_DISABLE_STDCALL_FIXUP},
299 {"out-implib", required_argument, NULL, OPTION_IMPLIB_FILENAME},
300 {"warn-duplicate-exports", no_argument, NULL, OPTION_WARN_DUPLICATE_EXPORTS},
301 /* getopt() allows abbreviations, so we do this to stop it from
302 treating -c as an abbreviation for these --compat-implib. */
303 {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
304 {"compat-implib", no_argument, NULL, OPTION_IMP_COMPAT},
305 {"enable-auto-image-base", no_argument, NULL, OPTION_ENABLE_AUTO_IMAGE_BASE},
306 {"disable-auto-image-base", no_argument, NULL, OPTION_DISABLE_AUTO_IMAGE_BASE},
307 {"dll-search-prefix", required_argument, NULL, OPTION_DLL_SEARCH_PREFIX},
308 {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
309 {"enable-auto-import", no_argument, NULL, OPTION_DLL_ENABLE_AUTO_IMPORT},
310 {"disable-auto-import", no_argument, NULL, OPTION_DLL_DISABLE_AUTO_IMPORT},
311 {"enable-extra-pep-debug", no_argument, NULL, OPTION_ENABLE_EXTRA_PE_DEBUG},
312 {"enable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC},
313 {"disable-runtime-pseudo-reloc", no_argument, NULL, OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC},
6cb442d3 314 {"enable-runtime-pseudo-reloc-v2", no_argument, NULL, OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2},
99ad8390 315#endif
88183869
DK		 316 {"enable-long-section-names", no_argument, NULL, OPTION_ENABLE_LONG_SECTION_NAMES},
317 {"disable-long-section-names", no_argument, NULL, OPTION_DISABLE_LONG_SECTION_NAMES},
2d5c3743 318 {"high-entropy-va", no_argument, NULL, OPTION_HIGH_ENTROPY_VA},
2f563b51
DK		 319 {"dynamicbase",no_argument, NULL, OPTION_DYNAMIC_BASE},
320 {"forceinteg", no_argument, NULL, OPTION_FORCE_INTEGRITY},
321 {"nxcompat", no_argument, NULL, OPTION_NX_COMPAT},
322 {"no-isolation", no_argument, NULL, OPTION_NO_ISOLATION},
323 {"no-seh", no_argument, NULL, OPTION_NO_SEH},
324 {"no-bind", no_argument, NULL, OPTION_NO_BIND},
325 {"wdmdriver", no_argument, NULL, OPTION_WDM_DRIVER},
d127ecce 326 {"tsaware", no_argument, NULL, OPTION_TERMINAL_SERVER_AWARE},
0cb112f7 327 {"insert-timestamp", no_argument, NULL, OPTION_INSERT_TIMESTAMP},
eeb14e5a 328 {"no-insert-timestamp", no_argument, NULL, OPTION_NO_INSERT_TIMESTAMP},
61e2488c 329 {"build-id", optional_argument, NULL, OPTION_BUILD_ID},
d127ecce 330 {NULL, no_argument, NULL, 0}
99ad8390
NC		 331 };
332
d127ecce
AM		 333 *longopts
334 = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long));
99ad8390
NC		 335 memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
336}
337
338/* PE/WIN32; added routines to get the subsystem type, heap and/or stack
339 parameters which may be input from the command line. */
340
341typedef struct
342{
343 void *ptr;
344 int size;
0ead4f8d 345 bfd_vma value;
99ad8390
NC		 346 char *symbol;
347 int inited;
522f09cd
KT		 348 /* FALSE for an assembly level symbol and TRUE for a C visible symbol.
349 C visible symbols can be prefixed by underscore dependent on target's
350 settings. */
351 bfd_boolean is_c_symbol;
99ad8390
NC		 352} definfo;
353
522f09cd
KT		 354#define GET_INIT_SYMBOL_NAME(IDX) \
355 (init[(IDX)].symbol \
d74720d2 356 + ((init[(IDX)].is_c_symbol == FALSE || (is_underscoring () == 1)) ? 0 : 1))
522f09cd
KT		 357
358/* Decorates the C visible symbol by underscore, if target requires. */
359#define U(CSTR) \
d74720d2 360 ((is_underscoring () == 0) ? CSTR : "_" CSTR)
522f09cd
KT		 361
362/* Get size of constant string for a possible underscore prefixed
363 C visible symbol. */
364#define U_SIZE(CSTR) \
d74720d2 365 (sizeof (CSTR) + (is_underscoring () == 0 ? 0 : 1))
522f09cd 366
61e2488c 367#define D(field,symbol,def,usc) {&pep.field, sizeof (pep.field), def, symbol, 0, usc}
99ad8390
NC		 368
369static definfo init[] =
370{
371 /* imagebase must be first */
372#define IMAGEBASEOFF 0
522f09cd 373 D(ImageBase,"__image_base__", NT_EXE_IMAGE_BASE, FALSE),
99ad8390 374#define DLLOFF 1
522f09cd 375 {&dll, sizeof(dll), 0, "__dll__", 0, FALSE},
99ad8390 376#define MSIMAGEBASEOFF 2
522f09cd
KT		 377 D(ImageBase, "___ImageBase", NT_EXE_IMAGE_BASE, TRUE),
378 D(SectionAlignment,"__section_alignment__", PE_DEF_SECTION_ALIGNMENT, FALSE),
379 D(FileAlignment,"__file_alignment__", PE_DEF_FILE_ALIGNMENT, FALSE),
380 D(MajorOperatingSystemVersion,"__major_os_version__", 4, FALSE),
381 D(MinorOperatingSystemVersion,"__minor_os_version__", 0, FALSE),
382 D(MajorImageVersion,"__major_image_version__", 0, FALSE),
383 D(MinorImageVersion,"__minor_image_version__", 0, FALSE),
384 D(MajorSubsystemVersion,"__major_subsystem_version__", 5, FALSE),
385 D(MinorSubsystemVersion,"__minor_subsystem_version__", 2, FALSE),
386 D(Subsystem,"__subsystem__", ${SUBSYSTEM}, FALSE),
387 D(SizeOfStackReserve,"__size_of_stack_reserve__", 0x200000, FALSE),
388 D(SizeOfStackCommit,"__size_of_stack_commit__", 0x1000, FALSE),
389 D(SizeOfHeapReserve,"__size_of_heap_reserve__", 0x100000, FALSE),
390 D(SizeOfHeapCommit,"__size_of_heap_commit__", 0x1000, FALSE),
391 D(LoaderFlags,"__loader_flags__", 0x0, FALSE),
392 D(DllCharacteristics, "__dll_characteristics__", 0x0, FALSE),
393 { NULL, 0, 0, NULL, 0, FALSE}
99ad8390
NC		 394};
395
396
397static void
398gld_${EMULATION_NAME}_list_options (FILE *file)
399{
400 fprintf (file, _(" --base_file <basefile> Generate a base file for relocatable DLLs\n"));
401 fprintf (file, _(" --dll Set image base to the default for DLLs\n"));
402 fprintf (file, _(" --file-alignment <size> Set file alignment\n"));
403 fprintf (file, _(" --heap <size> Set initial size of the heap\n"));
404 fprintf (file, _(" --image-base <address> Set start address of the executable\n"));
405 fprintf (file, _(" --major-image-version <number> Set version number of the executable\n"));
406 fprintf (file, _(" --major-os-version <number> Set minimum required OS version\n"));
407 fprintf (file, _(" --major-subsystem-version <number> Set minimum required OS subsystem version\n"));
408 fprintf (file, _(" --minor-image-version <number> Set revision number of the executable\n"));
409 fprintf (file, _(" --minor-os-version <number> Set minimum required OS revision\n"));
410 fprintf (file, _(" --minor-subsystem-version <number> Set minimum required OS subsystem revision\n"));
411 fprintf (file, _(" --section-alignment <size> Set section alignment\n"));
412 fprintf (file, _(" --stack <size> Set size of the initial stack\n"));
413 fprintf (file, _(" --subsystem <name>[:<version>] Set required OS subsystem [& version]\n"));
414 fprintf (file, _(" --support-old-code Support interworking with old code\n"));
522f09cd 415 fprintf (file, _(" --[no-]leading-underscore Set explicit symbol underscore prefix mode\n"));
eeb14e5a 416 fprintf (file, _(" --[no-]insert-timestamp Use a real timestamp rather than zero. (default)\n"));
0cb112f7 417 fprintf (file, _(" This makes binaries non-deterministic\n"));
99ad8390
NC		 418#ifdef DLL_SUPPORT
419 fprintf (file, _(" --add-stdcall-alias Export symbols with and without @nn\n"));
420 fprintf (file, _(" --disable-stdcall-fixup Don't link _sym to _sym@nn\n"));
421 fprintf (file, _(" --enable-stdcall-fixup Link _sym to _sym@nn without warnings\n"));
422 fprintf (file, _(" --exclude-symbols sym,sym,... Exclude symbols from automatic export\n"));
2927aaca 423 fprintf (file, _(" --exclude-all-symbols Exclude all symbols from automatic export\n"));
99ad8390 424 fprintf (file, _(" --exclude-libs lib,lib,... Exclude libraries from automatic export\n"));
e1c37eb5
DK		 425 fprintf (file, _(" --exclude-modules-for-implib mod,mod,...\n"));
426 fprintf (file, _(" Exclude objects, archive members from auto\n"));
427 fprintf (file, _(" export, place into import library instead.\n"));
99ad8390
NC		 428 fprintf (file, _(" --export-all-symbols Automatically export all globals to DLL\n"));
429 fprintf (file, _(" --kill-at Remove @nn from exported symbols\n"));
430 fprintf (file, _(" --out-implib <file> Generate import library\n"));
431 fprintf (file, _(" --output-def <file> Generate a .DEF file for the built DLL\n"));
432 fprintf (file, _(" --warn-duplicate-exports Warn about duplicate exports.\n"));
433 fprintf (file, _(" --compat-implib Create backward compatible import libs;\n\
434 create __imp_<SYMBOL> as well.\n"));
435 fprintf (file, _(" --enable-auto-image-base Automatically choose image base for DLLs\n\
436 unless user specifies one\n"));
437 fprintf (file, _(" --disable-auto-image-base Do not auto-choose image base. (default)\n"));
438 fprintf (file, _(" --dll-search-prefix=<string> When linking dynamically to a dll without\n\
439 an importlib, use <string><basename>.dll\n\
440 in preference to lib<basename>.dll \n"));
c85f715a 441 fprintf (file, _(" --enable-auto-import Do sophisticated linking of _sym to\n\
99ad8390
NC		 442 __imp_sym for DATA references\n"));
443 fprintf (file, _(" --disable-auto-import Do not auto-import DATA items from DLLs\n"));
444 fprintf (file, _(" --enable-runtime-pseudo-reloc Work around auto-import limitations by\n\
445 adding pseudo-relocations resolved at\n\
446 runtime.\n"));
447 fprintf (file, _(" --disable-runtime-pseudo-reloc Do not add runtime pseudo-relocations for\n\
448 auto-imported DATA.\n"));
449 fprintf (file, _(" --enable-extra-pep-debug Enable verbose debug output when building\n\
450 or linking to DLLs (esp. auto-import)\n"));
88183869
DK		 451 fprintf (file, _(" --enable-long-section-names Use long COFF section names even in\n\
452 executable image files\n"));
453 fprintf (file, _(" --disable-long-section-names Never use long COFF section names, even\n\
454 in object files\n"));
2d5c3743
NC		 455 fprintf (file, _(" --high-entropy-va Image is compatible with 64-bit address space\n\
456 layout randomization (ASLR)\n"));
2f563b51
DK		 457 fprintf (file, _(" --dynamicbase Image base address may be relocated using\n\
458 address space layout randomization (ASLR)\n"));
459 fprintf (file, _(" --forceinteg Code integrity checks are enforced\n"));
460 fprintf (file, _(" --nxcompat Image is compatible with data execution prevention\n"));
461 fprintf (file, _(" --no-isolation Image understands isolation but do not isolate the image\n"));
462 fprintf (file, _(" --no-seh Image does not use SEH. No SE handler may\n\
463 be called in this image\n"));
d127ecce 464 fprintf (file, _(" --no-bind Do not bind this image\n"));
2f563b51 465 fprintf (file, _(" --wdmdriver Driver uses the WDM model\n"));
522f09cd 466 fprintf (file, _(" --tsaware Image is Terminal Server aware\n"));
61e2488c 467 fprintf (file, _(" --build-id[=STYLE] Generate build ID\n"));
99ad8390
NC		 468#endif
469}
470
471
472static void
0ead4f8d 473set_pep_name (char *name, bfd_vma val)
99ad8390 474{
d74720d2
KT		 475 int i;
476 is_underscoring ();
99ad8390
NC		 477 /* Find the name and set it. */
478 for (i = 0; init[i].ptr; i++)
479 {
522f09cd 480 if (strcmp (name, GET_INIT_SYMBOL_NAME (i)) == 0)
99ad8390
NC		 481 {
482 init[i].value = val;
483 init[i].inited = 1;
484 if (strcmp (name,"__image_base__") == 0)
522f09cd 485 set_pep_name (U ("__ImageBase"), val);
99ad8390
NC		 486 return;
487 }
488 }
489 abort ();
490}
491
decfa41e
KT		 492static void
493set_entry_point (void)
494{
495 const char *entry;
496 const char *initial_symbol_char;
d74720d2 497 int i;
decfa41e
KT		 498
499 static const struct
500 {
501 const int value;
502 const char *entry;
503 }
504 v[] =
505 {
506 { 1, "NtProcessStartup" },
507 { 2, "WinMainCRTStartup" },
508 { 3, "mainCRTStartup" },
509 { 7, "__PosixProcessStartup" },
510 { 9, "WinMainCRTStartup" },
511 {14, "mainCRTStartup" },
512 { 0, NULL }
513 };
514
515 /* Entry point name for arbitrary subsystem numbers. */
516 static const char default_entry[] = "mainCRTStartup";
517
518 if (link_info.shared || dll)
519 {
520 entry = "DllMainCRTStartup";
521 }
522 else
523 {
524 for (i = 0; v[i].entry; i++)
525 if (v[i].value == pep_subsystem)
526 break;
527
528 /* If no match, use the default. */
529 if (v[i].entry != NULL)
530 entry = v[i].entry;
531 else
532 entry = default_entry;
533 }
534
522f09cd 535 /* Now we check target's default for getting proper symbol_char. */
d74720d2 536 initial_symbol_char = (is_underscoring () != 0 ? "_" : "");
522f09cd 537
decfa41e
KT		 538 if (*initial_symbol_char != '\0')
539 {
540 char *alc_entry;
541
542 /* lang_default_entry expects its argument to be permanently
543 allocated, so we don't free this string. */
544 alc_entry = xmalloc (strlen (initial_symbol_char)
545 + strlen (entry)
546 + 1);
547 strcpy (alc_entry, initial_symbol_char);
548 strcat (alc_entry, entry);
549 entry = alc_entry;
550 }
551
552 lang_default_entry (entry);
553}
99ad8390
NC		 554
555static void
556set_pep_subsystem (void)
557{
558 const char *sver;
99ad8390
NC		 559 char *end;
560 int len;
561 int i;
99ad8390
NC		 562 unsigned long temp_subsystem;
563 static const struct
564 {
565 const char *name;
566 const int value;
99ad8390
NC		 567 }
568 v[] =
569 {
decfa41e
KT		 570 { "native", 1 },
571 { "windows", 2 },
572 { "console", 3 },
573 { "posix", 7 },
574 { "wince", 9 },
575 { "xbox", 14 },
576 { NULL, 0 }
99ad8390 577 };
99ad8390
NC		 578
579 /* Check for the presence of a version number. */
580 sver = strchr (optarg, ':');
581 if (sver == NULL)
582 len = strlen (optarg);
583 else
584 {
585 len = sver - optarg;
586 set_pep_name ("__major_subsystem_version__",
587 strtoul (sver + 1, &end, 0));
588 if (*end == '.')
589 set_pep_name ("__minor_subsystem_version__",
590 strtoul (end + 1, &end, 0));
591 if (*end != '\0')
592 einfo (_("%P: warning: bad version number in -subsystem option\n"));
593 }
594
595 /* Check for numeric subsystem. */
596 temp_subsystem = strtoul (optarg, & end, 0);
597 if ((*end == ':' || *end == '\0') && (temp_subsystem < 65536))
598 {
599 /* Search list for a numeric match to use its entry point. */
600 for (i = 0; v[i].name; i++)
601 if (v[i].value == (int) temp_subsystem)
602 break;
603
99ad8390 604 /* Use this subsystem. */
decfa41e 605 pep_subsystem = (int) temp_subsystem;
99ad8390
NC		 606 }
607 else
608 {
609 /* Search for subsystem by name. */
610 for (i = 0; v[i].name; i++)
611 if (strncmp (optarg, v[i].name, len) == 0
612 && v[i].name[len] == '\0')
613 break;
614
615 if (v[i].name == NULL)
616 {
617 einfo (_("%P%F: invalid subsystem type %s\n"), optarg);
618 return;
619 }
620
decfa41e 621 pep_subsystem = v[i].value;
99ad8390
NC		 622 }
623
decfa41e 624 set_pep_name ("__subsystem__", pep_subsystem);
99ad8390
NC		 625
626 return;
627}
628
629
630static void
631set_pep_value (char *name)
632{
633 char *end;
634
0ead4f8d 635 set_pep_name (name, (bfd_vma) strtoull (optarg, &end, 0));
99ad8390
NC		 636
637 if (end == optarg)
638 einfo (_("%P%F: invalid hex number for PE parameter '%s'\n"), optarg);
639
640 optarg = end;
641}
642
643
644static void
645set_pep_stack_heap (char *resname, char *comname)
646{
647 set_pep_value (resname);
648
649 if (*optarg == ',')
650 {
651 optarg++;
652 set_pep_value (comname);
653 }
654 else if (*optarg)
655 einfo (_("%P%F: strange hex info for PE parameter '%s'\n"), optarg);
656}
657
61e2488c 658#define DEFAULT_BUILD_ID_STYLE "md5"
99ad8390
NC		 659
660static bfd_boolean
661gld${EMULATION_NAME}_handle_option (int optc)
662{
d74720d2 663 is_underscoring ();
99ad8390
NC		 664 switch (optc)
665 {
666 default:
667 return FALSE;
668
669 case OPTION_BASE_FILE:
670 link_info.base_file = fopen (optarg, FOPEN_WB);
671 if (link_info.base_file == NULL)
e922bcab 672 einfo (_("%F%P: cannot open base file %s\n"), optarg);
99ad8390
NC		 673 break;
674
675 /* PE options. */
676 case OPTION_HEAP:
677 set_pep_stack_heap ("__size_of_heap_reserve__", "__size_of_heap_commit__");
678 break;
679 case OPTION_STACK:
680 set_pep_stack_heap ("__size_of_stack_reserve__", "__size_of_stack_commit__");
681 break;
682 case OPTION_SUBSYSTEM:
683 set_pep_subsystem ();
684 break;
685 case OPTION_MAJOR_OS_VERSION:
686 set_pep_value ("__major_os_version__");
687 break;
688 case OPTION_MINOR_OS_VERSION:
689 set_pep_value ("__minor_os_version__");
690 break;
691 case OPTION_MAJOR_SUBSYSTEM_VERSION:
692 set_pep_value ("__major_subsystem_version__");
693 break;
694 case OPTION_MINOR_SUBSYSTEM_VERSION:
695 set_pep_value ("__minor_subsystem_version__");
696 break;
697 case OPTION_MAJOR_IMAGE_VERSION:
698 set_pep_value ("__major_image_version__");
699 break;
700 case OPTION_MINOR_IMAGE_VERSION:
701 set_pep_value ("__minor_image_version__");
702 break;
703 case OPTION_FILE_ALIGNMENT:
704 set_pep_value ("__file_alignment__");
705 break;
706 case OPTION_SECTION_ALIGNMENT:
707 set_pep_value ("__section_alignment__");
708 break;
709 case OPTION_DLL:
710 set_pep_name ("__dll__", 1);
711 break;
712 case OPTION_IMAGE_BASE:
713 set_pep_value ("__image_base__");
714 break;
715 case OPTION_SUPPORT_OLD_CODE:
716 support_old_code = 1;
717 break;
ce11ba6c
KT		 718 case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES:
719 pep_use_nul_prefixed_import_tables = TRUE;
720 break;
522f09cd
KT		 721 case OPTION_NO_LEADING_UNDERSCORE:
722 pep_leading_underscore = 0;
723 break;
724 case OPTION_LEADING_UNDERSCORE:
725 pep_leading_underscore = 1;
726 break;
0cb112f7
CF		 727 case OPTION_INSERT_TIMESTAMP:
728 insert_timestamp = TRUE;
729 break;
eeb14e5a
LZ		 730 case OPTION_NO_INSERT_TIMESTAMP:
731 insert_timestamp = FALSE;
732 break;
99ad8390
NC		 733#ifdef DLL_SUPPORT
734 case OPTION_OUT_DEF:
735 pep_out_def_filename = xstrdup (optarg);
736 break;
737 case OPTION_EXPORT_ALL:
738 pep_dll_export_everything = 1;
739 break;
740 case OPTION_EXCLUDE_SYMBOLS:
e1c37eb5 741 pep_dll_add_excludes (optarg, EXCLUDESYMS);
99ad8390 742 break;
2927aaca
NC		 743 case OPTION_EXCLUDE_ALL_SYMBOLS:
744 pep_dll_exclude_all_symbols = 1;
745 break;
99ad8390 746 case OPTION_EXCLUDE_LIBS:
e1c37eb5
DK		 747 pep_dll_add_excludes (optarg, EXCLUDELIBS);
748 break;
749 case OPTION_EXCLUDE_MODULES_FOR_IMPLIB:
750 pep_dll_add_excludes (optarg, EXCLUDEFORIMPLIB);
99ad8390
NC		 751 break;
752 case OPTION_KILL_ATS:
753 pep_dll_kill_ats = 1;
754 break;
755 case OPTION_STDCALL_ALIASES:
756 pep_dll_stdcall_aliases = 1;
757 break;
758 case OPTION_ENABLE_STDCALL_FIXUP:
759 pep_enable_stdcall_fixup = 1;
760 break;
761 case OPTION_DISABLE_STDCALL_FIXUP:
762 pep_enable_stdcall_fixup = 0;
763 break;
764 case OPTION_IMPLIB_FILENAME:
765 pep_implib_filename = xstrdup (optarg);
766 break;
767 case OPTION_WARN_DUPLICATE_EXPORTS:
768 pep_dll_warn_dup_exports = 1;
769 break;
770 case OPTION_IMP_COMPAT:
771 pep_dll_compat_implib = 1;
772 break;
773 case OPTION_ENABLE_AUTO_IMAGE_BASE:
774 pep_enable_auto_image_base = 1;
775 break;
776 case OPTION_DISABLE_AUTO_IMAGE_BASE:
777 pep_enable_auto_image_base = 0;
778 break;
779 case OPTION_DLL_SEARCH_PREFIX:
780 pep_dll_search_prefix = xstrdup (optarg);
781 break;
782 case OPTION_NO_DEFAULT_EXCLUDES:
783 pep_dll_do_default_excludes = 0;
784 break;
785 case OPTION_DLL_ENABLE_AUTO_IMPORT:
786 link_info.pei386_auto_import = 1;
787 break;
788 case OPTION_DLL_DISABLE_AUTO_IMPORT:
789 link_info.pei386_auto_import = 0;
790 break;
791 case OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC:
6cb442d3 792 link_info.pei386_runtime_pseudo_reloc = 2;
99ad8390
NC		 793 break;
794 case OPTION_DLL_DISABLE_RUNTIME_PSEUDO_RELOC:
795 link_info.pei386_runtime_pseudo_reloc = 0;
796 break;
6cb442d3
KT		 797 case OPTION_DLL_ENABLE_RUNTIME_PSEUDO_RELOC_V2:
798 link_info.pei386_runtime_pseudo_reloc = 2;
799 break;
99ad8390
NC		 800 case OPTION_ENABLE_EXTRA_PE_DEBUG:
801 pep_dll_extra_pe_debug = 1;
802 break;
803#endif
88183869
DK		 804 case OPTION_ENABLE_LONG_SECTION_NAMES:
805 pep_use_coff_long_section_names = 1;
806 break;
807 case OPTION_DISABLE_LONG_SECTION_NAMES:
808 pep_use_coff_long_section_names = 0;
809 break;
2f563b51 810 /* Get DLLCharacteristics bits */
2d5c3743
NC		 811 case OPTION_HIGH_ENTROPY_VA:
812 pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_HIGH_ENTROPY_VA;
813 break;
2f563b51
DK		 814 case OPTION_DYNAMIC_BASE:
815 pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_DYNAMIC_BASE;
816 break;
817 case OPTION_FORCE_INTEGRITY:
818 pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_FORCE_INTEGRITY;
819 break;
820 case OPTION_NX_COMPAT:
821 pe_dll_characteristics |= IMAGE_DLL_CHARACTERISTICS_NX_COMPAT;
822 break;
823 case OPTION_NO_ISOLATION:
824 pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_ISOLATION;
825 break;
826 case OPTION_NO_SEH:
827 pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_SEH;
828 break;
829 case OPTION_NO_BIND:
830 pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_NO_BIND;
831 break;
832 case OPTION_WDM_DRIVER:
833 pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_WDM_DRIVER;
834 break;
835 case OPTION_TERMINAL_SERVER_AWARE:
836 pe_dll_characteristics |= IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE;
837 break;
61e2488c
JT		 838 case OPTION_BUILD_ID:
839 if (emit_build_id != NULL)
840 {
841 free ((char *) emit_build_id);
842 emit_build_id = NULL;
843 }
844 if (optarg == NULL)
845 optarg = DEFAULT_BUILD_ID_STYLE;
846 if (strcmp (optarg, "none"))
847 emit_build_id = xstrdup (optarg);
848 break;
99ad8390 849 }
2f563b51
DK		 850
851 /* Set DLLCharacteristics bits */
852 set_pep_name ("__dll_characteristics__", pe_dll_characteristics);
e4492aa0 853
99ad8390
NC		 854 return TRUE;
855}
856\f
857
858#ifdef DLL_SUPPORT
859static unsigned long
860strhash (const char *str)
861{
862 const unsigned char *s;
863 unsigned long hash;
864 unsigned int c;
865 unsigned int len;
866
867 hash = 0;
868 len = 0;
869 s = (const unsigned char *) str;
870 while ((c = *s++) != '\0')
871 {
872 hash += c + (c << 17);
873 hash ^= hash >> 2;
874 ++len;
875 }
876 hash += len + (len << 17);
877 hash ^= hash >> 2;
878
879 return hash;
880}
881
882/* Use the output file to create a image base for relocatable DLLs. */
883
0ead4f8d 884static bfd_vma
99ad8390
NC		 885compute_dll_image_base (const char *ofile)
886{
0ead4f8d 887 bfd_vma hash = (bfd_vma) strhash (ofile);
a07ee50e 888 return NT_DLL_AUTO_IMAGE_BASE + ((hash << 16) & NT_DLL_AUTO_IMAGE_MASK);
99ad8390
NC		 889}
890#endif
891
892/* Assign values to the special symbols before the linker script is
893 read. */
894
895static void
896gld_${EMULATION_NAME}_set_symbols (void)
897{
898 /* Run through and invent symbols for all the
899 names and insert the defaults. */
d74720d2 900 int j;
b804e4af 901
d74720d2 902 is_underscoring ();
99ad8390
NC		 903
904 if (!init[IMAGEBASEOFF].inited)
905 {
906 if (link_info.relocatable)
907 init[IMAGEBASEOFF].value = 0;
908 else if (init[DLLOFF].value || (link_info.shared && !link_info.pie))
d127ecce 909 {
99ad8390 910#ifdef DLL_SUPPORT
d127ecce
AM		 911 init[IMAGEBASEOFF].value = (pep_enable_auto_image_base
912 ? compute_dll_image_base (output_filename)
913 : NT_DLL_IMAGE_BASE);
99ad8390 914#else
d127ecce 915 init[IMAGEBASEOFF].value = NT_DLL_IMAGE_BASE;
99ad8390 916#endif
d127ecce 917 }
99ad8390
NC		 918 else
919 init[IMAGEBASEOFF].value = NT_EXE_IMAGE_BASE;
d127ecce 920 init[MSIMAGEBASEOFF].value = init[IMAGEBASEOFF].value;
99ad8390
NC		 921 }
922
923 /* Don't do any symbol assignments if this is a relocatable link. */
924 if (link_info.relocatable)
925 return;
926
927 /* Glue the assignments into the abs section. */
bde18da4 928 push_stat_ptr (&abs_output_section->children);
99ad8390
NC		 929
930 for (j = 0; init[j].ptr; j++)
931 {
0ead4f8d 932 bfd_vma val = init[j].value;
99ad8390 933 lang_assignment_statement_type *rv;
522f09cd 934
2e57b2af 935 rv = lang_add_assignment (exp_assign (GET_INIT_SYMBOL_NAME (j),
eb8476a6 936 exp_intop (val), FALSE));
99ad8390 937 if (init[j].size == sizeof (short))
0ead4f8d 938 *(short *) init[j].ptr = (short) val;
99ad8390 939 else if (init[j].size == sizeof (int))
0ead4f8d 940 *(int *) init[j].ptr = (int) val;
99ad8390 941 else if (init[j].size == sizeof (long))
0ead4f8d 942 *(long *) init[j].ptr = (long) val;
99ad8390
NC		 943 /* This might be a long long or other special type. */
944 else if (init[j].size == sizeof (bfd_vma))
945 *(bfd_vma *) init[j].ptr = val;
946 else abort ();
947 if (j == IMAGEBASEOFF)
948 image_base_statement = rv;
949 }
950 /* Restore the pointer. */
bde18da4 951 pop_stat_ptr ();
99ad8390
NC		 952
953 if (pep.FileAlignment > pep.SectionAlignment)
954 {
955 einfo (_("%P: warning, file alignment > section alignment.\n"));
956 }
957}
958
959/* This is called after the linker script and the command line options
960 have been read. */
961
962static void
963gld_${EMULATION_NAME}_after_parse (void)
964{
8b747e1a
DK		 965 /* PR ld/6744: Warn the user if they have used an ELF-only
966 option hoping it will work on PE+. */
967 if (link_info.export_dynamic)
968 einfo (_("%P: warning: --export-dynamic is not supported for PE+ "
969 "targets, did you mean --export-all-symbols?\n"));
97b11f40 970
decfa41e 971 set_entry_point ();
e4492aa0 972
97b11f40 973 after_parse_default ();
99ad8390
NC		 974}
975
976/* pep-dll.c directly accesses pep_data_import_dll,
977 so it must be defined outside of #ifdef DLL_SUPPORT.
978 Note - this variable is deliberately not initialised.
979 This allows it to be treated as a common varaible, and only
980 exist in one incarnation in a multiple target enabled linker. */
981char * pep_data_import_dll;
982
983#ifdef DLL_SUPPORT
984static struct bfd_link_hash_entry *pep_undef_found_sym;
985
986static bfd_boolean
987pep_undef_cdecl_match (struct bfd_link_hash_entry *h, void *inf)
988{
989 int sl;
990 char *string = inf;
8a9eab9b 991 const char *hs = h->root.string;
99ad8390
NC		 992
993 sl = strlen (string);
994 if (h->type == bfd_link_hash_defined
8a9eab9b
KT		 995 && ((*hs == '@' && *string == '_'
996 && strncmp (hs + 1, string + 1, sl - 1) == 0)
997 || strncmp (hs, string, sl) == 0)
99ad8390
NC		 998 && h->root.string[sl] == '@')
999 {
1000 pep_undef_found_sym = h;
1001 return FALSE;
1002 }
1003 return TRUE;
1004}
1005
1006static void
1007pep_fixup_stdcalls (void)
1008{
1009 static int gave_warning_message = 0;
1010 struct bfd_link_hash_entry *undef, *sym;
1011
1012 if (pep_dll_extra_pe_debug)
1013 printf ("%s\n", __FUNCTION__);
1014
1015 for (undef = link_info.hash->undefs; undef; undef=undef->u.undef.next)
1016 if (undef->type == bfd_link_hash_undefined)
1017 {
1018 char* at = strchr (undef->root.string, '@');
1019 int lead_at = (*undef->root.string == '@');
8a9eab9b
KT		 1020 if (lead_at)
1021 at = strchr (undef->root.string + 1, '@');
1022 if (at || lead_at)
99ad8390
NC		 1023 {
1024 /* The symbol is a stdcall symbol, so let's look for a
1025 cdecl symbol with the same name and resolve to that. */
8a9eab9b
KT		 1026 char *cname = xstrdup (undef->root.string);
1027
1028 if (lead_at)
1029 *cname = '_';
99ad8390 1030 at = strchr (cname, '@');
8a9eab9b
KT		 1031 if (at)
1032 *at = 0;
99ad8390
NC		 1033 sym = bfd_link_hash_lookup (link_info.hash, cname, 0, 0, 1);
1034
1035 if (sym && sym->type == bfd_link_hash_defined)
1036 {
1037 undef->type = bfd_link_hash_defined;
1038 undef->u.def.value = sym->u.def.value;
1039 undef->u.def.section = sym->u.def.section;
1040
1041 if (pep_enable_stdcall_fixup == -1)
1042 {
1043 einfo (_("Warning: resolving %s by linking to %s\n"),
1044 undef->root.string, cname);
1045 if (! gave_warning_message)
1046 {
1047 gave_warning_message = 1;
1048 einfo (_("Use --enable-stdcall-fixup to disable these warnings\n"));
1049 einfo (_("Use --disable-stdcall-fixup to disable these fixups\n"));
1050 }
1051 }
1052 }
1053 }
1054 else
1055 {
1056 /* The symbol is a cdecl symbol, so we look for stdcall
1057 symbols - which means scanning the whole symbol table. */
1058 pep_undef_found_sym = 0;
1059 bfd_link_hash_traverse (link_info.hash, pep_undef_cdecl_match,
1060 (char *) undef->root.string);
1061 sym = pep_undef_found_sym;
1062 if (sym)
1063 {
1064 undef->type = bfd_link_hash_defined;
1065 undef->u.def.value = sym->u.def.value;
1066 undef->u.def.section = sym->u.def.section;
1067
1068 if (pep_enable_stdcall_fixup == -1)
1069 {
1070 einfo (_("Warning: resolving %s by linking to %s\n"),
1071 undef->root.string, sym->root.string);
1072 if (! gave_warning_message)
1073 {
1074 gave_warning_message = 1;
1075 einfo (_("Use --enable-stdcall-fixup to disable these warnings\n"));
1076 einfo (_("Use --disable-stdcall-fixup to disable these fixups\n"));
1077 }
1078 }
1079 }
1080 }
1081 }
1082}
1083
1084static int
1085make_import_fixup (arelent *rel, asection *s)
1086{
1087 struct bfd_symbol *sym = *rel->sym_ptr_ptr;
6cb442d3
KT		 1088 char addend[8];
1089 bfd_vma _addend = 0;
1090 int suc = 0;
99ad8390
NC		 1091
1092 if (pep_dll_extra_pe_debug)
1093 printf ("arelent: %s@%#lx: add=%li\n", sym->name,
0af1713e 1094 (unsigned long) rel->address, (long) rel->addend);
99ad8390 1095
6cb442d3
KT		 1096 memset (addend, 0, sizeof (addend));
1097 switch ((rel->howto->bitsize))
1098 {
1099 case 8:
1100 suc = bfd_get_section_contents (s->owner, s, addend, rel->address, 1);
1101 if (suc && rel->howto->pc_relative)
1102 _addend = (bfd_vma) ((bfd_signed_vma) ((char) bfd_get_8 (s->owner, addend)));
1103 else if (suc)
1104 _addend = ((bfd_vma) bfd_get_8 (s->owner, addend)) & 0xff;
1105 break;
1106 case 16:
1107 suc = bfd_get_section_contents (s->owner, s, addend, rel->address, 2);
1108 if (suc && rel->howto->pc_relative)
1109 _addend = (bfd_vma) ((bfd_signed_vma) ((short) bfd_get_16 (s->owner, addend)));
1110 else if (suc)
1111 _addend = ((bfd_vma) bfd_get_16 (s->owner, addend)) & 0xffff;
1112 break;
1113 case 32:
1114 suc = bfd_get_section_contents (s->owner, s, addend, rel->address, 4);
1115 if (suc && rel->howto->pc_relative)
1116 _addend = (bfd_vma) ((bfd_signed_vma) ((int) bfd_get_32 (s->owner, addend)));
1117 else if (suc)
1118 _addend = ((bfd_vma) bfd_get_32 (s->owner, addend)) & 0xffffffff;
1119 break;
1120 case 64:
1121 suc = bfd_get_section_contents (s->owner, s, addend, rel->address, 8);
1122 if (suc)
1123 _addend = ((bfd_vma) bfd_get_64 (s->owner, addend));
1124 break;
1125 }
1126 if (! suc)
99ad8390
NC		 1127 einfo (_("%C: Cannot get section contents - auto-import exception\n"),
1128 s->owner, s, rel->address);
1129
6cb442d3
KT		 1130 if (pep_dll_extra_pe_debug)
1131 {
1132 printf ("import of 0x%lx(0x%lx) sec_addr=0x%lx", (long) _addend, (long) rel->addend, (long) rel->address);
1133 if (rel->howto->pc_relative) printf (" pcrel");
1134 printf (" %d bit rel.\n",(int) rel->howto->bitsize);
1135 }
1136 pep_create_import_fixup (rel, s, _addend);
99ad8390
NC		 1137
1138 return 1;
1139}
1140
1141static void
1142pep_find_data_imports (void)
1143{
1144 struct bfd_link_hash_entry *undef, *sym;
1145
1146 if (link_info.pei386_auto_import == 0)
1147 return;
1148
1149 for (undef = link_info.hash->undefs; undef; undef=undef->u.undef.next)
1150 {
1151 if (undef->type == bfd_link_hash_undefined)
1152 {
1153 /* C++ symbols are *long*. */
1154 char buf[4096];
1155
1156 if (pep_dll_extra_pe_debug)
1157 printf ("%s:%s\n", __FUNCTION__, undef->root.string);
1158
1159 sprintf (buf, "__imp_%s", undef->root.string);
1160
1161 sym = bfd_link_hash_lookup (link_info.hash, buf, 0, 0, 1);
1162
1163 if (sym && sym->type == bfd_link_hash_defined)
1164 {
1165 bfd *b = sym->u.def.section->owner;
1166 asymbol **symbols;
5c1d2f5f 1167 int nsyms, i;
99ad8390 1168
5c1d2f5f
AM		 1169 if (!bfd_generic_link_read_symbols (b))
1170 {
1171 einfo (_("%B%F: could not read symbols: %E\n"), b);
1172 return;
1173 }
1174
1175 symbols = bfd_get_outsymbols (b);
1176 nsyms = bfd_get_symcount (b);
99ad8390
NC		 1177
1178 for (i = 0; i < nsyms; i++)
1179 {
522f09cd 1180 if (! CONST_STRNEQ (symbols[i]->name, U ("_head_")))
99ad8390
NC		 1181 continue;
1182
1183 if (pep_dll_extra_pe_debug)
1184 printf ("->%s\n", symbols[i]->name);
1185
1186 pep_data_import_dll = (char*) (symbols[i]->name +
522f09cd 1187 U_SIZE ("_head_") - 1);
99ad8390
NC		 1188 break;
1189 }
1190
1191 pep_walk_relocs_of_symbol (&link_info, undef->root.string,
d127ecce 1192 make_import_fixup);
99ad8390
NC		 1193
1194 /* Let's differentiate it somehow from defined. */
1195 undef->type = bfd_link_hash_defweak;
1196 /* We replace original name with __imp_ prefixed, this
1197 1) may trash memory 2) leads to duplicate symbol generation.
1198 Still, IMHO it's better than having name poluted. */
1199 undef->root.string = sym->root.string;
1200 undef->u.def.value = sym->u.def.value;
1201 undef->u.def.section = sym->u.def.section;
1202 }
1203 }
1204 }
1205}
1206
1207static bfd_boolean
1208pr_sym (struct bfd_hash_entry *h, void *inf ATTRIBUTE_UNUSED)
1209{
80cc85a9 1210 printf ("+%s\n", h->string);
99ad8390
NC		 1211
1212 return TRUE;
1213}
1214#endif /* DLL_SUPPORT */
1215
e4492aa0 1216static void
3efd345c
DK		 1217debug_section_p (bfd *abfd ATTRIBUTE_UNUSED, asection *sect, void *obj)
1218{
1219 int *found = (int *) obj;
61e2488c 1220
3efd345c
DK		 1221 if (strncmp (".debug_", sect->name, sizeof (".debug_") - 1) == 0)
1222 *found = 1;
1223}
99ad8390 1224
61e2488c
JT		 1225static bfd_boolean
1226pecoff_checksum_contents (bfd *abfd,
1227 void (*process) (const void *, size_t, void *),
1228 void *arg)
1229{
1230 file_ptr filepos = (file_ptr) 0;
1231
1232 while (1)
1233 {
1234 unsigned char b;
1235 int status;
1236
1237 if (bfd_seek (abfd, filepos, SEEK_SET) != 0)
1238 return 0;
1239
1240 status = bfd_bread (&b, (bfd_size_type) 1, abfd);
1241 if (status < 1)
1242 {
1243 break;
1244 }
1245
1246 (*process) (&b, 1, arg);
1247 filepos += 1;
1248 }
1249
1250 return TRUE;
1251}
1252
1253static bfd_boolean
1254write_build_id (bfd *abfd)
1255{
1256 struct pe_tdata *t = pe_data (abfd);
1257 asection *asec;
1258 struct bfd_link_order *link_order = NULL;
1259 unsigned char *contents;
1260 bfd_size_type size;
1261 bfd_size_type build_id_size;
1262 unsigned char *build_id;
1263
1264 /* Find the section the .build-id output section has been merged info. */
1265 for (asec = abfd->sections; asec != NULL; asec = asec->next)
1266 {
1267 struct bfd_link_order *l = NULL;
1268 for (l = asec->map_head.link_order; l != NULL; l = l->next)
1269 {
1270 if ((l->type == bfd_indirect_link_order))
1271 {
1272 if (l->u.indirect.section == t->build_id.sec)
1273 {
1274 link_order = l;
1275 break;
1276 }
1277 }
1278 }
1279
1280 if (link_order)
1281 break;
1282 }
1283
1284 if (!link_order)
1285 {
1286 einfo (_("%P: warning: .build-id section discarded,"
1287 " --build-id ignored.\n"));
1288 return TRUE;
1289 }
1290
1291 if (t->build_id.sec->contents == NULL)
1292 t->build_id.sec->contents = (unsigned char *) xmalloc (t->build_id.sec->size);
1293 contents = t->build_id.sec->contents;
1294 size = t->build_id.sec->size;
1295
1296 build_id_size = compute_build_id_size (t->build_id.style);
1297 build_id = xmalloc (build_id_size);
1298 generate_build_id (abfd, t->build_id.style, pecoff_checksum_contents, build_id, build_id_size);
1299
1300 bfd_vma ib = pe_data (link_info.output_bfd)->pe_opthdr.ImageBase;
1301
1302 /* Construct a debug directory entry which points to an immediately following CodeView record. */
1303 struct internal_IMAGE_DEBUG_DIRECTORY idd;
1304 idd.Characteristics = 0;
1305 idd.TimeDateStamp = 0;
1306 idd.MajorVersion = 0;
1307 idd.MinorVersion = 0;
1308 idd.Type = PE_IMAGE_DEBUG_TYPE_CODEVIEW;
1309 idd.SizeOfData = sizeof (CV_INFO_PDB70) + 1;
1310 idd.AddressOfRawData = asec->vma - ib + link_order->offset
1311 + sizeof (struct external_IMAGE_DEBUG_DIRECTORY);
1312 idd.PointerToRawData = asec->filepos + link_order->offset
1313 + sizeof (struct external_IMAGE_DEBUG_DIRECTORY);
1314
1315 struct external_IMAGE_DEBUG_DIRECTORY *ext = (struct external_IMAGE_DEBUG_DIRECTORY *)contents;
1316 _bfd_XXi_swap_debugdir_out (abfd, &idd, ext);
1317
1318 /* Write the debug directory enttry */
1319 if (bfd_seek (abfd, asec->filepos + link_order->offset, SEEK_SET) != 0)
1320 return 0;
1321
1322 if ((bfd_bwrite (contents, size, abfd) != size))
1323 return 0;
1324
1325 /* Construct the CodeView record. */
1326 CODEVIEW_INFO cvinfo;
1327 cvinfo.CVSignature = CVINFO_PDB70_CVSIGNATURE;
1328 cvinfo.Age = 1;
1329
1330 /* Zero pad or truncate the generated build_id to fit in the CodeView record. */
1331 memset (&(cvinfo.Signature), 0, CV_INFO_SIGNATURE_LENGTH);
1332 memcpy (&(cvinfo.Signature), build_id, (build_id_size > CV_INFO_SIGNATURE_LENGTH)
1333 ? CV_INFO_SIGNATURE_LENGTH : build_id_size);
1334
1335 free (build_id);
1336
1337 /* Write the codeview record. */
1338 if (_bfd_XXi_write_codeview_record (abfd, idd.PointerToRawData, &cvinfo) == 0)
1339 return 0;
1340
1341 /* Record the location of the debug directory in the data directory. */
1342 pe_data (link_info.output_bfd)->pe_opthdr.DataDirectory[PE_DEBUG_DATA].VirtualAddress
1343 = asec->vma - ib + link_order->offset;
1344 pe_data (link_info.output_bfd)->pe_opthdr.DataDirectory[PE_DEBUG_DATA].Size
1345 = sizeof (struct external_IMAGE_DEBUG_DIRECTORY);
1346
1347 return TRUE;
1348}
1349
1350/* Make .build-id section, and set up coff_tdata->build_id. */
1351static bfd_boolean
1352setup_build_id (bfd *ibfd)
1353{
1354 asection *s;
1355 flagword flags;
1356
1357 if (!validate_build_id_style (emit_build_id))
1358 {
1359 einfo ("%P: warning: unrecognized --build-id style ignored.\n");
1360 return FALSE;
1361 }
1362
1363 flags = (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_IN_MEMORY
1364 | SEC_LINKER_CREATED | SEC_READONLY | SEC_DATA);
1365 s = bfd_make_section_anyway_with_flags (ibfd, ".build-id", flags);
1366 if (s != NULL)
1367 {
1368 struct pe_tdata *t = pe_data (link_info.output_bfd);
1369 t->build_id.after_write_object_contents = &write_build_id;
1370 t->build_id.style = emit_build_id;
1371 t->build_id.sec = s;
1372
1373 /* Section is a fixed size:
1374 One IMAGE_DEBUG_DIRECTORY entry, of type IMAGE_DEBUG_TYPE_CODEVIEW,
1375 pointing at a CV_INFO_PDB70 record containing the build-id, with a
1376 null byte for PdbFileName. */
1377 s->size = sizeof (struct external_IMAGE_DEBUG_DIRECTORY)
1378 + sizeof (CV_INFO_PDB70) + 1;
1379
1380 return TRUE;
1381 }
1382
1383 einfo ("%P: warning: Cannot create .build-id section,"
1384 " --build-id ignored.\n");
1385 return FALSE;
1386}
1387
99ad8390
NC		 1388static void
1389gld_${EMULATION_NAME}_after_open (void)
1390{
5c3049d2
AM		 1391 after_open_default ();
1392
d74720d2 1393 is_underscoring ();
99ad8390
NC		 1394#ifdef DLL_SUPPORT
1395 if (pep_dll_extra_pe_debug)
1396 {
1397 bfd *a;
1398 struct bfd_link_hash_entry *sym;
1399
1400 printf ("%s()\n", __FUNCTION__);
1401
1402 for (sym = link_info.hash->undefs; sym; sym=sym->u.undef.next)
1403 printf ("-%s\n", sym->root.string);
1404 bfd_hash_traverse (&link_info.hash->table, pr_sym, NULL);
1405
c72f2fb2 1406 for (a = link_info.input_bfds; a; a = a->link.next)
99ad8390
NC		 1407 printf ("*%s\n",a->filename);
1408 }
1409#endif
1410
61e2488c
JT		 1411 if (emit_build_id != NULL)
1412 {
1413 bfd *abfd;
1414
1415 /* Find a COFF input. */
1416 for (abfd = link_info.input_bfds;
c72f2fb2 1417 abfd != (bfd *) NULL; abfd = abfd->link.next)
61e2488c
JT		 1418 if (bfd_get_flavour (abfd) == bfd_target_coff_flavour)
1419 break;
1420
1421 /* If there are no COFF input files do not try to
1422 add a build-id section. */
1423 if (abfd == NULL
1424 || !setup_build_id (abfd))
1425 {
1426 free ((char *) emit_build_id);
1427 emit_build_id = NULL;
1428 }
1429 }
1430
99ad8390
NC		 1431 /* Pass the wacky PE command line options into the output bfd.
1432 FIXME: This should be done via a function, rather than by
1433 including an internal BFD header. */
1434
f13a99db
AM		 1435 if (coff_data (link_info.output_bfd) == NULL
1436 || coff_data (link_info.output_bfd)->pe == 0)
1437 einfo (_("%F%P: cannot perform PE operations on non PE output file '%B'.\n"),
1438 link_info.output_bfd);
99ad8390 1439
f13a99db
AM		 1440 pe_data (link_info.output_bfd)->pe_opthdr = pep;
1441 pe_data (link_info.output_bfd)->dll = init[DLLOFF].value;
1442 pe_data (link_info.output_bfd)->real_flags |= real_flags;
0cb112f7 1443 pe_data (link_info.output_bfd)->insert_timestamp = insert_timestamp;
3efd345c
DK		 1444
1445 /* At this point we must decide whether to use long section names
1446 in the output or not. If the user hasn't explicitly specified
1447 on the command line, we leave it to the default for the format
1448 (object files yes, image files no), except if there is debug
1449 information present; GDB relies on the long section names to
1450 find it, so enable it in that case. */
1451 if (pep_use_coff_long_section_names < 0 && link_info.strip == strip_none)
1452 {
61e2488c
JT		 1453 if (link_info.relocatable)
1454 pep_use_coff_long_section_names = 1;
1455 else
3efd345c 1456 {
61e2488c
JT		 1457 /* Iterate over all sections of all input BFDs, checking
1458 for any that begin 'debug_' and are long names. */
1459 LANG_FOR_EACH_INPUT_STATEMENT (is)
1460 {
1461 int found_debug = 0;
1462
1463 bfd_map_over_sections (is->the_bfd, debug_section_p, &found_debug);
1464 if (found_debug)
1465 {
1466 pep_use_coff_long_section_names = 1;
1467 break;
1468 }
1469 }
3efd345c
DK		 1470 }
1471 }
1472
88183869 1473 pep_output_file_set_long_section_names (link_info.output_bfd);
99ad8390
NC		 1474
1475#ifdef DLL_SUPPORT
1476 if (pep_enable_stdcall_fixup) /* -1=warn or 1=disable */
1477 pep_fixup_stdcalls ();
1478
f13a99db 1479 pep_process_import_defs (link_info.output_bfd, &link_info);
99ad8390
NC		 1480
1481 pep_find_data_imports ();
1482
8a9eab9b
KT		 1483 /* As possibly new symbols are added by imports, we rerun
1484 stdcall/fastcall fixup here. */
1485 if (pep_enable_stdcall_fixup) /* -1=warn or 1=disable */
1486 pep_fixup_stdcalls ();
1487
99ad8390
NC		 1488#ifndef TARGET_IS_i386pep
1489 if (link_info.shared)
1490#else
1491 if (!link_info.relocatable)
1492#endif
f13a99db 1493 pep_dll_build_sections (link_info.output_bfd, &link_info);
99ad8390
NC		 1494
1495#ifndef TARGET_IS_i386pep
1496 else
f13a99db 1497 pep_exe_build_sections (link_info.output_bfd, &link_info);
99ad8390
NC		 1498#endif
1499#endif /* DLL_SUPPORT */
1500
1501 {
1502 /* This next chunk of code tries to detect the case where you have
1503 two import libraries for the same DLL (specifically,
1504 symbolically linking libm.a and libc.a in cygwin to
1505 libcygwin.a). In those cases, it's possible for function
1506 thunks from the second implib to be used but without the
1507 head/tail objects, causing an improper import table. We detect
1508 those cases and rename the "other" import libraries to match
1509 the one the head/tail come from, so that the linker will sort
1510 things nicely and produce a valid import table. */
1511
1512 LANG_FOR_EACH_INPUT_STATEMENT (is)
1513 {
1514 if (is->the_bfd->my_archive)
1515 {
1516 int idata2 = 0, reloc_count=0, is_imp = 0;
1517 asection *sec;
1518
1519 /* See if this is an import library thunk. */
1520 for (sec = is->the_bfd->sections; sec; sec = sec->next)
1521 {
1522 if (strcmp (sec->name, ".idata\$2") == 0)
1523 idata2 = 1;
1524 if (CONST_STRNEQ (sec->name, ".idata\$"))
1525 is_imp = 1;
1526 reloc_count += sec->reloc_count;
1527 }
1528
1529 if (is_imp && !idata2 && reloc_count)
1530 {
1531 /* It is, look for the reference to head and see if it's
1532 from our own library. */
1533 for (sec = is->the_bfd->sections; sec; sec = sec->next)
1534 {
1535 int i;
99ad8390
NC		 1536 long relsize;
1537 asymbol **symbols;
1538 arelent **relocs;
1539 int nrelocs;
1540
99ad8390
NC		 1541 relsize = bfd_get_reloc_upper_bound (is->the_bfd, sec);
1542 if (relsize < 1)
1543 break;
1544
5c1d2f5f 1545 if (!bfd_generic_link_read_symbols (is->the_bfd))
99ad8390 1546 {
5c1d2f5f
AM		 1547 einfo (_("%B%F: could not read symbols: %E\n"),
1548 is->the_bfd);
99ad8390
NC		 1549 return;
1550 }
5c1d2f5f 1551 symbols = bfd_get_outsymbols (is->the_bfd);
99ad8390
NC		 1552
1553 relocs = xmalloc ((size_t) relsize);
1554 nrelocs = bfd_canonicalize_reloc (is->the_bfd, sec,
1555 relocs, symbols);
1556 if (nrelocs < 0)
1557 {
1558 free (relocs);
44e36d8a 1559 einfo ("%X%P: unable to process relocs: %E\n");
99ad8390
NC		 1560 return;
1561 }
1562
1563 for (i = 0; i < nrelocs; i++)
1564 {
1565 struct bfd_symbol *s;
1566 struct bfd_link_hash_entry * blhe;
1567 char *other_bfd_filename;
1568 char *n;
1569
1570 s = (relocs[i]->sym_ptr_ptr)[0];
1571
1572 if (s->flags & BSF_LOCAL)
1573 continue;
1574
1575 /* Thunk section with reloc to another bfd. */
1576 blhe = bfd_link_hash_lookup (link_info.hash,
1577 s->name,
1578 FALSE, FALSE, TRUE);
1579
1580 if (blhe == NULL
1581 || blhe->type != bfd_link_hash_defined)
1582 continue;
1583
1584 other_bfd_filename
1585 = blhe->u.def.section->owner->my_archive
1586 ? bfd_get_filename (blhe->u.def.section->owner->my_archive)
1587 : bfd_get_filename (blhe->u.def.section->owner);
1588
42627821
KT		 1589 if (filename_cmp (bfd_get_filename
1590 (is->the_bfd->my_archive),
1591 other_bfd_filename) == 0)
99ad8390
NC		 1592 continue;
1593
1594 /* Rename this implib to match the other one. */
1595 n = xmalloc (strlen (other_bfd_filename) + 1);
1596 strcpy (n, other_bfd_filename);
1597 is->the_bfd->my_archive->filename = n;
1598 }
1599
1600 free (relocs);
1601 /* Note - we do not free the symbols,
1602 they are now cached in the BFD. */
1603 }
1604 }
1605 }
1606 }
1607 }
1608
1609 {
1610 int is_ms_arch = 0;
1611 bfd *cur_arch = 0;
1612 lang_input_statement_type *is2;
1613 lang_input_statement_type *is3;
1614
1615 /* Careful - this is a shell script. Watch those dollar signs! */
1616 /* Microsoft import libraries have every member named the same,
1617 and not in the right order for us to link them correctly. We
1618 must detect these and rename the members so that they'll link
1619 correctly. There are three types of objects: the head, the
1620 thunks, and the sentinel(s). The head is easy; it's the one
1621 with idata2. We assume that the sentinels won't have relocs,
1622 and the thunks will. It's easier than checking the symbol
1623 table for external references. */
1624 LANG_FOR_EACH_INPUT_STATEMENT (is)
1625 {
1626 if (is->the_bfd->my_archive)
1627 {
1628 char *pnt;
1629 bfd *arch = is->the_bfd->my_archive;
1630
1631 if (cur_arch != arch)
1632 {
1633 cur_arch = arch;
1634 is_ms_arch = 1;
1635
1636 for (is3 = is;
1637 is3 && is3->the_bfd->my_archive == arch;
1638 is3 = (lang_input_statement_type *) is3->next)
1639 {
1640 /* A MS dynamic import library can also contain static
1641 members, so look for the first element with a .dll
1642 extension, and use that for the remainder of the
1643 comparisons. */
1644 pnt = strrchr (is3->the_bfd->filename, '.');
42627821 1645 if (pnt != NULL && filename_cmp (pnt, ".dll") == 0)
99ad8390
NC		 1646 break;
1647 }
1648
1649 if (is3 == NULL)
1650 is_ms_arch = 0;
1651 else
1652 {
1653 /* OK, found one. Now look to see if the remaining
1654 (dynamic import) members use the same name. */
1655 for (is2 = is;
1656 is2 && is2->the_bfd->my_archive == arch;
1657 is2 = (lang_input_statement_type *) is2->next)
1658 {
1659 /* Skip static members, ie anything with a .obj
1660 extension. */
1661 pnt = strrchr (is2->the_bfd->filename, '.');
42627821 1662 if (pnt != NULL && filename_cmp (pnt, ".obj") == 0)
99ad8390
NC		 1663 continue;
1664
42627821
KT		 1665 if (filename_cmp (is3->the_bfd->filename,
1666 is2->the_bfd->filename))
99ad8390
NC		 1667 {
1668 is_ms_arch = 0;
1669 break;
1670 }
1671 }
1672 }
1673 }
1674
1675 /* This fragment might have come from an .obj file in a Microsoft
1676 import, and not an actual import record. If this is the case,
1677 then leave the filename alone. */
1678 pnt = strrchr (is->the_bfd->filename, '.');
1679
42627821 1680 if (is_ms_arch && (filename_cmp (pnt, ".dll") == 0))
99ad8390
NC		 1681 {
1682 int idata2 = 0, reloc_count=0;
1683 asection *sec;
1684 char *new_name, seq;
1685
1686 for (sec = is->the_bfd->sections; sec; sec = sec->next)
1687 {
1688 if (strcmp (sec->name, ".idata\$2") == 0)
1689 idata2 = 1;
1690 reloc_count += sec->reloc_count;
1691 }
1692
1693 if (idata2) /* .idata2 is the TOC */
1694 seq = 'a';
1695 else if (reloc_count > 0) /* thunks */
1696 seq = 'b';
1697 else /* sentinel */
1698 seq = 'c';
1699
1700 new_name = xmalloc (strlen (is->the_bfd->filename) + 3);
1701 sprintf (new_name, "%s.%c", is->the_bfd->filename, seq);
1702 is->the_bfd->filename = new_name;
1703
1704 new_name = xmalloc (strlen (is->filename) + 3);
1705 sprintf (new_name, "%s.%c", is->filename, seq);
1706 is->filename = new_name;
1707 }
1708 }
1709 }
1710 }
1711}
1712\f
1713static void
1714gld_${EMULATION_NAME}_before_allocation (void)
1715{
d74720d2 1716 is_underscoring ();
99ad8390
NC		 1717 before_allocation_default ();
1718}
1719\f
1720#ifdef DLL_SUPPORT
1721/* This is called when an input file isn't recognized as a BFD. We
1722 check here for .DEF files and pull them in automatically. */
1723
1724static int
1725saw_option (char *option)
1726{
1727 int i;
1728
d74720d2
KT		 1729 is_underscoring ();
1730
99ad8390 1731 for (i = 0; init[i].ptr; i++)
522f09cd 1732 if (strcmp (GET_INIT_SYMBOL_NAME (i), option) == 0)
99ad8390
NC		 1733 return init[i].inited;
1734 return 0;
1735}
1736#endif /* DLL_SUPPORT */
1737
1738static bfd_boolean
1739gld_${EMULATION_NAME}_unrecognized_file (lang_input_statement_type *entry ATTRIBUTE_UNUSED)
1740{
1741#ifdef DLL_SUPPORT
1742 const char *ext = entry->filename + strlen (entry->filename) - 4;
1743
42627821 1744 if (filename_cmp (ext, ".def") == 0 || filename_cmp (ext, ".DEF") == 0)
99ad8390
NC		 1745 {
1746 pep_def_file = def_file_parse (entry->filename, pep_def_file);
1747
1748 if (pep_def_file)
1749 {
1750 int i, buflen=0, len;
1751 char *buf;
1752
1753 for (i = 0; i < pep_def_file->num_exports; i++)
1754 {
1755 len = strlen (pep_def_file->exports[i].internal_name);
1756 if (buflen < len + 2)
1757 buflen = len + 2;
1758 }
1759
1760 buf = xmalloc (buflen);
1761
1762 for (i = 0; i < pep_def_file->num_exports; i++)
1763 {
1764 struct bfd_link_hash_entry *h;
1765
522f09cd
KT		 1766 sprintf (buf, "%s%s", U (""),
1767 pep_def_file->exports[i].internal_name);
99ad8390
NC		 1768
1769 h = bfd_link_hash_lookup (link_info.hash, buf, TRUE, TRUE, TRUE);
1770 if (h == (struct bfd_link_hash_entry *) NULL)
1771 einfo (_("%P%F: bfd_link_hash_lookup failed: %E\n"));
1772 if (h->type == bfd_link_hash_new)
1773 {
1774 h->type = bfd_link_hash_undefined;
1775 h->u.undef.abfd = NULL;
1776 bfd_link_add_undef (link_info.hash, h);
1777 }
1778 }
1779 free (buf);
1780
1781 /* def_file_print (stdout, pep_def_file); */
1782 if (pep_def_file->is_dll == 1)
1783 link_info.shared = 1;
1784
1785 if (pep_def_file->base_address != (bfd_vma)(-1))
1786 {
f13a99db
AM		 1787 pep.ImageBase
1788 = pe_data (link_info.output_bfd)->pe_opthdr.ImageBase
1789 = init[IMAGEBASEOFF].value
1790 = pep_def_file->base_address;
99ad8390
NC		 1791 init[IMAGEBASEOFF].inited = 1;
1792 if (image_base_statement)
eb8476a6
MR		 1793 image_base_statement->exp
1794 = exp_assign ("__image_base__", exp_intop (pep.ImageBase),
1795 FALSE);
99ad8390
NC		 1796 }
1797
1798 if (pep_def_file->stack_reserve != -1
1799 && ! saw_option ("__size_of_stack_reserve__"))
1800 {
1801 pep.SizeOfStackReserve = pep_def_file->stack_reserve;
1802 if (pep_def_file->stack_commit != -1)
1803 pep.SizeOfStackCommit = pep_def_file->stack_commit;
1804 }
1805 if (pep_def_file->heap_reserve != -1
1806 && ! saw_option ("__size_of_heap_reserve__"))
1807 {
1808 pep.SizeOfHeapReserve = pep_def_file->heap_reserve;
1809 if (pep_def_file->heap_commit != -1)
1810 pep.SizeOfHeapCommit = pep_def_file->heap_commit;
1811 }
1812 return TRUE;
1813 }
1814 }
1815#endif
1816 return FALSE;
1817}
1818
1819static bfd_boolean
1820gld_${EMULATION_NAME}_recognized_file (lang_input_statement_type *entry ATTRIBUTE_UNUSED)
1821{
d74720d2 1822 is_underscoring ();
99ad8390
NC		 1823#ifdef DLL_SUPPORT
1824#ifdef TARGET_IS_i386pep
1825 pep_dll_id_target ("pei-x86-64");
1826#endif
880383ca
NC		 1827 if (pep_bfd_is_dll (entry->the_bfd))
1828 return pep_implied_import_dll (entry->filename);
99ad8390
NC		 1829#endif
1830 return FALSE;
1831}
1832
1833static void
1834gld_${EMULATION_NAME}_finish (void)
1835{
d74720d2 1836 is_underscoring ();
99ad8390
NC		 1837 finish_default ();
1838
1839#ifdef DLL_SUPPORT
1840 if (link_info.shared
1841 || (!link_info.relocatable && pep_def_file->num_exports != 0))
1842 {
f13a99db 1843 pep_dll_fill_sections (link_info.output_bfd, &link_info);
99ad8390 1844 if (pep_implib_filename)
e1c37eb5 1845 pep_dll_generate_implib (pep_def_file, pep_implib_filename, &link_info);
99ad8390
NC		 1846 }
1847
1848 if (pep_out_def_filename)
1849 pep_dll_generate_def_file (pep_out_def_filename);
1850#endif /* DLL_SUPPORT */
1851
1852 /* I don't know where .idata gets set as code, but it shouldn't be. */
1853 {
f13a99db 1854 asection *asec = bfd_get_section_by_name (link_info.output_bfd, ".idata");
99ad8390
NC		 1855
1856 if (asec)
1857 {
1858 asec->flags &= ~SEC_CODE;
1859 asec->flags |= SEC_DATA;
1860 }
1861 }
1862}
1863
1864\f
1865/* Place an orphan section.
1866
1867 We use this to put sections in a reasonable place in the file, and
1868 to ensure that they are aligned as required.
1869
d34c1c51 1870 We handle grouped sections here as well. A section named .foo\$nn
99ad8390
NC		 1871 goes into the output section .foo. All grouped sections are sorted
1872 by name.
1873
1874 Grouped sections for the default sections are handled by the
1875 default linker script using wildcards, and are sorted by
1876 sort_sections. */
1877
c2edb4b8 1878static lang_output_section_statement_type *
8a99a385
AM		 1879gld_${EMULATION_NAME}_place_orphan (asection *s,
1880 const char *secname,
1881 int constraint)
99ad8390 1882{
bcacc0f5 1883 const char *orig_secname = secname;
99ad8390
NC		 1884 char *dollar = NULL;
1885 lang_output_section_statement_type *os;
1886 lang_statement_list_type add_child;
b5f14a6d 1887 lang_output_section_statement_type *match_by_name = NULL;
011aa75f 1888 lang_statement_union_type **pl;
99ad8390 1889
99ad8390 1890 /* Look through the script to see where to place this section. */
99ad8390 1891 if (!link_info.relocatable
d34c1c51 1892 && (dollar = strchr (secname, '\$')) != NULL)
99ad8390 1893 {
bcacc0f5 1894 size_t len = dollar - secname;
99ad8390 1895 char *newname = xmalloc (len + 1);
bcacc0f5 1896 memcpy (newname, secname, len);
99ad8390
NC		 1897 newname[len] = '\0';
1898 secname = newname;
1899 }
1900
99ad8390
NC		 1901 lang_list_init (&add_child);
1902
d127ecce
AM		 1903 os = NULL;
1904 if (constraint == 0)
1905 for (os = lang_output_section_find (secname);
1906 os != NULL;
1907 os = next_matching_output_section_statement (os, 0))
1908 {
1909 /* If we don't match an existing output section, tell
1910 lang_insert_orphan to create a new output section. */
1911 constraint = SPECIAL;
1912
1913 if (os->bfd_section != NULL
1914 && (os->bfd_section->flags == 0
1915 || ((s->flags ^ os->bfd_section->flags)
1916 & (SEC_LOAD | SEC_ALLOC)) == 0))
1917 {
1918 /* We already have an output section statement with this
1919 name, and its bfd section has compatible flags.
1920 If the section already exists but does not have any flags set,
1921 then it has been created by the linker, probably as a result of
1922 a --section-start command line switch. */
b9c361e0 1923 lang_add_section (&add_child, s, NULL, os);
d127ecce
AM		 1924 break;
1925 }
b5f14a6d
DD		 1926
1927 /* Save unused output sections in case we can match them
1928 against orphans later. */
1929 if (os->bfd_section == NULL)
1930 match_by_name = os;
d127ecce
AM		 1931 }
1932
b5f14a6d
DD		 1933 /* If we didn't match an active output section, see if we matched an
1934 unused one and use that. */
1935 if (os == NULL && match_by_name)
1936 {
b9c361e0 1937 lang_add_section (&match_by_name->children, s, NULL, match_by_name);
b5f14a6d
DD		 1938 return match_by_name;
1939 }
1940
d127ecce 1941 if (os == NULL)
99ad8390
NC		 1942 {
1943 static struct orphan_save hold[] =
1944 {
1945 { ".text",
1946 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE,
1947 0, 0, 0, 0 },
d4874973
KT		 1948 { ".idata",
1949 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
1950 0, 0, 0, 0 },
99ad8390
NC		 1951 { ".rdata",
1952 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_DATA,
1953 0, 0, 0, 0 },
1954 { ".data",
1955 SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA,
1956 0, 0, 0, 0 },
1957 { ".bss",
1958 SEC_ALLOC,
1959 0, 0, 0, 0 }
1960 };
1961 enum orphan_save_index
1962 {
1963 orphan_text = 0,
d4874973 1964 orphan_idata,
99ad8390
NC		 1965 orphan_rodata,
1966 orphan_data,
1967 orphan_bss
1968 };
1969 static int orphan_init_done = 0;
1970 struct orphan_save *place;
1971 lang_output_section_statement_type *after;
1972 etree_type *address;
1973
1974 if (!orphan_init_done)
1975 {
1976 struct orphan_save *ho;
1977 for (ho = hold; ho < hold + sizeof (hold) / sizeof (hold[0]); ++ho)
1978 if (ho->name != NULL)
1979 {
1980 ho->os = lang_output_section_find (ho->name);
1981 if (ho->os != NULL && ho->os->flags == 0)
1982 ho->os->flags = ho->flags;
1983 }
1984 orphan_init_done = 1;
1985 }
1986
1987 /* Try to put the new output section in a reasonable place based
1988 on the section name and section flags. */
1989
1990 place = NULL;
1991 if ((s->flags & SEC_ALLOC) == 0)
1992 ;
1993 else if ((s->flags & (SEC_LOAD | SEC_HAS_CONTENTS)) == 0)
1994 place = &hold[orphan_bss];
1995 else if ((s->flags & SEC_READONLY) == 0)
1996 place = &hold[orphan_data];
1997 else if ((s->flags & SEC_CODE) == 0)
d4874973
KT		 1998 {
1999 place = (!strncmp (secname, ".idata\$", 7) ? &hold[orphan_idata]
2000 : &hold[orphan_rodata]);
2001 }
99ad8390
NC		 2002 else
2003 place = &hold[orphan_text];
2004
2005 after = NULL;
2006 if (place != NULL)
2007 {
2008 if (place->os == NULL)
2009 place->os = lang_output_section_find (place->name);
2010 after = place->os;
2011 if (after == NULL)
2012 after = lang_output_section_find_by_flags (s, &place->os, NULL);
2013 if (after == NULL)
2014 /* *ABS* is always the first output section statement. */
2015 after = (&lang_output_section_statement.head
2016 ->output_section_statement);
2017 }
2018
4bf0cafb
DK		 2019 /* All sections in an executable must be aligned to a page boundary.
2020 In a relocatable link, just preserve the incoming alignment; the
2021 address is discarded by lang_insert_orphan in that case, anyway. */
99ad8390 2022 address = exp_unop (ALIGN_K, exp_nameop (NAME, "__section_alignment__"));
8a99a385
AM		 2023 os = lang_insert_orphan (s, secname, constraint, after, place, address,
2024 &add_child);
4bf0cafb
DK		 2025 if (link_info.relocatable)
2026 {
2027 os->section_alignment = s->alignment_power;
2028 os->bfd_section->alignment_power = s->alignment_power;
2029 }
99ad8390
NC		 2030 }
2031
011aa75f
AM		 2032 /* If the section name has a '\$', sort it with the other '\$'
2033 sections. */
2034 for (pl = &os->children.head; *pl != NULL; pl = &(*pl)->header.next)
2035 {
2036 lang_input_section_type *ls;
2037 const char *lname;
99ad8390 2038
011aa75f
AM		 2039 if ((*pl)->header.type != lang_input_section_enum)
2040 continue;
99ad8390 2041
011aa75f 2042 ls = &(*pl)->input_section;
99ad8390 2043
011aa75f
AM		 2044 lname = bfd_get_section_name (ls->section->owner, ls->section);
2045 if (strchr (lname, '\$') != NULL
2046 && (dollar == NULL || strcmp (orig_secname, lname) < 0))
2047 break;
2048 }
99ad8390 2049
011aa75f
AM		 2050 if (add_child.head != NULL)
2051 {
2052 *add_child.tail = *pl;
2053 *pl = add_child.head;
2054 }
99ad8390 2055
c2edb4b8 2056 return os;
99ad8390
NC		 2057}
2058
2059static bfd_boolean
2060gld_${EMULATION_NAME}_open_dynamic_archive
2061 (const char *arch ATTRIBUTE_UNUSED,
2062 search_dirs_type *search,
2063 lang_input_statement_type *entry)
2064{
2065 static const struct
2066 {
2067 const char * format;
2068 bfd_boolean use_prefix;
2069 }
2070 libname_fmt [] =
2071 {
2072 /* Preferred explicit import library for dll's. */
2073 { "lib%s.dll.a", FALSE },
2074 /* Alternate explicit import library for dll's. */
2075 { "%s.dll.a", FALSE },
2076 /* "libfoo.a" could be either an import lib or a static lib.
2077 For backwards compatibility, libfoo.a needs to precede
2078 libfoo.dll and foo.dll in the search. */
2079 { "lib%s.a", FALSE },
92b93329 2080 /* The 'native' spelling of an import lib name is "foo.lib". */
99ad8390
NC		 2081 { "%s.lib", FALSE },
2082#ifdef DLL_SUPPORT
2083 /* Try "<prefix>foo.dll" (preferred dll name, if specified). */
2084 { "%s%s.dll", TRUE },
2085#endif
2086 /* Try "libfoo.dll" (default preferred dll name). */
2087 { "lib%s.dll", FALSE },
2088 /* Finally try 'native' dll name "foo.dll". */
2089 { "%s.dll", FALSE },
2090 /* Note: If adding more formats to this table, make sure to check to
2091 see if their length is longer than libname_fmt[0].format, and if
2092 so, update the call to xmalloc() below. */
2093 { NULL, FALSE }
2094 };
2095 static unsigned int format_max_len = 0;
2096 const char * filename;
2097 char * full_string;
2098 char * base_string;
2099 unsigned int i;
2100
2101
d4ae5fb0 2102 if (! entry->flags.maybe_archive || entry->flags.full_name_provided)
99ad8390
NC		 2103 return FALSE;
2104
2105 filename = entry->filename;
2106
2107 if (format_max_len == 0)
2108 /* We need to allow space in the memory that we are going to allocate
2109 for the characters in the format string. Since the format array is
2110 static we only need to calculate this information once. In theory
2111 this value could also be computed statically, but this introduces
2112 the possibility for a discrepancy and hence a possible memory
2113 corruption. The lengths we compute here will be too long because
2114 they will include any formating characters (%s) in the strings, but
2115 this will not matter. */
2116 for (i = 0; libname_fmt[i].format; i++)
2117 if (format_max_len < strlen (libname_fmt[i].format))
2118 format_max_len = strlen (libname_fmt[i].format);
2119
2120 full_string = xmalloc (strlen (search->name)
2121 + strlen (filename)
2122 + format_max_len
2123#ifdef DLL_SUPPORT
2124 + (pep_dll_search_prefix
2125 ? strlen (pep_dll_search_prefix) : 0)
2126#endif
2127 /* Allow for the terminating NUL and for the path
2128 separator character that is inserted between
2129 search->name and the start of the format string. */
2130 + 2);
2131
2132 sprintf (full_string, "%s/", search->name);
2133 base_string = full_string + strlen (full_string);
2134
2135 for (i = 0; libname_fmt[i].format; i++)
2136 {
92b93329 2137#ifdef DLL_SUPPORT
99ad8390
NC		 2138 if (libname_fmt[i].use_prefix)
2139 {
2140 if (!pep_dll_search_prefix)
2141 continue;
2142 sprintf (base_string, libname_fmt[i].format, pep_dll_search_prefix, filename);
2143 }
2144 else
2145#endif
2146 sprintf (base_string, libname_fmt[i].format, filename);
2147
2148 if (ldfile_try_open_bfd (full_string, entry))
2149 break;
2150 }
2151
2152 if (!libname_fmt[i].format)
2153 {
2154 free (full_string);
2155 return FALSE;
2156 }
2157
2158 entry->filename = full_string;
2159
2160 return TRUE;
2161}
2162
2163static int
2164gld_${EMULATION_NAME}_find_potential_libraries
2165 (char *name, lang_input_statement_type *entry)
2166{
2167 return ldfile_open_file_search (name, entry, "", ".lib");
2168}
2169\f
2170static char *
2171gld_${EMULATION_NAME}_get_script (int *isfile)
2172EOF
2173# Scripts compiled in.
2174# sed commands to quote an ld script as a C string.
2175sc="-f stringify.sed"
2176
92b93329 2177fragment <<EOF
99ad8390
NC		 2178{
2179 *isfile = 0;
2180
2181 if (link_info.relocatable && config.build_constructors)
2182 return
2183EOF
2184sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
2185echo ' ; else if (link_info.relocatable) return' >> e${EMULATION_NAME}.c
2186sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
2187echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
2188sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
2189echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
2190sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
e2a83dd0 2191if test -n "$GENERATE_AUTO_IMPORT_SCRIPT" ; then
6ec6c79c 2192echo ' ; else if (link_info.pei386_auto_import == 1 && link_info.pei386_runtime_pseudo_reloc != 2) return' >> e${EMULATION_NAME}.c
e2a83dd0
NC		 2193sed $sc ldscripts/${EMULATION_NAME}.xa >> e${EMULATION_NAME}.c
2194fi
99ad8390
NC		 2195echo ' ; else return' >> e${EMULATION_NAME}.c
2196sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
2197echo '; }' >> e${EMULATION_NAME}.c
2198
92b93329 2199fragment <<EOF
99ad8390
NC		 2200
2201
2202struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
2203{
2204 gld_${EMULATION_NAME}_before_parse,
2205 syslib_default,
2206 hll_default,
2207 gld_${EMULATION_NAME}_after_parse,
2208 gld_${EMULATION_NAME}_after_open,
2209 after_allocation_default,
2210 set_output_arch_default,
2211 ldemul_default_target,
2212 gld_${EMULATION_NAME}_before_allocation,
2213 gld_${EMULATION_NAME}_get_script,
2214 "${EMULATION_NAME}",
2215 "${OUTPUT_FORMAT}",
2216 gld_${EMULATION_NAME}_finish,
2217 NULL, /* Create output section statements. */
2218 gld_${EMULATION_NAME}_open_dynamic_archive,
2219 gld_${EMULATION_NAME}_place_orphan,
2220 gld_${EMULATION_NAME}_set_symbols,
2221 NULL, /* parse_args */
2222 gld${EMULATION_NAME}_add_options,
2223 gld${EMULATION_NAME}_handle_option,
2224 gld_${EMULATION_NAME}_unrecognized_file,
2225 gld_${EMULATION_NAME}_list_options,
2226 gld_${EMULATION_NAME}_recognized_file,
2227 gld_${EMULATION_NAME}_find_potential_libraries,
7a2f2d82
DD		 2228 NULL, /* new_vers_pattern. */
2229 NULL /* extra_map_file_text */
99ad8390
NC		 2230};
2231EOF
A mirror of the official binutils-gdb repository