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