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