1 /* objcopy.c -- copy object file from input to output, optionally massaging it.
2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013
4 Free Software Foundation, Inc.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
27 #include "libiberty.h"
30 #include "filenames.h"
34 #include "coff/internal.h"
37 /* FIXME: See bfd/peXXigen.c for why we include an architecture specific
38 header in generic PE code. */
39 #include "coff/i386.h"
42 static bfd_vma pe_file_alignment
= (bfd_vma
) -1;
43 static bfd_vma pe_heap_commit
= (bfd_vma
) -1;
44 static bfd_vma pe_heap_reserve
= (bfd_vma
) -1;
45 static bfd_vma pe_image_base
= (bfd_vma
) -1;
46 static bfd_vma pe_section_alignment
= (bfd_vma
) -1;
47 static bfd_vma pe_stack_commit
= (bfd_vma
) -1;
48 static bfd_vma pe_stack_reserve
= (bfd_vma
) -1;
49 static short pe_subsystem
= -1;
50 static short pe_major_subsystem_version
= -1;
51 static short pe_minor_subsystem_version
= -1;
53 struct is_specified_symbol_predicate_data
59 /* A list to support redefine_sym. */
64 struct redefine_node
*next
;
67 typedef struct section_rename
69 const char * old_name
;
70 const char * new_name
;
72 struct section_rename
* next
;
76 /* List of sections to be renamed. */
77 static section_rename
*section_rename_list
;
79 static asymbol
**isympp
= NULL
; /* Input symbols. */
80 static asymbol
**osympp
= NULL
; /* Output symbols that survive stripping. */
82 /* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
83 static int copy_byte
= -1;
84 static int interleave
= 0; /* Initialised to 4 in copy_main(). */
85 static int copy_width
= 1;
87 static bfd_boolean verbose
; /* Print file and target names. */
88 static bfd_boolean preserve_dates
; /* Preserve input file timestamp. */
89 static int deterministic
= -1; /* Enable deterministic archives. */
90 static int status
= 0; /* Exit status. */
95 STRIP_NONE
, /* Don't strip. */
96 STRIP_DEBUG
, /* Strip all debugger symbols. */
97 STRIP_UNNEEDED
, /* Strip unnecessary symbols. */
98 STRIP_NONDEBUG
, /* Strip everything but debug info. */
99 STRIP_DWO
, /* Strip all DWO info. */
100 STRIP_NONDWO
, /* Strip everything but DWO info. */
101 STRIP_ALL
/* Strip all symbols. */
104 /* Which symbols to remove. */
105 static enum strip_action strip_symbols
= STRIP_UNDEF
;
110 LOCALS_START_L
, /* Discard locals starting with L. */
111 LOCALS_ALL
/* Discard all locals. */
114 /* Which local symbols to remove. Overrides STRIP_ALL. */
115 static enum locals_action discard_locals
;
117 /* What kind of change to perform. */
125 /* Structure used to hold lists of sections and actions to take. */
128 struct section_list
* next
; /* Next section to change. */
129 const char * name
; /* Section name. */
130 bfd_boolean used
; /* Whether this entry was used. */
131 bfd_boolean remove
; /* Whether to remove this section. */
132 bfd_boolean copy
; /* Whether to copy this section. */
133 enum change_action change_vma
;/* Whether to change or set VMA. */
134 bfd_vma vma_val
; /* Amount to change by or set to. */
135 enum change_action change_lma
;/* Whether to change or set LMA. */
136 bfd_vma lma_val
; /* Amount to change by or set to. */
137 bfd_boolean set_flags
; /* Whether to set the section flags. */
138 flagword flags
; /* What to set the section flags to. */
141 static struct section_list
*change_sections
;
143 /* TRUE if some sections are to be removed. */
144 static bfd_boolean sections_removed
;
146 /* TRUE if only some sections are to be copied. */
147 static bfd_boolean sections_copied
;
149 /* Changes to the start address. */
150 static bfd_vma change_start
= 0;
151 static bfd_boolean set_start_set
= FALSE
;
152 static bfd_vma set_start
;
154 /* Changes to section addresses. */
155 static bfd_vma change_section_address
= 0;
157 /* Filling gaps between sections. */
158 static bfd_boolean gap_fill_set
= FALSE
;
159 static bfd_byte gap_fill
= 0;
161 /* Pad to a given address. */
162 static bfd_boolean pad_to_set
= FALSE
;
163 static bfd_vma pad_to
;
165 /* Use alternative machine code? */
166 static unsigned long use_alt_mach_code
= 0;
168 /* Output BFD flags user wants to set or clear */
169 static flagword bfd_flags_to_set
;
170 static flagword bfd_flags_to_clear
;
172 /* List of sections to add. */
175 /* Next section to add. */
176 struct section_add
*next
;
177 /* Name of section to add. */
179 /* Name of file holding section contents. */
180 const char *filename
;
183 /* Contents of file. */
185 /* BFD section, after it has been added. */
189 /* List of sections to add to the output BFD. */
190 static struct section_add
*add_sections
;
192 /* If non-NULL the argument to --add-gnu-debuglink.
193 This should be the filename to store in the .gnu_debuglink section. */
194 static const char * gnu_debuglink_filename
= NULL
;
196 /* Whether to convert debugging information. */
197 static bfd_boolean convert_debugging
= FALSE
;
199 /* Whether to compress/decompress DWARF debug sections. */
205 } do_debug_sections
= nothing
;
207 /* Whether to change the leading character in symbol names. */
208 static bfd_boolean change_leading_char
= FALSE
;
210 /* Whether to remove the leading character from global symbol names. */
211 static bfd_boolean remove_leading_char
= FALSE
;
213 /* Whether to permit wildcard in symbol comparison. */
214 static bfd_boolean wildcard
= FALSE
;
216 /* True if --localize-hidden is in effect. */
217 static bfd_boolean localize_hidden
= FALSE
;
219 /* List of symbols to strip, keep, localize, keep-global, weaken,
221 static htab_t strip_specific_htab
= NULL
;
222 static htab_t strip_unneeded_htab
= NULL
;
223 static htab_t keep_specific_htab
= NULL
;
224 static htab_t localize_specific_htab
= NULL
;
225 static htab_t globalize_specific_htab
= NULL
;
226 static htab_t keepglobal_specific_htab
= NULL
;
227 static htab_t weaken_specific_htab
= NULL
;
228 static struct redefine_node
*redefine_sym_list
= NULL
;
230 /* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
231 static bfd_boolean weaken
= FALSE
;
233 /* If this is TRUE, we retain BSF_FILE symbols. */
234 static bfd_boolean keep_file_symbols
= FALSE
;
236 /* Prefix symbols/sections. */
237 static char *prefix_symbols_string
= 0;
238 static char *prefix_sections_string
= 0;
239 static char *prefix_alloc_sections_string
= 0;
241 /* True if --extract-symbol was passed on the command line. */
242 static bfd_boolean extract_symbol
= FALSE
;
244 /* If `reverse_bytes' is nonzero, then reverse the order of every chunk
245 of <reverse_bytes> bytes within each output section. */
246 static int reverse_bytes
= 0;
248 /* For Coff objects, we may want to allow or disallow long section names,
249 or preserve them where found in the inputs. Debug info relies on them. */
250 enum long_section_name_handling
257 /* The default long section handling mode is to preserve them.
258 This is also the only behaviour for 'strip'. */
259 static enum long_section_name_handling long_section_names
= KEEP
;
261 /* 150 isn't special; it's just an arbitrary non-ASCII char value. */
262 enum command_line_switch
264 OPTION_ADD_SECTION
=150,
265 OPTION_CHANGE_ADDRESSES
,
266 OPTION_CHANGE_LEADING_CHAR
,
268 OPTION_CHANGE_SECTION_ADDRESS
,
269 OPTION_CHANGE_SECTION_LMA
,
270 OPTION_CHANGE_SECTION_VMA
,
271 OPTION_CHANGE_WARNINGS
,
272 OPTION_COMPRESS_DEBUG_SECTIONS
,
274 OPTION_DECOMPRESS_DEBUG_SECTIONS
,
276 OPTION_NO_CHANGE_WARNINGS
,
278 OPTION_REMOVE_LEADING_CHAR
,
279 OPTION_SET_SECTION_FLAGS
,
281 OPTION_STRIP_UNNEEDED
,
284 OPTION_REDEFINE_SYMS
,
287 OPTION_STRIP_SYMBOLS
,
288 OPTION_STRIP_UNNEEDED_SYMBOL
,
289 OPTION_STRIP_UNNEEDED_SYMBOLS
,
291 OPTION_LOCALIZE_HIDDEN
,
292 OPTION_LOCALIZE_SYMBOLS
,
293 OPTION_LONG_SECTION_NAMES
,
294 OPTION_GLOBALIZE_SYMBOL
,
295 OPTION_GLOBALIZE_SYMBOLS
,
296 OPTION_KEEPGLOBAL_SYMBOLS
,
297 OPTION_WEAKEN_SYMBOLS
,
298 OPTION_RENAME_SECTION
,
299 OPTION_ALT_MACH_CODE
,
300 OPTION_PREFIX_SYMBOLS
,
301 OPTION_PREFIX_SECTIONS
,
302 OPTION_PREFIX_ALLOC_SECTIONS
,
304 OPTION_ADD_GNU_DEBUGLINK
,
305 OPTION_ONLY_KEEP_DEBUG
,
306 OPTION_KEEP_FILE_SYMBOLS
,
307 OPTION_READONLY_TEXT
,
308 OPTION_WRITABLE_TEXT
,
311 OPTION_EXTRACT_SYMBOL
,
312 OPTION_REVERSE_BYTES
,
313 OPTION_FILE_ALIGNMENT
,
316 OPTION_SECTION_ALIGNMENT
,
318 OPTION_INTERLEAVE_WIDTH
,
324 /* Options to handle if running as "strip". */
326 static struct option strip_options
[] =
328 {"disable-deterministic-archives", no_argument
, 0, 'U'},
329 {"discard-all", no_argument
, 0, 'x'},
330 {"discard-locals", no_argument
, 0, 'X'},
331 {"enable-deterministic-archives", no_argument
, 0, 'D'},
332 {"format", required_argument
, 0, 'F'}, /* Obsolete */
333 {"help", no_argument
, 0, 'h'},
334 {"info", no_argument
, 0, OPTION_FORMATS_INFO
},
335 {"input-format", required_argument
, 0, 'I'}, /* Obsolete */
336 {"input-target", required_argument
, 0, 'I'},
337 {"keep-file-symbols", no_argument
, 0, OPTION_KEEP_FILE_SYMBOLS
},
338 {"keep-symbol", required_argument
, 0, 'K'},
339 {"only-keep-debug", no_argument
, 0, OPTION_ONLY_KEEP_DEBUG
},
340 {"output-format", required_argument
, 0, 'O'}, /* Obsolete */
341 {"output-target", required_argument
, 0, 'O'},
342 {"output-file", required_argument
, 0, 'o'},
343 {"preserve-dates", no_argument
, 0, 'p'},
344 {"remove-section", required_argument
, 0, 'R'},
345 {"strip-all", no_argument
, 0, 's'},
346 {"strip-debug", no_argument
, 0, 'S'},
347 {"strip-dwo", no_argument
, 0, OPTION_STRIP_DWO
},
348 {"strip-unneeded", no_argument
, 0, OPTION_STRIP_UNNEEDED
},
349 {"strip-symbol", required_argument
, 0, 'N'},
350 {"target", required_argument
, 0, 'F'},
351 {"verbose", no_argument
, 0, 'v'},
352 {"version", no_argument
, 0, 'V'},
353 {"wildcard", no_argument
, 0, 'w'},
354 {0, no_argument
, 0, 0}
357 /* Options to handle if running as "objcopy". */
359 static struct option copy_options
[] =
361 {"add-gnu-debuglink", required_argument
, 0, OPTION_ADD_GNU_DEBUGLINK
},
362 {"add-section", required_argument
, 0, OPTION_ADD_SECTION
},
363 {"adjust-start", required_argument
, 0, OPTION_CHANGE_START
},
364 {"adjust-vma", required_argument
, 0, OPTION_CHANGE_ADDRESSES
},
365 {"adjust-section-vma", required_argument
, 0, OPTION_CHANGE_SECTION_ADDRESS
},
366 {"adjust-warnings", no_argument
, 0, OPTION_CHANGE_WARNINGS
},
367 {"alt-machine-code", required_argument
, 0, OPTION_ALT_MACH_CODE
},
368 {"binary-architecture", required_argument
, 0, 'B'},
369 {"byte", required_argument
, 0, 'b'},
370 {"change-addresses", required_argument
, 0, OPTION_CHANGE_ADDRESSES
},
371 {"change-leading-char", no_argument
, 0, OPTION_CHANGE_LEADING_CHAR
},
372 {"change-section-address", required_argument
, 0, OPTION_CHANGE_SECTION_ADDRESS
},
373 {"change-section-lma", required_argument
, 0, OPTION_CHANGE_SECTION_LMA
},
374 {"change-section-vma", required_argument
, 0, OPTION_CHANGE_SECTION_VMA
},
375 {"change-start", required_argument
, 0, OPTION_CHANGE_START
},
376 {"change-warnings", no_argument
, 0, OPTION_CHANGE_WARNINGS
},
377 {"compress-debug-sections", no_argument
, 0, OPTION_COMPRESS_DEBUG_SECTIONS
},
378 {"debugging", no_argument
, 0, OPTION_DEBUGGING
},
379 {"decompress-debug-sections", no_argument
, 0, OPTION_DECOMPRESS_DEBUG_SECTIONS
},
380 {"disable-deterministic-archives", no_argument
, 0, 'U'},
381 {"discard-all", no_argument
, 0, 'x'},
382 {"discard-locals", no_argument
, 0, 'X'},
383 {"enable-deterministic-archives", no_argument
, 0, 'D'},
384 {"extract-dwo", no_argument
, 0, OPTION_EXTRACT_DWO
},
385 {"extract-symbol", no_argument
, 0, OPTION_EXTRACT_SYMBOL
},
386 {"format", required_argument
, 0, 'F'}, /* Obsolete */
387 {"gap-fill", required_argument
, 0, OPTION_GAP_FILL
},
388 {"globalize-symbol", required_argument
, 0, OPTION_GLOBALIZE_SYMBOL
},
389 {"globalize-symbols", required_argument
, 0, OPTION_GLOBALIZE_SYMBOLS
},
390 {"help", no_argument
, 0, 'h'},
391 {"impure", no_argument
, 0, OPTION_IMPURE
},
392 {"info", no_argument
, 0, OPTION_FORMATS_INFO
},
393 {"input-format", required_argument
, 0, 'I'}, /* Obsolete */
394 {"input-target", required_argument
, 0, 'I'},
395 {"interleave", optional_argument
, 0, 'i'},
396 {"interleave-width", required_argument
, 0, OPTION_INTERLEAVE_WIDTH
},
397 {"keep-file-symbols", no_argument
, 0, OPTION_KEEP_FILE_SYMBOLS
},
398 {"keep-global-symbol", required_argument
, 0, 'G'},
399 {"keep-global-symbols", required_argument
, 0, OPTION_KEEPGLOBAL_SYMBOLS
},
400 {"keep-symbol", required_argument
, 0, 'K'},
401 {"keep-symbols", required_argument
, 0, OPTION_KEEP_SYMBOLS
},
402 {"localize-hidden", no_argument
, 0, OPTION_LOCALIZE_HIDDEN
},
403 {"localize-symbol", required_argument
, 0, 'L'},
404 {"localize-symbols", required_argument
, 0, OPTION_LOCALIZE_SYMBOLS
},
405 {"long-section-names", required_argument
, 0, OPTION_LONG_SECTION_NAMES
},
406 {"no-adjust-warnings", no_argument
, 0, OPTION_NO_CHANGE_WARNINGS
},
407 {"no-change-warnings", no_argument
, 0, OPTION_NO_CHANGE_WARNINGS
},
408 {"only-keep-debug", no_argument
, 0, OPTION_ONLY_KEEP_DEBUG
},
409 {"only-section", required_argument
, 0, 'j'},
410 {"output-format", required_argument
, 0, 'O'}, /* Obsolete */
411 {"output-target", required_argument
, 0, 'O'},
412 {"pad-to", required_argument
, 0, OPTION_PAD_TO
},
413 {"prefix-symbols", required_argument
, 0, OPTION_PREFIX_SYMBOLS
},
414 {"prefix-sections", required_argument
, 0, OPTION_PREFIX_SECTIONS
},
415 {"prefix-alloc-sections", required_argument
, 0, OPTION_PREFIX_ALLOC_SECTIONS
},
416 {"preserve-dates", no_argument
, 0, 'p'},
417 {"pure", no_argument
, 0, OPTION_PURE
},
418 {"readonly-text", no_argument
, 0, OPTION_READONLY_TEXT
},
419 {"redefine-sym", required_argument
, 0, OPTION_REDEFINE_SYM
},
420 {"redefine-syms", required_argument
, 0, OPTION_REDEFINE_SYMS
},
421 {"remove-leading-char", no_argument
, 0, OPTION_REMOVE_LEADING_CHAR
},
422 {"remove-section", required_argument
, 0, 'R'},
423 {"rename-section", required_argument
, 0, OPTION_RENAME_SECTION
},
424 {"reverse-bytes", required_argument
, 0, OPTION_REVERSE_BYTES
},
425 {"set-section-flags", required_argument
, 0, OPTION_SET_SECTION_FLAGS
},
426 {"set-start", required_argument
, 0, OPTION_SET_START
},
427 {"srec-len", required_argument
, 0, OPTION_SREC_LEN
},
428 {"srec-forceS3", no_argument
, 0, OPTION_SREC_FORCES3
},
429 {"strip-all", no_argument
, 0, 'S'},
430 {"strip-debug", no_argument
, 0, 'g'},
431 {"strip-dwo", no_argument
, 0, OPTION_STRIP_DWO
},
432 {"strip-unneeded", no_argument
, 0, OPTION_STRIP_UNNEEDED
},
433 {"strip-unneeded-symbol", required_argument
, 0, OPTION_STRIP_UNNEEDED_SYMBOL
},
434 {"strip-unneeded-symbols", required_argument
, 0, OPTION_STRIP_UNNEEDED_SYMBOLS
},
435 {"strip-symbol", required_argument
, 0, 'N'},
436 {"strip-symbols", required_argument
, 0, OPTION_STRIP_SYMBOLS
},
437 {"target", required_argument
, 0, 'F'},
438 {"verbose", no_argument
, 0, 'v'},
439 {"version", no_argument
, 0, 'V'},
440 {"weaken", no_argument
, 0, OPTION_WEAKEN
},
441 {"weaken-symbol", required_argument
, 0, 'W'},
442 {"weaken-symbols", required_argument
, 0, OPTION_WEAKEN_SYMBOLS
},
443 {"wildcard", no_argument
, 0, 'w'},
444 {"writable-text", no_argument
, 0, OPTION_WRITABLE_TEXT
},
445 {"file-alignment", required_argument
, 0, OPTION_FILE_ALIGNMENT
},
446 {"heap", required_argument
, 0, OPTION_HEAP
},
447 {"image-base", required_argument
, 0 , OPTION_IMAGE_BASE
},
448 {"section-alignment", required_argument
, 0, OPTION_SECTION_ALIGNMENT
},
449 {"stack", required_argument
, 0, OPTION_STACK
},
450 {"subsystem", required_argument
, 0, OPTION_SUBSYSTEM
},
451 {0, no_argument
, 0, 0}
455 extern char *program_name
;
457 /* This flag distinguishes between strip and objcopy:
458 1 means this is 'strip'; 0 means this is 'objcopy'.
459 -1 means if we should use argv[0] to decide. */
462 /* The maximum length of an S record. This variable is declared in srec.c
463 and can be modified by the --srec-len parameter. */
464 extern unsigned int Chunk
;
466 /* Restrict the generation of Srecords to type S3 only.
467 This variable is declare in bfd/srec.c and can be toggled
468 on by the --srec-forceS3 command line switch. */
469 extern bfd_boolean S3Forced
;
471 /* Forward declarations. */
472 static void setup_section (bfd
*, asection
*, void *);
473 static void setup_bfd_headers (bfd
*, bfd
*);
474 static void copy_relocations_in_section (bfd
*, asection
*, void *);
475 static void copy_section (bfd
*, asection
*, void *);
476 static void get_sections (bfd
*, asection
*, void *);
477 static int compare_section_lma (const void *, const void *);
478 static void mark_symbols_used_in_relocations (bfd
*, asection
*, void *);
479 static bfd_boolean
write_debugging_info (bfd
*, void *, long *, asymbol
***);
480 static const char *lookup_sym_redefinition (const char *);
483 copy_usage (FILE *stream
, int exit_status
)
485 fprintf (stream
, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name
);
486 fprintf (stream
, _(" Copies a binary file, possibly transforming it in the process\n"));
487 fprintf (stream
, _(" The options are:\n"));
488 fprintf (stream
, _("\
489 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
490 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
491 -B --binary-architecture <arch> Set output arch, when input is arch-less\n\
492 -F --target <bfdname> Set both input and output format to <bfdname>\n\
493 --debugging Convert debugging information, if possible\n\
494 -p --preserve-dates Copy modified/access timestamps to the output\n"));
495 if (DEFAULT_AR_DETERMINISTIC
)
496 fprintf (stream
, _("\
497 -D --enable-deterministic-archives\n\
498 Produce deterministic output when stripping archives (default)\n\
499 -U --disable-deterministic-archives\n\
500 Disable -D behavior\n"));
502 fprintf (stream
, _("\
503 -D --enable-deterministic-archives\n\
504 Produce deterministic output when stripping archives\n\
505 -U --disable-deterministic-archives\n\
506 Disable -D behavior (default)\n"));
507 fprintf (stream
, _("\
508 -j --only-section <name> Only copy section <name> into the output\n\
509 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
510 -R --remove-section <name> Remove section <name> from the output\n\
511 -S --strip-all Remove all symbol and relocation information\n\
512 -g --strip-debug Remove all debugging symbols & sections\n\
513 --strip-dwo Remove all DWO sections\n\
514 --strip-unneeded Remove all symbols not needed by relocations\n\
515 -N --strip-symbol <name> Do not copy symbol <name>\n\
516 --strip-unneeded-symbol <name>\n\
517 Do not copy symbol <name> unless needed by\n\
519 --only-keep-debug Strip everything but the debug information\n\
520 --extract-dwo Copy only DWO sections\n\
521 --extract-symbol Remove section contents but keep symbols\n\
522 -K --keep-symbol <name> Do not strip symbol <name>\n\
523 --keep-file-symbols Do not strip file symbol(s)\n\
524 --localize-hidden Turn all ELF hidden symbols into locals\n\
525 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
526 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
527 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
528 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
529 --weaken Force all global symbols to be marked as weak\n\
530 -w --wildcard Permit wildcard in symbol comparison\n\
531 -x --discard-all Remove all non-global symbols\n\
532 -X --discard-locals Remove any compiler-generated symbols\n\
533 -i --interleave [<number>] Only copy N out of every <number> bytes\n\
534 --interleave-width <number> Set N for --interleave\n\
535 -b --byte <num> Select byte <num> in every interleaved block\n\
536 --gap-fill <val> Fill gaps between sections with <val>\n\
537 --pad-to <addr> Pad the last section up to address <addr>\n\
538 --set-start <addr> Set the start address to <addr>\n\
539 {--change-start|--adjust-start} <incr>\n\
540 Add <incr> to the start address\n\
541 {--change-addresses|--adjust-vma} <incr>\n\
542 Add <incr> to LMA, VMA and start addresses\n\
543 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
544 Change LMA and VMA of section <name> by <val>\n\
545 --change-section-lma <name>{=|+|-}<val>\n\
546 Change the LMA of section <name> by <val>\n\
547 --change-section-vma <name>{=|+|-}<val>\n\
548 Change the VMA of section <name> by <val>\n\
549 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
550 Warn if a named section does not exist\n\
551 --set-section-flags <name>=<flags>\n\
552 Set section <name>'s properties to <flags>\n\
553 --add-section <name>=<file> Add section <name> found in <file> to output\n\
554 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
555 --long-section-names {enable|disable|keep}\n\
556 Handle long section names in Coff objects.\n\
557 --change-leading-char Force output format's leading character style\n\
558 --remove-leading-char Remove leading character from global symbols\n\
559 --reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
560 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
561 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
563 --srec-len <number> Restrict the length of generated Srecords\n\
564 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
565 --strip-symbols <file> -N for all symbols listed in <file>\n\
566 --strip-unneeded-symbols <file>\n\
567 --strip-unneeded-symbol for all symbols listed\n\
569 --keep-symbols <file> -K for all symbols listed in <file>\n\
570 --localize-symbols <file> -L for all symbols listed in <file>\n\
571 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
572 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
573 --weaken-symbols <file> -W for all symbols listed in <file>\n\
574 --alt-machine-code <index> Use the target's <index>'th alternative machine\n\
575 --writable-text Mark the output text as writable\n\
576 --readonly-text Make the output text write protected\n\
577 --pure Mark the output file as demand paged\n\
578 --impure Mark the output file as impure\n\
579 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
580 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
581 --prefix-alloc-sections <prefix>\n\
582 Add <prefix> to start of every allocatable\n\
584 --file-alignment <num> Set PE file alignment to <num>\n\
585 --heap <reserve>[,<commit>] Set PE reserve/commit heap to <reserve>/\n\
587 --image-base <address> Set PE image base to <address>\n\
588 --section-alignment <num> Set PE section alignment to <num>\n\
589 --stack <reserve>[,<commit>] Set PE reserve/commit stack to <reserve>/\n\
591 --subsystem <name>[:<version>]\n\
592 Set PE subsystem to <name> [& <version>]\n\
593 --compress-debug-sections Compress DWARF debug sections using zlib\n\
594 --decompress-debug-sections Decompress DWARF debug sections using zlib\n\
595 -v --verbose List all object files modified\n\
596 @<file> Read options from <file>\n\
597 -V --version Display this program's version number\n\
598 -h --help Display this output\n\
599 --info List object formats & architectures supported\n\
601 list_supported_targets (program_name
, stream
);
602 if (REPORT_BUGS_TO
[0] && exit_status
== 0)
603 fprintf (stream
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
608 strip_usage (FILE *stream
, int exit_status
)
610 fprintf (stream
, _("Usage: %s <option(s)> in-file(s)\n"), program_name
);
611 fprintf (stream
, _(" Removes symbols and sections from files\n"));
612 fprintf (stream
, _(" The options are:\n"));
613 fprintf (stream
, _("\
614 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
615 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
616 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
617 -p --preserve-dates Copy modified/access timestamps to the output\n\
619 if (DEFAULT_AR_DETERMINISTIC
)
620 fprintf (stream
, _("\
621 -D --enable-deterministic-archives\n\
622 Produce deterministic output when stripping archives (default)\n\
623 -U --disable-deterministic-archives\n\
624 Disable -D behavior\n"));
626 fprintf (stream
, _("\
627 -D --enable-deterministic-archives\n\
628 Produce deterministic output when stripping archives\n\
629 -U --disable-deterministic-archives\n\
630 Disable -D behavior (default)\n"));
631 fprintf (stream
, _("\
632 -R --remove-section=<name> Remove section <name> from the output\n\
633 -s --strip-all Remove all symbol and relocation information\n\
634 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
635 --strip-dwo Remove all DWO sections\n\
636 --strip-unneeded Remove all symbols not needed by relocations\n\
637 --only-keep-debug Strip everything but the debug information\n\
638 -N --strip-symbol=<name> Do not copy symbol <name>\n\
639 -K --keep-symbol=<name> Do not strip symbol <name>\n\
640 --keep-file-symbols Do not strip file symbol(s)\n\
641 -w --wildcard Permit wildcard in symbol comparison\n\
642 -x --discard-all Remove all non-global symbols\n\
643 -X --discard-locals Remove any compiler-generated symbols\n\
644 -v --verbose List all object files modified\n\
645 -V --version Display this program's version number\n\
646 -h --help Display this output\n\
647 --info List object formats & architectures supported\n\
648 -o <file> Place stripped output into <file>\n\
651 list_supported_targets (program_name
, stream
);
652 if (REPORT_BUGS_TO
[0] && exit_status
== 0)
653 fprintf (stream
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
657 /* Parse section flags into a flagword, with a fatal error if the
658 string can't be parsed. */
661 parse_flags (const char *s
)
671 snext
= strchr (s
, ',');
681 #define PARSE_FLAG(fname,fval) \
682 else if (strncasecmp (fname, s, len) == 0) ret |= fval
683 PARSE_FLAG ("alloc", SEC_ALLOC
);
684 PARSE_FLAG ("load", SEC_LOAD
);
685 PARSE_FLAG ("noload", SEC_NEVER_LOAD
);
686 PARSE_FLAG ("readonly", SEC_READONLY
);
687 PARSE_FLAG ("debug", SEC_DEBUGGING
);
688 PARSE_FLAG ("code", SEC_CODE
);
689 PARSE_FLAG ("data", SEC_DATA
);
690 PARSE_FLAG ("rom", SEC_ROM
);
691 PARSE_FLAG ("share", SEC_COFF_SHARED
);
692 PARSE_FLAG ("contents", SEC_HAS_CONTENTS
);
693 PARSE_FLAG ("merge", SEC_MERGE
);
694 PARSE_FLAG ("strings", SEC_STRINGS
);
700 copy
= (char *) xmalloc (len
+ 1);
701 strncpy (copy
, s
, len
);
703 non_fatal (_("unrecognized section flag `%s'"), copy
);
704 fatal (_("supported flags: %s"),
705 "alloc, load, noload, readonly, debug, code, data, rom, share, contents, merge, strings");
715 /* Find and optionally add an entry in the change_sections list. */
717 static struct section_list
*
718 find_section_list (const char *name
, bfd_boolean add
)
720 struct section_list
*p
;
722 for (p
= change_sections
; p
!= NULL
; p
= p
->next
)
723 if (strcmp (p
->name
, name
) == 0)
729 p
= (struct section_list
*) xmalloc (sizeof (struct section_list
));
734 p
->change_vma
= CHANGE_IGNORE
;
735 p
->change_lma
= CHANGE_IGNORE
;
738 p
->set_flags
= FALSE
;
741 p
->next
= change_sections
;
747 /* There is htab_hash_string but no htab_eq_string. Makes sense. */
750 eq_string (const void *s1
, const void *s2
)
752 return strcmp ((const char *) s1
, (const char *) s2
) == 0;
756 create_symbol_htab (void)
758 return htab_create_alloc (16, htab_hash_string
, eq_string
, NULL
, xcalloc
, free
);
762 create_symbol_htabs (void)
764 strip_specific_htab
= create_symbol_htab ();
765 strip_unneeded_htab
= create_symbol_htab ();
766 keep_specific_htab
= create_symbol_htab ();
767 localize_specific_htab
= create_symbol_htab ();
768 globalize_specific_htab
= create_symbol_htab ();
769 keepglobal_specific_htab
= create_symbol_htab ();
770 weaken_specific_htab
= create_symbol_htab ();
773 /* Add a symbol to strip_specific_list. */
776 add_specific_symbol (const char *name
, htab_t htab
)
778 *htab_find_slot (htab
, name
, INSERT
) = (char *) name
;
781 /* Add symbols listed in `filename' to strip_specific_list. */
783 #define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
784 #define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
787 add_specific_symbols (const char *filename
, htab_t htab
)
793 unsigned int line_count
;
795 size
= get_file_size (filename
);
802 buffer
= (char *) xmalloc (size
+ 2);
803 f
= fopen (filename
, FOPEN_RT
);
805 fatal (_("cannot open '%s': %s"), filename
, strerror (errno
));
807 if (fread (buffer
, 1, size
, f
) == 0 || ferror (f
))
808 fatal (_("%s: fread failed"), filename
);
811 buffer
[size
] = '\n';
812 buffer
[size
+ 1] = '\0';
816 for (line
= buffer
; * line
!= '\0'; line
++)
821 int finished
= FALSE
;
823 for (eol
= line
;; eol
++)
829 /* Cope with \n\r. */
837 /* Cope with \r\n. */
848 /* Line comment, Terminate the line here, in case a
849 name is present and then allow the rest of the
850 loop to find the real end of the line. */
862 /* A name may now exist somewhere between 'line' and 'eol'.
863 Strip off leading whitespace and trailing whitespace,
864 then add it to the list. */
865 for (name
= line
; IS_WHITESPACE (* name
); name
++)
867 for (name_end
= name
;
868 (! IS_WHITESPACE (* name_end
))
869 && (! IS_LINE_TERMINATOR (* name_end
));
873 if (! IS_LINE_TERMINATOR (* name_end
))
877 for (extra
= name_end
+ 1; IS_WHITESPACE (* extra
); extra
++)
880 if (! IS_LINE_TERMINATOR (* extra
))
881 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
882 filename
, line_count
);
888 add_specific_symbol (name
, htab
);
890 /* Advance line pointer to end of line. The 'eol ++' in the for
891 loop above will then advance us to the start of the next line. */
897 /* See whether a symbol should be stripped or kept
898 based on strip_specific_list and keep_symbols. */
901 is_specified_symbol_predicate (void **slot
, void *data
)
903 struct is_specified_symbol_predicate_data
*d
=
904 (struct is_specified_symbol_predicate_data
*) data
;
905 const char *slot_name
= (char *) *slot
;
907 if (*slot_name
!= '!')
909 if (! fnmatch (slot_name
, d
->name
, 0))
912 /* Stop traversal. */
918 if (fnmatch (slot_name
+ 1, d
->name
, 0))
921 /* Stop traversal. */
926 /* Continue traversal. */
931 is_specified_symbol (const char *name
, htab_t htab
)
935 struct is_specified_symbol_predicate_data data
;
940 htab_traverse (htab
, is_specified_symbol_predicate
, &data
);
945 return htab_find (htab
, name
) != NULL
;
948 /* Return a pointer to the symbol used as a signature for GROUP. */
951 group_signature (asection
*group
)
953 bfd
*abfd
= group
->owner
;
954 Elf_Internal_Shdr
*ghdr
;
956 if (bfd_get_flavour (abfd
) != bfd_target_elf_flavour
)
959 ghdr
= &elf_section_data (group
)->this_hdr
;
960 if (ghdr
->sh_link
< elf_numsections (abfd
))
962 const struct elf_backend_data
*bed
= get_elf_backend_data (abfd
);
963 Elf_Internal_Shdr
*symhdr
= elf_elfsections (abfd
) [ghdr
->sh_link
];
965 if (symhdr
->sh_type
== SHT_SYMTAB
966 && ghdr
->sh_info
< symhdr
->sh_size
/ bed
->s
->sizeof_sym
)
967 return isympp
[ghdr
->sh_info
- 1];
972 /* Return TRUE if the section is a DWO section. */
975 is_dwo_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
)
977 const char *name
= bfd_get_section_name (abfd
, sec
);
978 int len
= strlen (name
);
980 return strncmp (name
+ len
- 4, ".dwo", 4) == 0;
983 /* See if a non-group section is being removed. */
986 is_strip_section_1 (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
)
988 if (sections_removed
|| sections_copied
)
990 struct section_list
*p
;
992 p
= find_section_list (bfd_get_section_name (abfd
, sec
), FALSE
);
994 if (sections_removed
&& p
!= NULL
&& p
->remove
)
996 if (sections_copied
&& (p
== NULL
|| ! p
->copy
))
1000 if ((bfd_get_section_flags (abfd
, sec
) & SEC_DEBUGGING
) != 0)
1002 if (strip_symbols
== STRIP_DEBUG
1003 || strip_symbols
== STRIP_UNNEEDED
1004 || strip_symbols
== STRIP_ALL
1005 || discard_locals
== LOCALS_ALL
1006 || convert_debugging
)
1008 /* By default we don't want to strip .reloc section.
1009 This section has for pe-coff special meaning. See
1010 pe-dll.c file in ld, and peXXigen.c in bfd for details. */
1011 if (strcmp (bfd_get_section_name (abfd
, sec
), ".reloc") != 0)
1015 if (strip_symbols
== STRIP_DWO
)
1016 return is_dwo_section (abfd
, sec
);
1018 if (strip_symbols
== STRIP_NONDEBUG
)
1022 if (strip_symbols
== STRIP_NONDWO
)
1023 return !is_dwo_section (abfd
, sec
);
1028 /* See if a section is being removed. */
1031 is_strip_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
)
1033 if (is_strip_section_1 (abfd
, sec
))
1036 if ((bfd_get_section_flags (abfd
, sec
) & SEC_GROUP
) != 0)
1040 asection
*elt
, *first
;
1043 If we are going to strip the group signature symbol, then
1044 strip the group section too. */
1045 gsym
= group_signature (sec
);
1050 if ((strip_symbols
== STRIP_ALL
1051 && !is_specified_symbol (gname
, keep_specific_htab
))
1052 || is_specified_symbol (gname
, strip_specific_htab
))
1055 /* Remove the group section if all members are removed. */
1056 first
= elt
= elf_next_in_group (sec
);
1059 if (!is_strip_section_1 (abfd
, elt
))
1061 elt
= elf_next_in_group (elt
);
1072 /* Return true if SYM is a hidden symbol. */
1075 is_hidden_symbol (asymbol
*sym
)
1077 elf_symbol_type
*elf_sym
;
1079 elf_sym
= elf_symbol_from (sym
->the_bfd
, sym
);
1080 if (elf_sym
!= NULL
)
1081 switch (ELF_ST_VISIBILITY (elf_sym
->internal_elf_sym
.st_other
))
1090 /* Choose which symbol entries to copy; put the result in OSYMS.
1091 We don't copy in place, because that confuses the relocs.
1092 Return the number of symbols to print. */
1095 filter_symbols (bfd
*abfd
, bfd
*obfd
, asymbol
**osyms
,
1096 asymbol
**isyms
, long symcount
)
1098 asymbol
**from
= isyms
, **to
= osyms
;
1099 long src_count
= 0, dst_count
= 0;
1100 int relocatable
= (abfd
->flags
& (EXEC_P
| DYNAMIC
)) == 0;
1102 for (; src_count
< symcount
; src_count
++)
1104 asymbol
*sym
= from
[src_count
];
1105 flagword flags
= sym
->flags
;
1106 char *name
= (char *) bfd_asymbol_name (sym
);
1108 bfd_boolean used_in_reloc
= FALSE
;
1109 bfd_boolean undefined
;
1110 bfd_boolean rem_leading_char
;
1111 bfd_boolean add_leading_char
;
1113 undefined
= bfd_is_und_section (bfd_get_section (sym
));
1115 if (redefine_sym_list
)
1117 char *old_name
, *new_name
;
1119 old_name
= (char *) bfd_asymbol_name (sym
);
1120 new_name
= (char *) lookup_sym_redefinition (old_name
);
1121 bfd_asymbol_name (sym
) = new_name
;
1125 /* Check if we will remove the current leading character. */
1127 (name
[0] == bfd_get_symbol_leading_char (abfd
))
1128 && (change_leading_char
1129 || (remove_leading_char
1130 && ((flags
& (BSF_GLOBAL
| BSF_WEAK
)) != 0
1132 || bfd_is_com_section (bfd_get_section (sym
)))));
1134 /* Check if we will add a new leading character. */
1137 && (bfd_get_symbol_leading_char (obfd
) != '\0')
1138 && (bfd_get_symbol_leading_char (abfd
) == '\0'
1139 || (name
[0] == bfd_get_symbol_leading_char (abfd
)));
1141 /* Short circuit for change_leading_char if we can do it in-place. */
1142 if (rem_leading_char
&& add_leading_char
&& !prefix_symbols_string
)
1144 name
[0] = bfd_get_symbol_leading_char (obfd
);
1145 bfd_asymbol_name (sym
) = name
;
1146 rem_leading_char
= FALSE
;
1147 add_leading_char
= FALSE
;
1150 /* Remove leading char. */
1151 if (rem_leading_char
)
1152 bfd_asymbol_name (sym
) = ++name
;
1154 /* Add new leading char and/or prefix. */
1155 if (add_leading_char
|| prefix_symbols_string
)
1159 ptr
= n
= (char *) xmalloc (1 + strlen (prefix_symbols_string
)
1160 + strlen (name
) + 1);
1161 if (add_leading_char
)
1162 *ptr
++ = bfd_get_symbol_leading_char (obfd
);
1164 if (prefix_symbols_string
)
1166 strcpy (ptr
, prefix_symbols_string
);
1167 ptr
+= strlen (prefix_symbols_string
);
1171 bfd_asymbol_name (sym
) = n
;
1175 if (strip_symbols
== STRIP_ALL
)
1177 else if ((flags
& BSF_KEEP
) != 0 /* Used in relocation. */
1178 || ((flags
& BSF_SECTION_SYM
) != 0
1179 && ((*bfd_get_section (sym
)->symbol_ptr_ptr
)->flags
1183 used_in_reloc
= TRUE
;
1185 else if (relocatable
/* Relocatable file. */
1186 && ((flags
& (BSF_GLOBAL
| BSF_WEAK
)) != 0
1187 || bfd_is_com_section (bfd_get_section (sym
))))
1189 else if (bfd_decode_symclass (sym
) == 'I')
1190 /* Global symbols in $idata sections need to be retained
1191 even if relocatable is FALSE. External users of the
1192 library containing the $idata section may reference these
1195 else if ((flags
& BSF_GLOBAL
) != 0 /* Global symbol. */
1196 || (flags
& BSF_WEAK
) != 0
1198 || bfd_is_com_section (bfd_get_section (sym
)))
1199 keep
= strip_symbols
!= STRIP_UNNEEDED
;
1200 else if ((flags
& BSF_DEBUGGING
) != 0) /* Debugging symbol. */
1201 keep
= (strip_symbols
!= STRIP_DEBUG
1202 && strip_symbols
!= STRIP_UNNEEDED
1203 && ! convert_debugging
);
1204 else if (bfd_coff_get_comdat_section (abfd
, bfd_get_section (sym
)))
1205 /* COMDAT sections store special information in local
1206 symbols, so we cannot risk stripping any of them. */
1208 else /* Local symbol. */
1209 keep
= (strip_symbols
!= STRIP_UNNEEDED
1210 && (discard_locals
!= LOCALS_ALL
1211 && (discard_locals
!= LOCALS_START_L
1212 || ! bfd_is_local_label (abfd
, sym
))));
1214 if (keep
&& is_specified_symbol (name
, strip_specific_htab
))
1216 /* There are multiple ways to set 'keep' above, but if it
1217 was the relocatable symbol case, then that's an error. */
1220 non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name
);
1228 && !(flags
& BSF_KEEP
)
1229 && is_specified_symbol (name
, strip_unneeded_htab
))
1233 && ((keep_file_symbols
&& (flags
& BSF_FILE
))
1234 || is_specified_symbol (name
, keep_specific_htab
)))
1237 if (keep
&& is_strip_section (abfd
, bfd_get_section (sym
)))
1242 if ((flags
& BSF_GLOBAL
) != 0
1243 && (weaken
|| is_specified_symbol (name
, weaken_specific_htab
)))
1245 sym
->flags
&= ~ BSF_GLOBAL
;
1246 sym
->flags
|= BSF_WEAK
;
1250 && (flags
& (BSF_GLOBAL
| BSF_WEAK
))
1251 && (is_specified_symbol (name
, localize_specific_htab
)
1252 || (htab_elements (keepglobal_specific_htab
) != 0
1253 && ! is_specified_symbol (name
, keepglobal_specific_htab
))
1254 || (localize_hidden
&& is_hidden_symbol (sym
))))
1256 sym
->flags
&= ~ (BSF_GLOBAL
| BSF_WEAK
);
1257 sym
->flags
|= BSF_LOCAL
;
1261 && (flags
& BSF_LOCAL
)
1262 && is_specified_symbol (name
, globalize_specific_htab
))
1264 sym
->flags
&= ~ BSF_LOCAL
;
1265 sym
->flags
|= BSF_GLOBAL
;
1268 to
[dst_count
++] = sym
;
1272 to
[dst_count
] = NULL
;
1277 /* Find the redefined name of symbol SOURCE. */
1280 lookup_sym_redefinition (const char *source
)
1282 struct redefine_node
*list
;
1284 for (list
= redefine_sym_list
; list
!= NULL
; list
= list
->next
)
1285 if (strcmp (source
, list
->source
) == 0)
1286 return list
->target
;
1291 /* Add a node to a symbol redefine list. */
1294 redefine_list_append (const char *cause
, const char *source
, const char *target
)
1296 struct redefine_node
**p
;
1297 struct redefine_node
*list
;
1298 struct redefine_node
*new_node
;
1300 for (p
= &redefine_sym_list
; (list
= *p
) != NULL
; p
= &list
->next
)
1302 if (strcmp (source
, list
->source
) == 0)
1303 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
1306 if (strcmp (target
, list
->target
) == 0)
1307 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
1311 new_node
= (struct redefine_node
*) xmalloc (sizeof (struct redefine_node
));
1313 new_node
->source
= strdup (source
);
1314 new_node
->target
= strdup (target
);
1315 new_node
->next
= NULL
;
1320 /* Handle the --redefine-syms option. Read lines containing "old new"
1321 from the file, and add them to the symbol redefine list. */
1324 add_redefine_syms_file (const char *filename
)
1333 file
= fopen (filename
, "r");
1335 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1336 filename
, strerror (errno
));
1339 buf
= (char *) xmalloc (bufsize
+ 1 /* For the terminating NUL. */);
1347 /* Collect the input symbol name. */
1348 while (! IS_WHITESPACE (c
) && ! IS_LINE_TERMINATOR (c
) && c
!= EOF
)
1356 buf
= (char *) xrealloc (buf
, bufsize
+ 1);
1364 /* Eat white space between the symbol names. */
1365 while (IS_WHITESPACE (c
))
1367 if (c
== '#' || IS_LINE_TERMINATOR (c
))
1372 /* Collect the output symbol name. */
1374 while (! IS_WHITESPACE (c
) && ! IS_LINE_TERMINATOR (c
) && c
!= EOF
)
1382 buf
= (char *) xrealloc (buf
, bufsize
+ 1);
1390 /* Eat white space at end of line. */
1391 while (! IS_LINE_TERMINATOR(c
) && c
!= EOF
&& IS_WHITESPACE (c
))
1396 if ((c
== '\r' && (c
= getc (file
)) == '\n')
1397 || c
== '\n' || c
== EOF
)
1400 /* Append the redefinition to the list. */
1402 redefine_list_append (filename
, &buf
[0], &buf
[outsym_off
]);
1413 fatal (_("%s:%d: garbage found at end of line"), filename
, lineno
);
1415 if (len
!= 0 && (outsym_off
== 0 || outsym_off
== len
))
1416 fatal (_("%s:%d: missing new symbol name"), filename
, lineno
);
1419 /* Eat the rest of the line and finish it. */
1420 while (c
!= '\n' && c
!= EOF
)
1426 fatal (_("%s:%d: premature end of file"), filename
, lineno
);
1431 /* Copy unkown object file IBFD onto OBFD.
1432 Returns TRUE upon success, FALSE otherwise. */
1435 copy_unknown_object (bfd
*ibfd
, bfd
*obfd
)
1443 if (bfd_stat_arch_elt (ibfd
, &buf
) != 0)
1445 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1452 non_fatal (_("stat returns negative size for `%s'"),
1453 bfd_get_archive_filename (ibfd
));
1457 if (bfd_seek (ibfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1459 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1464 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1465 bfd_get_archive_filename (ibfd
), bfd_get_filename (obfd
));
1467 cbuf
= (char *) xmalloc (BUFSIZE
);
1469 while (ncopied
< size
)
1471 tocopy
= size
- ncopied
;
1472 if (tocopy
> BUFSIZE
)
1475 if (bfd_bread (cbuf
, (bfd_size_type
) tocopy
, ibfd
)
1476 != (bfd_size_type
) tocopy
)
1478 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1483 if (bfd_bwrite (cbuf
, (bfd_size_type
) tocopy
, obfd
)
1484 != (bfd_size_type
) tocopy
)
1486 bfd_nonfatal_message (NULL
, obfd
, NULL
, NULL
);
1494 /* We should at least to be able to read it back when copying an
1495 unknown object in an archive. */
1496 chmod (bfd_get_filename (obfd
), buf
.st_mode
| S_IRUSR
);
1501 /* Copy object file IBFD onto OBFD.
1502 Returns TRUE upon success, FALSE otherwise. */
1505 copy_object (bfd
*ibfd
, bfd
*obfd
, const bfd_arch_info_type
*input_arch
)
1509 asection
**osections
= NULL
;
1510 asection
*gnu_debuglink_section
= NULL
;
1511 bfd_size_type
*gaps
= NULL
;
1512 bfd_size_type max_gap
= 0;
1515 enum bfd_architecture iarch
;
1518 if (ibfd
->xvec
->byteorder
!= obfd
->xvec
->byteorder
1519 && ibfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
1520 && obfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
)
1521 fatal (_("Unable to change endianness of input file(s)"));
1523 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
1525 bfd_nonfatal_message (NULL
, obfd
, NULL
, NULL
);
1530 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
1531 bfd_get_archive_filename (ibfd
), bfd_get_target (ibfd
),
1532 bfd_get_filename (obfd
), bfd_get_target (obfd
));
1541 start
= bfd_get_start_address (ibfd
);
1542 start
+= change_start
;
1545 /* Neither the start address nor the flags
1546 need to be set for a core file. */
1547 if (bfd_get_format (obfd
) != bfd_core
)
1551 flags
= bfd_get_file_flags (ibfd
);
1552 flags
|= bfd_flags_to_set
;
1553 flags
&= ~bfd_flags_to_clear
;
1554 flags
&= bfd_applicable_file_flags (obfd
);
1556 if (strip_symbols
== STRIP_ALL
)
1557 flags
&= ~HAS_RELOC
;
1559 if (!bfd_set_start_address (obfd
, start
)
1560 || !bfd_set_file_flags (obfd
, flags
))
1562 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1567 /* Copy architecture of input file to output file. */
1568 iarch
= bfd_get_arch (ibfd
);
1569 imach
= bfd_get_mach (ibfd
);
1572 if (bfd_get_arch_info (ibfd
) == NULL
1573 || bfd_get_arch_info (ibfd
)->arch
== bfd_arch_unknown
)
1575 iarch
= input_arch
->arch
;
1576 imach
= input_arch
->mach
;
1579 non_fatal (_("Input file `%s' ignores binary architecture parameter."),
1580 bfd_get_archive_filename (ibfd
));
1582 if (!bfd_set_arch_mach (obfd
, iarch
, imach
)
1583 && (ibfd
->target_defaulted
1584 || bfd_get_arch (ibfd
) != bfd_get_arch (obfd
)))
1586 if (bfd_get_arch (ibfd
) == bfd_arch_unknown
)
1587 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1588 bfd_get_archive_filename (ibfd
));
1590 non_fatal (_("Output file cannot represent architecture `%s'"),
1591 bfd_printable_arch_mach (bfd_get_arch (ibfd
),
1592 bfd_get_mach (ibfd
)));
1596 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
1598 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1602 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
1603 && bfd_pei_p (obfd
))
1605 /* Set up PE parameters. */
1606 pe_data_type
*pe
= pe_data (obfd
);
1608 /* Copy PE parameters before changing them. */
1609 if (ibfd
->xvec
->flavour
== bfd_target_coff_flavour
1610 && bfd_pei_p (ibfd
))
1611 pe
->pe_opthdr
= pe_data (ibfd
)->pe_opthdr
;
1613 if (pe_file_alignment
!= (bfd_vma
) -1)
1614 pe
->pe_opthdr
.FileAlignment
= pe_file_alignment
;
1616 pe_file_alignment
= PE_DEF_FILE_ALIGNMENT
;
1618 if (pe_heap_commit
!= (bfd_vma
) -1)
1619 pe
->pe_opthdr
.SizeOfHeapCommit
= pe_heap_commit
;
1621 if (pe_heap_reserve
!= (bfd_vma
) -1)
1622 pe
->pe_opthdr
.SizeOfHeapCommit
= pe_heap_reserve
;
1624 if (pe_image_base
!= (bfd_vma
) -1)
1625 pe
->pe_opthdr
.ImageBase
= pe_image_base
;
1627 if (pe_section_alignment
!= (bfd_vma
) -1)
1628 pe
->pe_opthdr
.SectionAlignment
= pe_section_alignment
;
1630 pe_section_alignment
= PE_DEF_SECTION_ALIGNMENT
;
1632 if (pe_stack_commit
!= (bfd_vma
) -1)
1633 pe
->pe_opthdr
.SizeOfStackCommit
= pe_stack_commit
;
1635 if (pe_stack_reserve
!= (bfd_vma
) -1)
1636 pe
->pe_opthdr
.SizeOfStackCommit
= pe_stack_reserve
;
1638 if (pe_subsystem
!= -1)
1639 pe
->pe_opthdr
.Subsystem
= pe_subsystem
;
1641 if (pe_major_subsystem_version
!= -1)
1642 pe
->pe_opthdr
.MajorSubsystemVersion
= pe_major_subsystem_version
;
1644 if (pe_minor_subsystem_version
!= -1)
1645 pe
->pe_opthdr
.MinorSubsystemVersion
= pe_minor_subsystem_version
;
1647 if (pe_file_alignment
> pe_section_alignment
)
1649 char file_alignment
[20], section_alignment
[20];
1651 sprintf_vma (file_alignment
, pe_file_alignment
);
1652 sprintf_vma (section_alignment
, pe_section_alignment
);
1653 non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
1655 file_alignment
, section_alignment
);
1662 if (osympp
!= isympp
)
1668 symsize
= bfd_get_symtab_upper_bound (ibfd
);
1671 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1675 osympp
= isympp
= (asymbol
**) xmalloc (symsize
);
1676 symcount
= bfd_canonicalize_symtab (ibfd
, isympp
);
1679 bfd_nonfatal_message (NULL
, ibfd
, NULL
, NULL
);
1683 /* BFD mandates that all output sections be created and sizes set before
1684 any output is done. Thus, we traverse all sections multiple times. */
1685 bfd_map_over_sections (ibfd
, setup_section
, obfd
);
1687 if (!extract_symbol
)
1688 setup_bfd_headers (ibfd
, obfd
);
1690 if (add_sections
!= NULL
)
1692 struct section_add
*padd
;
1693 struct section_list
*pset
;
1695 for (padd
= add_sections
; padd
!= NULL
; padd
= padd
->next
)
1699 pset
= find_section_list (padd
->name
, FALSE
);
1703 flags
= SEC_HAS_CONTENTS
| SEC_READONLY
| SEC_DATA
;
1704 if (pset
!= NULL
&& pset
->set_flags
)
1705 flags
= pset
->flags
| SEC_HAS_CONTENTS
;
1707 /* bfd_make_section_with_flags() does not return very helpful
1708 error codes, so check for the most likely user error first. */
1709 if (bfd_get_section_by_name (obfd
, padd
->name
))
1711 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1712 _("can't add section '%s'"), padd
->name
);
1717 /* We use LINKER_CREATED here so that the backend hooks
1718 will create any special section type information,
1719 instead of presuming we know what we're doing merely
1720 because we set the flags. */
1721 padd
->section
= bfd_make_section_with_flags
1722 (obfd
, padd
->name
, flags
| SEC_LINKER_CREATED
);
1723 if (padd
->section
== NULL
)
1725 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1726 _("can't create section `%s'"),
1732 if (! bfd_set_section_size (obfd
, padd
->section
, padd
->size
))
1734 bfd_nonfatal_message (NULL
, obfd
, padd
->section
, NULL
);
1740 if (pset
->change_vma
!= CHANGE_IGNORE
)
1741 if (! bfd_set_section_vma (obfd
, padd
->section
,
1744 bfd_nonfatal_message (NULL
, obfd
, padd
->section
, NULL
);
1748 if (pset
->change_lma
!= CHANGE_IGNORE
)
1750 padd
->section
->lma
= pset
->lma_val
;
1752 if (! bfd_set_section_alignment
1753 (obfd
, padd
->section
,
1754 bfd_section_alignment (obfd
, padd
->section
)))
1756 bfd_nonfatal_message (NULL
, obfd
, padd
->section
, NULL
);
1764 if (gnu_debuglink_filename
!= NULL
)
1766 /* PR 15125: Give a helpful warning message if
1767 the debuglink section already exists, and
1768 allow the rest of the copy to complete. */
1769 if (bfd_get_section_by_name (obfd
, ".gnu_debuglink"))
1771 non_fatal (_("%s: debuglink section already exists"),
1772 bfd_get_filename (obfd
));
1773 gnu_debuglink_filename
= NULL
;
1777 gnu_debuglink_section
= bfd_create_gnu_debuglink_section
1778 (obfd
, gnu_debuglink_filename
);
1780 if (gnu_debuglink_section
== NULL
)
1782 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1783 _("cannot create debug link section `%s'"),
1784 gnu_debuglink_filename
);
1788 /* Special processing for PE format files. We
1789 have no way to distinguish PE from COFF here. */
1790 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
)
1792 bfd_vma debuglink_vma
;
1793 asection
* highest_section
;
1796 /* The PE spec requires that all sections be adjacent and sorted
1797 in ascending order of VMA. It also specifies that debug
1798 sections should be last. This is despite the fact that debug
1799 sections are not loaded into memory and so in theory have no
1802 This means that the debuglink section must be given a non-zero
1803 VMA which makes it contiguous with other debug sections. So
1804 walk the current section list, find the section with the
1805 highest VMA and start the debuglink section after that one. */
1806 for (sec
= obfd
->sections
, highest_section
= NULL
;
1810 && (highest_section
== NULL
1811 || sec
->vma
> highest_section
->vma
))
1812 highest_section
= sec
;
1814 if (highest_section
)
1815 debuglink_vma
= BFD_ALIGN (highest_section
->vma
1816 + highest_section
->size
,
1817 /* FIXME: We ought to be using
1818 COFF_PAGE_SIZE here or maybe
1819 bfd_get_section_alignment() (if it
1820 was set) but since this is for PE
1821 and we know the required alignment
1822 it is easier just to hard code it. */
1825 /* Umm, not sure what to do in this case. */
1826 debuglink_vma
= 0x1000;
1828 bfd_set_section_vma (obfd
, gnu_debuglink_section
, debuglink_vma
);
1833 if (bfd_count_sections (obfd
) != 0
1834 && (gap_fill_set
|| pad_to_set
))
1839 /* We must fill in gaps between the sections and/or we must pad
1840 the last section to a specified address. We do this by
1841 grabbing a list of the sections, sorting them by VMA, and
1842 increasing the section sizes as required to fill the gaps.
1843 We write out the gap contents below. */
1845 c
= bfd_count_sections (obfd
);
1846 osections
= (asection
**) xmalloc (c
* sizeof (asection
*));
1848 bfd_map_over_sections (obfd
, get_sections
, &set
);
1850 qsort (osections
, c
, sizeof (asection
*), compare_section_lma
);
1852 gaps
= (bfd_size_type
*) xmalloc (c
* sizeof (bfd_size_type
));
1853 memset (gaps
, 0, c
* sizeof (bfd_size_type
));
1857 for (i
= 0; i
< c
- 1; i
++)
1861 bfd_vma gap_start
, gap_stop
;
1863 flags
= bfd_get_section_flags (obfd
, osections
[i
]);
1864 if ((flags
& SEC_HAS_CONTENTS
) == 0
1865 || (flags
& SEC_LOAD
) == 0)
1868 size
= bfd_section_size (obfd
, osections
[i
]);
1869 gap_start
= bfd_section_lma (obfd
, osections
[i
]) + size
;
1870 gap_stop
= bfd_section_lma (obfd
, osections
[i
+ 1]);
1871 if (gap_start
< gap_stop
)
1873 if (! bfd_set_section_size (obfd
, osections
[i
],
1874 size
+ (gap_stop
- gap_start
)))
1876 bfd_nonfatal_message (NULL
, obfd
, osections
[i
],
1877 _("Can't fill gap after section"));
1881 gaps
[i
] = gap_stop
- gap_start
;
1882 if (max_gap
< gap_stop
- gap_start
)
1883 max_gap
= gap_stop
- gap_start
;
1893 lma
= bfd_section_lma (obfd
, osections
[c
- 1]);
1894 size
= bfd_section_size (obfd
, osections
[c
- 1]);
1895 if (lma
+ size
< pad_to
)
1897 if (! bfd_set_section_size (obfd
, osections
[c
- 1],
1900 bfd_nonfatal_message (NULL
, obfd
, osections
[c
- 1],
1901 _("can't add padding"));
1906 gaps
[c
- 1] = pad_to
- (lma
+ size
);
1907 if (max_gap
< pad_to
- (lma
+ size
))
1908 max_gap
= pad_to
- (lma
+ size
);
1914 /* Symbol filtering must happen after the output sections
1915 have been created, but before their contents are set. */
1917 if (convert_debugging
)
1918 dhandle
= read_debugging_info (ibfd
, isympp
, symcount
, FALSE
);
1920 if (strip_symbols
== STRIP_DEBUG
1921 || strip_symbols
== STRIP_ALL
1922 || strip_symbols
== STRIP_UNNEEDED
1923 || strip_symbols
== STRIP_NONDEBUG
1924 || strip_symbols
== STRIP_DWO
1925 || strip_symbols
== STRIP_NONDWO
1926 || discard_locals
!= LOCALS_UNDEF
1928 || htab_elements (strip_specific_htab
) != 0
1929 || htab_elements (keep_specific_htab
) != 0
1930 || htab_elements (localize_specific_htab
) != 0
1931 || htab_elements (globalize_specific_htab
) != 0
1932 || htab_elements (keepglobal_specific_htab
) != 0
1933 || htab_elements (weaken_specific_htab
) != 0
1934 || prefix_symbols_string
1937 || convert_debugging
1938 || change_leading_char
1939 || remove_leading_char
1940 || redefine_sym_list
1943 /* Mark symbols used in output relocations so that they
1944 are kept, even if they are local labels or static symbols.
1946 Note we iterate over the input sections examining their
1947 relocations since the relocations for the output sections
1948 haven't been set yet. mark_symbols_used_in_relocations will
1949 ignore input sections which have no corresponding output
1951 if (strip_symbols
!= STRIP_ALL
)
1952 bfd_map_over_sections (ibfd
,
1953 mark_symbols_used_in_relocations
,
1955 osympp
= (asymbol
**) xmalloc ((symcount
+ 1) * sizeof (asymbol
*));
1956 symcount
= filter_symbols (ibfd
, obfd
, osympp
, isympp
, symcount
);
1959 if (convert_debugging
&& dhandle
!= NULL
)
1961 if (! write_debugging_info (obfd
, dhandle
, &symcount
, &osympp
))
1968 bfd_set_symtab (obfd
, osympp
, symcount
);
1970 /* This has to happen before section positions are set. */
1971 bfd_map_over_sections (ibfd
, copy_relocations_in_section
, obfd
);
1973 /* This has to happen after the symbol table has been set. */
1974 bfd_map_over_sections (ibfd
, copy_section
, obfd
);
1976 if (add_sections
!= NULL
)
1978 struct section_add
*padd
;
1980 for (padd
= add_sections
; padd
!= NULL
; padd
= padd
->next
)
1982 if (! bfd_set_section_contents (obfd
, padd
->section
, padd
->contents
,
1985 bfd_nonfatal_message (NULL
, obfd
, padd
->section
, NULL
);
1991 if (gnu_debuglink_filename
!= NULL
)
1993 if (! bfd_fill_in_gnu_debuglink_section
1994 (obfd
, gnu_debuglink_section
, gnu_debuglink_filename
))
1996 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1997 _("cannot fill debug link section `%s'"),
1998 gnu_debuglink_filename
);
2003 if (gap_fill_set
|| pad_to_set
)
2008 /* Fill in the gaps. */
2011 buf
= (bfd_byte
*) xmalloc (max_gap
);
2012 memset (buf
, gap_fill
, max_gap
);
2014 c
= bfd_count_sections (obfd
);
2015 for (i
= 0; i
< c
; i
++)
2023 off
= bfd_section_size (obfd
, osections
[i
]) - left
;
2034 if (! bfd_set_section_contents (obfd
, osections
[i
], buf
,
2037 bfd_nonfatal_message (NULL
, obfd
, osections
[i
], NULL
);
2048 /* Do not copy backend data if --extract-symbol is passed; anything
2049 that needs to look at the section contents will fail. */
2053 /* Allow the BFD backend to copy any private data it understands
2054 from the input BFD to the output BFD. This is done last to
2055 permit the routine to look at the filtered symbol table, which is
2056 important for the ECOFF code at least. */
2057 if (! bfd_copy_private_bfd_data (ibfd
, obfd
))
2059 bfd_nonfatal_message (NULL
, obfd
, NULL
,
2060 _("error copying private BFD data"));
2064 /* Switch to the alternate machine code. We have to do this at the
2065 very end, because we only initialize the header when we create
2066 the first section. */
2067 if (use_alt_mach_code
!= 0)
2069 if (! bfd_alt_mach_code (obfd
, use_alt_mach_code
))
2071 non_fatal (_("this target does not support %lu alternative machine codes"),
2073 if (bfd_get_flavour (obfd
) == bfd_target_elf_flavour
)
2075 non_fatal (_("treating that number as an absolute e_machine value instead"));
2076 elf_elfheader (obfd
)->e_machine
= use_alt_mach_code
;
2079 non_fatal (_("ignoring the alternative value"));
2086 /* Read each archive element in turn from IBFD, copy the
2087 contents to temp file, and keep the temp file handle.
2088 If 'force_output_target' is TRUE then make sure that
2089 all elements in the new archive are of the type
2093 copy_archive (bfd
*ibfd
, bfd
*obfd
, const char *output_target
,
2094 bfd_boolean force_output_target
,
2095 const bfd_arch_info_type
*input_arch
)
2099 struct name_list
*next
;
2103 bfd
**ptr
= &obfd
->archive_head
;
2106 const char *filename
;
2108 /* Make a temp directory to hold the contents. */
2109 dir
= make_tempdir (bfd_get_filename (obfd
));
2111 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2114 if (strip_symbols
== STRIP_ALL
)
2115 obfd
->has_armap
= FALSE
;
2117 obfd
->has_armap
= ibfd
->has_armap
;
2118 obfd
->is_thin_archive
= ibfd
->is_thin_archive
;
2121 obfd
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
2125 this_element
= bfd_openr_next_archived_file (ibfd
, NULL
);
2127 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
2130 bfd_nonfatal_message (NULL
, obfd
, NULL
, NULL
);
2134 while (!status
&& this_element
!= NULL
)
2140 int stat_status
= 0;
2141 bfd_boolean del
= TRUE
;
2142 bfd_boolean ok_object
;
2144 /* Create an output file for this member. */
2145 output_name
= concat (dir
, "/",
2146 bfd_get_filename (this_element
), (char *) 0);
2148 /* If the file already exists, make another temp dir. */
2149 if (stat (output_name
, &buf
) >= 0)
2151 output_name
= make_tempdir (output_name
);
2152 if (output_name
== NULL
)
2153 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2156 l
= (struct name_list
*) xmalloc (sizeof (struct name_list
));
2157 l
->name
= output_name
;
2161 output_name
= concat (output_name
, "/",
2162 bfd_get_filename (this_element
), (char *) 0);
2167 stat_status
= bfd_stat_arch_elt (this_element
, &buf
);
2169 if (stat_status
!= 0)
2170 non_fatal (_("internal stat error on %s"),
2171 bfd_get_filename (this_element
));
2174 l
= (struct name_list
*) xmalloc (sizeof (struct name_list
));
2175 l
->name
= output_name
;
2180 ok_object
= bfd_check_format (this_element
, bfd_object
);
2182 bfd_nonfatal_message (NULL
, this_element
, NULL
,
2183 _("Unable to recognise the format of file"));
2185 /* PR binutils/3110: Cope with archives
2186 containing multiple target types. */
2187 if (force_output_target
|| !ok_object
)
2188 output_bfd
= bfd_openw (output_name
, output_target
);
2190 output_bfd
= bfd_openw (output_name
, bfd_get_target (this_element
));
2192 if (output_bfd
== NULL
)
2194 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2201 del
= !copy_object (this_element
, output_bfd
, input_arch
);
2203 if (del
&& bfd_get_arch (this_element
) == bfd_arch_unknown
)
2204 /* Try again as an unknown object file. */
2206 else if (!bfd_close (output_bfd
))
2208 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2209 /* Error in new object file. Don't change archive. */
2216 del
= !copy_unknown_object (this_element
, output_bfd
);
2217 if (!bfd_close_all_done (output_bfd
))
2219 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2220 /* Error in new object file. Don't change archive. */
2227 unlink (output_name
);
2232 if (preserve_dates
&& stat_status
== 0)
2233 set_times (output_name
, &buf
);
2235 /* Open the newly output file and attach to our list. */
2236 output_bfd
= bfd_openr (output_name
, output_target
);
2238 l
->obfd
= output_bfd
;
2241 ptr
= &output_bfd
->archive_next
;
2243 last_element
= this_element
;
2245 this_element
= bfd_openr_next_archived_file (ibfd
, last_element
);
2247 bfd_close (last_element
);
2252 filename
= bfd_get_filename (obfd
);
2253 if (!bfd_close (obfd
))
2256 bfd_nonfatal_message (filename
, NULL
, NULL
, NULL
);
2260 filename
= bfd_get_filename (ibfd
);
2261 if (!bfd_close (ibfd
))
2264 bfd_nonfatal_message (filename
, NULL
, NULL
, NULL
);
2268 /* Delete all the files that we opened. */
2269 for (l
= list
; l
!= NULL
; l
= l
->next
)
2271 if (l
->obfd
== NULL
)
2275 bfd_close (l
->obfd
);
2283 set_long_section_mode (bfd
*output_bfd
, bfd
*input_bfd
, enum long_section_name_handling style
)
2285 /* This is only relevant to Coff targets. */
2286 if (bfd_get_flavour (output_bfd
) == bfd_target_coff_flavour
)
2289 && bfd_get_flavour (input_bfd
) == bfd_target_coff_flavour
)
2290 style
= bfd_coff_long_section_names (input_bfd
) ? ENABLE
: DISABLE
;
2291 bfd_coff_set_long_section_names (output_bfd
, style
!= DISABLE
);
2295 /* The top-level control. */
2298 copy_file (const char *input_filename
, const char *output_filename
,
2299 const char *input_target
, const char *output_target
,
2300 const bfd_arch_info_type
*input_arch
)
2303 char **obj_matching
;
2304 char **core_matching
;
2305 off_t size
= get_file_size (input_filename
);
2310 non_fatal (_("error: the input file '%s' is empty"),
2316 /* To allow us to do "strip *" without dying on the first
2317 non-object file, failures are nonfatal. */
2318 ibfd
= bfd_openr (input_filename
, input_target
);
2321 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2326 switch (do_debug_sections
)
2329 ibfd
->flags
|= BFD_COMPRESS
;
2332 ibfd
->flags
|= BFD_DECOMPRESS
;
2338 if (bfd_check_format (ibfd
, bfd_archive
))
2340 bfd_boolean force_output_target
;
2343 /* bfd_get_target does not return the correct value until
2344 bfd_check_format succeeds. */
2345 if (output_target
== NULL
)
2347 output_target
= bfd_get_target (ibfd
);
2348 force_output_target
= FALSE
;
2351 force_output_target
= TRUE
;
2353 obfd
= bfd_openw (output_filename
, output_target
);
2356 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2360 /* This is a no-op on non-Coff targets. */
2361 set_long_section_mode (obfd
, ibfd
, long_section_names
);
2363 copy_archive (ibfd
, obfd
, output_target
, force_output_target
, input_arch
);
2365 else if (bfd_check_format_matches (ibfd
, bfd_object
, &obj_matching
))
2370 /* bfd_get_target does not return the correct value until
2371 bfd_check_format succeeds. */
2372 if (output_target
== NULL
)
2373 output_target
= bfd_get_target (ibfd
);
2375 obfd
= bfd_openw (output_filename
, output_target
);
2378 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2382 /* This is a no-op on non-Coff targets. */
2383 set_long_section_mode (obfd
, ibfd
, long_section_names
);
2385 if (! copy_object (ibfd
, obfd
, input_arch
))
2388 if (!bfd_close (obfd
))
2391 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2395 if (!bfd_close (ibfd
))
2398 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2404 bfd_error_type obj_error
= bfd_get_error ();
2405 bfd_error_type core_error
;
2407 if (bfd_check_format_matches (ibfd
, bfd_core
, &core_matching
))
2409 /* This probably can't happen.. */
2410 if (obj_error
== bfd_error_file_ambiguously_recognized
)
2411 free (obj_matching
);
2415 core_error
= bfd_get_error ();
2416 /* Report the object error in preference to the core error. */
2417 if (obj_error
!= core_error
)
2418 bfd_set_error (obj_error
);
2420 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2422 if (obj_error
== bfd_error_file_ambiguously_recognized
)
2424 list_matching_formats (obj_matching
);
2425 free (obj_matching
);
2427 if (core_error
== bfd_error_file_ambiguously_recognized
)
2429 list_matching_formats (core_matching
);
2430 free (core_matching
);
2437 /* Add a name to the section renaming list. */
2440 add_section_rename (const char * old_name
, const char * new_name
,
2443 section_rename
* srename
;
2445 /* Check for conflicts first. */
2446 for (srename
= section_rename_list
; srename
!= NULL
; srename
= srename
->next
)
2447 if (strcmp (srename
->old_name
, old_name
) == 0)
2449 /* Silently ignore duplicate definitions. */
2450 if (strcmp (srename
->new_name
, new_name
) == 0
2451 && srename
->flags
== flags
)
2454 fatal (_("Multiple renames of section %s"), old_name
);
2457 srename
= (section_rename
*) xmalloc (sizeof (* srename
));
2459 srename
->old_name
= old_name
;
2460 srename
->new_name
= new_name
;
2461 srename
->flags
= flags
;
2462 srename
->next
= section_rename_list
;
2464 section_rename_list
= srename
;
2467 /* Check the section rename list for a new name of the input section
2468 ISECTION. Return the new name if one is found.
2469 Also set RETURNED_FLAGS to the flags to be used for this section. */
2472 find_section_rename (bfd
* ibfd ATTRIBUTE_UNUSED
, sec_ptr isection
,
2473 flagword
* returned_flags
)
2475 const char * old_name
= bfd_section_name (ibfd
, isection
);
2476 section_rename
* srename
;
2478 /* Default to using the flags of the input section. */
2479 * returned_flags
= bfd_get_section_flags (ibfd
, isection
);
2481 for (srename
= section_rename_list
; srename
!= NULL
; srename
= srename
->next
)
2482 if (strcmp (srename
->old_name
, old_name
) == 0)
2484 if (srename
->flags
!= (flagword
) -1)
2485 * returned_flags
= srename
->flags
;
2487 return srename
->new_name
;
2493 /* Once each of the sections is copied, we may still need to do some
2494 finalization work for private section headers. Do that here. */
2497 setup_bfd_headers (bfd
*ibfd
, bfd
*obfd
)
2499 /* Allow the BFD backend to copy any private data it understands
2500 from the input section to the output section. */
2501 if (! bfd_copy_private_header_data (ibfd
, obfd
))
2504 bfd_nonfatal_message (NULL
, ibfd
, NULL
,
2505 _("error in private header data"));
2509 /* All went well. */
2513 /* Create a section in OBFD with the same
2514 name and attributes as ISECTION in IBFD. */
2517 setup_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2519 bfd
*obfd
= (bfd
*) obfdarg
;
2520 struct section_list
*p
;
2528 char *prefix
= NULL
;
2529 bfd_boolean make_nobits
;
2531 if (is_strip_section (ibfd
, isection
))
2534 p
= find_section_list (bfd_section_name (ibfd
, isection
), FALSE
);
2538 /* Get the, possibly new, name of the output section. */
2539 name
= find_section_rename (ibfd
, isection
, & flags
);
2541 /* Prefix sections. */
2542 if ((prefix_alloc_sections_string
)
2543 && (bfd_get_section_flags (ibfd
, isection
) & SEC_ALLOC
))
2544 prefix
= prefix_alloc_sections_string
;
2545 else if (prefix_sections_string
)
2546 prefix
= prefix_sections_string
;
2552 n
= (char *) xmalloc (strlen (prefix
) + strlen (name
) + 1);
2558 make_nobits
= FALSE
;
2559 if (p
!= NULL
&& p
->set_flags
)
2560 flags
= p
->flags
| (flags
& (SEC_HAS_CONTENTS
| SEC_RELOC
));
2561 else if (strip_symbols
== STRIP_NONDEBUG
2562 && (flags
& (SEC_ALLOC
| SEC_GROUP
)) != 0
2563 && !(ibfd
->xvec
->flavour
== bfd_target_elf_flavour
2564 && elf_section_type (isection
) == SHT_NOTE
))
2566 flags
&= ~(SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_GROUP
);
2567 if (obfd
->xvec
->flavour
== bfd_target_elf_flavour
)
2571 /* Twiddle the input section flags so that it seems to
2572 elf.c:copy_private_bfd_data that section flags have not
2573 changed between input and output sections. This hack
2574 prevents wholesale rewriting of the program headers. */
2575 isection
->flags
&= ~(SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_GROUP
);
2579 osection
= bfd_make_section_anyway_with_flags (obfd
, name
, flags
);
2581 if (osection
== NULL
)
2583 err
= _("failed to create output section");
2588 elf_section_type (osection
) = SHT_NOBITS
;
2590 size
= bfd_section_size (ibfd
, isection
);
2592 size
= (size
+ interleave
- 1) / interleave
* copy_width
;
2593 else if (extract_symbol
)
2595 if (! bfd_set_section_size (obfd
, osection
, size
))
2597 err
= _("failed to set size");
2601 vma
= bfd_section_vma (ibfd
, isection
);
2602 if (p
!= NULL
&& p
->change_vma
== CHANGE_MODIFY
)
2604 else if (p
!= NULL
&& p
->change_vma
== CHANGE_SET
)
2607 vma
+= change_section_address
;
2609 if (! bfd_set_section_vma (obfd
, osection
, vma
))
2611 err
= _("failed to set vma");
2615 lma
= isection
->lma
;
2616 if ((p
!= NULL
) && p
->change_lma
!= CHANGE_IGNORE
)
2618 if (p
->change_lma
== CHANGE_MODIFY
)
2620 else if (p
->change_lma
== CHANGE_SET
)
2626 lma
+= change_section_address
;
2628 osection
->lma
= lma
;
2630 /* FIXME: This is probably not enough. If we change the LMA we
2631 may have to recompute the header for the file as well. */
2632 if (!bfd_set_section_alignment (obfd
,
2634 bfd_section_alignment (ibfd
, isection
)))
2636 err
= _("failed to set alignment");
2640 /* Copy merge entity size. */
2641 osection
->entsize
= isection
->entsize
;
2643 /* This used to be mangle_section; we do here to avoid using
2644 bfd_get_section_by_name since some formats allow multiple
2645 sections with the same name. */
2646 isection
->output_section
= osection
;
2647 isection
->output_offset
= 0;
2649 /* Do not copy backend data if --extract-symbol is passed; anything
2650 that needs to look at the section contents will fail. */
2654 if ((isection
->flags
& SEC_GROUP
) != 0)
2656 asymbol
*gsym
= group_signature (isection
);
2660 gsym
->flags
|= BSF_KEEP
;
2661 if (ibfd
->xvec
->flavour
== bfd_target_elf_flavour
)
2662 elf_group_id (isection
) = gsym
;
2666 /* Allow the BFD backend to copy any private data it understands
2667 from the input section to the output section. */
2668 if (!bfd_copy_private_section_data (ibfd
, isection
, obfd
, osection
))
2670 err
= _("failed to copy private data");
2674 /* All went well. */
2679 bfd_nonfatal_message (NULL
, obfd
, osection
, err
);
2682 /* Return TRUE if input section ISECTION should be skipped. */
2685 skip_section (bfd
*ibfd
, sec_ptr isection
)
2691 /* If we have already failed earlier on,
2692 do not keep on generating complaints now. */
2699 if (is_strip_section (ibfd
, isection
))
2702 flags
= bfd_get_section_flags (ibfd
, isection
);
2703 if ((flags
& SEC_GROUP
) != 0)
2706 osection
= isection
->output_section
;
2707 size
= bfd_get_section_size (isection
);
2709 if (size
== 0 || osection
== 0)
2715 /* Copy relocations in input section ISECTION of IBFD to an output
2716 section with the same name in OBFDARG. If stripping then don't
2717 copy any relocation info. */
2720 copy_relocations_in_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2722 bfd
*obfd
= (bfd
*) obfdarg
;
2728 if (skip_section (ibfd
, isection
))
2731 osection
= isection
->output_section
;
2733 /* Core files and DWO files do not need to be relocated. */
2734 if (bfd_get_format (obfd
) == bfd_core
|| strip_symbols
== STRIP_NONDWO
)
2738 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2742 /* Do not complain if the target does not support relocations. */
2743 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2748 bfd_nonfatal_message (NULL
, ibfd
, isection
, NULL
);
2756 bfd_set_reloc (obfd
, osection
, NULL
, 0);
2757 osection
->flags
&= ~SEC_RELOC
;
2761 relpp
= (arelent
**) xmalloc (relsize
);
2762 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, isympp
);
2766 bfd_nonfatal_message (NULL
, ibfd
, isection
,
2767 _("relocation count is negative"));
2771 if (strip_symbols
== STRIP_ALL
)
2773 /* Remove relocations which are not in
2774 keep_strip_specific_list. */
2775 arelent
**temp_relpp
;
2776 long temp_relcount
= 0;
2779 temp_relpp
= (arelent
**) xmalloc (relsize
);
2780 for (i
= 0; i
< relcount
; i
++)
2781 if (is_specified_symbol (bfd_asymbol_name (*relpp
[i
]->sym_ptr_ptr
),
2782 keep_specific_htab
))
2783 temp_relpp
[temp_relcount
++] = relpp
[i
];
2784 relcount
= temp_relcount
;
2789 bfd_set_reloc (obfd
, osection
, relcount
== 0 ? NULL
: relpp
, relcount
);
2792 osection
->flags
&= ~SEC_RELOC
;
2798 /* Copy the data of input section ISECTION of IBFD
2799 to an output section with the same name in OBFD. */
2802 copy_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2804 bfd
*obfd
= (bfd
*) obfdarg
;
2805 struct section_list
*p
;
2809 if (skip_section (ibfd
, isection
))
2812 osection
= isection
->output_section
;
2813 size
= bfd_get_section_size (isection
);
2815 p
= find_section_list (bfd_get_section_name (ibfd
, isection
), FALSE
);
2817 if (bfd_get_section_flags (ibfd
, isection
) & SEC_HAS_CONTENTS
2818 && bfd_get_section_flags (obfd
, osection
) & SEC_HAS_CONTENTS
)
2820 bfd_byte
*memhunk
= NULL
;
2822 if (!bfd_get_full_section_contents (ibfd
, isection
, &memhunk
))
2825 bfd_nonfatal_message (NULL
, ibfd
, isection
, NULL
);
2831 /* We don't handle leftover bytes (too many possible behaviors,
2832 and we don't know what the user wants). The section length
2833 must be a multiple of the number of bytes to swap. */
2834 if ((size
% reverse_bytes
) == 0)
2839 for (i
= 0; i
< size
; i
+= reverse_bytes
)
2840 for (j
= 0; j
< (unsigned long)(reverse_bytes
/ 2); j
++)
2842 bfd_byte
*m
= (bfd_byte
*) memhunk
;
2845 m
[i
+ j
] = m
[(i
+ reverse_bytes
) - (j
+ 1)];
2846 m
[(i
+ reverse_bytes
) - (j
+ 1)] = b
;
2850 /* User must pad the section up in order to do this. */
2851 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
2852 bfd_section_name (ibfd
, isection
), reverse_bytes
);
2857 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2858 char *from
= (char *) memhunk
+ copy_byte
;
2859 char *to
= (char *) memhunk
;
2860 char *end
= (char *) memhunk
+ size
;
2863 for (; from
< end
; from
+= interleave
)
2864 for (i
= 0; i
< copy_width
; i
++)
2866 if (&from
[i
] >= end
)
2871 size
= (size
+ interleave
- 1 - copy_byte
) / interleave
* copy_width
;
2872 osection
->lma
/= interleave
;
2875 if (!bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2878 bfd_nonfatal_message (NULL
, obfd
, osection
, NULL
);
2883 else if (p
!= NULL
&& p
->set_flags
&& (p
->flags
& SEC_HAS_CONTENTS
) != 0)
2885 void *memhunk
= xmalloc (size
);
2887 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
2888 flag--they can just remove the section entirely and add it
2889 back again. However, we do permit them to turn on the
2890 SEC_HAS_CONTENTS flag, and take it to mean that the section
2891 contents should be zeroed out. */
2893 memset (memhunk
, 0, size
);
2894 if (! bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2897 bfd_nonfatal_message (NULL
, obfd
, osection
, NULL
);
2904 /* Get all the sections. This is used when --gap-fill or --pad-to is
2908 get_sections (bfd
*obfd ATTRIBUTE_UNUSED
, asection
*osection
, void *secppparg
)
2910 asection
***secppp
= (asection
***) secppparg
;
2912 **secppp
= osection
;
2916 /* Sort sections by VMA. This is called via qsort, and is used when
2917 --gap-fill or --pad-to is used. We force non loadable or empty
2918 sections to the front, where they are easier to ignore. */
2921 compare_section_lma (const void *arg1
, const void *arg2
)
2923 const asection
*const *sec1
= (const asection
* const *) arg1
;
2924 const asection
*const *sec2
= (const asection
* const *) arg2
;
2925 flagword flags1
, flags2
;
2927 /* Sort non loadable sections to the front. */
2928 flags1
= (*sec1
)->flags
;
2929 flags2
= (*sec2
)->flags
;
2930 if ((flags1
& SEC_HAS_CONTENTS
) == 0
2931 || (flags1
& SEC_LOAD
) == 0)
2933 if ((flags2
& SEC_HAS_CONTENTS
) != 0
2934 && (flags2
& SEC_LOAD
) != 0)
2939 if ((flags2
& SEC_HAS_CONTENTS
) == 0
2940 || (flags2
& SEC_LOAD
) == 0)
2944 /* Sort sections by LMA. */
2945 if ((*sec1
)->lma
> (*sec2
)->lma
)
2947 else if ((*sec1
)->lma
< (*sec2
)->lma
)
2950 /* Sort sections with the same LMA by size. */
2951 if (bfd_get_section_size (*sec1
) > bfd_get_section_size (*sec2
))
2953 else if (bfd_get_section_size (*sec1
) < bfd_get_section_size (*sec2
))
2959 /* Mark all the symbols which will be used in output relocations with
2960 the BSF_KEEP flag so that those symbols will not be stripped.
2962 Ignore relocations which will not appear in the output file. */
2965 mark_symbols_used_in_relocations (bfd
*ibfd
, sec_ptr isection
, void *symbolsarg
)
2967 asymbol
**symbols
= (asymbol
**) symbolsarg
;
2972 /* Ignore an input section with no corresponding output section. */
2973 if (isection
->output_section
== NULL
)
2976 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2979 /* Do not complain if the target does not support relocations. */
2980 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2982 bfd_fatal (bfd_get_filename (ibfd
));
2988 relpp
= (arelent
**) xmalloc (relsize
);
2989 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, symbols
);
2991 bfd_fatal (bfd_get_filename (ibfd
));
2993 /* Examine each symbol used in a relocation. If it's not one of the
2994 special bfd section symbols, then mark it with BSF_KEEP. */
2995 for (i
= 0; i
< relcount
; i
++)
2997 if (*relpp
[i
]->sym_ptr_ptr
!= bfd_com_section_ptr
->symbol
2998 && *relpp
[i
]->sym_ptr_ptr
!= bfd_abs_section_ptr
->symbol
2999 && *relpp
[i
]->sym_ptr_ptr
!= bfd_und_section_ptr
->symbol
)
3000 (*relpp
[i
]->sym_ptr_ptr
)->flags
|= BSF_KEEP
;
3007 /* Write out debugging information. */
3010 write_debugging_info (bfd
*obfd
, void *dhandle
,
3011 long *symcountp ATTRIBUTE_UNUSED
,
3012 asymbol
***symppp ATTRIBUTE_UNUSED
)
3014 if (bfd_get_flavour (obfd
) == bfd_target_ieee_flavour
)
3015 return write_ieee_debugging_info (obfd
, dhandle
);
3017 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
3018 || bfd_get_flavour (obfd
) == bfd_target_elf_flavour
)
3020 bfd_byte
*syms
, *strings
;
3021 bfd_size_type symsize
, stringsize
;
3022 asection
*stabsec
, *stabstrsec
;
3025 if (! write_stabs_in_sections_debugging_info (obfd
, dhandle
, &syms
,
3030 flags
= SEC_HAS_CONTENTS
| SEC_READONLY
| SEC_DEBUGGING
;
3031 stabsec
= bfd_make_section_with_flags (obfd
, ".stab", flags
);
3032 stabstrsec
= bfd_make_section_with_flags (obfd
, ".stabstr", flags
);
3034 || stabstrsec
== NULL
3035 || ! bfd_set_section_size (obfd
, stabsec
, symsize
)
3036 || ! bfd_set_section_size (obfd
, stabstrsec
, stringsize
)
3037 || ! bfd_set_section_alignment (obfd
, stabsec
, 2)
3038 || ! bfd_set_section_alignment (obfd
, stabstrsec
, 0))
3040 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3041 _("can't create debugging section"));
3045 /* We can get away with setting the section contents now because
3046 the next thing the caller is going to do is copy over the
3047 real sections. We may someday have to split the contents
3048 setting out of this function. */
3049 if (! bfd_set_section_contents (obfd
, stabsec
, syms
, 0, symsize
)
3050 || ! bfd_set_section_contents (obfd
, stabstrsec
, strings
, 0,
3053 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3054 _("can't set debugging section contents"));
3061 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3062 _("don't know how to write debugging information for %s"),
3063 bfd_get_target (obfd
));
3067 /* If neither -D nor -U was specified explicitly,
3068 then use the configured default. */
3070 default_deterministic (void)
3072 if (deterministic
< 0)
3073 deterministic
= DEFAULT_AR_DETERMINISTIC
;
3077 strip_main (int argc
, char *argv
[])
3079 char *input_target
= NULL
;
3080 char *output_target
= NULL
;
3081 bfd_boolean show_version
= FALSE
;
3082 bfd_boolean formats_info
= FALSE
;
3085 struct section_list
*p
;
3086 char *output_file
= NULL
;
3088 while ((c
= getopt_long (argc
, argv
, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
3089 strip_options
, (int *) 0)) != EOF
)
3094 input_target
= optarg
;
3097 output_target
= optarg
;
3100 input_target
= output_target
= optarg
;
3103 p
= find_section_list (optarg
, TRUE
);
3105 sections_removed
= TRUE
;
3108 strip_symbols
= STRIP_ALL
;
3112 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
3113 strip_symbols
= STRIP_DEBUG
;
3115 case OPTION_STRIP_DWO
:
3116 strip_symbols
= STRIP_DWO
;
3118 case OPTION_STRIP_UNNEEDED
:
3119 strip_symbols
= STRIP_UNNEEDED
;
3122 add_specific_symbol (optarg
, keep_specific_htab
);
3125 add_specific_symbol (optarg
, strip_specific_htab
);
3128 output_file
= optarg
;
3131 preserve_dates
= TRUE
;
3134 deterministic
= TRUE
;
3137 deterministic
= FALSE
;
3140 discard_locals
= LOCALS_ALL
;
3143 discard_locals
= LOCALS_START_L
;
3149 show_version
= TRUE
;
3151 case OPTION_FORMATS_INFO
:
3152 formats_info
= TRUE
;
3154 case OPTION_ONLY_KEEP_DEBUG
:
3155 strip_symbols
= STRIP_NONDEBUG
;
3157 case OPTION_KEEP_FILE_SYMBOLS
:
3158 keep_file_symbols
= 1;
3161 /* We've been given a long option. */
3168 strip_usage (stdout
, 0);
3170 strip_usage (stderr
, 1);
3181 print_version ("strip");
3183 default_deterministic ();
3185 /* Default is to strip all symbols. */
3186 if (strip_symbols
== STRIP_UNDEF
3187 && discard_locals
== LOCALS_UNDEF
3188 && htab_elements (strip_specific_htab
) == 0)
3189 strip_symbols
= STRIP_ALL
;
3191 if (output_target
== NULL
)
3192 output_target
= input_target
;
3196 || (output_file
!= NULL
&& (i
+ 1) < argc
))
3197 strip_usage (stderr
, 1);
3199 for (; i
< argc
; i
++)
3201 int hold_status
= status
;
3202 struct stat statbuf
;
3205 if (get_file_size (argv
[i
]) < 1)
3212 /* No need to check the return value of stat().
3213 It has already been checked in get_file_size(). */
3214 stat (argv
[i
], &statbuf
);
3216 if (output_file
== NULL
3217 || filename_cmp (argv
[i
], output_file
) == 0)
3218 tmpname
= make_tempname (argv
[i
]);
3220 tmpname
= output_file
;
3222 if (tmpname
== NULL
)
3224 bfd_nonfatal_message (argv
[i
], NULL
, NULL
,
3225 _("could not create temporary file to hold stripped copy"));
3231 copy_file (argv
[i
], tmpname
, input_target
, output_target
, NULL
);
3235 set_times (tmpname
, &statbuf
);
3236 if (output_file
!= tmpname
)
3237 status
= (smart_rename (tmpname
,
3238 output_file
? output_file
: argv
[i
],
3239 preserve_dates
) != 0);
3241 status
= hold_status
;
3244 unlink_if_ordinary (tmpname
);
3245 if (output_file
!= tmpname
)
3252 /* Set up PE subsystem. */
3255 set_pe_subsystem (const char *s
)
3257 const char *version
, *subsystem
;
3267 { "native", 0, IMAGE_SUBSYSTEM_NATIVE
},
3268 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI
},
3269 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI
},
3270 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI
},
3271 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
},
3272 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION
},
3273 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
},
3274 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
},
3275 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER
},
3276 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX
}
3282 /* Check for the presence of a version number. */
3283 version
= strchr (s
, ':');
3284 if (version
== NULL
)
3288 int len
= version
- s
;
3292 version
= copy
+ 1 + len
;
3293 pe_major_subsystem_version
= strtoul (version
, ©
, 0);
3295 pe_minor_subsystem_version
= strtoul (copy
+ 1, ©
, 0);
3297 non_fatal (_("%s: bad version in PE subsystem"), s
);
3300 /* Check for numeric subsystem. */
3301 value
= (short) strtol (subsystem
, ©
, 0);
3304 for (i
= 0; i
< ARRAY_SIZE (v
); i
++)
3305 if (v
[i
].value
== value
)
3307 pe_subsystem
= value
;
3308 set_def
= v
[i
].set_def
;
3314 /* Search for subsystem by name. */
3315 for (i
= 0; i
< ARRAY_SIZE (v
); i
++)
3316 if (strcmp (subsystem
, v
[i
].name
) == 0)
3318 pe_subsystem
= v
[i
].value
;
3319 set_def
= v
[i
].set_def
;
3327 fatal (_("unknown PE subsystem: %s"), s
);
3332 if (pe_file_alignment
== (bfd_vma
) -1)
3333 pe_file_alignment
= PE_DEF_FILE_ALIGNMENT
;
3334 if (pe_section_alignment
== (bfd_vma
) -1)
3335 pe_section_alignment
= PE_DEF_SECTION_ALIGNMENT
;
3339 free ((char *) subsystem
);
3342 /* Convert EFI target to PEI target. */
3345 convert_efi_target (char *efi
)
3351 if (strcmp (efi
+ 4, "ia32") == 0)
3353 /* Change ia32 to i386. */
3358 else if (strcmp (efi
+ 4, "x86_64") == 0)
3360 /* Change x86_64 to x86-64. */
3366 copy_main (int argc
, char *argv
[])
3368 char *input_filename
= NULL
;
3369 char *output_filename
= NULL
;
3371 char *input_target
= NULL
;
3372 char *output_target
= NULL
;
3373 bfd_boolean show_version
= FALSE
;
3374 bfd_boolean change_warn
= TRUE
;
3375 bfd_boolean formats_info
= FALSE
;
3377 struct section_list
*p
;
3378 struct stat statbuf
;
3379 const bfd_arch_info_type
*input_arch
= NULL
;
3381 while ((c
= getopt_long (argc
, argv
, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
3382 copy_options
, (int *) 0)) != EOF
)
3387 copy_byte
= atoi (optarg
);
3389 fatal (_("byte number must be non-negative"));
3393 input_arch
= bfd_scan_arch (optarg
);
3394 if (input_arch
== NULL
)
3395 fatal (_("architecture %s unknown"), optarg
);
3401 interleave
= atoi (optarg
);
3403 fatal (_("interleave must be positive"));
3409 case OPTION_INTERLEAVE_WIDTH
:
3410 copy_width
= atoi (optarg
);
3412 fatal(_("interleave width must be positive"));
3416 case 's': /* "source" - 'I' is preferred */
3417 input_target
= optarg
;
3421 case 'd': /* "destination" - 'O' is preferred */
3422 output_target
= optarg
;
3426 input_target
= output_target
= optarg
;
3430 p
= find_section_list (optarg
, TRUE
);
3432 fatal (_("%s both copied and removed"), optarg
);
3434 sections_copied
= TRUE
;
3438 p
= find_section_list (optarg
, TRUE
);
3440 fatal (_("%s both copied and removed"), optarg
);
3442 sections_removed
= TRUE
;
3446 strip_symbols
= STRIP_ALL
;
3450 strip_symbols
= STRIP_DEBUG
;
3453 case OPTION_STRIP_DWO
:
3454 strip_symbols
= STRIP_DWO
;
3457 case OPTION_STRIP_UNNEEDED
:
3458 strip_symbols
= STRIP_UNNEEDED
;
3461 case OPTION_ONLY_KEEP_DEBUG
:
3462 strip_symbols
= STRIP_NONDEBUG
;
3465 case OPTION_KEEP_FILE_SYMBOLS
:
3466 keep_file_symbols
= 1;
3469 case OPTION_ADD_GNU_DEBUGLINK
:
3470 long_section_names
= ENABLE
;
3471 gnu_debuglink_filename
= optarg
;
3475 add_specific_symbol (optarg
, keep_specific_htab
);
3479 add_specific_symbol (optarg
, strip_specific_htab
);
3482 case OPTION_STRIP_UNNEEDED_SYMBOL
:
3483 add_specific_symbol (optarg
, strip_unneeded_htab
);
3487 add_specific_symbol (optarg
, localize_specific_htab
);
3490 case OPTION_GLOBALIZE_SYMBOL
:
3491 add_specific_symbol (optarg
, globalize_specific_htab
);
3495 add_specific_symbol (optarg
, keepglobal_specific_htab
);
3499 add_specific_symbol (optarg
, weaken_specific_htab
);
3503 preserve_dates
= TRUE
;
3507 deterministic
= TRUE
;
3511 deterministic
= FALSE
;
3519 discard_locals
= LOCALS_ALL
;
3523 discard_locals
= LOCALS_START_L
;
3531 show_version
= TRUE
;
3534 case OPTION_FORMATS_INFO
:
3535 formats_info
= TRUE
;
3542 case OPTION_ADD_SECTION
:
3546 struct section_add
*pa
;
3549 s
= strchr (optarg
, '=');
3552 fatal (_("bad format for %s"), "--add-section");
3554 pa
= (struct section_add
*) xmalloc (sizeof (struct section_add
));
3555 pa
->name
= xstrndup (optarg
, s
- optarg
);
3556 pa
->filename
= s
+ 1;
3558 /* We don't use get_file_size so that we can do
3559 --add-section .note.GNU_stack=/dev/null
3560 get_file_size doesn't work on /dev/null. */
3562 f
= fopen (pa
->filename
, FOPEN_RB
);
3564 fatal (_("cannot open: %s: %s"),
3565 pa
->filename
, strerror (errno
));
3569 pa
->contents
= (bfd_byte
*) xmalloc (alloc
);
3577 pa
->contents
= (bfd_byte
*) xrealloc (pa
->contents
, alloc
);
3580 got
= fread (pa
->contents
+ off
, 1, alloc
- off
, f
);
3582 fatal (_("%s: fread failed"), pa
->filename
);
3591 pa
->next
= add_sections
;
3596 case OPTION_CHANGE_START
:
3597 change_start
= parse_vma (optarg
, "--change-start");
3600 case OPTION_CHANGE_SECTION_ADDRESS
:
3601 case OPTION_CHANGE_SECTION_LMA
:
3602 case OPTION_CHANGE_SECTION_VMA
:
3607 char *option
= NULL
;
3609 enum change_action what
= CHANGE_IGNORE
;
3613 case OPTION_CHANGE_SECTION_ADDRESS
:
3614 option
= "--change-section-address";
3616 case OPTION_CHANGE_SECTION_LMA
:
3617 option
= "--change-section-lma";
3619 case OPTION_CHANGE_SECTION_VMA
:
3620 option
= "--change-section-vma";
3624 s
= strchr (optarg
, '=');
3627 s
= strchr (optarg
, '+');
3630 s
= strchr (optarg
, '-');
3632 fatal (_("bad format for %s"), option
);
3637 name
= (char *) xmalloc (len
+ 1);
3638 strncpy (name
, optarg
, len
);
3641 p
= find_section_list (name
, TRUE
);
3643 val
= parse_vma (s
+ 1, option
);
3647 case '=': what
= CHANGE_SET
; break;
3648 case '-': val
= - val
; /* Drop through. */
3649 case '+': what
= CHANGE_MODIFY
; break;
3654 case OPTION_CHANGE_SECTION_ADDRESS
:
3655 p
->change_vma
= what
;
3659 case OPTION_CHANGE_SECTION_LMA
:
3660 p
->change_lma
= what
;
3664 case OPTION_CHANGE_SECTION_VMA
:
3665 p
->change_vma
= what
;
3672 case OPTION_CHANGE_ADDRESSES
:
3673 change_section_address
= parse_vma (optarg
, "--change-addresses");
3674 change_start
= change_section_address
;
3677 case OPTION_CHANGE_WARNINGS
:
3681 case OPTION_CHANGE_LEADING_CHAR
:
3682 change_leading_char
= TRUE
;
3685 case OPTION_COMPRESS_DEBUG_SECTIONS
:
3686 do_debug_sections
= compress
;
3689 case OPTION_DEBUGGING
:
3690 convert_debugging
= TRUE
;
3693 case OPTION_DECOMPRESS_DEBUG_SECTIONS
:
3694 do_debug_sections
= decompress
;
3697 case OPTION_GAP_FILL
:
3699 bfd_vma gap_fill_vma
;
3701 gap_fill_vma
= parse_vma (optarg
, "--gap-fill");
3702 gap_fill
= (bfd_byte
) gap_fill_vma
;
3703 if ((bfd_vma
) gap_fill
!= gap_fill_vma
)
3707 sprintf_vma (buff
, gap_fill_vma
);
3709 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
3712 gap_fill_set
= TRUE
;
3716 case OPTION_NO_CHANGE_WARNINGS
:
3717 change_warn
= FALSE
;
3721 pad_to
= parse_vma (optarg
, "--pad-to");
3725 case OPTION_REMOVE_LEADING_CHAR
:
3726 remove_leading_char
= TRUE
;
3729 case OPTION_REDEFINE_SYM
:
3731 /* Push this redefinition onto redefine_symbol_list. */
3735 const char *nextarg
;
3736 char *source
, *target
;
3738 s
= strchr (optarg
, '=');
3740 fatal (_("bad format for %s"), "--redefine-sym");
3743 source
= (char *) xmalloc (len
+ 1);
3744 strncpy (source
, optarg
, len
);
3748 len
= strlen (nextarg
);
3749 target
= (char *) xmalloc (len
+ 1);
3750 strcpy (target
, nextarg
);
3752 redefine_list_append ("--redefine-sym", source
, target
);
3759 case OPTION_REDEFINE_SYMS
:
3760 add_redefine_syms_file (optarg
);
3763 case OPTION_SET_SECTION_FLAGS
:
3769 s
= strchr (optarg
, '=');
3771 fatal (_("bad format for %s"), "--set-section-flags");
3774 name
= (char *) xmalloc (len
+ 1);
3775 strncpy (name
, optarg
, len
);
3778 p
= find_section_list (name
, TRUE
);
3780 p
->set_flags
= TRUE
;
3781 p
->flags
= parse_flags (s
+ 1);
3785 case OPTION_RENAME_SECTION
:
3788 const char *eq
, *fl
;
3793 eq
= strchr (optarg
, '=');
3795 fatal (_("bad format for %s"), "--rename-section");
3799 fatal (_("bad format for %s"), "--rename-section");
3801 old_name
= (char *) xmalloc (len
+ 1);
3802 strncpy (old_name
, optarg
, len
);
3806 fl
= strchr (eq
, ',');
3809 flags
= parse_flags (fl
+ 1);
3819 fatal (_("bad format for %s"), "--rename-section");
3821 new_name
= (char *) xmalloc (len
+ 1);
3822 strncpy (new_name
, eq
, len
);
3825 add_section_rename (old_name
, new_name
, flags
);
3829 case OPTION_SET_START
:
3830 set_start
= parse_vma (optarg
, "--set-start");
3831 set_start_set
= TRUE
;
3834 case OPTION_SREC_LEN
:
3835 Chunk
= parse_vma (optarg
, "--srec-len");
3838 case OPTION_SREC_FORCES3
:
3842 case OPTION_STRIP_SYMBOLS
:
3843 add_specific_symbols (optarg
, strip_specific_htab
);
3846 case OPTION_STRIP_UNNEEDED_SYMBOLS
:
3847 add_specific_symbols (optarg
, strip_unneeded_htab
);
3850 case OPTION_KEEP_SYMBOLS
:
3851 add_specific_symbols (optarg
, keep_specific_htab
);
3854 case OPTION_LOCALIZE_HIDDEN
:
3855 localize_hidden
= TRUE
;
3858 case OPTION_LOCALIZE_SYMBOLS
:
3859 add_specific_symbols (optarg
, localize_specific_htab
);
3862 case OPTION_LONG_SECTION_NAMES
:
3863 if (!strcmp ("enable", optarg
))
3864 long_section_names
= ENABLE
;
3865 else if (!strcmp ("disable", optarg
))
3866 long_section_names
= DISABLE
;
3867 else if (!strcmp ("keep", optarg
))
3868 long_section_names
= KEEP
;
3870 fatal (_("unknown long section names option '%s'"), optarg
);
3873 case OPTION_GLOBALIZE_SYMBOLS
:
3874 add_specific_symbols (optarg
, globalize_specific_htab
);
3877 case OPTION_KEEPGLOBAL_SYMBOLS
:
3878 add_specific_symbols (optarg
, keepglobal_specific_htab
);
3881 case OPTION_WEAKEN_SYMBOLS
:
3882 add_specific_symbols (optarg
, weaken_specific_htab
);
3885 case OPTION_ALT_MACH_CODE
:
3886 use_alt_mach_code
= strtoul (optarg
, NULL
, 0);
3887 if (use_alt_mach_code
== 0)
3888 fatal (_("unable to parse alternative machine code"));
3891 case OPTION_PREFIX_SYMBOLS
:
3892 prefix_symbols_string
= optarg
;
3895 case OPTION_PREFIX_SECTIONS
:
3896 prefix_sections_string
= optarg
;
3899 case OPTION_PREFIX_ALLOC_SECTIONS
:
3900 prefix_alloc_sections_string
= optarg
;
3903 case OPTION_READONLY_TEXT
:
3904 bfd_flags_to_set
|= WP_TEXT
;
3905 bfd_flags_to_clear
&= ~WP_TEXT
;
3908 case OPTION_WRITABLE_TEXT
:
3909 bfd_flags_to_clear
|= WP_TEXT
;
3910 bfd_flags_to_set
&= ~WP_TEXT
;
3914 bfd_flags_to_set
|= D_PAGED
;
3915 bfd_flags_to_clear
&= ~D_PAGED
;
3919 bfd_flags_to_clear
|= D_PAGED
;
3920 bfd_flags_to_set
&= ~D_PAGED
;
3923 case OPTION_EXTRACT_DWO
:
3924 strip_symbols
= STRIP_NONDWO
;
3927 case OPTION_EXTRACT_SYMBOL
:
3928 extract_symbol
= TRUE
;
3931 case OPTION_REVERSE_BYTES
:
3933 int prev
= reverse_bytes
;
3935 reverse_bytes
= atoi (optarg
);
3936 if ((reverse_bytes
<= 0) || ((reverse_bytes
% 2) != 0))
3937 fatal (_("number of bytes to reverse must be positive and even"));
3939 if (prev
&& prev
!= reverse_bytes
)
3940 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
3945 case OPTION_FILE_ALIGNMENT
:
3946 pe_file_alignment
= parse_vma (optarg
, "--file-alignment");
3952 pe_heap_reserve
= strtoul (optarg
, &end
, 0);
3954 || (*end
!= '.' && *end
!= '\0'))
3955 non_fatal (_("%s: invalid reserve value for --heap"),
3957 else if (*end
!= '\0')
3959 pe_heap_commit
= strtoul (end
+ 1, &end
, 0);
3961 non_fatal (_("%s: invalid commit value for --heap"),
3967 case OPTION_IMAGE_BASE
:
3968 pe_image_base
= parse_vma (optarg
, "--image-base");
3971 case OPTION_SECTION_ALIGNMENT
:
3972 pe_section_alignment
= parse_vma (optarg
,
3973 "--section-alignment");
3976 case OPTION_SUBSYSTEM
:
3977 set_pe_subsystem (optarg
);
3983 pe_stack_reserve
= strtoul (optarg
, &end
, 0);
3985 || (*end
!= '.' && *end
!= '\0'))
3986 non_fatal (_("%s: invalid reserve value for --stack"),
3988 else if (*end
!= '\0')
3990 pe_stack_commit
= strtoul (end
+ 1, &end
, 0);
3992 non_fatal (_("%s: invalid commit value for --stack"),
3999 /* We've been given a long option. */
4004 copy_usage (stdout
, 0);
4007 copy_usage (stderr
, 1);
4018 print_version ("objcopy");
4020 if (interleave
&& copy_byte
== -1)
4021 fatal (_("interleave start byte must be set with --byte"));
4023 if (copy_byte
>= interleave
)
4024 fatal (_("byte number must be less than interleave"));
4026 if (copy_width
> interleave
- copy_byte
)
4027 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4029 if (optind
== argc
|| optind
+ 2 < argc
)
4030 copy_usage (stderr
, 1);
4032 input_filename
= argv
[optind
];
4033 if (optind
+ 1 < argc
)
4034 output_filename
= argv
[optind
+ 1];
4036 default_deterministic ();
4038 /* Default is to strip no symbols. */
4039 if (strip_symbols
== STRIP_UNDEF
&& discard_locals
== LOCALS_UNDEF
)
4040 strip_symbols
= STRIP_NONE
;
4042 if (output_target
== NULL
)
4043 output_target
= input_target
;
4045 /* Convert input EFI target to PEI target. */
4046 if (input_target
!= NULL
4047 && strncmp (input_target
, "efi-", 4) == 0)
4051 efi
= xstrdup (output_target
+ 4);
4052 if (strncmp (efi
, "bsdrv-", 6) == 0
4053 || strncmp (efi
, "rtdrv-", 6) == 0)
4055 else if (strncmp (efi
, "app-", 4) != 0)
4056 fatal (_("unknown input EFI target: %s"), input_target
);
4059 convert_efi_target (efi
);
4062 /* Convert output EFI target to PEI target. */
4063 if (output_target
!= NULL
4064 && strncmp (output_target
, "efi-", 4) == 0)
4068 efi
= xstrdup (output_target
+ 4);
4069 if (strncmp (efi
, "app-", 4) == 0)
4071 if (pe_subsystem
== -1)
4072 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_APPLICATION
;
4074 else if (strncmp (efi
, "bsdrv-", 6) == 0)
4076 if (pe_subsystem
== -1)
4077 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
;
4080 else if (strncmp (efi
, "rtdrv-", 6) == 0)
4082 if (pe_subsystem
== -1)
4083 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
;
4087 fatal (_("unknown output EFI target: %s"), output_target
);
4089 if (pe_file_alignment
== (bfd_vma
) -1)
4090 pe_file_alignment
= PE_DEF_FILE_ALIGNMENT
;
4091 if (pe_section_alignment
== (bfd_vma
) -1)
4092 pe_section_alignment
= PE_DEF_SECTION_ALIGNMENT
;
4094 output_target
= efi
;
4095 convert_efi_target (efi
);
4099 if (stat (input_filename
, & statbuf
) < 0)
4100 fatal (_("warning: could not locate '%s'. System error message: %s"),
4101 input_filename
, strerror (errno
));
4103 /* If there is no destination file, or the source and destination files
4104 are the same, then create a temp and rename the result into the input. */
4105 if (output_filename
== NULL
4106 || filename_cmp (input_filename
, output_filename
) == 0)
4107 tmpname
= make_tempname (input_filename
);
4109 tmpname
= output_filename
;
4111 if (tmpname
== NULL
)
4112 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4113 input_filename
, strerror (errno
));
4115 copy_file (input_filename
, tmpname
, input_target
, output_target
, input_arch
);
4119 set_times (tmpname
, &statbuf
);
4120 if (tmpname
!= output_filename
)
4121 status
= (smart_rename (tmpname
, input_filename
,
4122 preserve_dates
) != 0);
4125 unlink_if_ordinary (tmpname
);
4129 for (p
= change_sections
; p
!= NULL
; p
= p
->next
)
4133 if (p
->change_vma
!= CHANGE_IGNORE
)
4137 sprintf_vma (buff
, p
->vma_val
);
4139 /* xgettext:c-format */
4140 non_fatal (_("%s %s%c0x%s never used"),
4141 "--change-section-vma",
4143 p
->change_vma
== CHANGE_SET
? '=' : '+',
4147 if (p
->change_lma
!= CHANGE_IGNORE
)
4151 sprintf_vma (buff
, p
->lma_val
);
4153 /* xgettext:c-format */
4154 non_fatal (_("%s %s%c0x%s never used"),
4155 "--change-section-lma",
4157 p
->change_lma
== CHANGE_SET
? '=' : '+',
4168 main (int argc
, char *argv
[])
4170 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4171 setlocale (LC_MESSAGES
, "");
4173 #if defined (HAVE_SETLOCALE)
4174 setlocale (LC_CTYPE
, "");
4176 bindtextdomain (PACKAGE
, LOCALEDIR
);
4177 textdomain (PACKAGE
);
4179 program_name
= argv
[0];
4180 xmalloc_set_program_name (program_name
);
4182 START_PROGRESS (program_name
, 0);
4184 expandargv (&argc
, &argv
);
4186 strip_symbols
= STRIP_UNDEF
;
4187 discard_locals
= LOCALS_UNDEF
;
4190 set_default_bfd_target ();
4194 int i
= strlen (program_name
);
4195 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
4196 /* Drop the .exe suffix, if any. */
4197 if (i
> 4 && FILENAME_CMP (program_name
+ i
- 4, ".exe") == 0)
4200 program_name
[i
] = '\0';
4203 is_strip
= (i
>= 5 && FILENAME_CMP (program_name
+ i
- 5, "strip") == 0);
4206 create_symbol_htabs ();
4209 strip_main (argc
, argv
);
4211 copy_main (argc
, argv
);
4213 END_PROGRESS (program_name
);