projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add constructor to stap_static_probe_ops
[deliverable/binutils-gdb.git] / binutils / objcopy.c
CommitLineData
252b5132 1/* objcopy.c -- copy object file from input to output, optionally massaging it.
b3adc24a 2 Copyright (C) 1991-2020 Free Software Foundation, Inc.
252b5132
RH		 3
4 This file is part of GNU Binutils.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
32866df7 8 the Free Software Foundation; either version 3 of the License, or
252b5132
RH		 9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
b43b5d5f
NC		 18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
19 02110-1301, USA. */
252b5132 20\f
3db64b00 21#include "sysdep.h"
252b5132
RH		 22#include "bfd.h"
23#include "progress.h"
252b5132
RH		 24#include "getopt.h"
25#include "libiberty.h"
3db64b00 26#include "bucomm.h"
252b5132 27#include "budbg.h"
5af11cab 28#include "filenames.h"
5fe11841 29#include "fnmatch.h"
f0312d39 30#include "elf-bfd.h"
0408dee6
DK		 31#include "coff/internal.h"
32#include "libcoff.h"
9ef920e9 33#include "safe-ctype.h"
252b5132 34
92dd4511
L		 35/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
36 header in generic PE code. */
37#include "coff/i386.h"
38#include "coff/pe.h"
39
40static bfd_vma pe_file_alignment = (bfd_vma) -1;
41static bfd_vma pe_heap_commit = (bfd_vma) -1;
42static bfd_vma pe_heap_reserve = (bfd_vma) -1;
43static bfd_vma pe_image_base = (bfd_vma) -1;
44static bfd_vma pe_section_alignment = (bfd_vma) -1;
45static bfd_vma pe_stack_commit = (bfd_vma) -1;
46static bfd_vma pe_stack_reserve = (bfd_vma) -1;
47static short pe_subsystem = -1;
48static short pe_major_subsystem_version = -1;
49static short pe_minor_subsystem_version = -1;
50
047c9024 51struct is_specified_symbol_predicate_data
252b5132 52{
2b35fb28 53 const char * name;
047c9024 54 bfd_boolean found;
252b5132
RH		 55};
56
0f65a5d8 57/* A node includes symbol name mapping to support redefine_sym. */
57938635
AM		 58struct redefine_node
59{
60 char *source;
61 char *target;
57938635
AM		 62};
63
2b35fb28
RH		 64struct addsym_node
65{
66 struct addsym_node *next;
67 char * symdef;
68 long symval;
69 flagword flags;
70 char * section;
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. */
dd68a12b
AM		 1424 if (bfd_get_flavour (ibfd) == bfd_target_elf_flavour)
1425 return elf_section_type (isection) == SHT_NOTE;
6e6e7cfc 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. */
dd68a12b
AM		 1432 if (bfd_get_flavour (ibfd) == bfd_target_coff_flavour)
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
f76d7958
NC		 2463 /* Not sure how, but the notes might grow in size.
2464 (eg see PR 1774507). Allow for this here. */
2465 new = new_contents = xmalloc (size * 2);
5c49f2cd
NC		 2466 for (pnote = pnotes, old = contents;
2467 pnote < pnotes_end;
2468 pnote ++)
9ef920e9 2469 {
5c49f2cd 2470 bfd_size_type note_size = 12 + pnote->padded_namesz + pnote->note.descsz;
9ef920e9 2471
5c49f2cd 2472 if (! is_deleted_note (pnote))
9ef920e9 2473 {
5c49f2cd
NC		 2474 /* Create the note, potentially using the
2475 address range of the previous note. */
2476 if (pnote->start == prev_start && pnote->end == prev_end)
9ef920e9 2477 {
5c49f2cd
NC		 2478 bfd_put_32 (abfd, pnote->note.namesz, new);
2479 bfd_put_32 (abfd, 0, new + 4);
2480 bfd_put_32 (abfd, pnote->note.type, new + 8);
2481 new += 12;
2482 memcpy (new, pnote->note.namedata, pnote->note.namesz);
2483 if (pnote->note.namesz < pnote->padded_namesz)
2484 memset (new + pnote->note.namesz, 0, pnote->padded_namesz - pnote->note.namesz);
2485 new += pnote->padded_namesz;
2486 }
2487 else
2488 {
2489 bfd_put_32 (abfd, pnote->note.namesz, new);
2490 bfd_put_32 (abfd, is_64bit (abfd) ? 16 : 8, new + 4);
2491 bfd_put_32 (abfd, pnote->note.type, new + 8);
2492 new += 12;
2493 memcpy (new, pnote->note.namedata, pnote->note.namesz);
2494 if (pnote->note.namesz < pnote->padded_namesz)
2495 memset (new + pnote->note.namesz, 0, pnote->padded_namesz - pnote->note.namesz);
2496 new += pnote->padded_namesz;
2497 if (is_64bit (abfd))
9ef920e9 2498 {
5c49f2cd
NC		 2499 bfd_put_64 (abfd, pnote->start, new);
2500 bfd_put_64 (abfd, pnote->end, new + 8);
2501 new += 16;
9ef920e9 2502 }
6f156d7a
NC		 2503 else
2504 {
5c49f2cd
NC		 2505 bfd_put_32 (abfd, pnote->start, new);
2506 bfd_put_32 (abfd, pnote->end, new + 4);
2507 new += 8;
6f156d7a 2508 }
5c49f2cd 2509
6f156d7a
NC		 2510 prev_start = pnote->start;
2511 prev_end = pnote->end;
9ef920e9 2512 }
9ef920e9
NC		 2513 }
2514
5c49f2cd 2515 old += note_size;
9ef920e9
NC		 2516 }
2517
5c49f2cd
NC		 2518#if DEBUG_MERGE
2519 merge_debug ("Results of merge:\n");
2520 for (pnote = pnotes; pnote < pnotes_end; pnote ++)
2521 if (! is_deleted_note (pnote))
2522 merge_debug ("offset %#08lx range %#08lx..%#08lx type %ld attribute %d namesz %ld\n",
2523 (pnote->note.namedata - (char *) contents) - 12,
2524 pnote->start, pnote->end,
2525 pnote->note.type,
2526 pnote->note.namedata[3],
2527 pnote->note.namesz
2528 );
2529#endif
2530
2531 new_size = new - new_contents;
f76d7958
NC		 2532 if (new_size < size)
2533 {
2534 memcpy (contents, new_contents, new_size);
2535 size = new_size;
2536 }
5c49f2cd
NC		 2537 free (new_contents);
2538
9ef920e9
NC		 2539 done:
2540 if (err)
2541 {
2542 bfd_set_error (bfd_error_bad_value);
2543 bfd_nonfatal_message (NULL, abfd, sec, err);
2544 status = 1;
2545 }
2546
2547 free (pnotes);
2548 return size;
2549}
2550
950d48e7 2551/* Copy object file IBFD onto OBFD.
5b8c74e6 2552 Returns TRUE upon success, FALSE otherwise. */
252b5132 2553
950d48e7 2554static bfd_boolean
8b31b6c4 2555copy_object (bfd *ibfd, bfd *obfd, const bfd_arch_info_type *input_arch)
252b5132
RH		 2556{
2557 bfd_vma start;
2558 long symcount;
2559 asection **osections = NULL;
9ef920e9 2560 asection *osec;
84e2f313 2561 asection *gnu_debuglink_section = NULL;
252b5132
RH		 2562 bfd_size_type *gaps = NULL;
2563 bfd_size_type max_gap = 0;
2564 long symsize;
84e2f313 2565 void *dhandle;
66491ebc
AM		 2566 enum bfd_architecture iarch;
2567 unsigned int imach;
c68c1637 2568 unsigned int c, i;
252b5132 2569
23719f39
NC		 2570 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
2571 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
2572 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
cfad8730
NC		 2573 {
2574 /* PR 17636: Call non-fatal so that we return to our parent who
2575 may need to tidy temporary files. */
2576 non_fatal (_("Unable to change endianness of input file(s)"));
2577 return FALSE;
2578 }
252b5132
RH		 2579
2580 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 2581 {
2db6cde7 2582 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
950d48e7
NC		 2583 return FALSE;
2584 }
252b5132 2585
5063a421
AM		 2586 if (ibfd->sections == NULL)
2587 {
2588 non_fatal (_("error: the input file '%s' has no sections"),
2589 bfd_get_archive_filename (ibfd));
2590 return FALSE;
2591 }
2592
dd68a12b 2593 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
cd6faa73 2594 {
b8871f35
L		 2595 if ((do_debug_sections & compress) != 0
2596 && do_debug_sections != compress)
2597 {
2598 non_fatal (_("--compress-debug-sections=[zlib|zlib-gnu|zlib-gabi] is unsupported on `%s'"),
2599 bfd_get_archive_filename (ibfd));
2600 return FALSE;
2601 }
2602
2603 if (do_elf_stt_common)
2604 {
2605 non_fatal (_("--elf-stt-common=[yes|no] is unsupported on `%s'"),
2606 bfd_get_archive_filename (ibfd));
2607 return FALSE;
2608 }
cd6faa73
L		 2609 }
2610
252b5132 2611 if (verbose)
77f762d6
L		 2612 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
2613 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
252b5132
RH		 2614 bfd_get_filename (obfd), bfd_get_target (obfd));
2615
d3e52d40
RS		 2616 if (extract_symbol)
2617 start = 0;
252b5132 2618 else
d3e52d40
RS		 2619 {
2620 if (set_start_set)
2621 start = set_start;
2622 else
2623 start = bfd_get_start_address (ibfd);
2624 start += change_start;
2625 }
252b5132 2626
0af11b59
KH		 2627 /* Neither the start address nor the flags
2628 need to be set for a core file. */
4dd67f29
MS		 2629 if (bfd_get_format (obfd) != bfd_core)
2630 {
4087920c
MR		 2631 flagword flags;
2632
2633 flags = bfd_get_file_flags (ibfd);
2634 flags |= bfd_flags_to_set;
2635 flags &= ~bfd_flags_to_clear;
2636 flags &= bfd_applicable_file_flags (obfd);
2637
3516e984
L		 2638 if (strip_symbols == STRIP_ALL)
2639 flags &= ~HAS_RELOC;
2640
4dd67f29 2641 if (!bfd_set_start_address (obfd, start)
4087920c 2642 || !bfd_set_file_flags (obfd, flags))
950d48e7 2643 {
8d8e0703 2644 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 2645 return FALSE;
2646 }
4dd67f29 2647 }
252b5132 2648
594ef5db 2649 /* Copy architecture of input file to output file. */
66491ebc
AM		 2650 iarch = bfd_get_arch (ibfd);
2651 imach = bfd_get_mach (ibfd);
8b31b6c4
NC		 2652 if (input_arch)
2653 {
6765ee18 2654 if (iarch == bfd_arch_unknown)
8b31b6c4
NC		 2655 {
2656 iarch = input_arch->arch;
2657 imach = input_arch->mach;
2658 }
2659 else
2660 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
2661 bfd_get_archive_filename (ibfd));
2662 }
6765ee18
AM		 2663 if (iarch == bfd_arch_unknown
2664 && bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2665 && bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2666 {
2667 const struct elf_backend_data *bed = get_elf_backend_data (obfd);
2668 iarch = bed->arch;
2669 imach = 0;
2670 }
66491ebc 2671 if (!bfd_set_arch_mach (obfd, iarch, imach)
212a3c4d
L		 2672 && (ibfd->target_defaulted
2673 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
f57a841a
NC		 2674 {
2675 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
77f762d6
L		 2676 non_fatal (_("Unable to recognise the format of the input file `%s'"),
2677 bfd_get_archive_filename (ibfd));
f57a841a 2678 else
c1e2cb9d 2679 non_fatal (_("Output file cannot represent architecture `%s'"),
77f762d6
L		 2680 bfd_printable_arch_mach (bfd_get_arch (ibfd),
2681 bfd_get_mach (ibfd)));
2682 return FALSE;
f57a841a 2683 }
57938635 2684
252b5132 2685 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 2686 {
8d8e0703 2687 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
950d48e7
NC		 2688 return FALSE;
2689 }
252b5132 2690
92dd4511
L		 2691 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
2692 && bfd_pei_p (obfd))
2693 {
2694 /* Set up PE parameters. */
2695 pe_data_type *pe = pe_data (obfd);
2696
325c681d 2697 /* Copy PE parameters before changing them. */
dd68a12b 2698 if (bfd_get_flavour (ibfd) == bfd_target_coff_flavour
325c681d
L		 2699 && bfd_pei_p (ibfd))
2700 pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
2701
92dd4511
L		 2702 if (pe_file_alignment != (bfd_vma) -1)
2703 pe->pe_opthdr.FileAlignment = pe_file_alignment;
2704 else
2705 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
2706
2707 if (pe_heap_commit != (bfd_vma) -1)
2708 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
2709
2710 if (pe_heap_reserve != (bfd_vma) -1)
2711 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
2712
2713 if (pe_image_base != (bfd_vma) -1)
2714 pe->pe_opthdr.ImageBase = pe_image_base;
2715
2716 if (pe_section_alignment != (bfd_vma) -1)
2717 pe->pe_opthdr.SectionAlignment = pe_section_alignment;
2718 else
2719 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
2720
2721 if (pe_stack_commit != (bfd_vma) -1)
2722 pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
2723
2724 if (pe_stack_reserve != (bfd_vma) -1)
2725 pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
2726
2727 if (pe_subsystem != -1)
2728 pe->pe_opthdr.Subsystem = pe_subsystem;
2729
2730 if (pe_major_subsystem_version != -1)
2731 pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
2732
2733 if (pe_minor_subsystem_version != -1)
2734 pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
2735
2736 if (pe_file_alignment > pe_section_alignment)
2737 {
2738 char file_alignment[20], section_alignment[20];
2739
2740 sprintf_vma (file_alignment, pe_file_alignment);
2741 sprintf_vma (section_alignment, pe_section_alignment);
2742 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
2743
2744 file_alignment, section_alignment);
2745 }
2746 }
2747
252b5132 2748 if (isympp)
62d732f5 2749 free (isympp);
57938635 2750
252b5132 2751 if (osympp != isympp)
62d732f5
AM		 2752 free (osympp);
2753
2754 isympp = NULL;
2755 osympp = NULL;
252b5132 2756
c39ada54
AM		 2757 symsize = bfd_get_symtab_upper_bound (ibfd);
2758 if (symsize < 0)
2759 {
8d8e0703 2760 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 2761 return FALSE;
2762 }
2763
3f5e193b 2764 osympp = isympp = (asymbol **) xmalloc (symsize);
c39ada54
AM		 2765 symcount = bfd_canonicalize_symtab (ibfd, isympp);
2766 if (symcount < 0)
2767 {
2db6cde7 2768 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
c39ada54
AM		 2769 return FALSE;
2770 }
063bb025
NC		 2771 /* PR 17512: file: d6323821
2772 If the symbol table could not be loaded do not pretend that we have
2773 any symbols. This trips us up later on when we load the relocs. */
2774 if (symcount == 0)
2775 {
2776 free (isympp);
2777 osympp = isympp = NULL;
2778 }
c39ada54 2779
252b5132
RH		 2780 /* BFD mandates that all output sections be created and sizes set before
2781 any output is done. Thus, we traverse all sections multiple times. */
d3ba0551 2782 bfd_map_over_sections (ibfd, setup_section, obfd);
252b5132 2783
237dcb53
AM		 2784 if (!extract_symbol)
2785 setup_bfd_headers (ibfd, obfd);
80fccad2 2786
252b5132
RH		 2787 if (add_sections != NULL)
2788 {
2789 struct section_add *padd;
2790 struct section_list *pset;
2791
2792 for (padd = add_sections; padd != NULL; padd = padd->next)
2793 {
2593f09a
NC		 2794 flagword flags;
2795
2e62b721
NC		 2796 pset = find_section_list (padd->name, FALSE,
2797 SECTION_CONTEXT_SET_FLAGS);
551b43fd 2798 if (pset != NULL)
551b43fd 2799 flags = pset->flags | SEC_HAS_CONTENTS;
2e62b721
NC		 2800 else
2801 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
551b43fd 2802
c8782eee
NC		 2803 /* bfd_make_section_with_flags() does not return very helpful
2804 error codes, so check for the most likely user error first. */
2805 if (bfd_get_section_by_name (obfd, padd->name))
252b5132 2806 {
2db6cde7 2807 bfd_nonfatal_message (NULL, obfd, NULL,
f7433f01 2808 _("can't add section '%s'"), padd->name);
950d48e7 2809 return FALSE;
252b5132 2810 }
c8782eee
NC		 2811 else
2812 {
0930eddd 2813 /* We use LINKER_CREATED here so that the backend hooks
f7433f01
AM		 2814 will create any special section type information,
2815 instead of presuming we know what we're doing merely
2816 because we set the flags. */
0930eddd
NS		 2817 padd->section = bfd_make_section_with_flags
2818 (obfd, padd->name, flags | SEC_LINKER_CREATED);
c8782eee
NC		 2819 if (padd->section == NULL)
2820 {
2db6cde7
NS		 2821 bfd_nonfatal_message (NULL, obfd, NULL,
2822 _("can't create section `%s'"),
2823 padd->name);
c8782eee
NC		 2824 return FALSE;
2825 }
2826 }
252b5132 2827
fd361982 2828 if (!bfd_set_section_size (padd->section, padd->size))
950d48e7 2829 {
2db6cde7 2830 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 2831 return FALSE;
2832 }
252b5132 2833
2e62b721
NC		 2834 pset = find_section_list (padd->name, FALSE,
2835 SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA);
2836 if (pset != NULL
fd361982 2837 && !bfd_set_section_vma (padd->section, pset->vma_val))
2e62b721
NC		 2838 {
2839 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2840 return FALSE;
2841 }
2842
2843 pset = find_section_list (padd->name, FALSE,
2844 SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA);
2593f09a
NC		 2845 if (pset != NULL)
2846 {
2e62b721 2847 padd->section->lma = pset->lma_val;
57938635 2848
fd361982
AM		 2849 if (!bfd_set_section_alignment
2850 (padd->section, bfd_section_alignment (padd->section)))
2593f09a 2851 {
2e62b721
NC		 2852 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2853 return FALSE;
252b5132
RH		 2854 }
2855 }
2856 }
2857 }
2858
acf1419f
AB		 2859 if (update_sections != NULL)
2860 {
2861 struct section_add *pupdate;
2862
2863 for (pupdate = update_sections;
2864 pupdate != NULL;
2865 pupdate = pupdate->next)
2866 {
acf1419f
AB		 2867 pupdate->section = bfd_get_section_by_name (ibfd, pupdate->name);
2868 if (pupdate->section == NULL)
cfad8730
NC		 2869 {
2870 non_fatal (_("error: %s not found, can't be updated"), pupdate->name);
2871 return FALSE;
2872 }
acf1419f
AB		 2873
2874 osec = pupdate->section->output_section;
fd361982 2875 if (!bfd_set_section_size (osec, pupdate->size))
acf1419f
AB		 2876 {
2877 bfd_nonfatal_message (NULL, obfd, osec, NULL);
2878 return FALSE;
2879 }
2880 }
2881 }
2882
5c49f2cd 2883 merged_note_section * merged_note_sections = NULL;
9ef920e9
NC		 2884 if (merge_notes)
2885 {
2886 /* This palaver is necessary because we must set the output
2887 section size first, before its contents are ready. */
5c49f2cd 2888 for (osec = ibfd->sections; osec != NULL; osec = osec->next)
9ef920e9 2889 {
5c49f2cd
NC		 2890 if (! is_mergeable_note_section (ibfd, osec))
2891 continue;
2892
ef07b808
NC		 2893 /* If the section is going to be completly deleted then
2894 do not bother to merge it. */
2895 if (osec->output_section == NULL)
2896 continue;
2897
5c49f2cd
NC		 2898 bfd_size_type size = bfd_section_size (osec);
2899
9ef920e9
NC		 2900 if (size == 0)
2901 {
5c49f2cd
NC		 2902 bfd_nonfatal_message (NULL, ibfd, osec,
2903 _("warning: note section is empty"));
2904 continue;
9ef920e9 2905 }
5c49f2cd
NC		 2906
2907 merged_note_section * merged = xmalloc (sizeof * merged);
2908 merged->contents = NULL;
2909 if (! bfd_get_full_section_contents (ibfd, osec, & merged->contents))
9ef920e9 2910 {
5c49f2cd
NC		 2911 bfd_nonfatal_message (NULL, ibfd, osec,
2912 _("warning: could not load note section"));
5c49f2cd
NC		 2913 free (merged);
2914 continue;
9ef920e9 2915 }
5c49f2cd
NC		 2916
2917 merged->size = merge_gnu_build_notes (ibfd, osec, size,
2918 merged->contents);
5c49f2cd 2919
ef07b808
NC		 2920 /* FIXME: Once we have read the contents in, we must write
2921 them out again. So even if the mergeing has achieved
2922 nothing we still add this entry to the merge list. */
2923
2924 if (size != merged->size
2925 && !bfd_set_section_size (osec->output_section, merged->size))
5c49f2cd
NC		 2926 {
2927 bfd_nonfatal_message (NULL, obfd, osec,
2928 _("warning: failed to set merged notes size"));
2929 free (merged->contents);
2930 free (merged);
2931 continue;
9ef920e9 2932 }
5c49f2cd
NC		 2933
2934 /* Add section to list of merged sections. */
2935 merged->sec = osec;
2936 merged->next = merged_note_sections;
2937 merged_note_sections = merged;
9ef920e9
NC		 2938 }
2939 }
2940
bbad633b
NC		 2941 if (dump_sections != NULL)
2942 {
2943 struct section_add * pdump;
2944
2945 for (pdump = dump_sections; pdump != NULL; pdump = pdump->next)
2946 {
9ef920e9
NC		 2947 osec = bfd_get_section_by_name (ibfd, pdump->name);
2948 if (osec == NULL)
bbad633b
NC		 2949 {
2950 bfd_nonfatal_message (NULL, ibfd, NULL,
2951 _("can't dump section '%s' - it does not exist"),
2952 pdump->name);
2953 continue;
2954 }
2955
fd361982 2956 if ((bfd_section_flags (osec) & SEC_HAS_CONTENTS) == 0)
bbad633b 2957 {
9ef920e9 2958 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 2959 _("can't dump section - it has no contents"));
2960 continue;
2961 }
3aade688 2962
fd361982 2963 bfd_size_type size = bfd_section_size (osec);
bbad633b
NC		 2964 if (size == 0)
2965 {
9ef920e9 2966 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 2967 _("can't dump section - it is empty"));
2968 continue;
2969 }
2970
2971 FILE * f;
2972 f = fopen (pdump->filename, FOPEN_WB);
2973 if (f == NULL)
2974 {
2975 bfd_nonfatal_message (pdump->filename, NULL, NULL,
2976 _("could not open section dump file"));
2977 continue;
2978 }
2979
bae7501e
AM		 2980 bfd_byte *contents;
2981 if (bfd_malloc_and_get_section (ibfd, osec, &contents))
182a105a
AG		 2982 {
2983 if (fwrite (contents, 1, size, f) != size)
cfad8730
NC		 2984 {
2985 non_fatal (_("error writing section contents to %s (error: %s)"),
2986 pdump->filename,
2987 strerror (errno));
bae7501e 2988 free (contents);
3391569f 2989 fclose (f);
cfad8730
NC		 2990 return FALSE;
2991 }
182a105a 2992 }
bbad633b 2993 else
9ef920e9 2994 bfd_nonfatal_message (NULL, ibfd, osec,
bbad633b
NC		 2995 _("could not retrieve section contents"));
2996
2997 fclose (f);
2998 free (contents);
2999 }
3000 }
3aade688 3001
2593f09a
NC		 3002 if (gnu_debuglink_filename != NULL)
3003 {
d99b05a3
NC		 3004 /* PR 15125: Give a helpful warning message if
3005 the debuglink section already exists, and
3006 allow the rest of the copy to complete. */
3007 if (bfd_get_section_by_name (obfd, ".gnu_debuglink"))
950d48e7 3008 {
d99b05a3
NC		 3009 non_fatal (_("%s: debuglink section already exists"),
3010 bfd_get_filename (obfd));
3011 gnu_debuglink_filename = NULL;
950d48e7 3012 }
d99b05a3 3013 else
6e2c86ac 3014 {
d99b05a3
NC		 3015 gnu_debuglink_section = bfd_create_gnu_debuglink_section
3016 (obfd, gnu_debuglink_filename);
3017
3018 if (gnu_debuglink_section == NULL)
3019 {
3020 bfd_nonfatal_message (NULL, obfd, NULL,
3021 _("cannot create debug link section `%s'"),
3022 gnu_debuglink_filename);
3023 return FALSE;
3024 }
6e2c86ac 3025
d99b05a3
NC		 3026 /* Special processing for PE format files. We
3027 have no way to distinguish PE from COFF here. */
3028 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
3029 {
3030 bfd_vma debuglink_vma;
3031 asection * highest_section;
d99b05a3
NC		 3032
3033 /* The PE spec requires that all sections be adjacent and sorted
3034 in ascending order of VMA. It also specifies that debug
3035 sections should be last. This is despite the fact that debug
3036 sections are not loaded into memory and so in theory have no
3037 use for a VMA.
3038
3039 This means that the debuglink section must be given a non-zero
3040 VMA which makes it contiguous with other debug sections. So
3041 walk the current section list, find the section with the
3042 highest VMA and start the debuglink section after that one. */
9ef920e9
NC		 3043 for (osec = obfd->sections, highest_section = NULL;
3044 osec != NULL;
3045 osec = osec->next)
3046 if (osec->vma > 0
d99b05a3 3047 && (highest_section == NULL
9ef920e9
NC		 3048 || osec->vma > highest_section->vma))
3049 highest_section = osec;
d99b05a3
NC		 3050
3051 if (highest_section)
3052 debuglink_vma = BFD_ALIGN (highest_section->vma
3053 + highest_section->size,
3054 /* FIXME: We ought to be using
3055 COFF_PAGE_SIZE here or maybe
fd361982 3056 bfd_section_alignment() (if it
d99b05a3
NC		 3057 was set) but since this is for PE
3058 and we know the required alignment
3059 it is easier just to hard code it. */
3060 0x1000);
3061 else
3062 /* Umm, not sure what to do in this case. */
3063 debuglink_vma = 0x1000;
3064
fd361982 3065 bfd_set_section_vma (gnu_debuglink_section, debuglink_vma);
d99b05a3 3066 }
6e2c86ac 3067 }
950d48e7
NC		 3068 }
3069
c68c1637
L		 3070 c = bfd_count_sections (obfd);
3071 if (c != 0
1aa9ef63 3072 && (gap_fill_set || pad_to_set))
252b5132
RH		 3073 {
3074 asection **set;
252b5132
RH		 3075
3076 /* We must fill in gaps between the sections and/or we must pad
3077 the last section to a specified address. We do this by
3078 grabbing a list of the sections, sorting them by VMA, and
3079 increasing the section sizes as required to fill the gaps.
3080 We write out the gap contents below. */
3081
3f5e193b 3082 osections = (asection **) xmalloc (c * sizeof (asection *));
252b5132 3083 set = osections;
d3ba0551 3084 bfd_map_over_sections (obfd, get_sections, &set);
252b5132
RH		 3085
3086 qsort (osections, c, sizeof (asection *), compare_section_lma);
3087
3f5e193b 3088 gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
252b5132
RH		 3089 memset (gaps, 0, c * sizeof (bfd_size_type));
3090
3091 if (gap_fill_set)
3092 {
3093 for (i = 0; i < c - 1; i++)
3094 {
3095 flagword flags;
3096 bfd_size_type size;
3097 bfd_vma gap_start, gap_stop;
3098
fd361982 3099 flags = bfd_section_flags (osections[i]);
252b5132
RH		 3100 if ((flags & SEC_HAS_CONTENTS) == 0
3101 || (flags & SEC_LOAD) == 0)
3102 continue;
3103
fd361982
AM		 3104 size = bfd_section_size (osections[i]);
3105 gap_start = bfd_section_lma (osections[i]) + size;
3106 gap_stop = bfd_section_lma (osections[i + 1]);
252b5132
RH		 3107 if (gap_start < gap_stop)
3108 {
fd361982
AM		 3109 if (!bfd_set_section_size (osections[i],
3110 size + (gap_stop - gap_start)))
252b5132 3111 {
2db6cde7
NS		 3112 bfd_nonfatal_message (NULL, obfd, osections[i],
3113 _("Can't fill gap after section"));
252b5132
RH		 3114 status = 1;
3115 break;
3116 }
3117 gaps[i] = gap_stop - gap_start;
3118 if (max_gap < gap_stop - gap_start)
3119 max_gap = gap_stop - gap_start;
3120 }
3121 }
3122 }
3123
3124 if (pad_to_set)
3125 {
3126 bfd_vma lma;
3127 bfd_size_type size;
3128
fd361982
AM		 3129 lma = bfd_section_lma (osections[c - 1]);
3130 size = bfd_section_size (osections[c - 1]);
252b5132
RH		 3131 if (lma + size < pad_to)
3132 {
fd361982 3133 if (!bfd_set_section_size (osections[c - 1], pad_to - lma))
252b5132 3134 {
2db6cde7
NS		 3135 bfd_nonfatal_message (NULL, obfd, osections[c - 1],
3136 _("can't add padding"));
252b5132
RH		 3137 status = 1;
3138 }
3139 else
3140 {
3141 gaps[c - 1] = pad_to - (lma + size);
3142 if (max_gap < pad_to - (lma + size))
3143 max_gap = pad_to - (lma + size);
3144 }
3145 }
3146 }
3147 }
3148
594ef5db
NC		 3149 /* Symbol filtering must happen after the output sections
3150 have been created, but before their contents are set. */
252b5132 3151 dhandle = NULL;
252b5132 3152 if (convert_debugging)
b922d590 3153 dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
57938635
AM		 3154
3155 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 3156 || strip_symbols == STRIP_ALL
3157 || strip_symbols == STRIP_UNNEEDED
ed1653a7 3158 || strip_symbols == STRIP_NONDEBUG
96109726
CC		 3159 || strip_symbols == STRIP_DWO
3160 || strip_symbols == STRIP_NONDWO
252b5132 3161 || discard_locals != LOCALS_UNDEF
d58c2e3a 3162 || localize_hidden
047c9024
NC		 3163 || htab_elements (strip_specific_htab) != 0
3164 || htab_elements (keep_specific_htab) != 0
3165 || htab_elements (localize_specific_htab) != 0
3166 || htab_elements (globalize_specific_htab) != 0
3167 || htab_elements (keepglobal_specific_htab) != 0
3168 || htab_elements (weaken_specific_htab) != 0
0f65a5d8 3169 || htab_elements (redefine_specific_htab) != 0
d7fb0dd2 3170 || prefix_symbols_string
252b5132 3171 || sections_removed
f91ea849 3172 || sections_copied
252b5132
RH		 3173 || convert_debugging
3174 || change_leading_char
3175 || remove_leading_char
9cc0123f 3176 || section_rename_list
2b35fb28
RH		 3177 || weaken
3178 || add_symbols)
252b5132
RH		 3179 {
3180 /* Mark symbols used in output relocations so that they
3181 are kept, even if they are local labels or static symbols.
57938635 3182
252b5132
RH		 3183 Note we iterate over the input sections examining their
3184 relocations since the relocations for the output sections
3185 haven't been set yet. mark_symbols_used_in_relocations will
3186 ignore input sections which have no corresponding output
3187 section. */
3188 if (strip_symbols != STRIP_ALL)
f3185997
NC		 3189 {
3190 bfd_set_error (bfd_error_no_error);
3191 bfd_map_over_sections (ibfd,
3192 mark_symbols_used_in_relocations,
3193 isympp);
3194 if (bfd_get_error () != bfd_error_no_error)
3195 {
3196 status = 1;
3197 return FALSE;
3198 }
3199 }
3200
2b35fb28 3201 osympp = (asymbol **) xmalloc ((symcount + add_symbols + 1) * sizeof (asymbol *));
252b5132
RH		 3202 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
3203 }
3204
3205 if (convert_debugging && dhandle != NULL)
3206 {
cf0ad5bb
NC		 3207 bfd_boolean res;
3208
3209 res = write_debugging_info (obfd, dhandle, &symcount, &osympp);
3210
3211 free (dhandle);
3212 dhandle = NULL; /* Paranoia... */
3213
3214 if (! res)
252b5132
RH		 3215 {
3216 status = 1;
950d48e7 3217 return FALSE;
252b5132
RH		 3218 }
3219 }
3220
3221 bfd_set_symtab (obfd, osympp, symcount);
3222
c3989150
L		 3223 /* This has to happen before section positions are set. */
3224 bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
3225
252b5132 3226 /* This has to happen after the symbol table has been set. */
d3ba0551 3227 bfd_map_over_sections (ibfd, copy_section, obfd);
252b5132
RH		 3228
3229 if (add_sections != NULL)
3230 {
3231 struct section_add *padd;
3232
3233 for (padd = add_sections; padd != NULL; padd = padd->next)
3234 {
d3ba0551
AM		 3235 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
3236 0, padd->size))
950d48e7 3237 {
2db6cde7 3238 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
950d48e7
NC		 3239 return FALSE;
3240 }
252b5132
RH		 3241 }
3242 }
3243
acf1419f
AB		 3244 if (update_sections != NULL)
3245 {
3246 struct section_add *pupdate;
3247
3248 for (pupdate = update_sections;
f7433f01
AM		 3249 pupdate != NULL;
3250 pupdate = pupdate->next)
acf1419f 3251 {
acf1419f
AB		 3252 osec = pupdate->section->output_section;
3253 if (! bfd_set_section_contents (obfd, osec, pupdate->contents,
f7433f01 3254 0, pupdate->size))
acf1419f
AB		 3255 {
3256 bfd_nonfatal_message (NULL, obfd, osec, NULL);
3257 return FALSE;
3258 }
3259 }
3260 }
3261
5c49f2cd 3262 if (merged_note_sections != NULL)
9ef920e9 3263 {
5c49f2cd
NC		 3264 merged_note_section * merged = NULL;
3265
3266 for (osec = obfd->sections; osec != NULL; osec = osec->next)
9ef920e9 3267 {
5c49f2cd
NC		 3268 if (! is_mergeable_note_section (obfd, osec))
3269 continue;
3270
3271 if (merged == NULL)
3272 merged = merged_note_sections;
3273
3274 /* It is likely that output sections are in the same order
3275 as the input sections, but do not assume that this is
3276 the case. */
3277 if (strcmp (bfd_section_name (merged->sec),
3278 bfd_section_name (osec)) != 0)
3279 {
3280 for (merged = merged_note_sections;
3281 merged != NULL;
3282 merged = merged->next)
3283 if (strcmp (bfd_section_name (merged->sec),
3284 bfd_section_name (osec)) == 0)
3285 break;
3286
3287 if (merged == NULL)
3288 {
3289 bfd_nonfatal_message
3290 (NULL, obfd, osec,
ef07b808 3291 _("error: failed to locate merged notes"));
5c49f2cd
NC		 3292 continue;
3293 }
3294 }
3295
ef07b808 3296 if (merged->contents == NULL)
5c49f2cd
NC		 3297 {
3298 bfd_nonfatal_message
3299 (NULL, obfd, osec,
ef07b808 3300 _("error: failed to merge notes"));
5c49f2cd
NC		 3301 continue;
3302 }
3303
3304 if (! bfd_set_section_contents (obfd, osec, merged->contents, 0,
3305 merged->size))
9ef920e9 3306 {
5c49f2cd
NC		 3307 bfd_nonfatal_message
3308 (NULL, obfd, osec,
3309 _("error: failed to copy merged notes into output"));
9ef920e9
NC		 3310 return FALSE;
3311 }
5c49f2cd
NC		 3312
3313 merged = merged->next;
3314 }
3315
3316 /* Free the memory. */
3317 merged_note_section * next;
3318 for (merged = merged_note_sections; merged != NULL; merged = next)
3319 {
3320 next = merged->next;
3321 free (merged->contents);
3322 free (merged);
9ef920e9 3323 }
9ef920e9 3324 }
5c49f2cd
NC		 3325 else if (merge_notes && ! is_strip)
3326 non_fatal (_("%s: Could not find any mergeable note sections"),
3327 bfd_get_filename (ibfd));
9ef920e9 3328
e7c81c25
NC		 3329 if (gnu_debuglink_filename != NULL)
3330 {
3331 if (! bfd_fill_in_gnu_debuglink_section
3332 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
950d48e7 3333 {
2db6cde7
NS		 3334 bfd_nonfatal_message (NULL, obfd, NULL,
3335 _("cannot fill debug link section `%s'"),
3336 gnu_debuglink_filename);
950d48e7
NC		 3337 return FALSE;
3338 }
e7c81c25
NC		 3339 }
3340
252b5132
RH		 3341 if (gap_fill_set || pad_to_set)
3342 {
3343 bfd_byte *buf;
252b5132
RH		 3344
3345 /* Fill in the gaps. */
252b5132
RH		 3346 if (max_gap > 8192)
3347 max_gap = 8192;
3f5e193b 3348 buf = (bfd_byte *) xmalloc (max_gap);
d3ba0551 3349 memset (buf, gap_fill, max_gap);
252b5132
RH		 3350
3351 c = bfd_count_sections (obfd);
3352 for (i = 0; i < c; i++)
3353 {
3354 if (gaps[i] != 0)
3355 {
3356 bfd_size_type left;
3357 file_ptr off;
3358
3359 left = gaps[i];
fd361982 3360 off = bfd_section_size (osections[i]) - left;
594ef5db 3361
252b5132
RH		 3362 while (left > 0)
3363 {
3364 bfd_size_type now;
3365
3366 if (left > 8192)
3367 now = 8192;
3368 else
3369 now = left;
3370
3371 if (! bfd_set_section_contents (obfd, osections[i], buf,
3372 off, now))
950d48e7 3373 {
2db6cde7 3374 bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
3391569f 3375 free (buf);
950d48e7
NC		 3376 return FALSE;
3377 }
252b5132
RH		 3378
3379 left -= now;
3380 off += now;
3381 }
3382 }
3383 }
3391569f
NC		 3384
3385 free (buf);
3386 free (gaps);
3387 gaps = NULL;
252b5132
RH		 3388 }
3389
3390 /* Allow the BFD backend to copy any private data it understands
3391 from the input BFD to the output BFD. This is done last to
3392 permit the routine to look at the filtered symbol table, which is
3393 important for the ECOFF code at least. */
42bb2e33 3394 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132 3395 {
2db6cde7
NS		 3396 bfd_nonfatal_message (NULL, obfd, NULL,
3397 _("error copying private BFD data"));
950d48e7 3398 return FALSE;
252b5132 3399 }
1ae8b3d2
AO		 3400
3401 /* Switch to the alternate machine code. We have to do this at the
3402 very end, because we only initialize the header when we create
3403 the first section. */
f9d4ad2a
NC		 3404 if (use_alt_mach_code != 0)
3405 {
3406 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
3407 {
3408 non_fatal (_("this target does not support %lu alternative machine codes"),
3409 use_alt_mach_code);
3410 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3411 {
3412 non_fatal (_("treating that number as an absolute e_machine value instead"));
3413 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
3414 }
3415 else
3416 non_fatal (_("ignoring the alternative value"));
3417 }
3418 }
950d48e7
NC		 3419
3420 return TRUE;
252b5132
RH		 3421}
3422
3423/* Read each archive element in turn from IBFD, copy the
ee873e00
NC		 3424 contents to temp file, and keep the temp file handle.
3425 If 'force_output_target' is TRUE then make sure that
3426 all elements in the new archive are of the type
3427 'output_target'. */
252b5132
RH		 3428
3429static void
ee873e00 3430copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
8b31b6c4
NC		 3431 bfd_boolean force_output_target,
3432 const bfd_arch_info_type *input_arch)
252b5132
RH		 3433{
3434 struct name_list
3435 {
3436 struct name_list *next;
4c168fa3 3437 const char *name;
252b5132
RH		 3438 bfd *obfd;
3439 } *list, *l;
3440 bfd **ptr = &obfd->archive_head;
3441 bfd *this_element;
8d8e0703
AM		 3442 char *dir;
3443 const char *filename;
252b5132 3444
f5f20315
NC		 3445 /* PR 24281: It is not clear what should happen when copying a thin archive.
3446 One part is straight forward - if the output archive is in a different
3447 directory from the input archive then any relative paths in the library
3448 should be adjusted to the new location. But if any transformation
3449 options are active (eg strip, rename, add, etc) then the implication is
3450 that these should be applied to the files pointed to by the archive.
3451 But since objcopy is not destructive, this means that new files must be
3452 created, and there is no guidance for the names of the new files. (Plus
3453 this conflicts with one of the goals of thin libraries - only taking up
3454 a minimal amount of space in the file system).
3455
3456 So for now we fail if an attempt is made to copy such libraries. */
3457 if (ibfd->is_thin_archive)
3458 {
3459 status = 1;
3460 bfd_set_error (bfd_error_invalid_operation);
3461 bfd_nonfatal_message (NULL, ibfd, NULL,
3462 _("sorry: copying thin archives is not currently supported"));
3463 return;
3464 }
3465
252b5132 3466 /* Make a temp directory to hold the contents. */
1ff5d5c4 3467 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8 3468 if (dir == NULL)
f7433f01 3469 fatal (_("cannot create tempdir for archive copying (error: %s)"),
f9c026a8 3470 strerror (errno));
84e2f313 3471
2e30cb57
CC		 3472 if (strip_symbols == STRIP_ALL)
3473 obfd->has_armap = FALSE;
3474 else
3475 obfd->has_armap = ibfd->has_armap;
a8da6403 3476 obfd->is_thin_archive = ibfd->is_thin_archive;
252b5132 3477
2e30cb57
CC		 3478 if (deterministic)
3479 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
3480
252b5132
RH		 3481 list = NULL;
3482
3483 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 3484
b667df2e 3485 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
8d8e0703
AM		 3486 {
3487 status = 1;
3488 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
cfad8730 3489 goto cleanup_and_exit;
8d8e0703 3490 }
b667df2e 3491
d3ba0551 3492 while (!status && this_element != NULL)
252b5132 3493 {
4c168fa3
AM		 3494 char *output_name;
3495 bfd *output_bfd;
252b5132 3496 bfd *last_element;
8066d1a2
AS		 3497 struct stat buf;
3498 int stat_status = 0;
3f5e193b 3499 bfd_boolean del = TRUE;
19094d10 3500 bfd_boolean ok_object;
8066d1a2 3501
dd9b91de
NC		 3502 /* PR binutils/17533: Do not allow directory traversal
3503 outside of the current directory tree by archive members. */
3504 if (! is_valid_archive_path (bfd_get_filename (this_element)))
5e186ece
NC		 3505 {
3506 non_fatal (_("illegal pathname found in archive member: %s"),
3507 bfd_get_filename (this_element));
3508 status = 1;
3509 goto cleanup_and_exit;
3510 }
dd9b91de 3511
4c168fa3
AM		 3512 /* Create an output file for this member. */
3513 output_name = concat (dir, "/",
3514 bfd_get_filename (this_element), (char *) 0);
3515
3516 /* If the file already exists, make another temp dir. */
3517 if (stat (output_name, &buf) >= 0)
3518 {
1d97232a
NC		 3519 char * tmpdir = make_tempdir (output_name);
3520
3521 free (output_name);
3522 if (tmpdir == NULL)
5e186ece
NC		 3523 {
3524 non_fatal (_("cannot create tempdir for archive copying (error: %s)"),
3525 strerror (errno));
3526 status = 1;
3527 goto cleanup_and_exit;
3528 }
84e2f313 3529
3f5e193b 3530 l = (struct name_list *) xmalloc (sizeof (struct name_list));
1d97232a 3531 l->name = tmpdir;
4c168fa3
AM		 3532 l->next = list;
3533 l->obfd = NULL;
3534 list = l;
1d97232a 3535 output_name = concat (tmpdir, "/",
4c168fa3
AM		 3536 bfd_get_filename (this_element), (char *) 0);
3537 }
3538
8066d1a2
AS		 3539 if (preserve_dates)
3540 {
3541 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 3542
8066d1a2
AS		 3543 if (stat_status != 0)
3544 non_fatal (_("internal stat error on %s"),
3545 bfd_get_filename (this_element));
3546 }
252b5132 3547
3f5e193b 3548 l = (struct name_list *) xmalloc (sizeof (struct name_list));
252b5132
RH		 3549 l->name = output_name;
3550 l->next = list;
bee59fd2 3551 l->obfd = NULL;
252b5132
RH		 3552 list = l;
3553
19094d10
AM		 3554 ok_object = bfd_check_format (this_element, bfd_object);
3555 if (!ok_object)
3556 bfd_nonfatal_message (NULL, this_element, NULL,
3557 _("Unable to recognise the format of file"));
3558
3559 /* PR binutils/3110: Cope with archives
3560 containing multiple target types. */
3561 if (force_output_target || !ok_object)
3562 output_bfd = bfd_openw (output_name, output_target);
3563 else
3564 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
3565
3566 if (output_bfd == NULL)
77f762d6 3567 {
19094d10
AM		 3568 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
3569 status = 1;
5e186ece 3570 goto cleanup_and_exit;
19094d10
AM		 3571 }
3572
3573 if (ok_object)
3574 {
3575 del = !copy_object (this_element, output_bfd, input_arch);
ee873e00 3576
19094d10
AM		 3577 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
3578 /* Try again as an unknown object file. */
3579 ok_object = FALSE;
3580 else if (!bfd_close (output_bfd))
2db6cde7
NS		 3581 {
3582 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
19094d10 3583 /* Error in new object file. Don't change archive. */
2db6cde7 3584 status = 1;
77f762d6 3585 }
77f762d6 3586 }
77f762d6 3587
19094d10
AM		 3588 if (!ok_object)
3589 {
3f5e193b 3590 del = !copy_unknown_object (this_element, output_bfd);
77f762d6
L		 3591 if (!bfd_close_all_done (output_bfd))
3592 {
8d8e0703 3593 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
77f762d6
L		 3594 /* Error in new object file. Don't change archive. */
3595 status = 1;
3596 }
252b5132
RH		 3597 }
3598
3f5e193b 3599 if (del)
950d48e7
NC		 3600 {
3601 unlink (output_name);
3602 status = 1;
3603 }
3604 else
3605 {
3606 if (preserve_dates && stat_status == 0)
3607 set_times (output_name, &buf);
8066d1a2 3608
950d48e7
NC		 3609 /* Open the newly output file and attach to our list. */
3610 output_bfd = bfd_openr (output_name, output_target);
252b5132 3611
950d48e7 3612 l->obfd = output_bfd;
252b5132 3613
950d48e7 3614 *ptr = output_bfd;
cc481421 3615 ptr = &output_bfd->archive_next;
252b5132 3616
950d48e7 3617 last_element = this_element;
252b5132 3618
950d48e7 3619 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 3620
950d48e7
NC		 3621 bfd_close (last_element);
3622 }
252b5132 3623 }
d3ba0551 3624 *ptr = NULL;
252b5132 3625
8d8e0703 3626 filename = bfd_get_filename (obfd);
252b5132 3627 if (!bfd_close (obfd))
8d8e0703
AM		 3628 {
3629 status = 1;
3630 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 3631 }
252b5132 3632
8d8e0703 3633 filename = bfd_get_filename (ibfd);
252b5132 3634 if (!bfd_close (ibfd))
8d8e0703
AM		 3635 {
3636 status = 1;
3637 bfd_nonfatal_message (filename, NULL, NULL, NULL);
8d8e0703 3638 }
252b5132 3639
5e186ece 3640 cleanup_and_exit:
252b5132 3641 /* Delete all the files that we opened. */
1d97232a
NC		 3642 {
3643 struct name_list * next;
3644
3645 for (l = list; l != NULL; l = next)
3646 {
3647 if (l->obfd == NULL)
3648 rmdir (l->name);
3649 else
3650 {
3651 bfd_close (l->obfd);
3652 unlink (l->name);
3653 }
3654 next = l->next;
3655 free (l);
3656 }
3657 }
cfad8730 3658
252b5132
RH		 3659 rmdir (dir);
3660}
3661
0408dee6
DK		 3662static void
3663set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
3664{
3665 /* This is only relevant to Coff targets. */
3666 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
3667 {
78e82dc3
AM		 3668 if (style == KEEP
3669 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
0408dee6
DK		 3670 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
3671 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
3672 }
3673}
3674
252b5132
RH		 3675/* The top-level control. */
3676
3677static void
84e2f313 3678copy_file (const char *input_filename, const char *output_filename,
8b31b6c4
NC		 3679 const char *input_target, const char *output_target,
3680 const bfd_arch_info_type *input_arch)
252b5132
RH		 3681{
3682 bfd *ibfd;
49c12576
AM		 3683 char **obj_matching;
3684 char **core_matching;
52a476ee 3685 off_t size = get_file_size (input_filename);
252b5132 3686
52a476ee 3687 if (size < 1)
f24ddbdd 3688 {
52a476ee
L		 3689 if (size == 0)
3690 non_fatal (_("error: the input file '%s' is empty"),
3691 input_filename);
f24ddbdd
NC		 3692 status = 1;
3693 return;
3694 }
3695
252b5132
RH		 3696 /* To allow us to do "strip *" without dying on the first
3697 non-object file, failures are nonfatal. */
252b5132
RH		 3698 ibfd = bfd_openr (input_filename, input_target);
3699 if (ibfd == NULL)
2db6cde7
NS		 3700 {
3701 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3702 status = 1;
3703 return;
3704 }
252b5132 3705
4a114e3e
L		 3706 switch (do_debug_sections)
3707 {
3708 case compress:
151411f8
L		 3709 case compress_zlib:
3710 case compress_gnu_zlib:
3711 case compress_gabi_zlib:
4a114e3e 3712 ibfd->flags |= BFD_COMPRESS;
cd6faa73
L		 3713 /* Don't check if input is ELF here since this information is
3714 only available after bfd_check_format_matches is called. */
19a7fe52 3715 if (do_debug_sections != compress_gnu_zlib)
cd6faa73 3716 ibfd->flags |= BFD_COMPRESS_GABI;
4a114e3e
L		 3717 break;
3718 case decompress:
3719 ibfd->flags |= BFD_DECOMPRESS;
3720 break;
3721 default:
3722 break;
3723 }
3724
b8871f35
L		 3725 switch (do_elf_stt_common)
3726 {
3727 case elf_stt_common:
3728 ibfd->flags |= BFD_CONVERT_ELF_COMMON | BFD_USE_ELF_STT_COMMON;
3729 break;
3730 break;
3731 case no_elf_stt_common:
3732 ibfd->flags |= BFD_CONVERT_ELF_COMMON;
3733 break;
3734 default:
3735 break;
3736 }
3737
252b5132
RH		 3738 if (bfd_check_format (ibfd, bfd_archive))
3739 {
ee873e00 3740 bfd_boolean force_output_target;
252b5132
RH		 3741 bfd *obfd;
3742
3743 /* bfd_get_target does not return the correct value until
f7433f01 3744 bfd_check_format succeeds. */
252b5132 3745 if (output_target == NULL)
ee873e00
NC		 3746 {
3747 output_target = bfd_get_target (ibfd);
3748 force_output_target = FALSE;
3749 }
3750 else
3751 force_output_target = TRUE;
252b5132
RH		 3752
3753 obfd = bfd_openw (output_filename, output_target);
3754 if (obfd == NULL)
2db6cde7
NS		 3755 {
3756 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3757 status = 1;
3758 return;
3759 }
f2032b67
AM		 3760
3761 if (gnu_debuglink_filename != NULL)
3762 {
3763 non_fatal (_("--add-gnu-debuglink ignored for archive %s"),
3764 bfd_get_filename (ibfd));
3765 gnu_debuglink_filename = NULL;
3766 }
3767
0408dee6
DK		 3768 /* This is a no-op on non-Coff targets. */
3769 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 3770
8b31b6c4 3771 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
252b5132 3772 }
49c12576 3773 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH		 3774 {
3775 bfd *obfd;
49c12576 3776 do_copy:
950d48e7 3777
252b5132 3778 /* bfd_get_target does not return the correct value until
f7433f01 3779 bfd_check_format succeeds. */
252b5132
RH		 3780 if (output_target == NULL)
3781 output_target = bfd_get_target (ibfd);
3782
3783 obfd = bfd_openw (output_filename, output_target);
3784 if (obfd == NULL)
2db6cde7
NS		 3785 {
3786 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3787 status = 1;
3788 return;
3789 }
0408dee6
DK		 3790 /* This is a no-op on non-Coff targets. */
3791 set_long_section_mode (obfd, ibfd, long_section_names);
252b5132 3792
8b31b6c4 3793 if (! copy_object (ibfd, obfd, input_arch))
a580b8e0 3794 status = 1;
252b5132 3795
063bb025
NC		 3796 /* PR 17512: file: 0f15796a.
3797 If the file could not be copied it may not be in a writeable
3798 state. So use bfd_close_all_done to avoid the possibility of
3799 writing uninitialised data into the file. */
3800 if (! (status ? bfd_close_all_done (obfd) : bfd_close (obfd)))
8d8e0703
AM		 3801 {
3802 status = 1;
3803 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3804 return;
3805 }
252b5132
RH		 3806
3807 if (!bfd_close (ibfd))
8d8e0703
AM		 3808 {
3809 status = 1;
3810 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3811 return;
3812 }
252b5132
RH		 3813 }
3814 else
3815 {
49c12576
AM		 3816 bfd_error_type obj_error = bfd_get_error ();
3817 bfd_error_type core_error;
b34976b6 3818
49c12576
AM		 3819 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
3820 {
3821 /* This probably can't happen.. */
3822 if (obj_error == bfd_error_file_ambiguously_recognized)
3823 free (obj_matching);
3824 goto do_copy;
3825 }
3826
3827 core_error = bfd_get_error ();
3828 /* Report the object error in preference to the core error. */
3829 if (obj_error != core_error)
3830 bfd_set_error (obj_error);
3831
2db6cde7 3832 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
57938635 3833
49c12576
AM		 3834 if (obj_error == bfd_error_file_ambiguously_recognized)
3835 {
3836 list_matching_formats (obj_matching);
3837 free (obj_matching);
3838 }
3839 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 3840 {
49c12576
AM		 3841 list_matching_formats (core_matching);
3842 free (core_matching);
252b5132 3843 }
57938635 3844
252b5132
RH		 3845 status = 1;
3846 }
3847}
3848
594ef5db
NC		 3849/* Add a name to the section renaming list. */
3850
3851static void
84e2f313
NC		 3852add_section_rename (const char * old_name, const char * new_name,
3853 flagword flags)
594ef5db 3854{
91d6fa6a 3855 section_rename * srename;
594ef5db
NC		 3856
3857 /* Check for conflicts first. */
91d6fa6a
NC		 3858 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3859 if (strcmp (srename->old_name, old_name) == 0)
594ef5db
NC		 3860 {
3861 /* Silently ignore duplicate definitions. */
91d6fa6a
NC		 3862 if (strcmp (srename->new_name, new_name) == 0
3863 && srename->flags == flags)
594ef5db 3864 return;
0af11b59 3865
594ef5db
NC		 3866 fatal (_("Multiple renames of section %s"), old_name);
3867 }
3868
91d6fa6a 3869 srename = (section_rename *) xmalloc (sizeof (* srename));
594ef5db 3870
91d6fa6a
NC		 3871 srename->old_name = old_name;
3872 srename->new_name = new_name;
3873 srename->flags = flags;
3874 srename->next = section_rename_list;
0af11b59 3875
91d6fa6a 3876 section_rename_list = srename;
594ef5db
NC		 3877}
3878
3879/* Check the section rename list for a new name of the input section
9cc0123f
AM		 3880 called OLD_NAME. Returns the new name if one is found and sets
3881 RETURNED_FLAGS if non-NULL to the flags to be used for this section. */
594ef5db
NC		 3882
3883static const char *
9cc0123f 3884find_section_rename (const char *old_name, flagword *returned_flags)
594ef5db 3885{
9cc0123f 3886 const section_rename *srename;
594ef5db 3887
91d6fa6a
NC		 3888 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3889 if (strcmp (srename->old_name, old_name) == 0)
594ef5db 3890 {
9cc0123f
AM		 3891 if (returned_flags != NULL && srename->flags != (flagword) -1)
3892 *returned_flags = srename->flags;
594ef5db 3893
91d6fa6a 3894 return srename->new_name;
594ef5db
NC		 3895 }
3896
3897 return old_name;
3898}
3899
80fccad2
BW		 3900/* Once each of the sections is copied, we may still need to do some
3901 finalization work for private section headers. Do that here. */
3902
3903static void
3904setup_bfd_headers (bfd *ibfd, bfd *obfd)
3905{
80fccad2
BW		 3906 /* Allow the BFD backend to copy any private data it understands
3907 from the input section to the output section. */
3908 if (! bfd_copy_private_header_data (ibfd, obfd))
3909 {
2db6cde7
NS		 3910 status = 1;
3911 bfd_nonfatal_message (NULL, ibfd, NULL,
8d8e0703 3912 _("error in private header data"));
2db6cde7 3913 return;
80fccad2
BW		 3914 }
3915
3916 /* All went well. */
3917 return;
80fccad2
BW		 3918}
3919
594ef5db
NC		 3920/* Create a section in OBFD with the same
3921 name and attributes as ISECTION in IBFD. */
252b5132
RH		 3922
3923static void
84e2f313 3924setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 3925{
3f5e193b 3926 bfd *obfd = (bfd *) obfdarg;
252b5132
RH		 3927 struct section_list *p;
3928 sec_ptr osection;
3929 bfd_size_type size;
3930 bfd_vma vma;
3931 bfd_vma lma;
3932 flagword flags;
1a89cc7d 3933 const char *err;
594ef5db 3934 const char * name;
d7fb0dd2 3935 char *prefix = NULL;
66125551 3936 bfd_boolean make_nobits;
fa463e9f 3937 unsigned int alignment;
0af11b59 3938
2593f09a 3939 if (is_strip_section (ibfd, isection))
252b5132
RH		 3940 return;
3941
594ef5db 3942 /* Get the, possibly new, name of the output section. */
fd361982
AM		 3943 name = bfd_section_name (isection);
3944 flags = bfd_section_flags (isection);
dd68a12b
AM		 3945 if (bfd_get_flavour (ibfd) != bfd_get_flavour (obfd))
3946 {
3947 flags &= bfd_applicable_section_flags (ibfd);
3948 flags &= bfd_applicable_section_flags (obfd);
3949 }
9cc0123f 3950 name = find_section_rename (name, &flags);
0af11b59 3951
d7fb0dd2 3952 /* Prefix sections. */
dd68a12b
AM		 3953 if (prefix_alloc_sections_string
3954 && (bfd_section_flags (isection) & SEC_ALLOC) != 0)
d7fb0dd2
NC		 3955 prefix = prefix_alloc_sections_string;
3956 else if (prefix_sections_string)
3957 prefix = prefix_sections_string;
3958
3959 if (prefix)
3960 {
3961 char *n;
3962
3f5e193b 3963 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
d7fb0dd2
NC		 3964 strcpy (n, prefix);
3965 strcat (n, name);
3966 name = n;
3967 }
66491ebc 3968
66125551 3969 make_nobits = FALSE;
2e62b721 3970
fd361982 3971 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 3972 SECTION_CONTEXT_SET_FLAGS);
3973 if (p != NULL)
551b43fd 3974 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 3975 else if (strip_symbols == STRIP_NONDEBUG
6c67a030 3976 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
f7433f01 3977 && !is_nondebug_keep_contents_section (ibfd, isection))
66125551 3978 {
6c67a030 3979 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
dd68a12b 3980 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
66125551
AM		 3981 {
3982 make_nobits = TRUE;
3983
3984 /* Twiddle the input section flags so that it seems to
3985 elf.c:copy_private_bfd_data that section flags have not
3986 changed between input and output sections. This hack
3987 prevents wholesale rewriting of the program headers. */
6c67a030 3988 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
66125551
AM		 3989 }
3990 }
551b43fd
AM		 3991
3992 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 3993
252b5132
RH		 3994 if (osection == NULL)
3995 {
2db6cde7 3996 err = _("failed to create output section");
252b5132
RH		 3997 goto loser;
3998 }
3999
66125551 4000 if (make_nobits)
551b43fd
AM		 4001 elf_section_type (osection) = SHT_NOBITS;
4002
fd361982 4003 size = bfd_section_size (isection);
88988473 4004 size = bfd_convert_section_size (ibfd, isection, obfd, size);
252b5132 4005 if (copy_byte >= 0)
b7dd81f7 4006 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS		 4007 else if (extract_symbol)
4008 size = 0;
fd361982 4009 if (!bfd_set_section_size (osection, size))
252b5132 4010 {
2db6cde7 4011 err = _("failed to set size");
252b5132
RH		 4012 goto loser;
4013 }
57938635 4014
fd361982
AM		 4015 vma = bfd_section_vma (isection);
4016 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 4017 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
4018 if (p != NULL)
4019 {
4020 if (p->context & SECTION_CONTEXT_SET_VMA)
4021 vma = p->vma_val;
4022 else
4023 vma += p->vma_val;
4024 }
252b5132
RH		 4025 else
4026 vma += change_section_address;
57938635 4027
fd361982 4028 if (!bfd_set_section_vma (osection, vma))
252b5132 4029 {
2db6cde7 4030 err = _("failed to set vma");
252b5132
RH		 4031 goto loser;
4032 }
4033
4034 lma = isection->lma;
fd361982 4035 p = find_section_list (bfd_section_name (isection), FALSE,
2e62b721
NC		 4036 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
4037 if (p != NULL)
252b5132 4038 {
2e62b721 4039 if (p->context & SECTION_CONTEXT_ALTER_LMA)
252b5132 4040 lma += p->lma_val;
252b5132 4041 else
2e62b721 4042 lma = p->lma_val;
252b5132
RH		 4043 }
4044 else
4045 lma += change_section_address;
57938635 4046
237dcb53 4047 osection->lma = lma;
252b5132 4048
fd361982 4049 p = find_section_list (bfd_section_name (isection), FALSE,
fa463e9f
N		 4050 SECTION_CONTEXT_SET_ALIGNMENT);
4051 if (p != NULL)
4052 alignment = p->alignment;
4053 else
fd361982 4054 alignment = bfd_section_alignment (isection);
fa463e9f 4055
252b5132
RH		 4056 /* FIXME: This is probably not enough. If we change the LMA we
4057 may have to recompute the header for the file as well. */
fd361982 4058 if (!bfd_set_section_alignment (osection, alignment))
252b5132 4059 {
2db6cde7 4060 err = _("failed to set alignment");
252b5132
RH		 4061 goto loser;
4062 }
4063
bc408b8a
JJ		 4064 /* Copy merge entity size. */
4065 osection->entsize = isection->entsize;
4066
f6fe1ccd
L		 4067 /* Copy compress status. */
4068 osection->compress_status = isection->compress_status;
4069
252b5132
RH		 4070 /* This used to be mangle_section; we do here to avoid using
4071 bfd_get_section_by_name since some formats allow multiple
4072 sections with the same name. */
4073 isection->output_section = osection;
237dcb53 4074 isection->output_offset = 0;
d3e52d40 4075
119f4245
AM		 4076 if ((isection->flags & SEC_GROUP) != 0)
4077 {
4078 asymbol *gsym = group_signature (isection);
4079
4080 if (gsym != NULL)
4081 {
4082 gsym->flags |= BSF_KEEP;
dd68a12b 4083 if (bfd_get_flavour (ibfd) == bfd_target_elf_flavour)
119f4245
AM		 4084 elf_group_id (isection) = gsym;
4085 }
4086 }
4087
252b5132
RH		 4088 /* Allow the BFD backend to copy any private data it understands
4089 from the input section to the output section. */
42bb2e33 4090 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 4091 {
2db6cde7 4092 err = _("failed to copy private data");
252b5132
RH		 4093 goto loser;
4094 }
4095
594ef5db 4096 /* All went well. */
252b5132
RH		 4097 return;
4098
f7433f01 4099 loser:
252b5132 4100 status = 1;
2db6cde7 4101 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH		 4102}
4103
c3989150 4104/* Return TRUE if input section ISECTION should be skipped. */
252b5132 4105
c3989150 4106static bfd_boolean
9ef920e9 4107skip_section (bfd *ibfd, sec_ptr isection, bfd_boolean skip_copy)
252b5132 4108{
252b5132
RH		 4109 sec_ptr osection;
4110 bfd_size_type size;
dc156bc0 4111 flagword flags;
252b5132 4112
594ef5db
NC		 4113 /* If we have already failed earlier on,
4114 do not keep on generating complaints now. */
252b5132 4115 if (status != 0)
c3989150
L		 4116 return TRUE;
4117
4118 if (extract_symbol)
4119 return TRUE;
57938635 4120
2593f09a 4121 if (is_strip_section (ibfd, isection))
c3989150 4122 return TRUE;
252b5132 4123
acf1419f
AB		 4124 if (is_update_section (ibfd, isection))
4125 return TRUE;
4126
9ef920e9
NC		 4127 /* When merging a note section we skip the copying of the contents,
4128 but not the copying of the relocs associated with the contents. */
5c49f2cd 4129 if (skip_copy && is_mergeable_note_section (ibfd, isection))
9ef920e9
NC		 4130 return TRUE;
4131
fd361982 4132 flags = bfd_section_flags (isection);
dc156bc0 4133 if ((flags & SEC_GROUP) != 0)
c3989150 4134 return TRUE;
dc156bc0 4135
252b5132 4136 osection = isection->output_section;
fd361982 4137 size = bfd_section_size (isection);
252b5132
RH		 4138
4139 if (size == 0 || osection == 0)
c3989150 4140 return TRUE;
252b5132 4141
c3989150
L		 4142 return FALSE;
4143}
4144
d3e5f6c8
AB		 4145/* Add section SECTION_PATTERN to the list of sections that will have their
4146 relocations removed. */
4147
4148static void
4149handle_remove_relocations_option (const char *section_pattern)
4150{
4151 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE_RELOCS);
4152}
4153
4154/* Return TRUE if ISECTION from IBFD should have its relocations removed,
4155 otherwise return FALSE. If the user has requested that relocations be
4156 removed from a section that does not have relocations then this
4157 function will still return TRUE. */
4158
4159static bfd_boolean
4160discard_relocations (bfd *ibfd ATTRIBUTE_UNUSED, asection *isection)
4161{
fd361982 4162 return (find_section_list (bfd_section_name (isection), FALSE,
d3e5f6c8
AB		 4163 SECTION_CONTEXT_REMOVE_RELOCS) != NULL);
4164}
4165
4166/* Wrapper for dealing with --remove-section (-R) command line arguments.
4167 A special case is detected here, if the user asks to remove a relocation
c12d9fa2 4168 section (one starting with ".rela" or ".rel") then this removal must
f9853190 4169 be done using a different technique in a relocatable object. */
d3e5f6c8
AB		 4170
4171static void
4172handle_remove_section_option (const char *section_pattern)
4173{
f9853190 4174 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE);
c12d9fa2
AM		 4175 if (strncmp (section_pattern, ".rel", 4) == 0)
4176 {
4177 section_pattern += 4;
4178 if (*section_pattern == 'a')
4179 section_pattern++;
4180 if (*section_pattern)
4181 handle_remove_relocations_option (section_pattern);
4182 }
f9853190 4183 sections_removed = TRUE;
d3e5f6c8
AB		 4184}
4185
c3989150
L		 4186/* Copy relocations in input section ISECTION of IBFD to an output
4187 section with the same name in OBFDARG. If stripping then don't
4188 copy any relocation info. */
4189
4190static void
4191copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
4192{
4193 bfd *obfd = (bfd *) obfdarg;
4194 long relsize;
4195 arelent **relpp;
4196 long relcount;
4197 sec_ptr osection;
4198
9ef920e9 4199 if (skip_section (ibfd, isection, FALSE))
237dcb53
AM		 4200 return;
4201
c3989150 4202 osection = isection->output_section;
2593f09a 4203
96109726 4204 /* Core files and DWO files do not need to be relocated. */
d3e5f6c8
AB		 4205 if (bfd_get_format (obfd) == bfd_core
4206 || strip_symbols == STRIP_NONDWO
4207 || discard_relocations (ibfd, isection))
4dd67f29
MS		 4208 relsize = 0;
4209 else
ed570f48
NC		 4210 {
4211 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 4212
ed570f48
NC		 4213 if (relsize < 0)
4214 {
4215 /* Do not complain if the target does not support relocations. */
4216 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
4217 relsize = 0;
4218 else
2db6cde7
NS		 4219 {
4220 status = 1;
4221 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
4222 return;
4223 }
ed570f48
NC		 4224 }
4225 }
57938635 4226
252b5132 4227 if (relsize == 0)
96109726
CC		 4228 {
4229 bfd_set_reloc (obfd, osection, NULL, 0);
4230 osection->flags &= ~SEC_RELOC;
4231 }
252b5132
RH		 4232 else
4233 {
2d054e6b 4234 if (isection->orelocation != NULL)
2db6cde7 4235 {
2d054e6b
NC		 4236 /* Some other function has already set up the output relocs
4237 for us, so scan those instead of the default relocs. */
4238 relcount = isection->reloc_count;
4239 relpp = isection->orelocation;
4240 }
4241 else
4242 {
4243 relpp = (arelent **) xmalloc (relsize);
4244 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
4245 if (relcount < 0)
4246 {
4247 status = 1;
4248 bfd_nonfatal_message (NULL, ibfd, isection,
4249 _("relocation count is negative"));
4250 return;
4251 }
2db6cde7 4252 }
57938635 4253
252b5132
RH		 4254 if (strip_symbols == STRIP_ALL)
4255 {
4256 /* Remove relocations which are not in
0af11b59 4257 keep_strip_specific_list. */
252b5132
RH		 4258 arelent **temp_relpp;
4259 long temp_relcount = 0;
4260 long i;
57938635 4261
3f5e193b 4262 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 4263 for (i = 0; i < relcount; i++)
86eafac0
NC		 4264 {
4265 /* PR 17512: file: 9e907e0c. */
f507bebf
NC		 4266 if (relpp[i]->sym_ptr_ptr
4267 /* PR 20096 */
4268 && * relpp[i]->sym_ptr_ptr)
86eafac0
NC		 4269 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
4270 keep_specific_htab))
4271 temp_relpp [temp_relcount++] = relpp [i];
4272 }
252b5132 4273 relcount = temp_relcount;
2d054e6b
NC		 4274 if (isection->orelocation == NULL)
4275 free (relpp);
252b5132
RH		 4276 relpp = temp_relpp;
4277 }
e0c60db2 4278
d3ba0551 4279 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 4280 if (relcount == 0)
c3989150
L		 4281 {
4282 osection->flags &= ~SEC_RELOC;
4283 free (relpp);
4284 }
252b5132 4285 }
c3989150
L		 4286}
4287
4288/* Copy the data of input section ISECTION of IBFD
4289 to an output section with the same name in OBFD. */
4290
4291static void
4292copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
4293{
4294 bfd *obfd = (bfd *) obfdarg;
4295 struct section_list *p;
4296 sec_ptr osection;
4297 bfd_size_type size;
4298
9ef920e9 4299 if (skip_section (ibfd, isection, TRUE))
c3989150
L		 4300 return;
4301
4302 osection = isection->output_section;
88988473 4303 /* The output SHF_COMPRESSED section size is different from input if
cbd44e24
L		 4304 ELF classes of input and output aren't the same. We can't use
4305 the output section size since --interleave will shrink the output
4306 section. Size will be updated if the section is converted. */
fd361982 4307 size = bfd_section_size (isection);
c3989150 4308
fd361982
AM		 4309 if (bfd_section_flags (isection) & SEC_HAS_CONTENTS
4310 && bfd_section_flags (osection) & SEC_HAS_CONTENTS)
252b5132 4311 {
4a114e3e 4312 bfd_byte *memhunk = NULL;
252b5132 4313
88988473
L		 4314 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk)
4315 || !bfd_convert_section_contents (ibfd, isection, obfd,
cbd44e24 4316 &memhunk, &size))
2db6cde7
NS		 4317 {
4318 status = 1;
4319 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
848ac659 4320 free (memhunk);
2db6cde7
NS		 4321 return;
4322 }
252b5132 4323
9e48b4c6
NC		 4324 if (reverse_bytes)
4325 {
4326 /* We don't handle leftover bytes (too many possible behaviors,
4327 and we don't know what the user wants). The section length
4328 must be a multiple of the number of bytes to swap. */
4329 if ((size % reverse_bytes) == 0)
4330 {
4331 unsigned long i, j;
4332 bfd_byte b;
4333
4334 for (i = 0; i < size; i += reverse_bytes)
4335 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
4336 {
4337 bfd_byte *m = (bfd_byte *) memhunk;
4338
4339 b = m[i + j];
4340 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
4341 m[(i + reverse_bytes) - (j + 1)] = b;
4342 }
4343 }
4344 else
4345 /* User must pad the section up in order to do this. */
4346 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
fd361982 4347 bfd_section_name (isection), reverse_bytes);
9e48b4c6
NC		 4348 }
4349
57938635 4350 if (copy_byte >= 0)
5e675b72
AM		 4351 {
4352 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 4353 char *from = (char *) memhunk + copy_byte;
3f5e193b 4354 char *to = (char *) memhunk;
2f01ffbf 4355 char *end = (char *) memhunk + size;
b7dd81f7 4356 int i;
5e675b72 4357
1c9c7ce0
JW		 4358 /* If the section address is not exactly divisible by the interleave,
4359 then we must bias the from address. If the copy_byte is less than
4360 the bias, then we must skip forward one interleave, and increment
4361 the final lma. */
4362 int extra = isection->lma % interleave;
4363 from -= extra;
4364 if (copy_byte < extra)
4365 from += interleave;
4366
5e675b72 4367 for (; from < end; from += interleave)
b7dd81f7 4368 for (i = 0; i < copy_width; i++)
ee7da987
L		 4369 {
4370 if (&from[i] >= end)
4371 break;
4372 *to++ = from[i];
4373 }
5e675b72 4374
b7dd81f7 4375 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72 4376 osection->lma /= interleave;
1c9c7ce0
JW		 4377 if (copy_byte < extra)
4378 osection->lma++;
5e675b72 4379 }
252b5132 4380
d3ba0551 4381 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 4382 {
4383 status = 1;
4384 bfd_nonfatal_message (NULL, obfd, osection, NULL);
848ac659 4385 free (memhunk);
2db6cde7
NS		 4386 return;
4387 }
252b5132
RH		 4388 free (memhunk);
4389 }
fd361982 4390 else if ((p = find_section_list (bfd_section_name (isection),
2e62b721
NC		 4391 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
4392 && (p->flags & SEC_HAS_CONTENTS) != 0)
252b5132 4393 {
d3ba0551 4394 void *memhunk = xmalloc (size);
252b5132
RH		 4395
4396 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
4397 flag--they can just remove the section entirely and add it
4398 back again. However, we do permit them to turn on the
4399 SEC_HAS_CONTENTS flag, and take it to mean that the section
4400 contents should be zeroed out. */
4401
4402 memset (memhunk, 0, size);
d3ba0551 4403 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 4404 {
4405 status = 1;
4406 bfd_nonfatal_message (NULL, obfd, osection, NULL);
848ac659 4407 free (memhunk);
2db6cde7
NS		 4408 return;
4409 }
252b5132
RH		 4410 free (memhunk);
4411 }
4412}
4413
4414/* Get all the sections. This is used when --gap-fill or --pad-to is
4415 used. */
4416
4417static void
84e2f313 4418get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 4419{
3f5e193b 4420 asection ***secppp = (asection ***) secppparg;
252b5132
RH		 4421
4422 **secppp = osection;
4423 ++(*secppp);
4424}
4425
6ce9ba7a 4426/* Sort sections by LMA. This is called via qsort, and is used when
252b5132
RH		 4427 --gap-fill or --pad-to is used. We force non loadable or empty
4428 sections to the front, where they are easier to ignore. */
4429
4430static int
84e2f313 4431compare_section_lma (const void *arg1, const void *arg2)
252b5132 4432{
6ce9ba7a
AM		 4433 const asection *sec1 = *(const asection **) arg1;
4434 const asection *sec2 = *(const asection **) arg2;
252b5132
RH		 4435 flagword flags1, flags2;
4436
4437 /* Sort non loadable sections to the front. */
6ce9ba7a
AM		 4438 flags1 = sec1->flags;
4439 flags2 = sec2->flags;
252b5132
RH		 4440 if ((flags1 & SEC_HAS_CONTENTS) == 0
4441 || (flags1 & SEC_LOAD) == 0)
4442 {
4443 if ((flags2 & SEC_HAS_CONTENTS) != 0
4444 && (flags2 & SEC_LOAD) != 0)
4445 return -1;
4446 }
4447 else
4448 {
4449 if ((flags2 & SEC_HAS_CONTENTS) == 0
4450 || (flags2 & SEC_LOAD) == 0)
4451 return 1;
4452 }
4453
4454 /* Sort sections by LMA. */
6ce9ba7a 4455 if (sec1->lma > sec2->lma)
252b5132 4456 return 1;
6ce9ba7a 4457 if (sec1->lma < sec2->lma)
252b5132
RH		 4458 return -1;
4459
4460 /* Sort sections with the same LMA by size. */
6ce9ba7a 4461 if (bfd_section_size (sec1) > bfd_section_size (sec2))
252b5132 4462 return 1;
6ce9ba7a 4463 if (bfd_section_size (sec1) < bfd_section_size (sec2))
252b5132
RH		 4464 return -1;
4465
6ce9ba7a
AM		 4466 if (sec1->id > sec2->id)
4467 return 1;
4468 if (sec1->id < sec2->id)
4469 return -1;
252b5132
RH		 4470 return 0;
4471}
4472
4473/* Mark all the symbols which will be used in output relocations with
4474 the BSF_KEEP flag so that those symbols will not be stripped.
4475
4476 Ignore relocations which will not appear in the output file. */
4477
4478static void
84e2f313 4479mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 4480{
3f5e193b 4481 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH		 4482 long relsize;
4483 arelent **relpp;
4484 long relcount, i;
4485
4486 /* Ignore an input section with no corresponding output section. */
4487 if (isection->output_section == NULL)
4488 return;
4489
4490 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4491 if (relsize < 0)
ed570f48
NC		 4492 {
4493 /* Do not complain if the target does not support relocations. */
4494 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
4495 return;
4496 bfd_fatal (bfd_get_filename (ibfd));
4497 }
252b5132
RH		 4498
4499 if (relsize == 0)
4500 return;
4501
3f5e193b 4502 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 4503 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
4504 if (relcount < 0)
4505 bfd_fatal (bfd_get_filename (ibfd));
4506
ec5d57d5
NC		 4507 /* Examine each symbol used in a relocation. If it's not one of the
4508 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 4509 for (i = 0; i < relcount; i++)
4510 {
8b929e42 4511 /* See PRs 20923 and 20930 for reproducers for the NULL tests. */
88add6d8 4512 if (relpp[i]->sym_ptr_ptr != NULL
8b929e42 4513 && * relpp[i]->sym_ptr_ptr != NULL
88add6d8 4514 && *relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
ec5d57d5
NC		 4515 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
4516 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
4517 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 4518 }
4519
4520 if (relpp != NULL)
4521 free (relpp);
4522}
4523
4524/* Write out debugging information. */
4525
b34976b6 4526static bfd_boolean
84e2f313
NC		 4527write_debugging_info (bfd *obfd, void *dhandle,
4528 long *symcountp ATTRIBUTE_UNUSED,
4529 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132 4530{
252b5132
RH		 4531 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
4532 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
4533 {
1d97232a 4534 bfd_byte *syms, *strings = NULL;
252b5132
RH		 4535 bfd_size_type symsize, stringsize;
4536 asection *stabsec, *stabstrsec;
551b43fd 4537 flagword flags;
252b5132
RH		 4538
4539 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
4540 &symsize, &strings,
4541 &stringsize))
b34976b6 4542 return FALSE;
252b5132 4543
551b43fd
AM		 4544 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
4545 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
4546 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 4547 if (stabsec == NULL
4548 || stabstrsec == NULL
fd361982
AM		 4549 || !bfd_set_section_size (stabsec, symsize)
4550 || !bfd_set_section_size (stabstrsec, stringsize)
4551 || !bfd_set_section_alignment (stabsec, 2)
4552 || !bfd_set_section_alignment (stabstrsec, 0))
252b5132 4553 {
2db6cde7
NS		 4554 bfd_nonfatal_message (NULL, obfd, NULL,
4555 _("can't create debugging section"));
1d97232a 4556 free (strings);
b34976b6 4557 return FALSE;
252b5132
RH		 4558 }
4559
4560 /* We can get away with setting the section contents now because
f7433f01
AM		 4561 the next thing the caller is going to do is copy over the
4562 real sections. We may someday have to split the contents
4563 setting out of this function. */
d3ba0551
AM		 4564 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
4565 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
4566 stringsize))
252b5132 4567 {
2db6cde7
NS		 4568 bfd_nonfatal_message (NULL, obfd, NULL,
4569 _("can't set debugging section contents"));
1d97232a 4570 free (strings);
b34976b6 4571 return FALSE;
252b5132
RH		 4572 }
4573
b34976b6 4574 return TRUE;
252b5132
RH		 4575 }
4576
2db6cde7
NS		 4577 bfd_nonfatal_message (NULL, obfd, NULL,
4578 _("don't know how to write debugging information for %s"),
f7433f01 4579 bfd_get_target (obfd));
b34976b6 4580 return FALSE;
252b5132
RH		 4581}
4582
955d0b3b
RM		 4583/* If neither -D nor -U was specified explicitly,
4584 then use the configured default. */
4585static void
4586default_deterministic (void)
4587{
4588 if (deterministic < 0)
4589 deterministic = DEFAULT_AR_DETERMINISTIC;
4590}
4591
252b5132 4592static int
84e2f313 4593strip_main (int argc, char *argv[])
252b5132 4594{
7c29036b
NC		 4595 char *input_target = NULL;
4596 char *output_target = NULL;
b34976b6 4597 bfd_boolean show_version = FALSE;
7c29036b
NC		 4598 bfd_boolean formats_info = FALSE;
4599 int c;
4600 int i;
252b5132 4601 char *output_file = NULL;
1b8dd643 4602 bfd_boolean merge_notes_set = FALSE;
1d15e434 4603
ea8fae9f 4604 while ((c = getopt_long (argc, argv, "I:O:F:K:MN:R:o:sSpdgxXHhVvwDU",
252b5132
RH		 4605 strip_options, (int *) 0)) != EOF)
4606 {
4607 switch (c)
4608 {
4609 case 'I':
4610 input_target = optarg;
4611 break;
4612 case 'O':
4613 output_target = optarg;
4614 break;
4615 case 'F':
4616 input_target = output_target = optarg;
4617 break;
4618 case 'R':
d3e5f6c8
AB		 4619 handle_remove_section_option (optarg);
4620 break;
64f52b3e
FS		 4621 case OPTION_KEEP_SECTION:
4622 find_section_list (optarg, TRUE, SECTION_CONTEXT_KEEP);
4623 break;
d3e5f6c8
AB		 4624 case OPTION_REMOVE_RELOCS:
4625 handle_remove_relocations_option (optarg);
252b5132
RH		 4626 break;
4627 case 's':
4628 strip_symbols = STRIP_ALL;
4629 break;
4630 case 'S':
4631 case 'g':
db4f6831 4632 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 4633 strip_symbols = STRIP_DEBUG;
4634 break;
96109726
CC		 4635 case OPTION_STRIP_DWO:
4636 strip_symbols = STRIP_DWO;
4637 break;
252b5132
RH		 4638 case OPTION_STRIP_UNNEEDED:
4639 strip_symbols = STRIP_UNNEEDED;
4640 break;
4641 case 'K':
047c9024 4642 add_specific_symbol (optarg, keep_specific_htab);
252b5132 4643 break;
1d15e434
NC		 4644 case 'M':
4645 merge_notes = TRUE;
1b8dd643 4646 merge_notes_set = TRUE;
1d15e434
NC		 4647 break;
4648 case OPTION_NO_MERGE_NOTES:
4649 merge_notes = FALSE;
1b8dd643 4650 merge_notes_set = TRUE;
1d15e434 4651 break;
252b5132 4652 case 'N':
047c9024 4653 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH		 4654 break;
4655 case 'o':
4656 output_file = optarg;
4657 break;
4658 case 'p':
b34976b6 4659 preserve_dates = TRUE;
252b5132 4660 break;
2e30cb57
CC		 4661 case 'D':
4662 deterministic = TRUE;
4663 break;
955d0b3b
RM		 4664 case 'U':
4665 deterministic = FALSE;
4666 break;
252b5132
RH		 4667 case 'x':
4668 discard_locals = LOCALS_ALL;
4669 break;
4670 case 'X':
4671 discard_locals = LOCALS_START_L;
4672 break;
4673 case 'v':
b34976b6 4674 verbose = TRUE;
252b5132
RH		 4675 break;
4676 case 'V':
b34976b6 4677 show_version = TRUE;
252b5132 4678 break;
7c29036b
NC		 4679 case OPTION_FORMATS_INFO:
4680 formats_info = TRUE;
4681 break;
ed1653a7
NC		 4682 case OPTION_ONLY_KEEP_DEBUG:
4683 strip_symbols = STRIP_NONDEBUG;
4684 break;
1637cd90
JB		 4685 case OPTION_KEEP_FILE_SYMBOLS:
4686 keep_file_symbols = 1;
4687 break;
252b5132 4688 case 0:
594ef5db
NC		 4689 /* We've been given a long option. */
4690 break;
5fe11841
NC		 4691 case 'w':
4692 wildcard = TRUE;
4693 break;
8b53311e 4694 case 'H':
252b5132
RH		 4695 case 'h':
4696 strip_usage (stdout, 0);
4697 default:
4698 strip_usage (stderr, 1);
4699 }
4700 }
4701
1b8dd643
NC		 4702 /* If the user has not expressly chosen to merge/not-merge ELF notes
4703 then enable the merging unless we are stripping debug or dwo info. */
4704 if (! merge_notes_set
4705 && (strip_symbols == STRIP_UNDEF
4706 || strip_symbols == STRIP_ALL
4707 || strip_symbols == STRIP_UNNEEDED
4708 || strip_symbols == STRIP_NONDEBUG
4709 || strip_symbols == STRIP_NONDWO))
4710 merge_notes = TRUE;
4711
84e2f313
NC		 4712 if (formats_info)
4713 {
4714 display_info ();
4715 return 0;
4716 }
c1c0eb9e 4717
252b5132
RH		 4718 if (show_version)
4719 print_version ("strip");
4720
955d0b3b
RM		 4721 default_deterministic ();
4722
252b5132
RH		 4723 /* Default is to strip all symbols. */
4724 if (strip_symbols == STRIP_UNDEF
4725 && discard_locals == LOCALS_UNDEF
047c9024 4726 && htab_elements (strip_specific_htab) == 0)
252b5132
RH		 4727 strip_symbols = STRIP_ALL;
4728
d3ba0551 4729 if (output_target == NULL)
252b5132
RH		 4730 output_target = input_target;
4731
4732 i = optind;
4733 if (i == argc
4734 || (output_file != NULL && (i + 1) < argc))
4735 strip_usage (stderr, 1);
4736
4737 for (; i < argc; i++)
4738 {
4739 int hold_status = status;
4740 struct stat statbuf;
4741 char *tmpname;
4742
f24ddbdd 4743 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 4744 {
4745 status = 1;
4746 continue;
4747 }
f24ddbdd 4748
252b5132 4749 if (preserve_dates)
f24ddbdd
NC		 4750 /* No need to check the return value of stat().
4751 It has already been checked in get_file_size(). */
4752 stat (argv[i], &statbuf);
252b5132 4753
8b6efd89
KT		 4754 if (output_file == NULL
4755 || filename_cmp (argv[i], output_file) == 0)
252b5132 4756 tmpname = make_tempname (argv[i]);
12f498a7
NS		 4757 else
4758 tmpname = output_file;
252b5132 4759
f9c026a8
NC		 4760 if (tmpname == NULL)
4761 {
2db6cde7
NS		 4762 bfd_nonfatal_message (argv[i], NULL, NULL,
4763 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC		 4764 status = 1;
4765 continue;
4766 }
4767
d68c385b 4768 status = 0;
8b31b6c4 4769 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH		 4770 if (status == 0)
4771 {
4772 if (preserve_dates)
4773 set_times (tmpname, &statbuf);
12f498a7 4774 if (output_file != tmpname)
92fac5ec
L		 4775 status = (smart_rename (tmpname,
4776 output_file ? output_file : argv[i],
4777 preserve_dates) != 0);
4778 if (status == 0)
4779 status = hold_status;
252b5132
RH		 4780 }
4781 else
bb14f524 4782 unlink_if_ordinary (tmpname);
12f498a7 4783 if (output_file != tmpname)
252b5132
RH		 4784 free (tmpname);
4785 }
4786
d68c385b 4787 return status;
252b5132
RH		 4788}
4789
92dd4511
L		 4790/* Set up PE subsystem. */
4791
4792static void
4793set_pe_subsystem (const char *s)
4794{
4795 const char *version, *subsystem;
4796 size_t i;
4797 static const struct
4798 {
4799 const char *name;
4800 const char set_def;
4801 const short value;
4802 }
4803 v[] =
4804 {
955d0b3b 4805 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L		 4806 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
4807 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
4808 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
4809 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
4810 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
4811 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
4812 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 4813 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L		 4814 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
4815 };
4816 short value;
4817 char *copy;
4818 int set_def = -1;
4819
4820 /* Check for the presence of a version number. */
4821 version = strchr (s, ':');
4822 if (version == NULL)
4823 subsystem = s;
4824 else
4825 {
4826 int len = version - s;
4827 copy = xstrdup (s);
4828 subsystem = copy;
4829 copy[len] = '\0';
4830 version = copy + 1 + len;
4831 pe_major_subsystem_version = strtoul (version, &copy, 0);
4832 if (*copy == '.')
4833 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
4834 if (*copy != '\0')
4835 non_fatal (_("%s: bad version in PE subsystem"), s);
4836 }
4837
4838 /* Check for numeric subsystem. */
4839 value = (short) strtol (subsystem, &copy, 0);
4840 if (*copy == '\0')
4841 {
4842 for (i = 0; i < ARRAY_SIZE (v); i++)
4843 if (v[i].value == value)
4844 {
4845 pe_subsystem = value;
4846 set_def = v[i].set_def;
4847 break;
4848 }
4849 }
4850 else
4851 {
4852 /* Search for subsystem by name. */
4853 for (i = 0; i < ARRAY_SIZE (v); i++)
4854 if (strcmp (subsystem, v[i].name) == 0)
4855 {
4856 pe_subsystem = v[i].value;
4857 set_def = v[i].set_def;
4858 break;
4859 }
4860 }
4861
4862 switch (set_def)
4863 {
4864 case -1:
4865 fatal (_("unknown PE subsystem: %s"), s);
4866 break;
4867 case 0:
4868 break;
4869 default:
4870 if (pe_file_alignment == (bfd_vma) -1)
4871 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4872 if (pe_section_alignment == (bfd_vma) -1)
4873 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4874 break;
4875 }
0cbf3531
MS		 4876 if (s != subsystem)
4877 free ((char *) subsystem);
92dd4511
L		 4878}
4879
4880/* Convert EFI target to PEI target. */
4881
4882static void
4883convert_efi_target (char *efi)
4884{
4885 efi[0] = 'p';
4886 efi[1] = 'e';
4887 efi[2] = 'i';
4888
4889 if (strcmp (efi + 4, "ia32") == 0)
4890 {
4891 /* Change ia32 to i386. */
4892 efi[5]= '3';
4893 efi[6]= '8';
4894 efi[7]= '6';
4895 }
4896 else if (strcmp (efi + 4, "x86_64") == 0)
4897 {
4898 /* Change x86_64 to x86-64. */
4899 efi[7] = '-';
4900 }
4901}
4902
7173b38a 4903/* Allocate and return a pointer to a struct section_add, initializing the
06b73f41 4904 structure using ARG, a string in the format "sectionname=filename".
7173b38a
AB		 4905 The returned structure will have its next pointer set to NEXT. The
4906 OPTION field is the name of the command line option currently being
4907 parsed, and is only used if an error needs to be reported. */
4908
4909static struct section_add *
06b73f41 4910init_section_add (const char *arg,
f7433f01
AM		 4911 struct section_add *next,
4912 const char *option)
7173b38a
AB		 4913{
4914 struct section_add *pa;
4915 const char *s;
4916
06b73f41 4917 s = strchr (arg, '=');
7173b38a
AB		 4918 if (s == NULL)
4919 fatal (_("bad format for %s"), option);
4920
4921 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
06b73f41 4922 pa->name = xstrndup (arg, s - arg);
7173b38a
AB		 4923 pa->filename = s + 1;
4924 pa->next = next;
4925 pa->contents = NULL;
4926 pa->size = 0;
4927
4928 return pa;
4929}
4930
4931/* Load the file specified in PA, allocating memory to hold the file
4932 contents, and store a pointer to the allocated memory in the contents
4933 field of PA. The size field of PA is also updated. All errors call
4934 FATAL. */
4935
4936static void
4937section_add_load_file (struct section_add *pa)
4938{
4939 size_t off, alloc;
4940 FILE *f;
4941
4942 /* We don't use get_file_size so that we can do
4943 --add-section .note.GNU_stack=/dev/null
4944 get_file_size doesn't work on /dev/null. */
4945
4946 f = fopen (pa->filename, FOPEN_RB);
4947 if (f == NULL)
4948 fatal (_("cannot open: %s: %s"),
f7433f01 4949 pa->filename, strerror (errno));
7173b38a
AB		 4950
4951 off = 0;
4952 alloc = 4096;
4953 pa->contents = (bfd_byte *) xmalloc (alloc);
4954 while (!feof (f))
4955 {
4956 off_t got;
4957
4958 if (off == alloc)
f7433f01
AM		 4959 {
4960 alloc <<= 1;
4961 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
4962 }
7173b38a
AB		 4963
4964 got = fread (pa->contents + off, 1, alloc - off, f);
4965 if (ferror (f))
f7433f01 4966 fatal (_("%s: fread failed"), pa->filename);
7173b38a
AB		 4967
4968 off += got;
4969 }
4970
4971 pa->size = off;
4972
4973 fclose (f);
4974}
4975
252b5132 4976static int
84e2f313 4977copy_main (int argc, char *argv[])
252b5132 4978{
7c29036b
NC		 4979 char *input_filename = NULL;
4980 char *output_filename = NULL;
c1c0eb9e 4981 char *tmpname;
7c29036b
NC		 4982 char *input_target = NULL;
4983 char *output_target = NULL;
b34976b6
AM		 4984 bfd_boolean show_version = FALSE;
4985 bfd_boolean change_warn = TRUE;
7c29036b 4986 bfd_boolean formats_info = FALSE;
de564eb5
NC		 4987 bfd_boolean use_globalize = FALSE;
4988 bfd_boolean use_keep_global = FALSE;
252b5132 4989 int c;
252b5132 4990 struct stat statbuf;
8b31b6c4 4991 const bfd_arch_info_type *input_arch = NULL;
252b5132 4992
9ef920e9 4993 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:MN:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
252b5132
RH		 4994 copy_options, (int *) 0)) != EOF)
4995 {
4996 switch (c)
4997 {
4998 case 'b':
4999 copy_byte = atoi (optarg);
5000 if (copy_byte < 0)
5001 fatal (_("byte number must be non-negative"));
5002 break;
57938635 5003
0af11b59 5004 case 'B':
8b31b6c4
NC		 5005 input_arch = bfd_scan_arch (optarg);
5006 if (input_arch == NULL)
5007 fatal (_("architecture %s unknown"), optarg);
0af11b59 5008 break;
43a0748c 5009
252b5132 5010 case 'i':
b7dd81f7
NC		 5011 if (optarg)
5012 {
5013 interleave = atoi (optarg);
5014 if (interleave < 1)
5015 fatal (_("interleave must be positive"));
5016 }
5017 else
5018 interleave = 4;
5019 break;
5020
5021 case OPTION_INTERLEAVE_WIDTH:
5022 copy_width = atoi (optarg);
5023 if (copy_width < 1)
5024 fatal(_("interleave width must be positive"));
252b5132 5025 break;
57938635 5026
252b5132
RH		 5027 case 'I':
5028 case 's': /* "source" - 'I' is preferred */
5029 input_target = optarg;
5030 break;
57938635 5031
252b5132
RH		 5032 case 'O':
5033 case 'd': /* "destination" - 'O' is preferred */
5034 output_target = optarg;
5035 break;
57938635 5036
252b5132
RH		 5037 case 'F':
5038 input_target = output_target = optarg;
5039 break;
57938635 5040
f91ea849 5041 case 'j':
2e62b721 5042 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
b34976b6 5043 sections_copied = TRUE;
f91ea849 5044 break;
57938635 5045
252b5132 5046 case 'R':
d3e5f6c8
AB		 5047 handle_remove_section_option (optarg);
5048 break;
5049
64f52b3e
FS		 5050 case OPTION_KEEP_SECTION:
5051 find_section_list (optarg, TRUE, SECTION_CONTEXT_KEEP);
5052 break;
5053
d3e5f6c8
AB		 5054 case OPTION_REMOVE_RELOCS:
5055 handle_remove_relocations_option (optarg);
252b5132 5056 break;
57938635 5057
252b5132
RH		 5058 case 'S':
5059 strip_symbols = STRIP_ALL;
5060 break;
57938635 5061
252b5132
RH		 5062 case 'g':
5063 strip_symbols = STRIP_DEBUG;
5064 break;
57938635 5065
96109726
CC		 5066 case OPTION_STRIP_DWO:
5067 strip_symbols = STRIP_DWO;
5068 break;
5069
252b5132
RH		 5070 case OPTION_STRIP_UNNEEDED:
5071 strip_symbols = STRIP_UNNEEDED;
5072 break;
57938635 5073
ed1653a7
NC		 5074 case OPTION_ONLY_KEEP_DEBUG:
5075 strip_symbols = STRIP_NONDEBUG;
5076 break;
5077
1637cd90
JB		 5078 case OPTION_KEEP_FILE_SYMBOLS:
5079 keep_file_symbols = 1;
5080 break;
5081
2593f09a 5082 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 5083 long_section_names = ENABLE ;
2593f09a
NC		 5084 gnu_debuglink_filename = optarg;
5085 break;
5086
252b5132 5087 case 'K':
047c9024 5088 add_specific_symbol (optarg, keep_specific_htab);
252b5132 5089 break;
57938635 5090
9ef920e9
NC		 5091 case 'M':
5092 merge_notes = TRUE;
5093 break;
1d15e434
NC		 5094 case OPTION_NO_MERGE_NOTES:
5095 merge_notes = FALSE;
5096 break;
9ef920e9 5097
252b5132 5098 case 'N':
047c9024 5099 add_specific_symbol (optarg, strip_specific_htab);
252b5132 5100 break;
57938635 5101
bcf32829 5102 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 5103 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB		 5104 break;
5105
252b5132 5106 case 'L':
047c9024 5107 add_specific_symbol (optarg, localize_specific_htab);
252b5132 5108 break;
57938635 5109
7b4a0685 5110 case OPTION_GLOBALIZE_SYMBOL:
de564eb5 5111 use_globalize = TRUE;
047c9024 5112 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC		 5113 break;
5114
16b2b71c 5115 case 'G':
de564eb5 5116 use_keep_global = TRUE;
047c9024 5117 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC		 5118 break;
5119
252b5132 5120 case 'W':
047c9024 5121 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 5122 break;
57938635 5123
252b5132 5124 case 'p':
b34976b6 5125 preserve_dates = TRUE;
252b5132 5126 break;
57938635 5127
2e30cb57
CC		 5128 case 'D':
5129 deterministic = TRUE;
5130 break;
5131
955d0b3b
RM		 5132 case 'U':
5133 deterministic = FALSE;
5134 break;
5135
5fe11841
NC		 5136 case 'w':
5137 wildcard = TRUE;
5138 break;
5139
252b5132
RH		 5140 case 'x':
5141 discard_locals = LOCALS_ALL;
5142 break;
57938635 5143
252b5132
RH		 5144 case 'X':
5145 discard_locals = LOCALS_START_L;
5146 break;
57938635 5147
252b5132 5148 case 'v':
b34976b6 5149 verbose = TRUE;
252b5132 5150 break;
57938635 5151
252b5132 5152 case 'V':
b34976b6 5153 show_version = TRUE;
252b5132 5154 break;
57938635 5155
7c29036b
NC		 5156 case OPTION_FORMATS_INFO:
5157 formats_info = TRUE;
5158 break;
5159
252b5132 5160 case OPTION_WEAKEN:
b34976b6 5161 weaken = TRUE;
252b5132 5162 break;
57938635 5163
252b5132 5164 case OPTION_ADD_SECTION:
f7433f01
AM		 5165 add_sections = init_section_add (optarg, add_sections,
5166 "--add-section");
5167 section_add_load_file (add_sections);
252b5132 5168 break;
57938635 5169
acf1419f
AB		 5170 case OPTION_UPDATE_SECTION:
5171 update_sections = init_section_add (optarg, update_sections,
f7433f01 5172 "--update-section");
acf1419f
AB		 5173 section_add_load_file (update_sections);
5174 break;
5175
bbad633b 5176 case OPTION_DUMP_SECTION:
f7433f01
AM		 5177 dump_sections = init_section_add (optarg, dump_sections,
5178 "--dump-section");
bbad633b 5179 break;
3aade688 5180
2b35fb28
RH		 5181 case OPTION_ADD_SYMBOL:
5182 {
5183 char *s, *t;
5184 struct addsym_node *newsym = xmalloc (sizeof *newsym);
5185
5186 newsym->next = NULL;
5187 s = strchr (optarg, '=');
5188 if (s == NULL)
5189 fatal (_("bad format for %s"), "--add-symbol");
5190 t = strchr (s + 1, ':');
5191
a4f8732b 5192 newsym->symdef = xstrndup (optarg, s - optarg);
2b35fb28
RH		 5193 if (t)
5194 {
a4f8732b 5195 newsym->section = xstrndup (s + 1, t - (s + 1));
2b35fb28
RH		 5196 newsym->symval = strtol (t + 1, NULL, 0);
5197 }
5198 else
5199 {
5200 newsym->section = NULL;
5201 newsym->symval = strtol (s + 1, NULL, 0);
5202 t = s;
5203 }
5204
5205 t = strchr (t + 1, ',');
f7433f01 5206 newsym->othersym = NULL;
2b35fb28
RH		 5207 if (t)
5208 newsym->flags = parse_symflags (t+1, &newsym->othersym);
5209 else
5210 newsym->flags = BSF_GLOBAL;
5211
5212 /* Keep 'othersym' symbols at the front of the list. */
5213 if (newsym->othersym)
5214 {
5215 newsym->next = add_sym_list;
5216 if (!add_sym_list)
5217 add_sym_tail = &newsym->next;
5218 add_sym_list = newsym;
5219 }
5220 else
5221 {
5222 *add_sym_tail = newsym;
5223 add_sym_tail = &newsym->next;
5224 }
5225 add_symbols++;
5226 }
5227 break;
5228
252b5132
RH		 5229 case OPTION_CHANGE_START:
5230 change_start = parse_vma (optarg, "--change-start");
5231 break;
57938635 5232
252b5132
RH		 5233 case OPTION_CHANGE_SECTION_ADDRESS:
5234 case OPTION_CHANGE_SECTION_LMA:
5235 case OPTION_CHANGE_SECTION_VMA:
5236 {
2e62b721 5237 struct section_list * p;
76d8cf45 5238 unsigned int context = 0;
252b5132
RH		 5239 const char *s;
5240 int len;
5241 char *name;
b4c96d0d 5242 char *option = NULL;
252b5132 5243 bfd_vma val;
57938635 5244
252b5132
RH		 5245 switch (c)
5246 {
b4c96d0d
ILT		 5247 case OPTION_CHANGE_SECTION_ADDRESS:
5248 option = "--change-section-address";
2e62b721 5249 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
b4c96d0d
ILT		 5250 break;
5251 case OPTION_CHANGE_SECTION_LMA:
5252 option = "--change-section-lma";
2e62b721 5253 context = SECTION_CONTEXT_ALTER_LMA;
b4c96d0d
ILT		 5254 break;
5255 case OPTION_CHANGE_SECTION_VMA:
5256 option = "--change-section-vma";
2e62b721 5257 context = SECTION_CONTEXT_ALTER_VMA;
b4c96d0d 5258 break;
252b5132 5259 }
57938635 5260
252b5132
RH		 5261 s = strchr (optarg, '=');
5262 if (s == NULL)
5263 {
5264 s = strchr (optarg, '+');
5265 if (s == NULL)
5266 {
5267 s = strchr (optarg, '-');
5268 if (s == NULL)
5269 fatal (_("bad format for %s"), option);
5270 }
5271 }
2e62b721
NC		 5272 else
5273 {
5274 /* Correct the context. */
5275 switch (c)
5276 {
5277 case OPTION_CHANGE_SECTION_ADDRESS:
5278 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
5279 break;
5280 case OPTION_CHANGE_SECTION_LMA:
5281 context = SECTION_CONTEXT_SET_LMA;
5282 break;
5283 case OPTION_CHANGE_SECTION_VMA:
5284 context = SECTION_CONTEXT_SET_VMA;
5285 break;
5286 }
5287 }
252b5132
RH		 5288
5289 len = s - optarg;
3f5e193b 5290 name = (char *) xmalloc (len + 1);
252b5132
RH		 5291 strncpy (name, optarg, len);
5292 name[len] = '\0';
5293
2e62b721 5294 p = find_section_list (name, TRUE, context);
252b5132
RH		 5295
5296 val = parse_vma (s + 1, option);
2e62b721
NC		 5297 if (*s == '-')
5298 val = - val;
57938635 5299
252b5132
RH		 5300 switch (c)
5301 {
5302 case OPTION_CHANGE_SECTION_ADDRESS:
2e62b721 5303 p->vma_val = val;
1a0670f3 5304 /* Fall through. */
57938635 5305
252b5132 5306 case OPTION_CHANGE_SECTION_LMA:
2e62b721 5307 p->lma_val = val;
252b5132 5308 break;
57938635 5309
252b5132 5310 case OPTION_CHANGE_SECTION_VMA:
2e62b721 5311 p->vma_val = val;
252b5132
RH		 5312 break;
5313 }
5314 }
5315 break;
57938635 5316
252b5132
RH		 5317 case OPTION_CHANGE_ADDRESSES:
5318 change_section_address = parse_vma (optarg, "--change-addresses");
5319 change_start = change_section_address;
5320 break;
57938635 5321
252b5132 5322 case OPTION_CHANGE_WARNINGS:
b34976b6 5323 change_warn = TRUE;
252b5132 5324 break;
57938635 5325
252b5132 5326 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 5327 change_leading_char = TRUE;
252b5132 5328 break;
57938635 5329
4a114e3e 5330 case OPTION_COMPRESS_DEBUG_SECTIONS:
151411f8
L		 5331 if (optarg)
5332 {
5333 if (strcasecmp (optarg, "none") == 0)
5334 do_debug_sections = decompress;
5335 else if (strcasecmp (optarg, "zlib") == 0)
5336 do_debug_sections = compress_zlib;
5337 else if (strcasecmp (optarg, "zlib-gnu") == 0)
5338 do_debug_sections = compress_gnu_zlib;
5339 else if (strcasecmp (optarg, "zlib-gabi") == 0)
5340 do_debug_sections = compress_gabi_zlib;
5341 else
5342 fatal (_("unrecognized --compress-debug-sections type `%s'"),
5343 optarg);
5344 }
5345 else
5346 do_debug_sections = compress;
4a114e3e
L		 5347 break;
5348
252b5132 5349 case OPTION_DEBUGGING:
b34976b6 5350 convert_debugging = TRUE;
252b5132 5351 break;
57938635 5352
4a114e3e
L		 5353 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
5354 do_debug_sections = decompress;
5355 break;
5356
b8871f35
L		 5357 case OPTION_ELF_STT_COMMON:
5358 if (strcasecmp (optarg, "yes") == 0)
5359 do_elf_stt_common = elf_stt_common;
5360 else if (strcasecmp (optarg, "no") == 0)
5361 do_elf_stt_common = no_elf_stt_common;
5362 else
5363 fatal (_("unrecognized --elf-stt-common= option `%s'"),
5364 optarg);
5365 break;
5366
252b5132
RH		 5367 case OPTION_GAP_FILL:
5368 {
5369 bfd_vma gap_fill_vma;
5370
5371 gap_fill_vma = parse_vma (optarg, "--gap-fill");
5372 gap_fill = (bfd_byte) gap_fill_vma;
5373 if ((bfd_vma) gap_fill != gap_fill_vma)
5374 {
5375 char buff[20];
57938635 5376
252b5132 5377 sprintf_vma (buff, gap_fill_vma);
57938635 5378
252b5132
RH		 5379 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
5380 buff, gap_fill);
5381 }
b34976b6 5382 gap_fill_set = TRUE;
252b5132
RH		 5383 }
5384 break;
57938635 5385
252b5132 5386 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 5387 change_warn = FALSE;
252b5132 5388 break;
57938635 5389
252b5132
RH		 5390 case OPTION_PAD_TO:
5391 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 5392 pad_to_set = TRUE;
252b5132 5393 break;
57938635 5394
252b5132 5395 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 5396 remove_leading_char = TRUE;
252b5132 5397 break;
57938635
AM		 5398
5399 case OPTION_REDEFINE_SYM:
5400 {
0f65a5d8 5401 /* Insert this redefinition onto redefine_specific_htab. */
57938635
AM		 5402
5403 int len;
5404 const char *s;
5405 const char *nextarg;
5406 char *source, *target;
5407
5408 s = strchr (optarg, '=');
5409 if (s == NULL)
594ef5db 5410 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 5411
5412 len = s - optarg;
3f5e193b 5413 source = (char *) xmalloc (len + 1);
57938635
AM		 5414 strncpy (source, optarg, len);
5415 source[len] = '\0';
5416
5417 nextarg = s + 1;
5418 len = strlen (nextarg);
3f5e193b 5419 target = (char *) xmalloc (len + 1);
57938635
AM		 5420 strcpy (target, nextarg);
5421
0f65a5d8 5422 add_redefine_and_check ("--redefine-sym", source, target);
57938635
AM		 5423
5424 free (source);
5425 free (target);
5426 }
5427 break;
5428
92991082
JT		 5429 case OPTION_REDEFINE_SYMS:
5430 add_redefine_syms_file (optarg);
5431 break;
5432
252b5132
RH		 5433 case OPTION_SET_SECTION_FLAGS:
5434 {
2e62b721 5435 struct section_list *p;
252b5132
RH		 5436 const char *s;
5437 int len;
5438 char *name;
5439
5440 s = strchr (optarg, '=');
5441 if (s == NULL)
57938635 5442 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 5443
5444 len = s - optarg;
3f5e193b 5445 name = (char *) xmalloc (len + 1);
252b5132
RH		 5446 strncpy (name, optarg, len);
5447 name[len] = '\0';
5448
2e62b721 5449 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
252b5132 5450
252b5132
RH		 5451 p->flags = parse_flags (s + 1);
5452 }
5453 break;
57938635 5454
fa463e9f
N		 5455 case OPTION_SET_SECTION_ALIGNMENT:
5456 {
5457 struct section_list *p;
5458 const char *s;
5459 int len;
5460 char *name;
de4859ea 5461 int palign, align;
fa463e9f
N		 5462
5463 s = strchr (optarg, '=');
5464 if (s == NULL)
de4859ea 5465 fatal (_("bad format for --set-section-alignment: argument needed"));
fa463e9f 5466
de4859ea
NC		 5467 align = atoi (s + 1);
5468 if (align <= 0)
5469 fatal (_("bad format for --set-section-alignment: numeric argument needed"));
fa463e9f 5470
de4859ea
NC		 5471 /* Convert integer alignment into a power-of-two alignment. */
5472 palign = 0;
5473 while ((align & 1) == 0)
5474 {
5475 align >>= 1;
5476 ++palign;
5477 }
5478
5479 if (align != 1)
5480 /* Number has more than on 1, i.e. wasn't a power of 2. */
5481 fatal (_("bad format for --set-section-alignment: alignment is not a power of two"));
5482
5483 /* Add the alignment setting to the section list. */
fa463e9f
N		 5484 len = s - optarg;
5485 name = (char *) xmalloc (len + 1);
5486 strncpy (name, optarg, len);
5487 name[len] = '\0';
5488
5489 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_ALIGNMENT);
de4859ea
NC		 5490 if (p)
5491 p->alignment = palign;
fa463e9f
N		 5492 }
5493 break;
5494
594ef5db
NC		 5495 case OPTION_RENAME_SECTION:
5496 {
5497 flagword flags;
3bcfb3e4
AM		 5498 const char *eq, *fl;
5499 char *old_name;
5500 char *new_name;
594ef5db
NC		 5501 unsigned int len;
5502
3bcfb3e4
AM		 5503 eq = strchr (optarg, '=');
5504 if (eq == NULL)
594ef5db
NC		 5505 fatal (_("bad format for %s"), "--rename-section");
5506
3bcfb3e4 5507 len = eq - optarg;
594ef5db 5508 if (len == 0)
3bcfb3e4 5509 fatal (_("bad format for %s"), "--rename-section");
594ef5db 5510
3f5e193b 5511 old_name = (char *) xmalloc (len + 1);
594ef5db
NC		 5512 strncpy (old_name, optarg, len);
5513 old_name[len] = 0;
5514
3bcfb3e4
AM		 5515 eq++;
5516 fl = strchr (eq, ',');
5517 if (fl)
594ef5db 5518 {
3bcfb3e4
AM		 5519 flags = parse_flags (fl + 1);
5520 len = fl - eq;
594ef5db
NC		 5521 }
5522 else
5523 {
594ef5db 5524 flags = -1;
3bcfb3e4 5525 len = strlen (eq);
594ef5db
NC		 5526 }
5527
3bcfb3e4
AM		 5528 if (len == 0)
5529 fatal (_("bad format for %s"), "--rename-section");
5530
3f5e193b 5531 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM		 5532 strncpy (new_name, eq, len);
5533 new_name[len] = 0;
5534
594ef5db
NC		 5535 add_section_rename (old_name, new_name, flags);
5536 }
5537 break;
5538
252b5132
RH		 5539 case OPTION_SET_START:
5540 set_start = parse_vma (optarg, "--set-start");
b34976b6 5541 set_start_set = TRUE;
252b5132 5542 break;
57938635 5543
0af11b59 5544 case OPTION_SREC_LEN:
4bc26c69 5545 _bfd_srec_len = parse_vma (optarg, "--srec-len");
0af11b59 5546 break;
420496c1 5547
0af11b59 5548 case OPTION_SREC_FORCES3:
4bc26c69 5549 _bfd_srec_forceS3 = TRUE;
0af11b59 5550 break;
420496c1 5551
16b2b71c 5552 case OPTION_STRIP_SYMBOLS:
d839b914
L		 5553 add_specific_symbols (optarg, strip_specific_htab,
5554 &strip_specific_buffer);
16b2b71c
NC		 5555 break;
5556
bcf32829 5557 case OPTION_STRIP_UNNEEDED_SYMBOLS:
d839b914
L		 5558 add_specific_symbols (optarg, strip_unneeded_htab,
5559 &strip_unneeded_buffer);
bcf32829
JB		 5560 break;
5561
16b2b71c 5562 case OPTION_KEEP_SYMBOLS:
d839b914
L		 5563 add_specific_symbols (optarg, keep_specific_htab,
5564 &keep_specific_buffer);
16b2b71c
NC		 5565 break;
5566
d58c2e3a
RS		 5567 case OPTION_LOCALIZE_HIDDEN:
5568 localize_hidden = TRUE;
5569 break;
5570
16b2b71c 5571 case OPTION_LOCALIZE_SYMBOLS:
d839b914
L		 5572 add_specific_symbols (optarg, localize_specific_htab,
5573 &localize_specific_buffer);
16b2b71c
NC		 5574 break;
5575
0408dee6
DK		 5576 case OPTION_LONG_SECTION_NAMES:
5577 if (!strcmp ("enable", optarg))
5578 long_section_names = ENABLE;
5579 else if (!strcmp ("disable", optarg))
5580 long_section_names = DISABLE;
5581 else if (!strcmp ("keep", optarg))
5582 long_section_names = KEEP;
5583 else
5584 fatal (_("unknown long section names option '%s'"), optarg);
5585 break;
5586
7b4a0685 5587 case OPTION_GLOBALIZE_SYMBOLS:
de564eb5 5588 use_globalize = TRUE;
d839b914
L		 5589 add_specific_symbols (optarg, globalize_specific_htab,
5590 &globalize_specific_buffer);
7b4a0685
NC		 5591 break;
5592
16b2b71c 5593 case OPTION_KEEPGLOBAL_SYMBOLS:
de564eb5 5594 use_keep_global = TRUE;
d839b914
L		 5595 add_specific_symbols (optarg, keepglobal_specific_htab,
5596 &keepglobal_specific_buffer);
16b2b71c
NC		 5597 break;
5598
5599 case OPTION_WEAKEN_SYMBOLS:
d839b914
L		 5600 add_specific_symbols (optarg, weaken_specific_htab,
5601 &weaken_specific_buffer);
16b2b71c
NC		 5602 break;
5603
1ae8b3d2 5604 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 5605 use_alt_mach_code = strtoul (optarg, NULL, 0);
5606 if (use_alt_mach_code == 0)
5607 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 5608 break;
5609
d7fb0dd2
NC		 5610 case OPTION_PREFIX_SYMBOLS:
5611 prefix_symbols_string = optarg;
5612 break;
5613
5614 case OPTION_PREFIX_SECTIONS:
5615 prefix_sections_string = optarg;
5616 break;
5617
5618 case OPTION_PREFIX_ALLOC_SECTIONS:
5619 prefix_alloc_sections_string = optarg;
5620 break;
5621
4087920c
MR		 5622 case OPTION_READONLY_TEXT:
5623 bfd_flags_to_set |= WP_TEXT;
5624 bfd_flags_to_clear &= ~WP_TEXT;
5625 break;
5626
5627 case OPTION_WRITABLE_TEXT:
5628 bfd_flags_to_clear |= WP_TEXT;
5629 bfd_flags_to_set &= ~WP_TEXT;
5630 break;
5631
5632 case OPTION_PURE:
5633 bfd_flags_to_set |= D_PAGED;
5634 bfd_flags_to_clear &= ~D_PAGED;
5635 break;
5636
5637 case OPTION_IMPURE:
5638 bfd_flags_to_clear |= D_PAGED;
5639 bfd_flags_to_set &= ~D_PAGED;
5640 break;
5641
96109726
CC		 5642 case OPTION_EXTRACT_DWO:
5643 strip_symbols = STRIP_NONDWO;
5644 break;
5645
d3e52d40
RS		 5646 case OPTION_EXTRACT_SYMBOL:
5647 extract_symbol = TRUE;
5648 break;
5649
9e48b4c6 5650 case OPTION_REVERSE_BYTES:
f7433f01
AM		 5651 {
5652 int prev = reverse_bytes;
9e48b4c6 5653
f7433f01
AM		 5654 reverse_bytes = atoi (optarg);
5655 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
5656 fatal (_("number of bytes to reverse must be positive and even"));
9e48b4c6 5657
f7433f01
AM		 5658 if (prev && prev != reverse_bytes)
5659 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
5660 prev);
5661 break;
5662 }
9e48b4c6 5663
92dd4511
L		 5664 case OPTION_FILE_ALIGNMENT:
5665 pe_file_alignment = parse_vma (optarg, "--file-alignment");
5666 break;
955d0b3b 5667
92dd4511 5668 case OPTION_HEAP:
f7433f01
AM		 5669 {
5670 char *end;
5671 pe_heap_reserve = strtoul (optarg, &end, 0);
5672 if (end == optarg
5673 || (*end != '.' && *end != '\0'))
5674 non_fatal (_("%s: invalid reserve value for --heap"),
5675 optarg);
5676 else if (*end != '\0')
5677 {
5678 pe_heap_commit = strtoul (end + 1, &end, 0);
5679 if (*end != '\0')
5680 non_fatal (_("%s: invalid commit value for --heap"),
5681 optarg);
5682 }
5683 }
92dd4511 5684 break;
955d0b3b 5685
92dd4511
L		 5686 case OPTION_IMAGE_BASE:
5687 pe_image_base = parse_vma (optarg, "--image-base");
5688 break;
955d0b3b 5689
fa463e9f 5690 case OPTION_PE_SECTION_ALIGNMENT:
92dd4511
L		 5691 pe_section_alignment = parse_vma (optarg,
5692 "--section-alignment");
5693 break;
955d0b3b 5694
92dd4511
L		 5695 case OPTION_SUBSYSTEM:
5696 set_pe_subsystem (optarg);
5697 break;
955d0b3b 5698
92dd4511 5699 case OPTION_STACK:
f7433f01
AM		 5700 {
5701 char *end;
5702 pe_stack_reserve = strtoul (optarg, &end, 0);
5703 if (end == optarg
5704 || (*end != '.' && *end != '\0'))
5705 non_fatal (_("%s: invalid reserve value for --stack"),
5706 optarg);
5707 else if (*end != '\0')
5708 {
5709 pe_stack_commit = strtoul (end + 1, &end, 0);
5710 if (*end != '\0')
5711 non_fatal (_("%s: invalid commit value for --stack"),
5712 optarg);
5713 }
5714 }
92dd4511 5715 break;
955d0b3b 5716
37d0d091
JH		 5717 case OPTION_VERILOG_DATA_WIDTH:
5718 VerilogDataWidth = parse_vma (optarg, "--verilog-data-width");
5719 if (VerilogDataWidth < 1)
5720 fatal (_("verilog data width must be at least 1 byte"));
5721 break;
5722
252b5132 5723 case 0:
2593f09a
NC		 5724 /* We've been given a long option. */
5725 break;
57938635 5726
8b53311e 5727 case 'H':
252b5132
RH		 5728 case 'h':
5729 copy_usage (stdout, 0);
57938635 5730
252b5132
RH		 5731 default:
5732 copy_usage (stderr, 1);
5733 }
5734 }
5735
de564eb5
NC		 5736 if (use_globalize && use_keep_global)
5737 fatal(_("--globalize-symbol(s) is incompatible with -G/--keep-global-symbol(s)"));
5738
7c29036b
NC		 5739 if (formats_info)
5740 {
5741 display_info ();
5742 return 0;
5743 }
c1c0eb9e 5744
252b5132
RH		 5745 if (show_version)
5746 print_version ("objcopy");
5747
b7dd81f7
NC		 5748 if (interleave && copy_byte == -1)
5749 fatal (_("interleave start byte must be set with --byte"));
5750
252b5132
RH		 5751 if (copy_byte >= interleave)
5752 fatal (_("byte number must be less than interleave"));
5753
b7dd81f7
NC		 5754 if (copy_width > interleave - copy_byte)
5755 fatal (_("interleave width must be less than or equal to interleave - byte`"));
5756
252b5132
RH		 5757 if (optind == argc || optind + 2 < argc)
5758 copy_usage (stderr, 1);
5759
5760 input_filename = argv[optind];
5761 if (optind + 1 < argc)
5762 output_filename = argv[optind + 1];
5763
955d0b3b
RM		 5764 default_deterministic ();
5765
252b5132
RH		 5766 /* Default is to strip no symbols. */
5767 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
5768 strip_symbols = STRIP_NONE;
5769
d3ba0551 5770 if (output_target == NULL)
252b5132
RH		 5771 output_target = input_target;
5772
92dd4511
L		 5773 /* Convert input EFI target to PEI target. */
5774 if (input_target != NULL
5775 && strncmp (input_target, "efi-", 4) == 0)
5776 {
5777 char *efi;
5778
5779 efi = xstrdup (output_target + 4);
5780 if (strncmp (efi, "bsdrv-", 6) == 0
5781 || strncmp (efi, "rtdrv-", 6) == 0)
5782 efi += 2;
5783 else if (strncmp (efi, "app-", 4) != 0)
5784 fatal (_("unknown input EFI target: %s"), input_target);
5785
5786 input_target = efi;
5787 convert_efi_target (efi);
5788 }
5789
5790 /* Convert output EFI target to PEI target. */
5791 if (output_target != NULL
5792 && strncmp (output_target, "efi-", 4) == 0)
5793 {
5794 char *efi;
5795
5796 efi = xstrdup (output_target + 4);
5797 if (strncmp (efi, "app-", 4) == 0)
5798 {
5799 if (pe_subsystem == -1)
5800 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
5801 }
5802 else if (strncmp (efi, "bsdrv-", 6) == 0)
5803 {
5804 if (pe_subsystem == -1)
5805 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
5806 efi += 2;
5807 }
5808 else if (strncmp (efi, "rtdrv-", 6) == 0)
5809 {
5810 if (pe_subsystem == -1)
5811 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
5812 efi += 2;
5813 }
5814 else
5815 fatal (_("unknown output EFI target: %s"), output_target);
5816
5817 if (pe_file_alignment == (bfd_vma) -1)
5818 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
5819 if (pe_section_alignment == (bfd_vma) -1)
5820 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
5821
5822 output_target = efi;
5823 convert_efi_target (efi);
5824 }
5825
43a0748c
NC		 5826 if (preserve_dates)
5827 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 5828 fatal (_("warning: could not locate '%s'. System error message: %s"),
5829 input_filename, strerror (errno));
43a0748c 5830
0fcdcb91 5831 /* If there is no destination file, or the source and destination files
d3ba0551 5832 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT		 5833 if (output_filename == NULL
5834 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 5835 tmpname = make_tempname (input_filename);
252b5132 5836 else
12f498a7 5837 tmpname = output_filename;
c1c0eb9e 5838
12f498a7
NS		 5839 if (tmpname == NULL)
5840 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
5841 input_filename, strerror (errno));
594ef5db 5842
8b31b6c4 5843 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS		 5844 if (status == 0)
5845 {
5846 if (preserve_dates)
5847 set_times (tmpname, &statbuf);
5848 if (tmpname != output_filename)
92fac5ec
L		 5849 status = (smart_rename (tmpname, input_filename,
5850 preserve_dates) != 0);
252b5132 5851 }
12f498a7
NS		 5852 else
5853 unlink_if_ordinary (tmpname);
252b5132 5854
be74fad9
AM		 5855 if (tmpname != output_filename)
5856 free (tmpname);
5857
252b5132
RH		 5858 if (change_warn)
5859 {
2e62b721
NC		 5860 struct section_list *p;
5861
252b5132
RH		 5862 for (p = change_sections; p != NULL; p = p->next)
5863 {
5864 if (! p->used)
5865 {
2e62b721 5866 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
252b5132
RH		 5867 {
5868 char buff [20];
5869
5870 sprintf_vma (buff, p->vma_val);
57938635 5871
252b5132 5872 /* xgettext:c-format */
57938635
AM		 5873 non_fatal (_("%s %s%c0x%s never used"),
5874 "--change-section-vma",
2e62b721
NC		 5875 p->pattern,
5876 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
252b5132
RH		 5877 buff);
5878 }
57938635 5879
2e62b721 5880 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
252b5132
RH		 5881 {
5882 char buff [20];
5883
5884 sprintf_vma (buff, p->lma_val);
57938635 5885
252b5132 5886 /* xgettext:c-format */
57938635
AM		 5887 non_fatal (_("%s %s%c0x%s never used"),
5888 "--change-section-lma",
2e62b721
NC		 5889 p->pattern,
5890 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
252b5132
RH		 5891 buff);
5892 }
5893 }
5894 }
5895 }
5896
d839b914
L		 5897 if (strip_specific_buffer)
5898 free (strip_specific_buffer);
5899
5900 if (strip_unneeded_buffer)
5901 free (strip_unneeded_buffer);
5902
5903 if (keep_specific_buffer)
5904 free (keep_specific_buffer);
5905
5906 if (localize_specific_buffer)
5907 free (globalize_specific_buffer);
5908
5909 if (globalize_specific_buffer)
5910 free (globalize_specific_buffer);
5911
5912 if (keepglobal_specific_buffer)
5913 free (keepglobal_specific_buffer);
5914
5915 if (weaken_specific_buffer)
5916 free (weaken_specific_buffer);
5917
252b5132
RH		 5918 return 0;
5919}
5920
5921int
84e2f313 5922main (int argc, char *argv[])
252b5132
RH		 5923{
5924#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
5925 setlocale (LC_MESSAGES, "");
3882b010
L		 5926#endif
5927#if defined (HAVE_SETLOCALE)
5928 setlocale (LC_CTYPE, "");
252b5132
RH		 5929#endif
5930 bindtextdomain (PACKAGE, LOCALEDIR);
5931 textdomain (PACKAGE);
5932
5933 program_name = argv[0];
5934 xmalloc_set_program_name (program_name);
5935
5936 START_PROGRESS (program_name, 0);
5937
869b9d07
MM		 5938 expandargv (&argc, &argv);
5939
252b5132
RH		 5940 strip_symbols = STRIP_UNDEF;
5941 discard_locals = LOCALS_UNDEF;
5942
bf2dd8d7
AM		 5943 if (bfd_init () != BFD_INIT_MAGIC)
5944 fatal (_("fatal error: libbfd ABI mismatch"));
252b5132
RH		 5945 set_default_bfd_target ();
5946
5947 if (is_strip < 0)
5948 {
5949 int i = strlen (program_name);
5af11cab
AM		 5950#ifdef HAVE_DOS_BASED_FILE_SYSTEM
5951 /* Drop the .exe suffix, if any. */
5952 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
5953 {
5954 i -= 4;
5955 program_name[i] = '\0';
5956 }
5957#endif
5958 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 5959 }
5960
047c9024
NC		 5961 create_symbol_htabs ();
5962
86eafac0
NC		 5963 if (argv != NULL)
5964 bfd_set_error_program_name (argv[0]);
5965
252b5132
RH		 5966 if (is_strip)
5967 strip_main (argc, argv);
5968 else
5969 copy_main (argc, argv);
5970
5971 END_PROGRESS (program_name);
5972
5973 return status;
5974}
GDB Binutils - Deliverables
This page took 1.28116 seconds and 4 git commands to generate.