Update my e-mail address.
[binutils-gdb.git] / binutils / objcopy.c
blobe5df1a919560b8f1d161e6e25073d74e1bc78b4e
1 /* objcopy.c -- copy object file from input to output, optionally massaging it.
2 Copyright (C) 1991-2017 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
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
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
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.
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
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
19 02110-1301, USA. */
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "progress.h"
24 #include "getopt.h"
25 #include "libiberty.h"
26 #include "bucomm.h"
27 #include "budbg.h"
28 #include "filenames.h"
29 #include "fnmatch.h"
30 #include "elf-bfd.h"
31 #include "coff/internal.h"
32 #include "libcoff.h"
33 #include "safe-ctype.h"
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"
40 static bfd_vma pe_file_alignment = (bfd_vma) -1;
41 static bfd_vma pe_heap_commit = (bfd_vma) -1;
42 static bfd_vma pe_heap_reserve = (bfd_vma) -1;
43 static bfd_vma pe_image_base = (bfd_vma) -1;
44 static bfd_vma pe_section_alignment = (bfd_vma) -1;
45 static bfd_vma pe_stack_commit = (bfd_vma) -1;
46 static bfd_vma pe_stack_reserve = (bfd_vma) -1;
47 static short pe_subsystem = -1;
48 static short pe_major_subsystem_version = -1;
49 static short pe_minor_subsystem_version = -1;
51 struct is_specified_symbol_predicate_data
53 const char * name;
54 bfd_boolean found;
57 /* A node includes symbol name mapping to support redefine_sym. */
58 struct redefine_node
60 char *source;
61 char *target;
64 struct addsym_node
66 struct addsym_node *next;
67 char * symdef;
68 long symval;
69 flagword flags;
70 char * section;
71 char * othersym;
74 typedef struct section_rename
76 const char * old_name;
77 const char * new_name;
78 flagword flags;
79 struct section_rename * next;
81 section_rename;
83 /* List of sections to be renamed. */
84 static section_rename *section_rename_list;
86 static asymbol **isympp = NULL; /* Input symbols. */
87 static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
89 /* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
90 static int copy_byte = -1;
91 static int interleave = 0; /* Initialised to 4 in copy_main(). */
92 static int copy_width = 1;
94 static bfd_boolean verbose; /* Print file and target names. */
95 static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
96 static int deterministic = -1; /* Enable deterministic archives. */
97 static int status = 0; /* Exit status. */
99 static bfd_boolean merge_notes = FALSE; /* Merge note sections. */
100 static bfd_byte * merged_notes = NULL; /* Contents on note section undergoing a merge. */
101 static bfd_size_type merged_size = 0; /* New, smaller size of the merged note section. */
103 enum strip_action
105 STRIP_UNDEF,
106 STRIP_NONE, /* Don't strip. */
107 STRIP_DEBUG, /* Strip all debugger symbols. */
108 STRIP_UNNEEDED, /* Strip unnecessary symbols. */
109 STRIP_NONDEBUG, /* Strip everything but debug info. */
110 STRIP_DWO, /* Strip all DWO info. */
111 STRIP_NONDWO, /* Strip everything but DWO info. */
112 STRIP_ALL /* Strip all symbols. */
115 /* Which symbols to remove. */
116 static enum strip_action strip_symbols = STRIP_UNDEF;
118 enum locals_action
120 LOCALS_UNDEF,
121 LOCALS_START_L, /* Discard locals starting with L. */
122 LOCALS_ALL /* Discard all locals. */
125 /* Which local symbols to remove. Overrides STRIP_ALL. */
126 static enum locals_action discard_locals;
128 /* Structure used to hold lists of sections and actions to take. */
129 struct section_list
131 struct section_list * next; /* Next section to change. */
132 const char * pattern; /* Section name pattern. */
133 bfd_boolean used; /* Whether this entry was used. */
135 unsigned int context; /* What to do with matching sections. */
136 /* Flag bits used in the context field.
137 COPY and REMOVE are mutually exlusive. SET and ALTER are mutually exclusive. */
138 #define SECTION_CONTEXT_REMOVE (1 << 0) /* Remove this section. */
139 #define SECTION_CONTEXT_COPY (1 << 1) /* Copy this section, delete all non-copied section. */
140 #define SECTION_CONTEXT_SET_VMA (1 << 2) /* Set the sections' VMA address. */
141 #define SECTION_CONTEXT_ALTER_VMA (1 << 3) /* Increment or decrement the section's VMA address. */
142 #define SECTION_CONTEXT_SET_LMA (1 << 4) /* Set the sections' LMA address. */
143 #define SECTION_CONTEXT_ALTER_LMA (1 << 5) /* Increment or decrement the section's LMA address. */
144 #define SECTION_CONTEXT_SET_FLAGS (1 << 6) /* Set the section's flags. */
145 #define SECTION_CONTEXT_REMOVE_RELOCS (1 << 7) /* Remove relocations for this section. */
147 bfd_vma vma_val; /* Amount to change by or set to. */
148 bfd_vma lma_val; /* Amount to change by or set to. */
149 flagword flags; /* What to set the section flags to. */
152 static struct section_list *change_sections;
154 /* TRUE if some sections are to be removed. */
155 static bfd_boolean sections_removed;
157 /* TRUE if only some sections are to be copied. */
158 static bfd_boolean sections_copied;
160 /* Changes to the start address. */
161 static bfd_vma change_start = 0;
162 static bfd_boolean set_start_set = FALSE;
163 static bfd_vma set_start;
165 /* Changes to section addresses. */
166 static bfd_vma change_section_address = 0;
168 /* Filling gaps between sections. */
169 static bfd_boolean gap_fill_set = FALSE;
170 static bfd_byte gap_fill = 0;
172 /* Pad to a given address. */
173 static bfd_boolean pad_to_set = FALSE;
174 static bfd_vma pad_to;
176 /* Use alternative machine code? */
177 static unsigned long use_alt_mach_code = 0;
179 /* Output BFD flags user wants to set or clear */
180 static flagword bfd_flags_to_set;
181 static flagword bfd_flags_to_clear;
183 /* List of sections to add. */
184 struct section_add
186 /* Next section to add. */
187 struct section_add *next;
188 /* Name of section to add. */
189 const char *name;
190 /* Name of file holding section contents. */
191 const char *filename;
192 /* Size of file. */
193 size_t size;
194 /* Contents of file. */
195 bfd_byte *contents;
196 /* BFD section, after it has been added. */
197 asection *section;
200 /* List of sections to add to the output BFD. */
201 static struct section_add *add_sections;
203 /* List of sections to update in the output BFD. */
204 static struct section_add *update_sections;
206 /* List of sections to dump from the output BFD. */
207 static struct section_add *dump_sections;
209 /* If non-NULL the argument to --add-gnu-debuglink.
210 This should be the filename to store in the .gnu_debuglink section. */
211 static const char * gnu_debuglink_filename = NULL;
213 /* Whether to convert debugging information. */
214 static bfd_boolean convert_debugging = FALSE;
216 /* Whether to compress/decompress DWARF debug sections. */
217 static enum
219 nothing = 0,
220 compress = 1 << 0,
221 compress_zlib = compress | 1 << 1,
222 compress_gnu_zlib = compress | 1 << 2,
223 compress_gabi_zlib = compress | 1 << 3,
224 decompress = 1 << 4
225 } do_debug_sections = nothing;
227 /* Whether to generate ELF common symbols with the STT_COMMON type. */
228 static enum bfd_link_elf_stt_common do_elf_stt_common = unchanged;
230 /* Whether to change the leading character in symbol names. */
231 static bfd_boolean change_leading_char = FALSE;
233 /* Whether to remove the leading character from global symbol names. */
234 static bfd_boolean remove_leading_char = FALSE;
236 /* Whether to permit wildcard in symbol comparison. */
237 static bfd_boolean wildcard = FALSE;
239 /* True if --localize-hidden is in effect. */
240 static bfd_boolean localize_hidden = FALSE;
242 /* List of symbols to strip, keep, localize, keep-global, weaken,
243 or redefine. */
244 static htab_t strip_specific_htab = NULL;
245 static htab_t strip_unneeded_htab = NULL;
246 static htab_t keep_specific_htab = NULL;
247 static htab_t localize_specific_htab = NULL;
248 static htab_t globalize_specific_htab = NULL;
249 static htab_t keepglobal_specific_htab = NULL;
250 static htab_t weaken_specific_htab = NULL;
251 static htab_t redefine_specific_htab = NULL;
252 static htab_t redefine_specific_reverse_htab = NULL;
253 static struct addsym_node *add_sym_list = NULL, **add_sym_tail = &add_sym_list;
254 static int add_symbols = 0;
256 /* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
257 static bfd_boolean weaken = FALSE;
259 /* If this is TRUE, we retain BSF_FILE symbols. */
260 static bfd_boolean keep_file_symbols = FALSE;
262 /* Prefix symbols/sections. */
263 static char *prefix_symbols_string = 0;
264 static char *prefix_sections_string = 0;
265 static char *prefix_alloc_sections_string = 0;
267 /* True if --extract-symbol was passed on the command line. */
268 static bfd_boolean extract_symbol = FALSE;
270 /* If `reverse_bytes' is nonzero, then reverse the order of every chunk
271 of <reverse_bytes> bytes within each output section. */
272 static int reverse_bytes = 0;
274 /* For Coff objects, we may want to allow or disallow long section names,
275 or preserve them where found in the inputs. Debug info relies on them. */
276 enum long_section_name_handling
278 DISABLE,
279 ENABLE,
280 KEEP
283 /* The default long section handling mode is to preserve them.
284 This is also the only behaviour for 'strip'. */
285 static enum long_section_name_handling long_section_names = KEEP;
287 /* 150 isn't special; it's just an arbitrary non-ASCII char value. */
288 enum command_line_switch
290 OPTION_ADD_SECTION=150,
291 OPTION_ADD_GNU_DEBUGLINK,
292 OPTION_ADD_SYMBOL,
293 OPTION_ALT_MACH_CODE,
294 OPTION_CHANGE_ADDRESSES,
295 OPTION_CHANGE_LEADING_CHAR,
296 OPTION_CHANGE_SECTION_ADDRESS,
297 OPTION_CHANGE_SECTION_LMA,
298 OPTION_CHANGE_SECTION_VMA,
299 OPTION_CHANGE_START,
300 OPTION_CHANGE_WARNINGS,
301 OPTION_COMPRESS_DEBUG_SECTIONS,
302 OPTION_DEBUGGING,
303 OPTION_DECOMPRESS_DEBUG_SECTIONS,
304 OPTION_DUMP_SECTION,
305 OPTION_ELF_STT_COMMON,
306 OPTION_EXTRACT_DWO,
307 OPTION_EXTRACT_SYMBOL,
308 OPTION_FILE_ALIGNMENT,
309 OPTION_FORMATS_INFO,
310 OPTION_GAP_FILL,
311 OPTION_GLOBALIZE_SYMBOL,
312 OPTION_GLOBALIZE_SYMBOLS,
313 OPTION_HEAP,
314 OPTION_IMAGE_BASE,
315 OPTION_IMPURE,
316 OPTION_INTERLEAVE_WIDTH,
317 OPTION_KEEPGLOBAL_SYMBOLS,
318 OPTION_KEEP_FILE_SYMBOLS,
319 OPTION_KEEP_SYMBOLS,
320 OPTION_LOCALIZE_HIDDEN,
321 OPTION_LOCALIZE_SYMBOLS,
322 OPTION_LONG_SECTION_NAMES,
323 OPTION_MERGE_NOTES,
324 OPTION_NO_MERGE_NOTES,
325 OPTION_NO_CHANGE_WARNINGS,
326 OPTION_ONLY_KEEP_DEBUG,
327 OPTION_PAD_TO,
328 OPTION_PREFIX_ALLOC_SECTIONS,
329 OPTION_PREFIX_SECTIONS,
330 OPTION_PREFIX_SYMBOLS,
331 OPTION_PURE,
332 OPTION_READONLY_TEXT,
333 OPTION_REDEFINE_SYM,
334 OPTION_REDEFINE_SYMS,
335 OPTION_REMOVE_LEADING_CHAR,
336 OPTION_REMOVE_RELOCS,
337 OPTION_RENAME_SECTION,
338 OPTION_REVERSE_BYTES,
339 OPTION_SECTION_ALIGNMENT,
340 OPTION_SET_SECTION_FLAGS,
341 OPTION_SET_START,
342 OPTION_SREC_FORCES3,
343 OPTION_SREC_LEN,
344 OPTION_STACK,
345 OPTION_STRIP_DWO,
346 OPTION_STRIP_SYMBOLS,
347 OPTION_STRIP_UNNEEDED,
348 OPTION_STRIP_UNNEEDED_SYMBOL,
349 OPTION_STRIP_UNNEEDED_SYMBOLS,
350 OPTION_SUBSYSTEM,
351 OPTION_UPDATE_SECTION,
352 OPTION_WEAKEN,
353 OPTION_WEAKEN_SYMBOLS,
354 OPTION_WRITABLE_TEXT
357 /* Options to handle if running as "strip". */
359 static struct option strip_options[] =
361 {"disable-deterministic-archives", no_argument, 0, 'U'},
362 {"discard-all", no_argument, 0, 'x'},
363 {"discard-locals", no_argument, 0, 'X'},
364 {"enable-deterministic-archives", no_argument, 0, 'D'},
365 {"format", required_argument, 0, 'F'}, /* Obsolete */
366 {"help", no_argument, 0, 'h'},
367 {"info", no_argument, 0, OPTION_FORMATS_INFO},
368 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
369 {"input-target", required_argument, 0, 'I'},
370 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
371 {"keep-symbol", required_argument, 0, 'K'},
372 {"merge-notes", no_argument, 0, 'M'},
373 {"no-merge-notes", no_argument, 0, OPTION_NO_MERGE_NOTES},
374 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
375 {"output-file", required_argument, 0, 'o'},
376 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
377 {"output-target", required_argument, 0, 'O'},
378 {"preserve-dates", no_argument, 0, 'p'},
379 {"remove-section", required_argument, 0, 'R'},
380 {"remove-relocations", required_argument, 0, OPTION_REMOVE_RELOCS},
381 {"strip-all", no_argument, 0, 's'},
382 {"strip-debug", no_argument, 0, 'S'},
383 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
384 {"strip-symbol", required_argument, 0, 'N'},
385 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
386 {"target", required_argument, 0, 'F'},
387 {"verbose", no_argument, 0, 'v'},
388 {"version", no_argument, 0, 'V'},
389 {"wildcard", no_argument, 0, 'w'},
390 {0, no_argument, 0, 0}
393 /* Options to handle if running as "objcopy". */
395 static struct option copy_options[] =
397 {"add-gnu-debuglink", required_argument, 0, OPTION_ADD_GNU_DEBUGLINK},
398 {"add-section", required_argument, 0, OPTION_ADD_SECTION},
399 {"add-symbol", required_argument, 0, OPTION_ADD_SYMBOL},
400 {"adjust-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
401 {"adjust-start", required_argument, 0, OPTION_CHANGE_START},
402 {"adjust-vma", required_argument, 0, OPTION_CHANGE_ADDRESSES},
403 {"adjust-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
404 {"alt-machine-code", required_argument, 0, OPTION_ALT_MACH_CODE},
405 {"binary-architecture", required_argument, 0, 'B'},
406 {"byte", required_argument, 0, 'b'},
407 {"change-addresses", required_argument, 0, OPTION_CHANGE_ADDRESSES},
408 {"change-leading-char", no_argument, 0, OPTION_CHANGE_LEADING_CHAR},
409 {"change-section-address", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
410 {"change-section-lma", required_argument, 0, OPTION_CHANGE_SECTION_LMA},
411 {"change-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_VMA},
412 {"change-start", required_argument, 0, OPTION_CHANGE_START},
413 {"change-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
414 {"compress-debug-sections", optional_argument, 0, OPTION_COMPRESS_DEBUG_SECTIONS},
415 {"debugging", no_argument, 0, OPTION_DEBUGGING},
416 {"decompress-debug-sections", no_argument, 0, OPTION_DECOMPRESS_DEBUG_SECTIONS},
417 {"disable-deterministic-archives", no_argument, 0, 'U'},
418 {"discard-all", no_argument, 0, 'x'},
419 {"discard-locals", no_argument, 0, 'X'},
420 {"dump-section", required_argument, 0, OPTION_DUMP_SECTION},
421 {"elf-stt-common", required_argument, 0, OPTION_ELF_STT_COMMON},
422 {"enable-deterministic-archives", no_argument, 0, 'D'},
423 {"extract-dwo", no_argument, 0, OPTION_EXTRACT_DWO},
424 {"extract-symbol", no_argument, 0, OPTION_EXTRACT_SYMBOL},
425 {"file-alignment", required_argument, 0, OPTION_FILE_ALIGNMENT},
426 {"format", required_argument, 0, 'F'}, /* Obsolete */
427 {"gap-fill", required_argument, 0, OPTION_GAP_FILL},
428 {"globalize-symbol", required_argument, 0, OPTION_GLOBALIZE_SYMBOL},
429 {"globalize-symbols", required_argument, 0, OPTION_GLOBALIZE_SYMBOLS},
430 {"heap", required_argument, 0, OPTION_HEAP},
431 {"help", no_argument, 0, 'h'},
432 {"image-base", required_argument, 0 , OPTION_IMAGE_BASE},
433 {"impure", no_argument, 0, OPTION_IMPURE},
434 {"info", no_argument, 0, OPTION_FORMATS_INFO},
435 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
436 {"input-target", required_argument, 0, 'I'},
437 {"interleave", optional_argument, 0, 'i'},
438 {"interleave-width", required_argument, 0, OPTION_INTERLEAVE_WIDTH},
439 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
440 {"keep-global-symbol", required_argument, 0, 'G'},
441 {"keep-global-symbols", required_argument, 0, OPTION_KEEPGLOBAL_SYMBOLS},
442 {"keep-symbol", required_argument, 0, 'K'},
443 {"keep-symbols", required_argument, 0, OPTION_KEEP_SYMBOLS},
444 {"localize-hidden", no_argument, 0, OPTION_LOCALIZE_HIDDEN},
445 {"localize-symbol", required_argument, 0, 'L'},
446 {"localize-symbols", required_argument, 0, OPTION_LOCALIZE_SYMBOLS},
447 {"long-section-names", required_argument, 0, OPTION_LONG_SECTION_NAMES},
448 {"merge-notes", no_argument, 0, 'M'},
449 {"no-merge-notes", no_argument, 0, OPTION_NO_MERGE_NOTES},
450 {"no-adjust-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
451 {"no-change-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
452 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
453 {"only-section", required_argument, 0, 'j'},
454 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
455 {"output-target", required_argument, 0, 'O'},
456 {"pad-to", required_argument, 0, OPTION_PAD_TO},
457 {"prefix-alloc-sections", required_argument, 0, OPTION_PREFIX_ALLOC_SECTIONS},
458 {"prefix-sections", required_argument, 0, OPTION_PREFIX_SECTIONS},
459 {"prefix-symbols", required_argument, 0, OPTION_PREFIX_SYMBOLS},
460 {"preserve-dates", no_argument, 0, 'p'},
461 {"pure", no_argument, 0, OPTION_PURE},
462 {"readonly-text", no_argument, 0, OPTION_READONLY_TEXT},
463 {"redefine-sym", required_argument, 0, OPTION_REDEFINE_SYM},
464 {"redefine-syms", required_argument, 0, OPTION_REDEFINE_SYMS},
465 {"remove-leading-char", no_argument, 0, OPTION_REMOVE_LEADING_CHAR},
466 {"remove-section", required_argument, 0, 'R'},
467 {"remove-relocations", required_argument, 0, OPTION_REMOVE_RELOCS},
468 {"rename-section", required_argument, 0, OPTION_RENAME_SECTION},
469 {"reverse-bytes", required_argument, 0, OPTION_REVERSE_BYTES},
470 {"section-alignment", required_argument, 0, OPTION_SECTION_ALIGNMENT},
471 {"set-section-flags", required_argument, 0, OPTION_SET_SECTION_FLAGS},
472 {"set-start", required_argument, 0, OPTION_SET_START},
473 {"srec-forceS3", no_argument, 0, OPTION_SREC_FORCES3},
474 {"srec-len", required_argument, 0, OPTION_SREC_LEN},
475 {"stack", required_argument, 0, OPTION_STACK},
476 {"strip-all", no_argument, 0, 'S'},
477 {"strip-debug", no_argument, 0, 'g'},
478 {"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
479 {"strip-symbol", required_argument, 0, 'N'},
480 {"strip-symbols", required_argument, 0, OPTION_STRIP_SYMBOLS},
481 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
482 {"strip-unneeded-symbol", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOL},
483 {"strip-unneeded-symbols", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOLS},
484 {"subsystem", required_argument, 0, OPTION_SUBSYSTEM},
485 {"target", required_argument, 0, 'F'},
486 {"update-section", required_argument, 0, OPTION_UPDATE_SECTION},
487 {"verbose", no_argument, 0, 'v'},
488 {"version", no_argument, 0, 'V'},
489 {"weaken", no_argument, 0, OPTION_WEAKEN},
490 {"weaken-symbol", required_argument, 0, 'W'},
491 {"weaken-symbols", required_argument, 0, OPTION_WEAKEN_SYMBOLS},
492 {"wildcard", no_argument, 0, 'w'},
493 {"writable-text", no_argument, 0, OPTION_WRITABLE_TEXT},
494 {0, no_argument, 0, 0}
497 /* IMPORTS */
498 extern char *program_name;
500 /* This flag distinguishes between strip and objcopy:
501 1 means this is 'strip'; 0 means this is 'objcopy'.
502 -1 means if we should use argv[0] to decide. */
503 extern int is_strip;
505 /* The maximum length of an S record. This variable is defined in srec.c
506 and can be modified by the --srec-len parameter. */
507 extern unsigned int _bfd_srec_len;
509 /* Restrict the generation of Srecords to type S3 only.
510 This variable is defined in bfd/srec.c and can be toggled
511 on by the --srec-forceS3 command line switch. */
512 extern bfd_boolean _bfd_srec_forceS3;
514 /* Forward declarations. */
515 static void setup_section (bfd *, asection *, void *);
516 static void setup_bfd_headers (bfd *, bfd *);
517 static void copy_relocations_in_section (bfd *, asection *, void *);
518 static void copy_section (bfd *, asection *, void *);
519 static void get_sections (bfd *, asection *, void *);
520 static int compare_section_lma (const void *, const void *);
521 static void mark_symbols_used_in_relocations (bfd *, asection *, void *);
522 static bfd_boolean write_debugging_info (bfd *, void *, long *, asymbol ***);
523 static const char *lookup_sym_redefinition (const char *);
524 static const char *find_section_rename (const char *, flagword *);
526 ATTRIBUTE_NORETURN static void
527 copy_usage (FILE *stream, int exit_status)
529 fprintf (stream, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name);
530 fprintf (stream, _(" Copies a binary file, possibly transforming it in the process\n"));
531 fprintf (stream, _(" The options are:\n"));
532 fprintf (stream, _("\
533 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
534 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
535 -B --binary-architecture <arch> Set output arch, when input is arch-less\n\
536 -F --target <bfdname> Set both input and output format to <bfdname>\n\
537 --debugging Convert debugging information, if possible\n\
538 -p --preserve-dates Copy modified/access timestamps to the output\n"));
539 if (DEFAULT_AR_DETERMINISTIC)
540 fprintf (stream, _("\
541 -D --enable-deterministic-archives\n\
542 Produce deterministic output when stripping archives (default)\n\
543 -U --disable-deterministic-archives\n\
544 Disable -D behavior\n"));
545 else
546 fprintf (stream, _("\
547 -D --enable-deterministic-archives\n\
548 Produce deterministic output when stripping archives\n\
549 -U --disable-deterministic-archives\n\
550 Disable -D behavior (default)\n"));
551 fprintf (stream, _("\
552 -j --only-section <name> Only copy section <name> into the output\n\
553 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
554 -R --remove-section <name> Remove section <name> from the output\n\
555 --remove-relocations <name> Remove relocations from section <name>\n\
556 -S --strip-all Remove all symbol and relocation information\n\
557 -g --strip-debug Remove all debugging symbols & sections\n\
558 --strip-dwo Remove all DWO sections\n\
559 --strip-unneeded Remove all symbols not needed by relocations\n\
560 -N --strip-symbol <name> Do not copy symbol <name>\n\
561 --strip-unneeded-symbol <name>\n\
562 Do not copy symbol <name> unless needed by\n\
563 relocations\n\
564 --only-keep-debug Strip everything but the debug information\n\
565 --extract-dwo Copy only DWO sections\n\
566 --extract-symbol Remove section contents but keep symbols\n\
567 -K --keep-symbol <name> Do not strip symbol <name>\n\
568 --keep-file-symbols Do not strip file symbol(s)\n\
569 --localize-hidden Turn all ELF hidden symbols into locals\n\
570 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
571 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
572 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
573 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
574 --weaken Force all global symbols to be marked as weak\n\
575 -w --wildcard Permit wildcard in symbol comparison\n\
576 -x --discard-all Remove all non-global symbols\n\
577 -X --discard-locals Remove any compiler-generated symbols\n\
578 -i --interleave[=<number>] Only copy N out of every <number> bytes\n\
579 --interleave-width <number> Set N for --interleave\n\
580 -b --byte <num> Select byte <num> in every interleaved block\n\
581 --gap-fill <val> Fill gaps between sections with <val>\n\
582 --pad-to <addr> Pad the last section up to address <addr>\n\
583 --set-start <addr> Set the start address to <addr>\n\
584 {--change-start|--adjust-start} <incr>\n\
585 Add <incr> to the start address\n\
586 {--change-addresses|--adjust-vma} <incr>\n\
587 Add <incr> to LMA, VMA and start addresses\n\
588 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
589 Change LMA and VMA of section <name> by <val>\n\
590 --change-section-lma <name>{=|+|-}<val>\n\
591 Change the LMA of section <name> by <val>\n\
592 --change-section-vma <name>{=|+|-}<val>\n\
593 Change the VMA of section <name> by <val>\n\
594 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
595 Warn if a named section does not exist\n\
596 --set-section-flags <name>=<flags>\n\
597 Set section <name>'s properties to <flags>\n\
598 --add-section <name>=<file> Add section <name> found in <file> to output\n\
599 --update-section <name>=<file>\n\
600 Update contents of section <name> with\n\
601 contents found in <file>\n\
602 --dump-section <name>=<file> Dump the contents of section <name> into <file>\n\
603 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
604 --long-section-names {enable|disable|keep}\n\
605 Handle long section names in Coff objects.\n\
606 --change-leading-char Force output format's leading character style\n\
607 --remove-leading-char Remove leading character from global symbols\n\
608 --reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
609 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
610 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
611 listed in <file>\n\
612 --srec-len <number> Restrict the length of generated Srecords\n\
613 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
614 --strip-symbols <file> -N for all symbols listed in <file>\n\
615 --strip-unneeded-symbols <file>\n\
616 --strip-unneeded-symbol for all symbols listed\n\
617 in <file>\n\
618 --keep-symbols <file> -K for all symbols listed in <file>\n\
619 --localize-symbols <file> -L for all symbols listed in <file>\n\
620 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
621 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
622 --weaken-symbols <file> -W for all symbols listed in <file>\n\
623 --add-symbol <name>=[<section>:]<value>[,<flags>] Add a symbol\n\
624 --alt-machine-code <index> Use the target's <index>'th alternative machine\n\
625 --writable-text Mark the output text as writable\n\
626 --readonly-text Make the output text write protected\n\
627 --pure Mark the output file as demand paged\n\
628 --impure Mark the output file as impure\n\
629 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
630 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
631 --prefix-alloc-sections <prefix>\n\
632 Add <prefix> to start of every allocatable\n\
633 section name\n\
634 --file-alignment <num> Set PE file alignment to <num>\n\
635 --heap <reserve>[,<commit>] Set PE reserve/commit heap to <reserve>/\n\
636 <commit>\n\
637 --image-base <address> Set PE image base to <address>\n\
638 --section-alignment <num> Set PE section alignment to <num>\n\
639 --stack <reserve>[,<commit>] Set PE reserve/commit stack to <reserve>/\n\
640 <commit>\n\
641 --subsystem <name>[:<version>]\n\
642 Set PE subsystem to <name> [& <version>]\n\
643 --compress-debug-sections[={none|zlib|zlib-gnu|zlib-gabi}]\n\
644 Compress DWARF debug sections using zlib\n\
645 --decompress-debug-sections Decompress DWARF debug sections using zlib\n\
646 --elf-stt-common=[yes|no] Generate ELF common symbols with STT_COMMON\n\
647 type\n\
648 -M --merge-notes Remove redundant entries in note sections\n\
649 --no-merge-notes Do not attempt to remove redundant notes (default)\n\
650 -v --verbose List all object files modified\n\
651 @<file> Read options from <file>\n\
652 -V --version Display this program's version number\n\
653 -h --help Display this output\n\
654 --info List object formats & architectures supported\n\
655 "));
656 list_supported_targets (program_name, stream);
657 if (REPORT_BUGS_TO[0] && exit_status == 0)
658 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
659 exit (exit_status);
662 ATTRIBUTE_NORETURN static void
663 strip_usage (FILE *stream, int exit_status)
665 fprintf (stream, _("Usage: %s <option(s)> in-file(s)\n"), program_name);
666 fprintf (stream, _(" Removes symbols and sections from files\n"));
667 fprintf (stream, _(" The options are:\n"));
668 fprintf (stream, _("\
669 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
670 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
671 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
672 -p --preserve-dates Copy modified/access timestamps to the output\n\
673 "));
674 if (DEFAULT_AR_DETERMINISTIC)
675 fprintf (stream, _("\
676 -D --enable-deterministic-archives\n\
677 Produce deterministic output when stripping archives (default)\n\
678 -U --disable-deterministic-archives\n\
679 Disable -D behavior\n"));
680 else
681 fprintf (stream, _("\
682 -D --enable-deterministic-archives\n\
683 Produce deterministic output when stripping archives\n\
684 -U --disable-deterministic-archives\n\
685 Disable -D behavior (default)\n"));
686 fprintf (stream, _("\
687 -R --remove-section=<name> Also remove section <name> from the output\n\
688 --remove-relocations <name> Remove relocations from section <name>\n\
689 -s --strip-all Remove all symbol and relocation information\n\
690 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
691 --strip-dwo Remove all DWO sections\n\
692 --strip-unneeded Remove all symbols not needed by relocations\n\
693 --only-keep-debug Strip everything but the debug information\n\
694 -M --merge-notes Remove redundant entries in note sections (default)\n\
695 --no-merge-notes Do not attempt to remove redundant notes\n\
696 -N --strip-symbol=<name> Do not copy symbol <name>\n\
697 -K --keep-symbol=<name> Do not strip symbol <name>\n\
698 --keep-file-symbols Do not strip file symbol(s)\n\
699 -w --wildcard Permit wildcard in symbol comparison\n\
700 -x --discard-all Remove all non-global symbols\n\
701 -X --discard-locals Remove any compiler-generated symbols\n\
702 -v --verbose List all object files modified\n\
703 -V --version Display this program's version number\n\
704 -h --help Display this output\n\
705 --info List object formats & architectures supported\n\
706 -o <file> Place stripped output into <file>\n\
707 "));
709 list_supported_targets (program_name, stream);
710 if (REPORT_BUGS_TO[0] && exit_status == 0)
711 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
712 exit (exit_status);
715 /* Parse section flags into a flagword, with a fatal error if the
716 string can't be parsed. */
718 static flagword
719 parse_flags (const char *s)
721 flagword ret;
722 const char *snext;
723 int len;
725 ret = SEC_NO_FLAGS;
729 snext = strchr (s, ',');
730 if (snext == NULL)
731 len = strlen (s);
732 else
734 len = snext - s;
735 ++snext;
738 if (0) ;
739 #define PARSE_FLAG(fname,fval) \
740 else if (strncasecmp (fname, s, len) == 0) ret |= fval
741 PARSE_FLAG ("alloc", SEC_ALLOC);
742 PARSE_FLAG ("load", SEC_LOAD);
743 PARSE_FLAG ("noload", SEC_NEVER_LOAD);
744 PARSE_FLAG ("readonly", SEC_READONLY);
745 PARSE_FLAG ("debug", SEC_DEBUGGING);
746 PARSE_FLAG ("code", SEC_CODE);
747 PARSE_FLAG ("data", SEC_DATA);
748 PARSE_FLAG ("rom", SEC_ROM);
749 PARSE_FLAG ("share", SEC_COFF_SHARED);
750 PARSE_FLAG ("contents", SEC_HAS_CONTENTS);
751 PARSE_FLAG ("merge", SEC_MERGE);
752 PARSE_FLAG ("strings", SEC_STRINGS);
753 #undef PARSE_FLAG
754 else
756 char *copy;
758 copy = (char *) xmalloc (len + 1);
759 strncpy (copy, s, len);
760 copy[len] = '\0';
761 non_fatal (_("unrecognized section flag `%s'"), copy);
762 fatal (_("supported flags: %s"),
763 "alloc, load, noload, readonly, debug, code, data, rom, share, contents, merge, strings");
766 s = snext;
768 while (s != NULL);
770 return ret;
773 /* Parse symbol flags into a flagword, with a fatal error if the
774 string can't be parsed. */
776 static flagword
777 parse_symflags (const char *s, char **other)
779 flagword ret;
780 const char *snext;
781 size_t len;
783 ret = BSF_NO_FLAGS;
787 snext = strchr (s, ',');
788 if (snext == NULL)
789 len = strlen (s);
790 else
792 len = snext - s;
793 ++snext;
796 #define PARSE_FLAG(fname, fval) \
797 else if (len == sizeof fname - 1 \
798 && strncasecmp (fname, s, len) == 0) \
799 ret |= fval
801 #define PARSE_OTHER(fname, fval) \
802 else if (len >= sizeof fname \
803 && strncasecmp (fname, s, sizeof fname - 1) == 0) \
804 fval = xstrndup (s + sizeof fname - 1, len - sizeof fname + 1)
806 if (0) ;
807 PARSE_FLAG ("local", BSF_LOCAL);
808 PARSE_FLAG ("global", BSF_GLOBAL);
809 PARSE_FLAG ("export", BSF_EXPORT);
810 PARSE_FLAG ("debug", BSF_DEBUGGING);
811 PARSE_FLAG ("function", BSF_FUNCTION);
812 PARSE_FLAG ("weak", BSF_WEAK);
813 PARSE_FLAG ("section", BSF_SECTION_SYM);
814 PARSE_FLAG ("constructor", BSF_CONSTRUCTOR);
815 PARSE_FLAG ("warning", BSF_WARNING);
816 PARSE_FLAG ("indirect", BSF_INDIRECT);
817 PARSE_FLAG ("file", BSF_FILE);
818 PARSE_FLAG ("object", BSF_OBJECT);
819 PARSE_FLAG ("synthetic", BSF_SYNTHETIC);
820 PARSE_FLAG ("indirect-function", BSF_GNU_INDIRECT_FUNCTION | BSF_FUNCTION);
821 PARSE_FLAG ("unique-object", BSF_GNU_UNIQUE | BSF_OBJECT);
822 PARSE_OTHER ("before=", *other);
824 #undef PARSE_FLAG
825 #undef PARSE_OTHER
826 else
828 char *copy;
830 copy = (char *) xmalloc (len + 1);
831 strncpy (copy, s, len);
832 copy[len] = '\0';
833 non_fatal (_("unrecognized symbol flag `%s'"), copy);
834 fatal (_("supported flags: %s"),
835 "local, global, export, debug, function, weak, section, "
836 "constructor, warning, indirect, file, object, synthetic, "
837 "indirect-function, unique-object, before=<othersym>");
840 s = snext;
842 while (s != NULL);
844 return ret;
847 /* Find and optionally add an entry in the change_sections list.
849 We need to be careful in how we match section names because of the support
850 for wildcard characters. For example suppose that the user has invoked
851 objcopy like this:
853 --set-section-flags .debug_*=debug
854 --set-section-flags .debug_str=readonly,debug
855 --change-section-address .debug_*ranges=0x1000
857 With the idea that all debug sections will receive the DEBUG flag, the
858 .debug_str section will also receive the READONLY flag and the
859 .debug_ranges and .debug_aranges sections will have their address set to
860 0x1000. (This may not make much sense, but it is just an example).
862 When adding the section name patterns to the section list we need to make
863 sure that previous entries do not match with the new entry, unless the
864 match is exact. (In which case we assume that the user is overriding
865 the previous entry with the new context).
867 When matching real section names to the section list we make use of the
868 wildcard characters, but we must do so in context. Eg if we are setting
869 section addresses then we match for .debug_ranges but not for .debug_info.
871 Finally, if ADD is false and we do find a match, we mark the section list
872 entry as used. */
874 static struct section_list *
875 find_section_list (const char *name, bfd_boolean add, unsigned int context)
877 struct section_list *p, *match = NULL;
879 /* assert ((context & ((1 << 7) - 1)) != 0); */
881 for (p = change_sections; p != NULL; p = p->next)
883 if (add)
885 if (strcmp (p->pattern, name) == 0)
887 /* Check for context conflicts. */
888 if (((p->context & SECTION_CONTEXT_REMOVE)
889 && (context & SECTION_CONTEXT_COPY))
890 || ((context & SECTION_CONTEXT_REMOVE)
891 && (p->context & SECTION_CONTEXT_COPY)))
892 fatal (_("error: %s both copied and removed"), name);
894 if (((p->context & SECTION_CONTEXT_SET_VMA)
895 && (context & SECTION_CONTEXT_ALTER_VMA))
896 || ((context & SECTION_CONTEXT_SET_VMA)
897 && (context & SECTION_CONTEXT_ALTER_VMA)))
898 fatal (_("error: %s both sets and alters VMA"), name);
900 if (((p->context & SECTION_CONTEXT_SET_LMA)
901 && (context & SECTION_CONTEXT_ALTER_LMA))
902 || ((context & SECTION_CONTEXT_SET_LMA)
903 && (context & SECTION_CONTEXT_ALTER_LMA)))
904 fatal (_("error: %s both sets and alters LMA"), name);
906 /* Extend the context. */
907 p->context |= context;
908 return p;
911 /* If we are not adding a new name/pattern then
912 only check for a match if the context applies. */
913 else if (p->context & context)
915 /* We could check for the presence of wildchar characters
916 first and choose between calling strcmp and fnmatch,
917 but is that really worth it ? */
918 if (p->pattern [0] == '!')
920 if (fnmatch (p->pattern + 1, name, 0) == 0)
922 p->used = TRUE;
923 return NULL;
926 else
928 if (fnmatch (p->pattern, name, 0) == 0)
930 if (match == NULL)
931 match = p;
937 if (! add)
939 if (match != NULL)
940 match->used = TRUE;
941 return match;
944 p = (struct section_list *) xmalloc (sizeof (struct section_list));
945 p->pattern = name;
946 p->used = FALSE;
947 p->context = context;
948 p->vma_val = 0;
949 p->lma_val = 0;
950 p->flags = 0;
951 p->next = change_sections;
952 change_sections = p;
954 return p;
957 /* S1 is the entry node already in the table, S2 is the key node. */
959 static int
960 eq_string_redefnode (const void *s1, const void *s2)
962 struct redefine_node *node1 = (struct redefine_node *) s1;
963 struct redefine_node *node2 = (struct redefine_node *) s2;
964 return !strcmp ((const char *) node1->source, (const char *) node2->source);
967 /* P is redefine node. Hash value is generated from its "source" filed. */
969 static hashval_t
970 htab_hash_redefnode (const void *p)
972 struct redefine_node *redefnode = (struct redefine_node *) p;
973 return htab_hash_string (redefnode->source);
976 /* Create hashtab used for redefine node. */
978 static htab_t
979 create_symbol2redef_htab (void)
981 return htab_create_alloc (16, htab_hash_redefnode, eq_string_redefnode, NULL,
982 xcalloc, free);
985 /* There is htab_hash_string but no htab_eq_string. Makes sense. */
987 static int
988 eq_string (const void *s1, const void *s2)
990 return strcmp ((const char *) s1, (const char *) s2) == 0;
993 static htab_t
994 create_symbol_htab (void)
996 return htab_create_alloc (16, htab_hash_string, eq_string, NULL, xcalloc, free);
999 static void
1000 create_symbol_htabs (void)
1002 strip_specific_htab = create_symbol_htab ();
1003 strip_unneeded_htab = create_symbol_htab ();
1004 keep_specific_htab = create_symbol_htab ();
1005 localize_specific_htab = create_symbol_htab ();
1006 globalize_specific_htab = create_symbol_htab ();
1007 keepglobal_specific_htab = create_symbol_htab ();
1008 weaken_specific_htab = create_symbol_htab ();
1009 redefine_specific_htab = create_symbol2redef_htab ();
1010 /* As there is no bidirectional hash table in libiberty, need a reverse table
1011 to check duplicated target string. */
1012 redefine_specific_reverse_htab = create_symbol_htab ();
1015 /* Add a symbol to strip_specific_list. */
1017 static void
1018 add_specific_symbol (const char *name, htab_t htab)
1020 *htab_find_slot (htab, name, INSERT) = (char *) name;
1023 /* Like add_specific_symbol, but the element type is void *. */
1025 static void
1026 add_specific_symbol_node (const void *node, htab_t htab)
1028 *htab_find_slot (htab, node, INSERT) = (void *) node;
1031 /* Add symbols listed in `filename' to strip_specific_list. */
1033 #define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
1034 #define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
1036 static void
1037 add_specific_symbols (const char *filename, htab_t htab)
1039 off_t size;
1040 FILE * f;
1041 char * line;
1042 char * buffer;
1043 unsigned int line_count;
1045 size = get_file_size (filename);
1046 if (size == 0)
1048 status = 1;
1049 return;
1052 buffer = (char *) xmalloc (size + 2);
1053 f = fopen (filename, FOPEN_RT);
1054 if (f == NULL)
1055 fatal (_("cannot open '%s': %s"), filename, strerror (errno));
1057 if (fread (buffer, 1, size, f) == 0 || ferror (f))
1058 fatal (_("%s: fread failed"), filename);
1060 fclose (f);
1061 buffer [size] = '\n';
1062 buffer [size + 1] = '\0';
1064 line_count = 1;
1066 for (line = buffer; * line != '\0'; line ++)
1068 char * eol;
1069 char * name;
1070 char * name_end;
1071 int finished = FALSE;
1073 for (eol = line;; eol ++)
1075 switch (* eol)
1077 case '\n':
1078 * eol = '\0';
1079 /* Cope with \n\r. */
1080 if (eol[1] == '\r')
1081 ++ eol;
1082 finished = TRUE;
1083 break;
1085 case '\r':
1086 * eol = '\0';
1087 /* Cope with \r\n. */
1088 if (eol[1] == '\n')
1089 ++ eol;
1090 finished = TRUE;
1091 break;
1093 case 0:
1094 finished = TRUE;
1095 break;
1097 case '#':
1098 /* Line comment, Terminate the line here, in case a
1099 name is present and then allow the rest of the
1100 loop to find the real end of the line. */
1101 * eol = '\0';
1102 break;
1104 default:
1105 break;
1108 if (finished)
1109 break;
1112 /* A name may now exist somewhere between 'line' and 'eol'.
1113 Strip off leading whitespace and trailing whitespace,
1114 then add it to the list. */
1115 for (name = line; IS_WHITESPACE (* name); name ++)
1117 for (name_end = name;
1118 (! IS_WHITESPACE (* name_end))
1119 && (! IS_LINE_TERMINATOR (* name_end));
1120 name_end ++)
1123 if (! IS_LINE_TERMINATOR (* name_end))
1125 char * extra;
1127 for (extra = name_end + 1; IS_WHITESPACE (* extra); extra ++)
1130 if (! IS_LINE_TERMINATOR (* extra))
1131 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
1132 filename, line_count);
1135 * name_end = '\0';
1137 if (name_end > name)
1138 add_specific_symbol (name, htab);
1140 /* Advance line pointer to end of line. The 'eol ++' in the for
1141 loop above will then advance us to the start of the next line. */
1142 line = eol;
1143 line_count ++;
1147 /* See whether a symbol should be stripped or kept
1148 based on strip_specific_list and keep_symbols. */
1150 static int
1151 is_specified_symbol_predicate (void **slot, void *data)
1153 struct is_specified_symbol_predicate_data *d =
1154 (struct is_specified_symbol_predicate_data *) data;
1155 const char *slot_name = (char *) *slot;
1157 if (*slot_name != '!')
1159 if (! fnmatch (slot_name, d->name, 0))
1161 d->found = TRUE;
1162 /* Continue traversal, there might be a non-match rule. */
1163 return 1;
1166 else
1168 if (! fnmatch (slot_name + 1, d->name, 0))
1170 d->found = FALSE;
1171 /* Stop traversal. */
1172 return 0;
1176 /* Continue traversal. */
1177 return 1;
1180 static bfd_boolean
1181 is_specified_symbol (const char *name, htab_t htab)
1183 if (wildcard)
1185 struct is_specified_symbol_predicate_data data;
1187 data.name = name;
1188 data.found = FALSE;
1190 htab_traverse (htab, is_specified_symbol_predicate, &data);
1192 return data.found;
1195 return htab_find (htab, name) != NULL;
1198 /* Return a pointer to the symbol used as a signature for GROUP. */
1200 static asymbol *
1201 group_signature (asection *group)
1203 bfd *abfd = group->owner;
1204 Elf_Internal_Shdr *ghdr;
1206 /* PR 20089: An earlier error may have prevented us from loading the symbol table. */
1207 if (isympp == NULL)
1208 return NULL;
1210 if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
1211 return NULL;
1213 ghdr = &elf_section_data (group)->this_hdr;
1214 if (ghdr->sh_link < elf_numsections (abfd))
1216 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
1217 Elf_Internal_Shdr *symhdr = elf_elfsections (abfd) [ghdr->sh_link];
1219 if (symhdr->sh_type == SHT_SYMTAB
1220 && ghdr->sh_info > 0
1221 && ghdr->sh_info < (symhdr->sh_size / bed->s->sizeof_sym))
1222 return isympp[ghdr->sh_info - 1];
1224 return NULL;
1227 /* Return TRUE if the section is a DWO section. */
1229 static bfd_boolean
1230 is_dwo_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1232 const char *name = bfd_get_section_name (abfd, sec);
1233 int len = strlen (name);
1235 return strncmp (name + len - 4, ".dwo", 4) == 0;
1238 /* Return TRUE if section SEC is in the update list. */
1240 static bfd_boolean
1241 is_update_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1243 if (update_sections != NULL)
1245 struct section_add *pupdate;
1247 for (pupdate = update_sections;
1248 pupdate != NULL;
1249 pupdate = pupdate->next)
1251 if (strcmp (sec->name, pupdate->name) == 0)
1252 return TRUE;
1256 return FALSE;
1259 static bfd_boolean
1260 is_merged_note_section (bfd * abfd, asection * sec)
1262 if (merge_notes
1263 && bfd_get_flavour (abfd) == bfd_target_elf_flavour
1264 && elf_section_data (sec)->this_hdr.sh_type == SHT_NOTE
1265 /* FIXME: We currently only support merging GNU_BUILD_NOTEs.
1266 We should add support for more note types. */
1267 && ((elf_section_data (sec)->this_hdr.sh_flags & SHF_GNU_BUILD_NOTE) != 0
1268 /* Old versions of GAS (prior to 2.27) could not set the section
1269 flags to OS-specific values, so we also accept sections with the
1270 expected name. */
1271 || (strcmp (sec->name, GNU_BUILD_ATTRS_SECTION_NAME) == 0)))
1272 return TRUE;
1274 return FALSE;
1277 /* See if a non-group section is being removed. */
1279 static bfd_boolean
1280 is_strip_section_1 (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1282 if (sections_removed || sections_copied)
1284 struct section_list *p;
1285 struct section_list *q;
1287 p = find_section_list (bfd_get_section_name (abfd, sec), FALSE,
1288 SECTION_CONTEXT_REMOVE);
1289 q = find_section_list (bfd_get_section_name (abfd, sec), FALSE,
1290 SECTION_CONTEXT_COPY);
1292 if (p && q)
1293 fatal (_("error: section %s matches both remove and copy options"),
1294 bfd_get_section_name (abfd, sec));
1295 if (p && is_update_section (abfd, sec))
1296 fatal (_("error: section %s matches both update and remove options"),
1297 bfd_get_section_name (abfd, sec));
1299 if (p != NULL)
1300 return TRUE;
1301 if (sections_copied && q == NULL)
1302 return TRUE;
1305 if ((bfd_get_section_flags (abfd, sec) & SEC_DEBUGGING) != 0)
1307 if (strip_symbols == STRIP_DEBUG
1308 || strip_symbols == STRIP_UNNEEDED
1309 || strip_symbols == STRIP_ALL
1310 || discard_locals == LOCALS_ALL
1311 || convert_debugging)
1313 /* By default we don't want to strip .reloc section.
1314 This section has for pe-coff special meaning. See
1315 pe-dll.c file in ld, and peXXigen.c in bfd for details. */
1316 if (strcmp (bfd_get_section_name (abfd, sec), ".reloc") != 0)
1317 return TRUE;
1320 if (strip_symbols == STRIP_DWO)
1321 return is_dwo_section (abfd, sec);
1323 if (strip_symbols == STRIP_NONDEBUG)
1324 return FALSE;
1327 if (strip_symbols == STRIP_NONDWO)
1328 return !is_dwo_section (abfd, sec);
1330 return FALSE;
1333 /* See if a section is being removed. */
1335 static bfd_boolean
1336 is_strip_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
1338 if (is_strip_section_1 (abfd, sec))
1339 return TRUE;
1341 if ((bfd_get_section_flags (abfd, sec) & SEC_GROUP) != 0)
1343 asymbol *gsym;
1344 const char *gname;
1345 asection *elt, *first;
1347 /* PR binutils/3181
1348 If we are going to strip the group signature symbol, then
1349 strip the group section too. */
1350 gsym = group_signature (sec);
1351 if (gsym != NULL)
1352 gname = gsym->name;
1353 else
1354 gname = sec->name;
1355 if ((strip_symbols == STRIP_ALL
1356 && !is_specified_symbol (gname, keep_specific_htab))
1357 || is_specified_symbol (gname, strip_specific_htab))
1358 return TRUE;
1360 /* Remove the group section if all members are removed. */
1361 first = elt = elf_next_in_group (sec);
1362 while (elt != NULL)
1364 if (!is_strip_section_1 (abfd, elt))
1365 return FALSE;
1366 elt = elf_next_in_group (elt);
1367 if (elt == first)
1368 break;
1371 return TRUE;
1374 return FALSE;
1377 static bfd_boolean
1378 is_nondebug_keep_contents_section (bfd *ibfd, asection *isection)
1380 /* Always keep ELF note sections. */
1381 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
1382 return (elf_section_type (isection) == SHT_NOTE);
1384 /* Always keep the .buildid section for PE/COFF.
1386 Strictly, this should be written "always keep the section storing the debug
1387 directory", but that may be the .text section for objects produced by some
1388 tools, which it is not sensible to keep. */
1389 if (ibfd->xvec->flavour == bfd_target_coff_flavour)
1390 return (strcmp (bfd_get_section_name (ibfd, isection), ".buildid") == 0);
1392 return FALSE;
1395 /* Return true if SYM is a hidden symbol. */
1397 static bfd_boolean
1398 is_hidden_symbol (asymbol *sym)
1400 elf_symbol_type *elf_sym;
1402 elf_sym = elf_symbol_from (sym->the_bfd, sym);
1403 if (elf_sym != NULL)
1404 switch (ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other))
1406 case STV_HIDDEN:
1407 case STV_INTERNAL:
1408 return TRUE;
1410 return FALSE;
1413 static bfd_boolean
1414 need_sym_before (struct addsym_node **node, const char *sym)
1416 int count;
1417 struct addsym_node *ptr = add_sym_list;
1419 /* 'othersym' symbols are at the front of the list. */
1420 for (count = 0; count < add_symbols; count++)
1422 if (!ptr->othersym)
1423 break;
1424 else if (strcmp (ptr->othersym, sym) == 0)
1426 free (ptr->othersym);
1427 ptr->othersym = ""; /* Empty name is hopefully never a valid symbol name. */
1428 *node = ptr;
1429 return TRUE;
1431 ptr = ptr->next;
1433 return FALSE;
1436 static asymbol *
1437 create_new_symbol (struct addsym_node *ptr, bfd *obfd)
1439 asymbol *sym = bfd_make_empty_symbol (obfd);
1441 bfd_asymbol_name (sym) = ptr->symdef;
1442 sym->value = ptr->symval;
1443 sym->flags = ptr->flags;
1444 if (ptr->section)
1446 asection *sec = bfd_get_section_by_name (obfd, ptr->section);
1447 if (!sec)
1448 fatal (_("Section %s not found"), ptr->section);
1449 sym->section = sec;
1451 else
1452 sym->section = bfd_abs_section_ptr;
1453 return sym;
1456 /* Choose which symbol entries to copy; put the result in OSYMS.
1457 We don't copy in place, because that confuses the relocs.
1458 Return the number of symbols to print. */
1460 static unsigned int
1461 filter_symbols (bfd *abfd, bfd *obfd, asymbol **osyms,
1462 asymbol **isyms, long symcount)
1464 asymbol **from = isyms, **to = osyms;
1465 long src_count = 0, dst_count = 0;
1466 int relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
1468 for (; src_count < symcount; src_count++)
1470 asymbol *sym = from[src_count];
1471 flagword flags = sym->flags;
1472 char *name = (char *) bfd_asymbol_name (sym);
1473 bfd_boolean keep;
1474 bfd_boolean used_in_reloc = FALSE;
1475 bfd_boolean undefined;
1476 bfd_boolean rem_leading_char;
1477 bfd_boolean add_leading_char;
1479 undefined = bfd_is_und_section (bfd_get_section (sym));
1481 if (add_sym_list)
1483 struct addsym_node *ptr;
1485 if (need_sym_before (&ptr, name))
1486 to[dst_count++] = create_new_symbol (ptr, obfd);
1489 if (htab_elements (redefine_specific_htab) || section_rename_list)
1491 char *new_name;
1493 new_name = (char *) lookup_sym_redefinition (name);
1494 if (new_name == name
1495 && (flags & BSF_SECTION_SYM) != 0)
1496 new_name = (char *) find_section_rename (name, NULL);
1497 bfd_asymbol_name (sym) = new_name;
1498 name = new_name;
1501 /* Check if we will remove the current leading character. */
1502 rem_leading_char =
1503 (name[0] == bfd_get_symbol_leading_char (abfd))
1504 && (change_leading_char
1505 || (remove_leading_char
1506 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1507 || undefined
1508 || bfd_is_com_section (bfd_get_section (sym)))));
1510 /* Check if we will add a new leading character. */
1511 add_leading_char =
1512 change_leading_char
1513 && (bfd_get_symbol_leading_char (obfd) != '\0')
1514 && (bfd_get_symbol_leading_char (abfd) == '\0'
1515 || (name[0] == bfd_get_symbol_leading_char (abfd)));
1517 /* Short circuit for change_leading_char if we can do it in-place. */
1518 if (rem_leading_char && add_leading_char && !prefix_symbols_string)
1520 name[0] = bfd_get_symbol_leading_char (obfd);
1521 bfd_asymbol_name (sym) = name;
1522 rem_leading_char = FALSE;
1523 add_leading_char = FALSE;
1526 /* Remove leading char. */
1527 if (rem_leading_char)
1528 bfd_asymbol_name (sym) = ++name;
1530 /* Add new leading char and/or prefix. */
1531 if (add_leading_char || prefix_symbols_string)
1533 char *n, *ptr;
1535 ptr = n = (char *) xmalloc (1 + strlen (prefix_symbols_string)
1536 + strlen (name) + 1);
1537 if (add_leading_char)
1538 *ptr++ = bfd_get_symbol_leading_char (obfd);
1540 if (prefix_symbols_string)
1542 strcpy (ptr, prefix_symbols_string);
1543 ptr += strlen (prefix_symbols_string);
1546 strcpy (ptr, name);
1547 bfd_asymbol_name (sym) = n;
1548 name = n;
1551 if (strip_symbols == STRIP_ALL)
1552 keep = FALSE;
1553 else if ((flags & BSF_KEEP) != 0 /* Used in relocation. */
1554 || ((flags & BSF_SECTION_SYM) != 0
1555 && ((*bfd_get_section (sym)->symbol_ptr_ptr)->flags
1556 & BSF_KEEP) != 0))
1558 keep = TRUE;
1559 used_in_reloc = TRUE;
1561 else if (relocatable /* Relocatable file. */
1562 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
1563 || bfd_is_com_section (bfd_get_section (sym))))
1564 keep = TRUE;
1565 else if (bfd_decode_symclass (sym) == 'I')
1566 /* Global symbols in $idata sections need to be retained
1567 even if relocatable is FALSE. External users of the
1568 library containing the $idata section may reference these
1569 symbols. */
1570 keep = TRUE;
1571 else if ((flags & BSF_GLOBAL) != 0 /* Global symbol. */
1572 || (flags & BSF_WEAK) != 0
1573 || undefined
1574 || bfd_is_com_section (bfd_get_section (sym)))
1575 keep = strip_symbols != STRIP_UNNEEDED;
1576 else if ((flags & BSF_DEBUGGING) != 0) /* Debugging symbol. */
1577 keep = (strip_symbols != STRIP_DEBUG
1578 && strip_symbols != STRIP_UNNEEDED
1579 && ! convert_debugging);
1580 else if (bfd_coff_get_comdat_section (abfd, bfd_get_section (sym)))
1581 /* COMDAT sections store special information in local
1582 symbols, so we cannot risk stripping any of them. */
1583 keep = TRUE;
1584 else /* Local symbol. */
1585 keep = (strip_symbols != STRIP_UNNEEDED
1586 && (discard_locals != LOCALS_ALL
1587 && (discard_locals != LOCALS_START_L
1588 || ! bfd_is_local_label (abfd, sym))));
1590 if (keep && is_specified_symbol (name, strip_specific_htab))
1592 /* There are multiple ways to set 'keep' above, but if it
1593 was the relocatable symbol case, then that's an error. */
1594 if (used_in_reloc)
1596 non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name);
1597 status = 1;
1599 else
1600 keep = FALSE;
1603 if (keep
1604 && !(flags & BSF_KEEP)
1605 && is_specified_symbol (name, strip_unneeded_htab))
1606 keep = FALSE;
1608 if (!keep
1609 && ((keep_file_symbols && (flags & BSF_FILE))
1610 || is_specified_symbol (name, keep_specific_htab)))
1611 keep = TRUE;
1613 if (keep && is_strip_section (abfd, bfd_get_section (sym)))
1614 keep = FALSE;
1616 if (keep)
1618 if ((flags & BSF_GLOBAL) != 0
1619 && (weaken || is_specified_symbol (name, weaken_specific_htab)))
1621 sym->flags &= ~ BSF_GLOBAL;
1622 sym->flags |= BSF_WEAK;
1625 if (!undefined
1626 && (flags & (BSF_GLOBAL | BSF_WEAK))
1627 && (is_specified_symbol (name, localize_specific_htab)
1628 || (htab_elements (keepglobal_specific_htab) != 0
1629 && ! is_specified_symbol (name, keepglobal_specific_htab))
1630 || (localize_hidden && is_hidden_symbol (sym))))
1632 sym->flags &= ~ (BSF_GLOBAL | BSF_WEAK);
1633 sym->flags |= BSF_LOCAL;
1636 if (!undefined
1637 && (flags & BSF_LOCAL)
1638 && is_specified_symbol (name, globalize_specific_htab))
1640 sym->flags &= ~ BSF_LOCAL;
1641 sym->flags |= BSF_GLOBAL;
1644 to[dst_count++] = sym;
1647 if (add_sym_list)
1649 struct addsym_node *ptr = add_sym_list;
1651 for (src_count = 0; src_count < add_symbols; src_count++)
1653 if (ptr->othersym)
1655 if (strcmp (ptr->othersym, ""))
1656 fatal (_("'before=%s' not found"), ptr->othersym);
1658 else
1659 to[dst_count++] = create_new_symbol (ptr, obfd);
1661 ptr = ptr->next;
1665 to[dst_count] = NULL;
1667 return dst_count;
1670 /* Find the redefined name of symbol SOURCE. */
1672 static const char *
1673 lookup_sym_redefinition (const char *source)
1675 struct redefine_node key_node = {(char *) source, NULL};
1676 struct redefine_node *redef_node
1677 = (struct redefine_node *) htab_find (redefine_specific_htab, &key_node);
1679 return redef_node == NULL ? source : redef_node->target;
1682 /* Insert a node into symbol redefine hash tabel. */
1684 static void
1685 add_redefine_and_check (const char *cause, const char *source,
1686 const char *target)
1688 struct redefine_node *new_node
1689 = (struct redefine_node *) xmalloc (sizeof (struct redefine_node));
1691 new_node->source = strdup (source);
1692 new_node->target = strdup (target);
1694 if (htab_find (redefine_specific_htab, new_node) != HTAB_EMPTY_ENTRY)
1695 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
1696 cause, source);
1698 if (htab_find (redefine_specific_reverse_htab, target) != HTAB_EMPTY_ENTRY)
1699 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
1700 cause, target);
1702 /* Insert the NEW_NODE into hash table for quick search. */
1703 add_specific_symbol_node (new_node, redefine_specific_htab);
1705 /* Insert the target string into the reverse hash table, this is needed for
1706 duplicated target string check. */
1707 add_specific_symbol (new_node->target, redefine_specific_reverse_htab);
1711 /* Handle the --redefine-syms option. Read lines containing "old new"
1712 from the file, and add them to the symbol redefine list. */
1714 static void
1715 add_redefine_syms_file (const char *filename)
1717 FILE *file;
1718 char *buf;
1719 size_t bufsize;
1720 size_t len;
1721 size_t outsym_off;
1722 int c, lineno;
1724 file = fopen (filename, "r");
1725 if (file == NULL)
1726 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1727 filename, strerror (errno));
1729 bufsize = 100;
1730 buf = (char *) xmalloc (bufsize + 1 /* For the terminating NUL. */);
1732 lineno = 1;
1733 c = getc (file);
1734 len = 0;
1735 outsym_off = 0;
1736 while (c != EOF)
1738 /* Collect the input symbol name. */
1739 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1741 if (c == '#')
1742 goto comment;
1743 buf[len++] = c;
1744 if (len >= bufsize)
1746 bufsize *= 2;
1747 buf = (char *) xrealloc (buf, bufsize + 1);
1749 c = getc (file);
1751 buf[len++] = '\0';
1752 if (c == EOF)
1753 break;
1755 /* Eat white space between the symbol names. */
1756 while (IS_WHITESPACE (c))
1757 c = getc (file);
1758 if (c == '#' || IS_LINE_TERMINATOR (c))
1759 goto comment;
1760 if (c == EOF)
1761 break;
1763 /* Collect the output symbol name. */
1764 outsym_off = len;
1765 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1767 if (c == '#')
1768 goto comment;
1769 buf[len++] = c;
1770 if (len >= bufsize)
1772 bufsize *= 2;
1773 buf = (char *) xrealloc (buf, bufsize + 1);
1775 c = getc (file);
1777 buf[len++] = '\0';
1778 if (c == EOF)
1779 break;
1781 /* Eat white space at end of line. */
1782 while (! IS_LINE_TERMINATOR(c) && c != EOF && IS_WHITESPACE (c))
1783 c = getc (file);
1784 if (c == '#')
1785 goto comment;
1786 /* Handle \r\n. */
1787 if ((c == '\r' && (c = getc (file)) == '\n')
1788 || c == '\n' || c == EOF)
1790 end_of_line:
1791 /* Append the redefinition to the list. */
1792 if (buf[0] != '\0')
1793 add_redefine_and_check (filename, &buf[0], &buf[outsym_off]);
1795 lineno++;
1796 len = 0;
1797 outsym_off = 0;
1798 if (c == EOF)
1799 break;
1800 c = getc (file);
1801 continue;
1803 else
1804 fatal (_("%s:%d: garbage found at end of line"), filename, lineno);
1805 comment:
1806 if (len != 0 && (outsym_off == 0 || outsym_off == len))
1807 fatal (_("%s:%d: missing new symbol name"), filename, lineno);
1808 buf[len++] = '\0';
1810 /* Eat the rest of the line and finish it. */
1811 while (c != '\n' && c != EOF)
1812 c = getc (file);
1813 goto end_of_line;
1816 if (len != 0)
1817 fatal (_("%s:%d: premature end of file"), filename, lineno);
1819 free (buf);
1822 /* Copy unknown object file IBFD onto OBFD.
1823 Returns TRUE upon success, FALSE otherwise. */
1825 static bfd_boolean
1826 copy_unknown_object (bfd *ibfd, bfd *obfd)
1828 char *cbuf;
1829 int tocopy;
1830 long ncopied;
1831 long size;
1832 struct stat buf;
1834 if (bfd_stat_arch_elt (ibfd, &buf) != 0)
1836 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
1837 return FALSE;
1840 size = buf.st_size;
1841 if (size < 0)
1843 non_fatal (_("stat returns negative size for `%s'"),
1844 bfd_get_archive_filename (ibfd));
1845 return FALSE;
1848 if (bfd_seek (ibfd, (file_ptr) 0, SEEK_SET) != 0)
1850 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1851 return FALSE;
1854 if (verbose)
1855 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1856 bfd_get_archive_filename (ibfd), bfd_get_filename (obfd));
1858 cbuf = (char *) xmalloc (BUFSIZE);
1859 ncopied = 0;
1860 while (ncopied < size)
1862 tocopy = size - ncopied;
1863 if (tocopy > BUFSIZE)
1864 tocopy = BUFSIZE;
1866 if (bfd_bread (cbuf, (bfd_size_type) tocopy, ibfd)
1867 != (bfd_size_type) tocopy)
1869 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
1870 free (cbuf);
1871 return FALSE;
1874 if (bfd_bwrite (cbuf, (bfd_size_type) tocopy, obfd)
1875 != (bfd_size_type) tocopy)
1877 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
1878 free (cbuf);
1879 return FALSE;
1882 ncopied += tocopy;
1885 /* We should at least to be able to read it back when copying an
1886 unknown object in an archive. */
1887 chmod (bfd_get_filename (obfd), buf.st_mode | S_IRUSR);
1888 free (cbuf);
1889 return TRUE;
1892 /* Returns the number of bytes needed to store VAL. */
1894 static inline unsigned int
1895 num_bytes (unsigned long val)
1897 unsigned int count = 0;
1899 /* FIXME: There must be a faster way to do this. */
1900 while (val)
1902 count ++;
1903 val >>= 8;
1905 return count;
1908 /* Merge the notes on SEC, removing redundant entries.
1909 Returns the new, smaller size of the section upon success. */
1911 static bfd_size_type
1912 merge_gnu_build_notes (bfd * abfd, asection * sec, bfd_size_type size, bfd_byte * contents)
1914 Elf_Internal_Note * pnotes_end;
1915 Elf_Internal_Note * pnotes;
1916 Elf_Internal_Note * pnote;
1917 bfd_size_type remain = size;
1918 unsigned version_1_seen = 0;
1919 unsigned version_2_seen = 0;
1920 bfd_boolean duplicate_found = FALSE;
1921 const char * err = NULL;
1922 bfd_byte * in = contents;
1923 int attribute_type_byte;
1924 int val_start;
1926 /* Make a copy of the notes.
1927 Minimum size of a note is 12 bytes. */
1928 pnote = pnotes = (Elf_Internal_Note *) xcalloc ((size / 12), sizeof (Elf_Internal_Note));
1929 while (remain >= 12)
1931 pnote->namesz = (bfd_get_32 (abfd, in ) + 3) & ~3;
1932 pnote->descsz = (bfd_get_32 (abfd, in + 4) + 3) & ~3;
1933 pnote->type = bfd_get_32 (abfd, in + 8);
1935 if (pnote->type != NT_GNU_BUILD_ATTRIBUTE_OPEN
1936 && pnote->type != NT_GNU_BUILD_ATTRIBUTE_FUNC)
1938 err = _("corrupt GNU build attribute note: wrong note type");
1939 goto done;
1942 if (pnote->namesz + pnote->descsz + 12 > remain)
1944 err = _("corrupt GNU build attribute note: note too big");
1945 goto done;
1948 if (pnote->namesz < 2)
1950 err = _("corrupt GNU build attribute note: name too small");
1951 goto done;
1954 if (pnote->descsz != 0
1955 && pnote->descsz != 4
1956 && pnote->descsz != 8)
1958 err = _("corrupt GNU build attribute note: bad description size");
1959 goto done;
1962 pnote->namedata = (char *)(in + 12);
1963 pnote->descdata = (char *)(in + 12 + pnote->namesz);
1965 remain -= 12 + pnote->namesz + pnote->descsz;
1966 in += 12 + pnote->namesz + pnote->descsz;
1968 if (pnote->namedata[pnote->namesz - 1] != 0)
1970 err = _("corrupt GNU build attribute note: name not NUL terminated");
1971 goto done;
1974 if (pnote->namesz > 2
1975 && pnote->namedata[0] == '$'
1976 && pnote->namedata[1] == GNU_BUILD_ATTRIBUTE_VERSION
1977 && pnote->namedata[2] == '1')
1978 ++ version_1_seen;
1979 else if (pnote->namesz > 4
1980 && pnote->namedata[0] == 'G'
1981 && pnote->namedata[1] == 'A'
1982 && pnote->namedata[2] == '$'
1983 && pnote->namedata[3] == GNU_BUILD_ATTRIBUTE_VERSION
1984 && pnote->namedata[4] == '2')
1985 ++ version_2_seen;
1986 pnote ++;
1989 pnotes_end = pnote;
1991 /* Check that the notes are valid. */
1992 if (remain != 0)
1994 err = _("corrupt GNU build attribute notes: excess data at end");
1995 goto done;
1998 if (version_1_seen == 0 && version_2_seen == 0)
2000 err = _("bad GNU build attribute notes: no known versions detected");
2001 goto done;
2004 if (version_1_seen > 0 && version_2_seen > 0)
2006 err = _("bad GNU build attribute notes: multiple different versions");
2007 goto done;
2010 /* Merging is only needed if there is more than one version note... */
2011 if (version_1_seen == 1 || version_2_seen == 1)
2012 goto done;
2014 attribute_type_byte = version_1_seen ? 1 : 3;
2015 val_start = attribute_type_byte + 1;
2017 /* The first note should be the first version note. */
2018 if (pnotes[0].namedata[attribute_type_byte] != GNU_BUILD_ATTRIBUTE_VERSION)
2020 err = _("bad GNU build attribute notes: first note not version note");
2021 goto done;
2024 /* Now merge the notes. The rules are:
2025 1. Preserve the ordering of the notes.
2026 2. Preserve any NT_GNU_BUILD_ATTRIBUTE_FUNC notes.
2027 3. Eliminate any NT_GNU_BUILD_ATTRIBUTE_OPEN notes that have the same
2028 full name field as the immediately preceeding note with the same type
2029 of name.
2030 4. Combine the numeric value of any NT_GNU_BUILD_ATTRIBUTE_OPEN notes
2031 of type GNU_BUILD_ATTRIBUTE_STACK_SIZE.
2032 5. If an NT_GNU_BUILD_ATTRIBUTE_OPEN note is going to be preserved and
2033 its description field is empty then the nearest preceeding OPEN note
2034 with a non-empty description field must also be preserved *OR* the
2035 description field of the note must be changed to contain the starting
2036 address to which it refers. */
2037 for (pnote = pnotes + 1; pnote < pnotes_end; pnote ++)
2039 Elf_Internal_Note * back;
2040 Elf_Internal_Note * prev_open = NULL;
2042 if (pnote->type == NT_GNU_BUILD_ATTRIBUTE_FUNC)
2043 continue;
2045 /* Scan for duplicates. Clear the type field of any found - but do not
2046 delete them just yet. */
2047 for (back = pnote - 1; back >= pnotes; back --)
2049 if (back->descsz > 0
2050 && back->type != NT_GNU_BUILD_ATTRIBUTE_FUNC
2051 && prev_open == NULL)
2052 prev_open = back;
2054 if (back->type == pnote->type
2055 && back->namedata[attribute_type_byte] == pnote->namedata[attribute_type_byte])
2057 if (back->namedata[attribute_type_byte] == GNU_BUILD_ATTRIBUTE_STACK_SIZE)
2059 unsigned char * name;
2060 unsigned long note_val;
2061 unsigned long back_val;
2062 unsigned int shift;
2063 unsigned int bytes;
2064 unsigned long byte;
2066 for (shift = 0, note_val = 0,
2067 bytes = pnote->namesz - val_start,
2068 name = (unsigned char *) pnote->namedata + val_start;
2069 bytes--;)
2071 byte = (* name ++) & 0xff;
2072 note_val |= byte << shift;
2073 shift += 8;
2076 for (shift = 0, back_val = 0,
2077 bytes = back->namesz - val_start,
2078 name = (unsigned char *) back->namedata + val_start;
2079 bytes--;)
2081 byte = (* name ++) & 0xff;
2082 back_val |= byte << shift;
2083 shift += 8;
2086 back_val += note_val;
2087 if (num_bytes (back_val) >= back->namesz - val_start)
2089 /* We have a problem - the new value requires more bytes of
2090 storage in the name field than are available. Currently
2091 we have no way of fixing this, so we just preserve both
2092 notes. */
2093 continue;
2096 /* Write the new val into back. */
2097 name = (unsigned char *) back->namedata + val_start;
2098 while (name < (unsigned char *) back->namedata + back->namesz)
2100 byte = back_val & 0xff;
2101 * name ++ = byte;
2102 if (back_val == 0)
2103 break;
2104 back_val >>= 8;
2107 duplicate_found = TRUE;
2108 pnote->type = 0;
2109 break;
2112 if (back->namesz == pnote->namesz
2113 && memcmp (back->namedata, pnote->namedata, back->namesz) == 0)
2115 duplicate_found = TRUE;
2116 pnote->type = 0;
2117 break;
2120 /* If we have found an attribute match then stop searching backwards. */
2121 if (! ISPRINT (back->namedata[attribute_type_byte])
2122 /* Names are NUL terminated, so this is safe. */
2123 || strcmp (back->namedata + val_start, pnote->namedata + val_start) == 0)
2125 /* Since we are keeping this note we must check to see if its
2126 description refers back to an earlier OPEN version note. If so
2127 then we must make sure that version note is also preserved. */
2128 if (pnote->descsz == 0
2129 && prev_open != NULL
2130 && prev_open->type == 0)
2131 prev_open->type = NT_GNU_BUILD_ATTRIBUTE_FUNC;
2133 break;
2139 if (duplicate_found)
2141 bfd_byte * new_contents;
2142 bfd_byte * old;
2143 bfd_byte * new;
2144 bfd_size_type new_size;
2145 arelent ** relpp = NULL;
2146 long relsize;
2147 long relcount = 0;
2149 relsize = bfd_get_reloc_upper_bound (abfd, sec);
2150 if (relsize > 0)
2152 /* If there are relocs associated with this section then we may
2153 have to adjust them as well, as we remove notes. */
2154 relpp = (arelent **) xmalloc (relsize);
2155 relcount = bfd_canonicalize_reloc (abfd, sec, relpp, isympp);
2156 if (relcount < 0)
2157 /* Do not bother complaining here - copy_relocations_in_section
2158 will do that for us. */
2159 relcount = 0;
2162 /* Eliminate the duplicates. */
2163 new = new_contents = xmalloc (size);
2164 for (pnote = pnotes, old = contents;
2165 pnote < pnotes_end;
2166 pnote ++)
2168 bfd_size_type note_size = 12 + pnote->namesz + pnote->descsz;
2170 if (pnote->type == 0)
2172 if (relcount > 0)
2174 arelent ** rel;
2176 /* If there is a reloc at the current offset, delete it.
2177 Adjust the location of any relocs above the current
2178 location downwards by the size of the note being deleted.
2179 FIXME: We could optimize this loop by retaining a pointer to
2180 the last reloc below the current note. */
2181 for (rel = relpp; rel < relpp + relcount; rel ++)
2183 if ((* rel)->howto == NULL)
2184 continue;
2185 if ((* rel)->address < (bfd_vma) (new - new_contents))
2186 continue;
2187 if ((* rel)->address >= (bfd_vma) ((new + note_size) - new_contents))
2188 (* rel)->address -= note_size;
2189 else
2190 (* rel)->howto = NULL;
2194 else
2196 memcpy (new, old, note_size);
2197 new += note_size;
2200 old += note_size;
2203 new_size = new - new_contents;
2204 memcpy (contents, new_contents, new_size);
2205 size = new_size;
2206 free (new_contents);
2208 if (relcount > 0)
2210 arelent **rel = relpp;
2212 while (rel < relpp + relcount)
2213 if ((*rel)->howto != NULL)
2214 rel++;
2215 else
2217 /* Delete eliminated relocs.
2218 FIXME: There are better ways to do this. */
2219 memmove (rel, rel + 1,
2220 ((relcount - (rel - relpp)) - 1) * sizeof (*rel));
2221 relcount--;
2223 bfd_set_reloc (abfd, sec, relpp, relcount);
2227 done:
2228 if (err)
2230 bfd_set_error (bfd_error_bad_value);
2231 bfd_nonfatal_message (NULL, abfd, sec, err);
2232 status = 1;
2235 free (pnotes);
2236 return size;
2239 /* Copy object file IBFD onto OBFD.
2240 Returns TRUE upon success, FALSE otherwise. */
2242 static bfd_boolean
2243 copy_object (bfd *ibfd, bfd *obfd, const bfd_arch_info_type *input_arch)
2245 bfd_vma start;
2246 long symcount;
2247 asection **osections = NULL;
2248 asection *osec;
2249 asection *gnu_debuglink_section = NULL;
2250 bfd_size_type *gaps = NULL;
2251 bfd_size_type max_gap = 0;
2252 long symsize;
2253 void *dhandle;
2254 enum bfd_architecture iarch;
2255 unsigned int imach;
2256 unsigned int c, i;
2258 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
2259 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
2260 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
2262 /* PR 17636: Call non-fatal so that we return to our parent who
2263 may need to tidy temporary files. */
2264 non_fatal (_("Unable to change endianness of input file(s)"));
2265 return FALSE;
2268 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
2270 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
2271 return FALSE;
2274 if (ibfd->sections == NULL)
2276 non_fatal (_("error: the input file '%s' has no sections"),
2277 bfd_get_archive_filename (ibfd));
2278 return FALSE;
2281 if (ibfd->xvec->flavour != bfd_target_elf_flavour)
2283 if ((do_debug_sections & compress) != 0
2284 && do_debug_sections != compress)
2286 non_fatal (_("--compress-debug-sections=[zlib|zlib-gnu|zlib-gabi] is unsupported on `%s'"),
2287 bfd_get_archive_filename (ibfd));
2288 return FALSE;
2291 if (do_elf_stt_common)
2293 non_fatal (_("--elf-stt-common=[yes|no] is unsupported on `%s'"),
2294 bfd_get_archive_filename (ibfd));
2295 return FALSE;
2299 if (verbose)
2300 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
2301 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
2302 bfd_get_filename (obfd), bfd_get_target (obfd));
2304 if (extract_symbol)
2305 start = 0;
2306 else
2308 if (set_start_set)
2309 start = set_start;
2310 else
2311 start = bfd_get_start_address (ibfd);
2312 start += change_start;
2315 /* Neither the start address nor the flags
2316 need to be set for a core file. */
2317 if (bfd_get_format (obfd) != bfd_core)
2319 flagword flags;
2321 flags = bfd_get_file_flags (ibfd);
2322 flags |= bfd_flags_to_set;
2323 flags &= ~bfd_flags_to_clear;
2324 flags &= bfd_applicable_file_flags (obfd);
2326 if (strip_symbols == STRIP_ALL)
2327 flags &= ~HAS_RELOC;
2329 if (!bfd_set_start_address (obfd, start)
2330 || !bfd_set_file_flags (obfd, flags))
2332 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
2333 return FALSE;
2337 /* Copy architecture of input file to output file. */
2338 iarch = bfd_get_arch (ibfd);
2339 imach = bfd_get_mach (ibfd);
2340 if (input_arch)
2342 if (bfd_get_arch_info (ibfd) == NULL
2343 || bfd_get_arch_info (ibfd)->arch == bfd_arch_unknown)
2345 iarch = input_arch->arch;
2346 imach = input_arch->mach;
2348 else
2349 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
2350 bfd_get_archive_filename (ibfd));
2352 if (!bfd_set_arch_mach (obfd, iarch, imach)
2353 && (ibfd->target_defaulted
2354 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
2356 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
2357 non_fatal (_("Unable to recognise the format of the input file `%s'"),
2358 bfd_get_archive_filename (ibfd));
2359 else
2360 non_fatal (_("Output file cannot represent architecture `%s'"),
2361 bfd_printable_arch_mach (bfd_get_arch (ibfd),
2362 bfd_get_mach (ibfd)));
2363 return FALSE;
2366 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
2368 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
2369 return FALSE;
2372 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
2373 && bfd_pei_p (obfd))
2375 /* Set up PE parameters. */
2376 pe_data_type *pe = pe_data (obfd);
2378 /* Copy PE parameters before changing them. */
2379 if (ibfd->xvec->flavour == bfd_target_coff_flavour
2380 && bfd_pei_p (ibfd))
2381 pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
2383 if (pe_file_alignment != (bfd_vma) -1)
2384 pe->pe_opthdr.FileAlignment = pe_file_alignment;
2385 else
2386 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
2388 if (pe_heap_commit != (bfd_vma) -1)
2389 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
2391 if (pe_heap_reserve != (bfd_vma) -1)
2392 pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
2394 if (pe_image_base != (bfd_vma) -1)
2395 pe->pe_opthdr.ImageBase = pe_image_base;
2397 if (pe_section_alignment != (bfd_vma) -1)
2398 pe->pe_opthdr.SectionAlignment = pe_section_alignment;
2399 else
2400 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
2402 if (pe_stack_commit != (bfd_vma) -1)
2403 pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
2405 if (pe_stack_reserve != (bfd_vma) -1)
2406 pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
2408 if (pe_subsystem != -1)
2409 pe->pe_opthdr.Subsystem = pe_subsystem;
2411 if (pe_major_subsystem_version != -1)
2412 pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
2414 if (pe_minor_subsystem_version != -1)
2415 pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
2417 if (pe_file_alignment > pe_section_alignment)
2419 char file_alignment[20], section_alignment[20];
2421 sprintf_vma (file_alignment, pe_file_alignment);
2422 sprintf_vma (section_alignment, pe_section_alignment);
2423 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
2425 file_alignment, section_alignment);
2429 if (isympp)
2430 free (isympp);
2432 if (osympp != isympp)
2433 free (osympp);
2435 isympp = NULL;
2436 osympp = NULL;
2438 symsize = bfd_get_symtab_upper_bound (ibfd);
2439 if (symsize < 0)
2441 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
2442 return FALSE;
2445 osympp = isympp = (asymbol **) xmalloc (symsize);
2446 symcount = bfd_canonicalize_symtab (ibfd, isympp);
2447 if (symcount < 0)
2449 bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
2450 return FALSE;
2452 /* PR 17512: file: d6323821
2453 If the symbol table could not be loaded do not pretend that we have
2454 any symbols. This trips us up later on when we load the relocs. */
2455 if (symcount == 0)
2457 free (isympp);
2458 osympp = isympp = NULL;
2461 /* BFD mandates that all output sections be created and sizes set before
2462 any output is done. Thus, we traverse all sections multiple times. */
2463 bfd_map_over_sections (ibfd, setup_section, obfd);
2465 if (!extract_symbol)
2466 setup_bfd_headers (ibfd, obfd);
2468 if (add_sections != NULL)
2470 struct section_add *padd;
2471 struct section_list *pset;
2473 for (padd = add_sections; padd != NULL; padd = padd->next)
2475 flagword flags;
2477 pset = find_section_list (padd->name, FALSE,
2478 SECTION_CONTEXT_SET_FLAGS);
2479 if (pset != NULL)
2480 flags = pset->flags | SEC_HAS_CONTENTS;
2481 else
2482 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
2484 /* bfd_make_section_with_flags() does not return very helpful
2485 error codes, so check for the most likely user error first. */
2486 if (bfd_get_section_by_name (obfd, padd->name))
2488 bfd_nonfatal_message (NULL, obfd, NULL,
2489 _("can't add section '%s'"), padd->name);
2490 return FALSE;
2492 else
2494 /* We use LINKER_CREATED here so that the backend hooks
2495 will create any special section type information,
2496 instead of presuming we know what we're doing merely
2497 because we set the flags. */
2498 padd->section = bfd_make_section_with_flags
2499 (obfd, padd->name, flags | SEC_LINKER_CREATED);
2500 if (padd->section == NULL)
2502 bfd_nonfatal_message (NULL, obfd, NULL,
2503 _("can't create section `%s'"),
2504 padd->name);
2505 return FALSE;
2509 if (! bfd_set_section_size (obfd, padd->section, padd->size))
2511 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2512 return FALSE;
2515 pset = find_section_list (padd->name, FALSE,
2516 SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA);
2517 if (pset != NULL
2518 && ! bfd_set_section_vma (obfd, padd->section, pset->vma_val))
2520 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2521 return FALSE;
2524 pset = find_section_list (padd->name, FALSE,
2525 SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA);
2526 if (pset != NULL)
2528 padd->section->lma = pset->lma_val;
2530 if (! bfd_set_section_alignment
2531 (obfd, padd->section,
2532 bfd_section_alignment (obfd, padd->section)))
2534 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2535 return FALSE;
2541 if (update_sections != NULL)
2543 struct section_add *pupdate;
2545 for (pupdate = update_sections;
2546 pupdate != NULL;
2547 pupdate = pupdate->next)
2549 pupdate->section = bfd_get_section_by_name (ibfd, pupdate->name);
2550 if (pupdate->section == NULL)
2552 non_fatal (_("error: %s not found, can't be updated"), pupdate->name);
2553 return FALSE;
2556 osec = pupdate->section->output_section;
2557 if (! bfd_set_section_size (obfd, osec, pupdate->size))
2559 bfd_nonfatal_message (NULL, obfd, osec, NULL);
2560 return FALSE;
2565 if (merge_notes)
2567 /* This palaver is necessary because we must set the output
2568 section size first, before its contents are ready. */
2569 osec = bfd_get_section_by_name (ibfd, GNU_BUILD_ATTRS_SECTION_NAME);
2570 if (osec && is_merged_note_section (ibfd, osec))
2572 bfd_size_type size;
2574 size = bfd_get_section_size (osec);
2575 if (size == 0)
2577 bfd_nonfatal_message (NULL, ibfd, osec, _("warning: note section is empty"));
2578 merge_notes = FALSE;
2580 else if (! bfd_get_full_section_contents (ibfd, osec, & merged_notes))
2582 bfd_nonfatal_message (NULL, ibfd, osec, _("warning: could not load note section"));
2583 free (merged_notes);
2584 merged_notes = NULL;
2585 merge_notes = FALSE;
2587 else
2589 merged_size = merge_gnu_build_notes (ibfd, osec, size, merged_notes);
2590 if (merged_size == size)
2592 /* Merging achieves nothing. */
2593 free (merged_notes);
2594 merged_notes = NULL;
2595 merge_notes = FALSE;
2596 merged_size = 0;
2598 else
2600 if (osec->output_section == NULL
2601 || ! bfd_set_section_size (obfd, osec->output_section, merged_size))
2603 bfd_nonfatal_message (NULL, obfd, osec, _("warning: failed to set merged notes size"));
2604 free (merged_notes);
2605 merged_notes = NULL;
2606 merge_notes = FALSE;
2607 merged_size = 0;
2614 if (dump_sections != NULL)
2616 struct section_add * pdump;
2618 for (pdump = dump_sections; pdump != NULL; pdump = pdump->next)
2620 osec = bfd_get_section_by_name (ibfd, pdump->name);
2621 if (osec == NULL)
2623 bfd_nonfatal_message (NULL, ibfd, NULL,
2624 _("can't dump section '%s' - it does not exist"),
2625 pdump->name);
2626 continue;
2629 if ((bfd_get_section_flags (ibfd, osec) & SEC_HAS_CONTENTS) == 0)
2631 bfd_nonfatal_message (NULL, ibfd, osec,
2632 _("can't dump section - it has no contents"));
2633 continue;
2636 bfd_size_type size = bfd_get_section_size (osec);
2637 if (size == 0)
2639 bfd_nonfatal_message (NULL, ibfd, osec,
2640 _("can't dump section - it is empty"));
2641 continue;
2644 FILE * f;
2645 f = fopen (pdump->filename, FOPEN_WB);
2646 if (f == NULL)
2648 bfd_nonfatal_message (pdump->filename, NULL, NULL,
2649 _("could not open section dump file"));
2650 continue;
2653 bfd_byte *contents;
2654 if (bfd_malloc_and_get_section (ibfd, osec, &contents))
2656 if (fwrite (contents, 1, size, f) != size)
2658 non_fatal (_("error writing section contents to %s (error: %s)"),
2659 pdump->filename,
2660 strerror (errno));
2661 free (contents);
2662 return FALSE;
2665 else
2666 bfd_nonfatal_message (NULL, ibfd, osec,
2667 _("could not retrieve section contents"));
2669 fclose (f);
2670 free (contents);
2674 if (gnu_debuglink_filename != NULL)
2676 /* PR 15125: Give a helpful warning message if
2677 the debuglink section already exists, and
2678 allow the rest of the copy to complete. */
2679 if (bfd_get_section_by_name (obfd, ".gnu_debuglink"))
2681 non_fatal (_("%s: debuglink section already exists"),
2682 bfd_get_filename (obfd));
2683 gnu_debuglink_filename = NULL;
2685 else
2687 gnu_debuglink_section = bfd_create_gnu_debuglink_section
2688 (obfd, gnu_debuglink_filename);
2690 if (gnu_debuglink_section == NULL)
2692 bfd_nonfatal_message (NULL, obfd, NULL,
2693 _("cannot create debug link section `%s'"),
2694 gnu_debuglink_filename);
2695 return FALSE;
2698 /* Special processing for PE format files. We
2699 have no way to distinguish PE from COFF here. */
2700 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
2702 bfd_vma debuglink_vma;
2703 asection * highest_section;
2705 /* The PE spec requires that all sections be adjacent and sorted
2706 in ascending order of VMA. It also specifies that debug
2707 sections should be last. This is despite the fact that debug
2708 sections are not loaded into memory and so in theory have no
2709 use for a VMA.
2711 This means that the debuglink section must be given a non-zero
2712 VMA which makes it contiguous with other debug sections. So
2713 walk the current section list, find the section with the
2714 highest VMA and start the debuglink section after that one. */
2715 for (osec = obfd->sections, highest_section = NULL;
2716 osec != NULL;
2717 osec = osec->next)
2718 if (osec->vma > 0
2719 && (highest_section == NULL
2720 || osec->vma > highest_section->vma))
2721 highest_section = osec;
2723 if (highest_section)
2724 debuglink_vma = BFD_ALIGN (highest_section->vma
2725 + highest_section->size,
2726 /* FIXME: We ought to be using
2727 COFF_PAGE_SIZE here or maybe
2728 bfd_get_section_alignment() (if it
2729 was set) but since this is for PE
2730 and we know the required alignment
2731 it is easier just to hard code it. */
2732 0x1000);
2733 else
2734 /* Umm, not sure what to do in this case. */
2735 debuglink_vma = 0x1000;
2737 bfd_set_section_vma (obfd, gnu_debuglink_section, debuglink_vma);
2742 c = bfd_count_sections (obfd);
2743 if (c != 0
2744 && (gap_fill_set || pad_to_set))
2746 asection **set;
2748 /* We must fill in gaps between the sections and/or we must pad
2749 the last section to a specified address. We do this by
2750 grabbing a list of the sections, sorting them by VMA, and
2751 increasing the section sizes as required to fill the gaps.
2752 We write out the gap contents below. */
2754 osections = (asection **) xmalloc (c * sizeof (asection *));
2755 set = osections;
2756 bfd_map_over_sections (obfd, get_sections, &set);
2758 qsort (osections, c, sizeof (asection *), compare_section_lma);
2760 gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
2761 memset (gaps, 0, c * sizeof (bfd_size_type));
2763 if (gap_fill_set)
2765 for (i = 0; i < c - 1; i++)
2767 flagword flags;
2768 bfd_size_type size;
2769 bfd_vma gap_start, gap_stop;
2771 flags = bfd_get_section_flags (obfd, osections[i]);
2772 if ((flags & SEC_HAS_CONTENTS) == 0
2773 || (flags & SEC_LOAD) == 0)
2774 continue;
2776 size = bfd_section_size (obfd, osections[i]);
2777 gap_start = bfd_section_lma (obfd, osections[i]) + size;
2778 gap_stop = bfd_section_lma (obfd, osections[i + 1]);
2779 if (gap_start < gap_stop)
2781 if (! bfd_set_section_size (obfd, osections[i],
2782 size + (gap_stop - gap_start)))
2784 bfd_nonfatal_message (NULL, obfd, osections[i],
2785 _("Can't fill gap after section"));
2786 status = 1;
2787 break;
2789 gaps[i] = gap_stop - gap_start;
2790 if (max_gap < gap_stop - gap_start)
2791 max_gap = gap_stop - gap_start;
2796 if (pad_to_set)
2798 bfd_vma lma;
2799 bfd_size_type size;
2801 lma = bfd_section_lma (obfd, osections[c - 1]);
2802 size = bfd_section_size (obfd, osections[c - 1]);
2803 if (lma + size < pad_to)
2805 if (! bfd_set_section_size (obfd, osections[c - 1],
2806 pad_to - lma))
2808 bfd_nonfatal_message (NULL, obfd, osections[c - 1],
2809 _("can't add padding"));
2810 status = 1;
2812 else
2814 gaps[c - 1] = pad_to - (lma + size);
2815 if (max_gap < pad_to - (lma + size))
2816 max_gap = pad_to - (lma + size);
2822 /* Symbol filtering must happen after the output sections
2823 have been created, but before their contents are set. */
2824 dhandle = NULL;
2825 if (convert_debugging)
2826 dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
2828 if (strip_symbols == STRIP_DEBUG
2829 || strip_symbols == STRIP_ALL
2830 || strip_symbols == STRIP_UNNEEDED
2831 || strip_symbols == STRIP_NONDEBUG
2832 || strip_symbols == STRIP_DWO
2833 || strip_symbols == STRIP_NONDWO
2834 || discard_locals != LOCALS_UNDEF
2835 || localize_hidden
2836 || htab_elements (strip_specific_htab) != 0
2837 || htab_elements (keep_specific_htab) != 0
2838 || htab_elements (localize_specific_htab) != 0
2839 || htab_elements (globalize_specific_htab) != 0
2840 || htab_elements (keepglobal_specific_htab) != 0
2841 || htab_elements (weaken_specific_htab) != 0
2842 || htab_elements (redefine_specific_htab) != 0
2843 || prefix_symbols_string
2844 || sections_removed
2845 || sections_copied
2846 || convert_debugging
2847 || change_leading_char
2848 || remove_leading_char
2849 || section_rename_list
2850 || weaken
2851 || add_symbols)
2853 /* Mark symbols used in output relocations so that they
2854 are kept, even if they are local labels or static symbols.
2856 Note we iterate over the input sections examining their
2857 relocations since the relocations for the output sections
2858 haven't been set yet. mark_symbols_used_in_relocations will
2859 ignore input sections which have no corresponding output
2860 section. */
2861 if (strip_symbols != STRIP_ALL)
2862 bfd_map_over_sections (ibfd,
2863 mark_symbols_used_in_relocations,
2864 isympp);
2865 osympp = (asymbol **) xmalloc ((symcount + add_symbols + 1) * sizeof (asymbol *));
2866 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
2869 if (convert_debugging && dhandle != NULL)
2871 if (! write_debugging_info (obfd, dhandle, &symcount, &osympp))
2873 status = 1;
2874 return FALSE;
2878 bfd_set_symtab (obfd, osympp, symcount);
2880 /* This has to happen before section positions are set. */
2881 bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
2883 /* This has to happen after the symbol table has been set. */
2884 bfd_map_over_sections (ibfd, copy_section, obfd);
2886 if (add_sections != NULL)
2888 struct section_add *padd;
2890 for (padd = add_sections; padd != NULL; padd = padd->next)
2892 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
2893 0, padd->size))
2895 bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
2896 return FALSE;
2901 if (update_sections != NULL)
2903 struct section_add *pupdate;
2905 for (pupdate = update_sections;
2906 pupdate != NULL;
2907 pupdate = pupdate->next)
2909 osec = pupdate->section->output_section;
2910 if (! bfd_set_section_contents (obfd, osec, pupdate->contents,
2911 0, pupdate->size))
2913 bfd_nonfatal_message (NULL, obfd, osec, NULL);
2914 return FALSE;
2919 if (merge_notes)
2921 osec = bfd_get_section_by_name (obfd, GNU_BUILD_ATTRS_SECTION_NAME);
2922 if (osec && is_merged_note_section (obfd, osec))
2924 if (! bfd_set_section_contents (obfd, osec, merged_notes, 0, merged_size))
2926 bfd_nonfatal_message (NULL, obfd, osec, _("error: failed to copy merged notes into output"));
2927 return FALSE;
2930 else if (! is_strip)
2931 bfd_nonfatal_message (NULL, obfd, osec, _("could not find any mergeable note sections"));
2932 free (merged_notes);
2933 merged_notes = NULL;
2934 merge_notes = FALSE;
2937 if (gnu_debuglink_filename != NULL)
2939 if (! bfd_fill_in_gnu_debuglink_section
2940 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
2942 bfd_nonfatal_message (NULL, obfd, NULL,
2943 _("cannot fill debug link section `%s'"),
2944 gnu_debuglink_filename);
2945 return FALSE;
2949 if (gap_fill_set || pad_to_set)
2951 bfd_byte *buf;
2953 /* Fill in the gaps. */
2954 if (max_gap > 8192)
2955 max_gap = 8192;
2956 buf = (bfd_byte *) xmalloc (max_gap);
2957 memset (buf, gap_fill, max_gap);
2959 c = bfd_count_sections (obfd);
2960 for (i = 0; i < c; i++)
2962 if (gaps[i] != 0)
2964 bfd_size_type left;
2965 file_ptr off;
2967 left = gaps[i];
2968 off = bfd_section_size (obfd, osections[i]) - left;
2970 while (left > 0)
2972 bfd_size_type now;
2974 if (left > 8192)
2975 now = 8192;
2976 else
2977 now = left;
2979 if (! bfd_set_section_contents (obfd, osections[i], buf,
2980 off, now))
2982 bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
2983 return FALSE;
2986 left -= now;
2987 off += now;
2993 /* Allow the BFD backend to copy any private data it understands
2994 from the input BFD to the output BFD. This is done last to
2995 permit the routine to look at the filtered symbol table, which is
2996 important for the ECOFF code at least. */
2997 if (! bfd_copy_private_bfd_data (ibfd, obfd))
2999 bfd_nonfatal_message (NULL, obfd, NULL,
3000 _("error copying private BFD data"));
3001 return FALSE;
3004 /* Switch to the alternate machine code. We have to do this at the
3005 very end, because we only initialize the header when we create
3006 the first section. */
3007 if (use_alt_mach_code != 0)
3009 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
3011 non_fatal (_("this target does not support %lu alternative machine codes"),
3012 use_alt_mach_code);
3013 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3015 non_fatal (_("treating that number as an absolute e_machine value instead"));
3016 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
3018 else
3019 non_fatal (_("ignoring the alternative value"));
3023 return TRUE;
3026 /* Read each archive element in turn from IBFD, copy the
3027 contents to temp file, and keep the temp file handle.
3028 If 'force_output_target' is TRUE then make sure that
3029 all elements in the new archive are of the type
3030 'output_target'. */
3032 static void
3033 copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
3034 bfd_boolean force_output_target,
3035 const bfd_arch_info_type *input_arch)
3037 struct name_list
3039 struct name_list *next;
3040 const char *name;
3041 bfd *obfd;
3042 } *list, *l;
3043 bfd **ptr = &obfd->archive_head;
3044 bfd *this_element;
3045 char *dir;
3046 const char *filename;
3048 /* Make a temp directory to hold the contents. */
3049 dir = make_tempdir (bfd_get_filename (obfd));
3050 if (dir == NULL)
3051 fatal (_("cannot create tempdir for archive copying (error: %s)"),
3052 strerror (errno));
3054 if (strip_symbols == STRIP_ALL)
3055 obfd->has_armap = FALSE;
3056 else
3057 obfd->has_armap = ibfd->has_armap;
3058 obfd->is_thin_archive = ibfd->is_thin_archive;
3060 if (deterministic)
3061 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
3063 list = NULL;
3065 this_element = bfd_openr_next_archived_file (ibfd, NULL);
3067 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
3069 status = 1;
3070 bfd_nonfatal_message (NULL, obfd, NULL, NULL);
3071 goto cleanup_and_exit;
3074 while (!status && this_element != NULL)
3076 char *output_name;
3077 bfd *output_bfd;
3078 bfd *last_element;
3079 struct stat buf;
3080 int stat_status = 0;
3081 bfd_boolean del = TRUE;
3082 bfd_boolean ok_object;
3084 /* PR binutils/17533: Do not allow directory traversal
3085 outside of the current directory tree by archive members. */
3086 if (! is_valid_archive_path (bfd_get_filename (this_element)))
3088 non_fatal (_("illegal pathname found in archive member: %s"),
3089 bfd_get_filename (this_element));
3090 status = 1;
3091 goto cleanup_and_exit;
3094 /* Create an output file for this member. */
3095 output_name = concat (dir, "/",
3096 bfd_get_filename (this_element), (char *) 0);
3098 /* If the file already exists, make another temp dir. */
3099 if (stat (output_name, &buf) >= 0)
3101 output_name = make_tempdir (output_name);
3102 if (output_name == NULL)
3104 non_fatal (_("cannot create tempdir for archive copying (error: %s)"),
3105 strerror (errno));
3106 status = 1;
3107 goto cleanup_and_exit;
3110 l = (struct name_list *) xmalloc (sizeof (struct name_list));
3111 l->name = output_name;
3112 l->next = list;
3113 l->obfd = NULL;
3114 list = l;
3115 output_name = concat (output_name, "/",
3116 bfd_get_filename (this_element), (char *) 0);
3119 if (preserve_dates)
3121 stat_status = bfd_stat_arch_elt (this_element, &buf);
3123 if (stat_status != 0)
3124 non_fatal (_("internal stat error on %s"),
3125 bfd_get_filename (this_element));
3128 l = (struct name_list *) xmalloc (sizeof (struct name_list));
3129 l->name = output_name;
3130 l->next = list;
3131 l->obfd = NULL;
3132 list = l;
3134 ok_object = bfd_check_format (this_element, bfd_object);
3135 if (!ok_object)
3136 bfd_nonfatal_message (NULL, this_element, NULL,
3137 _("Unable to recognise the format of file"));
3139 /* PR binutils/3110: Cope with archives
3140 containing multiple target types. */
3141 if (force_output_target || !ok_object)
3142 output_bfd = bfd_openw (output_name, output_target);
3143 else
3144 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
3146 if (output_bfd == NULL)
3148 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
3149 status = 1;
3150 goto cleanup_and_exit;
3153 if (ok_object)
3155 del = !copy_object (this_element, output_bfd, input_arch);
3157 if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
3158 /* Try again as an unknown object file. */
3159 ok_object = FALSE;
3160 else if (!bfd_close (output_bfd))
3162 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
3163 /* Error in new object file. Don't change archive. */
3164 status = 1;
3168 if (!ok_object)
3170 del = !copy_unknown_object (this_element, output_bfd);
3171 if (!bfd_close_all_done (output_bfd))
3173 bfd_nonfatal_message (output_name, NULL, NULL, NULL);
3174 /* Error in new object file. Don't change archive. */
3175 status = 1;
3179 if (del)
3181 unlink (output_name);
3182 status = 1;
3184 else
3186 if (preserve_dates && stat_status == 0)
3187 set_times (output_name, &buf);
3189 /* Open the newly output file and attach to our list. */
3190 output_bfd = bfd_openr (output_name, output_target);
3192 l->obfd = output_bfd;
3194 *ptr = output_bfd;
3195 ptr = &output_bfd->archive_next;
3197 last_element = this_element;
3199 this_element = bfd_openr_next_archived_file (ibfd, last_element);
3201 bfd_close (last_element);
3204 *ptr = NULL;
3206 filename = bfd_get_filename (obfd);
3207 if (!bfd_close (obfd))
3209 status = 1;
3210 bfd_nonfatal_message (filename, NULL, NULL, NULL);
3213 filename = bfd_get_filename (ibfd);
3214 if (!bfd_close (ibfd))
3216 status = 1;
3217 bfd_nonfatal_message (filename, NULL, NULL, NULL);
3220 cleanup_and_exit:
3221 /* Delete all the files that we opened. */
3222 for (l = list; l != NULL; l = l->next)
3224 if (l->obfd == NULL)
3225 rmdir (l->name);
3226 else
3228 bfd_close (l->obfd);
3229 unlink (l->name);
3233 rmdir (dir);
3236 static void
3237 set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
3239 /* This is only relevant to Coff targets. */
3240 if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
3242 if (style == KEEP
3243 && bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
3244 style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
3245 bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
3249 /* The top-level control. */
3251 static void
3252 copy_file (const char *input_filename, const char *output_filename,
3253 const char *input_target, const char *output_target,
3254 const bfd_arch_info_type *input_arch)
3256 bfd *ibfd;
3257 char **obj_matching;
3258 char **core_matching;
3259 off_t size = get_file_size (input_filename);
3261 if (size < 1)
3263 if (size == 0)
3264 non_fatal (_("error: the input file '%s' is empty"),
3265 input_filename);
3266 status = 1;
3267 return;
3270 /* To allow us to do "strip *" without dying on the first
3271 non-object file, failures are nonfatal. */
3272 ibfd = bfd_openr (input_filename, input_target);
3273 if (ibfd == NULL)
3275 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3276 status = 1;
3277 return;
3280 switch (do_debug_sections)
3282 case compress:
3283 case compress_zlib:
3284 case compress_gnu_zlib:
3285 case compress_gabi_zlib:
3286 ibfd->flags |= BFD_COMPRESS;
3287 /* Don't check if input is ELF here since this information is
3288 only available after bfd_check_format_matches is called. */
3289 if (do_debug_sections != compress_gnu_zlib)
3290 ibfd->flags |= BFD_COMPRESS_GABI;
3291 break;
3292 case decompress:
3293 ibfd->flags |= BFD_DECOMPRESS;
3294 break;
3295 default:
3296 break;
3299 switch (do_elf_stt_common)
3301 case elf_stt_common:
3302 ibfd->flags |= BFD_CONVERT_ELF_COMMON | BFD_USE_ELF_STT_COMMON;
3303 break;
3304 break;
3305 case no_elf_stt_common:
3306 ibfd->flags |= BFD_CONVERT_ELF_COMMON;
3307 break;
3308 default:
3309 break;
3312 if (bfd_check_format (ibfd, bfd_archive))
3314 bfd_boolean force_output_target;
3315 bfd *obfd;
3317 /* bfd_get_target does not return the correct value until
3318 bfd_check_format succeeds. */
3319 if (output_target == NULL)
3321 output_target = bfd_get_target (ibfd);
3322 force_output_target = FALSE;
3324 else
3325 force_output_target = TRUE;
3327 obfd = bfd_openw (output_filename, output_target);
3328 if (obfd == NULL)
3330 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3331 status = 1;
3332 return;
3334 /* This is a no-op on non-Coff targets. */
3335 set_long_section_mode (obfd, ibfd, long_section_names);
3337 copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
3339 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
3341 bfd *obfd;
3342 do_copy:
3344 /* bfd_get_target does not return the correct value until
3345 bfd_check_format succeeds. */
3346 if (output_target == NULL)
3347 output_target = bfd_get_target (ibfd);
3349 obfd = bfd_openw (output_filename, output_target);
3350 if (obfd == NULL)
3352 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3353 status = 1;
3354 return;
3356 /* This is a no-op on non-Coff targets. */
3357 set_long_section_mode (obfd, ibfd, long_section_names);
3359 if (! copy_object (ibfd, obfd, input_arch))
3360 status = 1;
3362 /* PR 17512: file: 0f15796a.
3363 If the file could not be copied it may not be in a writeable
3364 state. So use bfd_close_all_done to avoid the possibility of
3365 writing uninitialised data into the file. */
3366 if (! (status ? bfd_close_all_done (obfd) : bfd_close (obfd)))
3368 status = 1;
3369 bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
3370 return;
3373 if (!bfd_close (ibfd))
3375 status = 1;
3376 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3377 return;
3380 else
3382 bfd_error_type obj_error = bfd_get_error ();
3383 bfd_error_type core_error;
3385 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
3387 /* This probably can't happen.. */
3388 if (obj_error == bfd_error_file_ambiguously_recognized)
3389 free (obj_matching);
3390 goto do_copy;
3393 core_error = bfd_get_error ();
3394 /* Report the object error in preference to the core error. */
3395 if (obj_error != core_error)
3396 bfd_set_error (obj_error);
3398 bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
3400 if (obj_error == bfd_error_file_ambiguously_recognized)
3402 list_matching_formats (obj_matching);
3403 free (obj_matching);
3405 if (core_error == bfd_error_file_ambiguously_recognized)
3407 list_matching_formats (core_matching);
3408 free (core_matching);
3411 status = 1;
3415 /* Add a name to the section renaming list. */
3417 static void
3418 add_section_rename (const char * old_name, const char * new_name,
3419 flagword flags)
3421 section_rename * srename;
3423 /* Check for conflicts first. */
3424 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3425 if (strcmp (srename->old_name, old_name) == 0)
3427 /* Silently ignore duplicate definitions. */
3428 if (strcmp (srename->new_name, new_name) == 0
3429 && srename->flags == flags)
3430 return;
3432 fatal (_("Multiple renames of section %s"), old_name);
3435 srename = (section_rename *) xmalloc (sizeof (* srename));
3437 srename->old_name = old_name;
3438 srename->new_name = new_name;
3439 srename->flags = flags;
3440 srename->next = section_rename_list;
3442 section_rename_list = srename;
3445 /* Check the section rename list for a new name of the input section
3446 called OLD_NAME. Returns the new name if one is found and sets
3447 RETURNED_FLAGS if non-NULL to the flags to be used for this section. */
3449 static const char *
3450 find_section_rename (const char *old_name, flagword *returned_flags)
3452 const section_rename *srename;
3454 for (srename = section_rename_list; srename != NULL; srename = srename->next)
3455 if (strcmp (srename->old_name, old_name) == 0)
3457 if (returned_flags != NULL && srename->flags != (flagword) -1)
3458 *returned_flags = srename->flags;
3460 return srename->new_name;
3463 return old_name;
3466 /* Once each of the sections is copied, we may still need to do some
3467 finalization work for private section headers. Do that here. */
3469 static void
3470 setup_bfd_headers (bfd *ibfd, bfd *obfd)
3472 /* Allow the BFD backend to copy any private data it understands
3473 from the input section to the output section. */
3474 if (! bfd_copy_private_header_data (ibfd, obfd))
3476 status = 1;
3477 bfd_nonfatal_message (NULL, ibfd, NULL,
3478 _("error in private header data"));
3479 return;
3482 /* All went well. */
3483 return;
3486 /* Create a section in OBFD with the same
3487 name and attributes as ISECTION in IBFD. */
3489 static void
3490 setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3492 bfd *obfd = (bfd *) obfdarg;
3493 struct section_list *p;
3494 sec_ptr osection;
3495 bfd_size_type size;
3496 bfd_vma vma;
3497 bfd_vma lma;
3498 flagword flags;
3499 const char *err;
3500 const char * name;
3501 char *prefix = NULL;
3502 bfd_boolean make_nobits;
3504 if (is_strip_section (ibfd, isection))
3505 return;
3507 /* Get the, possibly new, name of the output section. */
3508 name = bfd_section_name (ibfd, isection);
3509 flags = bfd_get_section_flags (ibfd, isection);
3510 name = find_section_rename (name, &flags);
3512 /* Prefix sections. */
3513 if ((prefix_alloc_sections_string)
3514 && (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
3515 prefix = prefix_alloc_sections_string;
3516 else if (prefix_sections_string)
3517 prefix = prefix_sections_string;
3519 if (prefix)
3521 char *n;
3523 n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
3524 strcpy (n, prefix);
3525 strcat (n, name);
3526 name = n;
3529 make_nobits = FALSE;
3531 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
3532 SECTION_CONTEXT_SET_FLAGS);
3533 if (p != NULL)
3534 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
3535 else if (strip_symbols == STRIP_NONDEBUG
3536 && (flags & (SEC_ALLOC | SEC_GROUP)) != 0
3537 && !is_nondebug_keep_contents_section (ibfd, isection))
3539 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
3540 if (obfd->xvec->flavour == bfd_target_elf_flavour)
3542 make_nobits = TRUE;
3544 /* Twiddle the input section flags so that it seems to
3545 elf.c:copy_private_bfd_data that section flags have not
3546 changed between input and output sections. This hack
3547 prevents wholesale rewriting of the program headers. */
3548 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
3552 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
3554 if (osection == NULL)
3556 err = _("failed to create output section");
3557 goto loser;
3560 if (make_nobits)
3561 elf_section_type (osection) = SHT_NOBITS;
3563 size = bfd_section_size (ibfd, isection);
3564 size = bfd_convert_section_size (ibfd, isection, obfd, size);
3565 if (copy_byte >= 0)
3566 size = (size + interleave - 1) / interleave * copy_width;
3567 else if (extract_symbol)
3568 size = 0;
3569 if (! bfd_set_section_size (obfd, osection, size))
3571 err = _("failed to set size");
3572 goto loser;
3575 vma = bfd_section_vma (ibfd, isection);
3576 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
3577 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
3578 if (p != NULL)
3580 if (p->context & SECTION_CONTEXT_SET_VMA)
3581 vma = p->vma_val;
3582 else
3583 vma += p->vma_val;
3585 else
3586 vma += change_section_address;
3588 if (! bfd_set_section_vma (obfd, osection, vma))
3590 err = _("failed to set vma");
3591 goto loser;
3594 lma = isection->lma;
3595 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
3596 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
3597 if (p != NULL)
3599 if (p->context & SECTION_CONTEXT_ALTER_LMA)
3600 lma += p->lma_val;
3601 else
3602 lma = p->lma_val;
3604 else
3605 lma += change_section_address;
3607 osection->lma = lma;
3609 /* FIXME: This is probably not enough. If we change the LMA we
3610 may have to recompute the header for the file as well. */
3611 if (!bfd_set_section_alignment (obfd,
3612 osection,
3613 bfd_section_alignment (ibfd, isection)))
3615 err = _("failed to set alignment");
3616 goto loser;
3619 /* Copy merge entity size. */
3620 osection->entsize = isection->entsize;
3622 /* Copy compress status. */
3623 osection->compress_status = isection->compress_status;
3625 /* This used to be mangle_section; we do here to avoid using
3626 bfd_get_section_by_name since some formats allow multiple
3627 sections with the same name. */
3628 isection->output_section = osection;
3629 isection->output_offset = 0;
3631 if ((isection->flags & SEC_GROUP) != 0)
3633 asymbol *gsym = group_signature (isection);
3635 if (gsym != NULL)
3637 gsym->flags |= BSF_KEEP;
3638 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
3639 elf_group_id (isection) = gsym;
3643 /* Allow the BFD backend to copy any private data it understands
3644 from the input section to the output section. */
3645 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
3647 err = _("failed to copy private data");
3648 goto loser;
3651 /* All went well. */
3652 return;
3654 loser:
3655 status = 1;
3656 bfd_nonfatal_message (NULL, obfd, osection, err);
3659 /* Return TRUE if input section ISECTION should be skipped. */
3661 static bfd_boolean
3662 skip_section (bfd *ibfd, sec_ptr isection, bfd_boolean skip_copy)
3664 sec_ptr osection;
3665 bfd_size_type size;
3666 flagword flags;
3668 /* If we have already failed earlier on,
3669 do not keep on generating complaints now. */
3670 if (status != 0)
3671 return TRUE;
3673 if (extract_symbol)
3674 return TRUE;
3676 if (is_strip_section (ibfd, isection))
3677 return TRUE;
3679 if (is_update_section (ibfd, isection))
3680 return TRUE;
3682 /* When merging a note section we skip the copying of the contents,
3683 but not the copying of the relocs associated with the contents. */
3684 if (skip_copy && is_merged_note_section (ibfd, isection))
3685 return TRUE;
3687 flags = bfd_get_section_flags (ibfd, isection);
3688 if ((flags & SEC_GROUP) != 0)
3689 return TRUE;
3691 osection = isection->output_section;
3692 size = bfd_get_section_size (isection);
3694 if (size == 0 || osection == 0)
3695 return TRUE;
3697 return FALSE;
3700 /* Add section SECTION_PATTERN to the list of sections that will have their
3701 relocations removed. */
3703 static void
3704 handle_remove_relocations_option (const char *section_pattern)
3706 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE_RELOCS);
3709 /* Return TRUE if ISECTION from IBFD should have its relocations removed,
3710 otherwise return FALSE. If the user has requested that relocations be
3711 removed from a section that does not have relocations then this
3712 function will still return TRUE. */
3714 static bfd_boolean
3715 discard_relocations (bfd *ibfd ATTRIBUTE_UNUSED, asection *isection)
3717 return (find_section_list (bfd_section_name (ibfd, isection), FALSE,
3718 SECTION_CONTEXT_REMOVE_RELOCS) != NULL);
3721 /* Wrapper for dealing with --remove-section (-R) command line arguments.
3722 A special case is detected here, if the user asks to remove a relocation
3723 section (one starting with ".rela." or ".rel.") then this removal must
3724 be done using a different technique. */
3726 static void
3727 handle_remove_section_option (const char *section_pattern)
3729 if (strncmp (section_pattern, ".rela.", 6) == 0)
3730 handle_remove_relocations_option (section_pattern + 5);
3731 else if (strncmp (section_pattern, ".rel.", 5) == 0)
3732 handle_remove_relocations_option (section_pattern + 4);
3733 else
3735 find_section_list (section_pattern, TRUE, SECTION_CONTEXT_REMOVE);
3736 sections_removed = TRUE;
3740 /* Copy relocations in input section ISECTION of IBFD to an output
3741 section with the same name in OBFDARG. If stripping then don't
3742 copy any relocation info. */
3744 static void
3745 copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3747 bfd *obfd = (bfd *) obfdarg;
3748 long relsize;
3749 arelent **relpp;
3750 long relcount;
3751 sec_ptr osection;
3753 if (skip_section (ibfd, isection, FALSE))
3754 return;
3756 osection = isection->output_section;
3758 /* Core files and DWO files do not need to be relocated. */
3759 if (bfd_get_format (obfd) == bfd_core
3760 || strip_symbols == STRIP_NONDWO
3761 || discard_relocations (ibfd, isection))
3762 relsize = 0;
3763 else
3765 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
3767 if (relsize < 0)
3769 /* Do not complain if the target does not support relocations. */
3770 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3771 relsize = 0;
3772 else
3774 status = 1;
3775 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3776 return;
3781 if (relsize == 0)
3783 bfd_set_reloc (obfd, osection, NULL, 0);
3784 osection->flags &= ~SEC_RELOC;
3786 else
3788 relpp = (arelent **) xmalloc (relsize);
3789 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
3790 if (relcount < 0)
3792 status = 1;
3793 bfd_nonfatal_message (NULL, ibfd, isection,
3794 _("relocation count is negative"));
3795 return;
3798 if (strip_symbols == STRIP_ALL)
3800 /* Remove relocations which are not in
3801 keep_strip_specific_list. */
3802 arelent **temp_relpp;
3803 long temp_relcount = 0;
3804 long i;
3806 temp_relpp = (arelent **) xmalloc (relsize);
3807 for (i = 0; i < relcount; i++)
3809 /* PR 17512: file: 9e907e0c. */
3810 if (relpp[i]->sym_ptr_ptr
3811 /* PR 20096 */
3812 && * relpp[i]->sym_ptr_ptr)
3813 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
3814 keep_specific_htab))
3815 temp_relpp [temp_relcount++] = relpp [i];
3817 relcount = temp_relcount;
3818 free (relpp);
3819 relpp = temp_relpp;
3822 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
3823 if (relcount == 0)
3825 osection->flags &= ~SEC_RELOC;
3826 free (relpp);
3831 /* Copy the data of input section ISECTION of IBFD
3832 to an output section with the same name in OBFD. */
3834 static void
3835 copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3837 bfd *obfd = (bfd *) obfdarg;
3838 struct section_list *p;
3839 sec_ptr osection;
3840 bfd_size_type size;
3842 if (skip_section (ibfd, isection, TRUE))
3843 return;
3845 osection = isection->output_section;
3846 /* The output SHF_COMPRESSED section size is different from input if
3847 ELF classes of input and output aren't the same. We can't use
3848 the output section size since --interleave will shrink the output
3849 section. Size will be updated if the section is converted. */
3850 size = bfd_get_section_size (isection);
3852 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
3853 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
3855 bfd_byte *memhunk = NULL;
3857 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk)
3858 || !bfd_convert_section_contents (ibfd, isection, obfd,
3859 &memhunk, &size))
3861 status = 1;
3862 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3863 free (memhunk);
3864 return;
3867 if (reverse_bytes)
3869 /* We don't handle leftover bytes (too many possible behaviors,
3870 and we don't know what the user wants). The section length
3871 must be a multiple of the number of bytes to swap. */
3872 if ((size % reverse_bytes) == 0)
3874 unsigned long i, j;
3875 bfd_byte b;
3877 for (i = 0; i < size; i += reverse_bytes)
3878 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
3880 bfd_byte *m = (bfd_byte *) memhunk;
3882 b = m[i + j];
3883 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
3884 m[(i + reverse_bytes) - (j + 1)] = b;
3887 else
3888 /* User must pad the section up in order to do this. */
3889 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
3890 bfd_section_name (ibfd, isection), reverse_bytes);
3893 if (copy_byte >= 0)
3895 /* Keep only every `copy_byte'th byte in MEMHUNK. */
3896 char *from = (char *) memhunk + copy_byte;
3897 char *to = (char *) memhunk;
3898 char *end = (char *) memhunk + size;
3899 int i;
3901 for (; from < end; from += interleave)
3902 for (i = 0; i < copy_width; i++)
3904 if (&from[i] >= end)
3905 break;
3906 *to++ = from[i];
3909 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
3910 osection->lma /= interleave;
3913 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
3915 status = 1;
3916 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3917 free (memhunk);
3918 return;
3920 free (memhunk);
3922 else if ((p = find_section_list (bfd_get_section_name (ibfd, isection),
3923 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
3924 && (p->flags & SEC_HAS_CONTENTS) != 0)
3926 void *memhunk = xmalloc (size);
3928 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
3929 flag--they can just remove the section entirely and add it
3930 back again. However, we do permit them to turn on the
3931 SEC_HAS_CONTENTS flag, and take it to mean that the section
3932 contents should be zeroed out. */
3934 memset (memhunk, 0, size);
3935 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
3937 status = 1;
3938 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3939 free (memhunk);
3940 return;
3942 free (memhunk);
3946 /* Get all the sections. This is used when --gap-fill or --pad-to is
3947 used. */
3949 static void
3950 get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
3952 asection ***secppp = (asection ***) secppparg;
3954 **secppp = osection;
3955 ++(*secppp);
3958 /* Sort sections by VMA. This is called via qsort, and is used when
3959 --gap-fill or --pad-to is used. We force non loadable or empty
3960 sections to the front, where they are easier to ignore. */
3962 static int
3963 compare_section_lma (const void *arg1, const void *arg2)
3965 const asection *const *sec1 = (const asection * const *) arg1;
3966 const asection *const *sec2 = (const asection * const *) arg2;
3967 flagword flags1, flags2;
3969 /* Sort non loadable sections to the front. */
3970 flags1 = (*sec1)->flags;
3971 flags2 = (*sec2)->flags;
3972 if ((flags1 & SEC_HAS_CONTENTS) == 0
3973 || (flags1 & SEC_LOAD) == 0)
3975 if ((flags2 & SEC_HAS_CONTENTS) != 0
3976 && (flags2 & SEC_LOAD) != 0)
3977 return -1;
3979 else
3981 if ((flags2 & SEC_HAS_CONTENTS) == 0
3982 || (flags2 & SEC_LOAD) == 0)
3983 return 1;
3986 /* Sort sections by LMA. */
3987 if ((*sec1)->lma > (*sec2)->lma)
3988 return 1;
3989 else if ((*sec1)->lma < (*sec2)->lma)
3990 return -1;
3992 /* Sort sections with the same LMA by size. */
3993 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
3994 return 1;
3995 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
3996 return -1;
3998 return 0;
4001 /* Mark all the symbols which will be used in output relocations with
4002 the BSF_KEEP flag so that those symbols will not be stripped.
4004 Ignore relocations which will not appear in the output file. */
4006 static void
4007 mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
4009 asymbol **symbols = (asymbol **) symbolsarg;
4010 long relsize;
4011 arelent **relpp;
4012 long relcount, i;
4014 /* Ignore an input section with no corresponding output section. */
4015 if (isection->output_section == NULL)
4016 return;
4018 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4019 if (relsize < 0)
4021 /* Do not complain if the target does not support relocations. */
4022 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
4023 return;
4024 bfd_fatal (bfd_get_filename (ibfd));
4027 if (relsize == 0)
4028 return;
4030 relpp = (arelent **) xmalloc (relsize);
4031 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
4032 if (relcount < 0)
4033 bfd_fatal (bfd_get_filename (ibfd));
4035 /* Examine each symbol used in a relocation. If it's not one of the
4036 special bfd section symbols, then mark it with BSF_KEEP. */
4037 for (i = 0; i < relcount; i++)
4039 /* See PRs 20923 and 20930 for reproducers for the NULL tests. */
4040 if (relpp[i]->sym_ptr_ptr != NULL
4041 && * relpp[i]->sym_ptr_ptr != NULL
4042 && *relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
4043 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
4044 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
4045 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
4048 if (relpp != NULL)
4049 free (relpp);
4052 /* Write out debugging information. */
4054 static bfd_boolean
4055 write_debugging_info (bfd *obfd, void *dhandle,
4056 long *symcountp ATTRIBUTE_UNUSED,
4057 asymbol ***symppp ATTRIBUTE_UNUSED)
4059 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
4060 return write_ieee_debugging_info (obfd, dhandle);
4062 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
4063 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
4065 bfd_byte *syms, *strings;
4066 bfd_size_type symsize, stringsize;
4067 asection *stabsec, *stabstrsec;
4068 flagword flags;
4070 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
4071 &symsize, &strings,
4072 &stringsize))
4073 return FALSE;
4075 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
4076 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
4077 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
4078 if (stabsec == NULL
4079 || stabstrsec == NULL
4080 || ! bfd_set_section_size (obfd, stabsec, symsize)
4081 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
4082 || ! bfd_set_section_alignment (obfd, stabsec, 2)
4083 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
4085 bfd_nonfatal_message (NULL, obfd, NULL,
4086 _("can't create debugging section"));
4087 return FALSE;
4090 /* We can get away with setting the section contents now because
4091 the next thing the caller is going to do is copy over the
4092 real sections. We may someday have to split the contents
4093 setting out of this function. */
4094 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
4095 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
4096 stringsize))
4098 bfd_nonfatal_message (NULL, obfd, NULL,
4099 _("can't set debugging section contents"));
4100 return FALSE;
4103 return TRUE;
4106 bfd_nonfatal_message (NULL, obfd, NULL,
4107 _("don't know how to write debugging information for %s"),
4108 bfd_get_target (obfd));
4109 return FALSE;
4112 /* If neither -D nor -U was specified explicitly,
4113 then use the configured default. */
4114 static void
4115 default_deterministic (void)
4117 if (deterministic < 0)
4118 deterministic = DEFAULT_AR_DETERMINISTIC;
4121 static int
4122 strip_main (int argc, char *argv[])
4124 char *input_target = NULL;
4125 char *output_target = NULL;
4126 bfd_boolean show_version = FALSE;
4127 bfd_boolean formats_info = FALSE;
4128 int c;
4129 int i;
4130 char *output_file = NULL;
4132 merge_notes = TRUE;
4134 while ((c = getopt_long (argc, argv, "I:O:F:K:MN:R:o:sSpdgxXHhVvwDU",
4135 strip_options, (int *) 0)) != EOF)
4137 switch (c)
4139 case 'I':
4140 input_target = optarg;
4141 break;
4142 case 'O':
4143 output_target = optarg;
4144 break;
4145 case 'F':
4146 input_target = output_target = optarg;
4147 break;
4148 case 'R':
4149 handle_remove_section_option (optarg);
4150 break;
4151 case OPTION_REMOVE_RELOCS:
4152 handle_remove_relocations_option (optarg);
4153 break;
4154 case 's':
4155 strip_symbols = STRIP_ALL;
4156 break;
4157 case 'S':
4158 case 'g':
4159 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
4160 strip_symbols = STRIP_DEBUG;
4161 break;
4162 case OPTION_STRIP_DWO:
4163 strip_symbols = STRIP_DWO;
4164 break;
4165 case OPTION_STRIP_UNNEEDED:
4166 strip_symbols = STRIP_UNNEEDED;
4167 break;
4168 case 'K':
4169 add_specific_symbol (optarg, keep_specific_htab);
4170 break;
4171 case 'M':
4172 merge_notes = TRUE;
4173 break;
4174 case OPTION_NO_MERGE_NOTES:
4175 merge_notes = FALSE;
4176 break;
4177 case 'N':
4178 add_specific_symbol (optarg, strip_specific_htab);
4179 break;
4180 case 'o':
4181 output_file = optarg;
4182 break;
4183 case 'p':
4184 preserve_dates = TRUE;
4185 break;
4186 case 'D':
4187 deterministic = TRUE;
4188 break;
4189 case 'U':
4190 deterministic = FALSE;
4191 break;
4192 case 'x':
4193 discard_locals = LOCALS_ALL;
4194 break;
4195 case 'X':
4196 discard_locals = LOCALS_START_L;
4197 break;
4198 case 'v':
4199 verbose = TRUE;
4200 break;
4201 case 'V':
4202 show_version = TRUE;
4203 break;
4204 case OPTION_FORMATS_INFO:
4205 formats_info = TRUE;
4206 break;
4207 case OPTION_ONLY_KEEP_DEBUG:
4208 strip_symbols = STRIP_NONDEBUG;
4209 break;
4210 case OPTION_KEEP_FILE_SYMBOLS:
4211 keep_file_symbols = 1;
4212 break;
4213 case 0:
4214 /* We've been given a long option. */
4215 break;
4216 case 'w':
4217 wildcard = TRUE;
4218 break;
4219 case 'H':
4220 case 'h':
4221 strip_usage (stdout, 0);
4222 default:
4223 strip_usage (stderr, 1);
4227 if (formats_info)
4229 display_info ();
4230 return 0;
4233 if (show_version)
4234 print_version ("strip");
4236 default_deterministic ();
4238 /* Default is to strip all symbols. */
4239 if (strip_symbols == STRIP_UNDEF
4240 && discard_locals == LOCALS_UNDEF
4241 && htab_elements (strip_specific_htab) == 0)
4242 strip_symbols = STRIP_ALL;
4244 if (output_target == NULL)
4245 output_target = input_target;
4247 i = optind;
4248 if (i == argc
4249 || (output_file != NULL && (i + 1) < argc))
4250 strip_usage (stderr, 1);
4252 for (; i < argc; i++)
4254 int hold_status = status;
4255 struct stat statbuf;
4256 char *tmpname;
4258 if (get_file_size (argv[i]) < 1)
4260 status = 1;
4261 continue;
4264 if (preserve_dates)
4265 /* No need to check the return value of stat().
4266 It has already been checked in get_file_size(). */
4267 stat (argv[i], &statbuf);
4269 if (output_file == NULL
4270 || filename_cmp (argv[i], output_file) == 0)
4271 tmpname = make_tempname (argv[i]);
4272 else
4273 tmpname = output_file;
4275 if (tmpname == NULL)
4277 bfd_nonfatal_message (argv[i], NULL, NULL,
4278 _("could not create temporary file to hold stripped copy"));
4279 status = 1;
4280 continue;
4283 status = 0;
4284 copy_file (argv[i], tmpname, input_target, output_target, NULL);
4285 if (status == 0)
4287 if (preserve_dates)
4288 set_times (tmpname, &statbuf);
4289 if (output_file != tmpname)
4290 status = (smart_rename (tmpname,
4291 output_file ? output_file : argv[i],
4292 preserve_dates) != 0);
4293 if (status == 0)
4294 status = hold_status;
4296 else
4297 unlink_if_ordinary (tmpname);
4298 if (output_file != tmpname)
4299 free (tmpname);
4302 return status;
4305 /* Set up PE subsystem. */
4307 static void
4308 set_pe_subsystem (const char *s)
4310 const char *version, *subsystem;
4311 size_t i;
4312 static const struct
4314 const char *name;
4315 const char set_def;
4316 const short value;
4318 v[] =
4320 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
4321 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
4322 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
4323 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
4324 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
4325 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
4326 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
4327 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
4328 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
4329 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
4331 short value;
4332 char *copy;
4333 int set_def = -1;
4335 /* Check for the presence of a version number. */
4336 version = strchr (s, ':');
4337 if (version == NULL)
4338 subsystem = s;
4339 else
4341 int len = version - s;
4342 copy = xstrdup (s);
4343 subsystem = copy;
4344 copy[len] = '\0';
4345 version = copy + 1 + len;
4346 pe_major_subsystem_version = strtoul (version, &copy, 0);
4347 if (*copy == '.')
4348 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
4349 if (*copy != '\0')
4350 non_fatal (_("%s: bad version in PE subsystem"), s);
4353 /* Check for numeric subsystem. */
4354 value = (short) strtol (subsystem, &copy, 0);
4355 if (*copy == '\0')
4357 for (i = 0; i < ARRAY_SIZE (v); i++)
4358 if (v[i].value == value)
4360 pe_subsystem = value;
4361 set_def = v[i].set_def;
4362 break;
4365 else
4367 /* Search for subsystem by name. */
4368 for (i = 0; i < ARRAY_SIZE (v); i++)
4369 if (strcmp (subsystem, v[i].name) == 0)
4371 pe_subsystem = v[i].value;
4372 set_def = v[i].set_def;
4373 break;
4377 switch (set_def)
4379 case -1:
4380 fatal (_("unknown PE subsystem: %s"), s);
4381 break;
4382 case 0:
4383 break;
4384 default:
4385 if (pe_file_alignment == (bfd_vma) -1)
4386 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4387 if (pe_section_alignment == (bfd_vma) -1)
4388 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4389 break;
4391 if (s != subsystem)
4392 free ((char *) subsystem);
4395 /* Convert EFI target to PEI target. */
4397 static void
4398 convert_efi_target (char *efi)
4400 efi[0] = 'p';
4401 efi[1] = 'e';
4402 efi[2] = 'i';
4404 if (strcmp (efi + 4, "ia32") == 0)
4406 /* Change ia32 to i386. */
4407 efi[5]= '3';
4408 efi[6]= '8';
4409 efi[7]= '6';
4411 else if (strcmp (efi + 4, "x86_64") == 0)
4413 /* Change x86_64 to x86-64. */
4414 efi[7] = '-';
4418 /* Allocate and return a pointer to a struct section_add, initializing the
4419 structure using ARG, a string in the format "sectionname=filename".
4420 The returned structure will have its next pointer set to NEXT. The
4421 OPTION field is the name of the command line option currently being
4422 parsed, and is only used if an error needs to be reported. */
4424 static struct section_add *
4425 init_section_add (const char *arg,
4426 struct section_add *next,
4427 const char *option)
4429 struct section_add *pa;
4430 const char *s;
4432 s = strchr (arg, '=');
4433 if (s == NULL)
4434 fatal (_("bad format for %s"), option);
4436 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
4437 pa->name = xstrndup (arg, s - arg);
4438 pa->filename = s + 1;
4439 pa->next = next;
4440 pa->contents = NULL;
4441 pa->size = 0;
4443 return pa;
4446 /* Load the file specified in PA, allocating memory to hold the file
4447 contents, and store a pointer to the allocated memory in the contents
4448 field of PA. The size field of PA is also updated. All errors call
4449 FATAL. */
4451 static void
4452 section_add_load_file (struct section_add *pa)
4454 size_t off, alloc;
4455 FILE *f;
4457 /* We don't use get_file_size so that we can do
4458 --add-section .note.GNU_stack=/dev/null
4459 get_file_size doesn't work on /dev/null. */
4461 f = fopen (pa->filename, FOPEN_RB);
4462 if (f == NULL)
4463 fatal (_("cannot open: %s: %s"),
4464 pa->filename, strerror (errno));
4466 off = 0;
4467 alloc = 4096;
4468 pa->contents = (bfd_byte *) xmalloc (alloc);
4469 while (!feof (f))
4471 off_t got;
4473 if (off == alloc)
4475 alloc <<= 1;
4476 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
4479 got = fread (pa->contents + off, 1, alloc - off, f);
4480 if (ferror (f))
4481 fatal (_("%s: fread failed"), pa->filename);
4483 off += got;
4486 pa->size = off;
4488 fclose (f);
4491 static int
4492 copy_main (int argc, char *argv[])
4494 char *input_filename = NULL;
4495 char *output_filename = NULL;
4496 char *tmpname;
4497 char *input_target = NULL;
4498 char *output_target = NULL;
4499 bfd_boolean show_version = FALSE;
4500 bfd_boolean change_warn = TRUE;
4501 bfd_boolean formats_info = FALSE;
4502 int c;
4503 struct stat statbuf;
4504 const bfd_arch_info_type *input_arch = NULL;
4506 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:MN:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
4507 copy_options, (int *) 0)) != EOF)
4509 switch (c)
4511 case 'b':
4512 copy_byte = atoi (optarg);
4513 if (copy_byte < 0)
4514 fatal (_("byte number must be non-negative"));
4515 break;
4517 case 'B':
4518 input_arch = bfd_scan_arch (optarg);
4519 if (input_arch == NULL)
4520 fatal (_("architecture %s unknown"), optarg);
4521 break;
4523 case 'i':
4524 if (optarg)
4526 interleave = atoi (optarg);
4527 if (interleave < 1)
4528 fatal (_("interleave must be positive"));
4530 else
4531 interleave = 4;
4532 break;
4534 case OPTION_INTERLEAVE_WIDTH:
4535 copy_width = atoi (optarg);
4536 if (copy_width < 1)
4537 fatal(_("interleave width must be positive"));
4538 break;
4540 case 'I':
4541 case 's': /* "source" - 'I' is preferred */
4542 input_target = optarg;
4543 break;
4545 case 'O':
4546 case 'd': /* "destination" - 'O' is preferred */
4547 output_target = optarg;
4548 break;
4550 case 'F':
4551 input_target = output_target = optarg;
4552 break;
4554 case 'j':
4555 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
4556 sections_copied = TRUE;
4557 break;
4559 case 'R':
4560 handle_remove_section_option (optarg);
4561 break;
4563 case OPTION_REMOVE_RELOCS:
4564 handle_remove_relocations_option (optarg);
4565 break;
4567 case 'S':
4568 strip_symbols = STRIP_ALL;
4569 break;
4571 case 'g':
4572 strip_symbols = STRIP_DEBUG;
4573 break;
4575 case OPTION_STRIP_DWO:
4576 strip_symbols = STRIP_DWO;
4577 break;
4579 case OPTION_STRIP_UNNEEDED:
4580 strip_symbols = STRIP_UNNEEDED;
4581 break;
4583 case OPTION_ONLY_KEEP_DEBUG:
4584 strip_symbols = STRIP_NONDEBUG;
4585 break;
4587 case OPTION_KEEP_FILE_SYMBOLS:
4588 keep_file_symbols = 1;
4589 break;
4591 case OPTION_ADD_GNU_DEBUGLINK:
4592 long_section_names = ENABLE ;
4593 gnu_debuglink_filename = optarg;
4594 break;
4596 case 'K':
4597 add_specific_symbol (optarg, keep_specific_htab);
4598 break;
4600 case 'M':
4601 merge_notes = TRUE;
4602 break;
4603 case OPTION_NO_MERGE_NOTES:
4604 merge_notes = FALSE;
4605 break;
4607 case 'N':
4608 add_specific_symbol (optarg, strip_specific_htab);
4609 break;
4611 case OPTION_STRIP_UNNEEDED_SYMBOL:
4612 add_specific_symbol (optarg, strip_unneeded_htab);
4613 break;
4615 case 'L':
4616 add_specific_symbol (optarg, localize_specific_htab);
4617 break;
4619 case OPTION_GLOBALIZE_SYMBOL:
4620 add_specific_symbol (optarg, globalize_specific_htab);
4621 break;
4623 case 'G':
4624 add_specific_symbol (optarg, keepglobal_specific_htab);
4625 break;
4627 case 'W':
4628 add_specific_symbol (optarg, weaken_specific_htab);
4629 break;
4631 case 'p':
4632 preserve_dates = TRUE;
4633 break;
4635 case 'D':
4636 deterministic = TRUE;
4637 break;
4639 case 'U':
4640 deterministic = FALSE;
4641 break;
4643 case 'w':
4644 wildcard = TRUE;
4645 break;
4647 case 'x':
4648 discard_locals = LOCALS_ALL;
4649 break;
4651 case 'X':
4652 discard_locals = LOCALS_START_L;
4653 break;
4655 case 'v':
4656 verbose = TRUE;
4657 break;
4659 case 'V':
4660 show_version = TRUE;
4661 break;
4663 case OPTION_FORMATS_INFO:
4664 formats_info = TRUE;
4665 break;
4667 case OPTION_WEAKEN:
4668 weaken = TRUE;
4669 break;
4671 case OPTION_ADD_SECTION:
4672 add_sections = init_section_add (optarg, add_sections,
4673 "--add-section");
4674 section_add_load_file (add_sections);
4675 break;
4677 case OPTION_UPDATE_SECTION:
4678 update_sections = init_section_add (optarg, update_sections,
4679 "--update-section");
4680 section_add_load_file (update_sections);
4681 break;
4683 case OPTION_DUMP_SECTION:
4684 dump_sections = init_section_add (optarg, dump_sections,
4685 "--dump-section");
4686 break;
4688 case OPTION_ADD_SYMBOL:
4690 char *s, *t;
4691 struct addsym_node *newsym = xmalloc (sizeof *newsym);
4693 newsym->next = NULL;
4694 s = strchr (optarg, '=');
4695 if (s == NULL)
4696 fatal (_("bad format for %s"), "--add-symbol");
4697 t = strchr (s + 1, ':');
4699 newsym->symdef = xstrndup (optarg, s - optarg);
4700 if (t)
4702 newsym->section = xstrndup (s + 1, t - (s + 1));
4703 newsym->symval = strtol (t + 1, NULL, 0);
4705 else
4707 newsym->section = NULL;
4708 newsym->symval = strtol (s + 1, NULL, 0);
4709 t = s;
4712 t = strchr (t + 1, ',');
4713 newsym->othersym = NULL;
4714 if (t)
4715 newsym->flags = parse_symflags (t+1, &newsym->othersym);
4716 else
4717 newsym->flags = BSF_GLOBAL;
4719 /* Keep 'othersym' symbols at the front of the list. */
4720 if (newsym->othersym)
4722 newsym->next = add_sym_list;
4723 if (!add_sym_list)
4724 add_sym_tail = &newsym->next;
4725 add_sym_list = newsym;
4727 else
4729 *add_sym_tail = newsym;
4730 add_sym_tail = &newsym->next;
4732 add_symbols++;
4734 break;
4736 case OPTION_CHANGE_START:
4737 change_start = parse_vma (optarg, "--change-start");
4738 break;
4740 case OPTION_CHANGE_SECTION_ADDRESS:
4741 case OPTION_CHANGE_SECTION_LMA:
4742 case OPTION_CHANGE_SECTION_VMA:
4744 struct section_list * p;
4745 unsigned int context = 0;
4746 const char *s;
4747 int len;
4748 char *name;
4749 char *option = NULL;
4750 bfd_vma val;
4752 switch (c)
4754 case OPTION_CHANGE_SECTION_ADDRESS:
4755 option = "--change-section-address";
4756 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
4757 break;
4758 case OPTION_CHANGE_SECTION_LMA:
4759 option = "--change-section-lma";
4760 context = SECTION_CONTEXT_ALTER_LMA;
4761 break;
4762 case OPTION_CHANGE_SECTION_VMA:
4763 option = "--change-section-vma";
4764 context = SECTION_CONTEXT_ALTER_VMA;
4765 break;
4768 s = strchr (optarg, '=');
4769 if (s == NULL)
4771 s = strchr (optarg, '+');
4772 if (s == NULL)
4774 s = strchr (optarg, '-');
4775 if (s == NULL)
4776 fatal (_("bad format for %s"), option);
4779 else
4781 /* Correct the context. */
4782 switch (c)
4784 case OPTION_CHANGE_SECTION_ADDRESS:
4785 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
4786 break;
4787 case OPTION_CHANGE_SECTION_LMA:
4788 context = SECTION_CONTEXT_SET_LMA;
4789 break;
4790 case OPTION_CHANGE_SECTION_VMA:
4791 context = SECTION_CONTEXT_SET_VMA;
4792 break;
4796 len = s - optarg;
4797 name = (char *) xmalloc (len + 1);
4798 strncpy (name, optarg, len);
4799 name[len] = '\0';
4801 p = find_section_list (name, TRUE, context);
4803 val = parse_vma (s + 1, option);
4804 if (*s == '-')
4805 val = - val;
4807 switch (c)
4809 case OPTION_CHANGE_SECTION_ADDRESS:
4810 p->vma_val = val;
4811 /* Fall through. */
4813 case OPTION_CHANGE_SECTION_LMA:
4814 p->lma_val = val;
4815 break;
4817 case OPTION_CHANGE_SECTION_VMA:
4818 p->vma_val = val;
4819 break;
4822 break;
4824 case OPTION_CHANGE_ADDRESSES:
4825 change_section_address = parse_vma (optarg, "--change-addresses");
4826 change_start = change_section_address;
4827 break;
4829 case OPTION_CHANGE_WARNINGS:
4830 change_warn = TRUE;
4831 break;
4833 case OPTION_CHANGE_LEADING_CHAR:
4834 change_leading_char = TRUE;
4835 break;
4837 case OPTION_COMPRESS_DEBUG_SECTIONS:
4838 if (optarg)
4840 if (strcasecmp (optarg, "none") == 0)
4841 do_debug_sections = decompress;
4842 else if (strcasecmp (optarg, "zlib") == 0)
4843 do_debug_sections = compress_zlib;
4844 else if (strcasecmp (optarg, "zlib-gnu") == 0)
4845 do_debug_sections = compress_gnu_zlib;
4846 else if (strcasecmp (optarg, "zlib-gabi") == 0)
4847 do_debug_sections = compress_gabi_zlib;
4848 else
4849 fatal (_("unrecognized --compress-debug-sections type `%s'"),
4850 optarg);
4852 else
4853 do_debug_sections = compress;
4854 break;
4856 case OPTION_DEBUGGING:
4857 convert_debugging = TRUE;
4858 break;
4860 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
4861 do_debug_sections = decompress;
4862 break;
4864 case OPTION_ELF_STT_COMMON:
4865 if (strcasecmp (optarg, "yes") == 0)
4866 do_elf_stt_common = elf_stt_common;
4867 else if (strcasecmp (optarg, "no") == 0)
4868 do_elf_stt_common = no_elf_stt_common;
4869 else
4870 fatal (_("unrecognized --elf-stt-common= option `%s'"),
4871 optarg);
4872 break;
4874 case OPTION_GAP_FILL:
4876 bfd_vma gap_fill_vma;
4878 gap_fill_vma = parse_vma (optarg, "--gap-fill");
4879 gap_fill = (bfd_byte) gap_fill_vma;
4880 if ((bfd_vma) gap_fill != gap_fill_vma)
4882 char buff[20];
4884 sprintf_vma (buff, gap_fill_vma);
4886 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
4887 buff, gap_fill);
4889 gap_fill_set = TRUE;
4891 break;
4893 case OPTION_NO_CHANGE_WARNINGS:
4894 change_warn = FALSE;
4895 break;
4897 case OPTION_PAD_TO:
4898 pad_to = parse_vma (optarg, "--pad-to");
4899 pad_to_set = TRUE;
4900 break;
4902 case OPTION_REMOVE_LEADING_CHAR:
4903 remove_leading_char = TRUE;
4904 break;
4906 case OPTION_REDEFINE_SYM:
4908 /* Insert this redefinition onto redefine_specific_htab. */
4910 int len;
4911 const char *s;
4912 const char *nextarg;
4913 char *source, *target;
4915 s = strchr (optarg, '=');
4916 if (s == NULL)
4917 fatal (_("bad format for %s"), "--redefine-sym");
4919 len = s - optarg;
4920 source = (char *) xmalloc (len + 1);
4921 strncpy (source, optarg, len);
4922 source[len] = '\0';
4924 nextarg = s + 1;
4925 len = strlen (nextarg);
4926 target = (char *) xmalloc (len + 1);
4927 strcpy (target, nextarg);
4929 add_redefine_and_check ("--redefine-sym", source, target);
4931 free (source);
4932 free (target);
4934 break;
4936 case OPTION_REDEFINE_SYMS:
4937 add_redefine_syms_file (optarg);
4938 break;
4940 case OPTION_SET_SECTION_FLAGS:
4942 struct section_list *p;
4943 const char *s;
4944 int len;
4945 char *name;
4947 s = strchr (optarg, '=');
4948 if (s == NULL)
4949 fatal (_("bad format for %s"), "--set-section-flags");
4951 len = s - optarg;
4952 name = (char *) xmalloc (len + 1);
4953 strncpy (name, optarg, len);
4954 name[len] = '\0';
4956 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
4958 p->flags = parse_flags (s + 1);
4960 break;
4962 case OPTION_RENAME_SECTION:
4964 flagword flags;
4965 const char *eq, *fl;
4966 char *old_name;
4967 char *new_name;
4968 unsigned int len;
4970 eq = strchr (optarg, '=');
4971 if (eq == NULL)
4972 fatal (_("bad format for %s"), "--rename-section");
4974 len = eq - optarg;
4975 if (len == 0)
4976 fatal (_("bad format for %s"), "--rename-section");
4978 old_name = (char *) xmalloc (len + 1);
4979 strncpy (old_name, optarg, len);
4980 old_name[len] = 0;
4982 eq++;
4983 fl = strchr (eq, ',');
4984 if (fl)
4986 flags = parse_flags (fl + 1);
4987 len = fl - eq;
4989 else
4991 flags = -1;
4992 len = strlen (eq);
4995 if (len == 0)
4996 fatal (_("bad format for %s"), "--rename-section");
4998 new_name = (char *) xmalloc (len + 1);
4999 strncpy (new_name, eq, len);
5000 new_name[len] = 0;
5002 add_section_rename (old_name, new_name, flags);
5004 break;
5006 case OPTION_SET_START:
5007 set_start = parse_vma (optarg, "--set-start");
5008 set_start_set = TRUE;
5009 break;
5011 case OPTION_SREC_LEN:
5012 _bfd_srec_len = parse_vma (optarg, "--srec-len");
5013 break;
5015 case OPTION_SREC_FORCES3:
5016 _bfd_srec_forceS3 = TRUE;
5017 break;
5019 case OPTION_STRIP_SYMBOLS:
5020 add_specific_symbols (optarg, strip_specific_htab);
5021 break;
5023 case OPTION_STRIP_UNNEEDED_SYMBOLS:
5024 add_specific_symbols (optarg, strip_unneeded_htab);
5025 break;
5027 case OPTION_KEEP_SYMBOLS:
5028 add_specific_symbols (optarg, keep_specific_htab);
5029 break;
5031 case OPTION_LOCALIZE_HIDDEN:
5032 localize_hidden = TRUE;
5033 break;
5035 case OPTION_LOCALIZE_SYMBOLS:
5036 add_specific_symbols (optarg, localize_specific_htab);
5037 break;
5039 case OPTION_LONG_SECTION_NAMES:
5040 if (!strcmp ("enable", optarg))
5041 long_section_names = ENABLE;
5042 else if (!strcmp ("disable", optarg))
5043 long_section_names = DISABLE;
5044 else if (!strcmp ("keep", optarg))
5045 long_section_names = KEEP;
5046 else
5047 fatal (_("unknown long section names option '%s'"), optarg);
5048 break;
5050 case OPTION_GLOBALIZE_SYMBOLS:
5051 add_specific_symbols (optarg, globalize_specific_htab);
5052 break;
5054 case OPTION_KEEPGLOBAL_SYMBOLS:
5055 add_specific_symbols (optarg, keepglobal_specific_htab);
5056 break;
5058 case OPTION_WEAKEN_SYMBOLS:
5059 add_specific_symbols (optarg, weaken_specific_htab);
5060 break;
5062 case OPTION_ALT_MACH_CODE:
5063 use_alt_mach_code = strtoul (optarg, NULL, 0);
5064 if (use_alt_mach_code == 0)
5065 fatal (_("unable to parse alternative machine code"));
5066 break;
5068 case OPTION_PREFIX_SYMBOLS:
5069 prefix_symbols_string = optarg;
5070 break;
5072 case OPTION_PREFIX_SECTIONS:
5073 prefix_sections_string = optarg;
5074 break;
5076 case OPTION_PREFIX_ALLOC_SECTIONS:
5077 prefix_alloc_sections_string = optarg;
5078 break;
5080 case OPTION_READONLY_TEXT:
5081 bfd_flags_to_set |= WP_TEXT;
5082 bfd_flags_to_clear &= ~WP_TEXT;
5083 break;
5085 case OPTION_WRITABLE_TEXT:
5086 bfd_flags_to_clear |= WP_TEXT;
5087 bfd_flags_to_set &= ~WP_TEXT;
5088 break;
5090 case OPTION_PURE:
5091 bfd_flags_to_set |= D_PAGED;
5092 bfd_flags_to_clear &= ~D_PAGED;
5093 break;
5095 case OPTION_IMPURE:
5096 bfd_flags_to_clear |= D_PAGED;
5097 bfd_flags_to_set &= ~D_PAGED;
5098 break;
5100 case OPTION_EXTRACT_DWO:
5101 strip_symbols = STRIP_NONDWO;
5102 break;
5104 case OPTION_EXTRACT_SYMBOL:
5105 extract_symbol = TRUE;
5106 break;
5108 case OPTION_REVERSE_BYTES:
5110 int prev = reverse_bytes;
5112 reverse_bytes = atoi (optarg);
5113 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
5114 fatal (_("number of bytes to reverse must be positive and even"));
5116 if (prev && prev != reverse_bytes)
5117 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
5118 prev);
5119 break;
5122 case OPTION_FILE_ALIGNMENT:
5123 pe_file_alignment = parse_vma (optarg, "--file-alignment");
5124 break;
5126 case OPTION_HEAP:
5128 char *end;
5129 pe_heap_reserve = strtoul (optarg, &end, 0);
5130 if (end == optarg
5131 || (*end != '.' && *end != '\0'))
5132 non_fatal (_("%s: invalid reserve value for --heap"),
5133 optarg);
5134 else if (*end != '\0')
5136 pe_heap_commit = strtoul (end + 1, &end, 0);
5137 if (*end != '\0')
5138 non_fatal (_("%s: invalid commit value for --heap"),
5139 optarg);
5142 break;
5144 case OPTION_IMAGE_BASE:
5145 pe_image_base = parse_vma (optarg, "--image-base");
5146 break;
5148 case OPTION_SECTION_ALIGNMENT:
5149 pe_section_alignment = parse_vma (optarg,
5150 "--section-alignment");
5151 break;
5153 case OPTION_SUBSYSTEM:
5154 set_pe_subsystem (optarg);
5155 break;
5157 case OPTION_STACK:
5159 char *end;
5160 pe_stack_reserve = strtoul (optarg, &end, 0);
5161 if (end == optarg
5162 || (*end != '.' && *end != '\0'))
5163 non_fatal (_("%s: invalid reserve value for --stack"),
5164 optarg);
5165 else if (*end != '\0')
5167 pe_stack_commit = strtoul (end + 1, &end, 0);
5168 if (*end != '\0')
5169 non_fatal (_("%s: invalid commit value for --stack"),
5170 optarg);
5173 break;
5175 case 0:
5176 /* We've been given a long option. */
5177 break;
5179 case 'H':
5180 case 'h':
5181 copy_usage (stdout, 0);
5183 default:
5184 copy_usage (stderr, 1);
5188 if (formats_info)
5190 display_info ();
5191 return 0;
5194 if (show_version)
5195 print_version ("objcopy");
5197 if (interleave && copy_byte == -1)
5198 fatal (_("interleave start byte must be set with --byte"));
5200 if (copy_byte >= interleave)
5201 fatal (_("byte number must be less than interleave"));
5203 if (copy_width > interleave - copy_byte)
5204 fatal (_("interleave width must be less than or equal to interleave - byte`"));
5206 if (optind == argc || optind + 2 < argc)
5207 copy_usage (stderr, 1);
5209 input_filename = argv[optind];
5210 if (optind + 1 < argc)
5211 output_filename = argv[optind + 1];
5213 default_deterministic ();
5215 /* Default is to strip no symbols. */
5216 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
5217 strip_symbols = STRIP_NONE;
5219 if (output_target == NULL)
5220 output_target = input_target;
5222 /* Convert input EFI target to PEI target. */
5223 if (input_target != NULL
5224 && strncmp (input_target, "efi-", 4) == 0)
5226 char *efi;
5228 efi = xstrdup (output_target + 4);
5229 if (strncmp (efi, "bsdrv-", 6) == 0
5230 || strncmp (efi, "rtdrv-", 6) == 0)
5231 efi += 2;
5232 else if (strncmp (efi, "app-", 4) != 0)
5233 fatal (_("unknown input EFI target: %s"), input_target);
5235 input_target = efi;
5236 convert_efi_target (efi);
5239 /* Convert output EFI target to PEI target. */
5240 if (output_target != NULL
5241 && strncmp (output_target, "efi-", 4) == 0)
5243 char *efi;
5245 efi = xstrdup (output_target + 4);
5246 if (strncmp (efi, "app-", 4) == 0)
5248 if (pe_subsystem == -1)
5249 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
5251 else if (strncmp (efi, "bsdrv-", 6) == 0)
5253 if (pe_subsystem == -1)
5254 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
5255 efi += 2;
5257 else if (strncmp (efi, "rtdrv-", 6) == 0)
5259 if (pe_subsystem == -1)
5260 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
5261 efi += 2;
5263 else
5264 fatal (_("unknown output EFI target: %s"), output_target);
5266 if (pe_file_alignment == (bfd_vma) -1)
5267 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
5268 if (pe_section_alignment == (bfd_vma) -1)
5269 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
5271 output_target = efi;
5272 convert_efi_target (efi);
5275 if (preserve_dates)
5276 if (stat (input_filename, & statbuf) < 0)
5277 fatal (_("warning: could not locate '%s'. System error message: %s"),
5278 input_filename, strerror (errno));
5280 /* If there is no destination file, or the source and destination files
5281 are the same, then create a temp and rename the result into the input. */
5282 if (output_filename == NULL
5283 || filename_cmp (input_filename, output_filename) == 0)
5284 tmpname = make_tempname (input_filename);
5285 else
5286 tmpname = output_filename;
5288 if (tmpname == NULL)
5289 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
5290 input_filename, strerror (errno));
5292 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
5293 if (status == 0)
5295 if (preserve_dates)
5296 set_times (tmpname, &statbuf);
5297 if (tmpname != output_filename)
5298 status = (smart_rename (tmpname, input_filename,
5299 preserve_dates) != 0);
5301 else
5302 unlink_if_ordinary (tmpname);
5304 if (change_warn)
5306 struct section_list *p;
5308 for (p = change_sections; p != NULL; p = p->next)
5310 if (! p->used)
5312 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
5314 char buff [20];
5316 sprintf_vma (buff, p->vma_val);
5318 /* xgettext:c-format */
5319 non_fatal (_("%s %s%c0x%s never used"),
5320 "--change-section-vma",
5321 p->pattern,
5322 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
5323 buff);
5326 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
5328 char buff [20];
5330 sprintf_vma (buff, p->lma_val);
5332 /* xgettext:c-format */
5333 non_fatal (_("%s %s%c0x%s never used"),
5334 "--change-section-lma",
5335 p->pattern,
5336 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
5337 buff);
5343 return 0;
5347 main (int argc, char *argv[])
5349 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
5350 setlocale (LC_MESSAGES, "");
5351 #endif
5352 #if defined (HAVE_SETLOCALE)
5353 setlocale (LC_CTYPE, "");
5354 #endif
5355 bindtextdomain (PACKAGE, LOCALEDIR);
5356 textdomain (PACKAGE);
5358 program_name = argv[0];
5359 xmalloc_set_program_name (program_name);
5361 START_PROGRESS (program_name, 0);
5363 expandargv (&argc, &argv);
5365 strip_symbols = STRIP_UNDEF;
5366 discard_locals = LOCALS_UNDEF;
5368 bfd_init ();
5369 set_default_bfd_target ();
5371 if (is_strip < 0)
5373 int i = strlen (program_name);
5374 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
5375 /* Drop the .exe suffix, if any. */
5376 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
5378 i -= 4;
5379 program_name[i] = '\0';
5381 #endif
5382 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
5385 create_symbol_htabs ();
5387 if (argv != NULL)
5388 bfd_set_error_program_name (argv[0]);
5390 if (is_strip)
5391 strip_main (argc, argv);
5392 else
5393 copy_main (argc, argv);
5395 END_PROGRESS (program_name);
5397 return status;