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