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