Avoid using 'template' C++ keyword
[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
d3e52d40
RS
2308 /* Do not copy backend data if --extract-symbol is passed; anything
2309 that needs to look at the section contents will fail. */
2310 if (extract_symbol)
2311 return TRUE;
2312
252b5132
RH
2313 /* Allow the BFD backend to copy any private data it understands
2314 from the input BFD to the output BFD. This is done last to
2315 permit the routine to look at the filtered symbol table, which is
2316 important for the ECOFF code at least. */
42bb2e33 2317 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132 2318 {
2db6cde7
NS
2319 bfd_nonfatal_message (NULL, obfd, NULL,
2320 _("error copying private BFD data"));
950d48e7 2321 return FALSE;
252b5132 2322 }
1ae8b3d2
AO
2323
2324 /* Switch to the alternate machine code. We have to do this at the
2325 very end, because we only initialize the header when we create
2326 the first section. */
f9d4ad2a
NC
2327 if (use_alt_mach_code != 0)
2328 {
2329 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
2330 {
2331 non_fatal (_("this target does not support %lu alternative machine codes"),
2332 use_alt_mach_code);
2333 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2334 {
2335 non_fatal (_("treating that number as an absolute e_machine value instead"));
2336 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
2337 }
2338 else
2339 non_fatal (_("ignoring the alternative value"));
2340 }
2341 }
950d48e7
NC
2342
2343 return TRUE;
252b5132
RH
2344}
2345
2346/* Read each archive element in turn from IBFD, copy the
ee873e00
NC
2347 contents to temp file, and keep the temp file handle.
2348 If 'force_output_target' is TRUE then make sure that
2349 all elements in the new archive are of the type
2350 'output_target'. */
252b5132
RH
2351
2352static void
ee873e00 2353copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
8b31b6c4
NC
2354 bfd_boolean force_output_target,
2355 const bfd_arch_info_type *input_arch)
252b5132
RH
2356{
2357 struct name_list
2358 {
2359 struct name_list *next;
4c168fa3 2360 const char *name;
252b5132
RH
2361 bfd *obfd;
2362 } *list, *l;
2363 bfd **ptr = &obfd->archive_head;
2364 bfd *this_element;
8d8e0703
AM
2365 char *dir;
2366 const char *filename;
252b5132
RH
2367
2368 /* Make a temp directory to hold the contents. */
f9c026a8 2369 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8
NC
2370 if (dir == NULL)
2371 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2372 strerror (errno));
84e2f313 2373
2e30cb57
CC
2374 if (strip_symbols == STRIP_ALL)
2375 obfd->has_armap = FALSE;
2376 else
2377 obfd->has_armap = ibfd->has_armap;
a8da6403 2378 obfd->is_thin_archive = ibfd->is_thin_archive;
252b5132 2379
2e30cb57
CC
2380 if (deterministic)
2381 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
2382
252b5132
RH
2383 list = NULL;
2384
2385 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 2386
b667df2e 2387 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
8d8e0703
AM
2388 {
2389 status = 1;
2390 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
cfad8730 2391 goto cleanup_and_exit;
8d8e0703 2392 }
b667df2e 2393
d3ba0551 2394 while (!status && this_element != NULL)
252b5132 2395 {
4c168fa3
AM
2396 char *output_name;
2397 bfd *output_bfd;
252b5132 2398 bfd *last_element;
8066d1a2
AS
2399 struct stat buf;
2400 int stat_status = 0;
3f5e193b 2401 bfd_boolean del = TRUE;
19094d10 2402 bfd_boolean ok_object;
8066d1a2 2403
dd9b91de
NC
2404 /* PR binutils/17533: Do not allow directory traversal
2405 outside of the current directory tree by archive members. */
2406 if (! is_valid_archive_path (bfd_get_filename (this_element)))
5e186ece
NC
2407 {
2408 non_fatal (_("illegal pathname found in archive member: %s"),
2409 bfd_get_filename (this_element));
2410 status = 1;
2411 goto cleanup_and_exit;
2412 }
dd9b91de 2413
4c168fa3
AM
2414 /* Create an output file for this member. */
2415 output_name = concat (dir, "/",
2416 bfd_get_filename (this_element), (char *) 0);
2417
2418 /* If the file already exists, make another temp dir. */
2419 if (stat (output_name, &buf) >= 0)
2420 {
f9c026a8
NC
2421 output_name = make_tempdir (output_name);
2422 if (output_name == NULL)
5e186ece
NC
2423 {
2424 non_fatal (_("cannot create tempdir for archive copying (error: %s)"),
2425 strerror (errno));
2426 status = 1;
2427 goto cleanup_and_exit;
2428 }
84e2f313 2429
3f5e193b 2430 l = (struct name_list *) xmalloc (sizeof (struct name_list));
4c168fa3
AM
2431 l->name = output_name;
2432 l->next = list;
2433 l->obfd = NULL;
2434 list = l;
2435 output_name = concat (output_name, "/",
2436 bfd_get_filename (this_element), (char *) 0);
2437 }
2438
8066d1a2
AS
2439 if (preserve_dates)
2440 {
2441 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 2442
8066d1a2
AS
2443 if (stat_status != 0)
2444 non_fatal (_("internal stat error on %s"),
2445 bfd_get_filename (this_element));
2446 }
252b5132 2447
3f5e193b 2448 l = (struct name_list *) xmalloc (sizeof (struct name_list));
252b5132
RH
2449 l->name = output_name;
2450 l->next = list;
bee59fd2 2451 l->obfd = NULL;
252b5132
RH
2452 list = l;
2453
19094d10
AM
2454 ok_object = bfd_check_format (this_element, bfd_object);
2455 if (!ok_object)
2456 bfd_nonfatal_message (NULL, this_element, NULL,
2457 _("Unable to recognise the format of file"));
2458
2459 /* PR binutils/3110: Cope with archives
2460 containing multiple target types. */
2461 if (force_output_target || !ok_object)
2462 output_bfd = bfd_openw (output_name, output_target);
2463 else
2464 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
2465
2466 if (output_bfd == NULL)
77f762d6 2467 {
19094d10
AM
2468 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
2469 status = 1;
5e186ece 2470 goto cleanup_and_exit;
19094d10
AM
2471 }
2472
2473 if (ok_object)
2474 {
2475 del = !copy_object (this_element, output_bfd, input_arch);
ee873e00 2476
19094d10
AM
2477 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
2478 /* Try again as an unknown object file. */
2479 ok_object = FALSE;
2480 else if (!bfd_close (output_bfd))
2db6cde7
NS
2481 {
2482 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
19094d10 2483 /* Error in new object file. Don't change archive. */
2db6cde7 2484 status = 1;
77f762d6 2485 }
77f762d6 2486 }
77f762d6 2487
19094d10
AM
2488 if (!ok_object)
2489 {
3f5e193b 2490 del = !copy_unknown_object (this_element, output_bfd);
77f762d6
L
2491 if (!bfd_close_all_done (output_bfd))
2492 {
8d8e0703 2493 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
77f762d6
L
2494 /* Error in new object file. Don't change archive. */
2495 status = 1;
2496 }
252b5132
RH
2497 }
2498
3f5e193b 2499 if (del)
950d48e7
NC
2500 {
2501 unlink (output_name);
2502 status = 1;
2503 }
2504 else
2505 {
2506 if (preserve_dates && stat_status == 0)
2507 set_times (output_name, &buf);
8066d1a2 2508
950d48e7
NC
2509 /* Open the newly output file and attach to our list. */
2510 output_bfd = bfd_openr (output_name, output_target);
252b5132 2511
950d48e7 2512 l->obfd = output_bfd;
252b5132 2513
950d48e7 2514 *ptr = output_bfd;
cc481421 2515 ptr = &output_bfd->archive_next;
252b5132 2516
950d48e7 2517 last_element = this_element;
252b5132 2518
950d48e7 2519 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 2520
950d48e7
NC
2521 bfd_close (last_element);
2522 }
252b5132 2523 }
d3ba0551 2524 *ptr = NULL;
252b5132 2525
8d8e0703 2526 filename = bfd_get_filename (obfd);
252b5132 2527 if (!bfd_close (obfd))
8d8e0703
AM
2528 {
2529 status = 1;
2530 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 2531 }
252b5132 2532
8d8e0703 2533 filename = bfd_get_filename (ibfd);
252b5132 2534 if (!bfd_close (ibfd))
8d8e0703
AM
2535 {
2536 status = 1;
2537 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 2538 }
252b5132 2539
5e186ece 2540 cleanup_and_exit:
252b5132
RH
2541 /* Delete all the files that we opened. */
2542 for (l = list; l != NULL; l = l->next)
2543 {
4c168fa3
AM
2544 if (l->obfd == NULL)
2545 rmdir (l->name);
2546 else
2547 {
2548 bfd_close (l->obfd);
2549 unlink (l->name);
2550 }
252b5132 2551 }
cfad8730 2552
252b5132
RH
2553 rmdir (dir);
2554}
2555
0408dee6
DK
2556static void
2557set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
2558{
2559 /* This is only relevant to Coff targets. */
2560 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
2561 {
78e82dc3
AM
2562 if (style == KEEP
2563 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
0408dee6
DK
2564 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
2565 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
2566 }
2567}
2568
252b5132
RH
2569/* The top-level control. */
2570
2571static void
84e2f313 2572copy_file (const char *input_filename, const char *output_filename,
8b31b6c4
NC
2573 const char *input_target, const char *output_target,
2574 const bfd_arch_info_type *input_arch)
252b5132
RH
2575{
2576 bfd *ibfd;
49c12576
AM
2577 char **obj_matching;
2578 char **core_matching;
52a476ee 2579 off_t size = get_file_size (input_filename);
252b5132 2580
52a476ee 2581 if (size < 1)
f24ddbdd 2582 {
52a476ee
L
2583 if (size == 0)
2584 non_fatal (_("error: the input file '%s' is empty"),
2585 input_filename);
f24ddbdd
NC
2586 status = 1;
2587 return;
2588 }
2589
252b5132
RH
2590 /* To allow us to do "strip *" without dying on the first
2591 non-object file, failures are nonfatal. */
252b5132
RH
2592 ibfd = bfd_openr (input_filename, input_target);
2593 if (ibfd == NULL)
2db6cde7
NS
2594 {
2595 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2596 status = 1;
2597 return;
2598 }
252b5132 2599
4a114e3e
L
2600 switch (do_debug_sections)
2601 {
2602 case compress:
151411f8
L
2603 case compress_zlib:
2604 case compress_gnu_zlib:
2605 case compress_gabi_zlib:
4a114e3e 2606 ibfd->flags |= BFD_COMPRESS;
cd6faa73
L
2607 /* Don't check if input is ELF here since this information is
2608 only available after bfd_check_format_matches is called. */
19a7fe52 2609 if (do_debug_sections != compress_gnu_zlib)
cd6faa73 2610 ibfd->flags |= BFD_COMPRESS_GABI;
4a114e3e
L
2611 break;
2612 case decompress:
2613 ibfd->flags |= BFD_DECOMPRESS;
2614 break;
2615 default:
2616 break;
2617 }
2618
252b5132
RH
2619 if (bfd_check_format (ibfd, bfd_archive))
2620 {
ee873e00 2621 bfd_boolean force_output_target;
252b5132
RH
2622 bfd *obfd;
2623
2624 /* bfd_get_target does not return the correct value until
2625 bfd_check_format succeeds. */
2626 if (output_target == NULL)
ee873e00
NC
2627 {
2628 output_target = bfd_get_target (ibfd);
2629 force_output_target = FALSE;
2630 }
2631 else
2632 force_output_target = TRUE;
252b5132
RH
2633
2634 obfd = bfd_openw (output_filename, output_target);
2635 if (obfd == NULL)
2db6cde7
NS
2636 {
2637 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2638 status = 1;
2639 return;
2640 }
0408dee6
DK
2641 /* This is a no-op on non-Coff targets. */
2642 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2643
8b31b6c4 2644 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
252b5132 2645 }
49c12576 2646 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH
2647 {
2648 bfd *obfd;
49c12576 2649 do_copy:
950d48e7 2650
252b5132
RH
2651 /* bfd_get_target does not return the correct value until
2652 bfd_check_format succeeds. */
2653 if (output_target == NULL)
2654 output_target = bfd_get_target (ibfd);
2655
2656 obfd = bfd_openw (output_filename, output_target);
2657 if (obfd == NULL)
2db6cde7
NS
2658 {
2659 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2660 status = 1;
2661 return;
2662 }
0408dee6
DK
2663 /* This is a no-op on non-Coff targets. */
2664 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2665
8b31b6c4 2666 if (! copy_object (ibfd, obfd, input_arch))
a580b8e0 2667 status = 1;
252b5132 2668
063bb025
NC
2669 /* PR 17512: file: 0f15796a.
2670 If the file could not be copied it may not be in a writeable
2671 state. So use bfd_close_all_done to avoid the possibility of
2672 writing uninitialised data into the file. */
2673 if (! (status ? bfd_close_all_done (obfd) : bfd_close (obfd)))
8d8e0703
AM
2674 {
2675 status = 1;
2676 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2677 return;
2678 }
252b5132
RH
2679
2680 if (!bfd_close (ibfd))
8d8e0703
AM
2681 {
2682 status = 1;
2683 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2684 return;
2685 }
252b5132
RH
2686 }
2687 else
2688 {
49c12576
AM
2689 bfd_error_type obj_error = bfd_get_error ();
2690 bfd_error_type core_error;
b34976b6 2691
49c12576
AM
2692 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
2693 {
2694 /* This probably can't happen.. */
2695 if (obj_error == bfd_error_file_ambiguously_recognized)
2696 free (obj_matching);
2697 goto do_copy;
2698 }
2699
2700 core_error = bfd_get_error ();
2701 /* Report the object error in preference to the core error. */
2702 if (obj_error != core_error)
2703 bfd_set_error (obj_error);
2704
2db6cde7 2705 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
57938635 2706
49c12576
AM
2707 if (obj_error == bfd_error_file_ambiguously_recognized)
2708 {
2709 list_matching_formats (obj_matching);
2710 free (obj_matching);
2711 }
2712 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 2713 {
49c12576
AM
2714 list_matching_formats (core_matching);
2715 free (core_matching);
252b5132 2716 }
57938635 2717
252b5132
RH
2718 status = 1;
2719 }
2720}
2721
594ef5db
NC
2722/* Add a name to the section renaming list. */
2723
2724static void
84e2f313
NC
2725add_section_rename (const char * old_name, const char * new_name,
2726 flagword flags)
594ef5db 2727{
91d6fa6a 2728 section_rename * srename;
594ef5db
NC
2729
2730 /* Check for conflicts first. */
91d6fa6a
NC
2731 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2732 if (strcmp (srename->old_name, old_name) == 0)
594ef5db
NC
2733 {
2734 /* Silently ignore duplicate definitions. */
91d6fa6a
NC
2735 if (strcmp (srename->new_name, new_name) == 0
2736 && srename->flags == flags)
594ef5db 2737 return;
0af11b59 2738
594ef5db
NC
2739 fatal (_("Multiple renames of section %s"), old_name);
2740 }
2741
91d6fa6a 2742 srename = (section_rename *) xmalloc (sizeof (* srename));
594ef5db 2743
91d6fa6a
NC
2744 srename->old_name = old_name;
2745 srename->new_name = new_name;
2746 srename->flags = flags;
2747 srename->next = section_rename_list;
0af11b59 2748
91d6fa6a 2749 section_rename_list = srename;
594ef5db
NC
2750}
2751
2752/* Check the section rename list for a new name of the input section
2753 ISECTION. Return the new name if one is found.
2754 Also set RETURNED_FLAGS to the flags to be used for this section. */
2755
2756static const char *
84e2f313
NC
2757find_section_rename (bfd * ibfd ATTRIBUTE_UNUSED, sec_ptr isection,
2758 flagword * returned_flags)
594ef5db
NC
2759{
2760 const char * old_name = bfd_section_name (ibfd, isection);
91d6fa6a 2761 section_rename * srename;
594ef5db
NC
2762
2763 /* Default to using the flags of the input section. */
2764 * returned_flags = bfd_get_section_flags (ibfd, isection);
2765
91d6fa6a
NC
2766 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2767 if (strcmp (srename->old_name, old_name) == 0)
594ef5db 2768 {
91d6fa6a
NC
2769 if (srename->flags != (flagword) -1)
2770 * returned_flags = srename->flags;
594ef5db 2771
91d6fa6a 2772 return srename->new_name;
594ef5db
NC
2773 }
2774
2775 return old_name;
2776}
2777
80fccad2
BW
2778/* Once each of the sections is copied, we may still need to do some
2779 finalization work for private section headers. Do that here. */
2780
2781static void
2782setup_bfd_headers (bfd *ibfd, bfd *obfd)
2783{
80fccad2
BW
2784 /* Allow the BFD backend to copy any private data it understands
2785 from the input section to the output section. */
2786 if (! bfd_copy_private_header_data (ibfd, obfd))
2787 {
2db6cde7
NS
2788 status = 1;
2789 bfd_nonfatal_message (NULL, ibfd, NULL,
8d8e0703 2790 _("error in private header data"));
2db6cde7 2791 return;
80fccad2
BW
2792 }
2793
2794 /* All went well. */
2795 return;
80fccad2
BW
2796}
2797
594ef5db
NC
2798/* Create a section in OBFD with the same
2799 name and attributes as ISECTION in IBFD. */
252b5132
RH
2800
2801static void
84e2f313 2802setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 2803{
3f5e193b 2804 bfd *obfd = (bfd *) obfdarg;
252b5132
RH
2805 struct section_list *p;
2806 sec_ptr osection;
2807 bfd_size_type size;
2808 bfd_vma vma;
2809 bfd_vma lma;
2810 flagword flags;
1a89cc7d 2811 const char *err;
594ef5db 2812 const char * name;
d7fb0dd2 2813 char *prefix = NULL;
66125551 2814 bfd_boolean make_nobits;
0af11b59 2815
2593f09a 2816 if (is_strip_section (ibfd, isection))
252b5132
RH
2817 return;
2818
594ef5db
NC
2819 /* Get the, possibly new, name of the output section. */
2820 name = find_section_rename (ibfd, isection, & flags);
0af11b59 2821
d7fb0dd2 2822 /* Prefix sections. */
84e2f313
NC
2823 if ((prefix_alloc_sections_string)
2824 && (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
d7fb0dd2
NC
2825 prefix = prefix_alloc_sections_string;
2826 else if (prefix_sections_string)
2827 prefix = prefix_sections_string;
2828
2829 if (prefix)
2830 {
2831 char *n;
2832
3f5e193b 2833 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
d7fb0dd2
NC
2834 strcpy (n, prefix);
2835 strcat (n, name);
2836 name = n;
2837 }
66491ebc 2838
66125551 2839 make_nobits = FALSE;
2e62b721
NC
2840
2841 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2842 SECTION_CONTEXT_SET_FLAGS);
2843 if (p != NULL)
551b43fd 2844 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 2845 else if (strip_symbols == STRIP_NONDEBUG
6c67a030 2846 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
6e6e7cfc 2847 && !is_nondebug_keep_contents_section (ibfd, isection))
66125551 2848 {
6c67a030 2849 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM
2850 if (obfd->xvec->flavour == bfd_target_elf_flavour)
2851 {
2852 make_nobits = TRUE;
2853
2854 /* Twiddle the input section flags so that it seems to
2855 elf.c:copy_private_bfd_data that section flags have not
2856 changed between input and output sections. This hack
2857 prevents wholesale rewriting of the program headers. */
6c67a030 2858 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM
2859 }
2860 }
551b43fd
AM
2861
2862 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 2863
252b5132
RH
2864 if (osection == NULL)
2865 {
2db6cde7 2866 err = _("failed to create output section");
252b5132
RH
2867 goto loser;
2868 }
2869
66125551 2870 if (make_nobits)
551b43fd
AM
2871 elf_section_type (osection) = SHT_NOBITS;
2872
252b5132 2873 size = bfd_section_size (ibfd, isection);
88988473 2874 size = bfd_convert_section_size (ibfd, isection, obfd, size);
252b5132 2875 if (copy_byte >= 0)
b7dd81f7 2876 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS
2877 else if (extract_symbol)
2878 size = 0;
252b5132
RH
2879 if (! bfd_set_section_size (obfd, osection, size))
2880 {
2db6cde7 2881 err = _("failed to set size");
252b5132
RH
2882 goto loser;
2883 }
57938635 2884
252b5132 2885 vma = bfd_section_vma (ibfd, isection);
2e62b721
NC
2886 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2887 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
2888 if (p != NULL)
2889 {
2890 if (p->context & SECTION_CONTEXT_SET_VMA)
2891 vma = p->vma_val;
2892 else
2893 vma += p->vma_val;
2894 }
252b5132
RH
2895 else
2896 vma += change_section_address;
57938635 2897
237dcb53 2898 if (! bfd_set_section_vma (obfd, osection, vma))
252b5132 2899 {
2db6cde7 2900 err = _("failed to set vma");
252b5132
RH
2901 goto loser;
2902 }
2903
2904 lma = isection->lma;
2e62b721
NC
2905 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2906 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
2907 if (p != NULL)
252b5132 2908 {
2e62b721 2909 if (p->context & SECTION_CONTEXT_ALTER_LMA)
252b5132 2910 lma += p->lma_val;
252b5132 2911 else
2e62b721 2912 lma = p->lma_val;
252b5132
RH
2913 }
2914 else
2915 lma += change_section_address;
57938635 2916
237dcb53 2917 osection->lma = lma;
252b5132
RH
2918
2919 /* FIXME: This is probably not enough. If we change the LMA we
2920 may have to recompute the header for the file as well. */
b34976b6
AM
2921 if (!bfd_set_section_alignment (obfd,
2922 osection,
2923 bfd_section_alignment (ibfd, isection)))
252b5132 2924 {
2db6cde7 2925 err = _("failed to set alignment");
252b5132
RH
2926 goto loser;
2927 }
2928
bc408b8a
JJ
2929 /* Copy merge entity size. */
2930 osection->entsize = isection->entsize;
2931
f6fe1ccd
L
2932 /* Copy compress status. */
2933 osection->compress_status = isection->compress_status;
2934
252b5132
RH
2935 /* This used to be mangle_section; we do here to avoid using
2936 bfd_get_section_by_name since some formats allow multiple
2937 sections with the same name. */
2938 isection->output_section = osection;
237dcb53 2939 isection->output_offset = 0;
d3e52d40
RS
2940
2941 /* Do not copy backend data if --extract-symbol is passed; anything
2942 that needs to look at the section contents will fail. */
2943 if (extract_symbol)
2944 return;
252b5132 2945
119f4245
AM
2946 if ((isection->flags & SEC_GROUP) != 0)
2947 {
2948 asymbol *gsym = group_signature (isection);
2949
2950 if (gsym != NULL)
2951 {
2952 gsym->flags |= BSF_KEEP;
2953 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
2954 elf_group_id (isection) = gsym;
2955 }
2956 }
2957
252b5132
RH
2958 /* Allow the BFD backend to copy any private data it understands
2959 from the input section to the output section. */
42bb2e33 2960 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 2961 {
2db6cde7 2962 err = _("failed to copy private data");
252b5132
RH
2963 goto loser;
2964 }
2965
594ef5db 2966 /* All went well. */
252b5132
RH
2967 return;
2968
2969loser:
252b5132 2970 status = 1;
2db6cde7 2971 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH
2972}
2973
c3989150 2974/* Return TRUE if input section ISECTION should be skipped. */
252b5132 2975
c3989150
L
2976static bfd_boolean
2977skip_section (bfd *ibfd, sec_ptr isection)
252b5132 2978{
252b5132
RH
2979 sec_ptr osection;
2980 bfd_size_type size;
dc156bc0 2981 flagword flags;
252b5132 2982
594ef5db
NC
2983 /* If we have already failed earlier on,
2984 do not keep on generating complaints now. */
252b5132 2985 if (status != 0)
c3989150
L
2986 return TRUE;
2987
2988 if (extract_symbol)
2989 return TRUE;
57938635 2990
2593f09a 2991 if (is_strip_section (ibfd, isection))
c3989150 2992 return TRUE;
252b5132 2993
acf1419f
AB
2994 if (is_update_section (ibfd, isection))
2995 return TRUE;
2996
2593f09a 2997 flags = bfd_get_section_flags (ibfd, isection);
dc156bc0 2998 if ((flags & SEC_GROUP) != 0)
c3989150 2999 return TRUE;
dc156bc0 3000
252b5132 3001 osection = isection->output_section;
135dfb4a 3002 size = bfd_get_section_size (isection);
252b5132
RH
3003
3004 if (size == 0 || osection == 0)
c3989150 3005 return TRUE;
252b5132 3006
c3989150
L
3007 return FALSE;
3008}
3009
3010/* Copy relocations in input section ISECTION of IBFD to an output
3011 section with the same name in OBFDARG. If stripping then don't
3012 copy any relocation info. */
3013
3014static void
3015copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3016{
3017 bfd *obfd = (bfd *) obfdarg;
3018 long relsize;
3019 arelent **relpp;
3020 long relcount;
3021 sec_ptr osection;
3022
3023 if (skip_section (ibfd, isection))
237dcb53
AM
3024 return;
3025
c3989150 3026 osection = isection->output_section;
2593f09a 3027
96109726
CC
3028 /* Core files and DWO files do not need to be relocated. */
3029 if (bfd_get_format (obfd) == bfd_core || strip_symbols == STRIP_NONDWO)
4dd67f29
MS
3030 relsize = 0;
3031 else
ed570f48
NC
3032 {
3033 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 3034
ed570f48
NC
3035 if (relsize < 0)
3036 {
3037 /* Do not complain if the target does not support relocations. */
3038 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3039 relsize = 0;
3040 else
2db6cde7
NS
3041 {
3042 status = 1;
3043 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3044 return;
3045 }
ed570f48
NC
3046 }
3047 }
57938635 3048
252b5132 3049 if (relsize == 0)
96109726
CC
3050 {
3051 bfd_set_reloc (obfd, osection, NULL, 0);
3052 osection->flags &= ~SEC_RELOC;
3053 }
252b5132
RH
3054 else
3055 {
3f5e193b 3056 relpp = (arelent **) xmalloc (relsize);
252b5132
RH
3057 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
3058 if (relcount < 0)
2db6cde7
NS
3059 {
3060 status = 1;
3061 bfd_nonfatal_message (NULL, ibfd, isection,
3062 _("relocation count is negative"));
3063 return;
3064 }
57938635 3065
252b5132
RH
3066 if (strip_symbols == STRIP_ALL)
3067 {
3068 /* Remove relocations which are not in
0af11b59 3069 keep_strip_specific_list. */
252b5132
RH
3070 arelent **temp_relpp;
3071 long temp_relcount = 0;
3072 long i;
57938635 3073
3f5e193b 3074 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 3075 for (i = 0; i < relcount; i++)
86eafac0
NC
3076 {
3077 /* PR 17512: file: 9e907e0c. */
3078 if (relpp[i]->sym_ptr_ptr)
3079 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
3080 keep_specific_htab))
3081 temp_relpp [temp_relcount++] = relpp [i];
3082 }
252b5132
RH
3083 relcount = temp_relcount;
3084 free (relpp);
3085 relpp = temp_relpp;
3086 }
e0c60db2 3087
d3ba0551 3088 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 3089 if (relcount == 0)
c3989150
L
3090 {
3091 osection->flags &= ~SEC_RELOC;
3092 free (relpp);
3093 }
252b5132 3094 }
c3989150
L
3095}
3096
3097/* Copy the data of input section ISECTION of IBFD
3098 to an output section with the same name in OBFD. */
3099
3100static void
3101copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3102{
3103 bfd *obfd = (bfd *) obfdarg;
3104 struct section_list *p;
3105 sec_ptr osection;
3106 bfd_size_type size;
3107
3108 if (skip_section (ibfd, isection))
3109 return;
3110
3111 osection = isection->output_section;
88988473 3112 /* The output SHF_COMPRESSED section size is different from input if
cbd44e24
L
3113 ELF classes of input and output aren't the same. We can't use
3114 the output section size since --interleave will shrink the output
3115 section. Size will be updated if the section is converted. */
3116 size = bfd_get_section_size (isection);
c3989150 3117
0af11b59 3118 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
4dd67f29 3119 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
252b5132 3120 {
4a114e3e 3121 bfd_byte *memhunk = NULL;
252b5132 3122
88988473
L
3123 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk)
3124 || !bfd_convert_section_contents (ibfd, isection, obfd,
cbd44e24 3125 &memhunk, &size))
2db6cde7
NS
3126 {
3127 status = 1;
3128 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3129 return;
3130 }
252b5132 3131
9e48b4c6
NC
3132 if (reverse_bytes)
3133 {
3134 /* We don't handle leftover bytes (too many possible behaviors,
3135 and we don't know what the user wants). The section length
3136 must be a multiple of the number of bytes to swap. */
3137 if ((size % reverse_bytes) == 0)
3138 {
3139 unsigned long i, j;
3140 bfd_byte b;
3141
3142 for (i = 0; i < size; i += reverse_bytes)
3143 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
3144 {
3145 bfd_byte *m = (bfd_byte *) memhunk;
3146
3147 b = m[i + j];
3148 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
3149 m[(i + reverse_bytes) - (j + 1)] = b;
3150 }
3151 }
3152 else
3153 /* User must pad the section up in order to do this. */
3154 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
3155 bfd_section_name (ibfd, isection), reverse_bytes);
3156 }
3157
57938635 3158 if (copy_byte >= 0)
5e675b72
AM
3159 {
3160 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 3161 char *from = (char *) memhunk + copy_byte;
3f5e193b 3162 char *to = (char *) memhunk;
2f01ffbf 3163 char *end = (char *) memhunk + size;
b7dd81f7 3164 int i;
5e675b72
AM
3165
3166 for (; from < end; from += interleave)
b7dd81f7 3167 for (i = 0; i < copy_width; i++)
ee7da987
L
3168 {
3169 if (&from[i] >= end)
3170 break;
3171 *to++ = from[i];
3172 }
5e675b72 3173
b7dd81f7 3174 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72
AM
3175 osection->lma /= interleave;
3176 }
252b5132 3177
d3ba0551 3178 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS
3179 {
3180 status = 1;
3181 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3182 return;
3183 }
252b5132
RH
3184 free (memhunk);
3185 }
2e62b721
NC
3186 else if ((p = find_section_list (bfd_get_section_name (ibfd, isection),
3187 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
3188 && (p->flags & SEC_HAS_CONTENTS) != 0)
252b5132 3189 {
d3ba0551 3190 void *memhunk = xmalloc (size);
252b5132
RH
3191
3192 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
3193 flag--they can just remove the section entirely and add it
3194 back again. However, we do permit them to turn on the
3195 SEC_HAS_CONTENTS flag, and take it to mean that the section
3196 contents should be zeroed out. */
3197
3198 memset (memhunk, 0, size);
d3ba0551 3199 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS
3200 {
3201 status = 1;
3202 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3203 return;
3204 }
252b5132
RH
3205 free (memhunk);
3206 }
3207}
3208
3209/* Get all the sections. This is used when --gap-fill or --pad-to is
3210 used. */
3211
3212static void
84e2f313 3213get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 3214{
3f5e193b 3215 asection ***secppp = (asection ***) secppparg;
252b5132
RH
3216
3217 **secppp = osection;
3218 ++(*secppp);
3219}
3220
3221/* Sort sections by VMA. This is called via qsort, and is used when
3222 --gap-fill or --pad-to is used. We force non loadable or empty
3223 sections to the front, where they are easier to ignore. */
3224
3225static int
84e2f313 3226compare_section_lma (const void *arg1, const void *arg2)
252b5132 3227{
3f5e193b
NC
3228 const asection *const *sec1 = (const asection * const *) arg1;
3229 const asection *const *sec2 = (const asection * const *) arg2;
252b5132
RH
3230 flagword flags1, flags2;
3231
3232 /* Sort non loadable sections to the front. */
3233 flags1 = (*sec1)->flags;
3234 flags2 = (*sec2)->flags;
3235 if ((flags1 & SEC_HAS_CONTENTS) == 0
3236 || (flags1 & SEC_LOAD) == 0)
3237 {
3238 if ((flags2 & SEC_HAS_CONTENTS) != 0
3239 && (flags2 & SEC_LOAD) != 0)
3240 return -1;
3241 }
3242 else
3243 {
3244 if ((flags2 & SEC_HAS_CONTENTS) == 0
3245 || (flags2 & SEC_LOAD) == 0)
3246 return 1;
3247 }
3248
3249 /* Sort sections by LMA. */
3250 if ((*sec1)->lma > (*sec2)->lma)
3251 return 1;
3252 else if ((*sec1)->lma < (*sec2)->lma)
3253 return -1;
3254
3255 /* Sort sections with the same LMA by size. */
135dfb4a 3256 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
252b5132 3257 return 1;
135dfb4a 3258 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
252b5132
RH
3259 return -1;
3260
3261 return 0;
3262}
3263
3264/* Mark all the symbols which will be used in output relocations with
3265 the BSF_KEEP flag so that those symbols will not be stripped.
3266
3267 Ignore relocations which will not appear in the output file. */
3268
3269static void
84e2f313 3270mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 3271{
3f5e193b 3272 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH
3273 long relsize;
3274 arelent **relpp;
3275 long relcount, i;
3276
3277 /* Ignore an input section with no corresponding output section. */
3278 if (isection->output_section == NULL)
3279 return;
3280
3281 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
3282 if (relsize < 0)
ed570f48
NC
3283 {
3284 /* Do not complain if the target does not support relocations. */
3285 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3286 return;
3287 bfd_fatal (bfd_get_filename (ibfd));
3288 }
252b5132
RH
3289
3290 if (relsize == 0)
3291 return;
3292
3f5e193b 3293 relpp = (arelent **) xmalloc (relsize);
252b5132
RH
3294 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
3295 if (relcount < 0)
3296 bfd_fatal (bfd_get_filename (ibfd));
3297
ec5d57d5
NC
3298 /* Examine each symbol used in a relocation. If it's not one of the
3299 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH
3300 for (i = 0; i < relcount; i++)
3301 {
ec5d57d5
NC
3302 if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
3303 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
3304 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
3305 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH
3306 }
3307
3308 if (relpp != NULL)
3309 free (relpp);
3310}
3311
3312/* Write out debugging information. */
3313
b34976b6 3314static bfd_boolean
84e2f313
NC
3315write_debugging_info (bfd *obfd, void *dhandle,
3316 long *symcountp ATTRIBUTE_UNUSED,
3317 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132
RH
3318{
3319 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
3320 return write_ieee_debugging_info (obfd, dhandle);
3321
3322 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
3323 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3324 {
3325 bfd_byte *syms, *strings;
3326 bfd_size_type symsize, stringsize;
3327 asection *stabsec, *stabstrsec;
551b43fd 3328 flagword flags;
252b5132
RH
3329
3330 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
3331 &symsize, &strings,
3332 &stringsize))
b34976b6 3333 return FALSE;
252b5132 3334
551b43fd
AM
3335 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
3336 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
3337 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH
3338 if (stabsec == NULL
3339 || stabstrsec == NULL
3340 || ! bfd_set_section_size (obfd, stabsec, symsize)
3341 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
3342 || ! bfd_set_section_alignment (obfd, stabsec, 2)
551b43fd 3343 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
252b5132 3344 {
2db6cde7
NS
3345 bfd_nonfatal_message (NULL, obfd, NULL,
3346 _("can't create debugging section"));
b34976b6 3347 return FALSE;
252b5132
RH
3348 }
3349
3350 /* We can get away with setting the section contents now because
3351 the next thing the caller is going to do is copy over the
3352 real sections. We may someday have to split the contents
3353 setting out of this function. */
d3ba0551
AM
3354 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
3355 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
3356 stringsize))
252b5132 3357 {
2db6cde7
NS
3358 bfd_nonfatal_message (NULL, obfd, NULL,
3359 _("can't set debugging section contents"));
b34976b6 3360 return FALSE;
252b5132
RH
3361 }
3362
b34976b6 3363 return TRUE;
252b5132
RH
3364 }
3365
2db6cde7
NS
3366 bfd_nonfatal_message (NULL, obfd, NULL,
3367 _("don't know how to write debugging information for %s"),
3368 bfd_get_target (obfd));
b34976b6 3369 return FALSE;
252b5132
RH
3370}
3371
955d0b3b
RM
3372/* If neither -D nor -U was specified explicitly,
3373 then use the configured default. */
3374static void
3375default_deterministic (void)
3376{
3377 if (deterministic < 0)
3378 deterministic = DEFAULT_AR_DETERMINISTIC;
3379}
3380
252b5132 3381static int
84e2f313 3382strip_main (int argc, char *argv[])
252b5132 3383{
7c29036b
NC
3384 char *input_target = NULL;
3385 char *output_target = NULL;
b34976b6 3386 bfd_boolean show_version = FALSE;
7c29036b
NC
3387 bfd_boolean formats_info = FALSE;
3388 int c;
3389 int i;
252b5132
RH
3390 char *output_file = NULL;
3391
7a093a78 3392 while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvwDU",
252b5132
RH
3393 strip_options, (int *) 0)) != EOF)
3394 {
3395 switch (c)
3396 {
3397 case 'I':
3398 input_target = optarg;
3399 break;
3400 case 'O':
3401 output_target = optarg;
3402 break;
3403 case 'F':
3404 input_target = output_target = optarg;
3405 break;
3406 case 'R':
2e62b721 3407 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3408 sections_removed = TRUE;
252b5132
RH
3409 break;
3410 case 's':
3411 strip_symbols = STRIP_ALL;
3412 break;
3413 case 'S':
3414 case 'g':
db4f6831 3415 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH
3416 strip_symbols = STRIP_DEBUG;
3417 break;
96109726
CC
3418 case OPTION_STRIP_DWO:
3419 strip_symbols = STRIP_DWO;
3420 break;
252b5132
RH
3421 case OPTION_STRIP_UNNEEDED:
3422 strip_symbols = STRIP_UNNEEDED;
3423 break;
3424 case 'K':
047c9024 3425 add_specific_symbol (optarg, keep_specific_htab);
252b5132
RH
3426 break;
3427 case 'N':
047c9024 3428 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH
3429 break;
3430 case 'o':
3431 output_file = optarg;
3432 break;
3433 case 'p':
b34976b6 3434 preserve_dates = TRUE;
252b5132 3435 break;
2e30cb57
CC
3436 case 'D':
3437 deterministic = TRUE;
3438 break;
955d0b3b
RM
3439 case 'U':
3440 deterministic = FALSE;
3441 break;
252b5132
RH
3442 case 'x':
3443 discard_locals = LOCALS_ALL;
3444 break;
3445 case 'X':
3446 discard_locals = LOCALS_START_L;
3447 break;
3448 case 'v':
b34976b6 3449 verbose = TRUE;
252b5132
RH
3450 break;
3451 case 'V':
b34976b6 3452 show_version = TRUE;
252b5132 3453 break;
7c29036b
NC
3454 case OPTION_FORMATS_INFO:
3455 formats_info = TRUE;
3456 break;
ed1653a7
NC
3457 case OPTION_ONLY_KEEP_DEBUG:
3458 strip_symbols = STRIP_NONDEBUG;
3459 break;
1637cd90
JB
3460 case OPTION_KEEP_FILE_SYMBOLS:
3461 keep_file_symbols = 1;
3462 break;
252b5132 3463 case 0:
594ef5db
NC
3464 /* We've been given a long option. */
3465 break;
5fe11841
NC
3466 case 'w':
3467 wildcard = TRUE;
3468 break;
8b53311e 3469 case 'H':
252b5132
RH
3470 case 'h':
3471 strip_usage (stdout, 0);
3472 default:
3473 strip_usage (stderr, 1);
3474 }
3475 }
3476
84e2f313
NC
3477 if (formats_info)
3478 {
3479 display_info ();
3480 return 0;
3481 }
c1c0eb9e 3482
252b5132
RH
3483 if (show_version)
3484 print_version ("strip");
3485
955d0b3b
RM
3486 default_deterministic ();
3487
252b5132
RH
3488 /* Default is to strip all symbols. */
3489 if (strip_symbols == STRIP_UNDEF
3490 && discard_locals == LOCALS_UNDEF
047c9024 3491 && htab_elements (strip_specific_htab) == 0)
252b5132
RH
3492 strip_symbols = STRIP_ALL;
3493
d3ba0551 3494 if (output_target == NULL)
252b5132
RH
3495 output_target = input_target;
3496
3497 i = optind;
3498 if (i == argc
3499 || (output_file != NULL && (i + 1) < argc))
3500 strip_usage (stderr, 1);
3501
3502 for (; i < argc; i++)
3503 {
3504 int hold_status = status;
3505 struct stat statbuf;
3506 char *tmpname;
3507
f24ddbdd 3508 if (get_file_size (argv[i]) < 1)
d68c385b
NC
3509 {
3510 status = 1;
3511 continue;
3512 }
f24ddbdd 3513
252b5132 3514 if (preserve_dates)
f24ddbdd
NC
3515 /* No need to check the return value of stat().
3516 It has already been checked in get_file_size(). */
3517 stat (argv[i], &statbuf);
252b5132 3518
8b6efd89
KT
3519 if (output_file == NULL
3520 || filename_cmp (argv[i], output_file) == 0)
252b5132 3521 tmpname = make_tempname (argv[i]);
12f498a7
NS
3522 else
3523 tmpname = output_file;
252b5132 3524
f9c026a8
NC
3525 if (tmpname == NULL)
3526 {
2db6cde7
NS
3527 bfd_nonfatal_message (argv[i], NULL, NULL,
3528 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC
3529 status = 1;
3530 continue;
3531 }
3532
d68c385b 3533 status = 0;
8b31b6c4 3534 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH
3535 if (status == 0)
3536 {
3537 if (preserve_dates)
3538 set_times (tmpname, &statbuf);
12f498a7 3539 if (output_file != tmpname)
92fac5ec
L
3540 status = (smart_rename (tmpname,
3541 output_file ? output_file : argv[i],
3542 preserve_dates) != 0);
3543 if (status == 0)
3544 status = hold_status;
252b5132
RH
3545 }
3546 else
bb14f524 3547 unlink_if_ordinary (tmpname);
12f498a7 3548 if (output_file != tmpname)
252b5132
RH
3549 free (tmpname);
3550 }
3551
d68c385b 3552 return status;
252b5132
RH
3553}
3554
92dd4511
L
3555/* Set up PE subsystem. */
3556
3557static void
3558set_pe_subsystem (const char *s)
3559{
3560 const char *version, *subsystem;
3561 size_t i;
3562 static const struct
3563 {
3564 const char *name;
3565 const char set_def;
3566 const short value;
3567 }
3568 v[] =
3569 {
955d0b3b 3570 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L
3571 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
3572 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
3573 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
3574 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
3575 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
3576 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
3577 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 3578 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L
3579 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
3580 };
3581 short value;
3582 char *copy;
3583 int set_def = -1;
3584
3585 /* Check for the presence of a version number. */
3586 version = strchr (s, ':');
3587 if (version == NULL)
3588 subsystem = s;
3589 else
3590 {
3591 int len = version - s;
3592 copy = xstrdup (s);
3593 subsystem = copy;
3594 copy[len] = '\0';
3595 version = copy + 1 + len;
3596 pe_major_subsystem_version = strtoul (version, &copy, 0);
3597 if (*copy == '.')
3598 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
3599 if (*copy != '\0')
3600 non_fatal (_("%s: bad version in PE subsystem"), s);
3601 }
3602
3603 /* Check for numeric subsystem. */
3604 value = (short) strtol (subsystem, &copy, 0);
3605 if (*copy == '\0')
3606 {
3607 for (i = 0; i < ARRAY_SIZE (v); i++)
3608 if (v[i].value == value)
3609 {
3610 pe_subsystem = value;
3611 set_def = v[i].set_def;
3612 break;
3613 }
3614 }
3615 else
3616 {
3617 /* Search for subsystem by name. */
3618 for (i = 0; i < ARRAY_SIZE (v); i++)
3619 if (strcmp (subsystem, v[i].name) == 0)
3620 {
3621 pe_subsystem = v[i].value;
3622 set_def = v[i].set_def;
3623 break;
3624 }
3625 }
3626
3627 switch (set_def)
3628 {
3629 case -1:
3630 fatal (_("unknown PE subsystem: %s"), s);
3631 break;
3632 case 0:
3633 break;
3634 default:
3635 if (pe_file_alignment == (bfd_vma) -1)
3636 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
3637 if (pe_section_alignment == (bfd_vma) -1)
3638 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
3639 break;
3640 }
0cbf3531
MS
3641 if (s != subsystem)
3642 free ((char *) subsystem);
92dd4511
L
3643}
3644
3645/* Convert EFI target to PEI target. */
3646
3647static void
3648convert_efi_target (char *efi)
3649{
3650 efi[0] = 'p';
3651 efi[1] = 'e';
3652 efi[2] = 'i';
3653
3654 if (strcmp (efi + 4, "ia32") == 0)
3655 {
3656 /* Change ia32 to i386. */
3657 efi[5]= '3';
3658 efi[6]= '8';
3659 efi[7]= '6';
3660 }
3661 else if (strcmp (efi + 4, "x86_64") == 0)
3662 {
3663 /* Change x86_64 to x86-64. */
3664 efi[7] = '-';
3665 }
3666}
3667
7173b38a 3668/* Allocate and return a pointer to a struct section_add, initializing the
06b73f41 3669 structure using ARG, a string in the format "sectionname=filename".
7173b38a
AB
3670 The returned structure will have its next pointer set to NEXT. The
3671 OPTION field is the name of the command line option currently being
3672 parsed, and is only used if an error needs to be reported. */
3673
3674static struct section_add *
06b73f41 3675init_section_add (const char *arg,
7173b38a
AB
3676 struct section_add *next,
3677 const char *option)
3678{
3679 struct section_add *pa;
3680 const char *s;
3681
06b73f41 3682 s = strchr (arg, '=');
7173b38a
AB
3683 if (s == NULL)
3684 fatal (_("bad format for %s"), option);
3685
3686 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
06b73f41 3687 pa->name = xstrndup (arg, s - arg);
7173b38a
AB
3688 pa->filename = s + 1;
3689 pa->next = next;
3690 pa->contents = NULL;
3691 pa->size = 0;
3692
3693 return pa;
3694}
3695
3696/* Load the file specified in PA, allocating memory to hold the file
3697 contents, and store a pointer to the allocated memory in the contents
3698 field of PA. The size field of PA is also updated. All errors call
3699 FATAL. */
3700
3701static void
3702section_add_load_file (struct section_add *pa)
3703{
3704 size_t off, alloc;
3705 FILE *f;
3706
3707 /* We don't use get_file_size so that we can do
3708 --add-section .note.GNU_stack=/dev/null
3709 get_file_size doesn't work on /dev/null. */
3710
3711 f = fopen (pa->filename, FOPEN_RB);
3712 if (f == NULL)
3713 fatal (_("cannot open: %s: %s"),
3714 pa->filename, strerror (errno));
3715
3716 off = 0;
3717 alloc = 4096;
3718 pa->contents = (bfd_byte *) xmalloc (alloc);
3719 while (!feof (f))
3720 {
3721 off_t got;
3722
3723 if (off == alloc)
3724 {
3725 alloc <<= 1;
3726 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
3727 }
3728
3729 got = fread (pa->contents + off, 1, alloc - off, f);
3730 if (ferror (f))
3731 fatal (_("%s: fread failed"), pa->filename);
3732
3733 off += got;
3734 }
3735
3736 pa->size = off;
3737
3738 fclose (f);
3739}
3740
252b5132 3741static int
84e2f313 3742copy_main (int argc, char *argv[])
252b5132 3743{
7c29036b
NC
3744 char *input_filename = NULL;
3745 char *output_filename = NULL;
c1c0eb9e 3746 char *tmpname;
7c29036b
NC
3747 char *input_target = NULL;
3748 char *output_target = NULL;
b34976b6
AM
3749 bfd_boolean show_version = FALSE;
3750 bfd_boolean change_warn = TRUE;
7c29036b 3751 bfd_boolean formats_info = FALSE;
252b5132 3752 int c;
252b5132 3753 struct stat statbuf;
8b31b6c4 3754 const bfd_arch_info_type *input_arch = NULL;
252b5132 3755
7a093a78 3756 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
252b5132
RH
3757 copy_options, (int *) 0)) != EOF)
3758 {
3759 switch (c)
3760 {
3761 case 'b':
3762 copy_byte = atoi (optarg);
3763 if (copy_byte < 0)
3764 fatal (_("byte number must be non-negative"));
3765 break;
57938635 3766
0af11b59 3767 case 'B':
8b31b6c4
NC
3768 input_arch = bfd_scan_arch (optarg);
3769 if (input_arch == NULL)
3770 fatal (_("architecture %s unknown"), optarg);
0af11b59 3771 break;
43a0748c 3772
252b5132 3773 case 'i':
b7dd81f7
NC
3774 if (optarg)
3775 {
3776 interleave = atoi (optarg);
3777 if (interleave < 1)
3778 fatal (_("interleave must be positive"));
3779 }
3780 else
3781 interleave = 4;
3782 break;
3783
3784 case OPTION_INTERLEAVE_WIDTH:
3785 copy_width = atoi (optarg);
3786 if (copy_width < 1)
3787 fatal(_("interleave width must be positive"));
252b5132 3788 break;
57938635 3789
252b5132
RH
3790 case 'I':
3791 case 's': /* "source" - 'I' is preferred */
3792 input_target = optarg;
3793 break;
57938635 3794
252b5132
RH
3795 case 'O':
3796 case 'd': /* "destination" - 'O' is preferred */
3797 output_target = optarg;
3798 break;
57938635 3799
252b5132
RH
3800 case 'F':
3801 input_target = output_target = optarg;
3802 break;
57938635 3803
f91ea849 3804 case 'j':
2e62b721 3805 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
b34976b6 3806 sections_copied = TRUE;
f91ea849 3807 break;
57938635 3808
252b5132 3809 case 'R':
2e62b721 3810 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3811 sections_removed = TRUE;
252b5132 3812 break;
57938635 3813
252b5132
RH
3814 case 'S':
3815 strip_symbols = STRIP_ALL;
3816 break;
57938635 3817
252b5132
RH
3818 case 'g':
3819 strip_symbols = STRIP_DEBUG;
3820 break;
57938635 3821
96109726
CC
3822 case OPTION_STRIP_DWO:
3823 strip_symbols = STRIP_DWO;
3824 break;
3825
252b5132
RH
3826 case OPTION_STRIP_UNNEEDED:
3827 strip_symbols = STRIP_UNNEEDED;
3828 break;
57938635 3829
ed1653a7
NC
3830 case OPTION_ONLY_KEEP_DEBUG:
3831 strip_symbols = STRIP_NONDEBUG;
3832 break;
3833
1637cd90
JB
3834 case OPTION_KEEP_FILE_SYMBOLS:
3835 keep_file_symbols = 1;
3836 break;
3837
2593f09a 3838 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 3839 long_section_names = ENABLE ;
2593f09a
NC
3840 gnu_debuglink_filename = optarg;
3841 break;
3842
252b5132 3843 case 'K':
047c9024 3844 add_specific_symbol (optarg, keep_specific_htab);
252b5132 3845 break;
57938635 3846
252b5132 3847 case 'N':
047c9024 3848 add_specific_symbol (optarg, strip_specific_htab);
252b5132 3849 break;
57938635 3850
bcf32829 3851 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 3852 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB
3853 break;
3854
252b5132 3855 case 'L':
047c9024 3856 add_specific_symbol (optarg, localize_specific_htab);
252b5132 3857 break;
57938635 3858
7b4a0685 3859 case OPTION_GLOBALIZE_SYMBOL:
047c9024 3860 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC
3861 break;
3862
16b2b71c 3863 case 'G':
047c9024 3864 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC
3865 break;
3866
252b5132 3867 case 'W':
047c9024 3868 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 3869 break;
57938635 3870
252b5132 3871 case 'p':
b34976b6 3872 preserve_dates = TRUE;
252b5132 3873 break;
57938635 3874
2e30cb57
CC
3875 case 'D':
3876 deterministic = TRUE;
3877 break;
3878
955d0b3b
RM
3879 case 'U':
3880 deterministic = FALSE;
3881 break;
3882
5fe11841
NC
3883 case 'w':
3884 wildcard = TRUE;
3885 break;
3886
252b5132
RH
3887 case 'x':
3888 discard_locals = LOCALS_ALL;
3889 break;
57938635 3890
252b5132
RH
3891 case 'X':
3892 discard_locals = LOCALS_START_L;
3893 break;
57938635 3894
252b5132 3895 case 'v':
b34976b6 3896 verbose = TRUE;
252b5132 3897 break;
57938635 3898
252b5132 3899 case 'V':
b34976b6 3900 show_version = TRUE;
252b5132 3901 break;
57938635 3902
7c29036b
NC
3903 case OPTION_FORMATS_INFO:
3904 formats_info = TRUE;
3905 break;
3906
252b5132 3907 case OPTION_WEAKEN:
b34976b6 3908 weaken = TRUE;
252b5132 3909 break;
57938635 3910
252b5132 3911 case OPTION_ADD_SECTION:
7173b38a
AB
3912 add_sections = init_section_add (optarg, add_sections,
3913 "--add-section");
3914 section_add_load_file (add_sections);
252b5132 3915 break;
57938635 3916
acf1419f
AB
3917 case OPTION_UPDATE_SECTION:
3918 update_sections = init_section_add (optarg, update_sections,
3919 "--update-section");
3920 section_add_load_file (update_sections);
3921 break;
3922
bbad633b 3923 case OPTION_DUMP_SECTION:
7173b38a
AB
3924 dump_sections = init_section_add (optarg, dump_sections,
3925 "--dump-section");
bbad633b 3926 break;
3aade688 3927
252b5132
RH
3928 case OPTION_CHANGE_START:
3929 change_start = parse_vma (optarg, "--change-start");
3930 break;
57938635 3931
252b5132
RH
3932 case OPTION_CHANGE_SECTION_ADDRESS:
3933 case OPTION_CHANGE_SECTION_LMA:
3934 case OPTION_CHANGE_SECTION_VMA:
3935 {
2e62b721 3936 struct section_list * p;
76d8cf45 3937 unsigned int context = 0;
252b5132
RH
3938 const char *s;
3939 int len;
3940 char *name;
b4c96d0d 3941 char *option = NULL;
252b5132 3942 bfd_vma val;
57938635 3943
252b5132
RH
3944 switch (c)
3945 {
b4c96d0d
ILT
3946 case OPTION_CHANGE_SECTION_ADDRESS:
3947 option = "--change-section-address";
2e62b721 3948 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
b4c96d0d
ILT
3949 break;
3950 case OPTION_CHANGE_SECTION_LMA:
3951 option = "--change-section-lma";
2e62b721 3952 context = SECTION_CONTEXT_ALTER_LMA;
b4c96d0d
ILT
3953 break;
3954 case OPTION_CHANGE_SECTION_VMA:
3955 option = "--change-section-vma";
2e62b721 3956 context = SECTION_CONTEXT_ALTER_VMA;
b4c96d0d 3957 break;
252b5132 3958 }
57938635 3959
252b5132
RH
3960 s = strchr (optarg, '=');
3961 if (s == NULL)
3962 {
3963 s = strchr (optarg, '+');
3964 if (s == NULL)
3965 {
3966 s = strchr (optarg, '-');
3967 if (s == NULL)
3968 fatal (_("bad format for %s"), option);
3969 }
3970 }
2e62b721
NC
3971 else
3972 {
3973 /* Correct the context. */
3974 switch (c)
3975 {
3976 case OPTION_CHANGE_SECTION_ADDRESS:
3977 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
3978 break;
3979 case OPTION_CHANGE_SECTION_LMA:
3980 context = SECTION_CONTEXT_SET_LMA;
3981 break;
3982 case OPTION_CHANGE_SECTION_VMA:
3983 context = SECTION_CONTEXT_SET_VMA;
3984 break;
3985 }
3986 }
252b5132
RH
3987
3988 len = s - optarg;
3f5e193b 3989 name = (char *) xmalloc (len + 1);
252b5132
RH
3990 strncpy (name, optarg, len);
3991 name[len] = '\0';
3992
2e62b721 3993 p = find_section_list (name, TRUE, context);
252b5132
RH
3994
3995 val = parse_vma (s + 1, option);
2e62b721
NC
3996 if (*s == '-')
3997 val = - val;
57938635 3998
252b5132
RH
3999 switch (c)
4000 {
4001 case OPTION_CHANGE_SECTION_ADDRESS:
2e62b721 4002 p->vma_val = val;
252b5132 4003 /* Drop through. */
57938635 4004
252b5132 4005 case OPTION_CHANGE_SECTION_LMA:
2e62b721 4006 p->lma_val = val;
252b5132 4007 break;
57938635 4008
252b5132 4009 case OPTION_CHANGE_SECTION_VMA:
2e62b721 4010 p->vma_val = val;
252b5132
RH
4011 break;
4012 }
4013 }
4014 break;
57938635 4015
252b5132
RH
4016 case OPTION_CHANGE_ADDRESSES:
4017 change_section_address = parse_vma (optarg, "--change-addresses");
4018 change_start = change_section_address;
4019 break;
57938635 4020
252b5132 4021 case OPTION_CHANGE_WARNINGS:
b34976b6 4022 change_warn = TRUE;
252b5132 4023 break;
57938635 4024
252b5132 4025 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 4026 change_leading_char = TRUE;
252b5132 4027 break;
57938635 4028
4a114e3e 4029 case OPTION_COMPRESS_DEBUG_SECTIONS:
151411f8
L
4030 if (optarg)
4031 {
4032 if (strcasecmp (optarg, "none") == 0)
4033 do_debug_sections = decompress;
4034 else if (strcasecmp (optarg, "zlib") == 0)
4035 do_debug_sections = compress_zlib;
4036 else if (strcasecmp (optarg, "zlib-gnu") == 0)
4037 do_debug_sections = compress_gnu_zlib;
4038 else if (strcasecmp (optarg, "zlib-gabi") == 0)
4039 do_debug_sections = compress_gabi_zlib;
4040 else
4041 fatal (_("unrecognized --compress-debug-sections type `%s'"),
4042 optarg);
4043 }
4044 else
4045 do_debug_sections = compress;
4a114e3e
L
4046 break;
4047
252b5132 4048 case OPTION_DEBUGGING:
b34976b6 4049 convert_debugging = TRUE;
252b5132 4050 break;
57938635 4051
4a114e3e
L
4052 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
4053 do_debug_sections = decompress;
4054 break;
4055
252b5132
RH
4056 case OPTION_GAP_FILL:
4057 {
4058 bfd_vma gap_fill_vma;
4059
4060 gap_fill_vma = parse_vma (optarg, "--gap-fill");
4061 gap_fill = (bfd_byte) gap_fill_vma;
4062 if ((bfd_vma) gap_fill != gap_fill_vma)
4063 {
4064 char buff[20];
57938635 4065
252b5132 4066 sprintf_vma (buff, gap_fill_vma);
57938635 4067
252b5132
RH
4068 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
4069 buff, gap_fill);
4070 }
b34976b6 4071 gap_fill_set = TRUE;
252b5132
RH
4072 }
4073 break;
57938635 4074
252b5132 4075 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 4076 change_warn = FALSE;
252b5132 4077 break;
57938635 4078
252b5132
RH
4079 case OPTION_PAD_TO:
4080 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 4081 pad_to_set = TRUE;
252b5132 4082 break;
57938635 4083
252b5132 4084 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 4085 remove_leading_char = TRUE;
252b5132 4086 break;
57938635
AM
4087
4088 case OPTION_REDEFINE_SYM:
4089 {
4090 /* Push this redefinition onto redefine_symbol_list. */
4091
4092 int len;
4093 const char *s;
4094 const char *nextarg;
4095 char *source, *target;
4096
4097 s = strchr (optarg, '=');
4098 if (s == NULL)
594ef5db 4099 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM
4100
4101 len = s - optarg;
3f5e193b 4102 source = (char *) xmalloc (len + 1);
57938635
AM
4103 strncpy (source, optarg, len);
4104 source[len] = '\0';
4105
4106 nextarg = s + 1;
4107 len = strlen (nextarg);
3f5e193b 4108 target = (char *) xmalloc (len + 1);
57938635
AM
4109 strcpy (target, nextarg);
4110
92991082 4111 redefine_list_append ("--redefine-sym", source, target);
57938635
AM
4112
4113 free (source);
4114 free (target);
4115 }
4116 break;
4117
92991082
JT
4118 case OPTION_REDEFINE_SYMS:
4119 add_redefine_syms_file (optarg);
4120 break;
4121
252b5132
RH
4122 case OPTION_SET_SECTION_FLAGS:
4123 {
2e62b721 4124 struct section_list *p;
252b5132
RH
4125 const char *s;
4126 int len;
4127 char *name;
4128
4129 s = strchr (optarg, '=');
4130 if (s == NULL)
57938635 4131 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH
4132
4133 len = s - optarg;
3f5e193b 4134 name = (char *) xmalloc (len + 1);
252b5132
RH
4135 strncpy (name, optarg, len);
4136 name[len] = '\0';
4137
2e62b721 4138 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
252b5132 4139
252b5132
RH
4140 p->flags = parse_flags (s + 1);
4141 }
4142 break;
57938635 4143
594ef5db
NC
4144 case OPTION_RENAME_SECTION:
4145 {
4146 flagword flags;
3bcfb3e4
AM
4147 const char *eq, *fl;
4148 char *old_name;
4149 char *new_name;
594ef5db
NC
4150 unsigned int len;
4151
3bcfb3e4
AM
4152 eq = strchr (optarg, '=');
4153 if (eq == NULL)
594ef5db
NC
4154 fatal (_("bad format for %s"), "--rename-section");
4155
3bcfb3e4 4156 len = eq - optarg;
594ef5db 4157 if (len == 0)
3bcfb3e4 4158 fatal (_("bad format for %s"), "--rename-section");
594ef5db 4159
3f5e193b 4160 old_name = (char *) xmalloc (len + 1);
594ef5db
NC
4161 strncpy (old_name, optarg, len);
4162 old_name[len] = 0;
4163
3bcfb3e4
AM
4164 eq++;
4165 fl = strchr (eq, ',');
4166 if (fl)
594ef5db 4167 {
3bcfb3e4
AM
4168 flags = parse_flags (fl + 1);
4169 len = fl - eq;
594ef5db
NC
4170 }
4171 else
4172 {
594ef5db 4173 flags = -1;
3bcfb3e4 4174 len = strlen (eq);
594ef5db
NC
4175 }
4176
3bcfb3e4
AM
4177 if (len == 0)
4178 fatal (_("bad format for %s"), "--rename-section");
4179
3f5e193b 4180 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM
4181 strncpy (new_name, eq, len);
4182 new_name[len] = 0;
4183
594ef5db
NC
4184 add_section_rename (old_name, new_name, flags);
4185 }
4186 break;
4187
252b5132
RH
4188 case OPTION_SET_START:
4189 set_start = parse_vma (optarg, "--set-start");
b34976b6 4190 set_start_set = TRUE;
252b5132 4191 break;
57938635 4192
0af11b59
KH
4193 case OPTION_SREC_LEN:
4194 Chunk = parse_vma (optarg, "--srec-len");
4195 break;
420496c1 4196
0af11b59 4197 case OPTION_SREC_FORCES3:
b34976b6 4198 S3Forced = TRUE;
0af11b59 4199 break;
420496c1 4200
16b2b71c 4201 case OPTION_STRIP_SYMBOLS:
047c9024 4202 add_specific_symbols (optarg, strip_specific_htab);
16b2b71c
NC
4203 break;
4204
bcf32829 4205 case OPTION_STRIP_UNNEEDED_SYMBOLS:
047c9024 4206 add_specific_symbols (optarg, strip_unneeded_htab);
bcf32829
JB
4207 break;
4208
16b2b71c 4209 case OPTION_KEEP_SYMBOLS:
047c9024 4210 add_specific_symbols (optarg, keep_specific_htab);
16b2b71c
NC
4211 break;
4212
d58c2e3a
RS
4213 case OPTION_LOCALIZE_HIDDEN:
4214 localize_hidden = TRUE;
4215 break;
4216
16b2b71c 4217 case OPTION_LOCALIZE_SYMBOLS:
047c9024 4218 add_specific_symbols (optarg, localize_specific_htab);
16b2b71c
NC
4219 break;
4220
0408dee6
DK
4221 case OPTION_LONG_SECTION_NAMES:
4222 if (!strcmp ("enable", optarg))
4223 long_section_names = ENABLE;
4224 else if (!strcmp ("disable", optarg))
4225 long_section_names = DISABLE;
4226 else if (!strcmp ("keep", optarg))
4227 long_section_names = KEEP;
4228 else
4229 fatal (_("unknown long section names option '%s'"), optarg);
4230 break;
4231
7b4a0685 4232 case OPTION_GLOBALIZE_SYMBOLS:
047c9024 4233 add_specific_symbols (optarg, globalize_specific_htab);
7b4a0685
NC
4234 break;
4235
16b2b71c 4236 case OPTION_KEEPGLOBAL_SYMBOLS:
047c9024 4237 add_specific_symbols (optarg, keepglobal_specific_htab);
16b2b71c
NC
4238 break;
4239
4240 case OPTION_WEAKEN_SYMBOLS:
047c9024 4241 add_specific_symbols (optarg, weaken_specific_htab);
16b2b71c
NC
4242 break;
4243
1ae8b3d2 4244 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC
4245 use_alt_mach_code = strtoul (optarg, NULL, 0);
4246 if (use_alt_mach_code == 0)
4247 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO
4248 break;
4249
d7fb0dd2
NC
4250 case OPTION_PREFIX_SYMBOLS:
4251 prefix_symbols_string = optarg;
4252 break;
4253
4254 case OPTION_PREFIX_SECTIONS:
4255 prefix_sections_string = optarg;
4256 break;
4257
4258 case OPTION_PREFIX_ALLOC_SECTIONS:
4259 prefix_alloc_sections_string = optarg;
4260 break;
4261
4087920c
MR
4262 case OPTION_READONLY_TEXT:
4263 bfd_flags_to_set |= WP_TEXT;
4264 bfd_flags_to_clear &= ~WP_TEXT;
4265 break;
4266
4267 case OPTION_WRITABLE_TEXT:
4268 bfd_flags_to_clear |= WP_TEXT;
4269 bfd_flags_to_set &= ~WP_TEXT;
4270 break;
4271
4272 case OPTION_PURE:
4273 bfd_flags_to_set |= D_PAGED;
4274 bfd_flags_to_clear &= ~D_PAGED;
4275 break;
4276
4277 case OPTION_IMPURE:
4278 bfd_flags_to_clear |= D_PAGED;
4279 bfd_flags_to_set &= ~D_PAGED;
4280 break;
4281
96109726
CC
4282 case OPTION_EXTRACT_DWO:
4283 strip_symbols = STRIP_NONDWO;
4284 break;
4285
d3e52d40
RS
4286 case OPTION_EXTRACT_SYMBOL:
4287 extract_symbol = TRUE;
4288 break;
4289
9e48b4c6
NC
4290 case OPTION_REVERSE_BYTES:
4291 {
4292 int prev = reverse_bytes;
4293
4294 reverse_bytes = atoi (optarg);
4295 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
4296 fatal (_("number of bytes to reverse must be positive and even"));
4297
4298 if (prev && prev != reverse_bytes)
4299 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
4300 prev);
4301 break;
4302 }
4303
92dd4511
L
4304 case OPTION_FILE_ALIGNMENT:
4305 pe_file_alignment = parse_vma (optarg, "--file-alignment");
4306 break;
955d0b3b 4307
92dd4511
L
4308 case OPTION_HEAP:
4309 {
4310 char *end;
4311 pe_heap_reserve = strtoul (optarg, &end, 0);
4312 if (end == optarg
4313 || (*end != '.' && *end != '\0'))
4314 non_fatal (_("%s: invalid reserve value for --heap"),
4315 optarg);
4316 else if (*end != '\0')
4317 {
4318 pe_heap_commit = strtoul (end + 1, &end, 0);
4319 if (*end != '\0')
4320 non_fatal (_("%s: invalid commit value for --heap"),
4321 optarg);
4322 }
4323 }
4324 break;
955d0b3b 4325
92dd4511
L
4326 case OPTION_IMAGE_BASE:
4327 pe_image_base = parse_vma (optarg, "--image-base");
4328 break;
955d0b3b 4329
92dd4511
L
4330 case OPTION_SECTION_ALIGNMENT:
4331 pe_section_alignment = parse_vma (optarg,
4332 "--section-alignment");
4333 break;
955d0b3b 4334
92dd4511
L
4335 case OPTION_SUBSYSTEM:
4336 set_pe_subsystem (optarg);
4337 break;
955d0b3b 4338
92dd4511
L
4339 case OPTION_STACK:
4340 {
4341 char *end;
4342 pe_stack_reserve = strtoul (optarg, &end, 0);
4343 if (end == optarg
4344 || (*end != '.' && *end != '\0'))
4345 non_fatal (_("%s: invalid reserve value for --stack"),
4346 optarg);
4347 else if (*end != '\0')
4348 {
4349 pe_stack_commit = strtoul (end + 1, &end, 0);
4350 if (*end != '\0')
4351 non_fatal (_("%s: invalid commit value for --stack"),
4352 optarg);
4353 }
4354 }
4355 break;
955d0b3b 4356
252b5132 4357 case 0:
2593f09a
NC
4358 /* We've been given a long option. */
4359 break;
57938635 4360
8b53311e 4361 case 'H':
252b5132
RH
4362 case 'h':
4363 copy_usage (stdout, 0);
57938635 4364
252b5132
RH
4365 default:
4366 copy_usage (stderr, 1);
4367 }
4368 }
4369
7c29036b
NC
4370 if (formats_info)
4371 {
4372 display_info ();
4373 return 0;
4374 }
c1c0eb9e 4375
252b5132
RH
4376 if (show_version)
4377 print_version ("objcopy");
4378
b7dd81f7
NC
4379 if (interleave && copy_byte == -1)
4380 fatal (_("interleave start byte must be set with --byte"));
4381
252b5132
RH
4382 if (copy_byte >= interleave)
4383 fatal (_("byte number must be less than interleave"));
4384
b7dd81f7
NC
4385 if (copy_width > interleave - copy_byte)
4386 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4387
252b5132
RH
4388 if (optind == argc || optind + 2 < argc)
4389 copy_usage (stderr, 1);
4390
4391 input_filename = argv[optind];
4392 if (optind + 1 < argc)
4393 output_filename = argv[optind + 1];
4394
955d0b3b
RM
4395 default_deterministic ();
4396
252b5132
RH
4397 /* Default is to strip no symbols. */
4398 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
4399 strip_symbols = STRIP_NONE;
4400
d3ba0551 4401 if (output_target == NULL)
252b5132
RH
4402 output_target = input_target;
4403
92dd4511
L
4404 /* Convert input EFI target to PEI target. */
4405 if (input_target != NULL
4406 && strncmp (input_target, "efi-", 4) == 0)
4407 {
4408 char *efi;
4409
4410 efi = xstrdup (output_target + 4);
4411 if (strncmp (efi, "bsdrv-", 6) == 0
4412 || strncmp (efi, "rtdrv-", 6) == 0)
4413 efi += 2;
4414 else if (strncmp (efi, "app-", 4) != 0)
4415 fatal (_("unknown input EFI target: %s"), input_target);
4416
4417 input_target = efi;
4418 convert_efi_target (efi);
4419 }
4420
4421 /* Convert output EFI target to PEI target. */
4422 if (output_target != NULL
4423 && strncmp (output_target, "efi-", 4) == 0)
4424 {
4425 char *efi;
4426
4427 efi = xstrdup (output_target + 4);
4428 if (strncmp (efi, "app-", 4) == 0)
4429 {
4430 if (pe_subsystem == -1)
4431 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
4432 }
4433 else if (strncmp (efi, "bsdrv-", 6) == 0)
4434 {
4435 if (pe_subsystem == -1)
4436 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
4437 efi += 2;
4438 }
4439 else if (strncmp (efi, "rtdrv-", 6) == 0)
4440 {
4441 if (pe_subsystem == -1)
4442 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
4443 efi += 2;
4444 }
4445 else
4446 fatal (_("unknown output EFI target: %s"), output_target);
4447
4448 if (pe_file_alignment == (bfd_vma) -1)
4449 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4450 if (pe_section_alignment == (bfd_vma) -1)
4451 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4452
4453 output_target = efi;
4454 convert_efi_target (efi);
4455 }
4456
43a0748c
NC
4457 if (preserve_dates)
4458 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC
4459 fatal (_("warning: could not locate '%s'. System error message: %s"),
4460 input_filename, strerror (errno));
43a0748c 4461
0fcdcb91 4462 /* If there is no destination file, or the source and destination files
d3ba0551 4463 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT
4464 if (output_filename == NULL
4465 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 4466 tmpname = make_tempname (input_filename);
252b5132 4467 else
12f498a7 4468 tmpname = output_filename;
c1c0eb9e 4469
12f498a7
NS
4470 if (tmpname == NULL)
4471 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4472 input_filename, strerror (errno));
594ef5db 4473
8b31b6c4 4474 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS
4475 if (status == 0)
4476 {
4477 if (preserve_dates)
4478 set_times (tmpname, &statbuf);
4479 if (tmpname != output_filename)
92fac5ec
L
4480 status = (smart_rename (tmpname, input_filename,
4481 preserve_dates) != 0);
252b5132 4482 }
12f498a7
NS
4483 else
4484 unlink_if_ordinary (tmpname);
252b5132
RH
4485
4486 if (change_warn)
4487 {
2e62b721
NC
4488 struct section_list *p;
4489
252b5132
RH
4490 for (p = change_sections; p != NULL; p = p->next)
4491 {
4492 if (! p->used)
4493 {
2e62b721 4494 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
252b5132
RH
4495 {
4496 char buff [20];
4497
4498 sprintf_vma (buff, p->vma_val);
57938635 4499
252b5132 4500 /* xgettext:c-format */
57938635
AM
4501 non_fatal (_("%s %s%c0x%s never used"),
4502 "--change-section-vma",
2e62b721
NC
4503 p->pattern,
4504 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
252b5132
RH
4505 buff);
4506 }
57938635 4507
2e62b721 4508 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
252b5132
RH
4509 {
4510 char buff [20];
4511
4512 sprintf_vma (buff, p->lma_val);
57938635 4513
252b5132 4514 /* xgettext:c-format */
57938635
AM
4515 non_fatal (_("%s %s%c0x%s never used"),
4516 "--change-section-lma",
2e62b721
NC
4517 p->pattern,
4518 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
252b5132
RH
4519 buff);
4520 }
4521 }
4522 }
4523 }
4524
4525 return 0;
4526}
4527
4528int
84e2f313 4529main (int argc, char *argv[])
252b5132
RH
4530{
4531#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4532 setlocale (LC_MESSAGES, "");
3882b010
L
4533#endif
4534#if defined (HAVE_SETLOCALE)
4535 setlocale (LC_CTYPE, "");
252b5132
RH
4536#endif
4537 bindtextdomain (PACKAGE, LOCALEDIR);
4538 textdomain (PACKAGE);
4539
4540 program_name = argv[0];
4541 xmalloc_set_program_name (program_name);
4542
4543 START_PROGRESS (program_name, 0);
4544
869b9d07
MM
4545 expandargv (&argc, &argv);
4546
252b5132
RH
4547 strip_symbols = STRIP_UNDEF;
4548 discard_locals = LOCALS_UNDEF;
4549
4550 bfd_init ();
4551 set_default_bfd_target ();
4552
4553 if (is_strip < 0)
4554 {
4555 int i = strlen (program_name);
5af11cab
AM
4556#ifdef HAVE_DOS_BASED_FILE_SYSTEM
4557 /* Drop the .exe suffix, if any. */
4558 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
4559 {
4560 i -= 4;
4561 program_name[i] = '\0';
4562 }
4563#endif
4564 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH
4565 }
4566
047c9024
NC
4567 create_symbol_htabs ();
4568
86eafac0
NC
4569 if (argv != NULL)
4570 bfd_set_error_program_name (argv[0]);
4571
252b5132
RH
4572 if (is_strip)
4573 strip_main (argc, argv);
4574 else
4575 copy_main (argc, argv);
4576
4577 END_PROGRESS (program_name);
4578
4579 return status;
4580}
This page took 0.957813 seconds and 4 git commands to generate.