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