projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Automatic date update in version.in
[deliverable/binutils-gdb.git] / binutils / objcopy.c
CommitLineData
252b5132 1/* objcopy.c -- copy object file from input to output, optionally massaging it.
b3adc24a 2 Copyright (C) 1991-2020 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"
0408dee6
DK		 31#include "coff/internal.h"
32#include "libcoff.h"
9ef920e9 33#include "safe-ctype.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{
2b35fb28 53 const char * name;
047c9024 54 bfd_boolean found;
252b5132
RH		 55};
56
0f65a5d8 57/* A node includes symbol name mapping to support redefine_sym. */
57938635
AM		 58struct redefine_node
59{
60 char *source;
61 char *target;
57938635
AM		 62};
63
2b35fb28
RH		 64struct addsym_node
65{
66 struct addsym_node *next;
67 char * symdef;
68 long symval;
69 flagword flags;
70 char * section;
ffebb0bb 71 const char * othersym;
2b35fb28
RH		 72};
73
594ef5db
NC		 74typedef struct section_rename
75{
76 const char * old_name;
77 const char * new_name;
78 flagword flags;
79 struct section_rename * next;
80}
81section_rename;
82
83/* List of sections to be renamed. */
84e2f313 84static section_rename *section_rename_list;
594ef5db 85
84e2f313
NC		 86static asymbol **isympp = NULL; /* Input symbols. */
87static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
252b5132 88
b7dd81f7 89/* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
252b5132 90static int copy_byte = -1;
b7dd81f7
NC		 91static int interleave = 0; /* Initialised to 4 in copy_main(). */
92static int copy_width = 1;
252b5132 93
b34976b6
AM		 94static bfd_boolean verbose; /* Print file and target names. */
95static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
955d0b3b 96static int deterministic = -1; /* Enable deterministic archives. */
9ef920e9
NC		 97static int status = 0; /* Exit status. */
98
99static bfd_boolean merge_notes = FALSE; /* Merge note sections. */
5c49f2cd
NC		 100
101typedef struct merged_note_section
102{
103 asection * sec; /* The section that is being merged. */
104 bfd_byte * contents;/* New contents of the section. */
105 bfd_size_type size; /* New size of the section. */
106 struct merged_note_section * next; /* Link to next merged note section. */
107} merged_note_section;
252b5132
RH		 108
109enum strip_action
2b35fb28
RH		 110{
111 STRIP_UNDEF,
112 STRIP_NONE, /* Don't strip. */
113 STRIP_DEBUG, /* Strip all debugger symbols. */
114 STRIP_UNNEEDED, /* Strip unnecessary symbols. */
115 STRIP_NONDEBUG, /* Strip everything but debug info. */
116 STRIP_DWO, /* Strip all DWO info. */
117 STRIP_NONDWO, /* Strip everything but DWO info. */
118 STRIP_ALL /* Strip all symbols. */
119};
252b5132 120
0af11b59 121/* Which symbols to remove. */
4fc8b895 122static enum strip_action strip_symbols = STRIP_UNDEF;
252b5132
RH		 123
124enum locals_action
2b35fb28
RH		 125{
126 LOCALS_UNDEF,
127 LOCALS_START_L, /* Discard locals starting with L. */
128 LOCALS_ALL /* Discard all locals. */
129};
252b5132
RH		 130
131/* Which local symbols to remove. Overrides STRIP_ALL. */
132static enum locals_action discard_locals;
133
252b5132
RH		 134/* Structure used to hold lists of sections and actions to take. */
135struct section_list
136{
b34976b6 137 struct section_list * next; /* Next section to change. */
2e62b721 138 const char * pattern; /* Section name pattern. */
b34976b6 139 bfd_boolean used; /* Whether this entry was used. */
2e62b721
NC		 140
141 unsigned int context; /* What to do with matching sections. */
142 /* Flag bits used in the context field.
143 COPY and REMOVE are mutually exlusive. SET and ALTER are mutually exclusive. */
144#define SECTION_CONTEXT_REMOVE (1 << 0) /* Remove this section. */
145#define SECTION_CONTEXT_COPY (1 << 1) /* Copy this section, delete all non-copied section. */
64f52b3e
FS		 146#define SECTION_CONTEXT_KEEP (1 << 2) /* Keep this section. */
147#define SECTION_CONTEXT_SET_VMA (1 << 3) /* Set the sections' VMA address. */
148#define SECTION_CONTEXT_ALTER_VMA (1 << 4) /* Increment or decrement the section's VMA address. */
149#define SECTION_CONTEXT_SET_LMA (1 << 5) /* Set the sections' LMA address. */
150#define SECTION_CONTEXT_ALTER_LMA (1 << 6) /* Increment or decrement the section's LMA address. */
151#define SECTION_CONTEXT_SET_FLAGS (1 << 7) /* Set the section's flags. */
152#define SECTION_CONTEXT_REMOVE_RELOCS (1 << 8) /* Remove relocations for this section. */
153#define SECTION_CONTEXT_SET_ALIGNMENT (1 << 9) /* Set alignment for section. */
2e62b721 154
b34976b6 155 bfd_vma vma_val; /* Amount to change by or set to. */
b34976b6 156 bfd_vma lma_val; /* Amount to change by or set to. */
b34976b6 157 flagword flags; /* What to set the section flags to. */
fa463e9f 158 unsigned int alignment; /* Alignment of output section. */
252b5132
RH		 159};
160
161static struct section_list *change_sections;
594ef5db 162
b34976b6
AM		 163/* TRUE if some sections are to be removed. */
164static bfd_boolean sections_removed;
594ef5db 165
b34976b6
AM		 166/* TRUE if only some sections are to be copied. */
167static bfd_boolean sections_copied;
252b5132
RH		 168
169/* Changes to the start address. */
170static bfd_vma change_start = 0;
b34976b6 171static bfd_boolean set_start_set = FALSE;
252b5132
RH		 172static bfd_vma set_start;
173
174/* Changes to section addresses. */
175static bfd_vma change_section_address = 0;
176
177/* Filling gaps between sections. */
b34976b6 178static bfd_boolean gap_fill_set = FALSE;
252b5132
RH		 179static bfd_byte gap_fill = 0;
180
181/* Pad to a given address. */
b34976b6 182static bfd_boolean pad_to_set = FALSE;
252b5132
RH		 183static bfd_vma pad_to;
184
f9d4ad2a
NC		 185/* Use alternative machine code? */
186static unsigned long use_alt_mach_code = 0;
1ae8b3d2 187
4087920c
MR		 188/* Output BFD flags user wants to set or clear */
189static flagword bfd_flags_to_set;
190static flagword bfd_flags_to_clear;
191
252b5132 192/* List of sections to add. */
252b5132
RH		 193struct section_add
194{
195 /* Next section to add. */
196 struct section_add *next;
197 /* Name of section to add. */
198 const char *name;
199 /* Name of file holding section contents. */
200 const char *filename;
201 /* Size of file. */
202 size_t size;
203 /* Contents of file. */
204 bfd_byte *contents;
205 /* BFD section, after it has been added. */
206 asection *section;
207};
208
594ef5db 209/* List of sections to add to the output BFD. */
252b5132
RH		 210static struct section_add *add_sections;
211
acf1419f
AB		 212/* List of sections to update in the output BFD. */
213static struct section_add *update_sections;
214
bbad633b
NC		 215/* List of sections to dump from the output BFD. */
216static struct section_add *dump_sections;
217
2593f09a
NC		 218/* If non-NULL the argument to --add-gnu-debuglink.
219 This should be the filename to store in the .gnu_debuglink section. */
220static const char * gnu_debuglink_filename = NULL;
221
252b5132 222/* Whether to convert debugging information. */
b34976b6 223static bfd_boolean convert_debugging = FALSE;
252b5132 224
4a114e3e
L		 225/* Whether to compress/decompress DWARF debug sections. */
226static enum
227{
cd6faa73
L		 228 nothing = 0,
229 compress = 1 << 0,
230 compress_zlib = compress | 1 << 1,
231 compress_gnu_zlib = compress | 1 << 2,
232 compress_gabi_zlib = compress | 1 << 3,
233 decompress = 1 << 4
4a114e3e
L		 234} do_debug_sections = nothing;
235
b8871f35 236/* Whether to generate ELF common symbols with the STT_COMMON type. */
eecc1a7f 237static enum bfd_link_elf_stt_common do_elf_stt_common = unchanged;
b8871f35 238
252b5132 239/* Whether to change the leading character in symbol names. */
b34976b6 240static bfd_boolean change_leading_char = FALSE;
252b5132
RH		 241
242/* Whether to remove the leading character from global symbol names. */
b34976b6 243static bfd_boolean remove_leading_char = FALSE;
252b5132 244
aaad4cf3 245/* Whether to permit wildcard in symbol comparison. */
5fe11841
NC		 246static bfd_boolean wildcard = FALSE;
247
d58c2e3a
RS		 248/* True if --localize-hidden is in effect. */
249static bfd_boolean localize_hidden = FALSE;
250
16b2b71c
NC		 251/* List of symbols to strip, keep, localize, keep-global, weaken,
252 or redefine. */
047c9024
NC		 253static htab_t strip_specific_htab = NULL;
254static htab_t strip_unneeded_htab = NULL;
255static htab_t keep_specific_htab = NULL;
256static htab_t localize_specific_htab = NULL;
257static htab_t globalize_specific_htab = NULL;
258static htab_t keepglobal_specific_htab = NULL;
259static htab_t weaken_specific_htab = NULL;
0f65a5d8
JW		 260static htab_t redefine_specific_htab = NULL;
261static htab_t redefine_specific_reverse_htab = NULL;
2b35fb28
RH		 262static struct addsym_node *add_sym_list = NULL, **add_sym_tail = &add_sym_list;
263static int add_symbols = 0;
252b5132 264
d839b914
L		 265static char *strip_specific_buffer = NULL;
266static char *strip_unneeded_buffer = NULL;
267static char *keep_specific_buffer = NULL;
268static char *localize_specific_buffer = NULL;
269static char *globalize_specific_buffer = NULL;
270static char *keepglobal_specific_buffer = NULL;
271static char *weaken_specific_buffer = NULL;
272
b34976b6
AM		 273/* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
274static bfd_boolean weaken = FALSE;
252b5132 275
1637cd90
JB		 276/* If this is TRUE, we retain BSF_FILE symbols. */
277static bfd_boolean keep_file_symbols = FALSE;
278
d7fb0dd2
NC		 279/* Prefix symbols/sections. */
280static char *prefix_symbols_string = 0;
281static char *prefix_sections_string = 0;
282static char *prefix_alloc_sections_string = 0;
283
d3e52d40
RS		 284/* True if --extract-symbol was passed on the command line. */
285static bfd_boolean extract_symbol = FALSE;
286
9e48b4c6
NC		 287/* If `reverse_bytes' is nonzero, then reverse the order of every chunk
288 of <reverse_bytes> bytes within each output section. */
289static int reverse_bytes = 0;
290
0408dee6
DK		 291/* For Coff objects, we may want to allow or disallow long section names,
292 or preserve them where found in the inputs. Debug info relies on them. */
293enum long_section_name_handling
2b35fb28
RH		 294{
295 DISABLE,
296 ENABLE,
297 KEEP
298};
0408dee6
DK		 299
300/* The default long section handling mode is to preserve them.
301 This is also the only behaviour for 'strip'. */
302static enum long_section_name_handling long_section_names = KEEP;
9e48b4c6 303
252b5132 304/* 150 isn't special; it's just an arbitrary non-ASCII char value. */
84e2f313 305enum command_line_switch
2b35fb28
RH		 306{
307 OPTION_ADD_SECTION=150,
308 OPTION_ADD_GNU_DEBUGLINK,
309 OPTION_ADD_SYMBOL,
310 OPTION_ALT_MACH_CODE,
311 OPTION_CHANGE_ADDRESSES,
312 OPTION_CHANGE_LEADING_CHAR,
313 OPTION_CHANGE_SECTION_ADDRESS,
314 OPTION_CHANGE_SECTION_LMA,
315 OPTION_CHANGE_SECTION_VMA,
316 OPTION_CHANGE_START,
317 OPTION_CHANGE_WARNINGS,
318 OPTION_COMPRESS_DEBUG_SECTIONS,
319 OPTION_DEBUGGING,
320 OPTION_DECOMPRESS_DEBUG_SECTIONS,
321 OPTION_DUMP_SECTION,
b8871f35 322 OPTION_ELF_STT_COMMON,
2b35fb28
RH		 323 OPTION_EXTRACT_DWO,
324 OPTION_EXTRACT_SYMBOL,
325 OPTION_FILE_ALIGNMENT,
326 OPTION_FORMATS_INFO,
327 OPTION_GAP_FILL,
328 OPTION_GLOBALIZE_SYMBOL,
329 OPTION_GLOBALIZE_SYMBOLS,
330 OPTION_HEAP,
331 OPTION_IMAGE_BASE,
332 OPTION_IMPURE,
333 OPTION_INTERLEAVE_WIDTH,
334 OPTION_KEEPGLOBAL_SYMBOLS,
335 OPTION_KEEP_FILE_SYMBOLS,
64f52b3e 336 OPTION_KEEP_SECTION,
2b35fb28
RH		 337 OPTION_KEEP_SYMBOLS,
338 OPTION_LOCALIZE_HIDDEN,
339 OPTION_LOCALIZE_SYMBOLS,
340 OPTION_LONG_SECTION_NAMES,
9ef920e9 341 OPTION_MERGE_NOTES,
1d15e434 342 OPTION_NO_MERGE_NOTES,
2b35fb28
RH		 343 OPTION_NO_CHANGE_WARNINGS,
344 OPTION_ONLY_KEEP_DEBUG,
345 OPTION_PAD_TO,
346 OPTION_PREFIX_ALLOC_SECTIONS,
347 OPTION_PREFIX_SECTIONS,
348 OPTION_PREFIX_SYMBOLS,
349 OPTION_PURE,
350 OPTION_READONLY_TEXT,
351 OPTION_REDEFINE_SYM,
352 OPTION_REDEFINE_SYMS,
353 OPTION_REMOVE_LEADING_CHAR,
d3e5f6c8 354 OPTION_REMOVE_RELOCS,
2b35fb28
RH		 355 OPTION_RENAME_SECTION,
356 OPTION_REVERSE_BYTES,
fa463e9f 357 OPTION_PE_SECTION_ALIGNMENT,
2b35fb28 358 OPTION_SET_SECTION_FLAGS,
fa463e9f 359 OPTION_SET_SECTION_ALIGNMENT,
2b35fb28
RH		 360 OPTION_SET_START,
361 OPTION_SREC_FORCES3,
362 OPTION_SREC_LEN,
363 OPTION_STACK,
364 OPTION_STRIP_DWO,
365 OPTION_STRIP_SYMBOLS,
366 OPTION_STRIP_UNNEEDED,
367 OPTION_STRIP_UNNEEDED_SYMBOL,
368 OPTION_STRIP_UNNEEDED_SYMBOLS,
369 OPTION_SUBSYSTEM,
370 OPTION_UPDATE_SECTION,
37d0d091 371 OPTION_VERILOG_DATA_WIDTH,
2b35fb28
RH		 372 OPTION_WEAKEN,
373 OPTION_WEAKEN_SYMBOLS,
374 OPTION_WRITABLE_TEXT
375};
252b5132
RH		 376
377/* Options to handle if running as "strip". */
378
379static struct option strip_options[] =
380{
955d0b3b 381 {"disable-deterministic-archives", no_argument, 0, 'U'},
252b5132
RH		 382 {"discard-all", no_argument, 0, 'x'},
383 {"discard-locals", no_argument, 0, 'X'},
2e30cb57 384 {"enable-deterministic-archives", no_argument, 0, 'D'},
252b5132
RH		 385 {"format", required_argument, 0, 'F'}, /* Obsolete */
386 {"help", no_argument, 0, 'h'},
7c29036b 387 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 388 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
389 {"input-target", required_argument, 0, 'I'},
1637cd90 390 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
64f52b3e 391 {"keep-section", required_argument, 0, OPTION_KEEP_SECTION},
252b5132 392 {"keep-symbol", required_argument, 0, 'K'},
1d15e434
NC		 393 {"merge-notes", no_argument, 0, 'M'},
394 {"no-merge-notes", no_argument, 0, OPTION_NO_MERGE_NOTES},
ed1653a7 395 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
2b35fb28 396 {"output-file", required_argument, 0, 'o'},
252b5132
RH		 397 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
398 {"output-target", required_argument, 0, 'O'},
399 {"preserve-dates", no_argument, 0, 'p'},
400 {"remove-section", required_argument, 0, 'R'},
d3e5f6c8 401 {"remove-relocations", required_argument, 0, OPTION_REMOVE_RELOCS},
252b5132
RH		 402 {"strip-all", no_argument, 0, 's'},
403 {"strip-debug", no_argument, 0, 'S'},
96109726 404 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
252b5132 405 {"strip-symbol", required_argument, 0, 'N'},
2b35fb28 406 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
252b5132
RH		 407 {"target", required_argument, 0, 'F'},
408 {"verbose", no_argument, 0, 'v'},
409 {"version", no_argument, 0, 'V'},
5fe11841 410 {"wildcard", no_argument, 0, 'w'},
252b5132
RH		 411 {0, no_argument, 0, 0}
412};
413
414/* Options to handle if running as "objcopy". */
415
416static struct option copy_options[] =
417{
2593f09a 418 {"add-gnu-debuglink", required_argument, 0, OPTION_ADD_GNU_DEBUGLINK},
252b5132 419 {"add-section", required_argument, 0, OPTION_ADD_SECTION},
2b35fb28
RH		 420 {"add-symbol", required_argument, 0, OPTION_ADD_SYMBOL},
421 {"adjust-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
252b5132
RH		 422 {"adjust-start", required_argument, 0, OPTION_CHANGE_START},
423 {"adjust-vma", required_argument, 0, OPTION_CHANGE_ADDRESSES},
252b5132 424 {"adjust-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
d7fb0dd2 425 {"alt-machine-code", required_argument, 0, OPTION_ALT_MACH_CODE},
43a0748c 426 {"binary-architecture", required_argument, 0, 'B'},
252b5132
RH		 427 {"byte", required_argument, 0, 'b'},
428 {"change-addresses", required_argument, 0, OPTION_CHANGE_ADDRESSES},
429 {"change-leading-char", no_argument, 0, OPTION_CHANGE_LEADING_CHAR},
430 {"change-section-address", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
431 {"change-section-lma", required_argument, 0, OPTION_CHANGE_SECTION_LMA},
432 {"change-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_VMA},
433 {"change-start", required_argument, 0, OPTION_CHANGE_START},
434 {"change-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
151411f8 435 {"compress-debug-sections", optional_argument, 0, OPTION_COMPRESS_DEBUG_SECTIONS},
252b5132 436 {"debugging", no_argument, 0, OPTION_DEBUGGING},
4a114e3e 437 {"decompress-debug-sections", no_argument, 0, OPTION_DECOMPRESS_DEBUG_SECTIONS},
955d0b3b 438 {"disable-deterministic-archives", no_argument, 0, 'U'},
252b5132
RH		 439 {"discard-all", no_argument, 0, 'x'},
440 {"discard-locals", no_argument, 0, 'X'},
bbad633b 441 {"dump-section", required_argument, 0, OPTION_DUMP_SECTION},
b8871f35 442 {"elf-stt-common", required_argument, 0, OPTION_ELF_STT_COMMON},
2e30cb57 443 {"enable-deterministic-archives", no_argument, 0, 'D'},
96109726 444 {"extract-dwo", no_argument, 0, OPTION_EXTRACT_DWO},
d3e52d40 445 {"extract-symbol", no_argument, 0, OPTION_EXTRACT_SYMBOL},
2b35fb28 446 {"file-alignment", required_argument, 0, OPTION_FILE_ALIGNMENT},
252b5132
RH		 447 {"format", required_argument, 0, 'F'}, /* Obsolete */
448 {"gap-fill", required_argument, 0, OPTION_GAP_FILL},
7b4a0685
NC		 449 {"globalize-symbol", required_argument, 0, OPTION_GLOBALIZE_SYMBOL},
450 {"globalize-symbols", required_argument, 0, OPTION_GLOBALIZE_SYMBOLS},
2b35fb28 451 {"heap", required_argument, 0, OPTION_HEAP},
252b5132 452 {"help", no_argument, 0, 'h'},
2b35fb28 453 {"image-base", required_argument, 0 , OPTION_IMAGE_BASE},
4087920c 454 {"impure", no_argument, 0, OPTION_IMPURE},
7c29036b 455 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 456 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
457 {"input-target", required_argument, 0, 'I'},
b7dd81f7
NC		 458 {"interleave", optional_argument, 0, 'i'},
459 {"interleave-width", required_argument, 0, OPTION_INTERLEAVE_WIDTH},
1637cd90 460 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
d7fb0dd2
NC		 461 {"keep-global-symbol", required_argument, 0, 'G'},
462 {"keep-global-symbols", required_argument, 0, OPTION_KEEPGLOBAL_SYMBOLS},
64f52b3e 463 {"keep-section", required_argument, 0, OPTION_KEEP_SECTION},
252b5132 464 {"keep-symbol", required_argument, 0, 'K'},
d7fb0dd2 465 {"keep-symbols", required_argument, 0, OPTION_KEEP_SYMBOLS},
d58c2e3a 466 {"localize-hidden", no_argument, 0, OPTION_LOCALIZE_HIDDEN},
d7fb0dd2
NC		 467 {"localize-symbol", required_argument, 0, 'L'},
468 {"localize-symbols", required_argument, 0, OPTION_LOCALIZE_SYMBOLS},
0408dee6 469 {"long-section-names", required_argument, 0, OPTION_LONG_SECTION_NAMES},
9ef920e9 470 {"merge-notes", no_argument, 0, 'M'},
1d15e434 471 {"no-merge-notes", no_argument, 0, OPTION_NO_MERGE_NOTES},
252b5132
RH		 472 {"no-adjust-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
473 {"no-change-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
ed1653a7 474 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
d7fb0dd2 475 {"only-section", required_argument, 0, 'j'},
252b5132
RH		 476 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
477 {"output-target", required_argument, 0, 'O'},
478 {"pad-to", required_argument, 0, OPTION_PAD_TO},
d7fb0dd2 479 {"prefix-alloc-sections", required_argument, 0, OPTION_PREFIX_ALLOC_SECTIONS},
2b35fb28
RH		 480 {"prefix-sections", required_argument, 0, OPTION_PREFIX_SECTIONS},
481 {"prefix-symbols", required_argument, 0, OPTION_PREFIX_SYMBOLS},
252b5132 482 {"preserve-dates", no_argument, 0, 'p'},
4087920c
MR		 483 {"pure", no_argument, 0, OPTION_PURE},
484 {"readonly-text", no_argument, 0, OPTION_READONLY_TEXT},
d7fb0dd2 485 {"redefine-sym", required_argument, 0, OPTION_REDEFINE_SYM},
92991082 486 {"redefine-syms", required_argument, 0, OPTION_REDEFINE_SYMS},
252b5132
RH		 487 {"remove-leading-char", no_argument, 0, OPTION_REMOVE_LEADING_CHAR},
488 {"remove-section", required_argument, 0, 'R'},
d3e5f6c8 489 {"remove-relocations", required_argument, 0, OPTION_REMOVE_RELOCS},
594ef5db 490 {"rename-section", required_argument, 0, OPTION_RENAME_SECTION},
9e48b4c6 491 {"reverse-bytes", required_argument, 0, OPTION_REVERSE_BYTES},
fa463e9f 492 {"section-alignment", required_argument, 0, OPTION_PE_SECTION_ALIGNMENT},
252b5132 493 {"set-section-flags", required_argument, 0, OPTION_SET_SECTION_FLAGS},
fa463e9f 494 {"set-section-alignment", required_argument, 0, OPTION_SET_SECTION_ALIGNMENT},
252b5132 495 {"set-start", required_argument, 0, OPTION_SET_START},
d7fb0dd2 496 {"srec-forceS3", no_argument, 0, OPTION_SREC_FORCES3},
2b35fb28
RH		 497 {"srec-len", required_argument, 0, OPTION_SREC_LEN},
498 {"stack", required_argument, 0, OPTION_STACK},
252b5132
RH		 499 {"strip-all", no_argument, 0, 'S'},
500 {"strip-debug", no_argument, 0, 'g'},
96109726 501 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
2b35fb28
RH		 502 {"strip-symbol", required_argument, 0, 'N'},
503 {"strip-symbols", required_argument, 0, OPTION_STRIP_SYMBOLS},
252b5132 504 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
bcf32829
JB		 505 {"strip-unneeded-symbol", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOL},
506 {"strip-unneeded-symbols", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOLS},
2b35fb28 507 {"subsystem", required_argument, 0, OPTION_SUBSYSTEM},
252b5132 508 {"target", required_argument, 0, 'F'},
2b35fb28 509 {"update-section", required_argument, 0, OPTION_UPDATE_SECTION},
252b5132 510 {"verbose", no_argument, 0, 'v'},
37d0d091 511 {"verilog-data-width", required_argument, 0, OPTION_VERILOG_DATA_WIDTH},
252b5132
RH		 512 {"version", no_argument, 0, 'V'},
513 {"weaken", no_argument, 0, OPTION_WEAKEN},
514 {"weaken-symbol", required_argument, 0, 'W'},
16b2b71c 515 {"weaken-symbols", required_argument, 0, OPTION_WEAKEN_SYMBOLS},
5fe11841 516 {"wildcard", no_argument, 0, 'w'},
4087920c 517 {"writable-text", no_argument, 0, OPTION_WRITABLE_TEXT},
252b5132
RH		 518 {0, no_argument, 0, 0}
519};
520
521/* IMPORTS */
522extern char *program_name;
523
524/* This flag distinguishes between strip and objcopy:
525 1 means this is 'strip'; 0 means this is 'objcopy'.
0af11b59 526 -1 means if we should use argv[0] to decide. */
252b5132
RH		 527extern int is_strip;
528
4bc26c69 529/* The maximum length of an S record. This variable is defined in srec.c
420496c1 530 and can be modified by the --srec-len parameter. */
4bc26c69 531extern unsigned int _bfd_srec_len;
420496c1
NC		 532
533/* Restrict the generation of Srecords to type S3 only.
4bc26c69 534 This variable is defined in bfd/srec.c and can be toggled
420496c1 535 on by the --srec-forceS3 command line switch. */
4bc26c69 536extern bfd_boolean _bfd_srec_forceS3;
252b5132 537
37d0d091
JH		 538/* Width of data in bytes for verilog output.
539 This variable is declared in bfd/verilog.c and can be modified by
540 the --verilog-data-width parameter. */
541extern unsigned int VerilogDataWidth;
542
d3ba0551
AM		 543/* Forward declarations. */
544static void setup_section (bfd *, asection *, void *);
80fccad2 545static void setup_bfd_headers (bfd *, bfd *);
c3989150 546static void copy_relocations_in_section (bfd *, asection *, void *);
d3ba0551
AM		 547static void copy_section (bfd *, asection *, void *);
548static void get_sections (bfd *, asection *, void *);
549static int compare_section_lma (const void *, const void *);
550static void mark_symbols_used_in_relocations (bfd *, asection *, void *);
551static bfd_boolean write_debugging_info (bfd *, void *, long *, asymbol ***);
552static const char *lookup_sym_redefinition (const char *);
9cc0123f 553static const char *find_section_rename (const char *, flagword *);
594ef5db 554\f
1e0f0b4d 555ATTRIBUTE_NORETURN static void
84e2f313 556copy_usage (FILE *stream, int exit_status)
252b5132 557{
8b53311e
NC		 558 fprintf (stream, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name);
559 fprintf (stream, _(" Copies a binary file, possibly transforming it in the process\n"));
6364e0b4 560 fprintf (stream, _(" The options are:\n"));
252b5132 561 fprintf (stream, _("\
d5bcb29d
NC		 562 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
563 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
8b31b6c4 564 -B --binary-architecture <arch> Set output arch, when input is arch-less\n\
d5bcb29d
NC		 565 -F --target <bfdname> Set both input and output format to <bfdname>\n\
566 --debugging Convert debugging information, if possible\n\
955d0b3b
RM		 567 -p --preserve-dates Copy modified/access timestamps to the output\n"));
568 if (DEFAULT_AR_DETERMINISTIC)
569 fprintf (stream, _("\
570 -D --enable-deterministic-archives\n\
571 Produce deterministic output when stripping archives (default)\n\
572 -U --disable-deterministic-archives\n\
573 Disable -D behavior\n"));
574 else
575 fprintf (stream, _("\
2e30cb57
CC		 576 -D --enable-deterministic-archives\n\
577 Produce deterministic output when stripping archives\n\
955d0b3b
RM		 578 -U --disable-deterministic-archives\n\
579 Disable -D behavior (default)\n"));
580 fprintf (stream, _("\
d5bcb29d 581 -j --only-section <name> Only copy section <name> into the output\n\
2593f09a 582 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
d5bcb29d 583 -R --remove-section <name> Remove section <name> from the output\n\
d3e5f6c8 584 --remove-relocations <name> Remove relocations from section <name>\n\
d5bcb29d 585 -S --strip-all Remove all symbol and relocation information\n\
2593f09a 586 -g --strip-debug Remove all debugging symbols & sections\n\
96109726 587 --strip-dwo Remove all DWO sections\n\
d5bcb29d
NC		 588 --strip-unneeded Remove all symbols not needed by relocations\n\
589 -N --strip-symbol <name> Do not copy symbol <name>\n\
bcf32829
JB		 590 --strip-unneeded-symbol <name>\n\
591 Do not copy symbol <name> unless needed by\n\
592 relocations\n\
6ea3dd37 593 --only-keep-debug Strip everything but the debug information\n\
96109726 594 --extract-dwo Copy only DWO sections\n\
d3e52d40 595 --extract-symbol Remove section contents but keep symbols\n\
64f52b3e 596 --keep-section <name> Do not strip section <name>\n\
e7f918ad 597 -K --keep-symbol <name> Do not strip symbol <name>\n\
1637cd90 598 --keep-file-symbols Do not strip file symbol(s)\n\
d58c2e3a 599 --localize-hidden Turn all ELF hidden symbols into locals\n\
d5bcb29d 600 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
7b4a0685 601 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
16b2b71c 602 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
d5bcb29d
NC		 603 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
604 --weaken Force all global symbols to be marked as weak\n\
a95b5cf9 605 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 606 -x --discard-all Remove all non-global symbols\n\
607 -X --discard-locals Remove any compiler-generated symbols\n\
bfcf0ccd 608 -i --interleave[=<number>] Only copy N out of every <number> bytes\n\
b7dd81f7 609 --interleave-width <number> Set N for --interleave\n\
d5bcb29d
NC		 610 -b --byte <num> Select byte <num> in every interleaved block\n\
611 --gap-fill <val> Fill gaps between sections with <val>\n\
612 --pad-to <addr> Pad the last section up to address <addr>\n\
613 --set-start <addr> Set the start address to <addr>\n\
614 {--change-start|--adjust-start} <incr>\n\
615 Add <incr> to the start address\n\
616 {--change-addresses|--adjust-vma} <incr>\n\
617 Add <incr> to LMA, VMA and start addresses\n\
618 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
619 Change LMA and VMA of section <name> by <val>\n\
620 --change-section-lma <name>{=|+|-}<val>\n\
621 Change the LMA of section <name> by <val>\n\
622 --change-section-vma <name>{=|+|-}<val>\n\
623 Change the VMA of section <name> by <val>\n\
624 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
625 Warn if a named section does not exist\n\
626 --set-section-flags <name>=<flags>\n\
627 Set section <name>'s properties to <flags>\n\
fa463e9f 628 --set-section-alignment <name>=<align>\n\
de4859ea 629 Set section <name>'s alignment to <align> bytes\n\
d5bcb29d 630 --add-section <name>=<file> Add section <name> found in <file> to output\n\
acf1419f
AB		 631 --update-section <name>=<file>\n\
632 Update contents of section <name> with\n\
633 contents found in <file>\n\
bbad633b 634 --dump-section <name>=<file> Dump the contents of section <name> into <file>\n\
594ef5db 635 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
0408dee6
DK		 636 --long-section-names {enable|disable|keep}\n\
637 Handle long section names in Coff objects.\n\
d5bcb29d
NC		 638 --change-leading-char Force output format's leading character style\n\
639 --remove-leading-char Remove leading character from global symbols\n\
9e48b4c6 640 --reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
57938635 641 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
92991082
JT		 642 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
643 listed in <file>\n\
420496c1
NC		 644 --srec-len <number> Restrict the length of generated Srecords\n\
645 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
16b2b71c 646 --strip-symbols <file> -N for all symbols listed in <file>\n\
bcf32829
JB		 647 --strip-unneeded-symbols <file>\n\
648 --strip-unneeded-symbol for all symbols listed\n\
649 in <file>\n\
16b2b71c
NC		 650 --keep-symbols <file> -K for all symbols listed in <file>\n\
651 --localize-symbols <file> -L for all symbols listed in <file>\n\
7b4a0685 652 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
16b2b71c
NC		 653 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
654 --weaken-symbols <file> -W for all symbols listed in <file>\n\
2b35fb28 655 --add-symbol <name>=[<section>:]<value>[,<flags>] Add a symbol\n\
f9d4ad2a 656 --alt-machine-code <index> Use the target's <index>'th alternative machine\n\
4087920c
MR		 657 --writable-text Mark the output text as writable\n\
658 --readonly-text Make the output text write protected\n\
659 --pure Mark the output file as demand paged\n\
660 --impure Mark the output file as impure\n\
d7fb0dd2
NC		 661 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
662 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
663 --prefix-alloc-sections <prefix>\n\
664 Add <prefix> to start of every allocatable\n\
665 section name\n\
92dd4511
L		 666 --file-alignment <num> Set PE file alignment to <num>\n\
667 --heap <reserve>[,<commit>] Set PE reserve/commit heap to <reserve>/\n\
668 <commit>\n\
669 --image-base <address> Set PE image base to <address>\n\
670 --section-alignment <num> Set PE section alignment to <num>\n\
671 --stack <reserve>[,<commit>] Set PE reserve/commit stack to <reserve>/\n\
672 <commit>\n\
673 --subsystem <name>[:<version>]\n\
447049af 674 Set PE subsystem to <name> [& <version>]\n\
151411f8
L		 675 --compress-debug-sections[={none|zlib|zlib-gnu|zlib-gabi}]\n\
676 Compress DWARF debug sections using zlib\n\
4a114e3e 677 --decompress-debug-sections Decompress DWARF debug sections using zlib\n\
b8871f35
L		 678 --elf-stt-common=[yes|no] Generate ELF common symbols with STT_COMMON\n\
679 type\n\
37d0d091 680 --verilog-data-width <number> Specifies data width, in bytes, for verilog output\n\
9ef920e9 681 -M --merge-notes Remove redundant entries in note sections\n\
1d15e434 682 --no-merge-notes Do not attempt to remove redundant notes (default)\n\
d5bcb29d 683 -v --verbose List all object files modified\n\
07012eee 684 @<file> Read options from <file>\n\
d5bcb29d
NC		 685 -V --version Display this program's version number\n\
686 -h --help Display this output\n\
7c29036b 687 --info List object formats & architectures supported\n\
d5bcb29d 688"));
252b5132 689 list_supported_targets (program_name, stream);
92f01d61 690 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 691 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 692 exit (exit_status);
693}
694
1e0f0b4d 695ATTRIBUTE_NORETURN static void
84e2f313 696strip_usage (FILE *stream, int exit_status)
252b5132 697{
8b53311e
NC		 698 fprintf (stream, _("Usage: %s <option(s)> in-file(s)\n"), program_name);
699 fprintf (stream, _(" Removes symbols and sections from files\n"));
6364e0b4 700 fprintf (stream, _(" The options are:\n"));
252b5132 701 fprintf (stream, _("\
8b53311e
NC		 702 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
703 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
704 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
d5bcb29d 705 -p --preserve-dates Copy modified/access timestamps to the output\n\
955d0b3b
RM		 706"));
707 if (DEFAULT_AR_DETERMINISTIC)
708 fprintf (stream, _("\
709 -D --enable-deterministic-archives\n\
710 Produce deterministic output when stripping archives (default)\n\
711 -U --disable-deterministic-archives\n\
712 Disable -D behavior\n"));
713 else
714 fprintf (stream, _("\
2e30cb57
CC		 715 -D --enable-deterministic-archives\n\
716 Produce deterministic output when stripping archives\n\
955d0b3b
RM		 717 -U --disable-deterministic-archives\n\
718 Disable -D behavior (default)\n"));
719 fprintf (stream, _("\
805b1c8b 720 -R --remove-section=<name> Also remove section <name> from the output\n\
d3e5f6c8 721 --remove-relocations <name> Remove relocations from section <name>\n\
d5bcb29d 722 -s --strip-all Remove all symbol and relocation information\n\
2593f09a 723 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
96109726 724 --strip-dwo Remove all DWO sections\n\
d5bcb29d 725 --strip-unneeded Remove all symbols not needed by relocations\n\
6ea3dd37 726 --only-keep-debug Strip everything but the debug information\n\
1d15e434
NC		 727 -M --merge-notes Remove redundant entries in note sections (default)\n\
728 --no-merge-notes Do not attempt to remove redundant notes\n\
8b53311e 729 -N --strip-symbol=<name> Do not copy symbol <name>\n\
64f52b3e 730 --keep-section=<name> Do not strip section <name>\n\
5219e4c0 731 -K --keep-symbol=<name> Do not strip symbol <name>\n\
1637cd90 732 --keep-file-symbols Do not strip file symbol(s)\n\
a95b5cf9 733 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 734 -x --discard-all Remove all non-global symbols\n\
735 -X --discard-locals Remove any compiler-generated symbols\n\
736 -v --verbose List all object files modified\n\
737 -V --version Display this program's version number\n\
738 -h --help Display this output\n\
7c29036b 739 --info List object formats & architectures supported\n\
d5bcb29d
NC		 740 -o <file> Place stripped output into <file>\n\
741"));
742
252b5132 743 list_supported_targets (program_name, stream);
92f01d61 744 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 745 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 746 exit (exit_status);
747}
748
749/* Parse section flags into a flagword, with a fatal error if the
750 string can't be parsed. */
751
752static flagword
84e2f313 753parse_flags (const char *s)
252b5132
RH		 754{
755 flagword ret;
756 const char *snext;
757 int len;
758
759 ret = SEC_NO_FLAGS;
760
761 do
762 {
763 snext = strchr (s, ',');
764 if (snext == NULL)
765 len = strlen (s);
766 else
767 {
768 len = snext - s;
769 ++snext;
770 }
771
772 if (0) ;
f7433f01
AM		 773#define PARSE_FLAG(fname,fval) \
774 else if (strncasecmp (fname, s, len) == 0) ret |= fval
252b5132
RH		 775 PARSE_FLAG ("alloc", SEC_ALLOC);
776 PARSE_FLAG ("load", SEC_LOAD);
3994e2c6 777 PARSE_FLAG ("noload", SEC_NEVER_LOAD);
252b5132 778 PARSE_FLAG ("readonly", SEC_READONLY);
3994e2c6 779 PARSE_FLAG ("debug", SEC_DEBUGGING);
252b5132
RH		 780 PARSE_FLAG ("code", SEC_CODE);
781 PARSE_FLAG ("data", SEC_DATA);
782 PARSE_FLAG ("rom", SEC_ROM);
3a5d12fb 783 PARSE_FLAG ("exclude", SEC_EXCLUDE);
ebe372c1 784 PARSE_FLAG ("share", SEC_COFF_SHARED);
252b5132 785 PARSE_FLAG ("contents", SEC_HAS_CONTENTS);
5dddde8e
AM		 786 PARSE_FLAG ("merge", SEC_MERGE);
787 PARSE_FLAG ("strings", SEC_STRINGS);
252b5132
RH		 788#undef PARSE_FLAG
789 else
790 {
791 char *copy;
792
3f5e193b 793 copy = (char *) xmalloc (len + 1);
252b5132
RH		 794 strncpy (copy, s, len);
795 copy[len] = '\0';
796 non_fatal (_("unrecognized section flag `%s'"), copy);
57938635 797 fatal (_("supported flags: %s"),
3a5d12fb 798 "alloc, load, noload, readonly, debug, code, data, rom, exclude, share, contents, merge, strings");
252b5132
RH		 799 }
800
801 s = snext;
802 }
803 while (s != NULL);
804
805 return ret;
806}
807
2b35fb28
RH		 808/* Parse symbol flags into a flagword, with a fatal error if the
809 string can't be parsed. */
810
811static flagword
ffebb0bb 812parse_symflags (const char *s, const char **other)
2b35fb28
RH		 813{
814 flagword ret;
815 const char *snext;
f7433f01 816 size_t len;
2b35fb28
RH		 817
818 ret = BSF_NO_FLAGS;
819
820 do
821 {
822 snext = strchr (s, ',');
823 if (snext == NULL)
f7433f01 824 len = strlen (s);
2b35fb28
RH		 825 else
826 {
827 len = snext - s;
828 ++snext;
829 }
830
f7433f01
AM		 831#define PARSE_FLAG(fname, fval) \
832 else if (len == sizeof fname - 1 \
833 && strncasecmp (fname, s, len) == 0) \
2b35fb28
RH		 834 ret |= fval
835
f7433f01
AM		 836#define PARSE_OTHER(fname, fval) \
837 else if (len >= sizeof fname \
838 && strncasecmp (fname, s, sizeof fname - 1) == 0) \
a4f8732b 839 fval = xstrndup (s + sizeof fname - 1, len - sizeof fname + 1)
f7433f01 840
2b35fb28
RH		 841 if (0) ;
842 PARSE_FLAG ("local", BSF_LOCAL);
843 PARSE_FLAG ("global", BSF_GLOBAL);
844 PARSE_FLAG ("export", BSF_EXPORT);
845 PARSE_FLAG ("debug", BSF_DEBUGGING);
846 PARSE_FLAG ("function", BSF_FUNCTION);
847 PARSE_FLAG ("weak", BSF_WEAK);
848 PARSE_FLAG ("section", BSF_SECTION_SYM);
849 PARSE_FLAG ("constructor", BSF_CONSTRUCTOR);
850 PARSE_FLAG ("warning", BSF_WARNING);
851 PARSE_FLAG ("indirect", BSF_INDIRECT);
852 PARSE_FLAG ("file", BSF_FILE);
853 PARSE_FLAG ("object", BSF_OBJECT);
854 PARSE_FLAG ("synthetic", BSF_SYNTHETIC);
855 PARSE_FLAG ("indirect-function", BSF_GNU_INDIRECT_FUNCTION | BSF_FUNCTION);
856 PARSE_FLAG ("unique-object", BSF_GNU_UNIQUE | BSF_OBJECT);
857 PARSE_OTHER ("before=", *other);
858
859#undef PARSE_FLAG
860#undef PARSE_OTHER
861 else
862 {
863 char *copy;
864
865 copy = (char *) xmalloc (len + 1);
866 strncpy (copy, s, len);
867 copy[len] = '\0';
868 non_fatal (_("unrecognized symbol flag `%s'"), copy);
869 fatal (_("supported flags: %s"),
f7433f01
AM		 870 "local, global, export, debug, function, weak, section, "
871 "constructor, warning, indirect, file, object, synthetic, "
872 "indirect-function, unique-object, before=<othersym>");
2b35fb28
RH		 873 }
874
875 s = snext;
876 }
877 while (s != NULL);
878
879 return ret;
880}
881
2e62b721
NC		 882/* Find and optionally add an entry in the change_sections list.
883
884 We need to be careful in how we match section names because of the support
885 for wildcard characters. For example suppose that the user has invoked
886 objcopy like this:
3aade688 887
2e62b721
NC		 888 --set-section-flags .debug_*=debug
889 --set-section-flags .debug_str=readonly,debug
890 --change-section-address .debug_*ranges=0x1000
891
892 With the idea that all debug sections will receive the DEBUG flag, the
893 .debug_str section will also receive the READONLY flag and the
894 .debug_ranges and .debug_aranges sections will have their address set to
895 0x1000. (This may not make much sense, but it is just an example).
896
897 When adding the section name patterns to the section list we need to make
898 sure that previous entries do not match with the new entry, unless the
899 match is exact. (In which case we assume that the user is overriding
900 the previous entry with the new context).
901
902 When matching real section names to the section list we make use of the
903 wildcard characters, but we must do so in context. Eg if we are setting
904 section addresses then we match for .debug_ranges but not for .debug_info.
905
906 Finally, if ADD is false and we do find a match, we mark the section list
907 entry as used. */
252b5132
RH		 908
909static struct section_list *
2e62b721 910find_section_list (const char *name, bfd_boolean add, unsigned int context)
252b5132 911{
e511c9b1 912 struct section_list *p, *match = NULL;
252b5132 913
2e62b721 914 /* assert ((context & ((1 << 7) - 1)) != 0); */
3aade688 915
252b5132 916 for (p = change_sections; p != NULL; p = p->next)
2e62b721
NC		 917 {
918 if (add)
919 {
920 if (strcmp (p->pattern, name) == 0)
921 {
922 /* Check for context conflicts. */
923 if (((p->context & SECTION_CONTEXT_REMOVE)
924 && (context & SECTION_CONTEXT_COPY))
925 || ((context & SECTION_CONTEXT_REMOVE)
926 && (p->context & SECTION_CONTEXT_COPY)))
927 fatal (_("error: %s both copied and removed"), name);
928
929 if (((p->context & SECTION_CONTEXT_SET_VMA)
930 && (context & SECTION_CONTEXT_ALTER_VMA))
931 || ((context & SECTION_CONTEXT_SET_VMA)
932 && (context & SECTION_CONTEXT_ALTER_VMA)))
933 fatal (_("error: %s both sets and alters VMA"), name);
934
935 if (((p->context & SECTION_CONTEXT_SET_LMA)
936 && (context & SECTION_CONTEXT_ALTER_LMA))
937 || ((context & SECTION_CONTEXT_SET_LMA)
938 && (context & SECTION_CONTEXT_ALTER_LMA)))
939 fatal (_("error: %s both sets and alters LMA"), name);
940
941 /* Extend the context. */
942 p->context |= context;
943 return p;
944 }
945 }
946 /* If we are not adding a new name/pattern then
947 only check for a match if the context applies. */
e511c9b1
AB		 948 else if (p->context & context)
949 {
950 /* We could check for the presence of wildchar characters
951 first and choose between calling strcmp and fnmatch,
952 but is that really worth it ? */
953 if (p->pattern [0] == '!')
954 {
955 if (fnmatch (p->pattern + 1, name, 0) == 0)
956 {
957 p->used = TRUE;
958 return NULL;
959 }
960 }
961 else
962 {
963 if (fnmatch (p->pattern, name, 0) == 0)
964 {
965 if (match == NULL)
966 match = p;
967 }
968 }
969 }
2e62b721 970 }
252b5132
RH		 971
972 if (! add)
e511c9b1
AB		 973 {
974 if (match != NULL)
975 match->used = TRUE;
976 return match;
977 }
252b5132 978
3f5e193b 979 p = (struct section_list *) xmalloc (sizeof (struct section_list));
2e62b721 980 p->pattern = name;
b34976b6 981 p->used = FALSE;
2e62b721 982 p->context = context;
252b5132
RH		 983 p->vma_val = 0;
984 p->lma_val = 0;
252b5132 985 p->flags = 0;
fa463e9f 986 p->alignment = 0;
252b5132
RH		 987 p->next = change_sections;
988 change_sections = p;
989
990 return p;
991}
992
0f65a5d8
JW		 993/* S1 is the entry node already in the table, S2 is the key node. */
994
995static int
996eq_string_redefnode (const void *s1, const void *s2)
997{
998 struct redefine_node *node1 = (struct redefine_node *) s1;
999 struct redefine_node *node2 = (struct redefine_node *) s2;
1000 return !strcmp ((const char *) node1->source, (const char *) node2->source);
1001}
1002
1003/* P is redefine node. Hash value is generated from its "source" filed. */
1004
1005static hashval_t
1006htab_hash_redefnode (const void *p)
1007{
1008 struct redefine_node *redefnode = (struct redefine_node *) p;
1009 return htab_hash_string (redefnode->source);
1010}
1011
1012/* Create hashtab used for redefine node. */
1013
1014static htab_t
1015create_symbol2redef_htab (void)
1016{
1017 return htab_create_alloc (16, htab_hash_redefnode, eq_string_redefnode, NULL,
1018 xcalloc, free);
1019}
1020
047c9024
NC		 1021/* There is htab_hash_string but no htab_eq_string. Makes sense. */
1022
1023static int
1024eq_string (const void *s1, const void *s2)
1025{
3f5e193b 1026 return strcmp ((const char *) s1, (const char *) s2) == 0;
047c9024
NC		 1027}
1028
1029static htab_t
1030create_symbol_htab (void)
1031{
1032 return htab_create_alloc (16, htab_hash_string, eq_string, NULL, xcalloc, free);
1033}
252b5132 1034
57938635 1035static void
047c9024 1036create_symbol_htabs (void)
252b5132 1037{
047c9024
NC		 1038 strip_specific_htab = create_symbol_htab ();
1039 strip_unneeded_htab = create_symbol_htab ();
1040 keep_specific_htab = create_symbol_htab ();
1041 localize_specific_htab = create_symbol_htab ();
1042 globalize_specific_htab = create_symbol_htab ();
1043 keepglobal_specific_htab = create_symbol_htab ();
1044 weaken_specific_htab = create_symbol_htab ();
0f65a5d8
JW		 1045 redefine_specific_htab = create_symbol2redef_htab ();
1046 /* As there is no bidirectional hash table in libiberty, need a reverse table
1047 to check duplicated target string. */
1048 redefine_specific_reverse_htab = create_symbol_htab ();
047c9024
NC		 1049}
1050
1051/* Add a symbol to strip_specific_list. */
252b5132 1052
047c9024
NC		 1053static void
1054add_specific_symbol (const char *name, htab_t htab)
1055{
1056 *htab_find_slot (htab, name, INSERT) = (char *) name;
252b5132
RH		 1057}
1058
0f65a5d8
JW		 1059/* Like add_specific_symbol, but the element type is void *. */
1060
1061static void
1062add_specific_symbol_node (const void *node, htab_t htab)
1063{
1064 *htab_find_slot (htab, node, INSERT) = (void *) node;
1065}
1066
0af11b59 1067/* Add symbols listed in `filename' to strip_specific_list. */
16b2b71c
NC		 1068
1069#define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
1070#define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
1071
1072static void
d839b914 1073add_specific_symbols (const char *filename, htab_t htab, char **buffer_p)
16b2b71c 1074{
f24ddbdd 1075 off_t size;
16b2b71c
NC		 1076 FILE * f;
1077 char * line;
1078 char * buffer;
1079 unsigned int line_count;
0af11b59 1080
f24ddbdd
NC		 1081 size = get_file_size (filename);
1082 if (size == 0)
d68c385b
NC		 1083 {
1084 status = 1;
1085 return;
1086 }
16b2b71c 1087
3f5e193b 1088 buffer = (char *) xmalloc (size + 2);
16b2b71c
NC		 1089 f = fopen (filename, FOPEN_RT);
1090 if (f == NULL)
f24ddbdd 1091 fatal (_("cannot open '%s': %s"), filename, strerror (errno));
16b2b71c 1092
f24ddbdd 1093 if (fread (buffer, 1, size, f) == 0 || ferror (f))
16b2b71c
NC		 1094 fatal (_("%s: fread failed"), filename);
1095
1096 fclose (f);
f24ddbdd
NC		 1097 buffer [size] = '\n';
1098 buffer [size + 1] = '\0';
16b2b71c
NC		 1099
1100 line_count = 1;
0af11b59 1101
16b2b71c
NC		 1102 for (line = buffer; * line != '\0'; line ++)
1103 {
1104 char * eol;
1105 char * name;
1106 char * name_end;
b34976b6 1107 int finished = FALSE;
16b2b71c
NC		 1108
1109 for (eol = line;; eol ++)
1110 {
1111 switch (* eol)
1112 {
1113 case '\n':
1114 * eol = '\0';
1115 /* Cope with \n\r. */
1116 if (eol[1] == '\r')
1117 ++ eol;
b34976b6 1118 finished = TRUE;
16b2b71c 1119 break;
0af11b59 1120
16b2b71c
NC		 1121 case '\r':
1122 * eol = '\0';
1123 /* Cope with \r\n. */
1124 if (eol[1] == '\n')
1125 ++ eol;
b34976b6 1126 finished = TRUE;
16b2b71c 1127 break;
0af11b59 1128
16b2b71c 1129 case 0:
b34976b6 1130 finished = TRUE;
16b2b71c 1131 break;
0af11b59 1132
16b2b71c
NC		 1133 case '#':
1134 /* Line comment, Terminate the line here, in case a
1135 name is present and then allow the rest of the
1136 loop to find the real end of the line. */
1137 * eol = '\0';
1138 break;
0af11b59 1139
16b2b71c
NC		 1140 default:
1141 break;
1142 }
1143
1144 if (finished)
1145 break;
1146 }
1147
1148 /* A name may now exist somewhere between 'line' and 'eol'.
1149 Strip off leading whitespace and trailing whitespace,
1150 then add it to the list. */
1151 for (name = line; IS_WHITESPACE (* name); name ++)
1152 ;
1153 for (name_end = name;
1154 (! IS_WHITESPACE (* name_end))
1155 && (! IS_LINE_TERMINATOR (* name_end));
0af11b59
KH		 1156 name_end ++)
1157 ;
16b2b71c
NC		 1158
1159 if (! IS_LINE_TERMINATOR (* name_end))
1160 {
1161 char * extra;
1162
1163 for (extra = name_end + 1; IS_WHITESPACE (* extra); extra ++)
1164 ;
1165
1166 if (! IS_LINE_TERMINATOR (* extra))
d412a550
NC		 1167 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
1168 filename, line_count);
16b2b71c 1169 }
0af11b59 1170
16b2b71c
NC		 1171 * name_end = '\0';
1172
1173 if (name_end > name)
047c9024 1174 add_specific_symbol (name, htab);
16b2b71c
NC		 1175
1176 /* Advance line pointer to end of line. The 'eol ++' in the for
1177 loop above will then advance us to the start of the next line. */
1178 line = eol;
1179 line_count ++;
1180 }
3391569f 1181
508d0c9b
NC		 1182 /* Do not free the buffer. Parts of it will have been referenced
1183 in the calls to add_specific_symbol. */
d839b914 1184 *buffer_p = buffer;
16b2b71c
NC		 1185}
1186
047c9024
NC		 1187/* See whether a symbol should be stripped or kept
1188 based on strip_specific_list and keep_symbols. */
252b5132 1189
047c9024
NC		 1190static int
1191is_specified_symbol_predicate (void **slot, void *data)
252b5132 1192{
3f5e193b
NC		 1193 struct is_specified_symbol_predicate_data *d =
1194 (struct is_specified_symbol_predicate_data *) data;
1195 const char *slot_name = (char *) *slot;
252b5132 1196
047c9024 1197 if (*slot_name != '!')
5fe11841 1198 {
047c9024
NC		 1199 if (! fnmatch (slot_name, d->name, 0))
1200 {
1201 d->found = TRUE;
0b45135e
AB		 1202 /* Continue traversal, there might be a non-match rule. */
1203 return 1;
047c9024 1204 }
5fe11841
NC		 1205 }
1206 else
1207 {
0b45135e 1208 if (! fnmatch (slot_name + 1, d->name, 0))
047c9024 1209 {
0b45135e 1210 d->found = FALSE;
047c9024
NC		 1211 /* Stop traversal. */
1212 return 0;
1213 }
5fe11841 1214 }
594ef5db 1215
047c9024
NC		 1216 /* Continue traversal. */
1217 return 1;
1218}
1219
1220static bfd_boolean
1221is_specified_symbol (const char *name, htab_t htab)
1222{
1223 if (wildcard)
1224 {
1225 struct is_specified_symbol_predicate_data data;
1226
1227 data.name = name;
1228 data.found = FALSE;
1229
1230 htab_traverse (htab, is_specified_symbol_predicate, &data);
1231
1232 return data.found;
1233 }
1234
1235 return htab_find (htab, name) != NULL;
252b5132
RH		 1236}
1237
30288845
AM		 1238/* Return a pointer to the symbol used as a signature for GROUP. */
1239
1240static asymbol *
1241group_signature (asection *group)
1242{
1243 bfd *abfd = group->owner;
1244 Elf_Internal_Shdr *ghdr;
1245
bcc3a8bc
NC		 1246 /* PR 20089: An earlier error may have prevented us from loading the symbol table. */
1247 if (isympp == NULL)
1248 return NULL;
1249
30288845
AM		 1250 if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
1251 return NULL;
1252
1253 ghdr = &elf_section_data (group)->this_hdr;
ce4ec1a9 1254 if (ghdr->sh_link == elf_onesymtab (abfd))
30288845
AM		 1255 {
1256 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
ce4ec1a9 1257 Elf_Internal_Shdr *symhdr = &elf_symtab_hdr (abfd);
30288845 1258
ce4ec1a9
AM		 1259 if (ghdr->sh_info > 0
1260 && ghdr->sh_info < symhdr->sh_size / bed->s->sizeof_sym)
748fc5e9 1261 return isympp[ghdr->sh_info - 1];
30288845
AM		 1262 }
1263 return NULL;
1264}
1265
96109726
CC		 1266/* Return TRUE if the section is a DWO section. */
1267
1268static bfd_boolean
1269is_dwo_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1270{
fd361982 1271 const char *name = bfd_section_name (sec);
96109726
CC		 1272 int len = strlen (name);
1273
1274 return strncmp (name + len - 4, ".dwo", 4) == 0;
1275}
1276
acf1419f
AB		 1277/* Return TRUE if section SEC is in the update list. */
1278
1279static bfd_boolean
1280is_update_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1281{
1282 if (update_sections != NULL)
1283 {
1284 struct section_add *pupdate;
1285
1286 for (pupdate = update_sections;
f7433f01
AM		 1287 pupdate != NULL;
1288 pupdate = pupdate->next)
acf1419f 1289 {
f7433f01
AM		 1290 if (strcmp (sec->name, pupdate->name) == 0)
1291 return TRUE;
1292 }
acf1419f
AB		 1293 }
1294
1295 return FALSE;
1296}
1297
9ef920e9 1298static bfd_boolean
5c49f2cd 1299is_mergeable_note_section (bfd * abfd, asection * sec)
9ef920e9
NC		 1300{
1301 if (merge_notes
1302 && bfd_get_flavour (abfd) == bfd_target_elf_flavour
1303 && elf_section_data (sec)->this_hdr.sh_type == SHT_NOTE
1304 /* FIXME: We currently only support merging GNU_BUILD_NOTEs.
1305 We should add support for more note types. */
05ed4310
NC		 1306 && ((elf_section_data (sec)->this_hdr.sh_flags & SHF_GNU_BUILD_NOTE) != 0
1307 /* Old versions of GAS (prior to 2.27) could not set the section
5c49f2cd
NC		 1308 flags to OS-specific values, so we also accept sections that
1309 start with the expected name. */
1310 || (CONST_STRNEQ (sec->name, GNU_BUILD_ATTRS_SECTION_NAME))))
9ef920e9
NC		 1311 return TRUE;
1312
1313 return FALSE;
1314}
1315
4c8e8a7e 1316/* See if a non-group section is being removed. */
252b5132 1317
b34976b6 1318static bfd_boolean
4c8e8a7e 1319is_strip_section_1 (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
252b5132 1320{
64f52b3e
FS		 1321 if (find_section_list (bfd_section_name (sec), FALSE, SECTION_CONTEXT_KEEP)
1322 != NULL)
1323 return FALSE;
1324
2593f09a
NC		 1325 if (sections_removed || sections_copied)
1326 {
1327 struct section_list *p;
2e62b721 1328 struct section_list *q;
2593f09a 1329
fd361982 1330 p = find_section_list (bfd_section_name (sec), FALSE,
2e62b721 1331 SECTION_CONTEXT_REMOVE);
fd361982 1332 q = find_section_list (bfd_section_name (sec), FALSE,
2e62b721 1333 SECTION_CONTEXT_COPY);
2593f09a 1334
2e62b721
NC		 1335 if (p && q)
1336 fatal (_("error: section %s matches both remove and copy options"),
fd361982 1337 bfd_section_name (sec));
acf1419f 1338 if (p && is_update_section (abfd, sec))
f7433f01 1339 fatal (_("error: section %s matches both update and remove options"),
fd361982 1340 bfd_section_name (sec));
2e62b721
NC		 1341
1342 if (p != NULL)
2593f09a 1343 return TRUE;
2e62b721 1344 if (sections_copied && q == NULL)
2593f09a
NC		 1345 return TRUE;
1346 }
252b5132 1347
fd361982 1348 if ((bfd_section_flags (sec) & SEC_DEBUGGING) != 0)
2593f09a
NC		 1349 {
1350 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 1351 || strip_symbols == STRIP_UNNEEDED
1352 || strip_symbols == STRIP_ALL
1353 || discard_locals == LOCALS_ALL
2593f09a 1354 || convert_debugging)
4fc8b895
KT		 1355 {
1356 /* By default we don't want to strip .reloc section.
1357 This section has for pe-coff special meaning. See
1358 pe-dll.c file in ld, and peXXigen.c in bfd for details. */
fd361982 1359 if (strcmp (bfd_section_name (sec), ".reloc") != 0)
4fc8b895
KT		 1360 return TRUE;
1361 }
ed1653a7 1362
96109726
CC		 1363 if (strip_symbols == STRIP_DWO)
1364 return is_dwo_section (abfd, sec);
1365
ed1653a7
NC		 1366 if (strip_symbols == STRIP_NONDEBUG)
1367 return FALSE;
2593f09a 1368 }
f91ea849 1369
96109726
CC		 1370 if (strip_symbols == STRIP_NONDWO)
1371 return !is_dwo_section (abfd, sec);
1372
4c8e8a7e
L		 1373 return FALSE;
1374}
1375
1376/* See if a section is being removed. */
1377
1378static bfd_boolean
1379is_strip_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1380{
1381 if (is_strip_section_1 (abfd, sec))
1382 return TRUE;
1383
fd361982 1384 if ((bfd_section_flags (sec) & SEC_GROUP) != 0)
30288845
AM		 1385 {
1386 asymbol *gsym;
1387 const char *gname;
4c8e8a7e 1388 asection *elt, *first;
30288845 1389
886d5428
AM		 1390 gsym = group_signature (sec);
1391 /* Strip groups without a valid signature. */
1392 if (gsym == NULL)
1393 return TRUE;
1394
30288845
AM		 1395 /* PR binutils/3181
1396 If we are going to strip the group signature symbol, then
1397 strip the group section too. */
886d5428 1398 gname = gsym->name;
30288845 1399 if ((strip_symbols == STRIP_ALL
047c9024
NC		 1400 && !is_specified_symbol (gname, keep_specific_htab))
1401 || is_specified_symbol (gname, strip_specific_htab))
30288845 1402 return TRUE;
4c8e8a7e
L		 1403
1404 /* Remove the group section if all members are removed. */
1405 first = elt = elf_next_in_group (sec);
1406 while (elt != NULL)
1407 {
1408 if (!is_strip_section_1 (abfd, elt))
1409 return FALSE;
1410 elt = elf_next_in_group (elt);
1411 if (elt == first)
1412 break;
1413 }
1414
1415 return TRUE;
30288845 1416 }
91bb255c 1417
f0312d39 1418 return FALSE;
252b5132
RH		 1419}
1420
6e6e7cfc
JT		 1421static bfd_boolean
1422is_nondebug_keep_contents_section (bfd *ibfd, asection *isection)
1423{
1424 /* Always keep ELF note sections. */
dd68a12b
AM		 1425 if (bfd_get_flavour (ibfd) == bfd_target_elf_flavour)
1426 return elf_section_type (isection) == SHT_NOTE;
6e6e7cfc 1427
74fffc39 1428 /* Always keep the .buildid section for PE/COFF.
6e6e7cfc
JT		 1429
1430 Strictly, this should be written "always keep the section storing the debug
1431 directory", but that may be the .text section for objects produced by some
1432 tools, which it is not sensible to keep. */
dd68a12b
AM		 1433 if (bfd_get_flavour (ibfd) == bfd_target_coff_flavour)
1434 return strcmp (bfd_section_name (isection), ".buildid") == 0;
6e6e7cfc
JT		 1435
1436 return FALSE;
1437}
1438
d58c2e3a
RS		 1439/* Return true if SYM is a hidden symbol. */
1440
1441static bfd_boolean
1442is_hidden_symbol (asymbol *sym)
1443{
1444 elf_symbol_type *elf_sym;
1445
1446 elf_sym = elf_symbol_from (sym->the_bfd, sym);
1447 if (elf_sym != NULL)
1448 switch (ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other))
1449 {
1450 case STV_HIDDEN:
1451 case STV_INTERNAL:
1452 return TRUE;
1453 }
1454 return FALSE;
1455}
1456
ffebb0bb
NC		 1457/* Empty name is hopefully never a valid symbol name. */
1458static const char * empty_name = "";
1459
2b35fb28
RH		 1460static bfd_boolean
1461need_sym_before (struct addsym_node **node, const char *sym)
1462{
1463 int count;
1464 struct addsym_node *ptr = add_sym_list;
1465
1466 /* 'othersym' symbols are at the front of the list. */
1467 for (count = 0; count < add_symbols; count++)
1468 {
1469 if (!ptr->othersym)
1470 break;
ffebb0bb
NC		 1471 if (ptr->othersym == empty_name)
1472 continue;
2b35fb28
RH		 1473 else if (strcmp (ptr->othersym, sym) == 0)
1474 {
ffebb0bb
NC		 1475 free ((char *) ptr->othersym);
1476 ptr->othersym = empty_name;
2b35fb28
RH		 1477 *node = ptr;
1478 return TRUE;
1479 }
1480 ptr = ptr->next;
1481 }
1482 return FALSE;
1483}
1484
1485static asymbol *
1486create_new_symbol (struct addsym_node *ptr, bfd *obfd)
1487{
f7433f01 1488 asymbol *sym = bfd_make_empty_symbol (obfd);
2b35fb28 1489
e6f7f6d1 1490 bfd_set_asymbol_name (sym, ptr->symdef);
2b35fb28
RH		 1491 sym->value = ptr->symval;
1492 sym->flags = ptr->flags;
1493 if (ptr->section)
1494 {
1495 asection *sec = bfd_get_section_by_name (obfd, ptr->section);
1496 if (!sec)
1497 fatal (_("Section %s not found"), ptr->section);
1498 sym->section = sec;
1499 }
f7433f01
AM		 1500 else
1501 sym->section = bfd_abs_section_ptr;
2b35fb28
RH		 1502 return sym;
1503}
1504
252b5132
RH		 1505/* Choose which symbol entries to copy; put the result in OSYMS.
1506 We don't copy in place, because that confuses the relocs.
1507 Return the number of symbols to print. */
1508
1509static unsigned int
84e2f313
NC		 1510filter_symbols (bfd *abfd, bfd *obfd, asymbol **osyms,
1511 asymbol **isyms, long symcount)
252b5132 1512{
84e2f313 1513 asymbol **from = isyms, **to = osyms;
252b5132 1514 long src_count = 0, dst_count = 0;
e205a099 1515 int relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
252b5132
RH		 1516
1517 for (; src_count < symcount; src_count++)
1518 {
1519 asymbol *sym = from[src_count];
1520 flagword flags = sym->flags;
d7fb0dd2 1521 char *name = (char *) bfd_asymbol_name (sym);
312aaa3c
NC		 1522 bfd_boolean keep;
1523 bfd_boolean used_in_reloc = FALSE;
b34976b6 1524 bfd_boolean undefined;
d7fb0dd2
NC		 1525 bfd_boolean rem_leading_char;
1526 bfd_boolean add_leading_char;
1527
e6f7f6d1 1528 undefined = bfd_is_und_section (bfd_asymbol_section (sym));
252b5132 1529
2b35fb28
RH		 1530 if (add_sym_list)
1531 {
1532 struct addsym_node *ptr;
1533
1534 if (need_sym_before (&ptr, name))
1535 to[dst_count++] = create_new_symbol (ptr, obfd);
1536 }
1537
0f65a5d8 1538 if (htab_elements (redefine_specific_htab) || section_rename_list)
57938635 1539 {
9cc0123f 1540 char *new_name;
57938635 1541
9cc0123f
AM		 1542 new_name = (char *) lookup_sym_redefinition (name);
1543 if (new_name == name
1544 && (flags & BSF_SECTION_SYM) != 0)
1545 new_name = (char *) find_section_rename (name, NULL);
e6f7f6d1 1546 bfd_set_asymbol_name (sym, new_name);
66491ebc 1547 name = new_name;
57938635
AM		 1548 }
1549
d7fb0dd2
NC		 1550 /* Check if we will remove the current leading character. */
1551 rem_leading_char =
1552 (name[0] == bfd_get_symbol_leading_char (abfd))
1553 && (change_leading_char
1554 || (remove_leading_char
1555 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1556 || undefined
e6f7f6d1 1557 || bfd_is_com_section (bfd_asymbol_section (sym)))));
d7fb0dd2
NC		 1558
1559 /* Check if we will add a new leading character. */
1560 add_leading_char =
1561 change_leading_char
1562 && (bfd_get_symbol_leading_char (obfd) != '\0')
1563 && (bfd_get_symbol_leading_char (abfd) == '\0'
1564 || (name[0] == bfd_get_symbol_leading_char (abfd)));
1565
1566 /* Short circuit for change_leading_char if we can do it in-place. */
1567 if (rem_leading_char && add_leading_char && !prefix_symbols_string)
f7433f01 1568 {
d7fb0dd2 1569 name[0] = bfd_get_symbol_leading_char (obfd);
e6f7f6d1 1570 bfd_set_asymbol_name (sym, name);
d7fb0dd2
NC		 1571 rem_leading_char = FALSE;
1572 add_leading_char = FALSE;
f7433f01 1573 }
d7fb0dd2
NC		 1574
1575 /* Remove leading char. */
1576 if (rem_leading_char)
e6f7f6d1 1577 bfd_set_asymbol_name (sym, ++name);
d7fb0dd2
NC		 1578
1579 /* Add new leading char and/or prefix. */
1580 if (add_leading_char || prefix_symbols_string)
f7433f01
AM		 1581 {
1582 char *n, *ptr;
d7fb0dd2 1583
f7433f01
AM		 1584 ptr = n = (char *) xmalloc (1 + strlen (prefix_symbols_string)
1585 + strlen (name) + 1);
1586 if (add_leading_char)
d7fb0dd2
NC		 1587 *ptr++ = bfd_get_symbol_leading_char (obfd);
1588
f7433f01
AM		 1589 if (prefix_symbols_string)
1590 {
1591 strcpy (ptr, prefix_symbols_string);
1592 ptr += strlen (prefix_symbols_string);
1593 }
d7fb0dd2 1594
f7433f01 1595 strcpy (ptr, name);
e6f7f6d1 1596 bfd_set_asymbol_name (sym, n);
f7433f01 1597 name = n;
252b5132
RH		 1598 }
1599
252b5132 1600 if (strip_symbols == STRIP_ALL)
312aaa3c 1601 keep = FALSE;
252b5132
RH		 1602 else if ((flags & BSF_KEEP) != 0 /* Used in relocation. */
1603 || ((flags & BSF_SECTION_SYM) != 0
e6f7f6d1 1604 && ((*bfd_asymbol_section (sym)->symbol_ptr_ptr)->flags
252b5132 1605 & BSF_KEEP) != 0))
312aaa3c
NC		 1606 {
1607 keep = TRUE;
1608 used_in_reloc = TRUE;
1609 }
0af11b59 1610 else if (relocatable /* Relocatable file. */
0691f7af 1611 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
e6f7f6d1 1612 || bfd_is_com_section (bfd_asymbol_section (sym))))
312aaa3c 1613 keep = TRUE;
16b2b71c
NC		 1614 else if (bfd_decode_symclass (sym) == 'I')
1615 /* Global symbols in $idata sections need to be retained
b34976b6 1616 even if relocatable is FALSE. External users of the
16b2b71c
NC		 1617 library containing the $idata section may reference these
1618 symbols. */
312aaa3c 1619 keep = TRUE;
252b5132
RH		 1620 else if ((flags & BSF_GLOBAL) != 0 /* Global symbol. */
1621 || (flags & BSF_WEAK) != 0
24e01a36 1622 || undefined
e6f7f6d1 1623 || bfd_is_com_section (bfd_asymbol_section (sym)))
252b5132
RH		 1624 keep = strip_symbols != STRIP_UNNEEDED;
1625 else if ((flags & BSF_DEBUGGING) != 0) /* Debugging symbol. */
1626 keep = (strip_symbols != STRIP_DEBUG
1627 && strip_symbols != STRIP_UNNEEDED
1628 && ! convert_debugging);
e6f7f6d1 1629 else if (bfd_coff_get_comdat_section (abfd, bfd_asymbol_section (sym)))
af3bdff7
NC		 1630 /* COMDAT sections store special information in local
1631 symbols, so we cannot risk stripping any of them. */
312aaa3c 1632 keep = TRUE;
252b5132
RH		 1633 else /* Local symbol. */
1634 keep = (strip_symbols != STRIP_UNNEEDED
1635 && (discard_locals != LOCALS_ALL
1636 && (discard_locals != LOCALS_START_L
1637 || ! bfd_is_local_label (abfd, sym))));
1638
047c9024 1639 if (keep && is_specified_symbol (name, strip_specific_htab))
312aaa3c
NC		 1640 {
1641 /* There are multiple ways to set 'keep' above, but if it
1642 was the relocatable symbol case, then that's an error. */
1643 if (used_in_reloc)
1644 {
1645 non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name);
1646 status = 1;
1647 }
1648 else
1649 keep = FALSE;
1650 }
1651
bcf32829
JB		 1652 if (keep
1653 && !(flags & BSF_KEEP)
047c9024 1654 && is_specified_symbol (name, strip_unneeded_htab))
312aaa3c
NC		 1655 keep = FALSE;
1656
1637cd90
JB		 1657 if (!keep
1658 && ((keep_file_symbols && (flags & BSF_FILE))
047c9024 1659 || is_specified_symbol (name, keep_specific_htab)))
312aaa3c
NC		 1660 keep = TRUE;
1661
e6f7f6d1 1662 if (keep && is_strip_section (abfd, bfd_asymbol_section (sym)))
312aaa3c 1663 keep = FALSE;
e0c60db2 1664
7b4a0685 1665 if (keep)
252b5132 1666 {
7b4a0685 1667 if ((flags & BSF_GLOBAL) != 0
047c9024 1668 && (weaken || is_specified_symbol (name, weaken_specific_htab)))
7b4a0685
NC		 1669 {
1670 sym->flags &= ~ BSF_GLOBAL;
1671 sym->flags |= BSF_WEAK;
1672 }
252b5132 1673
7b4a0685
NC		 1674 if (!undefined
1675 && (flags & (BSF_GLOBAL | BSF_WEAK))
047c9024
NC		 1676 && (is_specified_symbol (name, localize_specific_htab)
1677 || (htab_elements (keepglobal_specific_htab) != 0
1678 && ! is_specified_symbol (name, keepglobal_specific_htab))
d58c2e3a 1679 || (localize_hidden && is_hidden_symbol (sym))))
7b4a0685
NC		 1680 {
1681 sym->flags &= ~ (BSF_GLOBAL | BSF_WEAK);
1682 sym->flags |= BSF_LOCAL;
1683 }
1684
1685 if (!undefined
c1c0eb9e 1686 && (flags & BSF_LOCAL)
047c9024 1687 && is_specified_symbol (name, globalize_specific_htab))
7b4a0685
NC		 1688 {
1689 sym->flags &= ~ BSF_LOCAL;
1690 sym->flags |= BSF_GLOBAL;
1691 }
1692
1693 to[dst_count++] = sym;
1694 }
252b5132 1695 }
2b35fb28
RH		 1696 if (add_sym_list)
1697 {
1698 struct addsym_node *ptr = add_sym_list;
1699
1700 for (src_count = 0; src_count < add_symbols; src_count++)
1701 {
1702 if (ptr->othersym)
1703 {
ffebb0bb 1704 if (ptr->othersym != empty_name)
2b35fb28
RH		 1705 fatal (_("'before=%s' not found"), ptr->othersym);
1706 }
1707 else
1708 to[dst_count++] = create_new_symbol (ptr, obfd);
1709
1710 ptr = ptr->next;
1711 }
1712 }
252b5132
RH		 1713
1714 to[dst_count] = NULL;
1715
1716 return dst_count;
1717}
1718
594ef5db
NC		 1719/* Find the redefined name of symbol SOURCE. */
1720
57938635 1721static const char *
84e2f313 1722lookup_sym_redefinition (const char *source)
57938635 1723{
0f65a5d8
JW		 1724 struct redefine_node key_node = {(char *) source, NULL};
1725 struct redefine_node *redef_node
1726 = (struct redefine_node *) htab_find (redefine_specific_htab, &key_node);
594ef5db 1727
0f65a5d8 1728 return redef_node == NULL ? source : redef_node->target;
57938635
AM		 1729}
1730
0f65a5d8 1731/* Insert a node into symbol redefine hash tabel. */
57938635
AM		 1732
1733static void
0f65a5d8
JW		 1734add_redefine_and_check (const char *cause, const char *source,
1735 const char *target)
57938635 1736{
0f65a5d8
JW		 1737 struct redefine_node *new_node
1738 = (struct redefine_node *) xmalloc (sizeof (struct redefine_node));
57938635 1739
0f65a5d8
JW		 1740 new_node->source = strdup (source);
1741 new_node->target = strdup (target);
57938635 1742
0f65a5d8
JW		 1743 if (htab_find (redefine_specific_htab, new_node) != HTAB_EMPTY_ENTRY)
1744 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
1745 cause, source);
57938635 1746
0f65a5d8
JW		 1747 if (htab_find (redefine_specific_reverse_htab, target) != HTAB_EMPTY_ENTRY)
1748 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
1749 cause, target);
57938635 1750
0f65a5d8
JW		 1751 /* Insert the NEW_NODE into hash table for quick search. */
1752 add_specific_symbol_node (new_node, redefine_specific_htab);
1753
1754 /* Insert the target string into the reverse hash table, this is needed for
1755 duplicated target string check. */
1756 add_specific_symbol (new_node->target, redefine_specific_reverse_htab);
57938635 1757
57938635
AM		 1758}
1759
92991082
JT		 1760/* Handle the --redefine-syms option. Read lines containing "old new"
1761 from the file, and add them to the symbol redefine list. */
1762
2593f09a 1763static void
84e2f313 1764add_redefine_syms_file (const char *filename)
92991082
JT		 1765{
1766 FILE *file;
1767 char *buf;
84e2f313
NC		 1768 size_t bufsize;
1769 size_t len;
1770 size_t outsym_off;
92991082
JT		 1771 int c, lineno;
1772
1773 file = fopen (filename, "r");
d3ba0551 1774 if (file == NULL)
92991082
JT		 1775 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1776 filename, strerror (errno));
1777
1778 bufsize = 100;
a6da20b5 1779 buf = (char *) xmalloc (bufsize + 1 /* For the terminating NUL. */);
92991082
JT		 1780
1781 lineno = 1;
1782 c = getc (file);
1783 len = 0;
1784 outsym_off = 0;
1785 while (c != EOF)
1786 {
1787 /* Collect the input symbol name. */
1788 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1789 {
1790 if (c == '#')
1791 goto comment;
1792 buf[len++] = c;
1793 if (len >= bufsize)
1794 {
1795 bufsize *= 2;
a6da20b5 1796 buf = (char *) xrealloc (buf, bufsize + 1);
92991082
JT		 1797 }
1798 c = getc (file);
1799 }
1800 buf[len++] = '\0';
1801 if (c == EOF)
1802 break;
1803
1804 /* Eat white space between the symbol names. */
1805 while (IS_WHITESPACE (c))
1806 c = getc (file);
1807 if (c == '#' || IS_LINE_TERMINATOR (c))
1808 goto comment;
1809 if (c == EOF)
1810 break;
1811
1812 /* Collect the output symbol name. */
1813 outsym_off = len;
1814 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1815 {
1816 if (c == '#')
1817 goto comment;
1818 buf[len++] = c;
1819 if (len >= bufsize)
1820 {
1821 bufsize *= 2;
a6da20b5 1822 buf = (char *) xrealloc (buf, bufsize + 1);
92991082
JT		 1823 }
1824 c = getc (file);
1825 }
1826 buf[len++] = '\0';
1827 if (c == EOF)
1828 break;
1829
1830 /* Eat white space at end of line. */
1831 while (! IS_LINE_TERMINATOR(c) && c != EOF && IS_WHITESPACE (c))
1832 c = getc (file);
1833 if (c == '#')
1834 goto comment;
1835 /* Handle \r\n. */
1836 if ((c == '\r' && (c = getc (file)) == '\n')
1837 || c == '\n' || c == EOF)
1838 {
f7433f01 1839 end_of_line:
92991082
JT		 1840 /* Append the redefinition to the list. */
1841 if (buf[0] != '\0')
0f65a5d8 1842 add_redefine_and_check (filename, &buf[0], &buf[outsym_off]);
92991082 1843
c1c0eb9e 1844 lineno++;
92991082
JT		 1845 len = 0;
1846 outsym_off = 0;
1847 if (c == EOF)
1848 break;
1849 c = getc (file);
1850 continue;
1851 }
1852 else
d412a550 1853 fatal (_("%s:%d: garbage found at end of line"), filename, lineno);
f7433f01 1854 comment:
92991082 1855 if (len != 0 && (outsym_off == 0 || outsym_off == len))
d412a550 1856 fatal (_("%s:%d: missing new symbol name"), filename, lineno);
92991082
JT		 1857 buf[len++] = '\0';
1858
1859 /* Eat the rest of the line and finish it. */
1860 while (c != '\n' && c != EOF)
1861 c = getc (file);
1862 goto end_of_line;
1863 }
1864
1865 if (len != 0)
d412a550 1866 fatal (_("%s:%d: premature end of file"), filename, lineno);
92991082
JT		 1867
1868 free (buf);
3391569f 1869 fclose (file);
92991082
JT		 1870}
1871
222c2bf0 1872/* Copy unknown object file IBFD onto OBFD.
77f762d6
L		 1873 Returns TRUE upon success, FALSE otherwise. */
1874
1875static bfd_boolean
1876copy_unknown_object (bfd *ibfd, bfd *obfd)
1877{
1878 char *cbuf;
1879 int tocopy;
1880 long ncopied;
1881 long size;
1882 struct stat buf;
1883
1884 if (bfd_stat_arch_elt (ibfd, &buf) != 0)
1885 {
8d8e0703 1886 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
77f762d6
L		 1887 return FALSE;
1888 }
1889
1890 size = buf.st_size;
1891 if (size < 0)
1892 {
1893 non_fatal (_("stat returns negative size for `%s'"),
1894 bfd_get_archive_filename (ibfd));
1895 return FALSE;
1896 }
1897
1898 if (bfd_seek (ibfd, (file_ptr) 0, SEEK_SET) != 0)
1899 {
1900 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1901 return FALSE;
1902 }
1903
1904 if (verbose)
1905 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1906 bfd_get_archive_filename (ibfd), bfd_get_filename (obfd));
1907
3f5e193b 1908 cbuf = (char *) xmalloc (BUFSIZE);
77f762d6
L		 1909 ncopied = 0;
1910 while (ncopied < size)
1911 {
1912 tocopy = size - ncopied;
1913 if (tocopy > BUFSIZE)
1914 tocopy = BUFSIZE;
1915
1916 if (bfd_bread (cbuf, (bfd_size_type) tocopy, ibfd)
1917 != (bfd_size_type) tocopy)
1918 {
8d8e0703 1919 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
77f762d6
L		 1920 free (cbuf);
1921 return FALSE;
1922 }
1923
1924 if (bfd_bwrite (cbuf, (bfd_size_type) tocopy, obfd)
1925 != (bfd_size_type) tocopy)
1926 {
2db6cde7 1927 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
77f762d6
L		 1928 free (cbuf);
1929 return FALSE;
1930 }
1931
1932 ncopied += tocopy;
1933 }
1934
1e99536a
L		 1935 /* We should at least to be able to read it back when copying an
1936 unknown object in an archive. */
1937 chmod (bfd_get_filename (obfd), buf.st_mode | S_IRUSR);
77f762d6
L		 1938 free (cbuf);
1939 return TRUE;
1940}
1941
6f156d7a
NC		 1942typedef struct objcopy_internal_note
1943{
1944 Elf_Internal_Note note;
5c49f2cd 1945 unsigned long padded_namesz;
6f156d7a
NC		 1946 bfd_vma start;
1947 bfd_vma end;
6f156d7a 1948} objcopy_internal_note;
82ef9cad 1949
5c49f2cd
NC		 1950#define DEBUG_MERGE 0
1951
1952#if DEBUG_MERGE
1953#define merge_debug(format, ...) fprintf (stderr, format, ## __VA_ARGS__)
1954#else
1955#define merge_debug(format, ...)
1956#endif
1957
1958/* Returns TRUE iff PNOTE1 overlaps or adjoins PNOTE2. */
6f156d7a
NC		 1959
1960static bfd_boolean
5c49f2cd
NC		 1961overlaps_or_adjoins (objcopy_internal_note * pnote1,
1962 objcopy_internal_note * pnote2)
6f156d7a 1963{
5c49f2cd
NC		 1964 if (pnote1->end < pnote2->start)
1965 /* FIXME: Alignment of 16 bytes taken from x86_64 binaries.
1966 Really we should extract the alignment of the section
1967 covered by the notes. */
1968 return BFD_ALIGN (pnote1->end, 16) < pnote2->start;
1969
1970 if (pnote2->end < pnote2->start)
1971 return BFD_ALIGN (pnote2->end, 16) < pnote1->start;
1972
1973 if (pnote1->end < pnote2->end)
6f156d7a
NC		 1974 return TRUE;
1975
5c49f2cd
NC		 1976 if (pnote2->end < pnote1->end)
1977 return TRUE;
1978
1979 return FALSE;
1980}
1981
1982/* Returns TRUE iff NEEDLE is fully contained by HAYSTACK. */
1983
1984static bfd_boolean
1985contained_by (objcopy_internal_note * needle,
1986 objcopy_internal_note * haystack)
1987{
1988 return needle->start >= haystack->start && needle->end <= haystack->end;
6f156d7a
NC		 1989}
1990
1991static bfd_boolean
1992is_open_note (objcopy_internal_note * pnote)
1993{
5c49f2cd 1994 return pnote->note.type == NT_GNU_BUILD_ATTRIBUTE_OPEN;
6f156d7a
NC		 1995}
1996
1997static bfd_boolean
1998is_func_note (objcopy_internal_note * pnote)
1999{
5c49f2cd
NC		 2000 return pnote->note.type == NT_GNU_BUILD_ATTRIBUTE_FUNC;
2001}
2002
2003static bfd_boolean
2004is_deleted_note (objcopy_internal_note * pnote)
2005{
2006 return pnote->note.type == 0;
2007}
2008
2009static bfd_boolean
2010is_version_note (objcopy_internal_note * pnote)
2011{
2012 return (pnote->note.namesz > 4
2013 && pnote->note.namedata[0] == 'G'
2014 && pnote->note.namedata[1] == 'A'
2015 && pnote->note.namedata[2] == '$'
2016 && pnote->note.namedata[3] == GNU_BUILD_ATTRIBUTE_VERSION);
6f156d7a
NC		 2017}
2018
2019static bfd_boolean
2020is_64bit (bfd * abfd)
2021{
2022 /* Should never happen, but let's be paranoid. */
2023 if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
2024 return FALSE;
2025
2026 return elf_elfheader (abfd)->e_ident[EI_CLASS] == ELFCLASS64;
2027}
2028
5c49f2cd
NC		 2029/* This sorting function is used to get the notes into an order
2030 that makes merging easy. */
2031
2032static int
2033compare_gnu_build_notes (const void * data1, const void * data2)
2034{
2035 objcopy_internal_note * pnote1 = (objcopy_internal_note *) data1;
2036 objcopy_internal_note * pnote2 = (objcopy_internal_note *) data2;
2037
2038 /* Sort notes based upon the attribute they record. */
2039 int cmp = memcmp (pnote1->note.namedata + 3,
2040 pnote2->note.namedata + 3,
2041 pnote1->note.namesz < pnote2->note.namesz ?
2042 pnote1->note.namesz - 3 : pnote2->note.namesz - 3);
2043 if (cmp)
2044 return cmp;
82ef9cad 2045
5c49f2cd
NC		 2046 if (pnote1->end < pnote2->start)
2047 return -1;
2048 if (pnote1->start > pnote2->end)
2049 return 1;
2050
2051 /* Overlaps - we should merge the two ranges. */
2052 if (pnote1->start < pnote2->start)
2053 return -1;
2054 if (pnote1->end > pnote2->end)
2055 return 1;
82ef9cad
RM		 2056 if (pnote1->end < pnote2->end)
2057 return -1;
2058
5c49f2cd
NC		 2059 /* Put OPEN notes before function notes. */
2060 if (is_open_note (pnote1) && ! is_open_note (pnote2))
2061 return -1;
2062 if (! is_open_note (pnote1) && is_open_note (pnote2))
2063 return 1;
82ef9cad 2064
5c49f2cd
NC		 2065 return 0;
2066}
2067
2068/* This sorting function is used to get the notes into an order
2069 that makes eliminating address ranges easier. */
2070
2071static int
2072sort_gnu_build_notes (const void * data1, const void * data2)
2073{
2074 objcopy_internal_note * pnote1 = (objcopy_internal_note *) data1;
2075 objcopy_internal_note * pnote2 = (objcopy_internal_note *) data2;
2076
2077 if (pnote1->note.type != pnote2->note.type)
2078 {
2079 /* Move deleted notes to the end. */
2080 if (is_deleted_note (pnote1)) /* 1: OFD 2: OFD */
2081 return 1;
2082
2083 /* Move OPEN notes to the start. */
2084 if (is_open_note (pnote1)) /* 1: OF 2: OFD */
2085 return -1;
2086
2087 if (is_deleted_note (pnote2)) /* 1: F 2: O D */
1cc3da76 2088 return -1;
5c49f2cd
NC		 2089
2090 return 1; /* 1: F 2: O */
2091 }
82ef9cad 2092
5c49f2cd
NC		 2093 /* Sort by starting address. */
2094 if (pnote1->start < pnote2->start)
2095 return -1;
2096 if (pnote1->start > pnote2->start)
2097 return 1;
2098
2099 /* Then by end address (bigger range first). */
2100 if (pnote1->end > pnote2->end)
2101 return -1;
2102 if (pnote1->end < pnote2->end)
2103 return 1;
2104
2105 /* Then by attribute type. */
2106 if (pnote1->note.namesz > 4
2107 && pnote2->note.namesz > 4
2108 && pnote1->note.namedata[3] != pnote2->note.namedata[3])
2109 return pnote1->note.namedata[3] - pnote2->note.namedata[3];
82ef9cad 2110
5c49f2cd
NC		 2111 return 0;
2112}
2113
9ef920e9
NC		 2114/* Merge the notes on SEC, removing redundant entries.
2115 Returns the new, smaller size of the section upon success. */
2116
2117static bfd_size_type
5c49f2cd
NC		 2118merge_gnu_build_notes (bfd * abfd,
2119 asection * sec,
2120 bfd_size_type size,
2121 bfd_byte * contents)
9ef920e9 2122{
6f156d7a
NC		 2123 objcopy_internal_note * pnotes_end;
2124 objcopy_internal_note * pnotes = NULL;
2125 objcopy_internal_note * pnote;
9ef920e9 2126 bfd_size_type remain = size;
88305e1b
NC		 2127 unsigned version_1_seen = 0;
2128 unsigned version_2_seen = 0;
6f156d7a 2129 unsigned version_3_seen = 0;
9ef920e9
NC		 2130 const char * err = NULL;
2131 bfd_byte * in = contents;
6f156d7a
NC		 2132 unsigned long previous_func_start = 0;
2133 unsigned long previous_open_start = 0;
2134 unsigned long previous_func_end = 0;
2135 unsigned long previous_open_end = 0;
2136 long relsize;
2137
6f156d7a
NC		 2138 relsize = bfd_get_reloc_upper_bound (abfd, sec);
2139 if (relsize > 0)
2140 {
2141 arelent ** relpp;
2142 long relcount;
2143
2144 /* If there are relocs associated with this section then we
2145 cannot safely merge it. */
2146 relpp = (arelent **) xmalloc (relsize);
2147 relcount = bfd_canonicalize_reloc (abfd, sec, relpp, isympp);
2148 free (relpp);
2149 if (relcount != 0)
5c49f2cd
NC		 2150 {
2151 if (! is_strip)
2152 non_fatal (_("%s[%s]: Cannot merge - there are relocations against this section"),
2153 bfd_get_filename (abfd), bfd_section_name (sec));
2154 goto done;
2155 }
6f156d7a 2156 }
82ef9cad 2157
6f156d7a 2158 /* Make a copy of the notes and convert to our internal format.
276cbbdf
NC		 2159 Minimum size of a note is 12 bytes. Also locate the version
2160 notes and check them. */
5c49f2cd
NC		 2161 pnote = pnotes = (objcopy_internal_note *)
2162 xcalloc ((size / 12), sizeof (* pnote));
9ef920e9
NC		 2163 while (remain >= 12)
2164 {
6f156d7a
NC		 2165 bfd_vma start, end;
2166
5c49f2cd
NC		 2167 pnote->note.namesz = bfd_get_32 (abfd, in);
2168 pnote->note.descsz = bfd_get_32 (abfd, in + 4);
2169 pnote->note.type = bfd_get_32 (abfd, in + 8);
2170 pnote->padded_namesz = (pnote->note.namesz + 3) & ~3;
2171
2172 if (((pnote->note.descsz + 3) & ~3) != pnote->note.descsz)
2173 {
2174 err = _("corrupt GNU build attribute note: description size not a factor of 4");
2175 goto done;
2176 }
9ef920e9 2177
6f156d7a
NC		 2178 if (pnote->note.type != NT_GNU_BUILD_ATTRIBUTE_OPEN
2179 && pnote->note.type != NT_GNU_BUILD_ATTRIBUTE_FUNC)
9ef920e9
NC		 2180 {
2181 err = _("corrupt GNU build attribute note: wrong note type");
2182 goto done;
2183 }
2184
5c49f2cd 2185 if (pnote->padded_namesz + pnote->note.descsz + 12 > remain)
9ef920e9
NC		 2186 {
2187 err = _("corrupt GNU build attribute note: note too big");
2188 goto done;
2189 }
2190
6f156d7a 2191 if (pnote->note.namesz < 2)
9ef920e9
NC		 2192 {
2193 err = _("corrupt GNU build attribute note: name too small");
2194 goto done;
2195 }
2196
6f156d7a 2197 pnote->note.namedata = (char *)(in + 12);
5c49f2cd 2198 pnote->note.descdata = (char *)(in + 12 + pnote->padded_namesz);
6f156d7a 2199
5c49f2cd
NC		 2200 remain -= 12 + pnote->padded_namesz + pnote->note.descsz;
2201 in += 12 + pnote->padded_namesz + pnote->note.descsz;
6f156d7a
NC		 2202
2203 if (pnote->note.namesz > 2
2204 && pnote->note.namedata[0] == '$'
2205 && pnote->note.namedata[1] == GNU_BUILD_ATTRIBUTE_VERSION
2206 && pnote->note.namedata[2] == '1')
2207 ++ version_1_seen;
5c49f2cd 2208 else if (is_version_note (pnote))
6f156d7a
NC		 2209 {
2210 if (pnote->note.namedata[4] == '2')
2211 ++ version_2_seen;
2212 else if (pnote->note.namedata[4] == '3')
2213 ++ version_3_seen;
2214 else
2215 {
2216 err = _("corrupt GNU build attribute note: unsupported version");
2217 goto done;
2218 }
2219 }
2220
2221 switch (pnote->note.descsz)
9ef920e9 2222 {
6f156d7a
NC		 2223 case 0:
2224 start = end = 0;
2225 break;
2226
2227 case 4:
2228 start = bfd_get_32 (abfd, pnote->note.descdata);
2229 /* FIXME: For version 1 and 2 notes we should try to
2230 calculate the end address by finding a symbol whose
2231 value is START, and then adding in its size.
2232
2233 For now though, since v1 and v2 was not intended to
2234 handle gaps, we chose an artificially large end
2235 address. */
f49db8be 2236 end = (bfd_vma) -1;
6f156d7a 2237 break;
82ef9cad 2238
6f156d7a
NC		 2239 case 8:
2240 if (! is_64bit (abfd))
2241 {
2242 start = bfd_get_32 (abfd, pnote->note.descdata);
2243 end = bfd_get_32 (abfd, pnote->note.descdata + 4);
2244 }
2245 else
2246 {
2247 start = bfd_get_64 (abfd, pnote->note.descdata);
2248 /* FIXME: For version 1 and 2 notes we should try to
2249 calculate the end address by finding a symbol whose
2250 value is START, and then adding in its size.
2251
2252 For now though, since v1 and v2 was not intended to
2253 handle gaps, we chose an artificially large end
2254 address. */
f49db8be 2255 end = (bfd_vma) -1;
6f156d7a
NC		 2256 }
2257 break;
2258
2259 case 16:
2260 start = bfd_get_64 (abfd, pnote->note.descdata);
2261 end = bfd_get_64 (abfd, pnote->note.descdata + 8);
2262 break;
82ef9cad 2263
6f156d7a 2264 default:
9ef920e9
NC		 2265 err = _("corrupt GNU build attribute note: bad description size");
2266 goto done;
2267 }
2268
6f156d7a
NC		 2269 if (is_open_note (pnote))
2270 {
2271 if (start)
2272 previous_open_start = start;
2273
2274 pnote->start = previous_open_start;
2275
2276 if (end)
2277 previous_open_end = end;
2278
2279 pnote->end = previous_open_end;
2280 }
2281 else
2282 {
2283 if (start)
2284 previous_func_start = start;
2285
2286 pnote->start = previous_func_start;
9ef920e9 2287
6f156d7a
NC		 2288 if (end)
2289 previous_func_end = end;
9ef920e9 2290
6f156d7a
NC		 2291 pnote->end = previous_func_end;
2292 }
2293
2294 if (pnote->note.namedata[pnote->note.namesz - 1] != 0)
1d15e434
NC		 2295 {
2296 err = _("corrupt GNU build attribute note: name not NUL terminated");
2297 goto done;
2298 }
6f156d7a 2299
9ef920e9
NC		 2300 pnote ++;
2301 }
2302
2303 pnotes_end = pnote;
2304
2305 /* Check that the notes are valid. */
2306 if (remain != 0)
2307 {
88305e1b 2308 err = _("corrupt GNU build attribute notes: excess data at end");
9ef920e9
NC		 2309 goto done;
2310 }
2311
6f156d7a 2312 if (version_1_seen == 0 && version_2_seen == 0 && version_3_seen == 0)
9ef920e9 2313 {
5c49f2cd 2314#if 0
88305e1b
NC		 2315 err = _("bad GNU build attribute notes: no known versions detected");
2316 goto done;
5c49f2cd
NC		 2317#else
2318 /* This happens with glibc. No idea why. */
2319 non_fatal (_("%s[%s]: Warning: version note missing - assuming version 3"),
2320 bfd_get_filename (abfd), bfd_section_name (sec));
2321 version_3_seen = 2;
2322#endif
88305e1b
NC		 2323 }
2324
5c49f2cd 2325 if ( (version_1_seen > 0 && version_2_seen > 0)
6f156d7a
NC		 2326 || (version_1_seen > 0 && version_3_seen > 0)
2327 || (version_2_seen > 0 && version_3_seen > 0))
88305e1b
NC		 2328 {
2329 err = _("bad GNU build attribute notes: multiple different versions");
9ef920e9
NC		 2330 goto done;
2331 }
2332
5c49f2cd
NC		 2333 /* We are now only supporting the merging v3+ notes
2334 - it makes things much simpler. */
2335 if (version_3_seen == 0)
2336 {
2337 merge_debug ("%s: skipping merge - not using v3 notes", bfd_section_name (sec));
2338 goto done;
2339 }
9ef920e9 2340
5c49f2cd
NC		 2341 merge_debug ("Merging section %s which contains %ld notes\n",
2342 sec->name, pnotes_end - pnotes);
88305e1b 2343
5c49f2cd
NC		 2344 /* Sort the notes. */
2345 qsort (pnotes, pnotes_end - pnotes, sizeof (* pnotes),
2346 compare_gnu_build_notes);
2347
2348#if DEBUG_MERGE
2349 merge_debug ("Results of initial sort:\n");
2350 for (pnote = pnotes; pnote < pnotes_end; pnote ++)
2351 merge_debug ("offset %#08lx range %#08lx..%#08lx type %ld attribute %d namesz %ld\n",
2352 (pnote->note.namedata - (char *) contents) - 12,
2353 pnote->start, pnote->end,
2354 pnote->note.type,
2355 pnote->note.namedata[3],
2356 pnote->note.namesz
2357 );
2358#endif
9ef920e9 2359
9ef920e9 2360 /* Now merge the notes. The rules are:
5c49f2cd
NC		 2361 1. If a note has a zero range, it can be eliminated.
2362 2. If two notes have the same namedata then:
2363 2a. If one note's range is fully covered by the other note
2364 then it can be deleted.
2365 2b. If one note's range partially overlaps or adjoins the
2366 other note then if they are both of the same type (open
2367 or func) then they can be merged and one deleted. If
2368 they are of different types then they cannot be merged. */
276cbbdf 2369 for (pnote = pnotes; pnote < pnotes_end; pnote ++)
9ef920e9 2370 {
5c49f2cd
NC		 2371 /* Skip already deleted notes.
2372 FIXME: Can this happen ? We are scanning forwards and
2373 deleting backwards after all. */
2374 if (is_deleted_note (pnote))
2375 continue;
9ef920e9 2376
5c49f2cd 2377 /* Rule 1 - delete 0-range notes. */
4aae6e5a
NC		 2378 if (pnote->start == pnote->end)
2379 {
5c49f2cd
NC		 2380 merge_debug ("Delete note at offset %#08lx - empty range\n",
2381 (pnote->note.namedata - (char *) contents) - 12);
4aae6e5a
NC		 2382 pnote->note.type = 0;
2383 continue;
2384 }
2385
5c49f2cd
NC		 2386 int iter;
2387 objcopy_internal_note * back;
9ef920e9 2388
5c49f2cd
NC		 2389 /* Rule 2: Check to see if there is an identical previous note. */
2390 for (iter = 0, back = pnote - 1; back >= pnotes; back --)
9ef920e9 2391 {
5c49f2cd 2392 if (is_deleted_note (back))
6f156d7a 2393 continue;
88305e1b 2394
5c49f2cd
NC		 2395 /* Our sorting function should have placed all identically
2396 attributed notes together, so if we see a note of a different
2397 attribute type stop searching. */
2398 if (back->note.namesz != pnote->note.namesz
2399 || memcmp (back->note.namedata,
2400 pnote->note.namedata, pnote->note.namesz) != 0)
2401 break;
82ef9cad 2402
5c49f2cd
NC		 2403 if (back->start == pnote->start
2404 && back->end == pnote->end)
6f156d7a 2405 {
5c49f2cd
NC		 2406 merge_debug ("Delete note at offset %#08lx - duplicate of note at offset %#08lx\n",
2407 (pnote->note.namedata - (char *) contents) - 12,
2408 (back->note.namedata - (char *) contents) - 12);
6f156d7a
NC		 2409 pnote->note.type = 0;
2410 break;
2411 }
2412
5c49f2cd
NC		 2413 /* Rule 2a. */
2414 if (contained_by (pnote, back))
6f156d7a 2415 {
5c49f2cd
NC		 2416 merge_debug ("Delete note at offset %#08lx - fully contained by note at %#08lx\n",
2417 (pnote->note.namedata - (char *) contents) - 12,
2418 (back->note.namedata - (char *) contents) - 12);
6f156d7a 2419 pnote->note.type = 0;
6f156d7a
NC		 2420 break;
2421 }
2422
5c49f2cd
NC		 2423#if DEBUG_MERGE
2424 /* This should not happen as we have sorted the
2425 notes with earlier starting addresses first. */
2426 if (contained_by (back, pnote))
2427 merge_debug ("ERROR: UNEXPECTED CONTAINMENT\n");
2428#endif
2429
2430 /* Rule 2b. */
2431 if (overlaps_or_adjoins (back, pnote)
2432 && is_func_note (back) == is_func_note (pnote))
6f156d7a 2433 {
5c49f2cd
NC		 2434 merge_debug ("Delete note at offset %#08lx - merge into note at %#08lx\n",
2435 (pnote->note.namedata - (char *) contents) - 12,
2436 (back->note.namedata - (char *) contents) - 12);
2437
2438 back->end = back->end > pnote->end ? back->end : pnote->end;
2439 back->start = back->start < pnote->start ? back->start : pnote->start;
2440 pnote->note.type = 0;
2441 break;
6f156d7a 2442 }
5c49f2cd
NC		 2443
2444 /* Don't scan too far back however. */
2445 if (iter ++ > 16)
6f156d7a 2446 {
5c49f2cd
NC		 2447 /* FIXME: Not sure if this can ever be triggered. */
2448 merge_debug ("ITERATION LIMIT REACHED\n");
2449 break;
9ef920e9
NC		 2450 }
2451 }
5c49f2cd
NC		 2452#if DEBUG_MERGE
2453 if (! is_deleted_note (pnote))
2454 merge_debug ("Unable to do anything with note at %#08lx\n",
2455 (pnote->note.namedata - (char *) contents) - 12);
82ef9cad 2456#endif
9ef920e9
NC		 2457 }
2458
5c49f2cd
NC		 2459 /* Resort the notes. */
2460 merge_debug ("Final sorting of notes\n");
2461 qsort (pnotes, pnotes_end - pnotes, sizeof (* pnotes), sort_gnu_build_notes);
2462
2463 /* Reconstruct the ELF notes. */
2464 bfd_byte * new_contents;
2465 bfd_byte * old;
2466 bfd_byte * new;
2467 bfd_size_type new_size;
2468 bfd_vma prev_start = 0;
2469 bfd_vma prev_end = 0;
2470
f76d7958
NC		 2471 /* Not sure how, but the notes might grow in size.
2472 (eg see PR 1774507). Allow for this here. */
2473 new = new_contents = xmalloc (size * 2);
5c49f2cd
NC		 2474 for (pnote = pnotes, old = contents;
2475 pnote < pnotes_end;
2476 pnote ++)
9ef920e9 2477 {
5c49f2cd 2478 bfd_size_type note_size = 12 + pnote->padded_namesz + pnote->note.descsz;
9ef920e9 2479
5c49f2cd 2480 if (! is_deleted_note (pnote))
9ef920e9 2481 {
5c49f2cd
NC		 2482 /* Create the note, potentially using the
2483 address range of the previous note. */
2484 if (pnote->start == prev_start && pnote->end == prev_end)
9ef920e9 2485 {
5c49f2cd
NC		 2486 bfd_put_32 (abfd, pnote->note.namesz, new);
2487 bfd_put_32 (abfd, 0, new + 4);
2488 bfd_put_32 (abfd, pnote->note.type, new + 8);
2489 new += 12;
2490 memcpy (new, pnote->note.namedata, pnote->note.namesz);
2491 if (pnote->note.namesz < pnote->padded_namesz)
2492 memset (new + pnote->note.namesz, 0, pnote->padded_namesz - pnote->note.namesz);
2493 new += pnote->padded_namesz;
2494 }
2495 else
2496 {
2497 bfd_put_32 (abfd, pnote->note.namesz, new);
2498 bfd_put_32 (abfd, is_64bit (abfd) ? 16 : 8, new + 4);
2499 bfd_put_32 (abfd, pnote->note.type, new + 8);
2500 new += 12;
2501 memcpy (new, pnote->note.namedata, pnote->note.namesz);
2502 if (pnote->note.namesz < pnote->padded_namesz)
2503 memset (new + pnote->note.namesz, 0, pnote->padded_namesz - pnote->note.namesz);
2504 new += pnote->padded_namesz;
2505 if (is_64bit (abfd))
9ef920e9 2506 {
5c49f2cd
NC		 2507 bfd_put_64 (abfd, pnote->start, new);
2508 bfd_put_64 (abfd, pnote->end, new + 8);
2509 new += 16;
9ef920e9 2510 }
6f156d7a
NC		 2511 else
2512 {
5c49f2cd
NC		 2513 bfd_put_32 (abfd, pnote->start, new);
2514 bfd_put_32 (abfd, pnote->end, new + 4);
2515 new += 8;
6f156d7a 2516 }
5c49f2cd 2517
6f156d7a
NC		 2518 prev_start = pnote->start;
2519 prev_end = pnote->end;
9ef920e9 2520 }
9ef920e9
NC		 2521 }
2522
5c49f2cd 2523 old += note_size;
9ef920e9
NC		 2524 }
2525
5c49f2cd
NC		 2526#if DEBUG_MERGE
2527 merge_debug ("Results of merge:\n");
2528 for (pnote = pnotes; pnote < pnotes_end; pnote ++)
2529 if (! is_deleted_note (pnote))
2530 merge_debug ("offset %#08lx range %#08lx..%#08lx type %ld attribute %d namesz %ld\n",
2531 (pnote->note.namedata - (char *) contents) - 12,
2532 pnote->start, pnote->end,
2533 pnote->note.type,
2534 pnote->note.namedata[3],
2535 pnote->note.namesz
2536 );
2537#endif
82ef9cad 2538
5c49f2cd 2539 new_size = new - new_contents;
f76d7958
NC		 2540 if (new_size < size)
2541 {
2542 memcpy (contents, new_contents, new_size);
2543 size = new_size;
2544 }
5c49f2cd
NC		 2545 free (new_contents);
2546
9ef920e9
NC		 2547 done:
2548 if (err)
2549 {
2550 bfd_set_error (bfd_error_bad_value);
2551 bfd_nonfatal_message (NULL, abfd, sec, err);
2552 status = 1;
2553 }
2554
2555 free (pnotes);
2556 return size;
2557}
2558
950d48e7 2559/* Copy object file IBFD onto OBFD.
5b8c74e6 2560 Returns TRUE upon success, FALSE otherwise. */
252b5132 2561
950d48e7 2562static bfd_boolean
8b31b6c4 2563copy_object (bfd *ibfd, bfd *obfd, const bfd_arch_info_type *input_arch)
252b5132
RH		 2564{
2565 bfd_vma start;
2566 long symcount;
2567 asection **osections = NULL;
9ef920e9 2568 asection *osec;
84e2f313 2569 asection *gnu_debuglink_section = NULL;
252b5132
RH		 2570 bfd_size_type *gaps = NULL;
2571 bfd_size_type max_gap = 0;
2572 long symsize;
84e2f313 2573 void *dhandle;
66491ebc
AM		 2574 enum bfd_architecture iarch;
2575 unsigned int imach;
c68c1637 2576 unsigned int c, i;
252b5132 2577
23719f39
NC		 2578 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
2579 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
2580 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
cfad8730
NC		 2581 {
2582 /* PR 17636: Call non-fatal so that we return to our parent who
2583 may need to tidy temporary files. */
2584 non_fatal (_("Unable to change endianness of input file(s)"));
2585 return FALSE;
2586 }
252b5132
RH		 2587
2588 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 2589 {
2db6cde7 2590 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
950d48e7
NC		 2591 return FALSE;
2592 }
252b5132 2593
5063a421
AM		 2594 if (ibfd->sections == NULL)
2595 {
2596 non_fatal (_("error: the input file '%s' has no sections"),
2597 bfd_get_archive_filename (ibfd));
2598 return FALSE;
2599 }
2600
dd68a12b 2601 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
cd6faa73 2602 {
b8871f35
L		 2603 if ((do_debug_sections & compress) != 0
2604 && do_debug_sections != compress)
2605 {
2606 non_fatal (_("--compress-debug-sections=[zlib|zlib-gnu|zlib-gabi] is unsupported on `%s'"),
2607 bfd_get_archive_filename (ibfd));
2608 return FALSE;
2609 }
2610
2611 if (do_elf_stt_common)
2612 {
2613 non_fatal (_("--elf-stt-common=[yes|no] is unsupported on `%s'"),
2614 bfd_get_archive_filename (ibfd));
2615 return FALSE;
2616 }
cd6faa73
L		 2617 }
2618
252b5132 2619 if (verbose)
77f762d6
L		 2620 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
2621 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
252b5132
RH		 2622 bfd_get_filename (obfd), bfd_get_target (obfd));
2623
d3e52d40
RS		 2624 if (extract_symbol)
2625 start = 0;
252b5132 2626 else
d3e52d40
RS		 2627 {
2628 if (set_start_set)
2629 start = set_start;
2630 else
2631 start = bfd_get_start_address (ibfd);
2632 start += change_start;
2633 }
252b5132 2634
0af11b59
KH		 2635 /* Neither the start address nor the flags
2636 need to be set for a core file. */
4dd67f29
MS		 2637 if (bfd_get_format (obfd) != bfd_core)
2638 {
4087920c
MR		 2639 flagword flags;
2640
2641 flags = bfd_get_file_flags (ibfd);
2642 flags |= bfd_flags_to_set;
2643 flags &= ~bfd_flags_to_clear;
2644 flags &= bfd_applicable_file_flags (obfd);
2645
3516e984
L		 2646 if (strip_symbols == STRIP_ALL)
2647 flags &= ~HAS_RELOC;
2648
4dd67f29 2649 if (!bfd_set_start_address (obfd, start)
4087920c 2650 || !bfd_set_file_flags (obfd, flags))
950d48e7 2651 {
8d8e0703 2652 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 2653 return FALSE;
2654 }
4dd67f29 2655 }
252b5132 2656
594ef5db 2657 /* Copy architecture of input file to output file. */
66491ebc
AM		 2658 iarch = bfd_get_arch (ibfd);
2659 imach = bfd_get_mach (ibfd);
8b31b6c4
NC		 2660 if (input_arch)
2661 {
6765ee18 2662 if (iarch == bfd_arch_unknown)
8b31b6c4
NC		 2663 {
2664 iarch = input_arch->arch;
2665 imach = input_arch->mach;
2666 }
2667 else
2668 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
2669 bfd_get_archive_filename (ibfd));
2670 }
6765ee18
AM		 2671 if (iarch == bfd_arch_unknown
2672 && bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2673 && bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2674 {
2675 const struct elf_backend_data *bed = get_elf_backend_data (obfd);
2676 iarch = bed->arch;
2677 imach = 0;
2678 }
66491ebc 2679 if (!bfd_set_arch_mach (obfd, iarch, imach)
212a3c4d
L		 2680 && (ibfd->target_defaulted
2681 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
f57a841a
NC		 2682 {
2683 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
77f762d6
L		 2684 non_fatal (_("Unable to recognise the format of the input file `%s'"),
2685 bfd_get_archive_filename (ibfd));
f57a841a 2686 else
c1e2cb9d 2687 non_fatal (_("Output file cannot represent architecture `%s'"),
77f762d6
L		 2688 bfd_printable_arch_mach (bfd_get_arch (ibfd),
2689 bfd_get_mach (ibfd)));
2690 return FALSE;
f57a841a 2691 }
57938635 2692
252b5132 2693 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 2694 {
8d8e0703 2695 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 2696 return FALSE;
2697 }
252b5132 2698
92dd4511
L		 2699 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
2700 && bfd_pei_p (obfd))
2701 {
2702 /* Set up PE parameters. */
2703 pe_data_type *pe = pe_data (obfd);
2704
325c681d 2705 /* Copy PE parameters before changing them. */
dd68a12b 2706 if (bfd_get_flavour (ibfd) == bfd_target_coff_flavour
325c681d
L		 2707 && bfd_pei_p (ibfd))
2708 pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
2709
92dd4511
L		 2710 if (pe_file_alignment != (bfd_vma) -1)
2711 pe->pe_opthdr.FileAlignment = pe_file_alignment;
2712 else
2713 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
2714
2715 if (pe_heap_commit != (bfd_vma) -1)
2716 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
2717
2718 if (pe_heap_reserve != (bfd_vma) -1)
2719 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
2720
2721 if (pe_image_base != (bfd_vma) -1)
2722 pe->pe_opthdr.ImageBase = pe_image_base;
2723
2724 if (pe_section_alignment != (bfd_vma) -1)
2725 pe->pe_opthdr.SectionAlignment = pe_section_alignment;
2726 else
2727 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
2728
2729 if (pe_stack_commit != (bfd_vma) -1)
2730 pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
2731
2732 if (pe_stack_reserve != (bfd_vma) -1)
2733 pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
2734
2735 if (pe_subsystem != -1)
2736 pe->pe_opthdr.Subsystem = pe_subsystem;
2737
2738 if (pe_major_subsystem_version != -1)
2739 pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
2740
2741 if (pe_minor_subsystem_version != -1)
2742 pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
2743
2744 if (pe_file_alignment > pe_section_alignment)
2745 {
2746 char file_alignment[20], section_alignment[20];
2747
2748 sprintf_vma (file_alignment, pe_file_alignment);
2749 sprintf_vma (section_alignment, pe_section_alignment);
2750 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
2751
2752 file_alignment, section_alignment);
2753 }
2754 }
2755
252b5132 2756 if (isympp)
62d732f5 2757 free (isympp);
57938635 2758
252b5132 2759 if (osympp != isympp)
62d732f5
AM		 2760 free (osympp);
2761
2762 isympp = NULL;
2763 osympp = NULL;
252b5132 2764
c39ada54
AM		 2765 symsize = bfd_get_symtab_upper_bound (ibfd);
2766 if (symsize < 0)
2767 {
8d8e0703 2768 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 2769 return FALSE;
2770 }
2771
3f5e193b 2772 osympp = isympp = (asymbol **) xmalloc (symsize);
c39ada54
AM		 2773 symcount = bfd_canonicalize_symtab (ibfd, isympp);
2774 if (symcount < 0)
2775 {
2db6cde7 2776 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 2777 return FALSE;
2778 }
063bb025
NC		 2779 /* PR 17512: file: d6323821
2780 If the symbol table could not be loaded do not pretend that we have
2781 any symbols. This trips us up later on when we load the relocs. */
2782 if (symcount == 0)
2783 {
2784 free (isympp);
2785 osympp = isympp = NULL;
2786 }
c39ada54 2787
252b5132
RH		 2788 /* BFD mandates that all output sections be created and sizes set before
2789 any output is done. Thus, we traverse all sections multiple times. */
d3ba0551 2790 bfd_map_over_sections (ibfd, setup_section, obfd);
252b5132 2791
237dcb53
AM		 2792 if (!extract_symbol)
2793 setup_bfd_headers (ibfd, obfd);
80fccad2 2794
252b5132
RH		 2795 if (add_sections != NULL)
2796 {
2797 struct section_add *padd;
2798 struct section_list *pset;
2799
2800 for (padd = add_sections; padd != NULL; padd = padd->next)
2801 {
2593f09a
NC		 2802 flagword flags;
2803
2e62b721
NC		 2804 pset = find_section_list (padd->name, FALSE,
2805 SECTION_CONTEXT_SET_FLAGS);
551b43fd 2806 if (pset != NULL)
551b43fd 2807 flags = pset->flags | SEC_HAS_CONTENTS;
2e62b721
NC		 2808 else
2809 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
551b43fd 2810
c8782eee
NC		 2811 /* bfd_make_section_with_flags() does not return very helpful
2812 error codes, so check for the most likely user error first. */
2813 if (bfd_get_section_by_name (obfd, padd->name))
252b5132 2814 {
2db6cde7 2815 bfd_nonfatal_message (NULL, obfd, NULL,
f7433f01 2816 _("can't add section '%s'"), padd->name);
950d48e7 2817 return FALSE;
252b5132 2818 }
c8782eee
NC		 2819 else
2820 {
0930eddd 2821 /* We use LINKER_CREATED here so that the backend hooks
f7433f01
AM		 2822 will create any special section type information,
2823 instead of presuming we know what we're doing merely
2824 because we set the flags. */
0930eddd
NS		 2825 padd->section = bfd_make_section_with_flags
2826 (obfd, padd->name, flags | SEC_LINKER_CREATED);
c8782eee
NC		 2827 if (padd->section == NULL)
2828 {
2db6cde7
NS		 2829 bfd_nonfatal_message (NULL, obfd, NULL,
2830 _("can't create section `%s'"),
2831 padd->name);
c8782eee
NC		 2832 return FALSE;
2833 }
2834 }
252b5132 2835
fd361982 2836 if (!bfd_set_section_size (padd->section, padd->size))
950d48e7 2837 {
2db6cde7 2838 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 2839 return FALSE;
2840 }
252b5132 2841
2e62b721
NC		 2842 pset = find_section_list (padd->name, FALSE,
2843 SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA);
2844 if (pset != NULL
fd361982 2845 && !bfd_set_section_vma (padd->section, pset->vma_val))
2e62b721
NC		 2846 {
2847 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2848 return FALSE;
2849 }
2850
2851 pset = find_section_list (padd->name, FALSE,
2852 SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA);
2593f09a
NC		 2853 if (pset != NULL)
2854 {
2e62b721 2855 padd->section->lma = pset->lma_val;
57938635 2856
fd361982
AM		 2857 if (!bfd_set_section_alignment
2858 (padd->section, bfd_section_alignment (padd->section)))
2593f09a 2859 {
2e62b721
NC		 2860 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2861 return FALSE;
252b5132
RH		 2862 }
2863 }
2864 }
2865 }
2866
acf1419f
AB		 2867 if (update_sections != NULL)
2868 {
2869 struct section_add *pupdate;
2870
2871 for (pupdate = update_sections;
2872 pupdate != NULL;
2873 pupdate = pupdate->next)
2874 {
acf1419f
AB		 2875 pupdate->section = bfd_get_section_by_name (ibfd, pupdate->name);
2876 if (pupdate->section == NULL)
cfad8730
NC		 2877 {
2878 non_fatal (_("error: %s not found, can't be updated"), pupdate->name);
2879 return FALSE;
2880 }
acf1419f
AB		 2881
2882 osec = pupdate->section->output_section;
fd361982 2883 if (!bfd_set_section_size (osec, pupdate->size))
acf1419f
AB		 2884 {
2885 bfd_nonfatal_message (NULL, obfd, osec, NULL);
2886 return FALSE;
2887 }
2888 }
2889 }
2890
5c49f2cd 2891 merged_note_section * merged_note_sections = NULL;
9ef920e9
NC		 2892 if (merge_notes)
2893 {
2894 /* This palaver is necessary because we must set the output
2895 section size first, before its contents are ready. */
5c49f2cd 2896 for (osec = ibfd->sections; osec != NULL; osec = osec->next)
9ef920e9 2897 {
5c49f2cd
NC		 2898 if (! is_mergeable_note_section (ibfd, osec))
2899 continue;
2900
ef07b808
NC		 2901 /* If the section is going to be completly deleted then
2902 do not bother to merge it. */
2903 if (osec->output_section == NULL)
2904 continue;
2905
5c49f2cd
NC		 2906 bfd_size_type size = bfd_section_size (osec);
2907
9ef920e9
NC		 2908 if (size == 0)
2909 {
5c49f2cd
NC		 2910 bfd_nonfatal_message (NULL, ibfd, osec,
2911 _("warning: note section is empty"));
2912 continue;
9ef920e9 2913 }
5c49f2cd
NC		 2914
2915 merged_note_section * merged = xmalloc (sizeof * merged);
2916 merged->contents = NULL;
2917 if (! bfd_get_full_section_contents (ibfd, osec, & merged->contents))
9ef920e9 2918 {
5c49f2cd
NC		 2919 bfd_nonfatal_message (NULL, ibfd, osec,
2920 _("warning: could not load note section"));
5c49f2cd
NC		 2921 free (merged);
2922 continue;
9ef920e9 2923 }
5c49f2cd
NC		 2924
2925 merged->size = merge_gnu_build_notes (ibfd, osec, size,
2926 merged->contents);
5c49f2cd 2927
ef07b808
NC		 2928 /* FIXME: Once we have read the contents in, we must write
2929 them out again. So even if the mergeing has achieved
2930 nothing we still add this entry to the merge list. */
2931
2932 if (size != merged->size
2933 && !bfd_set_section_size (osec->output_section, merged->size))
5c49f2cd
NC		 2934 {
2935 bfd_nonfatal_message (NULL, obfd, osec,
2936 _("warning: failed to set merged notes size"));
2937 free (merged->contents);
2938 free (merged);
2939 continue;
9ef920e9 2940 }
5c49f2cd
NC		 2941
2942 /* Add section to list of merged sections. */
2943 merged->sec = osec;
2944 merged->next = merged_note_sections;
2945 merged_note_sections = merged;
9ef920e9
NC		 2946 }
2947 }
2948
bbad633b
NC		 2949 if (dump_sections != NULL)
2950 {
2951 struct section_add * pdump;
2952
2953 for (pdump = dump_sections; pdump != NULL; pdump = pdump->next)
2954 {
9ef920e9
NC		 2955 osec = bfd_get_section_by_name (ibfd, pdump->name);
2956 if (osec == NULL)
bbad633b
NC		 2957 {
2958 bfd_nonfatal_message (NULL, ibfd, NULL,
2959 _("can't dump section '%s' - it does not exist"),
2960 pdump->name);
2961 continue;
2962 }
2963
fd361982 2964 if ((bfd_section_flags (osec) & SEC_HAS_CONTENTS) == 0)
bbad633b 2965 {
9ef920e9 2966 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 2967 _("can't dump section - it has no contents"));
2968 continue;
2969 }
3aade688 2970
fd361982 2971 bfd_size_type size = bfd_section_size (osec);
bbad633b
NC		 2972 if (size == 0)
2973 {
9ef920e9 2974 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 2975 _("can't dump section - it is empty"));
2976 continue;
2977 }
2978
2979 FILE * f;
2980 f = fopen (pdump->filename, FOPEN_WB);
2981 if (f == NULL)
2982 {
2983 bfd_nonfatal_message (pdump->filename, NULL, NULL,
2984 _("could not open section dump file"));
2985 continue;
2986 }
2987
bae7501e
AM		 2988 bfd_byte *contents;
2989 if (bfd_malloc_and_get_section (ibfd, osec, &contents))
182a105a
AG		 2990 {
2991 if (fwrite (contents, 1, size, f) != size)
cfad8730
NC		 2992 {
2993 non_fatal (_("error writing section contents to %s (error: %s)"),
2994 pdump->filename,
2995 strerror (errno));
bae7501e 2996 free (contents);
3391569f 2997 fclose (f);
cfad8730
NC		 2998 return FALSE;
2999 }
182a105a 3000 }
bbad633b 3001 else
9ef920e9 3002 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 3003 _("could not retrieve section contents"));
3004
3005 fclose (f);
3006 free (contents);
3007 }
3008 }
3aade688 3009
2593f09a
NC		 3010 if (gnu_debuglink_filename != NULL)
3011 {
d99b05a3
NC		 3012 /* PR 15125: Give a helpful warning message if
3013 the debuglink section already exists, and
3014 allow the rest of the copy to complete. */
3015 if (bfd_get_section_by_name (obfd, ".gnu_debuglink"))
950d48e7 3016 {
d99b05a3
NC		 3017 non_fatal (_("%s: debuglink section already exists"),
3018 bfd_get_filename (obfd));
3019 gnu_debuglink_filename = NULL;
950d48e7 3020 }
d99b05a3 3021 else
6e2c86ac 3022 {
d99b05a3
NC		 3023 gnu_debuglink_section = bfd_create_gnu_debuglink_section
3024 (obfd, gnu_debuglink_filename);
3025
3026 if (gnu_debuglink_section == NULL)
3027 {
3028 bfd_nonfatal_message (NULL, obfd, NULL,
3029 _("cannot create debug link section `%s'"),
3030 gnu_debuglink_filename);
3031 return FALSE;
3032 }
6e2c86ac 3033
d99b05a3
NC		 3034 /* Special processing for PE format files. We
3035 have no way to distinguish PE from COFF here. */
3036 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
3037 {
3038 bfd_vma debuglink_vma;
3039 asection * highest_section;
d99b05a3
NC		 3040
3041 /* The PE spec requires that all sections be adjacent and sorted
3042 in ascending order of VMA. It also specifies that debug
3043 sections should be last. This is despite the fact that debug
3044 sections are not loaded into memory and so in theory have no
3045 use for a VMA.
3046
3047 This means that the debuglink section must be given a non-zero
3048 VMA which makes it contiguous with other debug sections. So
3049 walk the current section list, find the section with the
3050 highest VMA and start the debuglink section after that one. */
9ef920e9
NC		 3051 for (osec = obfd->sections, highest_section = NULL;
3052 osec != NULL;
3053 osec = osec->next)
3054 if (osec->vma > 0
d99b05a3 3055 && (highest_section == NULL
9ef920e9
NC		 3056 || osec->vma > highest_section->vma))
3057 highest_section = osec;
d99b05a3
NC		 3058
3059 if (highest_section)
3060 debuglink_vma = BFD_ALIGN (highest_section->vma
3061 + highest_section->size,
3062 /* FIXME: We ought to be using
3063 COFF_PAGE_SIZE here or maybe
fd361982 3064 bfd_section_alignment() (if it
d99b05a3
NC		 3065 was set) but since this is for PE
3066 and we know the required alignment
3067 it is easier just to hard code it. */
3068 0x1000);
3069 else
3070 /* Umm, not sure what to do in this case. */
3071 debuglink_vma = 0x1000;
3072
fd361982 3073 bfd_set_section_vma (gnu_debuglink_section, debuglink_vma);
d99b05a3 3074 }
6e2c86ac 3075 }
950d48e7
NC		 3076 }
3077
c68c1637
L		 3078 c = bfd_count_sections (obfd);
3079 if (c != 0
1aa9ef63 3080 && (gap_fill_set || pad_to_set))
252b5132
RH		 3081 {
3082 asection **set;
252b5132
RH		 3083
3084 /* We must fill in gaps between the sections and/or we must pad
3085 the last section to a specified address. We do this by
3086 grabbing a list of the sections, sorting them by VMA, and
3087 increasing the section sizes as required to fill the gaps.
3088 We write out the gap contents below. */
3089
3f5e193b 3090 osections = (asection **) xmalloc (c * sizeof (asection *));
252b5132 3091 set = osections;
d3ba0551 3092 bfd_map_over_sections (obfd, get_sections, &set);
252b5132
RH		 3093
3094 qsort (osections, c, sizeof (asection *), compare_section_lma);
3095
3f5e193b 3096 gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
252b5132
RH		 3097 memset (gaps, 0, c * sizeof (bfd_size_type));
3098
3099 if (gap_fill_set)
3100 {
3101 for (i = 0; i < c - 1; i++)
3102 {
3103 flagword flags;
3104 bfd_size_type size;
3105 bfd_vma gap_start, gap_stop;
3106
fd361982 3107 flags = bfd_section_flags (osections[i]);
252b5132
RH		 3108 if ((flags & SEC_HAS_CONTENTS) == 0
3109 || (flags & SEC_LOAD) == 0)
3110 continue;
3111
fd361982
AM		 3112 size = bfd_section_size (osections[i]);
3113 gap_start = bfd_section_lma (osections[i]) + size;
3114 gap_stop = bfd_section_lma (osections[i + 1]);
252b5132
RH		 3115 if (gap_start < gap_stop)
3116 {
fd361982
AM		 3117 if (!bfd_set_section_size (osections[i],
3118 size + (gap_stop - gap_start)))
252b5132 3119 {
2db6cde7
NS		 3120 bfd_nonfatal_message (NULL, obfd, osections[i],
3121 _("Can't fill gap after section"));
252b5132
RH		 3122 status = 1;
3123 break;
3124 }
3125 gaps[i] = gap_stop - gap_start;
3126 if (max_gap < gap_stop - gap_start)
3127 max_gap = gap_stop - gap_start;
3128 }
3129 }
3130 }
3131
3132 if (pad_to_set)
3133 {
3134 bfd_vma lma;
3135 bfd_size_type size;
3136
fd361982
AM		 3137 lma = bfd_section_lma (osections[c - 1]);
3138 size = bfd_section_size (osections[c - 1]);
252b5132
RH		 3139 if (lma + size < pad_to)
3140 {
fd361982 3141 if (!bfd_set_section_size (osections[c - 1], pad_to - lma))
252b5132 3142 {
2db6cde7
NS		 3143 bfd_nonfatal_message (NULL, obfd, osections[c - 1],
3144 _("can't add padding"));
252b5132
RH		 3145 status = 1;
3146 }
3147 else
3148 {
3149 gaps[c - 1] = pad_to - (lma + size);
3150 if (max_gap < pad_to - (lma + size))
3151 max_gap = pad_to - (lma + size);
3152 }
3153 }
3154 }
3155 }
3156
594ef5db
NC		 3157 /* Symbol filtering must happen after the output sections
3158 have been created, but before their contents are set. */
252b5132 3159 dhandle = NULL;
252b5132 3160 if (convert_debugging)
b922d590 3161 dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
57938635
AM		 3162
3163 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 3164 || strip_symbols == STRIP_ALL
3165 || strip_symbols == STRIP_UNNEEDED
ed1653a7 3166 || strip_symbols == STRIP_NONDEBUG
96109726
CC		 3167 || strip_symbols == STRIP_DWO
3168 || strip_symbols == STRIP_NONDWO
252b5132 3169 || discard_locals != LOCALS_UNDEF
d58c2e3a 3170 || localize_hidden
047c9024
NC		 3171 || htab_elements (strip_specific_htab) != 0
3172 || htab_elements (keep_specific_htab) != 0
3173 || htab_elements (localize_specific_htab) != 0
3174 || htab_elements (globalize_specific_htab) != 0
3175 || htab_elements (keepglobal_specific_htab) != 0
3176 || htab_elements (weaken_specific_htab) != 0
0f65a5d8 3177 || htab_elements (redefine_specific_htab) != 0
d7fb0dd2 3178 || prefix_symbols_string
252b5132 3179 || sections_removed
f91ea849 3180 || sections_copied
252b5132
RH		 3181 || convert_debugging
3182 || change_leading_char
3183 || remove_leading_char
9cc0123f 3184 || section_rename_list
2b35fb28
RH		 3185 || weaken
3186 || add_symbols)
252b5132
RH		 3187 {
3188 /* Mark symbols used in output relocations so that they
3189 are kept, even if they are local labels or static symbols.
57938635 3190
252b5132
RH		 3191 Note we iterate over the input sections examining their
3192 relocations since the relocations for the output sections
3193 haven't been set yet. mark_symbols_used_in_relocations will
3194 ignore input sections which have no corresponding output
3195 section. */
3196 if (strip_symbols != STRIP_ALL)
f3185997
NC		 3197 {
3198 bfd_set_error (bfd_error_no_error);
3199 bfd_map_over_sections (ibfd,
3200 mark_symbols_used_in_relocations,
3201 isympp);
3202 if (bfd_get_error () != bfd_error_no_error)
3203 {
3204 status = 1;
3205 return FALSE;
3206 }
3207 }
3208
2b35fb28 3209 osympp = (asymbol **) xmalloc ((symcount + add_symbols + 1) * sizeof (asymbol *));
252b5132
RH		 3210 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
3211 }
3212
3213 if (convert_debugging && dhandle != NULL)
3214 {
cf0ad5bb
NC		 3215 bfd_boolean res;
3216
3217 res = write_debugging_info (obfd, dhandle, &symcount, &osympp);
3218
3219 free (dhandle);
3220 dhandle = NULL; /* Paranoia... */
3221
3222 if (! res)
252b5132
RH		 3223 {
3224 status = 1;
950d48e7 3225 return FALSE;
252b5132
RH		 3226 }
3227 }
3228
3229 bfd_set_symtab (obfd, osympp, symcount);
3230
c3989150
L		 3231 /* This has to happen before section positions are set. */
3232 bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
3233
252b5132 3234 /* This has to happen after the symbol table has been set. */
d3ba0551 3235 bfd_map_over_sections (ibfd, copy_section, obfd);
252b5132
RH		 3236
3237 if (add_sections != NULL)
3238 {
3239 struct section_add *padd;
3240
3241 for (padd = add_sections; padd != NULL; padd = padd->next)
3242 {
d3ba0551
AM		 3243 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
3244 0, padd->size))
950d48e7 3245 {
2db6cde7 3246 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 3247 return FALSE;
3248 }
252b5132
RH		 3249 }
3250 }
3251
acf1419f
AB		 3252 if (update_sections != NULL)
3253 {
3254 struct section_add *pupdate;
3255
3256 for (pupdate = update_sections;
f7433f01
AM		 3257 pupdate != NULL;
3258 pupdate = pupdate->next)
acf1419f 3259 {
acf1419f
AB		 3260 osec = pupdate->section->output_section;
3261 if (! bfd_set_section_contents (obfd, osec, pupdate->contents,
f7433f01 3262 0, pupdate->size))
acf1419f
AB		 3263 {
3264 bfd_nonfatal_message (NULL, obfd, osec, NULL);
3265 return FALSE;
3266 }
3267 }
3268 }
3269
5c49f2cd 3270 if (merged_note_sections != NULL)
9ef920e9 3271 {
5c49f2cd
NC		 3272 merged_note_section * merged = NULL;
3273
3274 for (osec = obfd->sections; osec != NULL; osec = osec->next)
9ef920e9 3275 {
5c49f2cd
NC		 3276 if (! is_mergeable_note_section (obfd, osec))
3277 continue;
3278
3279 if (merged == NULL)
3280 merged = merged_note_sections;
3281
3282 /* It is likely that output sections are in the same order
3283 as the input sections, but do not assume that this is
3284 the case. */
3285 if (strcmp (bfd_section_name (merged->sec),
3286 bfd_section_name (osec)) != 0)
3287 {
3288 for (merged = merged_note_sections;
3289 merged != NULL;
3290 merged = merged->next)
3291 if (strcmp (bfd_section_name (merged->sec),
3292 bfd_section_name (osec)) == 0)
3293 break;
3294
3295 if (merged == NULL)
3296 {
3297 bfd_nonfatal_message
3298 (NULL, obfd, osec,
ef07b808 3299 _("error: failed to locate merged notes"));
5c49f2cd
NC		 3300 continue;
3301 }
3302 }
3303
ef07b808 3304 if (merged->contents == NULL)
5c49f2cd
NC		 3305 {
3306 bfd_nonfatal_message
3307 (NULL, obfd, osec,
ef07b808 3308 _("error: failed to merge notes"));
5c49f2cd
NC		 3309 continue;
3310 }
3311
3312 if (! bfd_set_section_contents (obfd, osec, merged->contents, 0,
3313 merged->size))
9ef920e9 3314 {
5c49f2cd
NC		 3315 bfd_nonfatal_message
3316 (NULL, obfd, osec,
3317 _("error: failed to copy merged notes into output"));
9ef920e9
NC		 3318 return FALSE;
3319 }
5c49f2cd
NC		 3320
3321 merged = merged->next;
3322 }
3323
3324 /* Free the memory. */
3325 merged_note_section * next;
3326 for (merged = merged_note_sections; merged != NULL; merged = next)
3327 {
3328 next = merged->next;
3329 free (merged->contents);
3330 free (merged);
9ef920e9 3331 }
9ef920e9 3332 }
5c49f2cd
NC		 3333 else if (merge_notes && ! is_strip)
3334 non_fatal (_("%s: Could not find any mergeable note sections"),
3335 bfd_get_filename (ibfd));
9ef920e9 3336
e7c81c25
NC		 3337 if (gnu_debuglink_filename != NULL)
3338 {
3339 if (! bfd_fill_in_gnu_debuglink_section
3340 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
950d48e7 3341 {
2db6cde7
NS		 3342 bfd_nonfatal_message (NULL, obfd, NULL,
3343 _("cannot fill debug link section `%s'"),
3344 gnu_debuglink_filename);
950d48e7
NC		 3345 return FALSE;
3346 }
e7c81c25
NC		 3347 }
3348
252b5132
RH		 3349 if (gap_fill_set || pad_to_set)
3350 {
3351 bfd_byte *buf;
252b5132
RH		 3352
3353 /* Fill in the gaps. */
252b5132
RH		 3354 if (max_gap > 8192)
3355 max_gap = 8192;
3f5e193b 3356 buf = (bfd_byte *) xmalloc (max_gap);
d3ba0551 3357 memset (buf, gap_fill, max_gap);
252b5132
RH		 3358
3359 c = bfd_count_sections (obfd);
3360 for (i = 0; i < c; i++)
3361 {
3362 if (gaps[i] != 0)
3363 {
3364 bfd_size_type left;
3365 file_ptr off;
3366
3367 left = gaps[i];
fd361982 3368 off = bfd_section_size (osections[i]) - left;
594ef5db 3369
252b5132
RH		 3370 while (left > 0)
3371 {
3372 bfd_size_type now;
3373
3374 if (left > 8192)
3375 now = 8192;
3376 else
3377 now = left;
3378
3379 if (! bfd_set_section_contents (obfd, osections[i], buf,
3380 off, now))
950d48e7 3381 {
2db6cde7 3382 bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
3391569f 3383 free (buf);
950d48e7
NC		 3384 return FALSE;
3385 }
252b5132
RH		 3386
3387 left -= now;
3388 off += now;
3389 }
3390 }
3391 }
3391569f
NC		 3392
3393 free (buf);
3394 free (gaps);
3395 gaps = NULL;
252b5132
RH		 3396 }
3397
3398 /* Allow the BFD backend to copy any private data it understands
3399 from the input BFD to the output BFD. This is done last to
3400 permit the routine to look at the filtered symbol table, which is
3401 important for the ECOFF code at least. */
42bb2e33 3402 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132 3403 {
2db6cde7
NS		 3404 bfd_nonfatal_message (NULL, obfd, NULL,
3405 _("error copying private BFD data"));
950d48e7 3406 return FALSE;
252b5132 3407 }
1ae8b3d2
AO		 3408
3409 /* Switch to the alternate machine code. We have to do this at the
3410 very end, because we only initialize the header when we create
3411 the first section. */
f9d4ad2a
NC		 3412 if (use_alt_mach_code != 0)
3413 {
3414 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
3415 {
3416 non_fatal (_("this target does not support %lu alternative machine codes"),
3417 use_alt_mach_code);
3418 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3419 {
3420 non_fatal (_("treating that number as an absolute e_machine value instead"));
3421 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
3422 }
3423 else
3424 non_fatal (_("ignoring the alternative value"));
3425 }
3426 }
950d48e7
NC		 3427
3428 return TRUE;
252b5132
RH		 3429}
3430
3431/* Read each archive element in turn from IBFD, copy the
ee873e00
NC		 3432 contents to temp file, and keep the temp file handle.
3433 If 'force_output_target' is TRUE then make sure that
3434 all elements in the new archive are of the type
3435 'output_target'. */
252b5132
RH		 3436
3437static void
ee873e00 3438copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
8b31b6c4
NC		 3439 bfd_boolean force_output_target,
3440 const bfd_arch_info_type *input_arch)
252b5132
RH		 3441{
3442 struct name_list
3443 {
3444 struct name_list *next;
4c168fa3 3445 const char *name;
252b5132
RH		 3446 bfd *obfd;
3447 } *list, *l;
3448 bfd **ptr = &obfd->archive_head;
3449 bfd *this_element;
8d8e0703
AM		 3450 char *dir;
3451 const char *filename;
252b5132 3452
f5f20315
NC		 3453 /* PR 24281: It is not clear what should happen when copying a thin archive.
3454 One part is straight forward - if the output archive is in a different
3455 directory from the input archive then any relative paths in the library
3456 should be adjusted to the new location. But if any transformation
3457 options are active (eg strip, rename, add, etc) then the implication is
3458 that these should be applied to the files pointed to by the archive.
3459 But since objcopy is not destructive, this means that new files must be
3460 created, and there is no guidance for the names of the new files. (Plus
3461 this conflicts with one of the goals of thin libraries - only taking up
3462 a minimal amount of space in the file system).
3463
3464 So for now we fail if an attempt is made to copy such libraries. */
3465 if (ibfd->is_thin_archive)
3466 {
3467 status = 1;
3468 bfd_set_error (bfd_error_invalid_operation);
3469 bfd_nonfatal_message (NULL, ibfd, NULL,
3470 _("sorry: copying thin archives is not currently supported"));
3471 return;
3472 }
3473
252b5132 3474 /* Make a temp directory to hold the contents. */
1ff5d5c4 3475 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8 3476 if (dir == NULL)
f7433f01 3477 fatal (_("cannot create tempdir for archive copying (error: %s)"),
f9c026a8 3478 strerror (errno));
84e2f313 3479
2e30cb57
CC		 3480 if (strip_symbols == STRIP_ALL)
3481 obfd->has_armap = FALSE;
3482 else
3483 obfd->has_armap = ibfd->has_armap;
a8da6403 3484 obfd->is_thin_archive = ibfd->is_thin_archive;
252b5132 3485
2e30cb57
CC		 3486 if (deterministic)
3487 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
3488
252b5132
RH		 3489 list = NULL;
3490
3491 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 3492
b667df2e 3493 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
8d8e0703
AM		 3494 {
3495 status = 1;
3496 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
cfad8730 3497 goto cleanup_and_exit;
8d8e0703 3498 }
b667df2e 3499
d3ba0551 3500 while (!status && this_element != NULL)
252b5132 3501 {
4c168fa3
AM		 3502 char *output_name;
3503 bfd *output_bfd;
252b5132 3504 bfd *last_element;
8066d1a2
AS		 3505 struct stat buf;
3506 int stat_status = 0;
3f5e193b 3507 bfd_boolean del = TRUE;
19094d10 3508 bfd_boolean ok_object;
8066d1a2 3509
dd9b91de
NC		 3510 /* PR binutils/17533: Do not allow directory traversal
3511 outside of the current directory tree by archive members. */
3512 if (! is_valid_archive_path (bfd_get_filename (this_element)))
5e186ece
NC		 3513 {
3514 non_fatal (_("illegal pathname found in archive member: %s"),
3515 bfd_get_filename (this_element));
3516 status = 1;
3517 goto cleanup_and_exit;
3518 }
dd9b91de 3519
4c168fa3
AM		 3520 /* Create an output file for this member. */
3521 output_name = concat (dir, "/",
3522 bfd_get_filename (this_element), (char *) 0);
3523
3524 /* If the file already exists, make another temp dir. */
3525 if (stat (output_name, &buf) >= 0)
3526 {
1d97232a
NC		 3527 char * tmpdir = make_tempdir (output_name);
3528
3529 free (output_name);
3530 if (tmpdir == NULL)
5e186ece
NC		 3531 {
3532 non_fatal (_("cannot create tempdir for archive copying (error: %s)"),
3533 strerror (errno));
3534 status = 1;
3535 goto cleanup_and_exit;
3536 }
84e2f313 3537
3f5e193b 3538 l = (struct name_list *) xmalloc (sizeof (struct name_list));
1d97232a 3539 l->name = tmpdir;
4c168fa3
AM		 3540 l->next = list;
3541 l->obfd = NULL;
3542 list = l;
1d97232a 3543 output_name = concat (tmpdir, "/",
4c168fa3
AM		 3544 bfd_get_filename (this_element), (char *) 0);
3545 }
3546
8066d1a2
AS		 3547 if (preserve_dates)
3548 {
3549 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 3550
8066d1a2
AS		 3551 if (stat_status != 0)
3552 non_fatal (_("internal stat error on %s"),
3553 bfd_get_filename (this_element));
3554 }
252b5132 3555
3f5e193b 3556 l = (struct name_list *) xmalloc (sizeof (struct name_list));
252b5132
RH		 3557 l->name = output_name;
3558 l->next = list;
bee59fd2 3559 l->obfd = NULL;
252b5132
RH		 3560 list = l;
3561
19094d10
AM		 3562 ok_object = bfd_check_format (this_element, bfd_object);
3563 if (!ok_object)
3564 bfd_nonfatal_message (NULL, this_element, NULL,
3565 _("Unable to recognise the format of file"));
3566
3567 /* PR binutils/3110: Cope with archives
3568 containing multiple target types. */
3569 if (force_output_target || !ok_object)
3570 output_bfd = bfd_openw (output_name, output_target);
3571 else
3572 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
3573
3574 if (output_bfd == NULL)
77f762d6 3575 {
19094d10
AM		 3576 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
3577 status = 1;
5e186ece 3578 goto cleanup_and_exit;
19094d10
AM		 3579 }
3580
3581 if (ok_object)
3582 {
3583 del = !copy_object (this_element, output_bfd, input_arch);
ee873e00 3584
19094d10
AM		 3585 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
3586 /* Try again as an unknown object file. */
3587 ok_object = FALSE;
3588 else if (!bfd_close (output_bfd))
2db6cde7
NS		 3589 {
3590 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
19094d10 3591 /* Error in new object file. Don't change archive. */
2db6cde7 3592 status = 1;
77f762d6 3593 }
77f762d6 3594 }
77f762d6 3595
19094d10
AM		 3596 if (!ok_object)
3597 {
3f5e193b 3598 del = !copy_unknown_object (this_element, output_bfd);
77f762d6
L		 3599 if (!bfd_close_all_done (output_bfd))
3600 {
8d8e0703 3601 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
77f762d6
L		 3602 /* Error in new object file. Don't change archive. */
3603 status = 1;
3604 }
252b5132
RH		 3605 }
3606
3f5e193b 3607 if (del)
950d48e7
NC		 3608 {
3609 unlink (output_name);
3610 status = 1;
3611 }
3612 else
3613 {
3614 if (preserve_dates && stat_status == 0)
3615 set_times (output_name, &buf);
8066d1a2 3616
950d48e7
NC		 3617 /* Open the newly output file and attach to our list. */
3618 output_bfd = bfd_openr (output_name, output_target);
252b5132 3619
950d48e7 3620 l->obfd = output_bfd;
252b5132 3621
950d48e7 3622 *ptr = output_bfd;
cc481421 3623 ptr = &output_bfd->archive_next;
252b5132 3624
950d48e7 3625 last_element = this_element;
252b5132 3626
950d48e7 3627 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 3628
950d48e7
NC		 3629 bfd_close (last_element);
3630 }
252b5132 3631 }
d3ba0551 3632 *ptr = NULL;
252b5132 3633
8d8e0703 3634 filename = bfd_get_filename (obfd);
252b5132 3635 if (!bfd_close (obfd))
8d8e0703
AM		 3636 {
3637 status = 1;
3638 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 3639 }
252b5132 3640
8d8e0703 3641 filename = bfd_get_filename (ibfd);
252b5132 3642 if (!bfd_close (ibfd))
8d8e0703
AM		 3643 {
3644 status = 1;
3645 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 3646 }
252b5132 3647
5e186ece 3648 cleanup_and_exit:
252b5132 3649 /* Delete all the files that we opened. */
1d97232a
NC		 3650 {
3651 struct name_list * next;
3652
3653 for (l = list; l != NULL; l = next)
3654 {
3655 if (l->obfd == NULL)
3656 rmdir (l->name);
3657 else
3658 {
3659 bfd_close (l->obfd);
3660 unlink (l->name);
3661 }
3662 next = l->next;
3663 free (l);
3664 }
3665 }
cfad8730 3666
252b5132
RH		 3667 rmdir (dir);
3668}
3669
0408dee6
DK		 3670static void
3671set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
3672{
3673 /* This is only relevant to Coff targets. */
3674 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
3675 {
78e82dc3
AM		 3676 if (style == KEEP
3677 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
0408dee6
DK		 3678 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
3679 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
3680 }
3681}
3682
252b5132
RH		 3683/* The top-level control. */
3684
3685static void
84e2f313 3686copy_file (const char *input_filename, const char *output_filename,
8b31b6c4
NC		 3687 const char *input_target, const char *output_target,
3688 const bfd_arch_info_type *input_arch)
252b5132
RH		 3689{
3690 bfd *ibfd;
49c12576
AM		 3691 char **obj_matching;
3692 char **core_matching;
52a476ee 3693 off_t size = get_file_size (input_filename);
252b5132 3694
52a476ee 3695 if (size < 1)
f24ddbdd 3696 {
52a476ee
L		 3697 if (size == 0)
3698 non_fatal (_("error: the input file '%s' is empty"),
3699 input_filename);
f24ddbdd
NC		 3700 status = 1;
3701 return;
3702 }
3703
252b5132
RH		 3704 /* To allow us to do "strip *" without dying on the first
3705 non-object file, failures are nonfatal. */
252b5132
RH		 3706 ibfd = bfd_openr (input_filename, input_target);
3707 if (ibfd == NULL)
2db6cde7
NS		 3708 {
3709 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3710 status = 1;
3711 return;
3712 }
252b5132 3713
4a114e3e
L		 3714 switch (do_debug_sections)
3715 {
3716 case compress:
151411f8
L		 3717 case compress_zlib:
3718 case compress_gnu_zlib:
3719 case compress_gabi_zlib:
4a114e3e 3720 ibfd->flags |= BFD_COMPRESS;
cd6faa73
L		 3721 /* Don't check if input is ELF here since this information is
3722 only available after bfd_check_format_matches is called. */
19a7fe52 3723 if (do_debug_sections != compress_gnu_zlib)
cd6faa73 3724 ibfd->flags |= BFD_COMPRESS_GABI;
4a114e3e
L		 3725 break;
3726 case decompress:
3727 ibfd->flags |= BFD_DECOMPRESS;
3728 break;
3729 default:
3730 break;
3731 }
3732
b8871f35
L		 3733 switch (do_elf_stt_common)
3734 {
3735 case elf_stt_common:
3736 ibfd->flags |= BFD_CONVERT_ELF_COMMON | BFD_USE_ELF_STT_COMMON;
3737 break;
3738 break;
3739 case no_elf_stt_common:
3740 ibfd->flags |= BFD_CONVERT_ELF_COMMON;
3741 break;
3742 default:
3743 break;
3744 }
3745
252b5132
RH		 3746 if (bfd_check_format (ibfd, bfd_archive))
3747 {
ee873e00 3748 bfd_boolean force_output_target;
252b5132
RH		 3749 bfd *obfd;
3750
3751 /* bfd_get_target does not return the correct value until
f7433f01 3752 bfd_check_format succeeds. */
252b5132 3753 if (output_target == NULL)
ee873e00
NC		 3754 {
3755 output_target = bfd_get_target (ibfd);
3756 force_output_target = FALSE;
3757 }
3758 else
3759 force_output_target = TRUE;
252b5132
RH		 3760
3761 obfd = bfd_openw (output_filename, output_target);
3762 if (obfd == NULL)
2db6cde7
NS		 3763 {
3764 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3765 status = 1;
3766 return;
3767 }
f2032b67
AM		 3768
3769 if (gnu_debuglink_filename != NULL)
3770 {
3771 non_fatal (_("--add-gnu-debuglink ignored for archive %s"),
3772 bfd_get_filename (ibfd));
3773 gnu_debuglink_filename = NULL;
3774 }
3775
0408dee6
DK		 3776 /* This is a no-op on non-Coff targets. */
3777 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 3778
8b31b6c4 3779 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
252b5132 3780 }
49c12576 3781 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH		 3782 {
3783 bfd *obfd;
49c12576 3784 do_copy:
950d48e7 3785
252b5132 3786 /* bfd_get_target does not return the correct value until
f7433f01 3787 bfd_check_format succeeds. */
252b5132
RH		 3788 if (output_target == NULL)
3789 output_target = bfd_get_target (ibfd);
3790
3791 obfd = bfd_openw (output_filename, output_target);
3792 if (obfd == NULL)
2db6cde7
NS		 3793 {
3794 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3795 status = 1;
3796 return;
3797 }
0408dee6
DK		 3798 /* This is a no-op on non-Coff targets. */
3799 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 3800
8b31b6c4 3801 if (! copy_object (ibfd, obfd, input_arch))
a580b8e0 3802 status = 1;
252b5132 3803
063bb025
NC		 3804 /* PR 17512: file: 0f15796a.
3805 If the file could not be copied it may not be in a writeable
3806 state. So use bfd_close_all_done to avoid the possibility of
3807 writing uninitialised data into the file. */
3808 if (! (status ? bfd_close_all_done (obfd) : bfd_close (obfd)))
8d8e0703
AM		 3809 {
3810 status = 1;
3811 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3812 return;
3813 }
252b5132
RH		 3814
3815 if (!bfd_close (ibfd))
8d8e0703
AM		 3816 {
3817 status = 1;
3818 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3819 return;
3820 }
252b5132
RH		 3821 }
3822 else
3823 {
49c12576
AM		 3824 bfd_error_type obj_error = bfd_get_error ();
3825 bfd_error_type core_error;
b34976b6 3826
49c12576
AM		 3827 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
3828 {
3829 /* This probably can't happen.. */
3830 if (obj_error == bfd_error_file_ambiguously_recognized)
3831 free (obj_matching);
3832 goto do_copy;
3833 }
3834
3835 core_error = bfd_get_error ();
3836 /* Report the object error in preference to the core error. */
3837 if (obj_error != core_error)
3838 bfd_set_error (obj_error);
3839
2db6cde7 3840 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
57938635 3841
49c12576
AM		 3842 if (obj_error == bfd_error_file_ambiguously_recognized)
3843 {
3844 list_matching_formats (obj_matching);
3845 free (obj_matching);
3846 }
3847 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 3848 {
49c12576
AM		 3849 list_matching_formats (core_matching);
3850 free (core_matching);
252b5132 3851 }
57938635 3852
252b5132
RH		 3853 status = 1;
3854 }
3855}
3856
594ef5db
NC		 3857/* Add a name to the section renaming list. */
3858
3859static void
84e2f313
NC		 3860add_section_rename (const char * old_name, const char * new_name,
3861 flagword flags)
594ef5db 3862{
91d6fa6a 3863 section_rename * srename;
594ef5db
NC		 3864
3865 /* Check for conflicts first. */
91d6fa6a
NC		 3866 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3867 if (strcmp (srename->old_name, old_name) == 0)
594ef5db
NC		 3868 {
3869 /* Silently ignore duplicate definitions. */
91d6fa6a
NC		 3870 if (strcmp (srename->new_name, new_name) == 0
3871 && srename->flags == flags)
594ef5db 3872 return;
0af11b59 3873
594ef5db
NC		 3874 fatal (_("Multiple renames of section %s"), old_name);
3875 }
3876
91d6fa6a 3877 srename = (section_rename *) xmalloc (sizeof (* srename));
594ef5db 3878
91d6fa6a
NC		 3879 srename->old_name = old_name;
3880 srename->new_name = new_name;
3881 srename->flags = flags;
3882 srename->next = section_rename_list;
0af11b59 3883
91d6fa6a 3884 section_rename_list = srename;
594ef5db
NC		 3885}
3886
3887/* Check the section rename list for a new name of the input section
9cc0123f
AM		 3888 called OLD_NAME. Returns the new name if one is found and sets
3889 RETURNED_FLAGS if non-NULL to the flags to be used for this section. */
594ef5db
NC		 3890
3891static const char *
9cc0123f 3892find_section_rename (const char *old_name, flagword *returned_flags)
594ef5db 3893{
9cc0123f 3894 const section_rename *srename;
594ef5db 3895
91d6fa6a
NC		 3896 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3897 if (strcmp (srename->old_name, old_name) == 0)
594ef5db 3898 {
9cc0123f
AM		 3899 if (returned_flags != NULL && srename->flags != (flagword) -1)
3900 *returned_flags = srename->flags;
594ef5db 3901
91d6fa6a 3902 return srename->new_name;
594ef5db
NC		 3903 }
3904
3905 return old_name;
3906}
3907
80fccad2
BW		 3908/* Once each of the sections is copied, we may still need to do some
3909 finalization work for private section headers. Do that here. */
3910
3911static void
3912setup_bfd_headers (bfd *ibfd, bfd *obfd)
3913{
80fccad2
BW		 3914 /* Allow the BFD backend to copy any private data it understands
3915 from the input section to the output section. */
3916 if (! bfd_copy_private_header_data (ibfd, obfd))
3917 {
2db6cde7
NS		 3918 status = 1;
3919 bfd_nonfatal_message (NULL, ibfd, NULL,
8d8e0703 3920 _("error in private header data"));
2db6cde7 3921 return;
80fccad2
BW		 3922 }
3923
3924 /* All went well. */
3925 return;
80fccad2
BW		 3926}
3927
594ef5db
NC		 3928/* Create a section in OBFD with the same
3929 name and attributes as ISECTION in IBFD. */
252b5132
RH		 3930
3931static void
84e2f313 3932setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 3933{
3f5e193b 3934 bfd *obfd = (bfd *) obfdarg;
252b5132
RH		 3935 struct section_list *p;
3936 sec_ptr osection;
3937 bfd_size_type size;
3938 bfd_vma vma;
3939 bfd_vma lma;
3940 flagword flags;
1a89cc7d 3941 const char *err;
594ef5db 3942 const char * name;
d7fb0dd2 3943 char *prefix = NULL;
66125551 3944 bfd_boolean make_nobits;
fa463e9f 3945 unsigned int alignment;
0af11b59 3946
2593f09a 3947 if (is_strip_section (ibfd, isection))
252b5132
RH		 3948 return;
3949
594ef5db 3950 /* Get the, possibly new, name of the output section. */
fd361982
AM		 3951 name = bfd_section_name (isection);
3952 flags = bfd_section_flags (isection);
dd68a12b
AM		 3953 if (bfd_get_flavour (ibfd) != bfd_get_flavour (obfd))
3954 {
3955 flags &= bfd_applicable_section_flags (ibfd);
3956 flags &= bfd_applicable_section_flags (obfd);
3957 }
9cc0123f 3958 name = find_section_rename (name, &flags);
0af11b59 3959
d7fb0dd2 3960 /* Prefix sections. */
dd68a12b
AM		 3961 if (prefix_alloc_sections_string
3962 && (bfd_section_flags (isection) & SEC_ALLOC) != 0)
d7fb0dd2
NC		 3963 prefix = prefix_alloc_sections_string;
3964 else if (prefix_sections_string)
3965 prefix = prefix_sections_string;
3966
3967 if (prefix)
3968 {
3969 char *n;
3970
3f5e193b 3971 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
d7fb0dd2
NC		 3972 strcpy (n, prefix);
3973 strcat (n, name);
3974 name = n;
3975 }
66491ebc 3976
66125551 3977 make_nobits = FALSE;
2e62b721 3978
fd361982 3979 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 3980 SECTION_CONTEXT_SET_FLAGS);
3981 if (p != NULL)
551b43fd 3982 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 3983 else if (strip_symbols == STRIP_NONDEBUG
6c67a030 3984 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
f7433f01 3985 && !is_nondebug_keep_contents_section (ibfd, isection))
66125551 3986 {
6c67a030 3987 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
dd68a12b 3988 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
66125551
AM		 3989 {
3990 make_nobits = TRUE;
3991
3992 /* Twiddle the input section flags so that it seems to
3993 elf.c:copy_private_bfd_data that section flags have not
3994 changed between input and output sections. This hack
3995 prevents wholesale rewriting of the program headers. */
6c67a030 3996 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 3997 }
3998 }
551b43fd
AM		 3999
4000 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 4001
252b5132
RH		 4002 if (osection == NULL)
4003 {
2db6cde7 4004 err = _("failed to create output section");
252b5132
RH		 4005 goto loser;
4006 }
4007
66125551 4008 if (make_nobits)
551b43fd
AM		 4009 elf_section_type (osection) = SHT_NOBITS;
4010
fd361982 4011 size = bfd_section_size (isection);
88988473 4012 size = bfd_convert_section_size (ibfd, isection, obfd, size);
252b5132 4013 if (copy_byte >= 0)
b7dd81f7 4014 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS		 4015 else if (extract_symbol)
4016 size = 0;
fd361982 4017 if (!bfd_set_section_size (osection, size))
252b5132 4018 {
2db6cde7 4019 err = _("failed to set size");
252b5132
RH		 4020 goto loser;
4021 }
57938635 4022
fd361982
AM		 4023 vma = bfd_section_vma (isection);
4024 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 4025 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
4026 if (p != NULL)
4027 {
4028 if (p->context & SECTION_CONTEXT_SET_VMA)
4029 vma = p->vma_val;
4030 else
4031 vma += p->vma_val;
4032 }
252b5132
RH		 4033 else
4034 vma += change_section_address;
57938635 4035
fd361982 4036 if (!bfd_set_section_vma (osection, vma))
252b5132 4037 {
2db6cde7 4038 err = _("failed to set vma");
252b5132
RH		 4039 goto loser;
4040 }
4041
4042 lma = isection->lma;
fd361982 4043 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 4044 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
4045 if (p != NULL)
252b5132 4046 {
2e62b721 4047 if (p->context & SECTION_CONTEXT_ALTER_LMA)
252b5132 4048 lma += p->lma_val;
252b5132 4049 else
2e62b721 4050 lma = p->lma_val;
252b5132
RH		 4051 }
4052 else
4053 lma += change_section_address;
57938635 4054
237dcb53 4055 osection->lma = lma;
252b5132 4056
fd361982 4057 p = find_section_list (bfd_section_name (isection), FALSE,
fa463e9f
N		 4058 SECTION_CONTEXT_SET_ALIGNMENT);
4059 if (p != NULL)
4060 alignment = p->alignment;
4061 else
fd361982 4062 alignment = bfd_section_alignment (isection);
82ef9cad 4063
252b5132
RH		 4064 /* FIXME: This is probably not enough. If we change the LMA we
4065 may have to recompute the header for the file as well. */
fd361982 4066 if (!bfd_set_section_alignment (osection, alignment))
252b5132 4067 {
2db6cde7 4068 err = _("failed to set alignment");
252b5132
RH		 4069 goto loser;
4070 }
4071
bc408b8a
JJ		 4072 /* Copy merge entity size. */
4073 osection->entsize = isection->entsize;
4074
f6fe1ccd
L		 4075 /* Copy compress status. */
4076 osection->compress_status = isection->compress_status;
4077
252b5132
RH		 4078 /* This used to be mangle_section; we do here to avoid using
4079 bfd_get_section_by_name since some formats allow multiple
4080 sections with the same name. */
4081 isection->output_section = osection;
237dcb53 4082 isection->output_offset = 0;
d3e52d40 4083
119f4245
AM		 4084 if ((isection->flags & SEC_GROUP) != 0)
4085 {
4086 asymbol *gsym = group_signature (isection);
4087
4088 if (gsym != NULL)
4089 {
4090 gsym->flags |= BSF_KEEP;
dd68a12b 4091 if (bfd_get_flavour (ibfd) == bfd_target_elf_flavour)
119f4245
AM		 4092 elf_group_id (isection) = gsym;
4093 }
4094 }
4095
252b5132
RH		 4096 /* Allow the BFD backend to copy any private data it understands
4097 from the input section to the output section. */
42bb2e33 4098 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 4099 {
2db6cde7 4100 err = _("failed to copy private data");
252b5132
RH		 4101 goto loser;
4102 }
4103
594ef5db 4104 /* All went well. */
252b5132
RH		 4105 return;
4106
f7433f01 4107 loser:
252b5132 4108 status = 1;
2db6cde7 4109 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH		 4110}
4111
c3989150 4112/* Return TRUE if input section ISECTION should be skipped. */
252b5132 4113
c3989150 4114static bfd_boolean
9ef920e9 4115skip_section (bfd *ibfd, sec_ptr isection, bfd_boolean skip_copy)
252b5132 4116{
252b5132
RH		 4117 sec_ptr osection;
4118 bfd_size_type size;
dc156bc0 4119 flagword flags;
252b5132 4120
594ef5db
NC		 4121 /* If we have already failed earlier on,
4122 do not keep on generating complaints now. */
252b5132 4123 if (status != 0)
c3989150
L		 4124 return TRUE;
4125
4126 if (extract_symbol)
4127 return TRUE;
57938635 4128
2593f09a 4129 if (is_strip_section (ibfd, isection))
c3989150 4130 return TRUE;
252b5132 4131
acf1419f
AB		 4132 if (is_update_section (ibfd, isection))
4133 return TRUE;
4134
9ef920e9
NC		 4135 /* When merging a note section we skip the copying of the contents,
4136 but not the copying of the relocs associated with the contents. */
5c49f2cd 4137 if (skip_copy && is_mergeable_note_section (ibfd, isection))
9ef920e9
NC		 4138 return TRUE;
4139
fd361982 4140 flags = bfd_section_flags (isection);
dc156bc0 4141 if ((flags & SEC_GROUP) != 0)
c3989150 4142 return TRUE;
dc156bc0 4143
252b5132 4144 osection = isection->output_section;
fd361982 4145 size = bfd_section_size (isection);
252b5132
RH		 4146
4147 if (size == 0 || osection == 0)
c3989150 4148 return TRUE;
252b5132 4149
c3989150
L		 4150 return FALSE;
4151}
4152
d3e5f6c8
AB		 4153/* Add section SECTION_PATTERN to the list of sections that will have their
4154 relocations removed. */
4155
4156static void
4157handle_remove_relocations_option (const char *section_pattern)
4158{
4159 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE_RELOCS);
4160}
4161
4162/* Return TRUE if ISECTION from IBFD should have its relocations removed,
4163 otherwise return FALSE. If the user has requested that relocations be
4164 removed from a section that does not have relocations then this
4165 function will still return TRUE. */
4166
4167static bfd_boolean
4168discard_relocations (bfd *ibfd ATTRIBUTE_UNUSED, asection *isection)
4169{
fd361982 4170 return (find_section_list (bfd_section_name (isection), FALSE,
d3e5f6c8
AB		 4171 SECTION_CONTEXT_REMOVE_RELOCS) != NULL);
4172}
4173
4174/* Wrapper for dealing with --remove-section (-R) command line arguments.
4175 A special case is detected here, if the user asks to remove a relocation
c12d9fa2 4176 section (one starting with ".rela" or ".rel") then this removal must
f9853190 4177 be done using a different technique in a relocatable object. */
d3e5f6c8
AB		 4178
4179static void
4180handle_remove_section_option (const char *section_pattern)
4181{
f9853190 4182 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE);
c12d9fa2
AM		 4183 if (strncmp (section_pattern, ".rel", 4) == 0)
4184 {
4185 section_pattern += 4;
4186 if (*section_pattern == 'a')
4187 section_pattern++;
4188 if (*section_pattern)
4189 handle_remove_relocations_option (section_pattern);
4190 }
f9853190 4191 sections_removed = TRUE;
d3e5f6c8
AB		 4192}
4193
c3989150
L		 4194/* Copy relocations in input section ISECTION of IBFD to an output
4195 section with the same name in OBFDARG. If stripping then don't
4196 copy any relocation info. */
4197
4198static void
4199copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
4200{
4201 bfd *obfd = (bfd *) obfdarg;
4202 long relsize;
4203 arelent **relpp;
4204 long relcount;
4205 sec_ptr osection;
4206
9ef920e9 4207 if (skip_section (ibfd, isection, FALSE))
237dcb53
AM		 4208 return;
4209
c3989150 4210 osection = isection->output_section;
2593f09a 4211
96109726 4212 /* Core files and DWO files do not need to be relocated. */
d3e5f6c8
AB		 4213 if (bfd_get_format (obfd) == bfd_core
4214 || strip_symbols == STRIP_NONDWO
4215 || discard_relocations (ibfd, isection))
4dd67f29
MS		 4216 relsize = 0;
4217 else
ed570f48
NC		 4218 {
4219 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 4220
ed570f48
NC		 4221 if (relsize < 0)
4222 {
4223 /* Do not complain if the target does not support relocations. */
4224 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
4225 relsize = 0;
4226 else
2db6cde7
NS		 4227 {
4228 status = 1;
4229 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
4230 return;
4231 }
ed570f48
NC		 4232 }
4233 }
57938635 4234
252b5132 4235 if (relsize == 0)
96109726
CC		 4236 {
4237 bfd_set_reloc (obfd, osection, NULL, 0);
4238 osection->flags &= ~SEC_RELOC;
4239 }
252b5132
RH		 4240 else
4241 {
2d054e6b 4242 if (isection->orelocation != NULL)
2db6cde7 4243 {
2d054e6b
NC		 4244 /* Some other function has already set up the output relocs
4245 for us, so scan those instead of the default relocs. */
4246 relcount = isection->reloc_count;
4247 relpp = isection->orelocation;
4248 }
4249 else
4250 {
4251 relpp = (arelent **) xmalloc (relsize);
4252 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
4253 if (relcount < 0)
4254 {
4255 status = 1;
4256 bfd_nonfatal_message (NULL, ibfd, isection,
4257 _("relocation count is negative"));
4258 return;
4259 }
2db6cde7 4260 }
57938635 4261
252b5132
RH		 4262 if (strip_symbols == STRIP_ALL)
4263 {
4264 /* Remove relocations which are not in
0af11b59 4265 keep_strip_specific_list. */
252b5132
RH		 4266 arelent **temp_relpp;
4267 long temp_relcount = 0;
4268 long i;
57938635 4269
3f5e193b 4270 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 4271 for (i = 0; i < relcount; i++)
86eafac0
NC		 4272 {
4273 /* PR 17512: file: 9e907e0c. */
f507bebf
NC		 4274 if (relpp[i]->sym_ptr_ptr
4275 /* PR 20096 */
4276 && * relpp[i]->sym_ptr_ptr)
86eafac0
NC		 4277 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
4278 keep_specific_htab))
4279 temp_relpp [temp_relcount++] = relpp [i];
4280 }
252b5132 4281 relcount = temp_relcount;
2d054e6b
NC		 4282 if (isection->orelocation == NULL)
4283 free (relpp);
252b5132
RH		 4284 relpp = temp_relpp;
4285 }
e0c60db2 4286
d3ba0551 4287 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 4288 if (relcount == 0)
c3989150
L		 4289 {
4290 osection->flags &= ~SEC_RELOC;
4291 free (relpp);
4292 }
252b5132 4293 }
c3989150
L		 4294}
4295
4296/* Copy the data of input section ISECTION of IBFD
4297 to an output section with the same name in OBFD. */
4298
4299static void
4300copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
4301{
4302 bfd *obfd = (bfd *) obfdarg;
4303 struct section_list *p;
4304 sec_ptr osection;
4305 bfd_size_type size;
4306
9ef920e9 4307 if (skip_section (ibfd, isection, TRUE))
c3989150
L		 4308 return;
4309
4310 osection = isection->output_section;
88988473 4311 /* The output SHF_COMPRESSED section size is different from input if
cbd44e24
L		 4312 ELF classes of input and output aren't the same. We can't use
4313 the output section size since --interleave will shrink the output
4314 section. Size will be updated if the section is converted. */
fd361982 4315 size = bfd_section_size (isection);
c3989150 4316
fd361982
AM		 4317 if (bfd_section_flags (isection) & SEC_HAS_CONTENTS
4318 && bfd_section_flags (osection) & SEC_HAS_CONTENTS)
252b5132 4319 {
4a114e3e 4320 bfd_byte *memhunk = NULL;
252b5132 4321
88988473
L		 4322 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk)
4323 || !bfd_convert_section_contents (ibfd, isection, obfd,
cbd44e24 4324 &memhunk, &size))
2db6cde7
NS		 4325 {
4326 status = 1;
4327 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
848ac659 4328 free (memhunk);
2db6cde7
NS		 4329 return;
4330 }
252b5132 4331
9e48b4c6
NC		 4332 if (reverse_bytes)
4333 {
4334 /* We don't handle leftover bytes (too many possible behaviors,
4335 and we don't know what the user wants). The section length
4336 must be a multiple of the number of bytes to swap. */
4337 if ((size % reverse_bytes) == 0)
4338 {
4339 unsigned long i, j;
4340 bfd_byte b;
4341
4342 for (i = 0; i < size; i += reverse_bytes)
4343 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
4344 {
4345 bfd_byte *m = (bfd_byte *) memhunk;
4346
4347 b = m[i + j];
4348 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
4349 m[(i + reverse_bytes) - (j + 1)] = b;
4350 }
4351 }
4352 else
4353 /* User must pad the section up in order to do this. */
4354 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
fd361982 4355 bfd_section_name (isection), reverse_bytes);
9e48b4c6
NC		 4356 }
4357
57938635 4358 if (copy_byte >= 0)
5e675b72
AM		 4359 {
4360 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 4361 char *from = (char *) memhunk + copy_byte;
3f5e193b 4362 char *to = (char *) memhunk;
2f01ffbf 4363 char *end = (char *) memhunk + size;
b7dd81f7 4364 int i;
5e675b72 4365
1c9c7ce0
JW		 4366 /* If the section address is not exactly divisible by the interleave,
4367 then we must bias the from address. If the copy_byte is less than
4368 the bias, then we must skip forward one interleave, and increment
4369 the final lma. */
4370 int extra = isection->lma % interleave;
4371 from -= extra;
4372 if (copy_byte < extra)
4373 from += interleave;
4374
5e675b72 4375 for (; from < end; from += interleave)
b7dd81f7 4376 for (i = 0; i < copy_width; i++)
ee7da987
L		 4377 {
4378 if (&from[i] >= end)
4379 break;
4380 *to++ = from[i];
4381 }
5e675b72 4382
b7dd81f7 4383 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72 4384 osection->lma /= interleave;
1c9c7ce0
JW		 4385 if (copy_byte < extra)
4386 osection->lma++;
5e675b72 4387 }
252b5132 4388
d3ba0551 4389 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 4390 {
4391 status = 1;
4392 bfd_nonfatal_message (NULL, obfd, osection, NULL);
848ac659 4393 free (memhunk);
2db6cde7
NS		 4394 return;
4395 }
252b5132
RH		 4396 free (memhunk);
4397 }
fd361982 4398 else if ((p = find_section_list (bfd_section_name (isection),
2e62b721
NC		 4399 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
4400 && (p->flags & SEC_HAS_CONTENTS) != 0)
252b5132 4401 {
d3ba0551 4402 void *memhunk = xmalloc (size);
252b5132
RH		 4403
4404 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
4405 flag--they can just remove the section entirely and add it
4406 back again. However, we do permit them to turn on the
4407 SEC_HAS_CONTENTS flag, and take it to mean that the section
4408 contents should be zeroed out. */
4409
4410 memset (memhunk, 0, size);
d3ba0551 4411 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 4412 {
4413 status = 1;
4414 bfd_nonfatal_message (NULL, obfd, osection, NULL);
848ac659 4415 free (memhunk);
2db6cde7
NS		 4416 return;
4417 }
252b5132
RH		 4418 free (memhunk);
4419 }
4420}
4421
4422/* Get all the sections. This is used when --gap-fill or --pad-to is
4423 used. */
4424
4425static void
84e2f313 4426get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 4427{
3f5e193b 4428 asection ***secppp = (asection ***) secppparg;
252b5132
RH		 4429
4430 **secppp = osection;
4431 ++(*secppp);
4432}
4433
6ce9ba7a 4434/* Sort sections by LMA. This is called via qsort, and is used when
252b5132
RH		 4435 --gap-fill or --pad-to is used. We force non loadable or empty
4436 sections to the front, where they are easier to ignore. */
4437
4438static int
84e2f313 4439compare_section_lma (const void *arg1, const void *arg2)
252b5132 4440{
6ce9ba7a
AM		 4441 const asection *sec1 = *(const asection **) arg1;
4442 const asection *sec2 = *(const asection **) arg2;
252b5132
RH		 4443 flagword flags1, flags2;
4444
4445 /* Sort non loadable sections to the front. */
6ce9ba7a
AM		 4446 flags1 = sec1->flags;
4447 flags2 = sec2->flags;
252b5132
RH		 4448 if ((flags1 & SEC_HAS_CONTENTS) == 0
4449 || (flags1 & SEC_LOAD) == 0)
4450 {
4451 if ((flags2 & SEC_HAS_CONTENTS) != 0
4452 && (flags2 & SEC_LOAD) != 0)
4453 return -1;
4454 }
4455 else
4456 {
4457 if ((flags2 & SEC_HAS_CONTENTS) == 0
4458 || (flags2 & SEC_LOAD) == 0)
4459 return 1;
4460 }
4461
4462 /* Sort sections by LMA. */
6ce9ba7a 4463 if (sec1->lma > sec2->lma)
252b5132 4464 return 1;
6ce9ba7a 4465 if (sec1->lma < sec2->lma)
252b5132
RH		 4466 return -1;
4467
4468 /* Sort sections with the same LMA by size. */
6ce9ba7a 4469 if (bfd_section_size (sec1) > bfd_section_size (sec2))
252b5132 4470 return 1;
6ce9ba7a 4471 if (bfd_section_size (sec1) < bfd_section_size (sec2))
252b5132
RH		 4472 return -1;
4473
6ce9ba7a
AM		 4474 if (sec1->id > sec2->id)
4475 return 1;
4476 if (sec1->id < sec2->id)
4477 return -1;
252b5132
RH		 4478 return 0;
4479}
4480
4481/* Mark all the symbols which will be used in output relocations with
4482 the BSF_KEEP flag so that those symbols will not be stripped.
4483
4484 Ignore relocations which will not appear in the output file. */
4485
4486static void
84e2f313 4487mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 4488{
3f5e193b 4489 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH		 4490 long relsize;
4491 arelent **relpp;
4492 long relcount, i;
4493
4494 /* Ignore an input section with no corresponding output section. */
4495 if (isection->output_section == NULL)
4496 return;
4497
4498 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4499 if (relsize < 0)
ed570f48
NC		 4500 {
4501 /* Do not complain if the target does not support relocations. */
4502 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
4503 return;
4504 bfd_fatal (bfd_get_filename (ibfd));
4505 }
252b5132
RH		 4506
4507 if (relsize == 0)
4508 return;
4509
3f5e193b 4510 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 4511 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
4512 if (relcount < 0)
4513 bfd_fatal (bfd_get_filename (ibfd));
4514
ec5d57d5
NC		 4515 /* Examine each symbol used in a relocation. If it's not one of the
4516 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 4517 for (i = 0; i < relcount; i++)
4518 {
8b929e42 4519 /* See PRs 20923 and 20930 for reproducers for the NULL tests. */
88add6d8 4520 if (relpp[i]->sym_ptr_ptr != NULL
8b929e42 4521 && * relpp[i]->sym_ptr_ptr != NULL
88add6d8 4522 && *relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
ec5d57d5
NC		 4523 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
4524 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
4525 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 4526 }
4527
4528 if (relpp != NULL)
4529 free (relpp);
4530}
4531
4532/* Write out debugging information. */
4533
b34976b6 4534static bfd_boolean
84e2f313
NC		 4535write_debugging_info (bfd *obfd, void *dhandle,
4536 long *symcountp ATTRIBUTE_UNUSED,
4537 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132 4538{
252b5132
RH		 4539 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
4540 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
4541 {
1d97232a 4542 bfd_byte *syms, *strings = NULL;
252b5132
RH		 4543 bfd_size_type symsize, stringsize;
4544 asection *stabsec, *stabstrsec;
551b43fd 4545 flagword flags;
252b5132
RH		 4546
4547 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
4548 &symsize, &strings,
4549 &stringsize))
b34976b6 4550 return FALSE;
252b5132 4551
551b43fd
AM		 4552 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
4553 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
4554 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 4555 if (stabsec == NULL
4556 || stabstrsec == NULL
fd361982
AM		 4557 || !bfd_set_section_size (stabsec, symsize)
4558 || !bfd_set_section_size (stabstrsec, stringsize)
4559 || !bfd_set_section_alignment (stabsec, 2)
4560 || !bfd_set_section_alignment (stabstrsec, 0))
252b5132 4561 {
2db6cde7
NS		 4562 bfd_nonfatal_message (NULL, obfd, NULL,
4563 _("can't create debugging section"));
1d97232a 4564 free (strings);
b34976b6 4565 return FALSE;
252b5132
RH		 4566 }
4567
4568 /* We can get away with setting the section contents now because
f7433f01
AM		 4569 the next thing the caller is going to do is copy over the
4570 real sections. We may someday have to split the contents
4571 setting out of this function. */
d3ba0551
AM		 4572 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
4573 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
4574 stringsize))
252b5132 4575 {
2db6cde7
NS		 4576 bfd_nonfatal_message (NULL, obfd, NULL,
4577 _("can't set debugging section contents"));
1d97232a 4578 free (strings);
b34976b6 4579 return FALSE;
252b5132
RH		 4580 }
4581
b34976b6 4582 return TRUE;
252b5132
RH		 4583 }
4584
2db6cde7
NS		 4585 bfd_nonfatal_message (NULL, obfd, NULL,
4586 _("don't know how to write debugging information for %s"),
f7433f01 4587 bfd_get_target (obfd));
b34976b6 4588 return FALSE;
252b5132
RH		 4589}
4590
955d0b3b
RM		 4591/* If neither -D nor -U was specified explicitly,
4592 then use the configured default. */
4593static void
4594default_deterministic (void)
4595{
4596 if (deterministic < 0)
4597 deterministic = DEFAULT_AR_DETERMINISTIC;
4598}
4599
252b5132 4600static int
84e2f313 4601strip_main (int argc, char *argv[])
252b5132 4602{
7c29036b
NC		 4603 char *input_target = NULL;
4604 char *output_target = NULL;
b34976b6 4605 bfd_boolean show_version = FALSE;
7c29036b
NC		 4606 bfd_boolean formats_info = FALSE;
4607 int c;
4608 int i;
252b5132 4609 char *output_file = NULL;
1b8dd643 4610 bfd_boolean merge_notes_set = FALSE;
1d15e434 4611
ea8fae9f 4612 while ((c = getopt_long (argc, argv, "I:O:F:K:MN:R:o:sSpdgxXHhVvwDU",
252b5132
RH		 4613 strip_options, (int *) 0)) != EOF)
4614 {
4615 switch (c)
4616 {
4617 case 'I':
4618 input_target = optarg;
4619 break;
4620 case 'O':
4621 output_target = optarg;
4622 break;
4623 case 'F':
4624 input_target = output_target = optarg;
4625 break;
4626 case 'R':
d3e5f6c8
AB		 4627 handle_remove_section_option (optarg);
4628 break;
64f52b3e
FS		 4629 case OPTION_KEEP_SECTION:
4630 find_section_list (optarg, TRUE, SECTION_CONTEXT_KEEP);
4631 break;
d3e5f6c8
AB		 4632 case OPTION_REMOVE_RELOCS:
4633 handle_remove_relocations_option (optarg);
252b5132
RH		 4634 break;
4635 case 's':
4636 strip_symbols = STRIP_ALL;
4637 break;
4638 case 'S':
4639 case 'g':
db4f6831 4640 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 4641 strip_symbols = STRIP_DEBUG;
4642 break;
96109726
CC		 4643 case OPTION_STRIP_DWO:
4644 strip_symbols = STRIP_DWO;
4645 break;
252b5132
RH		 4646 case OPTION_STRIP_UNNEEDED:
4647 strip_symbols = STRIP_UNNEEDED;
4648 break;
4649 case 'K':
047c9024 4650 add_specific_symbol (optarg, keep_specific_htab);
252b5132 4651 break;
1d15e434
NC		 4652 case 'M':
4653 merge_notes = TRUE;
1b8dd643 4654 merge_notes_set = TRUE;
1d15e434
NC		 4655 break;
4656 case OPTION_NO_MERGE_NOTES:
4657 merge_notes = FALSE;
1b8dd643 4658 merge_notes_set = TRUE;
1d15e434 4659 break;
252b5132 4660 case 'N':
047c9024 4661 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH		 4662 break;
4663 case 'o':
4664 output_file = optarg;
4665 break;
4666 case 'p':
b34976b6 4667 preserve_dates = TRUE;
252b5132 4668 break;
2e30cb57
CC		 4669 case 'D':
4670 deterministic = TRUE;
4671 break;
955d0b3b
RM		 4672 case 'U':
4673 deterministic = FALSE;
4674 break;
252b5132
RH		 4675 case 'x':
4676 discard_locals = LOCALS_ALL;
4677 break;
4678 case 'X':
4679 discard_locals = LOCALS_START_L;
4680 break;
4681 case 'v':
b34976b6 4682 verbose = TRUE;
252b5132
RH		 4683 break;
4684 case 'V':
b34976b6 4685 show_version = TRUE;
252b5132 4686 break;
7c29036b
NC		 4687 case OPTION_FORMATS_INFO:
4688 formats_info = TRUE;
4689 break;
ed1653a7
NC		 4690 case OPTION_ONLY_KEEP_DEBUG:
4691 strip_symbols = STRIP_NONDEBUG;
4692 break;
1637cd90
JB		 4693 case OPTION_KEEP_FILE_SYMBOLS:
4694 keep_file_symbols = 1;
4695 break;
252b5132 4696 case 0:
594ef5db
NC		 4697 /* We've been given a long option. */
4698 break;
5fe11841
NC		 4699 case 'w':
4700 wildcard = TRUE;
4701 break;
8b53311e 4702 case 'H':
252b5132
RH		 4703 case 'h':
4704 strip_usage (stdout, 0);
4705 default:
4706 strip_usage (stderr, 1);
4707 }
4708 }
4709
1b8dd643
NC		 4710 /* If the user has not expressly chosen to merge/not-merge ELF notes
4711 then enable the merging unless we are stripping debug or dwo info. */
4712 if (! merge_notes_set
4713 && (strip_symbols == STRIP_UNDEF
4714 || strip_symbols == STRIP_ALL
4715 || strip_symbols == STRIP_UNNEEDED
4716 || strip_symbols == STRIP_NONDEBUG
4717 || strip_symbols == STRIP_NONDWO))
4718 merge_notes = TRUE;
4719
84e2f313
NC		 4720 if (formats_info)
4721 {
4722 display_info ();
4723 return 0;
4724 }
c1c0eb9e 4725
252b5132
RH		 4726 if (show_version)
4727 print_version ("strip");
4728
955d0b3b
RM		 4729 default_deterministic ();
4730
252b5132
RH		 4731 /* Default is to strip all symbols. */
4732 if (strip_symbols == STRIP_UNDEF
4733 && discard_locals == LOCALS_UNDEF
047c9024 4734 && htab_elements (strip_specific_htab) == 0)
252b5132
RH		 4735 strip_symbols = STRIP_ALL;
4736
d3ba0551 4737 if (output_target == NULL)
252b5132
RH		 4738 output_target = input_target;
4739
4740 i = optind;
4741 if (i == argc
4742 || (output_file != NULL && (i + 1) < argc))
4743 strip_usage (stderr, 1);
4744
4745 for (; i < argc; i++)
4746 {
4747 int hold_status = status;
4748 struct stat statbuf;
4749 char *tmpname;
4750
f24ddbdd 4751 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 4752 {
4753 status = 1;
4754 continue;
4755 }
f24ddbdd 4756
252b5132 4757 if (preserve_dates)
f24ddbdd
NC		 4758 /* No need to check the return value of stat().
4759 It has already been checked in get_file_size(). */
4760 stat (argv[i], &statbuf);
252b5132 4761
8b6efd89
KT		 4762 if (output_file == NULL
4763 || filename_cmp (argv[i], output_file) == 0)
252b5132 4764 tmpname = make_tempname (argv[i]);
12f498a7
NS		 4765 else
4766 tmpname = output_file;
252b5132 4767
f9c026a8
NC		 4768 if (tmpname == NULL)
4769 {
2db6cde7
NS		 4770 bfd_nonfatal_message (argv[i], NULL, NULL,
4771 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC		 4772 status = 1;
4773 continue;
4774 }
4775
d68c385b 4776 status = 0;
8b31b6c4 4777 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH		 4778 if (status == 0)
4779 {
4780 if (preserve_dates)
4781 set_times (tmpname, &statbuf);
12f498a7 4782 if (output_file != tmpname)
92fac5ec
L		 4783 status = (smart_rename (tmpname,
4784 output_file ? output_file : argv[i],
4785 preserve_dates) != 0);
4786 if (status == 0)
4787 status = hold_status;
252b5132
RH		 4788 }
4789 else
bb14f524 4790 unlink_if_ordinary (tmpname);
12f498a7 4791 if (output_file != tmpname)
252b5132
RH		 4792 free (tmpname);
4793 }
4794
d68c385b 4795 return status;
252b5132
RH		 4796}
4797
92dd4511
L		 4798/* Set up PE subsystem. */
4799
4800static void
4801set_pe_subsystem (const char *s)
4802{
4803 const char *version, *subsystem;
4804 size_t i;
4805 static const struct
4806 {
4807 const char *name;
4808 const char set_def;
4809 const short value;
4810 }
4811 v[] =
4812 {
955d0b3b 4813 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L		 4814 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
4815 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
4816 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
4817 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
4818 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
4819 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
4820 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 4821 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L		 4822 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
4823 };
4824 short value;
4825 char *copy;
4826 int set_def = -1;
4827
4828 /* Check for the presence of a version number. */
4829 version = strchr (s, ':');
4830 if (version == NULL)
4831 subsystem = s;
4832 else
4833 {
4834 int len = version - s;
4835 copy = xstrdup (s);
4836 subsystem = copy;
4837 copy[len] = '\0';
4838 version = copy + 1 + len;
4839 pe_major_subsystem_version = strtoul (version, &copy, 0);
4840 if (*copy == '.')
4841 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
4842 if (*copy != '\0')
4843 non_fatal (_("%s: bad version in PE subsystem"), s);
4844 }
4845
4846 /* Check for numeric subsystem. */
4847 value = (short) strtol (subsystem, &copy, 0);
4848 if (*copy == '\0')
4849 {
4850 for (i = 0; i < ARRAY_SIZE (v); i++)
4851 if (v[i].value == value)
4852 {
4853 pe_subsystem = value;
4854 set_def = v[i].set_def;
4855 break;
4856 }
4857 }
4858 else
4859 {
4860 /* Search for subsystem by name. */
4861 for (i = 0; i < ARRAY_SIZE (v); i++)
4862 if (strcmp (subsystem, v[i].name) == 0)
4863 {
4864 pe_subsystem = v[i].value;
4865 set_def = v[i].set_def;
4866 break;
4867 }
4868 }
4869
4870 switch (set_def)
4871 {
4872 case -1:
4873 fatal (_("unknown PE subsystem: %s"), s);
4874 break;
4875 case 0:
4876 break;
4877 default:
4878 if (pe_file_alignment == (bfd_vma) -1)
4879 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4880 if (pe_section_alignment == (bfd_vma) -1)
4881 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4882 break;
4883 }
0cbf3531
MS		 4884 if (s != subsystem)
4885 free ((char *) subsystem);
92dd4511
L		 4886}
4887
4888/* Convert EFI target to PEI target. */
4889
4890static void
4891convert_efi_target (char *efi)
4892{
4893 efi[0] = 'p';
4894 efi[1] = 'e';
4895 efi[2] = 'i';
4896
4897 if (strcmp (efi + 4, "ia32") == 0)
4898 {
4899 /* Change ia32 to i386. */
4900 efi[5]= '3';
4901 efi[6]= '8';
4902 efi[7]= '6';
4903 }
4904 else if (strcmp (efi + 4, "x86_64") == 0)
4905 {
4906 /* Change x86_64 to x86-64. */
4907 efi[7] = '-';
4908 }
4909}
4910
7173b38a 4911/* Allocate and return a pointer to a struct section_add, initializing the
06b73f41 4912 structure using ARG, a string in the format "sectionname=filename".
7173b38a
AB		 4913 The returned structure will have its next pointer set to NEXT. The
4914 OPTION field is the name of the command line option currently being
4915 parsed, and is only used if an error needs to be reported. */
4916
4917static struct section_add *
06b73f41 4918init_section_add (const char *arg,
f7433f01
AM		 4919 struct section_add *next,
4920 const char *option)
7173b38a
AB		 4921{
4922 struct section_add *pa;
4923 const char *s;
4924
06b73f41 4925 s = strchr (arg, '=');
7173b38a
AB		 4926 if (s == NULL)
4927 fatal (_("bad format for %s"), option);
4928
4929 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
06b73f41 4930 pa->name = xstrndup (arg, s - arg);
7173b38a
AB		 4931 pa->filename = s + 1;
4932 pa->next = next;
4933 pa->contents = NULL;
4934 pa->size = 0;
4935
4936 return pa;
4937}
4938
4939/* Load the file specified in PA, allocating memory to hold the file
4940 contents, and store a pointer to the allocated memory in the contents
4941 field of PA. The size field of PA is also updated. All errors call
4942 FATAL. */
4943
4944static void
4945section_add_load_file (struct section_add *pa)
4946{
4947 size_t off, alloc;
4948 FILE *f;
4949
4950 /* We don't use get_file_size so that we can do
4951 --add-section .note.GNU_stack=/dev/null
4952 get_file_size doesn't work on /dev/null. */
4953
4954 f = fopen (pa->filename, FOPEN_RB);
4955 if (f == NULL)
4956 fatal (_("cannot open: %s: %s"),
f7433f01 4957 pa->filename, strerror (errno));
7173b38a
AB		 4958
4959 off = 0;
4960 alloc = 4096;
4961 pa->contents = (bfd_byte *) xmalloc (alloc);
4962 while (!feof (f))
4963 {
4964 off_t got;
4965
4966 if (off == alloc)
f7433f01
AM		 4967 {
4968 alloc <<= 1;
4969 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
4970 }
7173b38a
AB		 4971
4972 got = fread (pa->contents + off, 1, alloc - off, f);
4973 if (ferror (f))
f7433f01 4974 fatal (_("%s: fread failed"), pa->filename);
7173b38a
AB		 4975
4976 off += got;
4977 }
4978
4979 pa->size = off;
4980
4981 fclose (f);
4982}
4983
252b5132 4984static int
84e2f313 4985copy_main (int argc, char *argv[])
252b5132 4986{
7c29036b
NC		 4987 char *input_filename = NULL;
4988 char *output_filename = NULL;
c1c0eb9e 4989 char *tmpname;
7c29036b
NC		 4990 char *input_target = NULL;
4991 char *output_target = NULL;
b34976b6
AM		 4992 bfd_boolean show_version = FALSE;
4993 bfd_boolean change_warn = TRUE;
7c29036b 4994 bfd_boolean formats_info = FALSE;
de564eb5
NC		 4995 bfd_boolean use_globalize = FALSE;
4996 bfd_boolean use_keep_global = FALSE;
252b5132 4997 int c;
252b5132 4998 struct stat statbuf;
8b31b6c4 4999 const bfd_arch_info_type *input_arch = NULL;
252b5132 5000
9ef920e9 5001 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:MN:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
252b5132
RH		 5002 copy_options, (int *) 0)) != EOF)
5003 {
5004 switch (c)
5005 {
5006 case 'b':
5007 copy_byte = atoi (optarg);
5008 if (copy_byte < 0)
5009 fatal (_("byte number must be non-negative"));
5010 break;
57938635 5011
0af11b59 5012 case 'B':
8b31b6c4
NC		 5013 input_arch = bfd_scan_arch (optarg);
5014 if (input_arch == NULL)
5015 fatal (_("architecture %s unknown"), optarg);
0af11b59 5016 break;
43a0748c 5017
252b5132 5018 case 'i':
b7dd81f7
NC		 5019 if (optarg)
5020 {
5021 interleave = atoi (optarg);
5022 if (interleave < 1)
5023 fatal (_("interleave must be positive"));
5024 }
5025 else
5026 interleave = 4;
5027 break;
5028
5029 case OPTION_INTERLEAVE_WIDTH:
5030 copy_width = atoi (optarg);
5031 if (copy_width < 1)
5032 fatal(_("interleave width must be positive"));
252b5132 5033 break;
57938635 5034
252b5132
RH		 5035 case 'I':
5036 case 's': /* "source" - 'I' is preferred */
5037 input_target = optarg;
5038 break;
57938635 5039
252b5132
RH		 5040 case 'O':
5041 case 'd': /* "destination" - 'O' is preferred */
5042 output_target = optarg;
5043 break;
57938635 5044
252b5132
RH		 5045 case 'F':
5046 input_target = output_target = optarg;
5047 break;
57938635 5048
f91ea849 5049 case 'j':
2e62b721 5050 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
b34976b6 5051 sections_copied = TRUE;
f91ea849 5052 break;
57938635 5053
252b5132 5054 case 'R':
d3e5f6c8
AB		 5055 handle_remove_section_option (optarg);
5056 break;
5057
64f52b3e
FS		 5058 case OPTION_KEEP_SECTION:
5059 find_section_list (optarg, TRUE, SECTION_CONTEXT_KEEP);
5060 break;
5061
d3e5f6c8
AB		 5062 case OPTION_REMOVE_RELOCS:
5063 handle_remove_relocations_option (optarg);
252b5132 5064 break;
57938635 5065
252b5132
RH		 5066 case 'S':
5067 strip_symbols = STRIP_ALL;
5068 break;
57938635 5069
252b5132
RH		 5070 case 'g':
5071 strip_symbols = STRIP_DEBUG;
5072 break;
57938635 5073
96109726
CC		 5074 case OPTION_STRIP_DWO:
5075 strip_symbols = STRIP_DWO;
5076 break;
5077
252b5132
RH		 5078 case OPTION_STRIP_UNNEEDED:
5079 strip_symbols = STRIP_UNNEEDED;
5080 break;
57938635 5081
ed1653a7
NC		 5082 case OPTION_ONLY_KEEP_DEBUG:
5083 strip_symbols = STRIP_NONDEBUG;
5084 break;
5085
1637cd90
JB		 5086 case OPTION_KEEP_FILE_SYMBOLS:
5087 keep_file_symbols = 1;
5088 break;
5089
2593f09a 5090 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 5091 long_section_names = ENABLE ;
2593f09a
NC		 5092 gnu_debuglink_filename = optarg;
5093 break;
5094
252b5132 5095 case 'K':
047c9024 5096 add_specific_symbol (optarg, keep_specific_htab);
252b5132 5097 break;
57938635 5098
9ef920e9
NC		 5099 case 'M':
5100 merge_notes = TRUE;
5101 break;
1d15e434
NC		 5102 case OPTION_NO_MERGE_NOTES:
5103 merge_notes = FALSE;
5104 break;
9ef920e9 5105
252b5132 5106 case 'N':
047c9024 5107 add_specific_symbol (optarg, strip_specific_htab);
252b5132 5108 break;
57938635 5109
bcf32829 5110 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 5111 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB		 5112 break;
5113
252b5132 5114 case 'L':
047c9024 5115 add_specific_symbol (optarg, localize_specific_htab);
252b5132 5116 break;
57938635 5117
7b4a0685 5118 case OPTION_GLOBALIZE_SYMBOL:
de564eb5 5119 use_globalize = TRUE;
047c9024 5120 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC		 5121 break;
5122
16b2b71c 5123 case 'G':
de564eb5 5124 use_keep_global = TRUE;
047c9024 5125 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC		 5126 break;
5127
252b5132 5128 case 'W':
047c9024 5129 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 5130 break;
57938635 5131
252b5132 5132 case 'p':
b34976b6 5133 preserve_dates = TRUE;
252b5132 5134 break;
57938635 5135
2e30cb57
CC		 5136 case 'D':
5137 deterministic = TRUE;
5138 break;
5139
955d0b3b
RM		 5140 case 'U':
5141 deterministic = FALSE;
5142 break;
5143
5fe11841
NC		 5144 case 'w':
5145 wildcard = TRUE;
5146 break;
5147
252b5132
RH		 5148 case 'x':
5149 discard_locals = LOCALS_ALL;
5150 break;
57938635 5151
252b5132
RH		 5152 case 'X':
5153 discard_locals = LOCALS_START_L;
5154 break;
57938635 5155
252b5132 5156 case 'v':
b34976b6 5157 verbose = TRUE;
252b5132 5158 break;
57938635 5159
252b5132 5160 case 'V':
b34976b6 5161 show_version = TRUE;
252b5132 5162 break;
57938635 5163
7c29036b
NC		 5164 case OPTION_FORMATS_INFO:
5165 formats_info = TRUE;
5166 break;
5167
252b5132 5168 case OPTION_WEAKEN:
b34976b6 5169 weaken = TRUE;
252b5132 5170 break;
57938635 5171
252b5132 5172 case OPTION_ADD_SECTION:
f7433f01
AM		 5173 add_sections = init_section_add (optarg, add_sections,
5174 "--add-section");
5175 section_add_load_file (add_sections);
252b5132 5176 break;
57938635 5177
acf1419f
AB		 5178 case OPTION_UPDATE_SECTION:
5179 update_sections = init_section_add (optarg, update_sections,
f7433f01 5180 "--update-section");
acf1419f
AB		 5181 section_add_load_file (update_sections);
5182 break;
5183
bbad633b 5184 case OPTION_DUMP_SECTION:
f7433f01
AM		 5185 dump_sections = init_section_add (optarg, dump_sections,
5186 "--dump-section");
bbad633b 5187 break;
3aade688 5188
2b35fb28
RH		 5189 case OPTION_ADD_SYMBOL:
5190 {
5191 char *s, *t;
5192 struct addsym_node *newsym = xmalloc (sizeof *newsym);
5193
5194 newsym->next = NULL;
5195 s = strchr (optarg, '=');
5196 if (s == NULL)
5197 fatal (_("bad format for %s"), "--add-symbol");
5198 t = strchr (s + 1, ':');
5199
a4f8732b 5200 newsym->symdef = xstrndup (optarg, s - optarg);
2b35fb28
RH		 5201 if (t)
5202 {
a4f8732b 5203 newsym->section = xstrndup (s + 1, t - (s + 1));
2b35fb28
RH		 5204 newsym->symval = strtol (t + 1, NULL, 0);
5205 }
5206 else
5207 {
5208 newsym->section = NULL;
5209 newsym->symval = strtol (s + 1, NULL, 0);
5210 t = s;
5211 }
5212
5213 t = strchr (t + 1, ',');
f7433f01 5214 newsym->othersym = NULL;
2b35fb28
RH		 5215 if (t)
5216 newsym->flags = parse_symflags (t+1, &newsym->othersym);
5217 else
5218 newsym->flags = BSF_GLOBAL;
5219
5220 /* Keep 'othersym' symbols at the front of the list. */
5221 if (newsym->othersym)
5222 {
5223 newsym->next = add_sym_list;
5224 if (!add_sym_list)
5225 add_sym_tail = &newsym->next;
5226 add_sym_list = newsym;
5227 }
5228 else
5229 {
5230 *add_sym_tail = newsym;
5231 add_sym_tail = &newsym->next;
5232 }
5233 add_symbols++;
5234 }
5235 break;
5236
252b5132
RH		 5237 case OPTION_CHANGE_START:
5238 change_start = parse_vma (optarg, "--change-start");
5239 break;
57938635 5240
252b5132
RH		 5241 case OPTION_CHANGE_SECTION_ADDRESS:
5242 case OPTION_CHANGE_SECTION_LMA:
5243 case OPTION_CHANGE_SECTION_VMA:
5244 {
2e62b721 5245 struct section_list * p;
76d8cf45 5246 unsigned int context = 0;
252b5132
RH		 5247 const char *s;
5248 int len;
5249 char *name;
b4c96d0d 5250 char *option = NULL;
252b5132 5251 bfd_vma val;
57938635 5252
252b5132
RH		 5253 switch (c)
5254 {
b4c96d0d
ILT		 5255 case OPTION_CHANGE_SECTION_ADDRESS:
5256 option = "--change-section-address";
2e62b721 5257 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
b4c96d0d
ILT		 5258 break;
5259 case OPTION_CHANGE_SECTION_LMA:
5260 option = "--change-section-lma";
2e62b721 5261 context = SECTION_CONTEXT_ALTER_LMA;
b4c96d0d
ILT		 5262 break;
5263 case OPTION_CHANGE_SECTION_VMA:
5264 option = "--change-section-vma";
2e62b721 5265 context = SECTION_CONTEXT_ALTER_VMA;
b4c96d0d 5266 break;
252b5132 5267 }
57938635 5268
252b5132
RH		 5269 s = strchr (optarg, '=');
5270 if (s == NULL)
5271 {
5272 s = strchr (optarg, '+');
5273 if (s == NULL)
5274 {
5275 s = strchr (optarg, '-');
5276 if (s == NULL)
5277 fatal (_("bad format for %s"), option);
5278 }
5279 }
2e62b721
NC		 5280 else
5281 {
5282 /* Correct the context. */
5283 switch (c)
5284 {
5285 case OPTION_CHANGE_SECTION_ADDRESS:
5286 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
5287 break;
5288 case OPTION_CHANGE_SECTION_LMA:
5289 context = SECTION_CONTEXT_SET_LMA;
5290 break;
5291 case OPTION_CHANGE_SECTION_VMA:
5292 context = SECTION_CONTEXT_SET_VMA;
5293 break;
5294 }
5295 }
252b5132
RH		 5296
5297 len = s - optarg;
3f5e193b 5298 name = (char *) xmalloc (len + 1);
252b5132
RH		 5299 strncpy (name, optarg, len);
5300 name[len] = '\0';
5301
2e62b721 5302 p = find_section_list (name, TRUE, context);
252b5132
RH		 5303
5304 val = parse_vma (s + 1, option);
2e62b721
NC		 5305 if (*s == '-')
5306 val = - val;
57938635 5307
252b5132
RH		 5308 switch (c)
5309 {
5310 case OPTION_CHANGE_SECTION_ADDRESS:
2e62b721 5311 p->vma_val = val;
1a0670f3 5312 /* Fall through. */
57938635 5313
252b5132 5314 case OPTION_CHANGE_SECTION_LMA:
2e62b721 5315 p->lma_val = val;
252b5132 5316 break;
57938635 5317
252b5132 5318 case OPTION_CHANGE_SECTION_VMA:
2e62b721 5319 p->vma_val = val;
252b5132
RH		 5320 break;
5321 }
5322 }
5323 break;
57938635 5324
252b5132
RH		 5325 case OPTION_CHANGE_ADDRESSES:
5326 change_section_address = parse_vma (optarg, "--change-addresses");
5327 change_start = change_section_address;
5328 break;
57938635 5329
252b5132 5330 case OPTION_CHANGE_WARNINGS:
b34976b6 5331 change_warn = TRUE;
252b5132 5332 break;
57938635 5333
252b5132 5334 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 5335 change_leading_char = TRUE;
252b5132 5336 break;
57938635 5337
4a114e3e 5338 case OPTION_COMPRESS_DEBUG_SECTIONS:
151411f8
L		 5339 if (optarg)
5340 {
5341 if (strcasecmp (optarg, "none") == 0)
5342 do_debug_sections = decompress;
5343 else if (strcasecmp (optarg, "zlib") == 0)
5344 do_debug_sections = compress_zlib;
5345 else if (strcasecmp (optarg, "zlib-gnu") == 0)
5346 do_debug_sections = compress_gnu_zlib;
5347 else if (strcasecmp (optarg, "zlib-gabi") == 0)
5348 do_debug_sections = compress_gabi_zlib;
5349 else
5350 fatal (_("unrecognized --compress-debug-sections type `%s'"),
5351 optarg);
5352 }
5353 else
5354 do_debug_sections = compress;
4a114e3e
L		 5355 break;
5356
252b5132 5357 case OPTION_DEBUGGING:
b34976b6 5358 convert_debugging = TRUE;
252b5132 5359 break;
57938635 5360
4a114e3e
L		 5361 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
5362 do_debug_sections = decompress;
5363 break;
5364
b8871f35
L		 5365 case OPTION_ELF_STT_COMMON:
5366 if (strcasecmp (optarg, "yes") == 0)
5367 do_elf_stt_common = elf_stt_common;
5368 else if (strcasecmp (optarg, "no") == 0)
5369 do_elf_stt_common = no_elf_stt_common;
5370 else
5371 fatal (_("unrecognized --elf-stt-common= option `%s'"),
5372 optarg);
5373 break;
5374
252b5132
RH		 5375 case OPTION_GAP_FILL:
5376 {
5377 bfd_vma gap_fill_vma;
5378
5379 gap_fill_vma = parse_vma (optarg, "--gap-fill");
5380 gap_fill = (bfd_byte) gap_fill_vma;
5381 if ((bfd_vma) gap_fill != gap_fill_vma)
5382 {
5383 char buff[20];
57938635 5384
252b5132 5385 sprintf_vma (buff, gap_fill_vma);
57938635 5386
252b5132
RH		 5387 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
5388 buff, gap_fill);
5389 }
b34976b6 5390 gap_fill_set = TRUE;
252b5132
RH		 5391 }
5392 break;
57938635 5393
252b5132 5394 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 5395 change_warn = FALSE;
252b5132 5396 break;
57938635 5397
252b5132
RH		 5398 case OPTION_PAD_TO:
5399 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 5400 pad_to_set = TRUE;
252b5132 5401 break;
57938635 5402
252b5132 5403 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 5404 remove_leading_char = TRUE;
252b5132 5405 break;
57938635
AM		 5406
5407 case OPTION_REDEFINE_SYM:
5408 {
0f65a5d8 5409 /* Insert this redefinition onto redefine_specific_htab. */
57938635
AM		 5410
5411 int len;
5412 const char *s;
5413 const char *nextarg;
5414 char *source, *target;
5415
5416 s = strchr (optarg, '=');
5417 if (s == NULL)
594ef5db 5418 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 5419
5420 len = s - optarg;
3f5e193b 5421 source = (char *) xmalloc (len + 1);
57938635
AM		 5422 strncpy (source, optarg, len);
5423 source[len] = '\0';
5424
5425 nextarg = s + 1;
5426 len = strlen (nextarg);
3f5e193b 5427 target = (char *) xmalloc (len + 1);
57938635
AM		 5428 strcpy (target, nextarg);
5429
0f65a5d8 5430 add_redefine_and_check ("--redefine-sym", source, target);
57938635
AM		 5431
5432 free (source);
5433 free (target);
5434 }
5435 break;
5436
92991082
JT		 5437 case OPTION_REDEFINE_SYMS:
5438 add_redefine_syms_file (optarg);
5439 break;
5440
252b5132
RH		 5441 case OPTION_SET_SECTION_FLAGS:
5442 {
2e62b721 5443 struct section_list *p;
252b5132
RH		 5444 const char *s;
5445 int len;
5446 char *name;
5447
5448 s = strchr (optarg, '=');
5449 if (s == NULL)
57938635 5450 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 5451
5452 len = s - optarg;
3f5e193b 5453 name = (char *) xmalloc (len + 1);
252b5132
RH		 5454 strncpy (name, optarg, len);
5455 name[len] = '\0';
5456
2e62b721 5457 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
252b5132 5458
252b5132
RH		 5459 p->flags = parse_flags (s + 1);
5460 }
5461 break;
57938635 5462
fa463e9f
N		 5463 case OPTION_SET_SECTION_ALIGNMENT:
5464 {
5465 struct section_list *p;
5466 const char *s;
5467 int len;
5468 char *name;
de4859ea 5469 int palign, align;
fa463e9f
N		 5470
5471 s = strchr (optarg, '=');
5472 if (s == NULL)
de4859ea 5473 fatal (_("bad format for --set-section-alignment: argument needed"));
82ef9cad 5474
de4859ea
NC		 5475 align = atoi (s + 1);
5476 if (align <= 0)
5477 fatal (_("bad format for --set-section-alignment: numeric argument needed"));
fa463e9f 5478
de4859ea
NC		 5479 /* Convert integer alignment into a power-of-two alignment. */
5480 palign = 0;
5481 while ((align & 1) == 0)
5482 {
5483 align >>= 1;
5484 ++palign;
5485 }
82ef9cad 5486
de4859ea
NC		 5487 if (align != 1)
5488 /* Number has more than on 1, i.e. wasn't a power of 2. */
5489 fatal (_("bad format for --set-section-alignment: alignment is not a power of two"));
5490
5491 /* Add the alignment setting to the section list. */
fa463e9f
N		 5492 len = s - optarg;
5493 name = (char *) xmalloc (len + 1);
5494 strncpy (name, optarg, len);
5495 name[len] = '\0';
5496
5497 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_ALIGNMENT);
de4859ea
NC		 5498 if (p)
5499 p->alignment = palign;
fa463e9f
N		 5500 }
5501 break;
82ef9cad 5502
594ef5db
NC		 5503 case OPTION_RENAME_SECTION:
5504 {
5505 flagword flags;
3bcfb3e4
AM		 5506 const char *eq, *fl;
5507 char *old_name;
5508 char *new_name;
594ef5db
NC		 5509 unsigned int len;
5510
3bcfb3e4
AM		 5511 eq = strchr (optarg, '=');
5512 if (eq == NULL)
594ef5db
NC		 5513 fatal (_("bad format for %s"), "--rename-section");
5514
3bcfb3e4 5515 len = eq - optarg;
594ef5db 5516 if (len == 0)
3bcfb3e4 5517 fatal (_("bad format for %s"), "--rename-section");
594ef5db 5518
3f5e193b 5519 old_name = (char *) xmalloc (len + 1);
594ef5db
NC		 5520 strncpy (old_name, optarg, len);
5521 old_name[len] = 0;
5522
3bcfb3e4
AM		 5523 eq++;
5524 fl = strchr (eq, ',');
5525 if (fl)
594ef5db 5526 {
3bcfb3e4
AM		 5527 flags = parse_flags (fl + 1);
5528 len = fl - eq;
594ef5db
NC		 5529 }
5530 else
5531 {
594ef5db 5532 flags = -1;
3bcfb3e4 5533 len = strlen (eq);
594ef5db
NC		 5534 }
5535
3bcfb3e4
AM		 5536 if (len == 0)
5537 fatal (_("bad format for %s"), "--rename-section");
5538
3f5e193b 5539 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM		 5540 strncpy (new_name, eq, len);
5541 new_name[len] = 0;
5542
594ef5db
NC		 5543 add_section_rename (old_name, new_name, flags);
5544 }
5545 break;
5546
252b5132
RH		 5547 case OPTION_SET_START:
5548 set_start = parse_vma (optarg, "--set-start");
b34976b6 5549 set_start_set = TRUE;
252b5132 5550 break;
57938635 5551
0af11b59 5552 case OPTION_SREC_LEN:
4bc26c69 5553 _bfd_srec_len = parse_vma (optarg, "--srec-len");
0af11b59 5554 break;
420496c1 5555
0af11b59 5556 case OPTION_SREC_FORCES3:
4bc26c69 5557 _bfd_srec_forceS3 = TRUE;
0af11b59 5558 break;
420496c1 5559
16b2b71c 5560 case OPTION_STRIP_SYMBOLS:
d839b914
L		 5561 add_specific_symbols (optarg, strip_specific_htab,
5562 &strip_specific_buffer);
16b2b71c
NC		 5563 break;
5564
bcf32829 5565 case OPTION_STRIP_UNNEEDED_SYMBOLS:
d839b914
L		 5566 add_specific_symbols (optarg, strip_unneeded_htab,
5567 &strip_unneeded_buffer);
bcf32829
JB		 5568 break;
5569
16b2b71c 5570 case OPTION_KEEP_SYMBOLS:
d839b914
L		 5571 add_specific_symbols (optarg, keep_specific_htab,
5572 &keep_specific_buffer);
16b2b71c
NC		 5573 break;
5574
d58c2e3a
RS		 5575 case OPTION_LOCALIZE_HIDDEN:
5576 localize_hidden = TRUE;
5577 break;
5578
16b2b71c 5579 case OPTION_LOCALIZE_SYMBOLS:
d839b914
L		 5580 add_specific_symbols (optarg, localize_specific_htab,
5581 &localize_specific_buffer);
16b2b71c
NC		 5582 break;
5583
0408dee6
DK		 5584 case OPTION_LONG_SECTION_NAMES:
5585 if (!strcmp ("enable", optarg))
5586 long_section_names = ENABLE;
5587 else if (!strcmp ("disable", optarg))
5588 long_section_names = DISABLE;
5589 else if (!strcmp ("keep", optarg))
5590 long_section_names = KEEP;
5591 else
5592 fatal (_("unknown long section names option '%s'"), optarg);
5593 break;
5594
7b4a0685 5595 case OPTION_GLOBALIZE_SYMBOLS:
de564eb5 5596 use_globalize = TRUE;
d839b914
L		 5597 add_specific_symbols (optarg, globalize_specific_htab,
5598 &globalize_specific_buffer);
7b4a0685
NC		 5599 break;
5600
16b2b71c 5601 case OPTION_KEEPGLOBAL_SYMBOLS:
de564eb5 5602 use_keep_global = TRUE;
d839b914
L		 5603 add_specific_symbols (optarg, keepglobal_specific_htab,
5604 &keepglobal_specific_buffer);
16b2b71c
NC		 5605 break;
5606
5607 case OPTION_WEAKEN_SYMBOLS:
d839b914
L		 5608 add_specific_symbols (optarg, weaken_specific_htab,
5609 &weaken_specific_buffer);
16b2b71c
NC		 5610 break;
5611
1ae8b3d2 5612 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 5613 use_alt_mach_code = strtoul (optarg, NULL, 0);
5614 if (use_alt_mach_code == 0)
5615 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 5616 break;
5617
d7fb0dd2
NC		 5618 case OPTION_PREFIX_SYMBOLS:
5619 prefix_symbols_string = optarg;
5620 break;
5621
5622 case OPTION_PREFIX_SECTIONS:
5623 prefix_sections_string = optarg;
5624 break;
5625
5626 case OPTION_PREFIX_ALLOC_SECTIONS:
5627 prefix_alloc_sections_string = optarg;
5628 break;
5629
4087920c
MR		 5630 case OPTION_READONLY_TEXT:
5631 bfd_flags_to_set |= WP_TEXT;
5632 bfd_flags_to_clear &= ~WP_TEXT;
5633 break;
5634
5635 case OPTION_WRITABLE_TEXT:
5636 bfd_flags_to_clear |= WP_TEXT;
5637 bfd_flags_to_set &= ~WP_TEXT;
5638 break;
5639
5640 case OPTION_PURE:
5641 bfd_flags_to_set |= D_PAGED;
5642 bfd_flags_to_clear &= ~D_PAGED;
5643 break;
5644
5645 case OPTION_IMPURE:
5646 bfd_flags_to_clear |= D_PAGED;
5647 bfd_flags_to_set &= ~D_PAGED;
5648 break;
5649
96109726
CC		 5650 case OPTION_EXTRACT_DWO:
5651 strip_symbols = STRIP_NONDWO;
5652 break;
5653
d3e52d40
RS		 5654 case OPTION_EXTRACT_SYMBOL:
5655 extract_symbol = TRUE;
5656 break;
5657
9e48b4c6 5658 case OPTION_REVERSE_BYTES:
f7433f01
AM		 5659 {
5660 int prev = reverse_bytes;
9e48b4c6 5661
f7433f01
AM		 5662 reverse_bytes = atoi (optarg);
5663 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
5664 fatal (_("number of bytes to reverse must be positive and even"));
9e48b4c6 5665
f7433f01
AM		 5666 if (prev && prev != reverse_bytes)
5667 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
5668 prev);
5669 break;
5670 }
9e48b4c6 5671
92dd4511
L		 5672 case OPTION_FILE_ALIGNMENT:
5673 pe_file_alignment = parse_vma (optarg, "--file-alignment");
5674 break;
955d0b3b 5675
92dd4511 5676 case OPTION_HEAP:
f7433f01
AM		 5677 {
5678 char *end;
5679 pe_heap_reserve = strtoul (optarg, &end, 0);
5680 if (end == optarg
5681 || (*end != '.' && *end != '\0'))
5682 non_fatal (_("%s: invalid reserve value for --heap"),
5683 optarg);
5684 else if (*end != '\0')
5685 {
5686 pe_heap_commit = strtoul (end + 1, &end, 0);
5687 if (*end != '\0')
5688 non_fatal (_("%s: invalid commit value for --heap"),
5689 optarg);
5690 }
5691 }
92dd4511 5692 break;
955d0b3b 5693
92dd4511
L		 5694 case OPTION_IMAGE_BASE:
5695 pe_image_base = parse_vma (optarg, "--image-base");
5696 break;
955d0b3b 5697
fa463e9f 5698 case OPTION_PE_SECTION_ALIGNMENT:
92dd4511
L		 5699 pe_section_alignment = parse_vma (optarg,
5700 "--section-alignment");
5701 break;
955d0b3b 5702
92dd4511
L		 5703 case OPTION_SUBSYSTEM:
5704 set_pe_subsystem (optarg);
5705 break;
955d0b3b 5706
92dd4511 5707 case OPTION_STACK:
f7433f01
AM		 5708 {
5709 char *end;
5710 pe_stack_reserve = strtoul (optarg, &end, 0);
5711 if (end == optarg
5712 || (*end != '.' && *end != '\0'))
5713 non_fatal (_("%s: invalid reserve value for --stack"),
5714 optarg);
5715 else if (*end != '\0')
5716 {
5717 pe_stack_commit = strtoul (end + 1, &end, 0);
5718 if (*end != '\0')
5719 non_fatal (_("%s: invalid commit value for --stack"),
5720 optarg);
5721 }
5722 }
92dd4511 5723 break;
955d0b3b 5724
37d0d091
JH		 5725 case OPTION_VERILOG_DATA_WIDTH:
5726 VerilogDataWidth = parse_vma (optarg, "--verilog-data-width");
5727 if (VerilogDataWidth < 1)
5728 fatal (_("verilog data width must be at least 1 byte"));
5729 break;
5730
252b5132 5731 case 0:
2593f09a
NC		 5732 /* We've been given a long option. */
5733 break;
57938635 5734
8b53311e 5735 case 'H':
252b5132
RH		 5736 case 'h':
5737 copy_usage (stdout, 0);
57938635 5738
252b5132
RH		 5739 default:
5740 copy_usage (stderr, 1);
5741 }
5742 }
5743
de564eb5
NC		 5744 if (use_globalize && use_keep_global)
5745 fatal(_("--globalize-symbol(s) is incompatible with -G/--keep-global-symbol(s)"));
5746
7c29036b
NC		 5747 if (formats_info)
5748 {
5749 display_info ();
5750 return 0;
5751 }
c1c0eb9e 5752
252b5132
RH		 5753 if (show_version)
5754 print_version ("objcopy");
5755
b7dd81f7
NC		 5756 if (interleave && copy_byte == -1)
5757 fatal (_("interleave start byte must be set with --byte"));
5758
252b5132
RH		 5759 if (copy_byte >= interleave)
5760 fatal (_("byte number must be less than interleave"));
5761
b7dd81f7
NC		 5762 if (copy_width > interleave - copy_byte)
5763 fatal (_("interleave width must be less than or equal to interleave - byte`"));
5764
252b5132
RH		 5765 if (optind == argc || optind + 2 < argc)
5766 copy_usage (stderr, 1);
5767
5768 input_filename = argv[optind];
5769 if (optind + 1 < argc)
5770 output_filename = argv[optind + 1];
5771
955d0b3b
RM		 5772 default_deterministic ();
5773
252b5132
RH		 5774 /* Default is to strip no symbols. */
5775 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
5776 strip_symbols = STRIP_NONE;
5777
d3ba0551 5778 if (output_target == NULL)
252b5132
RH		 5779 output_target = input_target;
5780
92dd4511
L		 5781 /* Convert input EFI target to PEI target. */
5782 if (input_target != NULL
5783 && strncmp (input_target, "efi-", 4) == 0)
5784 {
5785 char *efi;
5786
5787 efi = xstrdup (output_target + 4);
5788 if (strncmp (efi, "bsdrv-", 6) == 0
5789 || strncmp (efi, "rtdrv-", 6) == 0)
5790 efi += 2;
5791 else if (strncmp (efi, "app-", 4) != 0)
5792 fatal (_("unknown input EFI target: %s"), input_target);
5793
5794 input_target = efi;
5795 convert_efi_target (efi);
5796 }
5797
5798 /* Convert output EFI target to PEI target. */
5799 if (output_target != NULL
5800 && strncmp (output_target, "efi-", 4) == 0)
5801 {
5802 char *efi;
5803
5804 efi = xstrdup (output_target + 4);
5805 if (strncmp (efi, "app-", 4) == 0)
5806 {
5807 if (pe_subsystem == -1)
5808 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
5809 }
5810 else if (strncmp (efi, "bsdrv-", 6) == 0)
5811 {
5812 if (pe_subsystem == -1)
5813 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
5814 efi += 2;
5815 }
5816 else if (strncmp (efi, "rtdrv-", 6) == 0)
5817 {
5818 if (pe_subsystem == -1)
5819 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
5820 efi += 2;
5821 }
5822 else
5823 fatal (_("unknown output EFI target: %s"), output_target);
5824
5825 if (pe_file_alignment == (bfd_vma) -1)
5826 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
5827 if (pe_section_alignment == (bfd_vma) -1)
5828 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
5829
5830 output_target = efi;
5831 convert_efi_target (efi);
5832 }
5833
43a0748c
NC		 5834 if (preserve_dates)
5835 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 5836 fatal (_("warning: could not locate '%s'. System error message: %s"),
5837 input_filename, strerror (errno));
43a0748c 5838
0fcdcb91 5839 /* If there is no destination file, or the source and destination files
d3ba0551 5840 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT		 5841 if (output_filename == NULL
5842 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 5843 tmpname = make_tempname (input_filename);
252b5132 5844 else
12f498a7 5845 tmpname = output_filename;
c1c0eb9e 5846
12f498a7
NS		 5847 if (tmpname == NULL)
5848 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
5849 input_filename, strerror (errno));
594ef5db 5850
8b31b6c4 5851 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS		 5852 if (status == 0)
5853 {
5854 if (preserve_dates)
5855 set_times (tmpname, &statbuf);
5856 if (tmpname != output_filename)
92fac5ec
L		 5857 status = (smart_rename (tmpname, input_filename,
5858 preserve_dates) != 0);
252b5132 5859 }
12f498a7
NS		 5860 else
5861 unlink_if_ordinary (tmpname);
252b5132 5862
be74fad9
AM		 5863 if (tmpname != output_filename)
5864 free (tmpname);
5865
252b5132
RH		 5866 if (change_warn)
5867 {
2e62b721
NC		 5868 struct section_list *p;
5869
252b5132
RH		 5870 for (p = change_sections; p != NULL; p = p->next)
5871 {
5872 if (! p->used)
5873 {
2e62b721 5874 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
252b5132
RH		 5875 {
5876 char buff [20];
5877
5878 sprintf_vma (buff, p->vma_val);
57938635 5879
252b5132 5880 /* xgettext:c-format */
57938635
AM		 5881 non_fatal (_("%s %s%c0x%s never used"),
5882 "--change-section-vma",
2e62b721
NC		 5883 p->pattern,
5884 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
252b5132
RH		 5885 buff);
5886 }
57938635 5887
2e62b721 5888 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
252b5132
RH		 5889 {
5890 char buff [20];
5891
5892 sprintf_vma (buff, p->lma_val);
57938635 5893
252b5132 5894 /* xgettext:c-format */
57938635
AM		 5895 non_fatal (_("%s %s%c0x%s never used"),
5896 "--change-section-lma",
2e62b721
NC		 5897 p->pattern,
5898 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
252b5132
RH		 5899 buff);
5900 }
5901 }
5902 }
5903 }
5904
d839b914
L		 5905 if (strip_specific_buffer)
5906 free (strip_specific_buffer);
5907
5908 if (strip_unneeded_buffer)
5909 free (strip_unneeded_buffer);
5910
5911 if (keep_specific_buffer)
5912 free (keep_specific_buffer);
5913
5914 if (localize_specific_buffer)
5915 free (globalize_specific_buffer);
5916
5917 if (globalize_specific_buffer)
5918 free (globalize_specific_buffer);
5919
5920 if (keepglobal_specific_buffer)
5921 free (keepglobal_specific_buffer);
5922
5923 if (weaken_specific_buffer)
5924 free (weaken_specific_buffer);
5925
252b5132
RH		 5926 return 0;
5927}
5928
5929int
84e2f313 5930main (int argc, char *argv[])
252b5132
RH		 5931{
5932#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
5933 setlocale (LC_MESSAGES, "");
3882b010
L		 5934#endif
5935#if defined (HAVE_SETLOCALE)
5936 setlocale (LC_CTYPE, "");
252b5132
RH		 5937#endif
5938 bindtextdomain (PACKAGE, LOCALEDIR);
5939 textdomain (PACKAGE);
5940
5941 program_name = argv[0];
5942 xmalloc_set_program_name (program_name);
5943
5944 START_PROGRESS (program_name, 0);
5945
869b9d07
MM		 5946 expandargv (&argc, &argv);
5947
252b5132
RH		 5948 strip_symbols = STRIP_UNDEF;
5949 discard_locals = LOCALS_UNDEF;
5950
bf2dd8d7
AM		 5951 if (bfd_init () != BFD_INIT_MAGIC)
5952 fatal (_("fatal error: libbfd ABI mismatch"));
252b5132
RH		 5953 set_default_bfd_target ();
5954
5955 if (is_strip < 0)
5956 {
5957 int i = strlen (program_name);
5af11cab
AM		 5958#ifdef HAVE_DOS_BASED_FILE_SYSTEM
5959 /* Drop the .exe suffix, if any. */
5960 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
5961 {
5962 i -= 4;
5963 program_name[i] = '\0';
5964 }
5965#endif
5966 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 5967 }
5968
047c9024
NC		 5969 create_symbol_htabs ();
5970
86eafac0
NC		 5971 if (argv != NULL)
5972 bfd_set_error_program_name (argv[0]);
5973
252b5132
RH		 5974 if (is_strip)
5975 strip_main (argc, argv);
5976 else
5977 copy_main (argc, argv);
5978
5979 END_PROGRESS (program_name);
5980
5981 return status;
5982}
GDB Binutils - Deliverables
This page took 1.574412 seconds and 4 git commands to generate.