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