]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - binutils/objcopy.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2013-02-14 Pedro Alves <pedro@codesourcery.com>
[thirdparty/binutils-gdb.git] / binutils / objcopy.c
CommitLineData
252b5132 1/* objcopy.c -- copy object file from input to output, optionally massaging it.
8c2bc687 2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
955d0b3b 3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013
252b5132
RH		 4 Free Software Foundation, Inc.
5
6 This file is part of GNU Binutils.
7
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
32866df7 10 the Free Software Foundation; either version 3 of the License, or
252b5132
RH		 11 (at your option) any later version.
12
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
b43b5d5f
NC		 20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA. */
252b5132 22\f
3db64b00 23#include "sysdep.h"
252b5132
RH		 24#include "bfd.h"
25#include "progress.h"
252b5132
RH		 26#include "getopt.h"
27#include "libiberty.h"
3db64b00 28#include "bucomm.h"
252b5132 29#include "budbg.h"
5af11cab 30#include "filenames.h"
5fe11841 31#include "fnmatch.h"
f0312d39 32#include "elf-bfd.h"
6e2c86ac 33#include "libbfd.h"
0408dee6
DK		 34#include "coff/internal.h"
35#include "libcoff.h"
252b5132 36
92dd4511
L		 37/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
38 header in generic PE code. */
39#include "coff/i386.h"
40#include "coff/pe.h"
41
42static bfd_vma pe_file_alignment = (bfd_vma) -1;
43static bfd_vma pe_heap_commit = (bfd_vma) -1;
44static bfd_vma pe_heap_reserve = (bfd_vma) -1;
45static bfd_vma pe_image_base = (bfd_vma) -1;
46static bfd_vma pe_section_alignment = (bfd_vma) -1;
47static bfd_vma pe_stack_commit = (bfd_vma) -1;
48static bfd_vma pe_stack_reserve = (bfd_vma) -1;
49static short pe_subsystem = -1;
50static short pe_major_subsystem_version = -1;
51static short pe_minor_subsystem_version = -1;
52
047c9024 53struct is_specified_symbol_predicate_data
252b5132 54{
047c9024
NC		 55 const char *name;
56 bfd_boolean found;
252b5132
RH		 57};
58
57938635
AM		 59/* A list to support redefine_sym. */
60struct redefine_node
61{
62 char *source;
63 char *target;
64 struct redefine_node *next;
65};
66
594ef5db
NC		 67typedef struct section_rename
68{
69 const char * old_name;
70 const char * new_name;
71 flagword flags;
72 struct section_rename * next;
73}
74section_rename;
75
76/* List of sections to be renamed. */
84e2f313 77static section_rename *section_rename_list;
594ef5db 78
84e2f313
NC		 79static asymbol **isympp = NULL; /* Input symbols. */
80static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
252b5132 81
b7dd81f7 82/* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
252b5132 83static int copy_byte = -1;
b7dd81f7
NC		 84static int interleave = 0; /* Initialised to 4 in copy_main(). */
85static int copy_width = 1;
252b5132 86
b34976b6
AM		 87static bfd_boolean verbose; /* Print file and target names. */
88static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
955d0b3b 89static int deterministic = -1; /* Enable deterministic archives. */
252b5132
RH		 90static int status = 0; /* Exit status. */
91
92enum strip_action
93 {
94 STRIP_UNDEF,
84e2f313
NC		 95 STRIP_NONE, /* Don't strip. */
96 STRIP_DEBUG, /* Strip all debugger symbols. */
97 STRIP_UNNEEDED, /* Strip unnecessary symbols. */
ed1653a7 98 STRIP_NONDEBUG, /* Strip everything but debug info. */
96109726
CC		 99 STRIP_DWO, /* Strip all DWO info. */
100 STRIP_NONDWO, /* Strip everything but DWO info. */
84e2f313 101 STRIP_ALL /* Strip all symbols. */
252b5132
RH		 102 };
103
0af11b59 104/* Which symbols to remove. */
4fc8b895 105static enum strip_action strip_symbols = STRIP_UNDEF;
252b5132
RH		 106
107enum locals_action
108 {
109 LOCALS_UNDEF,
84e2f313
NC		 110 LOCALS_START_L, /* Discard locals starting with L. */
111 LOCALS_ALL /* Discard all locals. */
252b5132
RH		 112 };
113
114/* Which local symbols to remove. Overrides STRIP_ALL. */
115static enum locals_action discard_locals;
116
117/* What kind of change to perform. */
118enum change_action
119{
120 CHANGE_IGNORE,
121 CHANGE_MODIFY,
122 CHANGE_SET
123};
124
125/* Structure used to hold lists of sections and actions to take. */
126struct section_list
127{
b34976b6
AM		 128 struct section_list * next; /* Next section to change. */
129 const char * name; /* Section name. */
130 bfd_boolean used; /* Whether this entry was used. */
131 bfd_boolean remove; /* Whether to remove this section. */
132 bfd_boolean copy; /* Whether to copy this section. */
133 enum change_action change_vma;/* Whether to change or set VMA. */
134 bfd_vma vma_val; /* Amount to change by or set to. */
135 enum change_action change_lma;/* Whether to change or set LMA. */
136 bfd_vma lma_val; /* Amount to change by or set to. */
137 bfd_boolean set_flags; /* Whether to set the section flags. */
138 flagword flags; /* What to set the section flags to. */
252b5132
RH		 139};
140
141static struct section_list *change_sections;
594ef5db 142
b34976b6
AM		 143/* TRUE if some sections are to be removed. */
144static bfd_boolean sections_removed;
594ef5db 145
b34976b6
AM		 146/* TRUE if only some sections are to be copied. */
147static bfd_boolean sections_copied;
252b5132
RH		 148
149/* Changes to the start address. */
150static bfd_vma change_start = 0;
b34976b6 151static bfd_boolean set_start_set = FALSE;
252b5132
RH		 152static bfd_vma set_start;
153
154/* Changes to section addresses. */
155static bfd_vma change_section_address = 0;
156
157/* Filling gaps between sections. */
b34976b6 158static bfd_boolean gap_fill_set = FALSE;
252b5132
RH		 159static bfd_byte gap_fill = 0;
160
161/* Pad to a given address. */
b34976b6 162static bfd_boolean pad_to_set = FALSE;
252b5132
RH		 163static bfd_vma pad_to;
164
f9d4ad2a
NC		 165/* Use alternative machine code? */
166static unsigned long use_alt_mach_code = 0;
1ae8b3d2 167
4087920c
MR		 168/* Output BFD flags user wants to set or clear */
169static flagword bfd_flags_to_set;
170static flagword bfd_flags_to_clear;
171
252b5132 172/* List of sections to add. */
252b5132
RH		 173struct section_add
174{
175 /* Next section to add. */
176 struct section_add *next;
177 /* Name of section to add. */
178 const char *name;
179 /* Name of file holding section contents. */
180 const char *filename;
181 /* Size of file. */
182 size_t size;
183 /* Contents of file. */
184 bfd_byte *contents;
185 /* BFD section, after it has been added. */
186 asection *section;
187};
188
594ef5db 189/* List of sections to add to the output BFD. */
252b5132
RH		 190static struct section_add *add_sections;
191
2593f09a
NC		 192/* If non-NULL the argument to --add-gnu-debuglink.
193 This should be the filename to store in the .gnu_debuglink section. */
194static const char * gnu_debuglink_filename = NULL;
195
252b5132 196/* Whether to convert debugging information. */
b34976b6 197static bfd_boolean convert_debugging = FALSE;
252b5132 198
4a114e3e
L		 199/* Whether to compress/decompress DWARF debug sections. */
200static enum
201{
202 nothing,
203 compress,
204 decompress
205} do_debug_sections = nothing;
206
252b5132 207/* Whether to change the leading character in symbol names. */
b34976b6 208static bfd_boolean change_leading_char = FALSE;
252b5132
RH		 209
210/* Whether to remove the leading character from global symbol names. */
b34976b6 211static bfd_boolean remove_leading_char = FALSE;
252b5132 212
aaad4cf3 213/* Whether to permit wildcard in symbol comparison. */
5fe11841
NC		 214static bfd_boolean wildcard = FALSE;
215
d58c2e3a
RS		 216/* True if --localize-hidden is in effect. */
217static bfd_boolean localize_hidden = FALSE;
218
16b2b71c
NC		 219/* List of symbols to strip, keep, localize, keep-global, weaken,
220 or redefine. */
047c9024
NC		 221static htab_t strip_specific_htab = NULL;
222static htab_t strip_unneeded_htab = NULL;
223static htab_t keep_specific_htab = NULL;
224static htab_t localize_specific_htab = NULL;
225static htab_t globalize_specific_htab = NULL;
226static htab_t keepglobal_specific_htab = NULL;
227static htab_t weaken_specific_htab = NULL;
57938635 228static struct redefine_node *redefine_sym_list = NULL;
252b5132 229
b34976b6
AM		 230/* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
231static bfd_boolean weaken = FALSE;
252b5132 232
1637cd90
JB		 233/* If this is TRUE, we retain BSF_FILE symbols. */
234static bfd_boolean keep_file_symbols = FALSE;
235
d7fb0dd2
NC		 236/* Prefix symbols/sections. */
237static char *prefix_symbols_string = 0;
238static char *prefix_sections_string = 0;
239static char *prefix_alloc_sections_string = 0;
240
d3e52d40
RS		 241/* True if --extract-symbol was passed on the command line. */
242static bfd_boolean extract_symbol = FALSE;
243
9e48b4c6
NC		 244/* If `reverse_bytes' is nonzero, then reverse the order of every chunk
245 of <reverse_bytes> bytes within each output section. */
246static int reverse_bytes = 0;
247
0408dee6
DK		 248/* For Coff objects, we may want to allow or disallow long section names,
249 or preserve them where found in the inputs. Debug info relies on them. */
250enum long_section_name_handling
251 {
252 DISABLE,
253 ENABLE,
254 KEEP
255 };
256
257/* The default long section handling mode is to preserve them.
258 This is also the only behaviour for 'strip'. */
259static enum long_section_name_handling long_section_names = KEEP;
9e48b4c6 260
252b5132 261/* 150 isn't special; it's just an arbitrary non-ASCII char value. */
84e2f313
NC		 262enum command_line_switch
263 {
264 OPTION_ADD_SECTION=150,
265 OPTION_CHANGE_ADDRESSES,
266 OPTION_CHANGE_LEADING_CHAR,
267 OPTION_CHANGE_START,
268 OPTION_CHANGE_SECTION_ADDRESS,
269 OPTION_CHANGE_SECTION_LMA,
270 OPTION_CHANGE_SECTION_VMA,
271 OPTION_CHANGE_WARNINGS,
4a114e3e 272 OPTION_COMPRESS_DEBUG_SECTIONS,
84e2f313 273 OPTION_DEBUGGING,
4a114e3e 274 OPTION_DECOMPRESS_DEBUG_SECTIONS,
84e2f313
NC		 275 OPTION_GAP_FILL,
276 OPTION_NO_CHANGE_WARNINGS,
277 OPTION_PAD_TO,
278 OPTION_REMOVE_LEADING_CHAR,
279 OPTION_SET_SECTION_FLAGS,
280 OPTION_SET_START,
281 OPTION_STRIP_UNNEEDED,
282 OPTION_WEAKEN,
283 OPTION_REDEFINE_SYM,
284 OPTION_REDEFINE_SYMS,
285 OPTION_SREC_LEN,
286 OPTION_SREC_FORCES3,
287 OPTION_STRIP_SYMBOLS,
bcf32829
JB		 288 OPTION_STRIP_UNNEEDED_SYMBOL,
289 OPTION_STRIP_UNNEEDED_SYMBOLS,
84e2f313 290 OPTION_KEEP_SYMBOLS,
d58c2e3a 291 OPTION_LOCALIZE_HIDDEN,
84e2f313 292 OPTION_LOCALIZE_SYMBOLS,
0408dee6 293 OPTION_LONG_SECTION_NAMES,
7b4a0685
NC		 294 OPTION_GLOBALIZE_SYMBOL,
295 OPTION_GLOBALIZE_SYMBOLS,
84e2f313
NC		 296 OPTION_KEEPGLOBAL_SYMBOLS,
297 OPTION_WEAKEN_SYMBOLS,
298 OPTION_RENAME_SECTION,
299 OPTION_ALT_MACH_CODE,
300 OPTION_PREFIX_SYMBOLS,
301 OPTION_PREFIX_SECTIONS,
302 OPTION_PREFIX_ALLOC_SECTIONS,
303 OPTION_FORMATS_INFO,
304 OPTION_ADD_GNU_DEBUGLINK,
4087920c 305 OPTION_ONLY_KEEP_DEBUG,
1637cd90 306 OPTION_KEEP_FILE_SYMBOLS,
4087920c
MR		 307 OPTION_READONLY_TEXT,
308 OPTION_WRITABLE_TEXT,
309 OPTION_PURE,
d3e52d40 310 OPTION_IMPURE,
9e48b4c6 311 OPTION_EXTRACT_SYMBOL,
92dd4511
L		 312 OPTION_REVERSE_BYTES,
313 OPTION_FILE_ALIGNMENT,
314 OPTION_HEAP,
315 OPTION_IMAGE_BASE,
316 OPTION_SECTION_ALIGNMENT,
317 OPTION_STACK,
b7dd81f7 318 OPTION_INTERLEAVE_WIDTH,
96109726
CC		 319 OPTION_SUBSYSTEM,
320 OPTION_EXTRACT_DWO,
321 OPTION_STRIP_DWO
84e2f313 322 };
252b5132
RH		 323
324/* Options to handle if running as "strip". */
325
326static struct option strip_options[] =
327{
955d0b3b 328 {"disable-deterministic-archives", no_argument, 0, 'U'},
252b5132
RH		 329 {"discard-all", no_argument, 0, 'x'},
330 {"discard-locals", no_argument, 0, 'X'},
2e30cb57 331 {"enable-deterministic-archives", no_argument, 0, 'D'},
252b5132
RH		 332 {"format", required_argument, 0, 'F'}, /* Obsolete */
333 {"help", no_argument, 0, 'h'},
7c29036b 334 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 335 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
336 {"input-target", required_argument, 0, 'I'},
1637cd90 337 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
252b5132 338 {"keep-symbol", required_argument, 0, 'K'},
ed1653a7 339 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
252b5132
RH		 340 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
341 {"output-target", required_argument, 0, 'O'},
af3bdff7 342 {"output-file", required_argument, 0, 'o'},
252b5132
RH		 343 {"preserve-dates", no_argument, 0, 'p'},
344 {"remove-section", required_argument, 0, 'R'},
345 {"strip-all", no_argument, 0, 's'},
346 {"strip-debug", no_argument, 0, 'S'},
96109726 347 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
252b5132
RH		 348 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
349 {"strip-symbol", required_argument, 0, 'N'},
350 {"target", required_argument, 0, 'F'},
351 {"verbose", no_argument, 0, 'v'},
352 {"version", no_argument, 0, 'V'},
5fe11841 353 {"wildcard", no_argument, 0, 'w'},
252b5132
RH		 354 {0, no_argument, 0, 0}
355};
356
357/* Options to handle if running as "objcopy". */
358
359static struct option copy_options[] =
360{
2593f09a 361 {"add-gnu-debuglink", required_argument, 0, OPTION_ADD_GNU_DEBUGLINK},
252b5132
RH		 362 {"add-section", required_argument, 0, OPTION_ADD_SECTION},
363 {"adjust-start", required_argument, 0, OPTION_CHANGE_START},
364 {"adjust-vma", required_argument, 0, OPTION_CHANGE_ADDRESSES},
365 {"adjust-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
366 {"adjust-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
d7fb0dd2 367 {"alt-machine-code", required_argument, 0, OPTION_ALT_MACH_CODE},
43a0748c 368 {"binary-architecture", required_argument, 0, 'B'},
252b5132
RH		 369 {"byte", required_argument, 0, 'b'},
370 {"change-addresses", required_argument, 0, OPTION_CHANGE_ADDRESSES},
371 {"change-leading-char", no_argument, 0, OPTION_CHANGE_LEADING_CHAR},
372 {"change-section-address", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
373 {"change-section-lma", required_argument, 0, OPTION_CHANGE_SECTION_LMA},
374 {"change-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_VMA},
375 {"change-start", required_argument, 0, OPTION_CHANGE_START},
376 {"change-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
4a114e3e 377 {"compress-debug-sections", no_argument, 0, OPTION_COMPRESS_DEBUG_SECTIONS},
252b5132 378 {"debugging", no_argument, 0, OPTION_DEBUGGING},
4a114e3e 379 {"decompress-debug-sections", no_argument, 0, OPTION_DECOMPRESS_DEBUG_SECTIONS},
955d0b3b 380 {"disable-deterministic-archives", no_argument, 0, 'U'},
252b5132
RH		 381 {"discard-all", no_argument, 0, 'x'},
382 {"discard-locals", no_argument, 0, 'X'},
2e30cb57 383 {"enable-deterministic-archives", no_argument, 0, 'D'},
96109726 384 {"extract-dwo", no_argument, 0, OPTION_EXTRACT_DWO},
d3e52d40 385 {"extract-symbol", no_argument, 0, OPTION_EXTRACT_SYMBOL},
252b5132
RH		 386 {"format", required_argument, 0, 'F'}, /* Obsolete */
387 {"gap-fill", required_argument, 0, OPTION_GAP_FILL},
7b4a0685
NC		 388 {"globalize-symbol", required_argument, 0, OPTION_GLOBALIZE_SYMBOL},
389 {"globalize-symbols", required_argument, 0, OPTION_GLOBALIZE_SYMBOLS},
252b5132 390 {"help", no_argument, 0, 'h'},
4087920c 391 {"impure", no_argument, 0, OPTION_IMPURE},
7c29036b 392 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 393 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
394 {"input-target", required_argument, 0, 'I'},
b7dd81f7
NC		 395 {"interleave", optional_argument, 0, 'i'},
396 {"interleave-width", required_argument, 0, OPTION_INTERLEAVE_WIDTH},
1637cd90 397 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
d7fb0dd2
NC		 398 {"keep-global-symbol", required_argument, 0, 'G'},
399 {"keep-global-symbols", required_argument, 0, OPTION_KEEPGLOBAL_SYMBOLS},
252b5132 400 {"keep-symbol", required_argument, 0, 'K'},
d7fb0dd2 401 {"keep-symbols", required_argument, 0, OPTION_KEEP_SYMBOLS},
d58c2e3a 402 {"localize-hidden", no_argument, 0, OPTION_LOCALIZE_HIDDEN},
d7fb0dd2
NC		 403 {"localize-symbol", required_argument, 0, 'L'},
404 {"localize-symbols", required_argument, 0, OPTION_LOCALIZE_SYMBOLS},
0408dee6 405 {"long-section-names", required_argument, 0, OPTION_LONG_SECTION_NAMES},
252b5132
RH		 406 {"no-adjust-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
407 {"no-change-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
ed1653a7 408 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
d7fb0dd2 409 {"only-section", required_argument, 0, 'j'},
252b5132
RH		 410 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
411 {"output-target", required_argument, 0, 'O'},
412 {"pad-to", required_argument, 0, OPTION_PAD_TO},
d7fb0dd2
NC		 413 {"prefix-symbols", required_argument, 0, OPTION_PREFIX_SYMBOLS},
414 {"prefix-sections", required_argument, 0, OPTION_PREFIX_SECTIONS},
415 {"prefix-alloc-sections", required_argument, 0, OPTION_PREFIX_ALLOC_SECTIONS},
252b5132 416 {"preserve-dates", no_argument, 0, 'p'},
4087920c
MR		 417 {"pure", no_argument, 0, OPTION_PURE},
418 {"readonly-text", no_argument, 0, OPTION_READONLY_TEXT},
d7fb0dd2 419 {"redefine-sym", required_argument, 0, OPTION_REDEFINE_SYM},
92991082 420 {"redefine-syms", required_argument, 0, OPTION_REDEFINE_SYMS},
252b5132
RH		 421 {"remove-leading-char", no_argument, 0, OPTION_REMOVE_LEADING_CHAR},
422 {"remove-section", required_argument, 0, 'R'},
594ef5db 423 {"rename-section", required_argument, 0, OPTION_RENAME_SECTION},
9e48b4c6 424 {"reverse-bytes", required_argument, 0, OPTION_REVERSE_BYTES},
252b5132
RH		 425 {"set-section-flags", required_argument, 0, OPTION_SET_SECTION_FLAGS},
426 {"set-start", required_argument, 0, OPTION_SET_START},
d7fb0dd2
NC		 427 {"srec-len", required_argument, 0, OPTION_SREC_LEN},
428 {"srec-forceS3", no_argument, 0, OPTION_SREC_FORCES3},
252b5132
RH		 429 {"strip-all", no_argument, 0, 'S'},
430 {"strip-debug", no_argument, 0, 'g'},
96109726 431 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
252b5132 432 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
bcf32829
JB		 433 {"strip-unneeded-symbol", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOL},
434 {"strip-unneeded-symbols", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOLS},
252b5132 435 {"strip-symbol", required_argument, 0, 'N'},
d7fb0dd2 436 {"strip-symbols", required_argument, 0, OPTION_STRIP_SYMBOLS},
252b5132
RH		 437 {"target", required_argument, 0, 'F'},
438 {"verbose", no_argument, 0, 'v'},
439 {"version", no_argument, 0, 'V'},
440 {"weaken", no_argument, 0, OPTION_WEAKEN},
441 {"weaken-symbol", required_argument, 0, 'W'},
16b2b71c 442 {"weaken-symbols", required_argument, 0, OPTION_WEAKEN_SYMBOLS},
5fe11841 443 {"wildcard", no_argument, 0, 'w'},
4087920c 444 {"writable-text", no_argument, 0, OPTION_WRITABLE_TEXT},
92dd4511
L		 445 {"file-alignment", required_argument, 0, OPTION_FILE_ALIGNMENT},
446 {"heap", required_argument, 0, OPTION_HEAP},
447 {"image-base", required_argument, 0 , OPTION_IMAGE_BASE},
448 {"section-alignment", required_argument, 0, OPTION_SECTION_ALIGNMENT},
449 {"stack", required_argument, 0, OPTION_STACK},
450 {"subsystem", required_argument, 0, OPTION_SUBSYSTEM},
252b5132
RH		 451 {0, no_argument, 0, 0}
452};
453
454/* IMPORTS */
455extern char *program_name;
456
457/* This flag distinguishes between strip and objcopy:
458 1 means this is 'strip'; 0 means this is 'objcopy'.
0af11b59 459 -1 means if we should use argv[0] to decide. */
252b5132
RH		 460extern int is_strip;
461
420496c1
NC		 462/* The maximum length of an S record. This variable is declared in srec.c
463 and can be modified by the --srec-len parameter. */
464extern unsigned int Chunk;
465
466/* Restrict the generation of Srecords to type S3 only.
467 This variable is declare in bfd/srec.c and can be toggled
468 on by the --srec-forceS3 command line switch. */
b34976b6 469extern bfd_boolean S3Forced;
252b5132 470
d3ba0551
AM		 471/* Forward declarations. */
472static void setup_section (bfd *, asection *, void *);
80fccad2 473static void setup_bfd_headers (bfd *, bfd *);
c3989150 474static void copy_relocations_in_section (bfd *, asection *, void *);
d3ba0551
AM		 475static void copy_section (bfd *, asection *, void *);
476static void get_sections (bfd *, asection *, void *);
477static int compare_section_lma (const void *, const void *);
478static void mark_symbols_used_in_relocations (bfd *, asection *, void *);
479static bfd_boolean write_debugging_info (bfd *, void *, long *, asymbol ***);
480static const char *lookup_sym_redefinition (const char *);
594ef5db 481\f
252b5132 482static void
84e2f313 483copy_usage (FILE *stream, int exit_status)
252b5132 484{
8b53311e
NC		 485 fprintf (stream, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name);
486 fprintf (stream, _(" Copies a binary file, possibly transforming it in the process\n"));
6364e0b4 487 fprintf (stream, _(" The options are:\n"));
252b5132 488 fprintf (stream, _("\
d5bcb29d
NC		 489 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
490 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
8b31b6c4 491 -B --binary-architecture <arch> Set output arch, when input is arch-less\n\
d5bcb29d
NC		 492 -F --target <bfdname> Set both input and output format to <bfdname>\n\
493 --debugging Convert debugging information, if possible\n\
955d0b3b
RM		 494 -p --preserve-dates Copy modified/access timestamps to the output\n"));
495 if (DEFAULT_AR_DETERMINISTIC)
496 fprintf (stream, _("\
497 -D --enable-deterministic-archives\n\
498 Produce deterministic output when stripping archives (default)\n\
499 -U --disable-deterministic-archives\n\
500 Disable -D behavior\n"));
501 else
502 fprintf (stream, _("\
2e30cb57
CC		 503 -D --enable-deterministic-archives\n\
504 Produce deterministic output when stripping archives\n\
955d0b3b
RM		 505 -U --disable-deterministic-archives\n\
506 Disable -D behavior (default)\n"));
507 fprintf (stream, _("\
d5bcb29d 508 -j --only-section <name> Only copy section <name> into the output\n\
2593f09a 509 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
d5bcb29d
NC		 510 -R --remove-section <name> Remove section <name> from the output\n\
511 -S --strip-all Remove all symbol and relocation information\n\
2593f09a 512 -g --strip-debug Remove all debugging symbols & sections\n\
96109726 513 --strip-dwo Remove all DWO sections\n\
d5bcb29d
NC		 514 --strip-unneeded Remove all symbols not needed by relocations\n\
515 -N --strip-symbol <name> Do not copy symbol <name>\n\
bcf32829
JB		 516 --strip-unneeded-symbol <name>\n\
517 Do not copy symbol <name> unless needed by\n\
518 relocations\n\
6ea3dd37 519 --only-keep-debug Strip everything but the debug information\n\
96109726 520 --extract-dwo Copy only DWO sections\n\
d3e52d40 521 --extract-symbol Remove section contents but keep symbols\n\
e7f918ad 522 -K --keep-symbol <name> Do not strip symbol <name>\n\
1637cd90 523 --keep-file-symbols Do not strip file symbol(s)\n\
d58c2e3a 524 --localize-hidden Turn all ELF hidden symbols into locals\n\
d5bcb29d 525 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
7b4a0685 526 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
16b2b71c 527 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
d5bcb29d
NC		 528 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
529 --weaken Force all global symbols to be marked as weak\n\
a95b5cf9 530 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 531 -x --discard-all Remove all non-global symbols\n\
532 -X --discard-locals Remove any compiler-generated symbols\n\
b7dd81f7
NC		 533 -i --interleave [<number>] Only copy N out of every <number> bytes\n\
534 --interleave-width <number> Set N for --interleave\n\
d5bcb29d
NC		 535 -b --byte <num> Select byte <num> in every interleaved block\n\
536 --gap-fill <val> Fill gaps between sections with <val>\n\
537 --pad-to <addr> Pad the last section up to address <addr>\n\
538 --set-start <addr> Set the start address to <addr>\n\
539 {--change-start|--adjust-start} <incr>\n\
540 Add <incr> to the start address\n\
541 {--change-addresses|--adjust-vma} <incr>\n\
542 Add <incr> to LMA, VMA and start addresses\n\
543 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
544 Change LMA and VMA of section <name> by <val>\n\
545 --change-section-lma <name>{=|+|-}<val>\n\
546 Change the LMA of section <name> by <val>\n\
547 --change-section-vma <name>{=|+|-}<val>\n\
548 Change the VMA of section <name> by <val>\n\
549 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
550 Warn if a named section does not exist\n\
551 --set-section-flags <name>=<flags>\n\
552 Set section <name>'s properties to <flags>\n\
553 --add-section <name>=<file> Add section <name> found in <file> to output\n\
594ef5db 554 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
0408dee6
DK		 555 --long-section-names {enable|disable|keep}\n\
556 Handle long section names in Coff objects.\n\
d5bcb29d
NC		 557 --change-leading-char Force output format's leading character style\n\
558 --remove-leading-char Remove leading character from global symbols\n\
9e48b4c6 559 --reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
57938635 560 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
92991082
JT		 561 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
562 listed in <file>\n\
420496c1
NC		 563 --srec-len <number> Restrict the length of generated Srecords\n\
564 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
16b2b71c 565 --strip-symbols <file> -N for all symbols listed in <file>\n\
bcf32829
JB		 566 --strip-unneeded-symbols <file>\n\
567 --strip-unneeded-symbol for all symbols listed\n\
568 in <file>\n\
16b2b71c
NC		 569 --keep-symbols <file> -K for all symbols listed in <file>\n\
570 --localize-symbols <file> -L for all symbols listed in <file>\n\
7b4a0685 571 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
16b2b71c
NC		 572 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
573 --weaken-symbols <file> -W for all symbols listed in <file>\n\
f9d4ad2a 574 --alt-machine-code <index> Use the target's <index>'th alternative machine\n\
4087920c
MR		 575 --writable-text Mark the output text as writable\n\
576 --readonly-text Make the output text write protected\n\
577 --pure Mark the output file as demand paged\n\
578 --impure Mark the output file as impure\n\
d7fb0dd2
NC		 579 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
580 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
581 --prefix-alloc-sections <prefix>\n\
582 Add <prefix> to start of every allocatable\n\
583 section name\n\
92dd4511
L		 584 --file-alignment <num> Set PE file alignment to <num>\n\
585 --heap <reserve>[,<commit>] Set PE reserve/commit heap to <reserve>/\n\
586 <commit>\n\
587 --image-base <address> Set PE image base to <address>\n\
588 --section-alignment <num> Set PE section alignment to <num>\n\
589 --stack <reserve>[,<commit>] Set PE reserve/commit stack to <reserve>/\n\
590 <commit>\n\
591 --subsystem <name>[:<version>]\n\
447049af 592 Set PE subsystem to <name> [& <version>]\n\
4a114e3e
L		 593 --compress-debug-sections Compress DWARF debug sections using zlib\n\
594 --decompress-debug-sections Decompress DWARF debug sections using zlib\n\
d5bcb29d 595 -v --verbose List all object files modified\n\
07012eee 596 @<file> Read options from <file>\n\
d5bcb29d
NC		 597 -V --version Display this program's version number\n\
598 -h --help Display this output\n\
7c29036b 599 --info List object formats & architectures supported\n\
d5bcb29d 600"));
252b5132 601 list_supported_targets (program_name, stream);
92f01d61 602 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 603 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 604 exit (exit_status);
605}
606
607static void
84e2f313 608strip_usage (FILE *stream, int exit_status)
252b5132 609{
8b53311e
NC		 610 fprintf (stream, _("Usage: %s <option(s)> in-file(s)\n"), program_name);
611 fprintf (stream, _(" Removes symbols and sections from files\n"));
6364e0b4 612 fprintf (stream, _(" The options are:\n"));
252b5132 613 fprintf (stream, _("\
8b53311e
NC		 614 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
615 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
616 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
d5bcb29d 617 -p --preserve-dates Copy modified/access timestamps to the output\n\
955d0b3b
RM		 618"));
619 if (DEFAULT_AR_DETERMINISTIC)
620 fprintf (stream, _("\
621 -D --enable-deterministic-archives\n\
622 Produce deterministic output when stripping archives (default)\n\
623 -U --disable-deterministic-archives\n\
624 Disable -D behavior\n"));
625 else
626 fprintf (stream, _("\
2e30cb57
CC		 627 -D --enable-deterministic-archives\n\
628 Produce deterministic output when stripping archives\n\
955d0b3b
RM		 629 -U --disable-deterministic-archives\n\
630 Disable -D behavior (default)\n"));
631 fprintf (stream, _("\
8b53311e 632 -R --remove-section=<name> Remove section <name> from the output\n\
d5bcb29d 633 -s --strip-all Remove all symbol and relocation information\n\
2593f09a 634 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
96109726 635 --strip-dwo Remove all DWO sections\n\
d5bcb29d 636 --strip-unneeded Remove all symbols not needed by relocations\n\
6ea3dd37 637 --only-keep-debug Strip everything but the debug information\n\
8b53311e 638 -N --strip-symbol=<name> Do not copy symbol <name>\n\
5219e4c0 639 -K --keep-symbol=<name> Do not strip symbol <name>\n\
1637cd90 640 --keep-file-symbols Do not strip file symbol(s)\n\
a95b5cf9 641 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 642 -x --discard-all Remove all non-global symbols\n\
643 -X --discard-locals Remove any compiler-generated symbols\n\
644 -v --verbose List all object files modified\n\
645 -V --version Display this program's version number\n\
646 -h --help Display this output\n\
7c29036b 647 --info List object formats & architectures supported\n\
d5bcb29d
NC		 648 -o <file> Place stripped output into <file>\n\
649"));
650
252b5132 651 list_supported_targets (program_name, stream);
92f01d61 652 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 653 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 654 exit (exit_status);
655}
656
657/* Parse section flags into a flagword, with a fatal error if the
658 string can't be parsed. */
659
660static flagword
84e2f313 661parse_flags (const char *s)
252b5132
RH		 662{
663 flagword ret;
664 const char *snext;
665 int len;
666
667 ret = SEC_NO_FLAGS;
668
669 do
670 {
671 snext = strchr (s, ',');
672 if (snext == NULL)
673 len = strlen (s);
674 else
675 {
676 len = snext - s;
677 ++snext;
678 }
679
680 if (0) ;
681#define PARSE_FLAG(fname,fval) \
682 else if (strncasecmp (fname, s, len) == 0) ret |= fval
683 PARSE_FLAG ("alloc", SEC_ALLOC);
684 PARSE_FLAG ("load", SEC_LOAD);
3994e2c6 685 PARSE_FLAG ("noload", SEC_NEVER_LOAD);
252b5132 686 PARSE_FLAG ("readonly", SEC_READONLY);
3994e2c6 687 PARSE_FLAG ("debug", SEC_DEBUGGING);
252b5132
RH		 688 PARSE_FLAG ("code", SEC_CODE);
689 PARSE_FLAG ("data", SEC_DATA);
690 PARSE_FLAG ("rom", SEC_ROM);
ebe372c1 691 PARSE_FLAG ("share", SEC_COFF_SHARED);
252b5132 692 PARSE_FLAG ("contents", SEC_HAS_CONTENTS);
5dddde8e
AM		 693 PARSE_FLAG ("merge", SEC_MERGE);
694 PARSE_FLAG ("strings", SEC_STRINGS);
252b5132
RH		 695#undef PARSE_FLAG
696 else
697 {
698 char *copy;
699
3f5e193b 700 copy = (char *) xmalloc (len + 1);
252b5132
RH		 701 strncpy (copy, s, len);
702 copy[len] = '\0';
703 non_fatal (_("unrecognized section flag `%s'"), copy);
57938635 704 fatal (_("supported flags: %s"),
5dddde8e 705 "alloc, load, noload, readonly, debug, code, data, rom, share, contents, merge, strings");
252b5132
RH		 706 }
707
708 s = snext;
709 }
710 while (s != NULL);
711
712 return ret;
713}
714
715/* Find and optionally add an entry in the change_sections list. */
716
717static struct section_list *
84e2f313 718find_section_list (const char *name, bfd_boolean add)
252b5132 719{
84e2f313 720 struct section_list *p;
252b5132
RH		 721
722 for (p = change_sections; p != NULL; p = p->next)
723 if (strcmp (p->name, name) == 0)
724 return p;
725
726 if (! add)
727 return NULL;
728
3f5e193b 729 p = (struct section_list *) xmalloc (sizeof (struct section_list));
252b5132 730 p->name = name;
b34976b6
AM		 731 p->used = FALSE;
732 p->remove = FALSE;
733 p->copy = FALSE;
252b5132
RH		 734 p->change_vma = CHANGE_IGNORE;
735 p->change_lma = CHANGE_IGNORE;
736 p->vma_val = 0;
737 p->lma_val = 0;
b34976b6 738 p->set_flags = FALSE;
252b5132
RH		 739 p->flags = 0;
740
741 p->next = change_sections;
742 change_sections = p;
743
744 return p;
745}
746
047c9024
NC		 747/* There is htab_hash_string but no htab_eq_string. Makes sense. */
748
749static int
750eq_string (const void *s1, const void *s2)
751{
3f5e193b 752 return strcmp ((const char *) s1, (const char *) s2) == 0;
047c9024
NC		 753}
754
755static htab_t
756create_symbol_htab (void)
757{
758 return htab_create_alloc (16, htab_hash_string, eq_string, NULL, xcalloc, free);
759}
252b5132 760
57938635 761static void
047c9024 762create_symbol_htabs (void)
252b5132 763{
047c9024
NC		 764 strip_specific_htab = create_symbol_htab ();
765 strip_unneeded_htab = create_symbol_htab ();
766 keep_specific_htab = create_symbol_htab ();
767 localize_specific_htab = create_symbol_htab ();
768 globalize_specific_htab = create_symbol_htab ();
769 keepglobal_specific_htab = create_symbol_htab ();
770 weaken_specific_htab = create_symbol_htab ();
771}
772
773/* Add a symbol to strip_specific_list. */
252b5132 774
047c9024
NC		 775static void
776add_specific_symbol (const char *name, htab_t htab)
777{
778 *htab_find_slot (htab, name, INSERT) = (char *) name;
252b5132
RH		 779}
780
0af11b59 781/* Add symbols listed in `filename' to strip_specific_list. */
16b2b71c
NC		 782
783#define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
784#define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
785
786static void
047c9024 787add_specific_symbols (const char *filename, htab_t htab)
16b2b71c 788{
f24ddbdd 789 off_t size;
16b2b71c
NC		 790 FILE * f;
791 char * line;
792 char * buffer;
793 unsigned int line_count;
0af11b59 794
f24ddbdd
NC		 795 size = get_file_size (filename);
796 if (size == 0)
d68c385b
NC		 797 {
798 status = 1;
799 return;
800 }
16b2b71c 801
3f5e193b 802 buffer = (char *) xmalloc (size + 2);
16b2b71c
NC		 803 f = fopen (filename, FOPEN_RT);
804 if (f == NULL)
f24ddbdd 805 fatal (_("cannot open '%s': %s"), filename, strerror (errno));
16b2b71c 806
f24ddbdd 807 if (fread (buffer, 1, size, f) == 0 || ferror (f))
16b2b71c
NC		 808 fatal (_("%s: fread failed"), filename);
809
810 fclose (f);
f24ddbdd
NC		 811 buffer [size] = '\n';
812 buffer [size + 1] = '\0';
16b2b71c
NC		 813
814 line_count = 1;
0af11b59 815
16b2b71c
NC		 816 for (line = buffer; * line != '\0'; line ++)
817 {
818 char * eol;
819 char * name;
820 char * name_end;
b34976b6 821 int finished = FALSE;
16b2b71c
NC		 822
823 for (eol = line;; eol ++)
824 {
825 switch (* eol)
826 {
827 case '\n':
828 * eol = '\0';
829 /* Cope with \n\r. */
830 if (eol[1] == '\r')
831 ++ eol;
b34976b6 832 finished = TRUE;
16b2b71c 833 break;
0af11b59 834
16b2b71c
NC		 835 case '\r':
836 * eol = '\0';
837 /* Cope with \r\n. */
838 if (eol[1] == '\n')
839 ++ eol;
b34976b6 840 finished = TRUE;
16b2b71c 841 break;
0af11b59 842
16b2b71c 843 case 0:
b34976b6 844 finished = TRUE;
16b2b71c 845 break;
0af11b59 846
16b2b71c
NC		 847 case '#':
848 /* Line comment, Terminate the line here, in case a
849 name is present and then allow the rest of the
850 loop to find the real end of the line. */
851 * eol = '\0';
852 break;
0af11b59 853
16b2b71c
NC		 854 default:
855 break;
856 }
857
858 if (finished)
859 break;
860 }
861
862 /* A name may now exist somewhere between 'line' and 'eol'.
863 Strip off leading whitespace and trailing whitespace,
864 then add it to the list. */
865 for (name = line; IS_WHITESPACE (* name); name ++)
866 ;
867 for (name_end = name;
868 (! IS_WHITESPACE (* name_end))
869 && (! IS_LINE_TERMINATOR (* name_end));
0af11b59
KH		 870 name_end ++)
871 ;
16b2b71c
NC		 872
873 if (! IS_LINE_TERMINATOR (* name_end))
874 {
875 char * extra;
876
877 for (extra = name_end + 1; IS_WHITESPACE (* extra); extra ++)
878 ;
879
880 if (! IS_LINE_TERMINATOR (* extra))
d412a550
NC		 881 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
882 filename, line_count);
16b2b71c 883 }
0af11b59 884
16b2b71c
NC		 885 * name_end = '\0';
886
887 if (name_end > name)
047c9024 888 add_specific_symbol (name, htab);
16b2b71c
NC		 889
890 /* Advance line pointer to end of line. The 'eol ++' in the for
891 loop above will then advance us to the start of the next line. */
892 line = eol;
893 line_count ++;
894 }
895}
896
047c9024
NC		 897/* See whether a symbol should be stripped or kept
898 based on strip_specific_list and keep_symbols. */
252b5132 899
047c9024
NC		 900static int
901is_specified_symbol_predicate (void **slot, void *data)
252b5132 902{
3f5e193b
NC		 903 struct is_specified_symbol_predicate_data *d =
904 (struct is_specified_symbol_predicate_data *) data;
905 const char *slot_name = (char *) *slot;
252b5132 906
047c9024 907 if (*slot_name != '!')
5fe11841 908 {
047c9024
NC		 909 if (! fnmatch (slot_name, d->name, 0))
910 {
911 d->found = TRUE;
912 /* Stop traversal. */
913 return 0;
914 }
5fe11841
NC		 915 }
916 else
917 {
047c9024
NC		 918 if (fnmatch (slot_name + 1, d->name, 0))
919 {
920 d->found = TRUE;
921 /* Stop traversal. */
922 return 0;
923 }
5fe11841 924 }
594ef5db 925
047c9024
NC		 926 /* Continue traversal. */
927 return 1;
928}
929
930static bfd_boolean
931is_specified_symbol (const char *name, htab_t htab)
932{
933 if (wildcard)
934 {
935 struct is_specified_symbol_predicate_data data;
936
937 data.name = name;
938 data.found = FALSE;
939
940 htab_traverse (htab, is_specified_symbol_predicate, &data);
941
942 return data.found;
943 }
944
945 return htab_find (htab, name) != NULL;
252b5132
RH		 946}
947
30288845
AM		 948/* Return a pointer to the symbol used as a signature for GROUP. */
949
950static asymbol *
951group_signature (asection *group)
952{
953 bfd *abfd = group->owner;
954 Elf_Internal_Shdr *ghdr;
955
956 if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
957 return NULL;
958
959 ghdr = &elf_section_data (group)->this_hdr;
960 if (ghdr->sh_link < elf_numsections (abfd))
961 {
962 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
963 Elf_Internal_Shdr *symhdr = elf_elfsections (abfd) [ghdr->sh_link];
964
965 if (symhdr->sh_type == SHT_SYMTAB
966 && ghdr->sh_info < symhdr->sh_size / bed->s->sizeof_sym)
748fc5e9 967 return isympp[ghdr->sh_info - 1];
30288845
AM		 968 }
969 return NULL;
970}
971
96109726
CC		 972/* Return TRUE if the section is a DWO section. */
973
974static bfd_boolean
975is_dwo_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
976{
977 const char *name = bfd_get_section_name (abfd, sec);
978 int len = strlen (name);
979
980 return strncmp (name + len - 4, ".dwo", 4) == 0;
981}
982
4c8e8a7e 983/* See if a non-group section is being removed. */
252b5132 984
b34976b6 985static bfd_boolean
4c8e8a7e 986is_strip_section_1 (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
252b5132 987{
2593f09a
NC		 988 if (sections_removed || sections_copied)
989 {
990 struct section_list *p;
991
992 p = find_section_list (bfd_get_section_name (abfd, sec), FALSE);
993
994 if (sections_removed && p != NULL && p->remove)
995 return TRUE;
996 if (sections_copied && (p == NULL || ! p->copy))
997 return TRUE;
998 }
252b5132 999
2593f09a
NC		 1000 if ((bfd_get_section_flags (abfd, sec) & SEC_DEBUGGING) != 0)
1001 {
1002 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 1003 || strip_symbols == STRIP_UNNEEDED
1004 || strip_symbols == STRIP_ALL
1005 || discard_locals == LOCALS_ALL
2593f09a 1006 || convert_debugging)
4fc8b895
KT		 1007 {
1008 /* By default we don't want to strip .reloc section.
1009 This section has for pe-coff special meaning. See
1010 pe-dll.c file in ld, and peXXigen.c in bfd for details. */
1011 if (strcmp (bfd_get_section_name (abfd, sec), ".reloc") != 0)
1012 return TRUE;
1013 }
ed1653a7 1014
96109726
CC		 1015 if (strip_symbols == STRIP_DWO)
1016 return is_dwo_section (abfd, sec);
1017
ed1653a7
NC		 1018 if (strip_symbols == STRIP_NONDEBUG)
1019 return FALSE;
2593f09a 1020 }
f91ea849 1021
96109726
CC		 1022 if (strip_symbols == STRIP_NONDWO)
1023 return !is_dwo_section (abfd, sec);
1024
4c8e8a7e
L		 1025 return FALSE;
1026}
1027
1028/* See if a section is being removed. */
1029
1030static bfd_boolean
1031is_strip_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1032{
1033 if (is_strip_section_1 (abfd, sec))
1034 return TRUE;
1035
30288845
AM		 1036 if ((bfd_get_section_flags (abfd, sec) & SEC_GROUP) != 0)
1037 {
1038 asymbol *gsym;
1039 const char *gname;
4c8e8a7e 1040 asection *elt, *first;
30288845 1041
30288845
AM		 1042 /* PR binutils/3181
1043 If we are going to strip the group signature symbol, then
1044 strip the group section too. */
1045 gsym = group_signature (sec);
1046 if (gsym != NULL)
1047 gname = gsym->name;
1048 else
1049 gname = sec->name;
1050 if ((strip_symbols == STRIP_ALL
047c9024
NC		 1051 && !is_specified_symbol (gname, keep_specific_htab))
1052 || is_specified_symbol (gname, strip_specific_htab))
30288845 1053 return TRUE;
4c8e8a7e
L		 1054
1055 /* Remove the group section if all members are removed. */
1056 first = elt = elf_next_in_group (sec);
1057 while (elt != NULL)
1058 {
1059 if (!is_strip_section_1 (abfd, elt))
1060 return FALSE;
1061 elt = elf_next_in_group (elt);
1062 if (elt == first)
1063 break;
1064 }
1065
1066 return TRUE;
30288845 1067 }
91bb255c 1068
f0312d39 1069 return FALSE;
252b5132
RH		 1070}
1071
d58c2e3a
RS		 1072/* Return true if SYM is a hidden symbol. */
1073
1074static bfd_boolean
1075is_hidden_symbol (asymbol *sym)
1076{
1077 elf_symbol_type *elf_sym;
1078
1079 elf_sym = elf_symbol_from (sym->the_bfd, sym);
1080 if (elf_sym != NULL)
1081 switch (ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other))
1082 {
1083 case STV_HIDDEN:
1084 case STV_INTERNAL:
1085 return TRUE;
1086 }
1087 return FALSE;
1088}
1089
252b5132
RH		 1090/* Choose which symbol entries to copy; put the result in OSYMS.
1091 We don't copy in place, because that confuses the relocs.
1092 Return the number of symbols to print. */
1093
1094static unsigned int
84e2f313
NC		 1095filter_symbols (bfd *abfd, bfd *obfd, asymbol **osyms,
1096 asymbol **isyms, long symcount)
252b5132 1097{
84e2f313 1098 asymbol **from = isyms, **to = osyms;
252b5132 1099 long src_count = 0, dst_count = 0;
e205a099 1100 int relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
252b5132
RH		 1101
1102 for (; src_count < symcount; src_count++)
1103 {
1104 asymbol *sym = from[src_count];
1105 flagword flags = sym->flags;
d7fb0dd2 1106 char *name = (char *) bfd_asymbol_name (sym);
312aaa3c
NC		 1107 bfd_boolean keep;
1108 bfd_boolean used_in_reloc = FALSE;
b34976b6 1109 bfd_boolean undefined;
d7fb0dd2
NC		 1110 bfd_boolean rem_leading_char;
1111 bfd_boolean add_leading_char;
1112
1113 undefined = bfd_is_und_section (bfd_get_section (sym));
252b5132 1114
57938635
AM		 1115 if (redefine_sym_list)
1116 {
d7fb0dd2 1117 char *old_name, *new_name;
57938635 1118
d7fb0dd2
NC		 1119 old_name = (char *) bfd_asymbol_name (sym);
1120 new_name = (char *) lookup_sym_redefinition (old_name);
66491ebc
AM		 1121 bfd_asymbol_name (sym) = new_name;
1122 name = new_name;
57938635
AM		 1123 }
1124
d7fb0dd2
NC		 1125 /* Check if we will remove the current leading character. */
1126 rem_leading_char =
1127 (name[0] == bfd_get_symbol_leading_char (abfd))
1128 && (change_leading_char
1129 || (remove_leading_char
1130 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1131 || undefined
1132 || bfd_is_com_section (bfd_get_section (sym)))));
1133
1134 /* Check if we will add a new leading character. */
1135 add_leading_char =
1136 change_leading_char
1137 && (bfd_get_symbol_leading_char (obfd) != '\0')
1138 && (bfd_get_symbol_leading_char (abfd) == '\0'
1139 || (name[0] == bfd_get_symbol_leading_char (abfd)));
1140
1141 /* Short circuit for change_leading_char if we can do it in-place. */
1142 if (rem_leading_char && add_leading_char && !prefix_symbols_string)
1143 {
1144 name[0] = bfd_get_symbol_leading_char (obfd);
1145 bfd_asymbol_name (sym) = name;
1146 rem_leading_char = FALSE;
1147 add_leading_char = FALSE;
1148 }
1149
1150 /* Remove leading char. */
1151 if (rem_leading_char)
66491ebc 1152 bfd_asymbol_name (sym) = ++name;
d7fb0dd2
NC		 1153
1154 /* Add new leading char and/or prefix. */
1155 if (add_leading_char || prefix_symbols_string)
1156 {
1157 char *n, *ptr;
1158
3f5e193b
NC		 1159 ptr = n = (char *) xmalloc (1 + strlen (prefix_symbols_string)
1160 + strlen (name) + 1);
d7fb0dd2
NC		 1161 if (add_leading_char)
1162 *ptr++ = bfd_get_symbol_leading_char (obfd);
1163
1164 if (prefix_symbols_string)
1165 {
1166 strcpy (ptr, prefix_symbols_string);
1167 ptr += strlen (prefix_symbols_string);
1168 }
1169
1170 strcpy (ptr, name);
66491ebc
AM		 1171 bfd_asymbol_name (sym) = n;
1172 name = n;
252b5132
RH		 1173 }
1174
252b5132 1175 if (strip_symbols == STRIP_ALL)
312aaa3c 1176 keep = FALSE;
252b5132
RH		 1177 else if ((flags & BSF_KEEP) != 0 /* Used in relocation. */
1178 || ((flags & BSF_SECTION_SYM) != 0
1179 && ((*bfd_get_section (sym)->symbol_ptr_ptr)->flags
1180 & BSF_KEEP) != 0))
312aaa3c
NC		 1181 {
1182 keep = TRUE;
1183 used_in_reloc = TRUE;
1184 }
0af11b59 1185 else if (relocatable /* Relocatable file. */
0691f7af
L		 1186 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1187 || bfd_is_com_section (bfd_get_section (sym))))
312aaa3c 1188 keep = TRUE;
16b2b71c
NC		 1189 else if (bfd_decode_symclass (sym) == 'I')
1190 /* Global symbols in $idata sections need to be retained
b34976b6 1191 even if relocatable is FALSE. External users of the
16b2b71c
NC		 1192 library containing the $idata section may reference these
1193 symbols. */
312aaa3c 1194 keep = TRUE;
252b5132
RH		 1195 else if ((flags & BSF_GLOBAL) != 0 /* Global symbol. */
1196 || (flags & BSF_WEAK) != 0
24e01a36 1197 || undefined
252b5132
RH		 1198 || bfd_is_com_section (bfd_get_section (sym)))
1199 keep = strip_symbols != STRIP_UNNEEDED;
1200 else if ((flags & BSF_DEBUGGING) != 0) /* Debugging symbol. */
1201 keep = (strip_symbols != STRIP_DEBUG
1202 && strip_symbols != STRIP_UNNEEDED
1203 && ! convert_debugging);
082b7297 1204 else if (bfd_coff_get_comdat_section (abfd, bfd_get_section (sym)))
af3bdff7
NC		 1205 /* COMDAT sections store special information in local
1206 symbols, so we cannot risk stripping any of them. */
312aaa3c 1207 keep = TRUE;
252b5132
RH		 1208 else /* Local symbol. */
1209 keep = (strip_symbols != STRIP_UNNEEDED
1210 && (discard_locals != LOCALS_ALL
1211 && (discard_locals != LOCALS_START_L
1212 || ! bfd_is_local_label (abfd, sym))));
1213
047c9024 1214 if (keep && is_specified_symbol (name, strip_specific_htab))
312aaa3c
NC		 1215 {
1216 /* There are multiple ways to set 'keep' above, but if it
1217 was the relocatable symbol case, then that's an error. */
1218 if (used_in_reloc)
1219 {
1220 non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name);
1221 status = 1;
1222 }
1223 else
1224 keep = FALSE;
1225 }
1226
bcf32829
JB		 1227 if (keep
1228 && !(flags & BSF_KEEP)
047c9024 1229 && is_specified_symbol (name, strip_unneeded_htab))
312aaa3c
NC		 1230 keep = FALSE;
1231
1637cd90
JB		 1232 if (!keep
1233 && ((keep_file_symbols && (flags & BSF_FILE))
047c9024 1234 || is_specified_symbol (name, keep_specific_htab)))
312aaa3c
NC		 1235 keep = TRUE;
1236
252b5132 1237 if (keep && is_strip_section (abfd, bfd_get_section (sym)))
312aaa3c 1238 keep = FALSE;
e0c60db2 1239
7b4a0685 1240 if (keep)
252b5132 1241 {
7b4a0685 1242 if ((flags & BSF_GLOBAL) != 0
047c9024 1243 && (weaken || is_specified_symbol (name, weaken_specific_htab)))
7b4a0685
NC		 1244 {
1245 sym->flags &= ~ BSF_GLOBAL;
1246 sym->flags |= BSF_WEAK;
1247 }
252b5132 1248
7b4a0685
NC		 1249 if (!undefined
1250 && (flags & (BSF_GLOBAL | BSF_WEAK))
047c9024
NC		 1251 && (is_specified_symbol (name, localize_specific_htab)
1252 || (htab_elements (keepglobal_specific_htab) != 0
1253 && ! is_specified_symbol (name, keepglobal_specific_htab))
d58c2e3a 1254 || (localize_hidden && is_hidden_symbol (sym))))
7b4a0685
NC		 1255 {
1256 sym->flags &= ~ (BSF_GLOBAL | BSF_WEAK);
1257 sym->flags |= BSF_LOCAL;
1258 }
1259
1260 if (!undefined
c1c0eb9e 1261 && (flags & BSF_LOCAL)
047c9024 1262 && is_specified_symbol (name, globalize_specific_htab))
7b4a0685
NC		 1263 {
1264 sym->flags &= ~ BSF_LOCAL;
1265 sym->flags |= BSF_GLOBAL;
1266 }
1267
1268 to[dst_count++] = sym;
1269 }
252b5132
RH		 1270 }
1271
1272 to[dst_count] = NULL;
1273
1274 return dst_count;
1275}
1276
594ef5db
NC		 1277/* Find the redefined name of symbol SOURCE. */
1278
57938635 1279static const char *
84e2f313 1280lookup_sym_redefinition (const char *source)
57938635 1281{
57938635
AM		 1282 struct redefine_node *list;
1283
57938635 1284 for (list = redefine_sym_list; list != NULL; list = list->next)
594ef5db
NC		 1285 if (strcmp (source, list->source) == 0)
1286 return list->target;
1287
1288 return source;
57938635
AM		 1289}
1290
594ef5db 1291/* Add a node to a symbol redefine list. */
57938635
AM		 1292
1293static void
84e2f313 1294redefine_list_append (const char *cause, const char *source, const char *target)
57938635
AM		 1295{
1296 struct redefine_node **p;
1297 struct redefine_node *list;
1298 struct redefine_node *new_node;
1299
1300 for (p = &redefine_sym_list; (list = *p) != NULL; p = &list->next)
1301 {
1302 if (strcmp (source, list->source) == 0)
594ef5db 1303 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
92991082 1304 cause, source);
57938635
AM		 1305
1306 if (strcmp (target, list->target) == 0)
594ef5db 1307 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
92991082 1308 cause, target);
57938635
AM		 1309 }
1310
3f5e193b 1311 new_node = (struct redefine_node *) xmalloc (sizeof (struct redefine_node));
57938635
AM		 1312
1313 new_node->source = strdup (source);
1314 new_node->target = strdup (target);
1315 new_node->next = NULL;
1316
1317 *p = new_node;
1318}
1319
92991082
JT		 1320/* Handle the --redefine-syms option. Read lines containing "old new"
1321 from the file, and add them to the symbol redefine list. */
1322
2593f09a 1323static void
84e2f313 1324add_redefine_syms_file (const char *filename)
92991082
JT		 1325{
1326 FILE *file;
1327 char *buf;
84e2f313
NC		 1328 size_t bufsize;
1329 size_t len;
1330 size_t outsym_off;
92991082
JT		 1331 int c, lineno;
1332
1333 file = fopen (filename, "r");
d3ba0551 1334 if (file == NULL)
92991082
JT		 1335 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1336 filename, strerror (errno));
1337
1338 bufsize = 100;
a6da20b5 1339 buf = (char *) xmalloc (bufsize + 1 /* For the terminating NUL. */);
92991082
JT		 1340
1341 lineno = 1;
1342 c = getc (file);
1343 len = 0;
1344 outsym_off = 0;
1345 while (c != EOF)
1346 {
1347 /* Collect the input symbol name. */
1348 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1349 {
1350 if (c == '#')
1351 goto comment;
1352 buf[len++] = c;
1353 if (len >= bufsize)
1354 {
1355 bufsize *= 2;
a6da20b5 1356 buf = (char *) xrealloc (buf, bufsize + 1);
92991082
JT		 1357 }
1358 c = getc (file);
1359 }
1360 buf[len++] = '\0';
1361 if (c == EOF)
1362 break;
1363
1364 /* Eat white space between the symbol names. */
1365 while (IS_WHITESPACE (c))
1366 c = getc (file);
1367 if (c == '#' || IS_LINE_TERMINATOR (c))
1368 goto comment;
1369 if (c == EOF)
1370 break;
1371
1372 /* Collect the output symbol name. */
1373 outsym_off = len;
1374 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1375 {
1376 if (c == '#')
1377 goto comment;
1378 buf[len++] = c;
1379 if (len >= bufsize)
1380 {
1381 bufsize *= 2;
a6da20b5 1382 buf = (char *) xrealloc (buf, bufsize + 1);
92991082
JT		 1383 }
1384 c = getc (file);
1385 }
1386 buf[len++] = '\0';
1387 if (c == EOF)
1388 break;
1389
1390 /* Eat white space at end of line. */
1391 while (! IS_LINE_TERMINATOR(c) && c != EOF && IS_WHITESPACE (c))
1392 c = getc (file);
1393 if (c == '#')
1394 goto comment;
1395 /* Handle \r\n. */
1396 if ((c == '\r' && (c = getc (file)) == '\n')
1397 || c == '\n' || c == EOF)
1398 {
1399 end_of_line:
1400 /* Append the redefinition to the list. */
1401 if (buf[0] != '\0')
1402 redefine_list_append (filename, &buf[0], &buf[outsym_off]);
1403
c1c0eb9e 1404 lineno++;
92991082
JT		 1405 len = 0;
1406 outsym_off = 0;
1407 if (c == EOF)
1408 break;
1409 c = getc (file);
1410 continue;
1411 }
1412 else
d412a550 1413 fatal (_("%s:%d: garbage found at end of line"), filename, lineno);
92991082
JT		 1414 comment:
1415 if (len != 0 && (outsym_off == 0 || outsym_off == len))
d412a550 1416 fatal (_("%s:%d: missing new symbol name"), filename, lineno);
92991082
JT		 1417 buf[len++] = '\0';
1418
1419 /* Eat the rest of the line and finish it. */
1420 while (c != '\n' && c != EOF)
1421 c = getc (file);
1422 goto end_of_line;
1423 }
1424
1425 if (len != 0)
d412a550 1426 fatal (_("%s:%d: premature end of file"), filename, lineno);
92991082
JT		 1427
1428 free (buf);
1429}
1430
77f762d6
L		 1431/* Copy unkown object file IBFD onto OBFD.
1432 Returns TRUE upon success, FALSE otherwise. */
1433
1434static bfd_boolean
1435copy_unknown_object (bfd *ibfd, bfd *obfd)
1436{
1437 char *cbuf;
1438 int tocopy;
1439 long ncopied;
1440 long size;
1441 struct stat buf;
1442
1443 if (bfd_stat_arch_elt (ibfd, &buf) != 0)
1444 {
8d8e0703 1445 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
77f762d6
L		 1446 return FALSE;
1447 }
1448
1449 size = buf.st_size;
1450 if (size < 0)
1451 {
1452 non_fatal (_("stat returns negative size for `%s'"),
1453 bfd_get_archive_filename (ibfd));
1454 return FALSE;
1455 }
1456
1457 if (bfd_seek (ibfd, (file_ptr) 0, SEEK_SET) != 0)
1458 {
1459 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1460 return FALSE;
1461 }
1462
1463 if (verbose)
1464 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1465 bfd_get_archive_filename (ibfd), bfd_get_filename (obfd));
1466
3f5e193b 1467 cbuf = (char *) xmalloc (BUFSIZE);
77f762d6
L		 1468 ncopied = 0;
1469 while (ncopied < size)
1470 {
1471 tocopy = size - ncopied;
1472 if (tocopy > BUFSIZE)
1473 tocopy = BUFSIZE;
1474
1475 if (bfd_bread (cbuf, (bfd_size_type) tocopy, ibfd)
1476 != (bfd_size_type) tocopy)
1477 {
8d8e0703 1478 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
77f762d6
L		 1479 free (cbuf);
1480 return FALSE;
1481 }
1482
1483 if (bfd_bwrite (cbuf, (bfd_size_type) tocopy, obfd)
1484 != (bfd_size_type) tocopy)
1485 {
2db6cde7 1486 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
77f762d6
L		 1487 free (cbuf);
1488 return FALSE;
1489 }
1490
1491 ncopied += tocopy;
1492 }
1493
1e99536a
L		 1494 /* We should at least to be able to read it back when copying an
1495 unknown object in an archive. */
1496 chmod (bfd_get_filename (obfd), buf.st_mode | S_IRUSR);
77f762d6
L		 1497 free (cbuf);
1498 return TRUE;
1499}
1500
950d48e7 1501/* Copy object file IBFD onto OBFD.
5b8c74e6 1502 Returns TRUE upon success, FALSE otherwise. */
252b5132 1503
950d48e7 1504static bfd_boolean
8b31b6c4 1505copy_object (bfd *ibfd, bfd *obfd, const bfd_arch_info_type *input_arch)
252b5132
RH		 1506{
1507 bfd_vma start;
1508 long symcount;
1509 asection **osections = NULL;
84e2f313 1510 asection *gnu_debuglink_section = NULL;
252b5132
RH		 1511 bfd_size_type *gaps = NULL;
1512 bfd_size_type max_gap = 0;
1513 long symsize;
84e2f313 1514 void *dhandle;
66491ebc
AM		 1515 enum bfd_architecture iarch;
1516 unsigned int imach;
252b5132 1517
23719f39
NC		 1518 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
1519 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
1520 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
950d48e7 1521 fatal (_("Unable to change endianness of input file(s)"));
252b5132
RH		 1522
1523 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 1524 {
2db6cde7 1525 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
950d48e7
NC		 1526 return FALSE;
1527 }
252b5132
RH		 1528
1529 if (verbose)
77f762d6
L		 1530 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
1531 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
252b5132
RH		 1532 bfd_get_filename (obfd), bfd_get_target (obfd));
1533
d3e52d40
RS		 1534 if (extract_symbol)
1535 start = 0;
252b5132 1536 else
d3e52d40
RS		 1537 {
1538 if (set_start_set)
1539 start = set_start;
1540 else
1541 start = bfd_get_start_address (ibfd);
1542 start += change_start;
1543 }
252b5132 1544
0af11b59
KH		 1545 /* Neither the start address nor the flags
1546 need to be set for a core file. */
4dd67f29
MS		 1547 if (bfd_get_format (obfd) != bfd_core)
1548 {
4087920c
MR		 1549 flagword flags;
1550
1551 flags = bfd_get_file_flags (ibfd);
1552 flags |= bfd_flags_to_set;
1553 flags &= ~bfd_flags_to_clear;
1554 flags &= bfd_applicable_file_flags (obfd);
1555
3516e984
L		 1556 if (strip_symbols == STRIP_ALL)
1557 flags &= ~HAS_RELOC;
1558
4dd67f29 1559 if (!bfd_set_start_address (obfd, start)
4087920c 1560 || !bfd_set_file_flags (obfd, flags))
950d48e7 1561 {
8d8e0703 1562 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 1563 return FALSE;
1564 }
4dd67f29 1565 }
252b5132 1566
594ef5db 1567 /* Copy architecture of input file to output file. */
66491ebc
AM		 1568 iarch = bfd_get_arch (ibfd);
1569 imach = bfd_get_mach (ibfd);
8b31b6c4
NC		 1570 if (input_arch)
1571 {
1572 if (bfd_get_arch_info (ibfd) == NULL
1573 || bfd_get_arch_info (ibfd)->arch == bfd_arch_unknown)
1574 {
1575 iarch = input_arch->arch;
1576 imach = input_arch->mach;
1577 }
1578 else
1579 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
1580 bfd_get_archive_filename (ibfd));
1581 }
66491ebc 1582 if (!bfd_set_arch_mach (obfd, iarch, imach)
212a3c4d
L		 1583 && (ibfd->target_defaulted
1584 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
f57a841a
NC		 1585 {
1586 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
77f762d6
L		 1587 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1588 bfd_get_archive_filename (ibfd));
f57a841a 1589 else
c1e2cb9d 1590 non_fatal (_("Output file cannot represent architecture `%s'"),
77f762d6
L		 1591 bfd_printable_arch_mach (bfd_get_arch (ibfd),
1592 bfd_get_mach (ibfd)));
1593 return FALSE;
f57a841a 1594 }
57938635 1595
252b5132 1596 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 1597 {
8d8e0703 1598 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 1599 return FALSE;
1600 }
252b5132 1601
92dd4511
L		 1602 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
1603 && bfd_pei_p (obfd))
1604 {
1605 /* Set up PE parameters. */
1606 pe_data_type *pe = pe_data (obfd);
1607
325c681d
L		 1608 /* Copy PE parameters before changing them. */
1609 if (ibfd->xvec->flavour == bfd_target_coff_flavour
1610 && bfd_pei_p (ibfd))
1611 pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
1612
92dd4511
L		 1613 if (pe_file_alignment != (bfd_vma) -1)
1614 pe->pe_opthdr.FileAlignment = pe_file_alignment;
1615 else
1616 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
1617
1618 if (pe_heap_commit != (bfd_vma) -1)
1619 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
1620
1621 if (pe_heap_reserve != (bfd_vma) -1)
1622 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
1623
1624 if (pe_image_base != (bfd_vma) -1)
1625 pe->pe_opthdr.ImageBase = pe_image_base;
1626
1627 if (pe_section_alignment != (bfd_vma) -1)
1628 pe->pe_opthdr.SectionAlignment = pe_section_alignment;
1629 else
1630 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
1631
1632 if (pe_stack_commit != (bfd_vma) -1)
1633 pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
1634
1635 if (pe_stack_reserve != (bfd_vma) -1)
1636 pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
1637
1638 if (pe_subsystem != -1)
1639 pe->pe_opthdr.Subsystem = pe_subsystem;
1640
1641 if (pe_major_subsystem_version != -1)
1642 pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
1643
1644 if (pe_minor_subsystem_version != -1)
1645 pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
1646
1647 if (pe_file_alignment > pe_section_alignment)
1648 {
1649 char file_alignment[20], section_alignment[20];
1650
1651 sprintf_vma (file_alignment, pe_file_alignment);
1652 sprintf_vma (section_alignment, pe_section_alignment);
1653 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
1654
1655 file_alignment, section_alignment);
1656 }
1657 }
1658
252b5132 1659 if (isympp)
62d732f5 1660 free (isympp);
57938635 1661
252b5132 1662 if (osympp != isympp)
62d732f5
AM		 1663 free (osympp);
1664
1665 isympp = NULL;
1666 osympp = NULL;
252b5132 1667
c39ada54
AM		 1668 symsize = bfd_get_symtab_upper_bound (ibfd);
1669 if (symsize < 0)
1670 {
8d8e0703 1671 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 1672 return FALSE;
1673 }
1674
3f5e193b 1675 osympp = isympp = (asymbol **) xmalloc (symsize);
c39ada54
AM		 1676 symcount = bfd_canonicalize_symtab (ibfd, isympp);
1677 if (symcount < 0)
1678 {
2db6cde7 1679 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 1680 return FALSE;
1681 }
1682
252b5132
RH		 1683 /* BFD mandates that all output sections be created and sizes set before
1684 any output is done. Thus, we traverse all sections multiple times. */
d3ba0551 1685 bfd_map_over_sections (ibfd, setup_section, obfd);
252b5132 1686
237dcb53
AM		 1687 if (!extract_symbol)
1688 setup_bfd_headers (ibfd, obfd);
80fccad2 1689
252b5132
RH		 1690 if (add_sections != NULL)
1691 {
1692 struct section_add *padd;
1693 struct section_list *pset;
1694
1695 for (padd = add_sections; padd != NULL; padd = padd->next)
1696 {
2593f09a
NC		 1697 flagword flags;
1698
551b43fd
AM		 1699 pset = find_section_list (padd->name, FALSE);
1700 if (pset != NULL)
1701 pset->used = TRUE;
1702
1703 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
1704 if (pset != NULL && pset->set_flags)
1705 flags = pset->flags | SEC_HAS_CONTENTS;
1706
c8782eee
NC		 1707 /* bfd_make_section_with_flags() does not return very helpful
1708 error codes, so check for the most likely user error first. */
1709 if (bfd_get_section_by_name (obfd, padd->name))
252b5132 1710 {
2db6cde7
NS		 1711 bfd_nonfatal_message (NULL, obfd, NULL,
1712 _("can't add section '%s'"), padd->name);
950d48e7 1713 return FALSE;
252b5132 1714 }
c8782eee
NC		 1715 else
1716 {
0930eddd
NS		 1717 /* We use LINKER_CREATED here so that the backend hooks
1718 will create any special section type information,
1719 instead of presuming we know what we're doing merely
1720 because we set the flags. */
1721 padd->section = bfd_make_section_with_flags
1722 (obfd, padd->name, flags | SEC_LINKER_CREATED);
c8782eee
NC		 1723 if (padd->section == NULL)
1724 {
2db6cde7
NS		 1725 bfd_nonfatal_message (NULL, obfd, NULL,
1726 _("can't create section `%s'"),
1727 padd->name);
c8782eee
NC		 1728 return FALSE;
1729 }
1730 }
252b5132 1731
2593f09a 1732 if (! bfd_set_section_size (obfd, padd->section, padd->size))
950d48e7 1733 {
2db6cde7 1734 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 1735 return FALSE;
1736 }
252b5132 1737
2593f09a
NC		 1738 if (pset != NULL)
1739 {
1740 if (pset->change_vma != CHANGE_IGNORE)
84e2f313
NC		 1741 if (! bfd_set_section_vma (obfd, padd->section,
1742 pset->vma_val))
950d48e7 1743 {
2db6cde7 1744 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 1745 return FALSE;
1746 }
57938635 1747
2593f09a
NC		 1748 if (pset->change_lma != CHANGE_IGNORE)
1749 {
1750 padd->section->lma = pset->lma_val;
950d48e7 1751
2593f09a
NC		 1752 if (! bfd_set_section_alignment
1753 (obfd, padd->section,
1754 bfd_section_alignment (obfd, padd->section)))
950d48e7 1755 {
2db6cde7 1756 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 1757 return FALSE;
1758 }
252b5132
RH		 1759 }
1760 }
1761 }
1762 }
1763
2593f09a
NC		 1764 if (gnu_debuglink_filename != NULL)
1765 {
84e2f313
NC		 1766 gnu_debuglink_section = bfd_create_gnu_debuglink_section
1767 (obfd, gnu_debuglink_filename);
e7c81c25
NC		 1768
1769 if (gnu_debuglink_section == NULL)
950d48e7 1770 {
2db6cde7
NS		 1771 bfd_nonfatal_message (NULL, obfd, NULL,
1772 _("cannot create debug link section `%s'"),
1773 gnu_debuglink_filename);
950d48e7
NC		 1774 return FALSE;
1775 }
6e2c86ac
NC		 1776
1777 /* Special processing for PE format files. We
1778 have no way to distinguish PE from COFF here. */
1779 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
1780 {
1781 bfd_vma debuglink_vma;
1782 asection * highest_section;
1783 asection * sec;
1784
1785 /* The PE spec requires that all sections be adjacent and sorted
1786 in ascending order of VMA. It also specifies that debug
1787 sections should be last. This is despite the fact that debug
1788 sections are not loaded into memory and so in theory have no
1789 use for a VMA.
1790
1791 This means that the debuglink section must be given a non-zero
1792 VMA which makes it contiguous with other debug sections. So
1793 walk the current section list, find the section with the
1794 highest VMA and start the debuglink section after that one. */
1795 for (sec = obfd->sections, highest_section = NULL;
1796 sec != NULL;
1797 sec = sec->next)
1798 if (sec->vma > 0
1799 && (highest_section == NULL
1800 || sec->vma > highest_section->vma))
1801 highest_section = sec;
1802
1803 if (highest_section)
1804 debuglink_vma = BFD_ALIGN (highest_section->vma
1805 + highest_section->size,
1806 /* FIXME: We ought to be using
1807 COFF_PAGE_SIZE here or maybe
1808 bfd_get_section_alignment() (if it
1809 was set) but since this is for PE
1810 and we know the required alignment
1811 it is easier just to hard code it. */
1812 0x1000);
1813 else
1814 /* Umm, not sure what to do in this case. */
1815 debuglink_vma = 0x1000;
1816
1817 bfd_set_section_vma (obfd, gnu_debuglink_section, debuglink_vma);
1818 }
950d48e7
NC		 1819 }
1820
1aa9ef63
L		 1821 if (bfd_count_sections (obfd) != 0
1822 && (gap_fill_set || pad_to_set))
252b5132
RH		 1823 {
1824 asection **set;
1825 unsigned int c, i;
1826
1827 /* We must fill in gaps between the sections and/or we must pad
1828 the last section to a specified address. We do this by
1829 grabbing a list of the sections, sorting them by VMA, and
1830 increasing the section sizes as required to fill the gaps.
1831 We write out the gap contents below. */
1832
1833 c = bfd_count_sections (obfd);
3f5e193b 1834 osections = (asection **) xmalloc (c * sizeof (asection *));
252b5132 1835 set = osections;
d3ba0551 1836 bfd_map_over_sections (obfd, get_sections, &set);
252b5132
RH		 1837
1838 qsort (osections, c, sizeof (asection *), compare_section_lma);
1839
3f5e193b 1840 gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
252b5132
RH		 1841 memset (gaps, 0, c * sizeof (bfd_size_type));
1842
1843 if (gap_fill_set)
1844 {
1845 for (i = 0; i < c - 1; i++)
1846 {
1847 flagword flags;
1848 bfd_size_type size;
1849 bfd_vma gap_start, gap_stop;
1850
1851 flags = bfd_get_section_flags (obfd, osections[i]);
1852 if ((flags & SEC_HAS_CONTENTS) == 0
1853 || (flags & SEC_LOAD) == 0)
1854 continue;
1855
1856 size = bfd_section_size (obfd, osections[i]);
1857 gap_start = bfd_section_lma (obfd, osections[i]) + size;
1858 gap_stop = bfd_section_lma (obfd, osections[i + 1]);
1859 if (gap_start < gap_stop)
1860 {
1861 if (! bfd_set_section_size (obfd, osections[i],
1862 size + (gap_stop - gap_start)))
1863 {
2db6cde7
NS		 1864 bfd_nonfatal_message (NULL, obfd, osections[i],
1865 _("Can't fill gap after section"));
252b5132
RH		 1866 status = 1;
1867 break;
1868 }
1869 gaps[i] = gap_stop - gap_start;
1870 if (max_gap < gap_stop - gap_start)
1871 max_gap = gap_stop - gap_start;
1872 }
1873 }
1874 }
1875
1876 if (pad_to_set)
1877 {
1878 bfd_vma lma;
1879 bfd_size_type size;
1880
1881 lma = bfd_section_lma (obfd, osections[c - 1]);
1882 size = bfd_section_size (obfd, osections[c - 1]);
1883 if (lma + size < pad_to)
1884 {
1885 if (! bfd_set_section_size (obfd, osections[c - 1],
1886 pad_to - lma))
1887 {
2db6cde7
NS		 1888 bfd_nonfatal_message (NULL, obfd, osections[c - 1],
1889 _("can't add padding"));
252b5132
RH		 1890 status = 1;
1891 }
1892 else
1893 {
1894 gaps[c - 1] = pad_to - (lma + size);
1895 if (max_gap < pad_to - (lma + size))
1896 max_gap = pad_to - (lma + size);
1897 }
1898 }
1899 }
1900 }
1901
594ef5db
NC		 1902 /* Symbol filtering must happen after the output sections
1903 have been created, but before their contents are set. */
252b5132 1904 dhandle = NULL;
252b5132 1905 if (convert_debugging)
b922d590 1906 dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
57938635
AM		 1907
1908 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 1909 || strip_symbols == STRIP_ALL
1910 || strip_symbols == STRIP_UNNEEDED
ed1653a7 1911 || strip_symbols == STRIP_NONDEBUG
96109726
CC		 1912 || strip_symbols == STRIP_DWO
1913 || strip_symbols == STRIP_NONDWO
252b5132 1914 || discard_locals != LOCALS_UNDEF
d58c2e3a 1915 || localize_hidden
047c9024
NC		 1916 || htab_elements (strip_specific_htab) != 0
1917 || htab_elements (keep_specific_htab) != 0
1918 || htab_elements (localize_specific_htab) != 0
1919 || htab_elements (globalize_specific_htab) != 0
1920 || htab_elements (keepglobal_specific_htab) != 0
1921 || htab_elements (weaken_specific_htab) != 0
d7fb0dd2 1922 || prefix_symbols_string
252b5132 1923 || sections_removed
f91ea849 1924 || sections_copied
252b5132
RH		 1925 || convert_debugging
1926 || change_leading_char
1927 || remove_leading_char
57938635 1928 || redefine_sym_list
252b5132
RH		 1929 || weaken)
1930 {
1931 /* Mark symbols used in output relocations so that they
1932 are kept, even if they are local labels or static symbols.
57938635 1933
252b5132
RH		 1934 Note we iterate over the input sections examining their
1935 relocations since the relocations for the output sections
1936 haven't been set yet. mark_symbols_used_in_relocations will
1937 ignore input sections which have no corresponding output
1938 section. */
1939 if (strip_symbols != STRIP_ALL)
1940 bfd_map_over_sections (ibfd,
1941 mark_symbols_used_in_relocations,
d3ba0551 1942 isympp);
3f5e193b 1943 osympp = (asymbol **) xmalloc ((symcount + 1) * sizeof (asymbol *));
252b5132
RH		 1944 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
1945 }
1946
1947 if (convert_debugging && dhandle != NULL)
1948 {
1949 if (! write_debugging_info (obfd, dhandle, &symcount, &osympp))
1950 {
1951 status = 1;
950d48e7 1952 return FALSE;
252b5132
RH		 1953 }
1954 }
1955
1956 bfd_set_symtab (obfd, osympp, symcount);
1957
c3989150
L		 1958 /* This has to happen before section positions are set. */
1959 bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
1960
252b5132 1961 /* This has to happen after the symbol table has been set. */
d3ba0551 1962 bfd_map_over_sections (ibfd, copy_section, obfd);
252b5132
RH		 1963
1964 if (add_sections != NULL)
1965 {
1966 struct section_add *padd;
1967
1968 for (padd = add_sections; padd != NULL; padd = padd->next)
1969 {
d3ba0551
AM		 1970 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
1971 0, padd->size))
950d48e7 1972 {
2db6cde7 1973 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 1974 return FALSE;
1975 }
252b5132
RH		 1976 }
1977 }
1978
e7c81c25
NC		 1979 if (gnu_debuglink_filename != NULL)
1980 {
1981 if (! bfd_fill_in_gnu_debuglink_section
1982 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
950d48e7 1983 {
2db6cde7
NS		 1984 bfd_nonfatal_message (NULL, obfd, NULL,
1985 _("cannot fill debug link section `%s'"),
1986 gnu_debuglink_filename);
950d48e7
NC		 1987 return FALSE;
1988 }
e7c81c25
NC		 1989 }
1990
252b5132
RH		 1991 if (gap_fill_set || pad_to_set)
1992 {
1993 bfd_byte *buf;
1994 int c, i;
1995
1996 /* Fill in the gaps. */
252b5132
RH		 1997 if (max_gap > 8192)
1998 max_gap = 8192;
3f5e193b 1999 buf = (bfd_byte *) xmalloc (max_gap);
d3ba0551 2000 memset (buf, gap_fill, max_gap);
252b5132
RH		 2001
2002 c = bfd_count_sections (obfd);
2003 for (i = 0; i < c; i++)
2004 {
2005 if (gaps[i] != 0)
2006 {
2007 bfd_size_type left;
2008 file_ptr off;
2009
2010 left = gaps[i];
2011 off = bfd_section_size (obfd, osections[i]) - left;
594ef5db 2012
252b5132
RH		 2013 while (left > 0)
2014 {
2015 bfd_size_type now;
2016
2017 if (left > 8192)
2018 now = 8192;
2019 else
2020 now = left;
2021
2022 if (! bfd_set_section_contents (obfd, osections[i], buf,
2023 off, now))
950d48e7 2024 {
2db6cde7 2025 bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
950d48e7
NC		 2026 return FALSE;
2027 }
252b5132
RH		 2028
2029 left -= now;
2030 off += now;
2031 }
2032 }
2033 }
2034 }
2035
d3e52d40
RS		 2036 /* Do not copy backend data if --extract-symbol is passed; anything
2037 that needs to look at the section contents will fail. */
2038 if (extract_symbol)
2039 return TRUE;
2040
252b5132
RH		 2041 /* Allow the BFD backend to copy any private data it understands
2042 from the input BFD to the output BFD. This is done last to
2043 permit the routine to look at the filtered symbol table, which is
2044 important for the ECOFF code at least. */
42bb2e33 2045 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132 2046 {
2db6cde7
NS		 2047 bfd_nonfatal_message (NULL, obfd, NULL,
2048 _("error copying private BFD data"));
950d48e7 2049 return FALSE;
252b5132 2050 }
1ae8b3d2
AO		 2051
2052 /* Switch to the alternate machine code. We have to do this at the
2053 very end, because we only initialize the header when we create
2054 the first section. */
f9d4ad2a
NC		 2055 if (use_alt_mach_code != 0)
2056 {
2057 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
2058 {
2059 non_fatal (_("this target does not support %lu alternative machine codes"),
2060 use_alt_mach_code);
2061 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2062 {
2063 non_fatal (_("treating that number as an absolute e_machine value instead"));
2064 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
2065 }
2066 else
2067 non_fatal (_("ignoring the alternative value"));
2068 }
2069 }
950d48e7
NC		 2070
2071 return TRUE;
252b5132
RH		 2072}
2073
2074/* Read each archive element in turn from IBFD, copy the
ee873e00
NC		 2075 contents to temp file, and keep the temp file handle.
2076 If 'force_output_target' is TRUE then make sure that
2077 all elements in the new archive are of the type
2078 'output_target'. */
252b5132
RH		 2079
2080static void
ee873e00 2081copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
8b31b6c4
NC		 2082 bfd_boolean force_output_target,
2083 const bfd_arch_info_type *input_arch)
252b5132
RH		 2084{
2085 struct name_list
2086 {
2087 struct name_list *next;
4c168fa3 2088 const char *name;
252b5132
RH		 2089 bfd *obfd;
2090 } *list, *l;
2091 bfd **ptr = &obfd->archive_head;
2092 bfd *this_element;
8d8e0703
AM		 2093 char *dir;
2094 const char *filename;
252b5132
RH		 2095
2096 /* Make a temp directory to hold the contents. */
f9c026a8 2097 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8
NC		 2098 if (dir == NULL)
2099 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2100 strerror (errno));
84e2f313 2101
2e30cb57
CC		 2102 if (strip_symbols == STRIP_ALL)
2103 obfd->has_armap = FALSE;
2104 else
2105 obfd->has_armap = ibfd->has_armap;
a8da6403 2106 obfd->is_thin_archive = ibfd->is_thin_archive;
252b5132 2107
2e30cb57
CC		 2108 if (deterministic)
2109 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
2110
252b5132
RH		 2111 list = NULL;
2112
2113 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 2114
b667df2e 2115 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
8d8e0703
AM		 2116 {
2117 status = 1;
2118 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
2119 return;
2120 }
b667df2e 2121
d3ba0551 2122 while (!status && this_element != NULL)
252b5132 2123 {
4c168fa3
AM		 2124 char *output_name;
2125 bfd *output_bfd;
252b5132 2126 bfd *last_element;
8066d1a2
AS		 2127 struct stat buf;
2128 int stat_status = 0;
3f5e193b 2129 bfd_boolean del = TRUE;
19094d10 2130 bfd_boolean ok_object;
8066d1a2 2131
4c168fa3
AM		 2132 /* Create an output file for this member. */
2133 output_name = concat (dir, "/",
2134 bfd_get_filename (this_element), (char *) 0);
2135
2136 /* If the file already exists, make another temp dir. */
2137 if (stat (output_name, &buf) >= 0)
2138 {
f9c026a8
NC		 2139 output_name = make_tempdir (output_name);
2140 if (output_name == NULL)
485be063
AM		 2141 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2142 strerror (errno));
84e2f313 2143
3f5e193b 2144 l = (struct name_list *) xmalloc (sizeof (struct name_list));
4c168fa3
AM		 2145 l->name = output_name;
2146 l->next = list;
2147 l->obfd = NULL;
2148 list = l;
2149 output_name = concat (output_name, "/",
2150 bfd_get_filename (this_element), (char *) 0);
2151 }
2152
8066d1a2
AS		 2153 if (preserve_dates)
2154 {
2155 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 2156
8066d1a2
AS		 2157 if (stat_status != 0)
2158 non_fatal (_("internal stat error on %s"),
2159 bfd_get_filename (this_element));
2160 }
252b5132 2161
3f5e193b 2162 l = (struct name_list *) xmalloc (sizeof (struct name_list));
252b5132
RH		 2163 l->name = output_name;
2164 l->next = list;
bee59fd2 2165 l->obfd = NULL;
252b5132
RH		 2166 list = l;
2167
19094d10
AM		 2168 ok_object = bfd_check_format (this_element, bfd_object);
2169 if (!ok_object)
2170 bfd_nonfatal_message (NULL, this_element, NULL,
2171 _("Unable to recognise the format of file"));
2172
2173 /* PR binutils/3110: Cope with archives
2174 containing multiple target types. */
2175 if (force_output_target || !ok_object)
2176 output_bfd = bfd_openw (output_name, output_target);
2177 else
2178 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
2179
2180 if (output_bfd == NULL)
77f762d6 2181 {
19094d10
AM		 2182 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
2183 status = 1;
2184 return;
2185 }
2186
2187 if (ok_object)
2188 {
2189 del = !copy_object (this_element, output_bfd, input_arch);
ee873e00 2190
19094d10
AM		 2191 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
2192 /* Try again as an unknown object file. */
2193 ok_object = FALSE;
2194 else if (!bfd_close (output_bfd))
2db6cde7
NS		 2195 {
2196 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
19094d10 2197 /* Error in new object file. Don't change archive. */
2db6cde7 2198 status = 1;
77f762d6 2199 }
77f762d6 2200 }
77f762d6 2201
19094d10
AM		 2202 if (!ok_object)
2203 {
3f5e193b 2204 del = !copy_unknown_object (this_element, output_bfd);
77f762d6
L		 2205 if (!bfd_close_all_done (output_bfd))
2206 {
8d8e0703 2207 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
77f762d6
L		 2208 /* Error in new object file. Don't change archive. */
2209 status = 1;
2210 }
252b5132
RH		 2211 }
2212
3f5e193b 2213 if (del)
950d48e7
NC		 2214 {
2215 unlink (output_name);
2216 status = 1;
2217 }
2218 else
2219 {
2220 if (preserve_dates && stat_status == 0)
2221 set_times (output_name, &buf);
8066d1a2 2222
950d48e7
NC		 2223 /* Open the newly output file and attach to our list. */
2224 output_bfd = bfd_openr (output_name, output_target);
252b5132 2225
950d48e7 2226 l->obfd = output_bfd;
252b5132 2227
950d48e7 2228 *ptr = output_bfd;
cc481421 2229 ptr = &output_bfd->archive_next;
252b5132 2230
950d48e7 2231 last_element = this_element;
252b5132 2232
950d48e7 2233 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 2234
950d48e7
NC		 2235 bfd_close (last_element);
2236 }
252b5132 2237 }
d3ba0551 2238 *ptr = NULL;
252b5132 2239
8d8e0703 2240 filename = bfd_get_filename (obfd);
252b5132 2241 if (!bfd_close (obfd))
8d8e0703
AM		 2242 {
2243 status = 1;
2244 bfd_nonfatal_message (filename, NULL, NULL, NULL);
2245 return;
2246 }
252b5132 2247
8d8e0703 2248 filename = bfd_get_filename (ibfd);
252b5132 2249 if (!bfd_close (ibfd))
8d8e0703
AM		 2250 {
2251 status = 1;
2252 bfd_nonfatal_message (filename, NULL, NULL, NULL);
2253 return;
2254 }
252b5132
RH		 2255
2256 /* Delete all the files that we opened. */
2257 for (l = list; l != NULL; l = l->next)
2258 {
4c168fa3
AM		 2259 if (l->obfd == NULL)
2260 rmdir (l->name);
2261 else
2262 {
2263 bfd_close (l->obfd);
2264 unlink (l->name);
2265 }
252b5132
RH		 2266 }
2267 rmdir (dir);
2268}
2269
0408dee6
DK		 2270static void
2271set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
2272{
2273 /* This is only relevant to Coff targets. */
2274 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
2275 {
78e82dc3
AM		 2276 if (style == KEEP
2277 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
0408dee6
DK		 2278 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
2279 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
2280 }
2281}
2282
252b5132
RH		 2283/* The top-level control. */
2284
2285static void
84e2f313 2286copy_file (const char *input_filename, const char *output_filename,
8b31b6c4
NC		 2287 const char *input_target, const char *output_target,
2288 const bfd_arch_info_type *input_arch)
252b5132
RH		 2289{
2290 bfd *ibfd;
49c12576
AM		 2291 char **obj_matching;
2292 char **core_matching;
52a476ee 2293 off_t size = get_file_size (input_filename);
252b5132 2294
52a476ee 2295 if (size < 1)
f24ddbdd 2296 {
52a476ee
L		 2297 if (size == 0)
2298 non_fatal (_("error: the input file '%s' is empty"),
2299 input_filename);
f24ddbdd
NC		 2300 status = 1;
2301 return;
2302 }
2303
252b5132
RH		 2304 /* To allow us to do "strip *" without dying on the first
2305 non-object file, failures are nonfatal. */
252b5132
RH		 2306 ibfd = bfd_openr (input_filename, input_target);
2307 if (ibfd == NULL)
2db6cde7
NS		 2308 {
2309 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2310 status = 1;
2311 return;
2312 }
252b5132 2313
4a114e3e
L		 2314 switch (do_debug_sections)
2315 {
2316 case compress:
2317 ibfd->flags |= BFD_COMPRESS;
2318 break;
2319 case decompress:
2320 ibfd->flags |= BFD_DECOMPRESS;
2321 break;
2322 default:
2323 break;
2324 }
2325
252b5132
RH		 2326 if (bfd_check_format (ibfd, bfd_archive))
2327 {
ee873e00 2328 bfd_boolean force_output_target;
252b5132
RH		 2329 bfd *obfd;
2330
2331 /* bfd_get_target does not return the correct value until
2332 bfd_check_format succeeds. */
2333 if (output_target == NULL)
ee873e00
NC		 2334 {
2335 output_target = bfd_get_target (ibfd);
2336 force_output_target = FALSE;
2337 }
2338 else
2339 force_output_target = TRUE;
252b5132
RH		 2340
2341 obfd = bfd_openw (output_filename, output_target);
2342 if (obfd == NULL)
2db6cde7
NS		 2343 {
2344 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2345 status = 1;
2346 return;
2347 }
0408dee6
DK		 2348 /* This is a no-op on non-Coff targets. */
2349 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2350
8b31b6c4 2351 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
252b5132 2352 }
49c12576 2353 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH		 2354 {
2355 bfd *obfd;
49c12576 2356 do_copy:
950d48e7 2357
252b5132
RH		 2358 /* bfd_get_target does not return the correct value until
2359 bfd_check_format succeeds. */
2360 if (output_target == NULL)
2361 output_target = bfd_get_target (ibfd);
2362
2363 obfd = bfd_openw (output_filename, output_target);
2364 if (obfd == NULL)
2db6cde7
NS		 2365 {
2366 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2367 status = 1;
2368 return;
2369 }
0408dee6
DK		 2370 /* This is a no-op on non-Coff targets. */
2371 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2372
8b31b6c4 2373 if (! copy_object (ibfd, obfd, input_arch))
a580b8e0 2374 status = 1;
252b5132
RH		 2375
2376 if (!bfd_close (obfd))
8d8e0703
AM		 2377 {
2378 status = 1;
2379 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2380 return;
2381 }
252b5132
RH		 2382
2383 if (!bfd_close (ibfd))
8d8e0703
AM		 2384 {
2385 status = 1;
2386 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2387 return;
2388 }
252b5132
RH		 2389 }
2390 else
2391 {
49c12576
AM		 2392 bfd_error_type obj_error = bfd_get_error ();
2393 bfd_error_type core_error;
b34976b6 2394
49c12576
AM		 2395 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
2396 {
2397 /* This probably can't happen.. */
2398 if (obj_error == bfd_error_file_ambiguously_recognized)
2399 free (obj_matching);
2400 goto do_copy;
2401 }
2402
2403 core_error = bfd_get_error ();
2404 /* Report the object error in preference to the core error. */
2405 if (obj_error != core_error)
2406 bfd_set_error (obj_error);
2407
2db6cde7 2408 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
57938635 2409
49c12576
AM		 2410 if (obj_error == bfd_error_file_ambiguously_recognized)
2411 {
2412 list_matching_formats (obj_matching);
2413 free (obj_matching);
2414 }
2415 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 2416 {
49c12576
AM		 2417 list_matching_formats (core_matching);
2418 free (core_matching);
252b5132 2419 }
57938635 2420
252b5132
RH		 2421 status = 1;
2422 }
2423}
2424
594ef5db
NC		 2425/* Add a name to the section renaming list. */
2426
2427static void
84e2f313
NC		 2428add_section_rename (const char * old_name, const char * new_name,
2429 flagword flags)
594ef5db 2430{
91d6fa6a 2431 section_rename * srename;
594ef5db
NC		 2432
2433 /* Check for conflicts first. */
91d6fa6a
NC		 2434 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2435 if (strcmp (srename->old_name, old_name) == 0)
594ef5db
NC		 2436 {
2437 /* Silently ignore duplicate definitions. */
91d6fa6a
NC		 2438 if (strcmp (srename->new_name, new_name) == 0
2439 && srename->flags == flags)
594ef5db 2440 return;
0af11b59 2441
594ef5db
NC		 2442 fatal (_("Multiple renames of section %s"), old_name);
2443 }
2444
91d6fa6a 2445 srename = (section_rename *) xmalloc (sizeof (* srename));
594ef5db 2446
91d6fa6a
NC		 2447 srename->old_name = old_name;
2448 srename->new_name = new_name;
2449 srename->flags = flags;
2450 srename->next = section_rename_list;
0af11b59 2451
91d6fa6a 2452 section_rename_list = srename;
594ef5db
NC		 2453}
2454
2455/* Check the section rename list for a new name of the input section
2456 ISECTION. Return the new name if one is found.
2457 Also set RETURNED_FLAGS to the flags to be used for this section. */
2458
2459static const char *
84e2f313
NC		 2460find_section_rename (bfd * ibfd ATTRIBUTE_UNUSED, sec_ptr isection,
2461 flagword * returned_flags)
594ef5db
NC		 2462{
2463 const char * old_name = bfd_section_name (ibfd, isection);
91d6fa6a 2464 section_rename * srename;
594ef5db
NC		 2465
2466 /* Default to using the flags of the input section. */
2467 * returned_flags = bfd_get_section_flags (ibfd, isection);
2468
91d6fa6a
NC		 2469 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2470 if (strcmp (srename->old_name, old_name) == 0)
594ef5db 2471 {
91d6fa6a
NC		 2472 if (srename->flags != (flagword) -1)
2473 * returned_flags = srename->flags;
594ef5db 2474
91d6fa6a 2475 return srename->new_name;
594ef5db
NC		 2476 }
2477
2478 return old_name;
2479}
2480
80fccad2
BW		 2481/* Once each of the sections is copied, we may still need to do some
2482 finalization work for private section headers. Do that here. */
2483
2484static void
2485setup_bfd_headers (bfd *ibfd, bfd *obfd)
2486{
80fccad2
BW		 2487 /* Allow the BFD backend to copy any private data it understands
2488 from the input section to the output section. */
2489 if (! bfd_copy_private_header_data (ibfd, obfd))
2490 {
2db6cde7
NS		 2491 status = 1;
2492 bfd_nonfatal_message (NULL, ibfd, NULL,
8d8e0703 2493 _("error in private header data"));
2db6cde7 2494 return;
80fccad2
BW		 2495 }
2496
2497 /* All went well. */
2498 return;
80fccad2
BW		 2499}
2500
594ef5db
NC		 2501/* Create a section in OBFD with the same
2502 name and attributes as ISECTION in IBFD. */
252b5132
RH		 2503
2504static void
84e2f313 2505setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 2506{
3f5e193b 2507 bfd *obfd = (bfd *) obfdarg;
252b5132
RH		 2508 struct section_list *p;
2509 sec_ptr osection;
2510 bfd_size_type size;
2511 bfd_vma vma;
2512 bfd_vma lma;
2513 flagword flags;
1a89cc7d 2514 const char *err;
594ef5db 2515 const char * name;
d7fb0dd2 2516 char *prefix = NULL;
66125551 2517 bfd_boolean make_nobits;
0af11b59 2518
2593f09a 2519 if (is_strip_section (ibfd, isection))
252b5132
RH		 2520 return;
2521
b34976b6 2522 p = find_section_list (bfd_section_name (ibfd, isection), FALSE);
252b5132 2523 if (p != NULL)
b34976b6 2524 p->used = TRUE;
252b5132 2525
594ef5db
NC		 2526 /* Get the, possibly new, name of the output section. */
2527 name = find_section_rename (ibfd, isection, & flags);
0af11b59 2528
d7fb0dd2 2529 /* Prefix sections. */
84e2f313
NC		 2530 if ((prefix_alloc_sections_string)
2531 && (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
d7fb0dd2
NC		 2532 prefix = prefix_alloc_sections_string;
2533 else if (prefix_sections_string)
2534 prefix = prefix_sections_string;
2535
2536 if (prefix)
2537 {
2538 char *n;
2539
3f5e193b 2540 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
d7fb0dd2
NC		 2541 strcpy (n, prefix);
2542 strcat (n, name);
2543 name = n;
2544 }
66491ebc 2545
66125551 2546 make_nobits = FALSE;
551b43fd
AM		 2547 if (p != NULL && p->set_flags)
2548 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 2549 else if (strip_symbols == STRIP_NONDEBUG
6c67a030
AM		 2550 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
2551 && !(ibfd->xvec->flavour == bfd_target_elf_flavour
2552 && elf_section_type (isection) == SHT_NOTE))
66125551 2553 {
6c67a030 2554 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 2555 if (obfd->xvec->flavour == bfd_target_elf_flavour)
2556 {
2557 make_nobits = TRUE;
2558
2559 /* Twiddle the input section flags so that it seems to
2560 elf.c:copy_private_bfd_data that section flags have not
2561 changed between input and output sections. This hack
2562 prevents wholesale rewriting of the program headers. */
6c67a030 2563 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 2564 }
2565 }
551b43fd
AM		 2566
2567 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 2568
252b5132
RH		 2569 if (osection == NULL)
2570 {
2db6cde7 2571 err = _("failed to create output section");
252b5132
RH		 2572 goto loser;
2573 }
2574
66125551 2575 if (make_nobits)
551b43fd
AM		 2576 elf_section_type (osection) = SHT_NOBITS;
2577
252b5132
RH		 2578 size = bfd_section_size (ibfd, isection);
2579 if (copy_byte >= 0)
b7dd81f7 2580 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS		 2581 else if (extract_symbol)
2582 size = 0;
252b5132
RH		 2583 if (! bfd_set_section_size (obfd, osection, size))
2584 {
2db6cde7 2585 err = _("failed to set size");
252b5132
RH		 2586 goto loser;
2587 }
57938635 2588
252b5132
RH		 2589 vma = bfd_section_vma (ibfd, isection);
2590 if (p != NULL && p->change_vma == CHANGE_MODIFY)
2591 vma += p->vma_val;
2592 else if (p != NULL && p->change_vma == CHANGE_SET)
2593 vma = p->vma_val;
2594 else
2595 vma += change_section_address;
57938635 2596
237dcb53 2597 if (! bfd_set_section_vma (obfd, osection, vma))
252b5132 2598 {
2db6cde7 2599 err = _("failed to set vma");
252b5132
RH		 2600 goto loser;
2601 }
2602
2603 lma = isection->lma;
2604 if ((p != NULL) && p->change_lma != CHANGE_IGNORE)
2605 {
2606 if (p->change_lma == CHANGE_MODIFY)
2607 lma += p->lma_val;
2608 else if (p->change_lma == CHANGE_SET)
2609 lma = p->lma_val;
2610 else
2611 abort ();
2612 }
2613 else
2614 lma += change_section_address;
57938635 2615
237dcb53 2616 osection->lma = lma;
252b5132
RH		 2617
2618 /* FIXME: This is probably not enough. If we change the LMA we
2619 may have to recompute the header for the file as well. */
b34976b6
AM		 2620 if (!bfd_set_section_alignment (obfd,
2621 osection,
2622 bfd_section_alignment (ibfd, isection)))
252b5132 2623 {
2db6cde7 2624 err = _("failed to set alignment");
252b5132
RH		 2625 goto loser;
2626 }
2627
bc408b8a
JJ		 2628 /* Copy merge entity size. */
2629 osection->entsize = isection->entsize;
2630
252b5132
RH		 2631 /* This used to be mangle_section; we do here to avoid using
2632 bfd_get_section_by_name since some formats allow multiple
2633 sections with the same name. */
2634 isection->output_section = osection;
237dcb53 2635 isection->output_offset = 0;
d3e52d40
RS		 2636
2637 /* Do not copy backend data if --extract-symbol is passed; anything
2638 that needs to look at the section contents will fail. */
2639 if (extract_symbol)
2640 return;
252b5132 2641
119f4245
AM		 2642 if ((isection->flags & SEC_GROUP) != 0)
2643 {
2644 asymbol *gsym = group_signature (isection);
2645
2646 if (gsym != NULL)
2647 {
2648 gsym->flags |= BSF_KEEP;
2649 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
2650 elf_group_id (isection) = gsym;
2651 }
2652 }
2653
252b5132
RH		 2654 /* Allow the BFD backend to copy any private data it understands
2655 from the input section to the output section. */
42bb2e33 2656 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 2657 {
2db6cde7 2658 err = _("failed to copy private data");
252b5132
RH		 2659 goto loser;
2660 }
2661
594ef5db 2662 /* All went well. */
252b5132
RH		 2663 return;
2664
2665loser:
252b5132 2666 status = 1;
2db6cde7 2667 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH		 2668}
2669
c3989150 2670/* Return TRUE if input section ISECTION should be skipped. */
252b5132 2671
c3989150
L		 2672static bfd_boolean
2673skip_section (bfd *ibfd, sec_ptr isection)
252b5132 2674{
252b5132
RH		 2675 sec_ptr osection;
2676 bfd_size_type size;
dc156bc0 2677 flagword flags;
252b5132 2678
594ef5db
NC		 2679 /* If we have already failed earlier on,
2680 do not keep on generating complaints now. */
252b5132 2681 if (status != 0)
c3989150
L		 2682 return TRUE;
2683
2684 if (extract_symbol)
2685 return TRUE;
57938635 2686
2593f09a 2687 if (is_strip_section (ibfd, isection))
c3989150 2688 return TRUE;
252b5132 2689
2593f09a 2690 flags = bfd_get_section_flags (ibfd, isection);
dc156bc0 2691 if ((flags & SEC_GROUP) != 0)
c3989150 2692 return TRUE;
dc156bc0 2693
252b5132 2694 osection = isection->output_section;
135dfb4a 2695 size = bfd_get_section_size (isection);
252b5132
RH		 2696
2697 if (size == 0 || osection == 0)
c3989150 2698 return TRUE;
252b5132 2699
c3989150
L		 2700 return FALSE;
2701}
2702
2703/* Copy relocations in input section ISECTION of IBFD to an output
2704 section with the same name in OBFDARG. If stripping then don't
2705 copy any relocation info. */
2706
2707static void
2708copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
2709{
2710 bfd *obfd = (bfd *) obfdarg;
2711 long relsize;
2712 arelent **relpp;
2713 long relcount;
2714 sec_ptr osection;
2715
2716 if (skip_section (ibfd, isection))
237dcb53
AM		 2717 return;
2718
c3989150 2719 osection = isection->output_section;
2593f09a 2720
96109726
CC		 2721 /* Core files and DWO files do not need to be relocated. */
2722 if (bfd_get_format (obfd) == bfd_core || strip_symbols == STRIP_NONDWO)
4dd67f29
MS		 2723 relsize = 0;
2724 else
ed570f48
NC		 2725 {
2726 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 2727
ed570f48
NC		 2728 if (relsize < 0)
2729 {
2730 /* Do not complain if the target does not support relocations. */
2731 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
2732 relsize = 0;
2733 else
2db6cde7
NS		 2734 {
2735 status = 1;
2736 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
2737 return;
2738 }
ed570f48
NC		 2739 }
2740 }
57938635 2741
252b5132 2742 if (relsize == 0)
96109726
CC		 2743 {
2744 bfd_set_reloc (obfd, osection, NULL, 0);
2745 osection->flags &= ~SEC_RELOC;
2746 }
252b5132
RH		 2747 else
2748 {
3f5e193b 2749 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 2750 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
2751 if (relcount < 0)
2db6cde7
NS		 2752 {
2753 status = 1;
2754 bfd_nonfatal_message (NULL, ibfd, isection,
2755 _("relocation count is negative"));
2756 return;
2757 }
57938635 2758
252b5132
RH		 2759 if (strip_symbols == STRIP_ALL)
2760 {
2761 /* Remove relocations which are not in
0af11b59 2762 keep_strip_specific_list. */
252b5132
RH		 2763 arelent **temp_relpp;
2764 long temp_relcount = 0;
2765 long i;
57938635 2766
3f5e193b 2767 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 2768 for (i = 0; i < relcount; i++)
d3ba0551 2769 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
047c9024 2770 keep_specific_htab))
252b5132
RH		 2771 temp_relpp [temp_relcount++] = relpp [i];
2772 relcount = temp_relcount;
2773 free (relpp);
2774 relpp = temp_relpp;
2775 }
e0c60db2 2776
d3ba0551 2777 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 2778 if (relcount == 0)
c3989150
L		 2779 {
2780 osection->flags &= ~SEC_RELOC;
2781 free (relpp);
2782 }
252b5132 2783 }
c3989150
L		 2784}
2785
2786/* Copy the data of input section ISECTION of IBFD
2787 to an output section with the same name in OBFD. */
2788
2789static void
2790copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
2791{
2792 bfd *obfd = (bfd *) obfdarg;
2793 struct section_list *p;
2794 sec_ptr osection;
2795 bfd_size_type size;
2796
2797 if (skip_section (ibfd, isection))
2798 return;
2799
2800 osection = isection->output_section;
2801 size = bfd_get_section_size (isection);
2802
2803 p = find_section_list (bfd_get_section_name (ibfd, isection), FALSE);
57938635 2804
0af11b59 2805 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
4dd67f29 2806 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
252b5132 2807 {
4a114e3e 2808 bfd_byte *memhunk = NULL;
252b5132 2809
4a114e3e 2810 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk))
2db6cde7
NS		 2811 {
2812 status = 1;
2813 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
2814 return;
2815 }
252b5132 2816
9e48b4c6
NC		 2817 if (reverse_bytes)
2818 {
2819 /* We don't handle leftover bytes (too many possible behaviors,
2820 and we don't know what the user wants). The section length
2821 must be a multiple of the number of bytes to swap. */
2822 if ((size % reverse_bytes) == 0)
2823 {
2824 unsigned long i, j;
2825 bfd_byte b;
2826
2827 for (i = 0; i < size; i += reverse_bytes)
2828 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
2829 {
2830 bfd_byte *m = (bfd_byte *) memhunk;
2831
2832 b = m[i + j];
2833 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
2834 m[(i + reverse_bytes) - (j + 1)] = b;
2835 }
2836 }
2837 else
2838 /* User must pad the section up in order to do this. */
2839 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
2840 bfd_section_name (ibfd, isection), reverse_bytes);
2841 }
2842
57938635 2843 if (copy_byte >= 0)
5e675b72
AM		 2844 {
2845 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 2846 char *from = (char *) memhunk + copy_byte;
3f5e193b 2847 char *to = (char *) memhunk;
2f01ffbf 2848 char *end = (char *) memhunk + size;
b7dd81f7 2849 int i;
5e675b72
AM		 2850
2851 for (; from < end; from += interleave)
b7dd81f7 2852 for (i = 0; i < copy_width; i++)
ee7da987
L		 2853 {
2854 if (&from[i] >= end)
2855 break;
2856 *to++ = from[i];
2857 }
5e675b72 2858
b7dd81f7 2859 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72
AM		 2860 osection->lma /= interleave;
2861 }
252b5132 2862
d3ba0551 2863 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 2864 {
2865 status = 1;
2866 bfd_nonfatal_message (NULL, obfd, osection, NULL);
2867 return;
2868 }
252b5132
RH		 2869 free (memhunk);
2870 }
2871 else if (p != NULL && p->set_flags && (p->flags & SEC_HAS_CONTENTS) != 0)
2872 {
d3ba0551 2873 void *memhunk = xmalloc (size);
252b5132
RH		 2874
2875 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
2876 flag--they can just remove the section entirely and add it
2877 back again. However, we do permit them to turn on the
2878 SEC_HAS_CONTENTS flag, and take it to mean that the section
2879 contents should be zeroed out. */
2880
2881 memset (memhunk, 0, size);
d3ba0551 2882 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 2883 {
2884 status = 1;
2885 bfd_nonfatal_message (NULL, obfd, osection, NULL);
2886 return;
2887 }
252b5132
RH		 2888 free (memhunk);
2889 }
2890}
2891
2892/* Get all the sections. This is used when --gap-fill or --pad-to is
2893 used. */
2894
2895static void
84e2f313 2896get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 2897{
3f5e193b 2898 asection ***secppp = (asection ***) secppparg;
252b5132
RH		 2899
2900 **secppp = osection;
2901 ++(*secppp);
2902}
2903
2904/* Sort sections by VMA. This is called via qsort, and is used when
2905 --gap-fill or --pad-to is used. We force non loadable or empty
2906 sections to the front, where they are easier to ignore. */
2907
2908static int
84e2f313 2909compare_section_lma (const void *arg1, const void *arg2)
252b5132 2910{
3f5e193b
NC		 2911 const asection *const *sec1 = (const asection * const *) arg1;
2912 const asection *const *sec2 = (const asection * const *) arg2;
252b5132
RH		 2913 flagword flags1, flags2;
2914
2915 /* Sort non loadable sections to the front. */
2916 flags1 = (*sec1)->flags;
2917 flags2 = (*sec2)->flags;
2918 if ((flags1 & SEC_HAS_CONTENTS) == 0
2919 || (flags1 & SEC_LOAD) == 0)
2920 {
2921 if ((flags2 & SEC_HAS_CONTENTS) != 0
2922 && (flags2 & SEC_LOAD) != 0)
2923 return -1;
2924 }
2925 else
2926 {
2927 if ((flags2 & SEC_HAS_CONTENTS) == 0
2928 || (flags2 & SEC_LOAD) == 0)
2929 return 1;
2930 }
2931
2932 /* Sort sections by LMA. */
2933 if ((*sec1)->lma > (*sec2)->lma)
2934 return 1;
2935 else if ((*sec1)->lma < (*sec2)->lma)
2936 return -1;
2937
2938 /* Sort sections with the same LMA by size. */
135dfb4a 2939 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
252b5132 2940 return 1;
135dfb4a 2941 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
252b5132
RH		 2942 return -1;
2943
2944 return 0;
2945}
2946
2947/* Mark all the symbols which will be used in output relocations with
2948 the BSF_KEEP flag so that those symbols will not be stripped.
2949
2950 Ignore relocations which will not appear in the output file. */
2951
2952static void
84e2f313 2953mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 2954{
3f5e193b 2955 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH		 2956 long relsize;
2957 arelent **relpp;
2958 long relcount, i;
2959
2960 /* Ignore an input section with no corresponding output section. */
2961 if (isection->output_section == NULL)
2962 return;
2963
2964 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
2965 if (relsize < 0)
ed570f48
NC		 2966 {
2967 /* Do not complain if the target does not support relocations. */
2968 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
2969 return;
2970 bfd_fatal (bfd_get_filename (ibfd));
2971 }
252b5132
RH		 2972
2973 if (relsize == 0)
2974 return;
2975
3f5e193b 2976 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 2977 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
2978 if (relcount < 0)
2979 bfd_fatal (bfd_get_filename (ibfd));
2980
ec5d57d5
NC		 2981 /* Examine each symbol used in a relocation. If it's not one of the
2982 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 2983 for (i = 0; i < relcount; i++)
2984 {
ec5d57d5
NC		 2985 if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
2986 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
2987 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
2988 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 2989 }
2990
2991 if (relpp != NULL)
2992 free (relpp);
2993}
2994
2995/* Write out debugging information. */
2996
b34976b6 2997static bfd_boolean
84e2f313
NC		 2998write_debugging_info (bfd *obfd, void *dhandle,
2999 long *symcountp ATTRIBUTE_UNUSED,
3000 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132
RH		 3001{
3002 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
3003 return write_ieee_debugging_info (obfd, dhandle);
3004
3005 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
3006 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3007 {
3008 bfd_byte *syms, *strings;
3009 bfd_size_type symsize, stringsize;
3010 asection *stabsec, *stabstrsec;
551b43fd 3011 flagword flags;
252b5132
RH		 3012
3013 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
3014 &symsize, &strings,
3015 &stringsize))
b34976b6 3016 return FALSE;
252b5132 3017
551b43fd
AM		 3018 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
3019 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
3020 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 3021 if (stabsec == NULL
3022 || stabstrsec == NULL
3023 || ! bfd_set_section_size (obfd, stabsec, symsize)
3024 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
3025 || ! bfd_set_section_alignment (obfd, stabsec, 2)
551b43fd 3026 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
252b5132 3027 {
2db6cde7
NS		 3028 bfd_nonfatal_message (NULL, obfd, NULL,
3029 _("can't create debugging section"));
b34976b6 3030 return FALSE;
252b5132
RH		 3031 }
3032
3033 /* We can get away with setting the section contents now because
3034 the next thing the caller is going to do is copy over the
3035 real sections. We may someday have to split the contents
3036 setting out of this function. */
d3ba0551
AM		 3037 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
3038 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
3039 stringsize))
252b5132 3040 {
2db6cde7
NS		 3041 bfd_nonfatal_message (NULL, obfd, NULL,
3042 _("can't set debugging section contents"));
b34976b6 3043 return FALSE;
252b5132
RH		 3044 }
3045
b34976b6 3046 return TRUE;
252b5132
RH		 3047 }
3048
2db6cde7
NS		 3049 bfd_nonfatal_message (NULL, obfd, NULL,
3050 _("don't know how to write debugging information for %s"),
3051 bfd_get_target (obfd));
b34976b6 3052 return FALSE;
252b5132
RH		 3053}
3054
955d0b3b
RM		 3055/* If neither -D nor -U was specified explicitly,
3056 then use the configured default. */
3057static void
3058default_deterministic (void)
3059{
3060 if (deterministic < 0)
3061 deterministic = DEFAULT_AR_DETERMINISTIC;
3062}
3063
252b5132 3064static int
84e2f313 3065strip_main (int argc, char *argv[])
252b5132 3066{
7c29036b
NC		 3067 char *input_target = NULL;
3068 char *output_target = NULL;
b34976b6 3069 bfd_boolean show_version = FALSE;
7c29036b
NC		 3070 bfd_boolean formats_info = FALSE;
3071 int c;
3072 int i;
252b5132
RH		 3073 struct section_list *p;
3074 char *output_file = NULL;
3075
5fe11841 3076 while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
252b5132
RH		 3077 strip_options, (int *) 0)) != EOF)
3078 {
3079 switch (c)
3080 {
3081 case 'I':
3082 input_target = optarg;
3083 break;
3084 case 'O':
3085 output_target = optarg;
3086 break;
3087 case 'F':
3088 input_target = output_target = optarg;
3089 break;
3090 case 'R':
b34976b6
AM		 3091 p = find_section_list (optarg, TRUE);
3092 p->remove = TRUE;
3093 sections_removed = TRUE;
252b5132
RH		 3094 break;
3095 case 's':
3096 strip_symbols = STRIP_ALL;
3097 break;
3098 case 'S':
3099 case 'g':
db4f6831 3100 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 3101 strip_symbols = STRIP_DEBUG;
3102 break;
96109726
CC		 3103 case OPTION_STRIP_DWO:
3104 strip_symbols = STRIP_DWO;
3105 break;
252b5132
RH		 3106 case OPTION_STRIP_UNNEEDED:
3107 strip_symbols = STRIP_UNNEEDED;
3108 break;
3109 case 'K':
047c9024 3110 add_specific_symbol (optarg, keep_specific_htab);
252b5132
RH		 3111 break;
3112 case 'N':
047c9024 3113 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH		 3114 break;
3115 case 'o':
3116 output_file = optarg;
3117 break;
3118 case 'p':
b34976b6 3119 preserve_dates = TRUE;
252b5132 3120 break;
2e30cb57
CC		 3121 case 'D':
3122 deterministic = TRUE;
3123 break;
955d0b3b
RM		 3124 case 'U':
3125 deterministic = FALSE;
3126 break;
252b5132
RH		 3127 case 'x':
3128 discard_locals = LOCALS_ALL;
3129 break;
3130 case 'X':
3131 discard_locals = LOCALS_START_L;
3132 break;
3133 case 'v':
b34976b6 3134 verbose = TRUE;
252b5132
RH		 3135 break;
3136 case 'V':
b34976b6 3137 show_version = TRUE;
252b5132 3138 break;
7c29036b
NC		 3139 case OPTION_FORMATS_INFO:
3140 formats_info = TRUE;
3141 break;
ed1653a7
NC		 3142 case OPTION_ONLY_KEEP_DEBUG:
3143 strip_symbols = STRIP_NONDEBUG;
3144 break;
1637cd90
JB		 3145 case OPTION_KEEP_FILE_SYMBOLS:
3146 keep_file_symbols = 1;
3147 break;
252b5132 3148 case 0:
594ef5db
NC		 3149 /* We've been given a long option. */
3150 break;
5fe11841
NC		 3151 case 'w':
3152 wildcard = TRUE;
3153 break;
8b53311e 3154 case 'H':
252b5132
RH		 3155 case 'h':
3156 strip_usage (stdout, 0);
3157 default:
3158 strip_usage (stderr, 1);
3159 }
3160 }
3161
84e2f313
NC		 3162 if (formats_info)
3163 {
3164 display_info ();
3165 return 0;
3166 }
c1c0eb9e 3167
252b5132
RH		 3168 if (show_version)
3169 print_version ("strip");
3170
955d0b3b
RM		 3171 default_deterministic ();
3172
252b5132
RH		 3173 /* Default is to strip all symbols. */
3174 if (strip_symbols == STRIP_UNDEF
3175 && discard_locals == LOCALS_UNDEF
047c9024 3176 && htab_elements (strip_specific_htab) == 0)
252b5132
RH		 3177 strip_symbols = STRIP_ALL;
3178
d3ba0551 3179 if (output_target == NULL)
252b5132
RH		 3180 output_target = input_target;
3181
3182 i = optind;
3183 if (i == argc
3184 || (output_file != NULL && (i + 1) < argc))
3185 strip_usage (stderr, 1);
3186
3187 for (; i < argc; i++)
3188 {
3189 int hold_status = status;
3190 struct stat statbuf;
3191 char *tmpname;
3192
f24ddbdd 3193 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 3194 {
3195 status = 1;
3196 continue;
3197 }
f24ddbdd 3198
252b5132 3199 if (preserve_dates)
f24ddbdd
NC		 3200 /* No need to check the return value of stat().
3201 It has already been checked in get_file_size(). */
3202 stat (argv[i], &statbuf);
252b5132 3203
8b6efd89
KT		 3204 if (output_file == NULL
3205 || filename_cmp (argv[i], output_file) == 0)
252b5132 3206 tmpname = make_tempname (argv[i]);
12f498a7
NS		 3207 else
3208 tmpname = output_file;
252b5132 3209
f9c026a8
NC		 3210 if (tmpname == NULL)
3211 {
2db6cde7
NS		 3212 bfd_nonfatal_message (argv[i], NULL, NULL,
3213 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC		 3214 status = 1;
3215 continue;
3216 }
3217
d68c385b 3218 status = 0;
8b31b6c4 3219 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH		 3220 if (status == 0)
3221 {
3222 if (preserve_dates)
3223 set_times (tmpname, &statbuf);
12f498a7 3224 if (output_file != tmpname)
92fac5ec
L		 3225 status = (smart_rename (tmpname,
3226 output_file ? output_file : argv[i],
3227 preserve_dates) != 0);
3228 if (status == 0)
3229 status = hold_status;
252b5132
RH		 3230 }
3231 else
bb14f524 3232 unlink_if_ordinary (tmpname);
12f498a7 3233 if (output_file != tmpname)
252b5132
RH		 3234 free (tmpname);
3235 }
3236
d68c385b 3237 return status;
252b5132
RH		 3238}
3239
92dd4511
L		 3240/* Set up PE subsystem. */
3241
3242static void
3243set_pe_subsystem (const char *s)
3244{
3245 const char *version, *subsystem;
3246 size_t i;
3247 static const struct
3248 {
3249 const char *name;
3250 const char set_def;
3251 const short value;
3252 }
3253 v[] =
3254 {
955d0b3b 3255 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L		 3256 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
3257 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
3258 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
3259 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
3260 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
3261 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
3262 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 3263 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L		 3264 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
3265 };
3266 short value;
3267 char *copy;
3268 int set_def = -1;
3269
3270 /* Check for the presence of a version number. */
3271 version = strchr (s, ':');
3272 if (version == NULL)
3273 subsystem = s;
3274 else
3275 {
3276 int len = version - s;
3277 copy = xstrdup (s);
3278 subsystem = copy;
3279 copy[len] = '\0';
3280 version = copy + 1 + len;
3281 pe_major_subsystem_version = strtoul (version, &copy, 0);
3282 if (*copy == '.')
3283 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
3284 if (*copy != '\0')
3285 non_fatal (_("%s: bad version in PE subsystem"), s);
3286 }
3287
3288 /* Check for numeric subsystem. */
3289 value = (short) strtol (subsystem, &copy, 0);
3290 if (*copy == '\0')
3291 {
3292 for (i = 0; i < ARRAY_SIZE (v); i++)
3293 if (v[i].value == value)
3294 {
3295 pe_subsystem = value;
3296 set_def = v[i].set_def;
3297 break;
3298 }
3299 }
3300 else
3301 {
3302 /* Search for subsystem by name. */
3303 for (i = 0; i < ARRAY_SIZE (v); i++)
3304 if (strcmp (subsystem, v[i].name) == 0)
3305 {
3306 pe_subsystem = v[i].value;
3307 set_def = v[i].set_def;
3308 break;
3309 }
3310 }
3311
3312 switch (set_def)
3313 {
3314 case -1:
3315 fatal (_("unknown PE subsystem: %s"), s);
3316 break;
3317 case 0:
3318 break;
3319 default:
3320 if (pe_file_alignment == (bfd_vma) -1)
3321 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
3322 if (pe_section_alignment == (bfd_vma) -1)
3323 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
3324 break;
3325 }
0cbf3531
MS		 3326 if (s != subsystem)
3327 free ((char *) subsystem);
92dd4511
L		 3328}
3329
3330/* Convert EFI target to PEI target. */
3331
3332static void
3333convert_efi_target (char *efi)
3334{
3335 efi[0] = 'p';
3336 efi[1] = 'e';
3337 efi[2] = 'i';
3338
3339 if (strcmp (efi + 4, "ia32") == 0)
3340 {
3341 /* Change ia32 to i386. */
3342 efi[5]= '3';
3343 efi[6]= '8';
3344 efi[7]= '6';
3345 }
3346 else if (strcmp (efi + 4, "x86_64") == 0)
3347 {
3348 /* Change x86_64 to x86-64. */
3349 efi[7] = '-';
3350 }
3351}
3352
252b5132 3353static int
84e2f313 3354copy_main (int argc, char *argv[])
252b5132 3355{
7c29036b
NC		 3356 char *input_filename = NULL;
3357 char *output_filename = NULL;
c1c0eb9e 3358 char *tmpname;
7c29036b
NC		 3359 char *input_target = NULL;
3360 char *output_target = NULL;
b34976b6
AM		 3361 bfd_boolean show_version = FALSE;
3362 bfd_boolean change_warn = TRUE;
7c29036b 3363 bfd_boolean formats_info = FALSE;
252b5132
RH		 3364 int c;
3365 struct section_list *p;
3366 struct stat statbuf;
8b31b6c4 3367 const bfd_arch_info_type *input_arch = NULL;
252b5132 3368
5fe11841 3369 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
252b5132
RH		 3370 copy_options, (int *) 0)) != EOF)
3371 {
3372 switch (c)
3373 {
3374 case 'b':
3375 copy_byte = atoi (optarg);
3376 if (copy_byte < 0)
3377 fatal (_("byte number must be non-negative"));
3378 break;
57938635 3379
0af11b59 3380 case 'B':
8b31b6c4
NC		 3381 input_arch = bfd_scan_arch (optarg);
3382 if (input_arch == NULL)
3383 fatal (_("architecture %s unknown"), optarg);
0af11b59 3384 break;
43a0748c 3385
252b5132 3386 case 'i':
b7dd81f7
NC		 3387 if (optarg)
3388 {
3389 interleave = atoi (optarg);
3390 if (interleave < 1)
3391 fatal (_("interleave must be positive"));
3392 }
3393 else
3394 interleave = 4;
3395 break;
3396
3397 case OPTION_INTERLEAVE_WIDTH:
3398 copy_width = atoi (optarg);
3399 if (copy_width < 1)
3400 fatal(_("interleave width must be positive"));
252b5132 3401 break;
57938635 3402
252b5132
RH		 3403 case 'I':
3404 case 's': /* "source" - 'I' is preferred */
3405 input_target = optarg;
3406 break;
57938635 3407
252b5132
RH		 3408 case 'O':
3409 case 'd': /* "destination" - 'O' is preferred */
3410 output_target = optarg;
3411 break;
57938635 3412
252b5132
RH		 3413 case 'F':
3414 input_target = output_target = optarg;
3415 break;
57938635 3416
f91ea849 3417 case 'j':
b34976b6 3418 p = find_section_list (optarg, TRUE);
f91ea849
ILT		 3419 if (p->remove)
3420 fatal (_("%s both copied and removed"), optarg);
b34976b6
AM		 3421 p->copy = TRUE;
3422 sections_copied = TRUE;
f91ea849 3423 break;
57938635 3424
252b5132 3425 case 'R':
b34976b6 3426 p = find_section_list (optarg, TRUE);
f91ea849
ILT		 3427 if (p->copy)
3428 fatal (_("%s both copied and removed"), optarg);
b34976b6
AM		 3429 p->remove = TRUE;
3430 sections_removed = TRUE;
252b5132 3431 break;
57938635 3432
252b5132
RH		 3433 case 'S':
3434 strip_symbols = STRIP_ALL;
3435 break;
57938635 3436
252b5132
RH		 3437 case 'g':
3438 strip_symbols = STRIP_DEBUG;
3439 break;
57938635 3440
96109726
CC		 3441 case OPTION_STRIP_DWO:
3442 strip_symbols = STRIP_DWO;
3443 break;
3444
252b5132
RH		 3445 case OPTION_STRIP_UNNEEDED:
3446 strip_symbols = STRIP_UNNEEDED;
3447 break;
57938635 3448
ed1653a7
NC		 3449 case OPTION_ONLY_KEEP_DEBUG:
3450 strip_symbols = STRIP_NONDEBUG;
3451 break;
3452
1637cd90
JB		 3453 case OPTION_KEEP_FILE_SYMBOLS:
3454 keep_file_symbols = 1;
3455 break;
3456
2593f09a 3457 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 3458 long_section_names = ENABLE ;
2593f09a
NC		 3459 gnu_debuglink_filename = optarg;
3460 break;
3461
252b5132 3462 case 'K':
047c9024 3463 add_specific_symbol (optarg, keep_specific_htab);
252b5132 3464 break;
57938635 3465
252b5132 3466 case 'N':
047c9024 3467 add_specific_symbol (optarg, strip_specific_htab);
252b5132 3468 break;
57938635 3469
bcf32829 3470 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 3471 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB		 3472 break;
3473
252b5132 3474 case 'L':
047c9024 3475 add_specific_symbol (optarg, localize_specific_htab);
252b5132 3476 break;
57938635 3477
7b4a0685 3478 case OPTION_GLOBALIZE_SYMBOL:
047c9024 3479 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC		 3480 break;
3481
16b2b71c 3482 case 'G':
047c9024 3483 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC		 3484 break;
3485
252b5132 3486 case 'W':
047c9024 3487 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 3488 break;
57938635 3489
252b5132 3490 case 'p':
b34976b6 3491 preserve_dates = TRUE;
252b5132 3492 break;
57938635 3493
2e30cb57
CC		 3494 case 'D':
3495 deterministic = TRUE;
3496 break;
3497
955d0b3b
RM		 3498 case 'U':
3499 deterministic = FALSE;
3500 break;
3501
5fe11841
NC		 3502 case 'w':
3503 wildcard = TRUE;
3504 break;
3505
252b5132
RH		 3506 case 'x':
3507 discard_locals = LOCALS_ALL;
3508 break;
57938635 3509
252b5132
RH		 3510 case 'X':
3511 discard_locals = LOCALS_START_L;
3512 break;
57938635 3513
252b5132 3514 case 'v':
b34976b6 3515 verbose = TRUE;
252b5132 3516 break;
57938635 3517
252b5132 3518 case 'V':
b34976b6 3519 show_version = TRUE;
252b5132 3520 break;
57938635 3521
7c29036b
NC		 3522 case OPTION_FORMATS_INFO:
3523 formats_info = TRUE;
3524 break;
3525
252b5132 3526 case OPTION_WEAKEN:
b34976b6 3527 weaken = TRUE;
252b5132 3528 break;
57938635 3529
252b5132
RH		 3530 case OPTION_ADD_SECTION:
3531 {
3532 const char *s;
500ee42e 3533 size_t off, alloc;
252b5132 3534 struct section_add *pa;
252b5132
RH		 3535 FILE *f;
3536
3537 s = strchr (optarg, '=');
57938635 3538
252b5132 3539 if (s == NULL)
57938635 3540 fatal (_("bad format for %s"), "--add-section");
252b5132 3541
3f5e193b 3542 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
500ee42e 3543 pa->name = xstrndup (optarg, s - optarg);
252b5132
RH		 3544 pa->filename = s + 1;
3545
500ee42e
ILT		 3546 /* We don't use get_file_size so that we can do
3547 --add-section .note.GNU_stack=/dev/null
3548 get_file_size doesn't work on /dev/null. */
57938635 3549
500ee42e 3550 f = fopen (pa->filename, FOPEN_RB);
252b5132 3551 if (f == NULL)
84e2f313
NC		 3552 fatal (_("cannot open: %s: %s"),
3553 pa->filename, strerror (errno));
57938635 3554
500ee42e
ILT		 3555 off = 0;
3556 alloc = 4096;
3557 pa->contents = (bfd_byte *) xmalloc (alloc);
3558 while (!feof (f))
3559 {
3560 off_t got;
3561
3562 if (off == alloc)
3563 {
3564 alloc <<= 1;
3565 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
3566 }
3567
3568 got = fread (pa->contents + off, 1, alloc - off, f);
3569 if (ferror (f))
3570 fatal (_("%s: fread failed"), pa->filename);
3571
3572 off += got;
3573 }
3574
3575 pa->size = off;
252b5132
RH		 3576
3577 fclose (f);
3578
3579 pa->next = add_sections;
3580 add_sections = pa;
3581 }
3582 break;
57938635 3583
252b5132
RH		 3584 case OPTION_CHANGE_START:
3585 change_start = parse_vma (optarg, "--change-start");
3586 break;
57938635 3587
252b5132
RH		 3588 case OPTION_CHANGE_SECTION_ADDRESS:
3589 case OPTION_CHANGE_SECTION_LMA:
3590 case OPTION_CHANGE_SECTION_VMA:
3591 {
3592 const char *s;
3593 int len;
3594 char *name;
b4c96d0d 3595 char *option = NULL;
252b5132 3596 bfd_vma val;
b4c96d0d 3597 enum change_action what = CHANGE_IGNORE;
57938635 3598
252b5132
RH		 3599 switch (c)
3600 {
b4c96d0d
ILT		 3601 case OPTION_CHANGE_SECTION_ADDRESS:
3602 option = "--change-section-address";
3603 break;
3604 case OPTION_CHANGE_SECTION_LMA:
3605 option = "--change-section-lma";
3606 break;
3607 case OPTION_CHANGE_SECTION_VMA:
3608 option = "--change-section-vma";
3609 break;
252b5132 3610 }
57938635 3611
252b5132
RH		 3612 s = strchr (optarg, '=');
3613 if (s == NULL)
3614 {
3615 s = strchr (optarg, '+');
3616 if (s == NULL)
3617 {
3618 s = strchr (optarg, '-');
3619 if (s == NULL)
3620 fatal (_("bad format for %s"), option);
3621 }
3622 }
3623
3624 len = s - optarg;
3f5e193b 3625 name = (char *) xmalloc (len + 1);
252b5132
RH		 3626 strncpy (name, optarg, len);
3627 name[len] = '\0';
3628
b34976b6 3629 p = find_section_list (name, TRUE);
252b5132
RH		 3630
3631 val = parse_vma (s + 1, option);
3632
3633 switch (*s)
3634 {
3635 case '=': what = CHANGE_SET; break;
3636 case '-': val = - val; /* Drop through. */
3637 case '+': what = CHANGE_MODIFY; break;
3638 }
57938635 3639
252b5132
RH		 3640 switch (c)
3641 {
3642 case OPTION_CHANGE_SECTION_ADDRESS:
3643 p->change_vma = what;
3644 p->vma_val = val;
3645 /* Drop through. */
57938635 3646
252b5132
RH		 3647 case OPTION_CHANGE_SECTION_LMA:
3648 p->change_lma = what;
3649 p->lma_val = val;
3650 break;
57938635 3651
252b5132
RH		 3652 case OPTION_CHANGE_SECTION_VMA:
3653 p->change_vma = what;
3654 p->vma_val = val;
3655 break;
3656 }
3657 }
3658 break;
57938635 3659
252b5132
RH		 3660 case OPTION_CHANGE_ADDRESSES:
3661 change_section_address = parse_vma (optarg, "--change-addresses");
3662 change_start = change_section_address;
3663 break;
57938635 3664
252b5132 3665 case OPTION_CHANGE_WARNINGS:
b34976b6 3666 change_warn = TRUE;
252b5132 3667 break;
57938635 3668
252b5132 3669 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 3670 change_leading_char = TRUE;
252b5132 3671 break;
57938635 3672
4a114e3e
L		 3673 case OPTION_COMPRESS_DEBUG_SECTIONS:
3674 do_debug_sections = compress;
3675 break;
3676
252b5132 3677 case OPTION_DEBUGGING:
b34976b6 3678 convert_debugging = TRUE;
252b5132 3679 break;
57938635 3680
4a114e3e
L		 3681 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
3682 do_debug_sections = decompress;
3683 break;
3684
252b5132
RH		 3685 case OPTION_GAP_FILL:
3686 {
3687 bfd_vma gap_fill_vma;
3688
3689 gap_fill_vma = parse_vma (optarg, "--gap-fill");
3690 gap_fill = (bfd_byte) gap_fill_vma;
3691 if ((bfd_vma) gap_fill != gap_fill_vma)
3692 {
3693 char buff[20];
57938635 3694
252b5132 3695 sprintf_vma (buff, gap_fill_vma);
57938635 3696
252b5132
RH		 3697 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
3698 buff, gap_fill);
3699 }
b34976b6 3700 gap_fill_set = TRUE;
252b5132
RH		 3701 }
3702 break;
57938635 3703
252b5132 3704 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 3705 change_warn = FALSE;
252b5132 3706 break;
57938635 3707
252b5132
RH		 3708 case OPTION_PAD_TO:
3709 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 3710 pad_to_set = TRUE;
252b5132 3711 break;
57938635 3712
252b5132 3713 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 3714 remove_leading_char = TRUE;
252b5132 3715 break;
57938635
AM		 3716
3717 case OPTION_REDEFINE_SYM:
3718 {
3719 /* Push this redefinition onto redefine_symbol_list. */
3720
3721 int len;
3722 const char *s;
3723 const char *nextarg;
3724 char *source, *target;
3725
3726 s = strchr (optarg, '=');
3727 if (s == NULL)
594ef5db 3728 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 3729
3730 len = s - optarg;
3f5e193b 3731 source = (char *) xmalloc (len + 1);
57938635
AM		 3732 strncpy (source, optarg, len);
3733 source[len] = '\0';
3734
3735 nextarg = s + 1;
3736 len = strlen (nextarg);
3f5e193b 3737 target = (char *) xmalloc (len + 1);
57938635
AM		 3738 strcpy (target, nextarg);
3739
92991082 3740 redefine_list_append ("--redefine-sym", source, target);
57938635
AM		 3741
3742 free (source);
3743 free (target);
3744 }
3745 break;
3746
92991082
JT		 3747 case OPTION_REDEFINE_SYMS:
3748 add_redefine_syms_file (optarg);
3749 break;
3750
252b5132
RH		 3751 case OPTION_SET_SECTION_FLAGS:
3752 {
3753 const char *s;
3754 int len;
3755 char *name;
3756
3757 s = strchr (optarg, '=');
3758 if (s == NULL)
57938635 3759 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 3760
3761 len = s - optarg;
3f5e193b 3762 name = (char *) xmalloc (len + 1);
252b5132
RH		 3763 strncpy (name, optarg, len);
3764 name[len] = '\0';
3765
b34976b6 3766 p = find_section_list (name, TRUE);
252b5132 3767
b34976b6 3768 p->set_flags = TRUE;
252b5132
RH		 3769 p->flags = parse_flags (s + 1);
3770 }
3771 break;
57938635 3772
594ef5db
NC		 3773 case OPTION_RENAME_SECTION:
3774 {
3775 flagword flags;
3bcfb3e4
AM		 3776 const char *eq, *fl;
3777 char *old_name;
3778 char *new_name;
594ef5db
NC		 3779 unsigned int len;
3780
3bcfb3e4
AM		 3781 eq = strchr (optarg, '=');
3782 if (eq == NULL)
594ef5db
NC		 3783 fatal (_("bad format for %s"), "--rename-section");
3784
3bcfb3e4 3785 len = eq - optarg;
594ef5db 3786 if (len == 0)
3bcfb3e4 3787 fatal (_("bad format for %s"), "--rename-section");
594ef5db 3788
3f5e193b 3789 old_name = (char *) xmalloc (len + 1);
594ef5db
NC		 3790 strncpy (old_name, optarg, len);
3791 old_name[len] = 0;
3792
3bcfb3e4
AM		 3793 eq++;
3794 fl = strchr (eq, ',');
3795 if (fl)
594ef5db 3796 {
3bcfb3e4
AM		 3797 flags = parse_flags (fl + 1);
3798 len = fl - eq;
594ef5db
NC		 3799 }
3800 else
3801 {
594ef5db 3802 flags = -1;
3bcfb3e4 3803 len = strlen (eq);
594ef5db
NC		 3804 }
3805
3bcfb3e4
AM		 3806 if (len == 0)
3807 fatal (_("bad format for %s"), "--rename-section");
3808
3f5e193b 3809 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM		 3810 strncpy (new_name, eq, len);
3811 new_name[len] = 0;
3812
594ef5db
NC		 3813 add_section_rename (old_name, new_name, flags);
3814 }
3815 break;
3816
252b5132
RH		 3817 case OPTION_SET_START:
3818 set_start = parse_vma (optarg, "--set-start");
b34976b6 3819 set_start_set = TRUE;
252b5132 3820 break;
57938635 3821
0af11b59
KH		 3822 case OPTION_SREC_LEN:
3823 Chunk = parse_vma (optarg, "--srec-len");
3824 break;
420496c1 3825
0af11b59 3826 case OPTION_SREC_FORCES3:
b34976b6 3827 S3Forced = TRUE;
0af11b59 3828 break;
420496c1 3829
16b2b71c 3830 case OPTION_STRIP_SYMBOLS:
047c9024 3831 add_specific_symbols (optarg, strip_specific_htab);
16b2b71c
NC		 3832 break;
3833
bcf32829 3834 case OPTION_STRIP_UNNEEDED_SYMBOLS:
047c9024 3835 add_specific_symbols (optarg, strip_unneeded_htab);
bcf32829
JB		 3836 break;
3837
16b2b71c 3838 case OPTION_KEEP_SYMBOLS:
047c9024 3839 add_specific_symbols (optarg, keep_specific_htab);
16b2b71c
NC		 3840 break;
3841
d58c2e3a
RS		 3842 case OPTION_LOCALIZE_HIDDEN:
3843 localize_hidden = TRUE;
3844 break;
3845
16b2b71c 3846 case OPTION_LOCALIZE_SYMBOLS:
047c9024 3847 add_specific_symbols (optarg, localize_specific_htab);
16b2b71c
NC		 3848 break;
3849
0408dee6
DK		 3850 case OPTION_LONG_SECTION_NAMES:
3851 if (!strcmp ("enable", optarg))
3852 long_section_names = ENABLE;
3853 else if (!strcmp ("disable", optarg))
3854 long_section_names = DISABLE;
3855 else if (!strcmp ("keep", optarg))
3856 long_section_names = KEEP;
3857 else
3858 fatal (_("unknown long section names option '%s'"), optarg);
3859 break;
3860
7b4a0685 3861 case OPTION_GLOBALIZE_SYMBOLS:
047c9024 3862 add_specific_symbols (optarg, globalize_specific_htab);
7b4a0685
NC		 3863 break;
3864
16b2b71c 3865 case OPTION_KEEPGLOBAL_SYMBOLS:
047c9024 3866 add_specific_symbols (optarg, keepglobal_specific_htab);
16b2b71c
NC		 3867 break;
3868
3869 case OPTION_WEAKEN_SYMBOLS:
047c9024 3870 add_specific_symbols (optarg, weaken_specific_htab);
16b2b71c
NC		 3871 break;
3872
1ae8b3d2 3873 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 3874 use_alt_mach_code = strtoul (optarg, NULL, 0);
3875 if (use_alt_mach_code == 0)
3876 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 3877 break;
3878
d7fb0dd2
NC		 3879 case OPTION_PREFIX_SYMBOLS:
3880 prefix_symbols_string = optarg;
3881 break;
3882
3883 case OPTION_PREFIX_SECTIONS:
3884 prefix_sections_string = optarg;
3885 break;
3886
3887 case OPTION_PREFIX_ALLOC_SECTIONS:
3888 prefix_alloc_sections_string = optarg;
3889 break;
3890
4087920c
MR		 3891 case OPTION_READONLY_TEXT:
3892 bfd_flags_to_set |= WP_TEXT;
3893 bfd_flags_to_clear &= ~WP_TEXT;
3894 break;
3895
3896 case OPTION_WRITABLE_TEXT:
3897 bfd_flags_to_clear |= WP_TEXT;
3898 bfd_flags_to_set &= ~WP_TEXT;
3899 break;
3900
3901 case OPTION_PURE:
3902 bfd_flags_to_set |= D_PAGED;
3903 bfd_flags_to_clear &= ~D_PAGED;
3904 break;
3905
3906 case OPTION_IMPURE:
3907 bfd_flags_to_clear |= D_PAGED;
3908 bfd_flags_to_set &= ~D_PAGED;
3909 break;
3910
96109726
CC		 3911 case OPTION_EXTRACT_DWO:
3912 strip_symbols = STRIP_NONDWO;
3913 break;
3914
d3e52d40
RS		 3915 case OPTION_EXTRACT_SYMBOL:
3916 extract_symbol = TRUE;
3917 break;
3918
9e48b4c6
NC		 3919 case OPTION_REVERSE_BYTES:
3920 {
3921 int prev = reverse_bytes;
3922
3923 reverse_bytes = atoi (optarg);
3924 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
3925 fatal (_("number of bytes to reverse must be positive and even"));
3926
3927 if (prev && prev != reverse_bytes)
3928 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
3929 prev);
3930 break;
3931 }
3932
92dd4511
L		 3933 case OPTION_FILE_ALIGNMENT:
3934 pe_file_alignment = parse_vma (optarg, "--file-alignment");
3935 break;
955d0b3b 3936
92dd4511
L		 3937 case OPTION_HEAP:
3938 {
3939 char *end;
3940 pe_heap_reserve = strtoul (optarg, &end, 0);
3941 if (end == optarg
3942 || (*end != '.' && *end != '\0'))
3943 non_fatal (_("%s: invalid reserve value for --heap"),
3944 optarg);
3945 else if (*end != '\0')
3946 {
3947 pe_heap_commit = strtoul (end + 1, &end, 0);
3948 if (*end != '\0')
3949 non_fatal (_("%s: invalid commit value for --heap"),
3950 optarg);
3951 }
3952 }
3953 break;
955d0b3b 3954
92dd4511
L		 3955 case OPTION_IMAGE_BASE:
3956 pe_image_base = parse_vma (optarg, "--image-base");
3957 break;
955d0b3b 3958
92dd4511
L		 3959 case OPTION_SECTION_ALIGNMENT:
3960 pe_section_alignment = parse_vma (optarg,
3961 "--section-alignment");
3962 break;
955d0b3b 3963
92dd4511
L		 3964 case OPTION_SUBSYSTEM:
3965 set_pe_subsystem (optarg);
3966 break;
955d0b3b 3967
92dd4511
L		 3968 case OPTION_STACK:
3969 {
3970 char *end;
3971 pe_stack_reserve = strtoul (optarg, &end, 0);
3972 if (end == optarg
3973 || (*end != '.' && *end != '\0'))
3974 non_fatal (_("%s: invalid reserve value for --stack"),
3975 optarg);
3976 else if (*end != '\0')
3977 {
3978 pe_stack_commit = strtoul (end + 1, &end, 0);
3979 if (*end != '\0')
3980 non_fatal (_("%s: invalid commit value for --stack"),
3981 optarg);
3982 }
3983 }
3984 break;
955d0b3b 3985
252b5132 3986 case 0:
2593f09a
NC		 3987 /* We've been given a long option. */
3988 break;
57938635 3989
8b53311e 3990 case 'H':
252b5132
RH		 3991 case 'h':
3992 copy_usage (stdout, 0);
57938635 3993
252b5132
RH		 3994 default:
3995 copy_usage (stderr, 1);
3996 }
3997 }
3998
7c29036b
NC		 3999 if (formats_info)
4000 {
4001 display_info ();
4002 return 0;
4003 }
c1c0eb9e 4004
252b5132
RH		 4005 if (show_version)
4006 print_version ("objcopy");
4007
b7dd81f7
NC		 4008 if (interleave && copy_byte == -1)
4009 fatal (_("interleave start byte must be set with --byte"));
4010
252b5132
RH		 4011 if (copy_byte >= interleave)
4012 fatal (_("byte number must be less than interleave"));
4013
b7dd81f7
NC		 4014 if (copy_width > interleave - copy_byte)
4015 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4016
252b5132
RH		 4017 if (optind == argc || optind + 2 < argc)
4018 copy_usage (stderr, 1);
4019
4020 input_filename = argv[optind];
4021 if (optind + 1 < argc)
4022 output_filename = argv[optind + 1];
4023
955d0b3b
RM		 4024 default_deterministic ();
4025
252b5132
RH		 4026 /* Default is to strip no symbols. */
4027 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
4028 strip_symbols = STRIP_NONE;
4029
d3ba0551 4030 if (output_target == NULL)
252b5132
RH		 4031 output_target = input_target;
4032
92dd4511
L		 4033 /* Convert input EFI target to PEI target. */
4034 if (input_target != NULL
4035 && strncmp (input_target, "efi-", 4) == 0)
4036 {
4037 char *efi;
4038
4039 efi = xstrdup (output_target + 4);
4040 if (strncmp (efi, "bsdrv-", 6) == 0
4041 || strncmp (efi, "rtdrv-", 6) == 0)
4042 efi += 2;
4043 else if (strncmp (efi, "app-", 4) != 0)
4044 fatal (_("unknown input EFI target: %s"), input_target);
4045
4046 input_target = efi;
4047 convert_efi_target (efi);
4048 }
4049
4050 /* Convert output EFI target to PEI target. */
4051 if (output_target != NULL
4052 && strncmp (output_target, "efi-", 4) == 0)
4053 {
4054 char *efi;
4055
4056 efi = xstrdup (output_target + 4);
4057 if (strncmp (efi, "app-", 4) == 0)
4058 {
4059 if (pe_subsystem == -1)
4060 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
4061 }
4062 else if (strncmp (efi, "bsdrv-", 6) == 0)
4063 {
4064 if (pe_subsystem == -1)
4065 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
4066 efi += 2;
4067 }
4068 else if (strncmp (efi, "rtdrv-", 6) == 0)
4069 {
4070 if (pe_subsystem == -1)
4071 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
4072 efi += 2;
4073 }
4074 else
4075 fatal (_("unknown output EFI target: %s"), output_target);
4076
4077 if (pe_file_alignment == (bfd_vma) -1)
4078 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4079 if (pe_section_alignment == (bfd_vma) -1)
4080 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4081
4082 output_target = efi;
4083 convert_efi_target (efi);
4084 }
4085
43a0748c
NC		 4086 if (preserve_dates)
4087 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 4088 fatal (_("warning: could not locate '%s'. System error message: %s"),
4089 input_filename, strerror (errno));
43a0748c 4090
0fcdcb91 4091 /* If there is no destination file, or the source and destination files
d3ba0551 4092 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT		 4093 if (output_filename == NULL
4094 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 4095 tmpname = make_tempname (input_filename);
252b5132 4096 else
12f498a7 4097 tmpname = output_filename;
c1c0eb9e 4098
12f498a7
NS		 4099 if (tmpname == NULL)
4100 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4101 input_filename, strerror (errno));
594ef5db 4102
8b31b6c4 4103 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS		 4104 if (status == 0)
4105 {
4106 if (preserve_dates)
4107 set_times (tmpname, &statbuf);
4108 if (tmpname != output_filename)
92fac5ec
L		 4109 status = (smart_rename (tmpname, input_filename,
4110 preserve_dates) != 0);
252b5132 4111 }
12f498a7
NS		 4112 else
4113 unlink_if_ordinary (tmpname);
252b5132
RH		 4114
4115 if (change_warn)
4116 {
4117 for (p = change_sections; p != NULL; p = p->next)
4118 {
4119 if (! p->used)
4120 {
4121 if (p->change_vma != CHANGE_IGNORE)
4122 {
4123 char buff [20];
4124
4125 sprintf_vma (buff, p->vma_val);
57938635 4126
252b5132 4127 /* xgettext:c-format */
57938635
AM		 4128 non_fatal (_("%s %s%c0x%s never used"),
4129 "--change-section-vma",
252b5132
RH		 4130 p->name,
4131 p->change_vma == CHANGE_SET ? '=' : '+',
4132 buff);
4133 }
57938635 4134
252b5132
RH		 4135 if (p->change_lma != CHANGE_IGNORE)
4136 {
4137 char buff [20];
4138
4139 sprintf_vma (buff, p->lma_val);
57938635 4140
252b5132 4141 /* xgettext:c-format */
57938635
AM		 4142 non_fatal (_("%s %s%c0x%s never used"),
4143 "--change-section-lma",
252b5132
RH		 4144 p->name,
4145 p->change_lma == CHANGE_SET ? '=' : '+',
4146 buff);
4147 }
4148 }
4149 }
4150 }
4151
4152 return 0;
4153}
4154
4155int
84e2f313 4156main (int argc, char *argv[])
252b5132
RH		 4157{
4158#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4159 setlocale (LC_MESSAGES, "");
3882b010
L		 4160#endif
4161#if defined (HAVE_SETLOCALE)
4162 setlocale (LC_CTYPE, "");
252b5132
RH		 4163#endif
4164 bindtextdomain (PACKAGE, LOCALEDIR);
4165 textdomain (PACKAGE);
4166
4167 program_name = argv[0];
4168 xmalloc_set_program_name (program_name);
4169
4170 START_PROGRESS (program_name, 0);
4171
869b9d07
MM		 4172 expandargv (&argc, &argv);
4173
252b5132
RH		 4174 strip_symbols = STRIP_UNDEF;
4175 discard_locals = LOCALS_UNDEF;
4176
4177 bfd_init ();
4178 set_default_bfd_target ();
4179
4180 if (is_strip < 0)
4181 {
4182 int i = strlen (program_name);
5af11cab
AM		 4183#ifdef HAVE_DOS_BASED_FILE_SYSTEM
4184 /* Drop the .exe suffix, if any. */
4185 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
4186 {
4187 i -= 4;
4188 program_name[i] = '\0';
4189 }
4190#endif
4191 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 4192 }
4193
047c9024
NC		 4194 create_symbol_htabs ();
4195
252b5132
RH		 4196 if (is_strip)
4197 strip_main (argc, argv);
4198 else
4199 copy_main (argc, argv);
4200
4201 END_PROGRESS (program_name);
4202
4203 return status;
4204}
A mirror of the official binutils-gdb repository