projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add SHF_COMPRESSED support to gas and objcopy
[deliverable/binutils-gdb.git] / binutils / objcopy.c
CommitLineData
252b5132 1/* objcopy.c -- copy object file from input to output, optionally massaging it.
b90efa5b 2 Copyright (C) 1991-2015 Free Software Foundation, Inc.
252b5132
RH		 3
4 This file is part of GNU Binutils.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
32866df7 8 the Free Software Foundation; either version 3 of the License, or
252b5132
RH		 9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
b43b5d5f
NC		 18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
19 02110-1301, USA. */
252b5132 20\f
3db64b00 21#include "sysdep.h"
252b5132
RH		 22#include "bfd.h"
23#include "progress.h"
252b5132
RH		 24#include "getopt.h"
25#include "libiberty.h"
3db64b00 26#include "bucomm.h"
252b5132 27#include "budbg.h"
5af11cab 28#include "filenames.h"
5fe11841 29#include "fnmatch.h"
f0312d39 30#include "elf-bfd.h"
6e2c86ac 31#include "libbfd.h"
0408dee6
DK		 32#include "coff/internal.h"
33#include "libcoff.h"
252b5132 34
92dd4511
L		 35/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
36 header in generic PE code. */
37#include "coff/i386.h"
38#include "coff/pe.h"
39
40static bfd_vma pe_file_alignment = (bfd_vma) -1;
41static bfd_vma pe_heap_commit = (bfd_vma) -1;
42static bfd_vma pe_heap_reserve = (bfd_vma) -1;
43static bfd_vma pe_image_base = (bfd_vma) -1;
44static bfd_vma pe_section_alignment = (bfd_vma) -1;
45static bfd_vma pe_stack_commit = (bfd_vma) -1;
46static bfd_vma pe_stack_reserve = (bfd_vma) -1;
47static short pe_subsystem = -1;
48static short pe_major_subsystem_version = -1;
49static short pe_minor_subsystem_version = -1;
50
047c9024 51struct is_specified_symbol_predicate_data
252b5132 52{
047c9024
NC		 53 const char *name;
54 bfd_boolean found;
252b5132
RH		 55};
56
57938635
AM		 57/* A list to support redefine_sym. */
58struct redefine_node
59{
60 char *source;
61 char *target;
62 struct redefine_node *next;
63};
64
594ef5db
NC		 65typedef struct section_rename
66{
67 const char * old_name;
68 const char * new_name;
69 flagword flags;
70 struct section_rename * next;
71}
72section_rename;
73
74/* List of sections to be renamed. */
84e2f313 75static section_rename *section_rename_list;
594ef5db 76
84e2f313
NC		 77static asymbol **isympp = NULL; /* Input symbols. */
78static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
252b5132 79
b7dd81f7 80/* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
252b5132 81static int copy_byte = -1;
b7dd81f7
NC		 82static int interleave = 0; /* Initialised to 4 in copy_main(). */
83static int copy_width = 1;
252b5132 84
b34976b6
AM		 85static bfd_boolean verbose; /* Print file and target names. */
86static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
955d0b3b 87static int deterministic = -1; /* Enable deterministic archives. */
252b5132
RH		 88static int status = 0; /* Exit status. */
89
90enum strip_action
91 {
92 STRIP_UNDEF,
84e2f313
NC		 93 STRIP_NONE, /* Don't strip. */
94 STRIP_DEBUG, /* Strip all debugger symbols. */
95 STRIP_UNNEEDED, /* Strip unnecessary symbols. */
ed1653a7 96 STRIP_NONDEBUG, /* Strip everything but debug info. */
96109726
CC		 97 STRIP_DWO, /* Strip all DWO info. */
98 STRIP_NONDWO, /* Strip everything but DWO info. */
84e2f313 99 STRIP_ALL /* Strip all symbols. */
252b5132
RH		 100 };
101
0af11b59 102/* Which symbols to remove. */
4fc8b895 103static enum strip_action strip_symbols = STRIP_UNDEF;
252b5132
RH		 104
105enum locals_action
106 {
107 LOCALS_UNDEF,
84e2f313
NC		 108 LOCALS_START_L, /* Discard locals starting with L. */
109 LOCALS_ALL /* Discard all locals. */
252b5132
RH		 110 };
111
112/* Which local symbols to remove. Overrides STRIP_ALL. */
113static enum locals_action discard_locals;
114
252b5132
RH		 115/* Structure used to hold lists of sections and actions to take. */
116struct section_list
117{
b34976b6 118 struct section_list * next; /* Next section to change. */
2e62b721 119 const char * pattern; /* Section name pattern. */
b34976b6 120 bfd_boolean used; /* Whether this entry was used. */
2e62b721
NC		 121
122 unsigned int context; /* What to do with matching sections. */
123 /* Flag bits used in the context field.
124 COPY and REMOVE are mutually exlusive. SET and ALTER are mutually exclusive. */
125#define SECTION_CONTEXT_REMOVE (1 << 0) /* Remove this section. */
126#define SECTION_CONTEXT_COPY (1 << 1) /* Copy this section, delete all non-copied section. */
127#define SECTION_CONTEXT_SET_VMA (1 << 2) /* Set the sections' VMA address. */
128#define SECTION_CONTEXT_ALTER_VMA (1 << 3) /* Increment or decrement the section's VMA address. */
129#define SECTION_CONTEXT_SET_LMA (1 << 4) /* Set the sections' LMA address. */
130#define SECTION_CONTEXT_ALTER_LMA (1 << 5) /* Increment or decrement the section's LMA address. */
131#define SECTION_CONTEXT_SET_FLAGS (1 << 6) /* Set the section's flags. */
132
b34976b6 133 bfd_vma vma_val; /* Amount to change by or set to. */
b34976b6 134 bfd_vma lma_val; /* Amount to change by or set to. */
b34976b6 135 flagword flags; /* What to set the section flags to. */
252b5132
RH		 136};
137
138static struct section_list *change_sections;
594ef5db 139
b34976b6
AM		 140/* TRUE if some sections are to be removed. */
141static bfd_boolean sections_removed;
594ef5db 142
b34976b6
AM		 143/* TRUE if only some sections are to be copied. */
144static bfd_boolean sections_copied;
252b5132
RH		 145
146/* Changes to the start address. */
147static bfd_vma change_start = 0;
b34976b6 148static bfd_boolean set_start_set = FALSE;
252b5132
RH		 149static bfd_vma set_start;
150
151/* Changes to section addresses. */
152static bfd_vma change_section_address = 0;
153
154/* Filling gaps between sections. */
b34976b6 155static bfd_boolean gap_fill_set = FALSE;
252b5132
RH		 156static bfd_byte gap_fill = 0;
157
158/* Pad to a given address. */
b34976b6 159static bfd_boolean pad_to_set = FALSE;
252b5132
RH		 160static bfd_vma pad_to;
161
f9d4ad2a
NC		 162/* Use alternative machine code? */
163static unsigned long use_alt_mach_code = 0;
1ae8b3d2 164
4087920c
MR		 165/* Output BFD flags user wants to set or clear */
166static flagword bfd_flags_to_set;
167static flagword bfd_flags_to_clear;
168
252b5132 169/* List of sections to add. */
252b5132
RH		 170struct section_add
171{
172 /* Next section to add. */
173 struct section_add *next;
174 /* Name of section to add. */
175 const char *name;
176 /* Name of file holding section contents. */
177 const char *filename;
178 /* Size of file. */
179 size_t size;
180 /* Contents of file. */
181 bfd_byte *contents;
182 /* BFD section, after it has been added. */
183 asection *section;
184};
185
594ef5db 186/* List of sections to add to the output BFD. */
252b5132
RH		 187static struct section_add *add_sections;
188
acf1419f
AB		 189/* List of sections to update in the output BFD. */
190static struct section_add *update_sections;
191
bbad633b
NC		 192/* List of sections to dump from the output BFD. */
193static struct section_add *dump_sections;
194
2593f09a
NC		 195/* If non-NULL the argument to --add-gnu-debuglink.
196 This should be the filename to store in the .gnu_debuglink section. */
197static const char * gnu_debuglink_filename = NULL;
198
252b5132 199/* Whether to convert debugging information. */
b34976b6 200static bfd_boolean convert_debugging = FALSE;
252b5132 201
4a114e3e
L		 202/* Whether to compress/decompress DWARF debug sections. */
203static enum
204{
205 nothing,
206 compress,
151411f8
L		 207 compress_zlib,
208 compress_gnu_zlib,
209 compress_gabi_zlib,
4a114e3e
L		 210 decompress
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:
735
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
NC		 762 /* assert ((context & ((1 << 7) - 1)) != 0); */
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;
988 /* Stop traversal. */
989 return 0;
990 }
5fe11841
NC		 991 }
992 else
993 {
047c9024
NC		 994 if (fnmatch (slot_name + 1, d->name, 0))
995 {
996 d->found = TRUE;
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;
252b5132 1643
23719f39
NC		 1644 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
1645 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
1646 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
cfad8730
NC		 1647 {
1648 /* PR 17636: Call non-fatal so that we return to our parent who
1649 may need to tidy temporary files. */
1650 non_fatal (_("Unable to change endianness of input file(s)"));
1651 return FALSE;
1652 }
252b5132
RH		 1653
1654 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 1655 {
2db6cde7 1656 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
950d48e7
NC		 1657 return FALSE;
1658 }
252b5132 1659
5063a421
AM		 1660 if (ibfd->sections == NULL)
1661 {
1662 non_fatal (_("error: the input file '%s' has no sections"),
1663 bfd_get_archive_filename (ibfd));
1664 return FALSE;
1665 }
1666
252b5132 1667 if (verbose)
77f762d6
L		 1668 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
1669 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
252b5132
RH		 1670 bfd_get_filename (obfd), bfd_get_target (obfd));
1671
d3e52d40
RS		 1672 if (extract_symbol)
1673 start = 0;
252b5132 1674 else
d3e52d40
RS		 1675 {
1676 if (set_start_set)
1677 start = set_start;
1678 else
1679 start = bfd_get_start_address (ibfd);
1680 start += change_start;
1681 }
252b5132 1682
0af11b59
KH		 1683 /* Neither the start address nor the flags
1684 need to be set for a core file. */
4dd67f29
MS		 1685 if (bfd_get_format (obfd) != bfd_core)
1686 {
4087920c
MR		 1687 flagword flags;
1688
1689 flags = bfd_get_file_flags (ibfd);
1690 flags |= bfd_flags_to_set;
1691 flags &= ~bfd_flags_to_clear;
1692 flags &= bfd_applicable_file_flags (obfd);
1693
3516e984
L		 1694 if (strip_symbols == STRIP_ALL)
1695 flags &= ~HAS_RELOC;
1696
4dd67f29 1697 if (!bfd_set_start_address (obfd, start)
4087920c 1698 || !bfd_set_file_flags (obfd, flags))
950d48e7 1699 {
8d8e0703 1700 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 1701 return FALSE;
1702 }
4dd67f29 1703 }
252b5132 1704
594ef5db 1705 /* Copy architecture of input file to output file. */
66491ebc
AM		 1706 iarch = bfd_get_arch (ibfd);
1707 imach = bfd_get_mach (ibfd);
8b31b6c4
NC		 1708 if (input_arch)
1709 {
1710 if (bfd_get_arch_info (ibfd) == NULL
1711 || bfd_get_arch_info (ibfd)->arch == bfd_arch_unknown)
1712 {
1713 iarch = input_arch->arch;
1714 imach = input_arch->mach;
1715 }
1716 else
1717 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
1718 bfd_get_archive_filename (ibfd));
1719 }
66491ebc 1720 if (!bfd_set_arch_mach (obfd, iarch, imach)
212a3c4d
L		 1721 && (ibfd->target_defaulted
1722 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
f57a841a
NC		 1723 {
1724 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
77f762d6
L		 1725 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1726 bfd_get_archive_filename (ibfd));
f57a841a 1727 else
c1e2cb9d 1728 non_fatal (_("Output file cannot represent architecture `%s'"),
77f762d6
L		 1729 bfd_printable_arch_mach (bfd_get_arch (ibfd),
1730 bfd_get_mach (ibfd)));
1731 return FALSE;
f57a841a 1732 }
57938635 1733
252b5132 1734 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 1735 {
8d8e0703 1736 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 1737 return FALSE;
1738 }
252b5132 1739
92dd4511
L		 1740 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
1741 && bfd_pei_p (obfd))
1742 {
1743 /* Set up PE parameters. */
1744 pe_data_type *pe = pe_data (obfd);
1745
325c681d
L		 1746 /* Copy PE parameters before changing them. */
1747 if (ibfd->xvec->flavour == bfd_target_coff_flavour
1748 && bfd_pei_p (ibfd))
1749 pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
1750
92dd4511
L		 1751 if (pe_file_alignment != (bfd_vma) -1)
1752 pe->pe_opthdr.FileAlignment = pe_file_alignment;
1753 else
1754 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
1755
1756 if (pe_heap_commit != (bfd_vma) -1)
1757 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
1758
1759 if (pe_heap_reserve != (bfd_vma) -1)
1760 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
1761
1762 if (pe_image_base != (bfd_vma) -1)
1763 pe->pe_opthdr.ImageBase = pe_image_base;
1764
1765 if (pe_section_alignment != (bfd_vma) -1)
1766 pe->pe_opthdr.SectionAlignment = pe_section_alignment;
1767 else
1768 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
1769
1770 if (pe_stack_commit != (bfd_vma) -1)
1771 pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
1772
1773 if (pe_stack_reserve != (bfd_vma) -1)
1774 pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
1775
1776 if (pe_subsystem != -1)
1777 pe->pe_opthdr.Subsystem = pe_subsystem;
1778
1779 if (pe_major_subsystem_version != -1)
1780 pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
1781
1782 if (pe_minor_subsystem_version != -1)
1783 pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
1784
1785 if (pe_file_alignment > pe_section_alignment)
1786 {
1787 char file_alignment[20], section_alignment[20];
1788
1789 sprintf_vma (file_alignment, pe_file_alignment);
1790 sprintf_vma (section_alignment, pe_section_alignment);
1791 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
1792
1793 file_alignment, section_alignment);
1794 }
1795 }
1796
252b5132 1797 if (isympp)
62d732f5 1798 free (isympp);
57938635 1799
252b5132 1800 if (osympp != isympp)
62d732f5
AM		 1801 free (osympp);
1802
1803 isympp = NULL;
1804 osympp = NULL;
252b5132 1805
c39ada54
AM		 1806 symsize = bfd_get_symtab_upper_bound (ibfd);
1807 if (symsize < 0)
1808 {
8d8e0703 1809 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 1810 return FALSE;
1811 }
1812
3f5e193b 1813 osympp = isympp = (asymbol **) xmalloc (symsize);
c39ada54
AM		 1814 symcount = bfd_canonicalize_symtab (ibfd, isympp);
1815 if (symcount < 0)
1816 {
2db6cde7 1817 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 1818 return FALSE;
1819 }
063bb025
NC		 1820 /* PR 17512: file: d6323821
1821 If the symbol table could not be loaded do not pretend that we have
1822 any symbols. This trips us up later on when we load the relocs. */
1823 if (symcount == 0)
1824 {
1825 free (isympp);
1826 osympp = isympp = NULL;
1827 }
c39ada54 1828
252b5132
RH		 1829 /* BFD mandates that all output sections be created and sizes set before
1830 any output is done. Thus, we traverse all sections multiple times. */
d3ba0551 1831 bfd_map_over_sections (ibfd, setup_section, obfd);
252b5132 1832
237dcb53
AM		 1833 if (!extract_symbol)
1834 setup_bfd_headers (ibfd, obfd);
80fccad2 1835
252b5132
RH		 1836 if (add_sections != NULL)
1837 {
1838 struct section_add *padd;
1839 struct section_list *pset;
1840
1841 for (padd = add_sections; padd != NULL; padd = padd->next)
1842 {
2593f09a
NC		 1843 flagword flags;
1844
2e62b721
NC		 1845 pset = find_section_list (padd->name, FALSE,
1846 SECTION_CONTEXT_SET_FLAGS);
551b43fd 1847 if (pset != NULL)
551b43fd 1848 flags = pset->flags | SEC_HAS_CONTENTS;
2e62b721
NC		 1849 else
1850 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
551b43fd 1851
c8782eee
NC		 1852 /* bfd_make_section_with_flags() does not return very helpful
1853 error codes, so check for the most likely user error first. */
1854 if (bfd_get_section_by_name (obfd, padd->name))
252b5132 1855 {
2db6cde7
NS		 1856 bfd_nonfatal_message (NULL, obfd, NULL,
1857 _("can't add section '%s'"), padd->name);
950d48e7 1858 return FALSE;
252b5132 1859 }
c8782eee
NC		 1860 else
1861 {
0930eddd
NS		 1862 /* We use LINKER_CREATED here so that the backend hooks
1863 will create any special section type information,
1864 instead of presuming we know what we're doing merely
1865 because we set the flags. */
1866 padd->section = bfd_make_section_with_flags
1867 (obfd, padd->name, flags | SEC_LINKER_CREATED);
c8782eee
NC		 1868 if (padd->section == NULL)
1869 {
2db6cde7
NS		 1870 bfd_nonfatal_message (NULL, obfd, NULL,
1871 _("can't create section `%s'"),
1872 padd->name);
c8782eee
NC		 1873 return FALSE;
1874 }
1875 }
252b5132 1876
2593f09a 1877 if (! bfd_set_section_size (obfd, padd->section, padd->size))
950d48e7 1878 {
2db6cde7 1879 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 1880 return FALSE;
1881 }
252b5132 1882
2e62b721
NC		 1883 pset = find_section_list (padd->name, FALSE,
1884 SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA);
1885 if (pset != NULL
1886 && ! bfd_set_section_vma (obfd, padd->section, pset->vma_val))
1887 {
1888 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
1889 return FALSE;
1890 }
1891
1892 pset = find_section_list (padd->name, FALSE,
1893 SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA);
2593f09a
NC		 1894 if (pset != NULL)
1895 {
2e62b721 1896 padd->section->lma = pset->lma_val;
57938635 1897
2e62b721
NC		 1898 if (! bfd_set_section_alignment
1899 (obfd, padd->section,
1900 bfd_section_alignment (obfd, padd->section)))
2593f09a 1901 {
2e62b721
NC		 1902 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
1903 return FALSE;
252b5132
RH		 1904 }
1905 }
1906 }
1907 }
1908
acf1419f
AB		 1909 if (update_sections != NULL)
1910 {
1911 struct section_add *pupdate;
1912
1913 for (pupdate = update_sections;
1914 pupdate != NULL;
1915 pupdate = pupdate->next)
1916 {
1917 asection *osec;
1918
1919 pupdate->section = bfd_get_section_by_name (ibfd, pupdate->name);
1920 if (pupdate->section == NULL)
cfad8730
NC		 1921 {
1922 non_fatal (_("error: %s not found, can't be updated"), pupdate->name);
1923 return FALSE;
1924 }
acf1419f
AB		 1925
1926 osec = pupdate->section->output_section;
1927 if (! bfd_set_section_size (obfd, osec, pupdate->size))
1928 {
1929 bfd_nonfatal_message (NULL, obfd, osec, NULL);
1930 return FALSE;
1931 }
1932 }
1933 }
1934
bbad633b
NC		 1935 if (dump_sections != NULL)
1936 {
1937 struct section_add * pdump;
1938
1939 for (pdump = dump_sections; pdump != NULL; pdump = pdump->next)
1940 {
1941 asection * sec;
1942
1943 sec = bfd_get_section_by_name (ibfd, pdump->name);
1944 if (sec == NULL)
1945 {
1946 bfd_nonfatal_message (NULL, ibfd, NULL,
1947 _("can't dump section '%s' - it does not exist"),
1948 pdump->name);
1949 continue;
1950 }
1951
1952 if ((bfd_get_section_flags (ibfd, sec) & SEC_HAS_CONTENTS) == 0)
1953 {
1954 bfd_nonfatal_message (NULL, ibfd, sec,
1955 _("can't dump section - it has no contents"));
1956 continue;
1957 }
1958
1959 bfd_size_type size = bfd_get_section_size (sec);
1960 if (size == 0)
1961 {
1962 bfd_nonfatal_message (NULL, ibfd, sec,
1963 _("can't dump section - it is empty"));
1964 continue;
1965 }
1966
1967 FILE * f;
1968 f = fopen (pdump->filename, FOPEN_WB);
1969 if (f == NULL)
1970 {
1971 bfd_nonfatal_message (pdump->filename, NULL, NULL,
1972 _("could not open section dump file"));
1973 continue;
1974 }
1975
1976 bfd_byte * contents = xmalloc (size);
1977 if (bfd_get_section_contents (ibfd, sec, contents, 0, size))
182a105a
AG		 1978 {
1979 if (fwrite (contents, 1, size, f) != size)
cfad8730
NC		 1980 {
1981 non_fatal (_("error writing section contents to %s (error: %s)"),
1982 pdump->filename,
1983 strerror (errno));
1984 return FALSE;
1985 }
182a105a 1986 }
bbad633b
NC		 1987 else
1988 bfd_nonfatal_message (NULL, ibfd, sec,
1989 _("could not retrieve section contents"));
1990
1991 fclose (f);
1992 free (contents);
1993 }
1994 }
1995
2593f09a
NC		 1996 if (gnu_debuglink_filename != NULL)
1997 {
d99b05a3
NC		 1998 /* PR 15125: Give a helpful warning message if
1999 the debuglink section already exists, and
2000 allow the rest of the copy to complete. */
2001 if (bfd_get_section_by_name (obfd, ".gnu_debuglink"))
950d48e7 2002 {
d99b05a3
NC		 2003 non_fatal (_("%s: debuglink section already exists"),
2004 bfd_get_filename (obfd));
2005 gnu_debuglink_filename = NULL;
950d48e7 2006 }
d99b05a3 2007 else
6e2c86ac 2008 {
d99b05a3
NC		 2009 gnu_debuglink_section = bfd_create_gnu_debuglink_section
2010 (obfd, gnu_debuglink_filename);
2011
2012 if (gnu_debuglink_section == NULL)
2013 {
2014 bfd_nonfatal_message (NULL, obfd, NULL,
2015 _("cannot create debug link section `%s'"),
2016 gnu_debuglink_filename);
2017 return FALSE;
2018 }
6e2c86ac 2019
d99b05a3
NC		 2020 /* Special processing for PE format files. We
2021 have no way to distinguish PE from COFF here. */
2022 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
2023 {
2024 bfd_vma debuglink_vma;
2025 asection * highest_section;
2026 asection * sec;
2027
2028 /* The PE spec requires that all sections be adjacent and sorted
2029 in ascending order of VMA. It also specifies that debug
2030 sections should be last. This is despite the fact that debug
2031 sections are not loaded into memory and so in theory have no
2032 use for a VMA.
2033
2034 This means that the debuglink section must be given a non-zero
2035 VMA which makes it contiguous with other debug sections. So
2036 walk the current section list, find the section with the
2037 highest VMA and start the debuglink section after that one. */
2038 for (sec = obfd->sections, highest_section = NULL;
2039 sec != NULL;
2040 sec = sec->next)
2041 if (sec->vma > 0
2042 && (highest_section == NULL
2043 || sec->vma > highest_section->vma))
2044 highest_section = sec;
2045
2046 if (highest_section)
2047 debuglink_vma = BFD_ALIGN (highest_section->vma
2048 + highest_section->size,
2049 /* FIXME: We ought to be using
2050 COFF_PAGE_SIZE here or maybe
2051 bfd_get_section_alignment() (if it
2052 was set) but since this is for PE
2053 and we know the required alignment
2054 it is easier just to hard code it. */
2055 0x1000);
2056 else
2057 /* Umm, not sure what to do in this case. */
2058 debuglink_vma = 0x1000;
2059
2060 bfd_set_section_vma (obfd, gnu_debuglink_section, debuglink_vma);
2061 }
6e2c86ac 2062 }
950d48e7
NC		 2063 }
2064
1aa9ef63
L		 2065 if (bfd_count_sections (obfd) != 0
2066 && (gap_fill_set || pad_to_set))
252b5132
RH		 2067 {
2068 asection **set;
2069 unsigned int c, i;
2070
2071 /* We must fill in gaps between the sections and/or we must pad
2072 the last section to a specified address. We do this by
2073 grabbing a list of the sections, sorting them by VMA, and
2074 increasing the section sizes as required to fill the gaps.
2075 We write out the gap contents below. */
2076
2077 c = bfd_count_sections (obfd);
3f5e193b 2078 osections = (asection **) xmalloc (c * sizeof (asection *));
252b5132 2079 set = osections;
d3ba0551 2080 bfd_map_over_sections (obfd, get_sections, &set);
252b5132
RH		 2081
2082 qsort (osections, c, sizeof (asection *), compare_section_lma);
2083
3f5e193b 2084 gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
252b5132
RH		 2085 memset (gaps, 0, c * sizeof (bfd_size_type));
2086
2087 if (gap_fill_set)
2088 {
2089 for (i = 0; i < c - 1; i++)
2090 {
2091 flagword flags;
2092 bfd_size_type size;
2093 bfd_vma gap_start, gap_stop;
2094
2095 flags = bfd_get_section_flags (obfd, osections[i]);
2096 if ((flags & SEC_HAS_CONTENTS) == 0
2097 || (flags & SEC_LOAD) == 0)
2098 continue;
2099
2100 size = bfd_section_size (obfd, osections[i]);
2101 gap_start = bfd_section_lma (obfd, osections[i]) + size;
2102 gap_stop = bfd_section_lma (obfd, osections[i + 1]);
2103 if (gap_start < gap_stop)
2104 {
2105 if (! bfd_set_section_size (obfd, osections[i],
2106 size + (gap_stop - gap_start)))
2107 {
2db6cde7
NS		 2108 bfd_nonfatal_message (NULL, obfd, osections[i],
2109 _("Can't fill gap after section"));
252b5132
RH		 2110 status = 1;
2111 break;
2112 }
2113 gaps[i] = gap_stop - gap_start;
2114 if (max_gap < gap_stop - gap_start)
2115 max_gap = gap_stop - gap_start;
2116 }
2117 }
2118 }
2119
2120 if (pad_to_set)
2121 {
2122 bfd_vma lma;
2123 bfd_size_type size;
2124
2125 lma = bfd_section_lma (obfd, osections[c - 1]);
2126 size = bfd_section_size (obfd, osections[c - 1]);
2127 if (lma + size < pad_to)
2128 {
2129 if (! bfd_set_section_size (obfd, osections[c - 1],
2130 pad_to - lma))
2131 {
2db6cde7
NS		 2132 bfd_nonfatal_message (NULL, obfd, osections[c - 1],
2133 _("can't add padding"));
252b5132
RH		 2134 status = 1;
2135 }
2136 else
2137 {
2138 gaps[c - 1] = pad_to - (lma + size);
2139 if (max_gap < pad_to - (lma + size))
2140 max_gap = pad_to - (lma + size);
2141 }
2142 }
2143 }
2144 }
2145
594ef5db
NC		 2146 /* Symbol filtering must happen after the output sections
2147 have been created, but before their contents are set. */
252b5132 2148 dhandle = NULL;
252b5132 2149 if (convert_debugging)
b922d590 2150 dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
57938635
AM		 2151
2152 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 2153 || strip_symbols == STRIP_ALL
2154 || strip_symbols == STRIP_UNNEEDED
ed1653a7 2155 || strip_symbols == STRIP_NONDEBUG
96109726
CC		 2156 || strip_symbols == STRIP_DWO
2157 || strip_symbols == STRIP_NONDWO
252b5132 2158 || discard_locals != LOCALS_UNDEF
d58c2e3a 2159 || localize_hidden
047c9024
NC		 2160 || htab_elements (strip_specific_htab) != 0
2161 || htab_elements (keep_specific_htab) != 0
2162 || htab_elements (localize_specific_htab) != 0
2163 || htab_elements (globalize_specific_htab) != 0
2164 || htab_elements (keepglobal_specific_htab) != 0
2165 || htab_elements (weaken_specific_htab) != 0
d7fb0dd2 2166 || prefix_symbols_string
252b5132 2167 || sections_removed
f91ea849 2168 || sections_copied
252b5132
RH		 2169 || convert_debugging
2170 || change_leading_char
2171 || remove_leading_char
57938635 2172 || redefine_sym_list
252b5132
RH		 2173 || weaken)
2174 {
2175 /* Mark symbols used in output relocations so that they
2176 are kept, even if they are local labels or static symbols.
57938635 2177
252b5132
RH		 2178 Note we iterate over the input sections examining their
2179 relocations since the relocations for the output sections
2180 haven't been set yet. mark_symbols_used_in_relocations will
2181 ignore input sections which have no corresponding output
2182 section. */
2183 if (strip_symbols != STRIP_ALL)
2184 bfd_map_over_sections (ibfd,
2185 mark_symbols_used_in_relocations,
d3ba0551 2186 isympp);
3f5e193b 2187 osympp = (asymbol **) xmalloc ((symcount + 1) * sizeof (asymbol *));
252b5132
RH		 2188 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
2189 }
2190
2191 if (convert_debugging && dhandle != NULL)
2192 {
2193 if (! write_debugging_info (obfd, dhandle, &symcount, &osympp))
2194 {
2195 status = 1;
950d48e7 2196 return FALSE;
252b5132
RH		 2197 }
2198 }
2199
2200 bfd_set_symtab (obfd, osympp, symcount);
2201
c3989150
L		 2202 /* This has to happen before section positions are set. */
2203 bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
2204
252b5132 2205 /* This has to happen after the symbol table has been set. */
d3ba0551 2206 bfd_map_over_sections (ibfd, copy_section, obfd);
252b5132
RH		 2207
2208 if (add_sections != NULL)
2209 {
2210 struct section_add *padd;
2211
2212 for (padd = add_sections; padd != NULL; padd = padd->next)
2213 {
d3ba0551
AM		 2214 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
2215 0, padd->size))
950d48e7 2216 {
2db6cde7 2217 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 2218 return FALSE;
2219 }
252b5132
RH		 2220 }
2221 }
2222
acf1419f
AB		 2223 if (update_sections != NULL)
2224 {
2225 struct section_add *pupdate;
2226
2227 for (pupdate = update_sections;
2228 pupdate != NULL;
2229 pupdate = pupdate->next)
2230 {
2231 asection *osec;
2232
2233 osec = pupdate->section->output_section;
2234 if (! bfd_set_section_contents (obfd, osec, pupdate->contents,
2235 0, pupdate->size))
2236 {
2237 bfd_nonfatal_message (NULL, obfd, osec, NULL);
2238 return FALSE;
2239 }
2240 }
2241 }
2242
e7c81c25
NC		 2243 if (gnu_debuglink_filename != NULL)
2244 {
2245 if (! bfd_fill_in_gnu_debuglink_section
2246 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
950d48e7 2247 {
2db6cde7
NS		 2248 bfd_nonfatal_message (NULL, obfd, NULL,
2249 _("cannot fill debug link section `%s'"),
2250 gnu_debuglink_filename);
950d48e7
NC		 2251 return FALSE;
2252 }
e7c81c25
NC		 2253 }
2254
252b5132
RH		 2255 if (gap_fill_set || pad_to_set)
2256 {
2257 bfd_byte *buf;
2258 int c, i;
2259
2260 /* Fill in the gaps. */
252b5132
RH		 2261 if (max_gap > 8192)
2262 max_gap = 8192;
3f5e193b 2263 buf = (bfd_byte *) xmalloc (max_gap);
d3ba0551 2264 memset (buf, gap_fill, max_gap);
252b5132
RH		 2265
2266 c = bfd_count_sections (obfd);
2267 for (i = 0; i < c; i++)
2268 {
2269 if (gaps[i] != 0)
2270 {
2271 bfd_size_type left;
2272 file_ptr off;
2273
2274 left = gaps[i];
2275 off = bfd_section_size (obfd, osections[i]) - left;
594ef5db 2276
252b5132
RH		 2277 while (left > 0)
2278 {
2279 bfd_size_type now;
2280
2281 if (left > 8192)
2282 now = 8192;
2283 else
2284 now = left;
2285
2286 if (! bfd_set_section_contents (obfd, osections[i], buf,
2287 off, now))
950d48e7 2288 {
2db6cde7 2289 bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
950d48e7
NC		 2290 return FALSE;
2291 }
252b5132
RH		 2292
2293 left -= now;
2294 off += now;
2295 }
2296 }
2297 }
2298 }
2299
d3e52d40
RS		 2300 /* Do not copy backend data if --extract-symbol is passed; anything
2301 that needs to look at the section contents will fail. */
2302 if (extract_symbol)
2303 return TRUE;
2304
252b5132
RH		 2305 /* Allow the BFD backend to copy any private data it understands
2306 from the input BFD to the output BFD. This is done last to
2307 permit the routine to look at the filtered symbol table, which is
2308 important for the ECOFF code at least. */
42bb2e33 2309 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132 2310 {
2db6cde7
NS		 2311 bfd_nonfatal_message (NULL, obfd, NULL,
2312 _("error copying private BFD data"));
950d48e7 2313 return FALSE;
252b5132 2314 }
1ae8b3d2
AO		 2315
2316 /* Switch to the alternate machine code. We have to do this at the
2317 very end, because we only initialize the header when we create
2318 the first section. */
f9d4ad2a
NC		 2319 if (use_alt_mach_code != 0)
2320 {
2321 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
2322 {
2323 non_fatal (_("this target does not support %lu alternative machine codes"),
2324 use_alt_mach_code);
2325 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2326 {
2327 non_fatal (_("treating that number as an absolute e_machine value instead"));
2328 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
2329 }
2330 else
2331 non_fatal (_("ignoring the alternative value"));
2332 }
2333 }
950d48e7
NC		 2334
2335 return TRUE;
252b5132
RH		 2336}
2337
2338/* Read each archive element in turn from IBFD, copy the
ee873e00
NC		 2339 contents to temp file, and keep the temp file handle.
2340 If 'force_output_target' is TRUE then make sure that
2341 all elements in the new archive are of the type
2342 'output_target'. */
252b5132
RH		 2343
2344static void
ee873e00 2345copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
8b31b6c4
NC		 2346 bfd_boolean force_output_target,
2347 const bfd_arch_info_type *input_arch)
252b5132
RH		 2348{
2349 struct name_list
2350 {
2351 struct name_list *next;
4c168fa3 2352 const char *name;
252b5132
RH		 2353 bfd *obfd;
2354 } *list, *l;
2355 bfd **ptr = &obfd->archive_head;
2356 bfd *this_element;
8d8e0703
AM		 2357 char *dir;
2358 const char *filename;
252b5132
RH		 2359
2360 /* Make a temp directory to hold the contents. */
f9c026a8 2361 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8
NC		 2362 if (dir == NULL)
2363 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2364 strerror (errno));
84e2f313 2365
2e30cb57
CC		 2366 if (strip_symbols == STRIP_ALL)
2367 obfd->has_armap = FALSE;
2368 else
2369 obfd->has_armap = ibfd->has_armap;
a8da6403 2370 obfd->is_thin_archive = ibfd->is_thin_archive;
252b5132 2371
2e30cb57
CC		 2372 if (deterministic)
2373 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
2374
252b5132
RH		 2375 list = NULL;
2376
2377 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 2378
b667df2e 2379 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
8d8e0703
AM		 2380 {
2381 status = 1;
2382 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
cfad8730 2383 goto cleanup_and_exit;
8d8e0703 2384 }
b667df2e 2385
d3ba0551 2386 while (!status && this_element != NULL)
252b5132 2387 {
4c168fa3
AM		 2388 char *output_name;
2389 bfd *output_bfd;
252b5132 2390 bfd *last_element;
8066d1a2
AS		 2391 struct stat buf;
2392 int stat_status = 0;
3f5e193b 2393 bfd_boolean del = TRUE;
19094d10 2394 bfd_boolean ok_object;
8066d1a2 2395
dd9b91de
NC		 2396 /* PR binutils/17533: Do not allow directory traversal
2397 outside of the current directory tree by archive members. */
2398 if (! is_valid_archive_path (bfd_get_filename (this_element)))
5e186ece
NC		 2399 {
2400 non_fatal (_("illegal pathname found in archive member: %s"),
2401 bfd_get_filename (this_element));
2402 status = 1;
2403 goto cleanup_and_exit;
2404 }
dd9b91de 2405
4c168fa3
AM		 2406 /* Create an output file for this member. */
2407 output_name = concat (dir, "/",
2408 bfd_get_filename (this_element), (char *) 0);
2409
2410 /* If the file already exists, make another temp dir. */
2411 if (stat (output_name, &buf) >= 0)
2412 {
f9c026a8
NC		 2413 output_name = make_tempdir (output_name);
2414 if (output_name == NULL)
5e186ece
NC		 2415 {
2416 non_fatal (_("cannot create tempdir for archive copying (error: %s)"),
2417 strerror (errno));
2418 status = 1;
2419 goto cleanup_and_exit;
2420 }
84e2f313 2421
3f5e193b 2422 l = (struct name_list *) xmalloc (sizeof (struct name_list));
4c168fa3
AM		 2423 l->name = output_name;
2424 l->next = list;
2425 l->obfd = NULL;
2426 list = l;
2427 output_name = concat (output_name, "/",
2428 bfd_get_filename (this_element), (char *) 0);
2429 }
2430
8066d1a2
AS		 2431 if (preserve_dates)
2432 {
2433 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 2434
8066d1a2
AS		 2435 if (stat_status != 0)
2436 non_fatal (_("internal stat error on %s"),
2437 bfd_get_filename (this_element));
2438 }
252b5132 2439
3f5e193b 2440 l = (struct name_list *) xmalloc (sizeof (struct name_list));
252b5132
RH		 2441 l->name = output_name;
2442 l->next = list;
bee59fd2 2443 l->obfd = NULL;
252b5132
RH		 2444 list = l;
2445
19094d10
AM		 2446 ok_object = bfd_check_format (this_element, bfd_object);
2447 if (!ok_object)
2448 bfd_nonfatal_message (NULL, this_element, NULL,
2449 _("Unable to recognise the format of file"));
2450
2451 /* PR binutils/3110: Cope with archives
2452 containing multiple target types. */
2453 if (force_output_target || !ok_object)
2454 output_bfd = bfd_openw (output_name, output_target);
2455 else
2456 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
2457
2458 if (output_bfd == NULL)
77f762d6 2459 {
19094d10
AM		 2460 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
2461 status = 1;
5e186ece 2462 goto cleanup_and_exit;
19094d10
AM		 2463 }
2464
2465 if (ok_object)
2466 {
2467 del = !copy_object (this_element, output_bfd, input_arch);
ee873e00 2468
19094d10
AM		 2469 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
2470 /* Try again as an unknown object file. */
2471 ok_object = FALSE;
2472 else if (!bfd_close (output_bfd))
2db6cde7
NS		 2473 {
2474 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
19094d10 2475 /* Error in new object file. Don't change archive. */
2db6cde7 2476 status = 1;
77f762d6 2477 }
77f762d6 2478 }
77f762d6 2479
19094d10
AM		 2480 if (!ok_object)
2481 {
3f5e193b 2482 del = !copy_unknown_object (this_element, output_bfd);
77f762d6
L		 2483 if (!bfd_close_all_done (output_bfd))
2484 {
8d8e0703 2485 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
77f762d6
L		 2486 /* Error in new object file. Don't change archive. */
2487 status = 1;
2488 }
252b5132
RH		 2489 }
2490
3f5e193b 2491 if (del)
950d48e7
NC		 2492 {
2493 unlink (output_name);
2494 status = 1;
2495 }
2496 else
2497 {
2498 if (preserve_dates && stat_status == 0)
2499 set_times (output_name, &buf);
8066d1a2 2500
950d48e7
NC		 2501 /* Open the newly output file and attach to our list. */
2502 output_bfd = bfd_openr (output_name, output_target);
252b5132 2503
950d48e7 2504 l->obfd = output_bfd;
252b5132 2505
950d48e7 2506 *ptr = output_bfd;
cc481421 2507 ptr = &output_bfd->archive_next;
252b5132 2508
950d48e7 2509 last_element = this_element;
252b5132 2510
950d48e7 2511 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 2512
950d48e7
NC		 2513 bfd_close (last_element);
2514 }
252b5132 2515 }
d3ba0551 2516 *ptr = NULL;
252b5132 2517
8d8e0703 2518 filename = bfd_get_filename (obfd);
252b5132 2519 if (!bfd_close (obfd))
8d8e0703
AM		 2520 {
2521 status = 1;
2522 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 2523 }
252b5132 2524
8d8e0703 2525 filename = bfd_get_filename (ibfd);
252b5132 2526 if (!bfd_close (ibfd))
8d8e0703
AM		 2527 {
2528 status = 1;
2529 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 2530 }
252b5132 2531
5e186ece 2532 cleanup_and_exit:
252b5132
RH		 2533 /* Delete all the files that we opened. */
2534 for (l = list; l != NULL; l = l->next)
2535 {
4c168fa3
AM		 2536 if (l->obfd == NULL)
2537 rmdir (l->name);
2538 else
2539 {
2540 bfd_close (l->obfd);
2541 unlink (l->name);
2542 }
252b5132 2543 }
cfad8730 2544
252b5132
RH		 2545 rmdir (dir);
2546}
2547
0408dee6
DK		 2548static void
2549set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
2550{
2551 /* This is only relevant to Coff targets. */
2552 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
2553 {
78e82dc3
AM		 2554 if (style == KEEP
2555 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
0408dee6
DK		 2556 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
2557 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
2558 }
2559}
2560
252b5132
RH		 2561/* The top-level control. */
2562
2563static void
84e2f313 2564copy_file (const char *input_filename, const char *output_filename,
8b31b6c4
NC		 2565 const char *input_target, const char *output_target,
2566 const bfd_arch_info_type *input_arch)
252b5132
RH		 2567{
2568 bfd *ibfd;
49c12576
AM		 2569 char **obj_matching;
2570 char **core_matching;
52a476ee 2571 off_t size = get_file_size (input_filename);
252b5132 2572
52a476ee 2573 if (size < 1)
f24ddbdd 2574 {
52a476ee
L		 2575 if (size == 0)
2576 non_fatal (_("error: the input file '%s' is empty"),
2577 input_filename);
f24ddbdd
NC		 2578 status = 1;
2579 return;
2580 }
2581
252b5132
RH		 2582 /* To allow us to do "strip *" without dying on the first
2583 non-object file, failures are nonfatal. */
252b5132
RH		 2584 ibfd = bfd_openr (input_filename, input_target);
2585 if (ibfd == NULL)
2db6cde7
NS		 2586 {
2587 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2588 status = 1;
2589 return;
2590 }
252b5132 2591
4a114e3e
L		 2592 switch (do_debug_sections)
2593 {
2594 case compress:
151411f8
L		 2595 case compress_zlib:
2596 case compress_gnu_zlib:
2597 case compress_gabi_zlib:
4a114e3e 2598 ibfd->flags |= BFD_COMPRESS;
151411f8
L		 2599 if (do_debug_sections != compress)
2600 {
2601 if (ibfd->xvec->flavour != bfd_target_elf_flavour)
2602 fatal (_("--compress-debug-sections=[zlib|zlib-gnu|zlib-gabi] is unsupported for `%s'"),
2603 bfd_get_target (ibfd));
2604 if (do_debug_sections == compress_gabi_zlib)
2605 ibfd->flags |= BFD_COMPRESS_GABI;
2606 }
4a114e3e
L		 2607 break;
2608 case decompress:
2609 ibfd->flags |= BFD_DECOMPRESS;
2610 break;
2611 default:
2612 break;
2613 }
2614
252b5132
RH		 2615 if (bfd_check_format (ibfd, bfd_archive))
2616 {
ee873e00 2617 bfd_boolean force_output_target;
252b5132
RH		 2618 bfd *obfd;
2619
2620 /* bfd_get_target does not return the correct value until
2621 bfd_check_format succeeds. */
2622 if (output_target == NULL)
ee873e00
NC		 2623 {
2624 output_target = bfd_get_target (ibfd);
2625 force_output_target = FALSE;
2626 }
2627 else
2628 force_output_target = TRUE;
252b5132
RH		 2629
2630 obfd = bfd_openw (output_filename, output_target);
2631 if (obfd == NULL)
2db6cde7
NS		 2632 {
2633 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2634 status = 1;
2635 return;
2636 }
0408dee6
DK		 2637 /* This is a no-op on non-Coff targets. */
2638 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2639
8b31b6c4 2640 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
252b5132 2641 }
49c12576 2642 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH		 2643 {
2644 bfd *obfd;
49c12576 2645 do_copy:
950d48e7 2646
252b5132
RH		 2647 /* bfd_get_target does not return the correct value until
2648 bfd_check_format succeeds. */
2649 if (output_target == NULL)
2650 output_target = bfd_get_target (ibfd);
2651
2652 obfd = bfd_openw (output_filename, output_target);
2653 if (obfd == NULL)
2db6cde7
NS		 2654 {
2655 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2656 status = 1;
2657 return;
2658 }
0408dee6
DK		 2659 /* This is a no-op on non-Coff targets. */
2660 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 2661
8b31b6c4 2662 if (! copy_object (ibfd, obfd, input_arch))
a580b8e0 2663 status = 1;
252b5132 2664
063bb025
NC		 2665 /* PR 17512: file: 0f15796a.
2666 If the file could not be copied it may not be in a writeable
2667 state. So use bfd_close_all_done to avoid the possibility of
2668 writing uninitialised data into the file. */
2669 if (! (status ? bfd_close_all_done (obfd) : bfd_close (obfd)))
8d8e0703
AM		 2670 {
2671 status = 1;
2672 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
2673 return;
2674 }
252b5132
RH		 2675
2676 if (!bfd_close (ibfd))
8d8e0703
AM		 2677 {
2678 status = 1;
2679 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
2680 return;
2681 }
252b5132
RH		 2682 }
2683 else
2684 {
49c12576
AM		 2685 bfd_error_type obj_error = bfd_get_error ();
2686 bfd_error_type core_error;
b34976b6 2687
49c12576
AM		 2688 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
2689 {
2690 /* This probably can't happen.. */
2691 if (obj_error == bfd_error_file_ambiguously_recognized)
2692 free (obj_matching);
2693 goto do_copy;
2694 }
2695
2696 core_error = bfd_get_error ();
2697 /* Report the object error in preference to the core error. */
2698 if (obj_error != core_error)
2699 bfd_set_error (obj_error);
2700
2db6cde7 2701 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
57938635 2702
49c12576
AM		 2703 if (obj_error == bfd_error_file_ambiguously_recognized)
2704 {
2705 list_matching_formats (obj_matching);
2706 free (obj_matching);
2707 }
2708 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 2709 {
49c12576
AM		 2710 list_matching_formats (core_matching);
2711 free (core_matching);
252b5132 2712 }
57938635 2713
252b5132
RH		 2714 status = 1;
2715 }
2716}
2717
594ef5db
NC		 2718/* Add a name to the section renaming list. */
2719
2720static void
84e2f313
NC		 2721add_section_rename (const char * old_name, const char * new_name,
2722 flagword flags)
594ef5db 2723{
91d6fa6a 2724 section_rename * srename;
594ef5db
NC		 2725
2726 /* Check for conflicts first. */
91d6fa6a
NC		 2727 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2728 if (strcmp (srename->old_name, old_name) == 0)
594ef5db
NC		 2729 {
2730 /* Silently ignore duplicate definitions. */
91d6fa6a
NC		 2731 if (strcmp (srename->new_name, new_name) == 0
2732 && srename->flags == flags)
594ef5db 2733 return;
0af11b59 2734
594ef5db
NC		 2735 fatal (_("Multiple renames of section %s"), old_name);
2736 }
2737
91d6fa6a 2738 srename = (section_rename *) xmalloc (sizeof (* srename));
594ef5db 2739
91d6fa6a
NC		 2740 srename->old_name = old_name;
2741 srename->new_name = new_name;
2742 srename->flags = flags;
2743 srename->next = section_rename_list;
0af11b59 2744
91d6fa6a 2745 section_rename_list = srename;
594ef5db
NC		 2746}
2747
2748/* Check the section rename list for a new name of the input section
2749 ISECTION. Return the new name if one is found.
2750 Also set RETURNED_FLAGS to the flags to be used for this section. */
2751
2752static const char *
84e2f313
NC		 2753find_section_rename (bfd * ibfd ATTRIBUTE_UNUSED, sec_ptr isection,
2754 flagword * returned_flags)
594ef5db
NC		 2755{
2756 const char * old_name = bfd_section_name (ibfd, isection);
91d6fa6a 2757 section_rename * srename;
594ef5db
NC		 2758
2759 /* Default to using the flags of the input section. */
2760 * returned_flags = bfd_get_section_flags (ibfd, isection);
2761
91d6fa6a
NC		 2762 for (srename = section_rename_list; srename != NULL; srename = srename->next)
2763 if (strcmp (srename->old_name, old_name) == 0)
594ef5db 2764 {
91d6fa6a
NC		 2765 if (srename->flags != (flagword) -1)
2766 * returned_flags = srename->flags;
594ef5db 2767
91d6fa6a 2768 return srename->new_name;
594ef5db
NC		 2769 }
2770
2771 return old_name;
2772}
2773
80fccad2
BW		 2774/* Once each of the sections is copied, we may still need to do some
2775 finalization work for private section headers. Do that here. */
2776
2777static void
2778setup_bfd_headers (bfd *ibfd, bfd *obfd)
2779{
80fccad2
BW		 2780 /* Allow the BFD backend to copy any private data it understands
2781 from the input section to the output section. */
2782 if (! bfd_copy_private_header_data (ibfd, obfd))
2783 {
2db6cde7
NS		 2784 status = 1;
2785 bfd_nonfatal_message (NULL, ibfd, NULL,
8d8e0703 2786 _("error in private header data"));
2db6cde7 2787 return;
80fccad2
BW		 2788 }
2789
2790 /* All went well. */
2791 return;
80fccad2
BW		 2792}
2793
594ef5db
NC		 2794/* Create a section in OBFD with the same
2795 name and attributes as ISECTION in IBFD. */
252b5132
RH		 2796
2797static void
84e2f313 2798setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 2799{
3f5e193b 2800 bfd *obfd = (bfd *) obfdarg;
252b5132
RH		 2801 struct section_list *p;
2802 sec_ptr osection;
2803 bfd_size_type size;
2804 bfd_vma vma;
2805 bfd_vma lma;
2806 flagword flags;
1a89cc7d 2807 const char *err;
594ef5db 2808 const char * name;
d7fb0dd2 2809 char *prefix = NULL;
66125551 2810 bfd_boolean make_nobits;
0af11b59 2811
2593f09a 2812 if (is_strip_section (ibfd, isection))
252b5132
RH		 2813 return;
2814
594ef5db
NC		 2815 /* Get the, possibly new, name of the output section. */
2816 name = find_section_rename (ibfd, isection, & flags);
0af11b59 2817
d7fb0dd2 2818 /* Prefix sections. */
84e2f313
NC		 2819 if ((prefix_alloc_sections_string)
2820 && (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
d7fb0dd2
NC		 2821 prefix = prefix_alloc_sections_string;
2822 else if (prefix_sections_string)
2823 prefix = prefix_sections_string;
2824
2825 if (prefix)
2826 {
2827 char *n;
2828
3f5e193b 2829 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
d7fb0dd2
NC		 2830 strcpy (n, prefix);
2831 strcat (n, name);
2832 name = n;
2833 }
66491ebc 2834
66125551 2835 make_nobits = FALSE;
2e62b721
NC		 2836
2837 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2838 SECTION_CONTEXT_SET_FLAGS);
2839 if (p != NULL)
551b43fd 2840 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 2841 else if (strip_symbols == STRIP_NONDEBUG
6c67a030 2842 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
6e6e7cfc 2843 && !is_nondebug_keep_contents_section (ibfd, isection))
66125551 2844 {
6c67a030 2845 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 2846 if (obfd->xvec->flavour == bfd_target_elf_flavour)
2847 {
2848 make_nobits = TRUE;
2849
2850 /* Twiddle the input section flags so that it seems to
2851 elf.c:copy_private_bfd_data that section flags have not
2852 changed between input and output sections. This hack
2853 prevents wholesale rewriting of the program headers. */
6c67a030 2854 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 2855 }
2856 }
551b43fd
AM		 2857
2858 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 2859
252b5132
RH		 2860 if (osection == NULL)
2861 {
2db6cde7 2862 err = _("failed to create output section");
252b5132
RH		 2863 goto loser;
2864 }
2865
66125551 2866 if (make_nobits)
551b43fd
AM		 2867 elf_section_type (osection) = SHT_NOBITS;
2868
252b5132
RH		 2869 size = bfd_section_size (ibfd, isection);
2870 if (copy_byte >= 0)
b7dd81f7 2871 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS		 2872 else if (extract_symbol)
2873 size = 0;
252b5132
RH		 2874 if (! bfd_set_section_size (obfd, osection, size))
2875 {
2db6cde7 2876 err = _("failed to set size");
252b5132
RH		 2877 goto loser;
2878 }
57938635 2879
252b5132 2880 vma = bfd_section_vma (ibfd, isection);
2e62b721
NC		 2881 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2882 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
2883 if (p != NULL)
2884 {
2885 if (p->context & SECTION_CONTEXT_SET_VMA)
2886 vma = p->vma_val;
2887 else
2888 vma += p->vma_val;
2889 }
252b5132
RH		 2890 else
2891 vma += change_section_address;
57938635 2892
237dcb53 2893 if (! bfd_set_section_vma (obfd, osection, vma))
252b5132 2894 {
2db6cde7 2895 err = _("failed to set vma");
252b5132
RH		 2896 goto loser;
2897 }
2898
2899 lma = isection->lma;
2e62b721
NC		 2900 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2901 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
2902 if (p != NULL)
252b5132 2903 {
2e62b721 2904 if (p->context & SECTION_CONTEXT_ALTER_LMA)
252b5132 2905 lma += p->lma_val;
252b5132 2906 else
2e62b721 2907 lma = p->lma_val;
252b5132
RH		 2908 }
2909 else
2910 lma += change_section_address;
57938635 2911
237dcb53 2912 osection->lma = lma;
252b5132
RH		 2913
2914 /* FIXME: This is probably not enough. If we change the LMA we
2915 may have to recompute the header for the file as well. */
b34976b6
AM		 2916 if (!bfd_set_section_alignment (obfd,
2917 osection,
2918 bfd_section_alignment (ibfd, isection)))
252b5132 2919 {
2db6cde7 2920 err = _("failed to set alignment");
252b5132
RH		 2921 goto loser;
2922 }
2923
bc408b8a
JJ		 2924 /* Copy merge entity size. */
2925 osection->entsize = isection->entsize;
2926
252b5132
RH		 2927 /* This used to be mangle_section; we do here to avoid using
2928 bfd_get_section_by_name since some formats allow multiple
2929 sections with the same name. */
2930 isection->output_section = osection;
237dcb53 2931 isection->output_offset = 0;
d3e52d40
RS		 2932
2933 /* Do not copy backend data if --extract-symbol is passed; anything
2934 that needs to look at the section contents will fail. */
2935 if (extract_symbol)
2936 return;
252b5132 2937
119f4245
AM		 2938 if ((isection->flags & SEC_GROUP) != 0)
2939 {
2940 asymbol *gsym = group_signature (isection);
2941
2942 if (gsym != NULL)
2943 {
2944 gsym->flags |= BSF_KEEP;
2945 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
2946 elf_group_id (isection) = gsym;
2947 }
2948 }
2949
252b5132
RH		 2950 /* Allow the BFD backend to copy any private data it understands
2951 from the input section to the output section. */
42bb2e33 2952 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 2953 {
2db6cde7 2954 err = _("failed to copy private data");
252b5132
RH		 2955 goto loser;
2956 }
2957
594ef5db 2958 /* All went well. */
252b5132
RH		 2959 return;
2960
2961loser:
252b5132 2962 status = 1;
2db6cde7 2963 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH		 2964}
2965
c3989150 2966/* Return TRUE if input section ISECTION should be skipped. */
252b5132 2967
c3989150
L		 2968static bfd_boolean
2969skip_section (bfd *ibfd, sec_ptr isection)
252b5132 2970{
252b5132
RH		 2971 sec_ptr osection;
2972 bfd_size_type size;
dc156bc0 2973 flagword flags;
252b5132 2974
594ef5db
NC		 2975 /* If we have already failed earlier on,
2976 do not keep on generating complaints now. */
252b5132 2977 if (status != 0)
c3989150
L		 2978 return TRUE;
2979
2980 if (extract_symbol)
2981 return TRUE;
57938635 2982
2593f09a 2983 if (is_strip_section (ibfd, isection))
c3989150 2984 return TRUE;
252b5132 2985
acf1419f
AB		 2986 if (is_update_section (ibfd, isection))
2987 return TRUE;
2988
2593f09a 2989 flags = bfd_get_section_flags (ibfd, isection);
dc156bc0 2990 if ((flags & SEC_GROUP) != 0)
c3989150 2991 return TRUE;
dc156bc0 2992
252b5132 2993 osection = isection->output_section;
135dfb4a 2994 size = bfd_get_section_size (isection);
252b5132
RH		 2995
2996 if (size == 0 || osection == 0)
c3989150 2997 return TRUE;
252b5132 2998
c3989150
L		 2999 return FALSE;
3000}
3001
3002/* Copy relocations in input section ISECTION of IBFD to an output
3003 section with the same name in OBFDARG. If stripping then don't
3004 copy any relocation info. */
3005
3006static void
3007copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3008{
3009 bfd *obfd = (bfd *) obfdarg;
3010 long relsize;
3011 arelent **relpp;
3012 long relcount;
3013 sec_ptr osection;
3014
3015 if (skip_section (ibfd, isection))
237dcb53
AM		 3016 return;
3017
c3989150 3018 osection = isection->output_section;
2593f09a 3019
96109726
CC		 3020 /* Core files and DWO files do not need to be relocated. */
3021 if (bfd_get_format (obfd) == bfd_core || strip_symbols == STRIP_NONDWO)
4dd67f29
MS		 3022 relsize = 0;
3023 else
ed570f48
NC		 3024 {
3025 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 3026
ed570f48
NC		 3027 if (relsize < 0)
3028 {
3029 /* Do not complain if the target does not support relocations. */
3030 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3031 relsize = 0;
3032 else
2db6cde7
NS		 3033 {
3034 status = 1;
3035 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3036 return;
3037 }
ed570f48
NC		 3038 }
3039 }
57938635 3040
252b5132 3041 if (relsize == 0)
96109726
CC		 3042 {
3043 bfd_set_reloc (obfd, osection, NULL, 0);
3044 osection->flags &= ~SEC_RELOC;
3045 }
252b5132
RH		 3046 else
3047 {
3f5e193b 3048 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 3049 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
3050 if (relcount < 0)
2db6cde7
NS		 3051 {
3052 status = 1;
3053 bfd_nonfatal_message (NULL, ibfd, isection,
3054 _("relocation count is negative"));
3055 return;
3056 }
57938635 3057
252b5132
RH		 3058 if (strip_symbols == STRIP_ALL)
3059 {
3060 /* Remove relocations which are not in
0af11b59 3061 keep_strip_specific_list. */
252b5132
RH		 3062 arelent **temp_relpp;
3063 long temp_relcount = 0;
3064 long i;
57938635 3065
3f5e193b 3066 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 3067 for (i = 0; i < relcount; i++)
86eafac0
NC		 3068 {
3069 /* PR 17512: file: 9e907e0c. */
3070 if (relpp[i]->sym_ptr_ptr)
3071 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
3072 keep_specific_htab))
3073 temp_relpp [temp_relcount++] = relpp [i];
3074 }
252b5132
RH		 3075 relcount = temp_relcount;
3076 free (relpp);
3077 relpp = temp_relpp;
3078 }
e0c60db2 3079
d3ba0551 3080 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 3081 if (relcount == 0)
c3989150
L		 3082 {
3083 osection->flags &= ~SEC_RELOC;
3084 free (relpp);
3085 }
252b5132 3086 }
c3989150
L		 3087}
3088
3089/* Copy the data of input section ISECTION of IBFD
3090 to an output section with the same name in OBFD. */
3091
3092static void
3093copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3094{
3095 bfd *obfd = (bfd *) obfdarg;
3096 struct section_list *p;
3097 sec_ptr osection;
3098 bfd_size_type size;
3099
3100 if (skip_section (ibfd, isection))
3101 return;
3102
3103 osection = isection->output_section;
3104 size = bfd_get_section_size (isection);
3105
0af11b59 3106 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
4dd67f29 3107 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
252b5132 3108 {
4a114e3e 3109 bfd_byte *memhunk = NULL;
252b5132 3110
4a114e3e 3111 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk))
2db6cde7
NS		 3112 {
3113 status = 1;
3114 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3115 return;
3116 }
252b5132 3117
9e48b4c6
NC		 3118 if (reverse_bytes)
3119 {
3120 /* We don't handle leftover bytes (too many possible behaviors,
3121 and we don't know what the user wants). The section length
3122 must be a multiple of the number of bytes to swap. */
3123 if ((size % reverse_bytes) == 0)
3124 {
3125 unsigned long i, j;
3126 bfd_byte b;
3127
3128 for (i = 0; i < size; i += reverse_bytes)
3129 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
3130 {
3131 bfd_byte *m = (bfd_byte *) memhunk;
3132
3133 b = m[i + j];
3134 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
3135 m[(i + reverse_bytes) - (j + 1)] = b;
3136 }
3137 }
3138 else
3139 /* User must pad the section up in order to do this. */
3140 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
3141 bfd_section_name (ibfd, isection), reverse_bytes);
3142 }
3143
57938635 3144 if (copy_byte >= 0)
5e675b72
AM		 3145 {
3146 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 3147 char *from = (char *) memhunk + copy_byte;
3f5e193b 3148 char *to = (char *) memhunk;
2f01ffbf 3149 char *end = (char *) memhunk + size;
b7dd81f7 3150 int i;
5e675b72
AM		 3151
3152 for (; from < end; from += interleave)
b7dd81f7 3153 for (i = 0; i < copy_width; i++)
ee7da987
L		 3154 {
3155 if (&from[i] >= end)
3156 break;
3157 *to++ = from[i];
3158 }
5e675b72 3159
b7dd81f7 3160 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72
AM		 3161 osection->lma /= interleave;
3162 }
252b5132 3163
d3ba0551 3164 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 3165 {
3166 status = 1;
3167 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3168 return;
3169 }
252b5132
RH		 3170 free (memhunk);
3171 }
2e62b721
NC		 3172 else if ((p = find_section_list (bfd_get_section_name (ibfd, isection),
3173 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
3174 && (p->flags & SEC_HAS_CONTENTS) != 0)
252b5132 3175 {
d3ba0551 3176 void *memhunk = xmalloc (size);
252b5132
RH		 3177
3178 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
3179 flag--they can just remove the section entirely and add it
3180 back again. However, we do permit them to turn on the
3181 SEC_HAS_CONTENTS flag, and take it to mean that the section
3182 contents should be zeroed out. */
3183
3184 memset (memhunk, 0, size);
d3ba0551 3185 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 3186 {
3187 status = 1;
3188 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3189 return;
3190 }
252b5132
RH		 3191 free (memhunk);
3192 }
3193}
3194
3195/* Get all the sections. This is used when --gap-fill or --pad-to is
3196 used. */
3197
3198static void
84e2f313 3199get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 3200{
3f5e193b 3201 asection ***secppp = (asection ***) secppparg;
252b5132
RH		 3202
3203 **secppp = osection;
3204 ++(*secppp);
3205}
3206
3207/* Sort sections by VMA. This is called via qsort, and is used when
3208 --gap-fill or --pad-to is used. We force non loadable or empty
3209 sections to the front, where they are easier to ignore. */
3210
3211static int
84e2f313 3212compare_section_lma (const void *arg1, const void *arg2)
252b5132 3213{
3f5e193b
NC		 3214 const asection *const *sec1 = (const asection * const *) arg1;
3215 const asection *const *sec2 = (const asection * const *) arg2;
252b5132
RH		 3216 flagword flags1, flags2;
3217
3218 /* Sort non loadable sections to the front. */
3219 flags1 = (*sec1)->flags;
3220 flags2 = (*sec2)->flags;
3221 if ((flags1 & SEC_HAS_CONTENTS) == 0
3222 || (flags1 & SEC_LOAD) == 0)
3223 {
3224 if ((flags2 & SEC_HAS_CONTENTS) != 0
3225 && (flags2 & SEC_LOAD) != 0)
3226 return -1;
3227 }
3228 else
3229 {
3230 if ((flags2 & SEC_HAS_CONTENTS) == 0
3231 || (flags2 & SEC_LOAD) == 0)
3232 return 1;
3233 }
3234
3235 /* Sort sections by LMA. */
3236 if ((*sec1)->lma > (*sec2)->lma)
3237 return 1;
3238 else if ((*sec1)->lma < (*sec2)->lma)
3239 return -1;
3240
3241 /* Sort sections with the same LMA by size. */
135dfb4a 3242 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
252b5132 3243 return 1;
135dfb4a 3244 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
252b5132
RH		 3245 return -1;
3246
3247 return 0;
3248}
3249
3250/* Mark all the symbols which will be used in output relocations with
3251 the BSF_KEEP flag so that those symbols will not be stripped.
3252
3253 Ignore relocations which will not appear in the output file. */
3254
3255static void
84e2f313 3256mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 3257{
3f5e193b 3258 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH		 3259 long relsize;
3260 arelent **relpp;
3261 long relcount, i;
3262
3263 /* Ignore an input section with no corresponding output section. */
3264 if (isection->output_section == NULL)
3265 return;
3266
3267 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
3268 if (relsize < 0)
ed570f48
NC		 3269 {
3270 /* Do not complain if the target does not support relocations. */
3271 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3272 return;
3273 bfd_fatal (bfd_get_filename (ibfd));
3274 }
252b5132
RH		 3275
3276 if (relsize == 0)
3277 return;
3278
3f5e193b 3279 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 3280 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
3281 if (relcount < 0)
3282 bfd_fatal (bfd_get_filename (ibfd));
3283
ec5d57d5
NC		 3284 /* Examine each symbol used in a relocation. If it's not one of the
3285 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 3286 for (i = 0; i < relcount; i++)
3287 {
ec5d57d5
NC		 3288 if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
3289 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
3290 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
3291 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 3292 }
3293
3294 if (relpp != NULL)
3295 free (relpp);
3296}
3297
3298/* Write out debugging information. */
3299
b34976b6 3300static bfd_boolean
84e2f313
NC		 3301write_debugging_info (bfd *obfd, void *dhandle,
3302 long *symcountp ATTRIBUTE_UNUSED,
3303 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132
RH		 3304{
3305 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
3306 return write_ieee_debugging_info (obfd, dhandle);
3307
3308 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
3309 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3310 {
3311 bfd_byte *syms, *strings;
3312 bfd_size_type symsize, stringsize;
3313 asection *stabsec, *stabstrsec;
551b43fd 3314 flagword flags;
252b5132
RH		 3315
3316 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
3317 &symsize, &strings,
3318 &stringsize))
b34976b6 3319 return FALSE;
252b5132 3320
551b43fd
AM		 3321 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
3322 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
3323 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 3324 if (stabsec == NULL
3325 || stabstrsec == NULL
3326 || ! bfd_set_section_size (obfd, stabsec, symsize)
3327 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
3328 || ! bfd_set_section_alignment (obfd, stabsec, 2)
551b43fd 3329 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
252b5132 3330 {
2db6cde7
NS		 3331 bfd_nonfatal_message (NULL, obfd, NULL,
3332 _("can't create debugging section"));
b34976b6 3333 return FALSE;
252b5132
RH		 3334 }
3335
3336 /* We can get away with setting the section contents now because
3337 the next thing the caller is going to do is copy over the
3338 real sections. We may someday have to split the contents
3339 setting out of this function. */
d3ba0551
AM		 3340 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
3341 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
3342 stringsize))
252b5132 3343 {
2db6cde7
NS		 3344 bfd_nonfatal_message (NULL, obfd, NULL,
3345 _("can't set debugging section contents"));
b34976b6 3346 return FALSE;
252b5132
RH		 3347 }
3348
b34976b6 3349 return TRUE;
252b5132
RH		 3350 }
3351
2db6cde7
NS		 3352 bfd_nonfatal_message (NULL, obfd, NULL,
3353 _("don't know how to write debugging information for %s"),
3354 bfd_get_target (obfd));
b34976b6 3355 return FALSE;
252b5132
RH		 3356}
3357
955d0b3b
RM		 3358/* If neither -D nor -U was specified explicitly,
3359 then use the configured default. */
3360static void
3361default_deterministic (void)
3362{
3363 if (deterministic < 0)
3364 deterministic = DEFAULT_AR_DETERMINISTIC;
3365}
3366
252b5132 3367static int
84e2f313 3368strip_main (int argc, char *argv[])
252b5132 3369{
7c29036b
NC		 3370 char *input_target = NULL;
3371 char *output_target = NULL;
b34976b6 3372 bfd_boolean show_version = FALSE;
7c29036b
NC		 3373 bfd_boolean formats_info = FALSE;
3374 int c;
3375 int i;
252b5132
RH		 3376 char *output_file = NULL;
3377
7a093a78 3378 while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvwDU",
252b5132
RH		 3379 strip_options, (int *) 0)) != EOF)
3380 {
3381 switch (c)
3382 {
3383 case 'I':
3384 input_target = optarg;
3385 break;
3386 case 'O':
3387 output_target = optarg;
3388 break;
3389 case 'F':
3390 input_target = output_target = optarg;
3391 break;
3392 case 'R':
2e62b721 3393 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3394 sections_removed = TRUE;
252b5132
RH		 3395 break;
3396 case 's':
3397 strip_symbols = STRIP_ALL;
3398 break;
3399 case 'S':
3400 case 'g':
db4f6831 3401 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 3402 strip_symbols = STRIP_DEBUG;
3403 break;
96109726
CC		 3404 case OPTION_STRIP_DWO:
3405 strip_symbols = STRIP_DWO;
3406 break;
252b5132
RH		 3407 case OPTION_STRIP_UNNEEDED:
3408 strip_symbols = STRIP_UNNEEDED;
3409 break;
3410 case 'K':
047c9024 3411 add_specific_symbol (optarg, keep_specific_htab);
252b5132
RH		 3412 break;
3413 case 'N':
047c9024 3414 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH		 3415 break;
3416 case 'o':
3417 output_file = optarg;
3418 break;
3419 case 'p':
b34976b6 3420 preserve_dates = TRUE;
252b5132 3421 break;
2e30cb57
CC		 3422 case 'D':
3423 deterministic = TRUE;
3424 break;
955d0b3b
RM		 3425 case 'U':
3426 deterministic = FALSE;
3427 break;
252b5132
RH		 3428 case 'x':
3429 discard_locals = LOCALS_ALL;
3430 break;
3431 case 'X':
3432 discard_locals = LOCALS_START_L;
3433 break;
3434 case 'v':
b34976b6 3435 verbose = TRUE;
252b5132
RH		 3436 break;
3437 case 'V':
b34976b6 3438 show_version = TRUE;
252b5132 3439 break;
7c29036b
NC		 3440 case OPTION_FORMATS_INFO:
3441 formats_info = TRUE;
3442 break;
ed1653a7
NC		 3443 case OPTION_ONLY_KEEP_DEBUG:
3444 strip_symbols = STRIP_NONDEBUG;
3445 break;
1637cd90
JB		 3446 case OPTION_KEEP_FILE_SYMBOLS:
3447 keep_file_symbols = 1;
3448 break;
252b5132 3449 case 0:
594ef5db
NC		 3450 /* We've been given a long option. */
3451 break;
5fe11841
NC		 3452 case 'w':
3453 wildcard = TRUE;
3454 break;
8b53311e 3455 case 'H':
252b5132
RH		 3456 case 'h':
3457 strip_usage (stdout, 0);
3458 default:
3459 strip_usage (stderr, 1);
3460 }
3461 }
3462
84e2f313
NC		 3463 if (formats_info)
3464 {
3465 display_info ();
3466 return 0;
3467 }
c1c0eb9e 3468
252b5132
RH		 3469 if (show_version)
3470 print_version ("strip");
3471
955d0b3b
RM		 3472 default_deterministic ();
3473
252b5132
RH		 3474 /* Default is to strip all symbols. */
3475 if (strip_symbols == STRIP_UNDEF
3476 && discard_locals == LOCALS_UNDEF
047c9024 3477 && htab_elements (strip_specific_htab) == 0)
252b5132
RH		 3478 strip_symbols = STRIP_ALL;
3479
d3ba0551 3480 if (output_target == NULL)
252b5132
RH		 3481 output_target = input_target;
3482
3483 i = optind;
3484 if (i == argc
3485 || (output_file != NULL && (i + 1) < argc))
3486 strip_usage (stderr, 1);
3487
3488 for (; i < argc; i++)
3489 {
3490 int hold_status = status;
3491 struct stat statbuf;
3492 char *tmpname;
3493
f24ddbdd 3494 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 3495 {
3496 status = 1;
3497 continue;
3498 }
f24ddbdd 3499
252b5132 3500 if (preserve_dates)
f24ddbdd
NC		 3501 /* No need to check the return value of stat().
3502 It has already been checked in get_file_size(). */
3503 stat (argv[i], &statbuf);
252b5132 3504
8b6efd89
KT		 3505 if (output_file == NULL
3506 || filename_cmp (argv[i], output_file) == 0)
252b5132 3507 tmpname = make_tempname (argv[i]);
12f498a7
NS		 3508 else
3509 tmpname = output_file;
252b5132 3510
f9c026a8
NC		 3511 if (tmpname == NULL)
3512 {
2db6cde7
NS		 3513 bfd_nonfatal_message (argv[i], NULL, NULL,
3514 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC		 3515 status = 1;
3516 continue;
3517 }
3518
d68c385b 3519 status = 0;
8b31b6c4 3520 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH		 3521 if (status == 0)
3522 {
3523 if (preserve_dates)
3524 set_times (tmpname, &statbuf);
12f498a7 3525 if (output_file != tmpname)
92fac5ec
L		 3526 status = (smart_rename (tmpname,
3527 output_file ? output_file : argv[i],
3528 preserve_dates) != 0);
3529 if (status == 0)
3530 status = hold_status;
252b5132
RH		 3531 }
3532 else
bb14f524 3533 unlink_if_ordinary (tmpname);
12f498a7 3534 if (output_file != tmpname)
252b5132
RH		 3535 free (tmpname);
3536 }
3537
d68c385b 3538 return status;
252b5132
RH		 3539}
3540
92dd4511
L		 3541/* Set up PE subsystem. */
3542
3543static void
3544set_pe_subsystem (const char *s)
3545{
3546 const char *version, *subsystem;
3547 size_t i;
3548 static const struct
3549 {
3550 const char *name;
3551 const char set_def;
3552 const short value;
3553 }
3554 v[] =
3555 {
955d0b3b 3556 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L		 3557 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
3558 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
3559 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
3560 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
3561 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
3562 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
3563 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 3564 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L		 3565 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
3566 };
3567 short value;
3568 char *copy;
3569 int set_def = -1;
3570
3571 /* Check for the presence of a version number. */
3572 version = strchr (s, ':');
3573 if (version == NULL)
3574 subsystem = s;
3575 else
3576 {
3577 int len = version - s;
3578 copy = xstrdup (s);
3579 subsystem = copy;
3580 copy[len] = '\0';
3581 version = copy + 1 + len;
3582 pe_major_subsystem_version = strtoul (version, &copy, 0);
3583 if (*copy == '.')
3584 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
3585 if (*copy != '\0')
3586 non_fatal (_("%s: bad version in PE subsystem"), s);
3587 }
3588
3589 /* Check for numeric subsystem. */
3590 value = (short) strtol (subsystem, &copy, 0);
3591 if (*copy == '\0')
3592 {
3593 for (i = 0; i < ARRAY_SIZE (v); i++)
3594 if (v[i].value == value)
3595 {
3596 pe_subsystem = value;
3597 set_def = v[i].set_def;
3598 break;
3599 }
3600 }
3601 else
3602 {
3603 /* Search for subsystem by name. */
3604 for (i = 0; i < ARRAY_SIZE (v); i++)
3605 if (strcmp (subsystem, v[i].name) == 0)
3606 {
3607 pe_subsystem = v[i].value;
3608 set_def = v[i].set_def;
3609 break;
3610 }
3611 }
3612
3613 switch (set_def)
3614 {
3615 case -1:
3616 fatal (_("unknown PE subsystem: %s"), s);
3617 break;
3618 case 0:
3619 break;
3620 default:
3621 if (pe_file_alignment == (bfd_vma) -1)
3622 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
3623 if (pe_section_alignment == (bfd_vma) -1)
3624 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
3625 break;
3626 }
0cbf3531
MS		 3627 if (s != subsystem)
3628 free ((char *) subsystem);
92dd4511
L		 3629}
3630
3631/* Convert EFI target to PEI target. */
3632
3633static void
3634convert_efi_target (char *efi)
3635{
3636 efi[0] = 'p';
3637 efi[1] = 'e';
3638 efi[2] = 'i';
3639
3640 if (strcmp (efi + 4, "ia32") == 0)
3641 {
3642 /* Change ia32 to i386. */
3643 efi[5]= '3';
3644 efi[6]= '8';
3645 efi[7]= '6';
3646 }
3647 else if (strcmp (efi + 4, "x86_64") == 0)
3648 {
3649 /* Change x86_64 to x86-64. */
3650 efi[7] = '-';
3651 }
3652}
3653
7173b38a 3654/* Allocate and return a pointer to a struct section_add, initializing the
06b73f41 3655 structure using ARG, a string in the format "sectionname=filename".
7173b38a
AB		 3656 The returned structure will have its next pointer set to NEXT. The
3657 OPTION field is the name of the command line option currently being
3658 parsed, and is only used if an error needs to be reported. */
3659
3660static struct section_add *
06b73f41 3661init_section_add (const char *arg,
7173b38a
AB		 3662 struct section_add *next,
3663 const char *option)
3664{
3665 struct section_add *pa;
3666 const char *s;
3667
06b73f41 3668 s = strchr (arg, '=');
7173b38a
AB		 3669 if (s == NULL)
3670 fatal (_("bad format for %s"), option);
3671
3672 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
06b73f41 3673 pa->name = xstrndup (arg, s - arg);
7173b38a
AB		 3674 pa->filename = s + 1;
3675 pa->next = next;
3676 pa->contents = NULL;
3677 pa->size = 0;
3678
3679 return pa;
3680}
3681
3682/* Load the file specified in PA, allocating memory to hold the file
3683 contents, and store a pointer to the allocated memory in the contents
3684 field of PA. The size field of PA is also updated. All errors call
3685 FATAL. */
3686
3687static void
3688section_add_load_file (struct section_add *pa)
3689{
3690 size_t off, alloc;
3691 FILE *f;
3692
3693 /* We don't use get_file_size so that we can do
3694 --add-section .note.GNU_stack=/dev/null
3695 get_file_size doesn't work on /dev/null. */
3696
3697 f = fopen (pa->filename, FOPEN_RB);
3698 if (f == NULL)
3699 fatal (_("cannot open: %s: %s"),
3700 pa->filename, strerror (errno));
3701
3702 off = 0;
3703 alloc = 4096;
3704 pa->contents = (bfd_byte *) xmalloc (alloc);
3705 while (!feof (f))
3706 {
3707 off_t got;
3708
3709 if (off == alloc)
3710 {
3711 alloc <<= 1;
3712 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
3713 }
3714
3715 got = fread (pa->contents + off, 1, alloc - off, f);
3716 if (ferror (f))
3717 fatal (_("%s: fread failed"), pa->filename);
3718
3719 off += got;
3720 }
3721
3722 pa->size = off;
3723
3724 fclose (f);
3725}
3726
252b5132 3727static int
84e2f313 3728copy_main (int argc, char *argv[])
252b5132 3729{
7c29036b
NC		 3730 char *input_filename = NULL;
3731 char *output_filename = NULL;
c1c0eb9e 3732 char *tmpname;
7c29036b
NC		 3733 char *input_target = NULL;
3734 char *output_target = NULL;
b34976b6
AM		 3735 bfd_boolean show_version = FALSE;
3736 bfd_boolean change_warn = TRUE;
7c29036b 3737 bfd_boolean formats_info = FALSE;
252b5132 3738 int c;
252b5132 3739 struct stat statbuf;
8b31b6c4 3740 const bfd_arch_info_type *input_arch = NULL;
252b5132 3741
7a093a78 3742 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
252b5132
RH		 3743 copy_options, (int *) 0)) != EOF)
3744 {
3745 switch (c)
3746 {
3747 case 'b':
3748 copy_byte = atoi (optarg);
3749 if (copy_byte < 0)
3750 fatal (_("byte number must be non-negative"));
3751 break;
57938635 3752
0af11b59 3753 case 'B':
8b31b6c4
NC		 3754 input_arch = bfd_scan_arch (optarg);
3755 if (input_arch == NULL)
3756 fatal (_("architecture %s unknown"), optarg);
0af11b59 3757 break;
43a0748c 3758
252b5132 3759 case 'i':
b7dd81f7
NC		 3760 if (optarg)
3761 {
3762 interleave = atoi (optarg);
3763 if (interleave < 1)
3764 fatal (_("interleave must be positive"));
3765 }
3766 else
3767 interleave = 4;
3768 break;
3769
3770 case OPTION_INTERLEAVE_WIDTH:
3771 copy_width = atoi (optarg);
3772 if (copy_width < 1)
3773 fatal(_("interleave width must be positive"));
252b5132 3774 break;
57938635 3775
252b5132
RH		 3776 case 'I':
3777 case 's': /* "source" - 'I' is preferred */
3778 input_target = optarg;
3779 break;
57938635 3780
252b5132
RH		 3781 case 'O':
3782 case 'd': /* "destination" - 'O' is preferred */
3783 output_target = optarg;
3784 break;
57938635 3785
252b5132
RH		 3786 case 'F':
3787 input_target = output_target = optarg;
3788 break;
57938635 3789
f91ea849 3790 case 'j':
2e62b721 3791 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
b34976b6 3792 sections_copied = TRUE;
f91ea849 3793 break;
57938635 3794
252b5132 3795 case 'R':
2e62b721 3796 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3797 sections_removed = TRUE;
252b5132 3798 break;
57938635 3799
252b5132
RH		 3800 case 'S':
3801 strip_symbols = STRIP_ALL;
3802 break;
57938635 3803
252b5132
RH		 3804 case 'g':
3805 strip_symbols = STRIP_DEBUG;
3806 break;
57938635 3807
96109726
CC		 3808 case OPTION_STRIP_DWO:
3809 strip_symbols = STRIP_DWO;
3810 break;
3811
252b5132
RH		 3812 case OPTION_STRIP_UNNEEDED:
3813 strip_symbols = STRIP_UNNEEDED;
3814 break;
57938635 3815
ed1653a7
NC		 3816 case OPTION_ONLY_KEEP_DEBUG:
3817 strip_symbols = STRIP_NONDEBUG;
3818 break;
3819
1637cd90
JB		 3820 case OPTION_KEEP_FILE_SYMBOLS:
3821 keep_file_symbols = 1;
3822 break;
3823
2593f09a 3824 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 3825 long_section_names = ENABLE ;
2593f09a
NC		 3826 gnu_debuglink_filename = optarg;
3827 break;
3828
252b5132 3829 case 'K':
047c9024 3830 add_specific_symbol (optarg, keep_specific_htab);
252b5132 3831 break;
57938635 3832
252b5132 3833 case 'N':
047c9024 3834 add_specific_symbol (optarg, strip_specific_htab);
252b5132 3835 break;
57938635 3836
bcf32829 3837 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 3838 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB		 3839 break;
3840
252b5132 3841 case 'L':
047c9024 3842 add_specific_symbol (optarg, localize_specific_htab);
252b5132 3843 break;
57938635 3844
7b4a0685 3845 case OPTION_GLOBALIZE_SYMBOL:
047c9024 3846 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC		 3847 break;
3848
16b2b71c 3849 case 'G':
047c9024 3850 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC		 3851 break;
3852
252b5132 3853 case 'W':
047c9024 3854 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 3855 break;
57938635 3856
252b5132 3857 case 'p':
b34976b6 3858 preserve_dates = TRUE;
252b5132 3859 break;
57938635 3860
2e30cb57
CC		 3861 case 'D':
3862 deterministic = TRUE;
3863 break;
3864
955d0b3b
RM		 3865 case 'U':
3866 deterministic = FALSE;
3867 break;
3868
5fe11841
NC		 3869 case 'w':
3870 wildcard = TRUE;
3871 break;
3872
252b5132
RH		 3873 case 'x':
3874 discard_locals = LOCALS_ALL;
3875 break;
57938635 3876
252b5132
RH		 3877 case 'X':
3878 discard_locals = LOCALS_START_L;
3879 break;
57938635 3880
252b5132 3881 case 'v':
b34976b6 3882 verbose = TRUE;
252b5132 3883 break;
57938635 3884
252b5132 3885 case 'V':
b34976b6 3886 show_version = TRUE;
252b5132 3887 break;
57938635 3888
7c29036b
NC		 3889 case OPTION_FORMATS_INFO:
3890 formats_info = TRUE;
3891 break;
3892
252b5132 3893 case OPTION_WEAKEN:
b34976b6 3894 weaken = TRUE;
252b5132 3895 break;
57938635 3896
252b5132 3897 case OPTION_ADD_SECTION:
7173b38a
AB		 3898 add_sections = init_section_add (optarg, add_sections,
3899 "--add-section");
3900 section_add_load_file (add_sections);
252b5132 3901 break;
57938635 3902
acf1419f
AB		 3903 case OPTION_UPDATE_SECTION:
3904 update_sections = init_section_add (optarg, update_sections,
3905 "--update-section");
3906 section_add_load_file (update_sections);
3907 break;
3908
bbad633b 3909 case OPTION_DUMP_SECTION:
7173b38a
AB		 3910 dump_sections = init_section_add (optarg, dump_sections,
3911 "--dump-section");
bbad633b
NC		 3912 break;
3913
252b5132
RH		 3914 case OPTION_CHANGE_START:
3915 change_start = parse_vma (optarg, "--change-start");
3916 break;
57938635 3917
252b5132
RH		 3918 case OPTION_CHANGE_SECTION_ADDRESS:
3919 case OPTION_CHANGE_SECTION_LMA:
3920 case OPTION_CHANGE_SECTION_VMA:
3921 {
2e62b721 3922 struct section_list * p;
76d8cf45 3923 unsigned int context = 0;
252b5132
RH		 3924 const char *s;
3925 int len;
3926 char *name;
b4c96d0d 3927 char *option = NULL;
252b5132 3928 bfd_vma val;
57938635 3929
252b5132
RH		 3930 switch (c)
3931 {
b4c96d0d
ILT		 3932 case OPTION_CHANGE_SECTION_ADDRESS:
3933 option = "--change-section-address";
2e62b721 3934 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
b4c96d0d
ILT		 3935 break;
3936 case OPTION_CHANGE_SECTION_LMA:
3937 option = "--change-section-lma";
2e62b721 3938 context = SECTION_CONTEXT_ALTER_LMA;
b4c96d0d
ILT		 3939 break;
3940 case OPTION_CHANGE_SECTION_VMA:
3941 option = "--change-section-vma";
2e62b721 3942 context = SECTION_CONTEXT_ALTER_VMA;
b4c96d0d 3943 break;
252b5132 3944 }
57938635 3945
252b5132
RH		 3946 s = strchr (optarg, '=');
3947 if (s == NULL)
3948 {
3949 s = strchr (optarg, '+');
3950 if (s == NULL)
3951 {
3952 s = strchr (optarg, '-');
3953 if (s == NULL)
3954 fatal (_("bad format for %s"), option);
3955 }
3956 }
2e62b721
NC		 3957 else
3958 {
3959 /* Correct the context. */
3960 switch (c)
3961 {
3962 case OPTION_CHANGE_SECTION_ADDRESS:
3963 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
3964 break;
3965 case OPTION_CHANGE_SECTION_LMA:
3966 context = SECTION_CONTEXT_SET_LMA;
3967 break;
3968 case OPTION_CHANGE_SECTION_VMA:
3969 context = SECTION_CONTEXT_SET_VMA;
3970 break;
3971 }
3972 }
252b5132
RH		 3973
3974 len = s - optarg;
3f5e193b 3975 name = (char *) xmalloc (len + 1);
252b5132
RH		 3976 strncpy (name, optarg, len);
3977 name[len] = '\0';
3978
2e62b721 3979 p = find_section_list (name, TRUE, context);
252b5132
RH		 3980
3981 val = parse_vma (s + 1, option);
2e62b721
NC		 3982 if (*s == '-')
3983 val = - val;
57938635 3984
252b5132
RH		 3985 switch (c)
3986 {
3987 case OPTION_CHANGE_SECTION_ADDRESS:
2e62b721 3988 p->vma_val = val;
252b5132 3989 /* Drop through. */
57938635 3990
252b5132 3991 case OPTION_CHANGE_SECTION_LMA:
2e62b721 3992 p->lma_val = val;
252b5132 3993 break;
57938635 3994
252b5132 3995 case OPTION_CHANGE_SECTION_VMA:
2e62b721 3996 p->vma_val = val;
252b5132
RH		 3997 break;
3998 }
3999 }
4000 break;
57938635 4001
252b5132
RH		 4002 case OPTION_CHANGE_ADDRESSES:
4003 change_section_address = parse_vma (optarg, "--change-addresses");
4004 change_start = change_section_address;
4005 break;
57938635 4006
252b5132 4007 case OPTION_CHANGE_WARNINGS:
b34976b6 4008 change_warn = TRUE;
252b5132 4009 break;
57938635 4010
252b5132 4011 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 4012 change_leading_char = TRUE;
252b5132 4013 break;
57938635 4014
4a114e3e 4015 case OPTION_COMPRESS_DEBUG_SECTIONS:
151411f8
L		 4016 if (optarg)
4017 {
4018 if (strcasecmp (optarg, "none") == 0)
4019 do_debug_sections = decompress;
4020 else if (strcasecmp (optarg, "zlib") == 0)
4021 do_debug_sections = compress_zlib;
4022 else if (strcasecmp (optarg, "zlib-gnu") == 0)
4023 do_debug_sections = compress_gnu_zlib;
4024 else if (strcasecmp (optarg, "zlib-gabi") == 0)
4025 do_debug_sections = compress_gabi_zlib;
4026 else
4027 fatal (_("unrecognized --compress-debug-sections type `%s'"),
4028 optarg);
4029 }
4030 else
4031 do_debug_sections = compress;
4a114e3e
L		 4032 break;
4033
252b5132 4034 case OPTION_DEBUGGING:
b34976b6 4035 convert_debugging = TRUE;
252b5132 4036 break;
57938635 4037
4a114e3e
L		 4038 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
4039 do_debug_sections = decompress;
4040 break;
4041
252b5132
RH		 4042 case OPTION_GAP_FILL:
4043 {
4044 bfd_vma gap_fill_vma;
4045
4046 gap_fill_vma = parse_vma (optarg, "--gap-fill");
4047 gap_fill = (bfd_byte) gap_fill_vma;
4048 if ((bfd_vma) gap_fill != gap_fill_vma)
4049 {
4050 char buff[20];
57938635 4051
252b5132 4052 sprintf_vma (buff, gap_fill_vma);
57938635 4053
252b5132
RH		 4054 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
4055 buff, gap_fill);
4056 }
b34976b6 4057 gap_fill_set = TRUE;
252b5132
RH		 4058 }
4059 break;
57938635 4060
252b5132 4061 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 4062 change_warn = FALSE;
252b5132 4063 break;
57938635 4064
252b5132
RH		 4065 case OPTION_PAD_TO:
4066 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 4067 pad_to_set = TRUE;
252b5132 4068 break;
57938635 4069
252b5132 4070 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 4071 remove_leading_char = TRUE;
252b5132 4072 break;
57938635
AM		 4073
4074 case OPTION_REDEFINE_SYM:
4075 {
4076 /* Push this redefinition onto redefine_symbol_list. */
4077
4078 int len;
4079 const char *s;
4080 const char *nextarg;
4081 char *source, *target;
4082
4083 s = strchr (optarg, '=');
4084 if (s == NULL)
594ef5db 4085 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 4086
4087 len = s - optarg;
3f5e193b 4088 source = (char *) xmalloc (len + 1);
57938635
AM		 4089 strncpy (source, optarg, len);
4090 source[len] = '\0';
4091
4092 nextarg = s + 1;
4093 len = strlen (nextarg);
3f5e193b 4094 target = (char *) xmalloc (len + 1);
57938635
AM		 4095 strcpy (target, nextarg);
4096
92991082 4097 redefine_list_append ("--redefine-sym", source, target);
57938635
AM		 4098
4099 free (source);
4100 free (target);
4101 }
4102 break;
4103
92991082
JT		 4104 case OPTION_REDEFINE_SYMS:
4105 add_redefine_syms_file (optarg);
4106 break;
4107
252b5132
RH		 4108 case OPTION_SET_SECTION_FLAGS:
4109 {
2e62b721 4110 struct section_list *p;
252b5132
RH		 4111 const char *s;
4112 int len;
4113 char *name;
4114
4115 s = strchr (optarg, '=');
4116 if (s == NULL)
57938635 4117 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 4118
4119 len = s - optarg;
3f5e193b 4120 name = (char *) xmalloc (len + 1);
252b5132
RH		 4121 strncpy (name, optarg, len);
4122 name[len] = '\0';
4123
2e62b721 4124 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
252b5132 4125
252b5132
RH		 4126 p->flags = parse_flags (s + 1);
4127 }
4128 break;
57938635 4129
594ef5db
NC		 4130 case OPTION_RENAME_SECTION:
4131 {
4132 flagword flags;
3bcfb3e4
AM		 4133 const char *eq, *fl;
4134 char *old_name;
4135 char *new_name;
594ef5db
NC		 4136 unsigned int len;
4137
3bcfb3e4
AM		 4138 eq = strchr (optarg, '=');
4139 if (eq == NULL)
594ef5db
NC		 4140 fatal (_("bad format for %s"), "--rename-section");
4141
3bcfb3e4 4142 len = eq - optarg;
594ef5db 4143 if (len == 0)
3bcfb3e4 4144 fatal (_("bad format for %s"), "--rename-section");
594ef5db 4145
3f5e193b 4146 old_name = (char *) xmalloc (len + 1);
594ef5db
NC		 4147 strncpy (old_name, optarg, len);
4148 old_name[len] = 0;
4149
3bcfb3e4
AM		 4150 eq++;
4151 fl = strchr (eq, ',');
4152 if (fl)
594ef5db 4153 {
3bcfb3e4
AM		 4154 flags = parse_flags (fl + 1);
4155 len = fl - eq;
594ef5db
NC		 4156 }
4157 else
4158 {
594ef5db 4159 flags = -1;
3bcfb3e4 4160 len = strlen (eq);
594ef5db
NC		 4161 }
4162
3bcfb3e4
AM		 4163 if (len == 0)
4164 fatal (_("bad format for %s"), "--rename-section");
4165
3f5e193b 4166 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM		 4167 strncpy (new_name, eq, len);
4168 new_name[len] = 0;
4169
594ef5db
NC		 4170 add_section_rename (old_name, new_name, flags);
4171 }
4172 break;
4173
252b5132
RH		 4174 case OPTION_SET_START:
4175 set_start = parse_vma (optarg, "--set-start");
b34976b6 4176 set_start_set = TRUE;
252b5132 4177 break;
57938635 4178
0af11b59
KH		 4179 case OPTION_SREC_LEN:
4180 Chunk = parse_vma (optarg, "--srec-len");
4181 break;
420496c1 4182
0af11b59 4183 case OPTION_SREC_FORCES3:
b34976b6 4184 S3Forced = TRUE;
0af11b59 4185 break;
420496c1 4186
16b2b71c 4187 case OPTION_STRIP_SYMBOLS:
047c9024 4188 add_specific_symbols (optarg, strip_specific_htab);
16b2b71c
NC		 4189 break;
4190
bcf32829 4191 case OPTION_STRIP_UNNEEDED_SYMBOLS:
047c9024 4192 add_specific_symbols (optarg, strip_unneeded_htab);
bcf32829
JB		 4193 break;
4194
16b2b71c 4195 case OPTION_KEEP_SYMBOLS:
047c9024 4196 add_specific_symbols (optarg, keep_specific_htab);
16b2b71c
NC		 4197 break;
4198
d58c2e3a
RS		 4199 case OPTION_LOCALIZE_HIDDEN:
4200 localize_hidden = TRUE;
4201 break;
4202
16b2b71c 4203 case OPTION_LOCALIZE_SYMBOLS:
047c9024 4204 add_specific_symbols (optarg, localize_specific_htab);
16b2b71c
NC		 4205 break;
4206
0408dee6
DK		 4207 case OPTION_LONG_SECTION_NAMES:
4208 if (!strcmp ("enable", optarg))
4209 long_section_names = ENABLE;
4210 else if (!strcmp ("disable", optarg))
4211 long_section_names = DISABLE;
4212 else if (!strcmp ("keep", optarg))
4213 long_section_names = KEEP;
4214 else
4215 fatal (_("unknown long section names option '%s'"), optarg);
4216 break;
4217
7b4a0685 4218 case OPTION_GLOBALIZE_SYMBOLS:
047c9024 4219 add_specific_symbols (optarg, globalize_specific_htab);
7b4a0685
NC		 4220 break;
4221
16b2b71c 4222 case OPTION_KEEPGLOBAL_SYMBOLS:
047c9024 4223 add_specific_symbols (optarg, keepglobal_specific_htab);
16b2b71c
NC		 4224 break;
4225
4226 case OPTION_WEAKEN_SYMBOLS:
047c9024 4227 add_specific_symbols (optarg, weaken_specific_htab);
16b2b71c
NC		 4228 break;
4229
1ae8b3d2 4230 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 4231 use_alt_mach_code = strtoul (optarg, NULL, 0);
4232 if (use_alt_mach_code == 0)
4233 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 4234 break;
4235
d7fb0dd2
NC		 4236 case OPTION_PREFIX_SYMBOLS:
4237 prefix_symbols_string = optarg;
4238 break;
4239
4240 case OPTION_PREFIX_SECTIONS:
4241 prefix_sections_string = optarg;
4242 break;
4243
4244 case OPTION_PREFIX_ALLOC_SECTIONS:
4245 prefix_alloc_sections_string = optarg;
4246 break;
4247
4087920c
MR		 4248 case OPTION_READONLY_TEXT:
4249 bfd_flags_to_set |= WP_TEXT;
4250 bfd_flags_to_clear &= ~WP_TEXT;
4251 break;
4252
4253 case OPTION_WRITABLE_TEXT:
4254 bfd_flags_to_clear |= WP_TEXT;
4255 bfd_flags_to_set &= ~WP_TEXT;
4256 break;
4257
4258 case OPTION_PURE:
4259 bfd_flags_to_set |= D_PAGED;
4260 bfd_flags_to_clear &= ~D_PAGED;
4261 break;
4262
4263 case OPTION_IMPURE:
4264 bfd_flags_to_clear |= D_PAGED;
4265 bfd_flags_to_set &= ~D_PAGED;
4266 break;
4267
96109726
CC		 4268 case OPTION_EXTRACT_DWO:
4269 strip_symbols = STRIP_NONDWO;
4270 break;
4271
d3e52d40
RS		 4272 case OPTION_EXTRACT_SYMBOL:
4273 extract_symbol = TRUE;
4274 break;
4275
9e48b4c6
NC		 4276 case OPTION_REVERSE_BYTES:
4277 {
4278 int prev = reverse_bytes;
4279
4280 reverse_bytes = atoi (optarg);
4281 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
4282 fatal (_("number of bytes to reverse must be positive and even"));
4283
4284 if (prev && prev != reverse_bytes)
4285 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
4286 prev);
4287 break;
4288 }
4289
92dd4511
L		 4290 case OPTION_FILE_ALIGNMENT:
4291 pe_file_alignment = parse_vma (optarg, "--file-alignment");
4292 break;
955d0b3b 4293
92dd4511
L		 4294 case OPTION_HEAP:
4295 {
4296 char *end;
4297 pe_heap_reserve = strtoul (optarg, &end, 0);
4298 if (end == optarg
4299 || (*end != '.' && *end != '\0'))
4300 non_fatal (_("%s: invalid reserve value for --heap"),
4301 optarg);
4302 else if (*end != '\0')
4303 {
4304 pe_heap_commit = strtoul (end + 1, &end, 0);
4305 if (*end != '\0')
4306 non_fatal (_("%s: invalid commit value for --heap"),
4307 optarg);
4308 }
4309 }
4310 break;
955d0b3b 4311
92dd4511
L		 4312 case OPTION_IMAGE_BASE:
4313 pe_image_base = parse_vma (optarg, "--image-base");
4314 break;
955d0b3b 4315
92dd4511
L		 4316 case OPTION_SECTION_ALIGNMENT:
4317 pe_section_alignment = parse_vma (optarg,
4318 "--section-alignment");
4319 break;
955d0b3b 4320
92dd4511
L		 4321 case OPTION_SUBSYSTEM:
4322 set_pe_subsystem (optarg);
4323 break;
955d0b3b 4324
92dd4511
L		 4325 case OPTION_STACK:
4326 {
4327 char *end;
4328 pe_stack_reserve = strtoul (optarg, &end, 0);
4329 if (end == optarg
4330 || (*end != '.' && *end != '\0'))
4331 non_fatal (_("%s: invalid reserve value for --stack"),
4332 optarg);
4333 else if (*end != '\0')
4334 {
4335 pe_stack_commit = strtoul (end + 1, &end, 0);
4336 if (*end != '\0')
4337 non_fatal (_("%s: invalid commit value for --stack"),
4338 optarg);
4339 }
4340 }
4341 break;
955d0b3b 4342
252b5132 4343 case 0:
2593f09a
NC		 4344 /* We've been given a long option. */
4345 break;
57938635 4346
8b53311e 4347 case 'H':
252b5132
RH		 4348 case 'h':
4349 copy_usage (stdout, 0);
57938635 4350
252b5132
RH		 4351 default:
4352 copy_usage (stderr, 1);
4353 }
4354 }
4355
7c29036b
NC		 4356 if (formats_info)
4357 {
4358 display_info ();
4359 return 0;
4360 }
c1c0eb9e 4361
252b5132
RH		 4362 if (show_version)
4363 print_version ("objcopy");
4364
b7dd81f7
NC		 4365 if (interleave && copy_byte == -1)
4366 fatal (_("interleave start byte must be set with --byte"));
4367
252b5132
RH		 4368 if (copy_byte >= interleave)
4369 fatal (_("byte number must be less than interleave"));
4370
b7dd81f7
NC		 4371 if (copy_width > interleave - copy_byte)
4372 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4373
252b5132
RH		 4374 if (optind == argc || optind + 2 < argc)
4375 copy_usage (stderr, 1);
4376
4377 input_filename = argv[optind];
4378 if (optind + 1 < argc)
4379 output_filename = argv[optind + 1];
4380
955d0b3b
RM		 4381 default_deterministic ();
4382
252b5132
RH		 4383 /* Default is to strip no symbols. */
4384 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
4385 strip_symbols = STRIP_NONE;
4386
d3ba0551 4387 if (output_target == NULL)
252b5132
RH		 4388 output_target = input_target;
4389
92dd4511
L		 4390 /* Convert input EFI target to PEI target. */
4391 if (input_target != NULL
4392 && strncmp (input_target, "efi-", 4) == 0)
4393 {
4394 char *efi;
4395
4396 efi = xstrdup (output_target + 4);
4397 if (strncmp (efi, "bsdrv-", 6) == 0
4398 || strncmp (efi, "rtdrv-", 6) == 0)
4399 efi += 2;
4400 else if (strncmp (efi, "app-", 4) != 0)
4401 fatal (_("unknown input EFI target: %s"), input_target);
4402
4403 input_target = efi;
4404 convert_efi_target (efi);
4405 }
4406
4407 /* Convert output EFI target to PEI target. */
4408 if (output_target != NULL
4409 && strncmp (output_target, "efi-", 4) == 0)
4410 {
4411 char *efi;
4412
4413 efi = xstrdup (output_target + 4);
4414 if (strncmp (efi, "app-", 4) == 0)
4415 {
4416 if (pe_subsystem == -1)
4417 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
4418 }
4419 else if (strncmp (efi, "bsdrv-", 6) == 0)
4420 {
4421 if (pe_subsystem == -1)
4422 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
4423 efi += 2;
4424 }
4425 else if (strncmp (efi, "rtdrv-", 6) == 0)
4426 {
4427 if (pe_subsystem == -1)
4428 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
4429 efi += 2;
4430 }
4431 else
4432 fatal (_("unknown output EFI target: %s"), output_target);
4433
4434 if (pe_file_alignment == (bfd_vma) -1)
4435 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4436 if (pe_section_alignment == (bfd_vma) -1)
4437 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4438
4439 output_target = efi;
4440 convert_efi_target (efi);
4441 }
4442
43a0748c
NC		 4443 if (preserve_dates)
4444 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 4445 fatal (_("warning: could not locate '%s'. System error message: %s"),
4446 input_filename, strerror (errno));
43a0748c 4447
0fcdcb91 4448 /* If there is no destination file, or the source and destination files
d3ba0551 4449 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT		 4450 if (output_filename == NULL
4451 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 4452 tmpname = make_tempname (input_filename);
252b5132 4453 else
12f498a7 4454 tmpname = output_filename;
c1c0eb9e 4455
12f498a7
NS		 4456 if (tmpname == NULL)
4457 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4458 input_filename, strerror (errno));
594ef5db 4459
8b31b6c4 4460 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS		 4461 if (status == 0)
4462 {
4463 if (preserve_dates)
4464 set_times (tmpname, &statbuf);
4465 if (tmpname != output_filename)
92fac5ec
L		 4466 status = (smart_rename (tmpname, input_filename,
4467 preserve_dates) != 0);
252b5132 4468 }
12f498a7
NS		 4469 else
4470 unlink_if_ordinary (tmpname);
252b5132
RH		 4471
4472 if (change_warn)
4473 {
2e62b721
NC		 4474 struct section_list *p;
4475
252b5132
RH		 4476 for (p = change_sections; p != NULL; p = p->next)
4477 {
4478 if (! p->used)
4479 {
2e62b721 4480 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
252b5132
RH		 4481 {
4482 char buff [20];
4483
4484 sprintf_vma (buff, p->vma_val);
57938635 4485
252b5132 4486 /* xgettext:c-format */
57938635
AM		 4487 non_fatal (_("%s %s%c0x%s never used"),
4488 "--change-section-vma",
2e62b721
NC		 4489 p->pattern,
4490 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
252b5132
RH		 4491 buff);
4492 }
57938635 4493
2e62b721 4494 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
252b5132
RH		 4495 {
4496 char buff [20];
4497
4498 sprintf_vma (buff, p->lma_val);
57938635 4499
252b5132 4500 /* xgettext:c-format */
57938635
AM		 4501 non_fatal (_("%s %s%c0x%s never used"),
4502 "--change-section-lma",
2e62b721
NC		 4503 p->pattern,
4504 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
252b5132
RH		 4505 buff);
4506 }
4507 }
4508 }
4509 }
4510
4511 return 0;
4512}
4513
4514int
84e2f313 4515main (int argc, char *argv[])
252b5132
RH		 4516{
4517#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4518 setlocale (LC_MESSAGES, "");
3882b010
L		 4519#endif
4520#if defined (HAVE_SETLOCALE)
4521 setlocale (LC_CTYPE, "");
252b5132
RH		 4522#endif
4523 bindtextdomain (PACKAGE, LOCALEDIR);
4524 textdomain (PACKAGE);
4525
4526 program_name = argv[0];
4527 xmalloc_set_program_name (program_name);
4528
4529 START_PROGRESS (program_name, 0);
4530
869b9d07
MM		 4531 expandargv (&argc, &argv);
4532
252b5132
RH		 4533 strip_symbols = STRIP_UNDEF;
4534 discard_locals = LOCALS_UNDEF;
4535
4536 bfd_init ();
4537 set_default_bfd_target ();
4538
4539 if (is_strip < 0)
4540 {
4541 int i = strlen (program_name);
5af11cab
AM		 4542#ifdef HAVE_DOS_BASED_FILE_SYSTEM
4543 /* Drop the .exe suffix, if any. */
4544 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
4545 {
4546 i -= 4;
4547 program_name[i] = '\0';
4548 }
4549#endif
4550 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 4551 }
4552
047c9024
NC		 4553 create_symbol_htabs ();
4554
86eafac0
NC		 4555 if (argv != NULL)
4556 bfd_set_error_program_name (argv[0]);
4557
252b5132
RH		 4558 if (is_strip)
4559 strip_main (argc, argv);
4560 else
4561 copy_main (argc, argv);
4562
4563 END_PROGRESS (program_name);
4564
4565 return status;
4566}
GDB Binutils - Deliverables
This page took 1.2149 seconds and 4 git commands to generate.