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 gnu_debuglink_section
= bfd_create_gnu_debuglink_section
1767 (obfd
, gnu_debuglink_filename
);
1769 if (gnu_debuglink_section
== NULL
)
1771 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1772 _("cannot create debug link section `%s'"),
1773 gnu_debuglink_filename
);
1777 /* Special processing for PE format files. We
1778 have no way to distinguish PE from COFF here. */
1779 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
)
1781 bfd_vma debuglink_vma
;
1782 asection
* highest_section
;
1785 /* The PE spec requires that all sections be adjacent and sorted
1786 in ascending order of VMA. It also specifies that debug
1787 sections should be last. This is despite the fact that debug
1788 sections are not loaded into memory and so in theory have no
1791 This means that the debuglink section must be given a non-zero
1792 VMA which makes it contiguous with other debug sections. So
1793 walk the current section list, find the section with the
1794 highest VMA and start the debuglink section after that one. */
1795 for (sec
= obfd
->sections
, highest_section
= NULL
;
1799 && (highest_section
== NULL
1800 || sec
->vma
> highest_section
->vma
))
1801 highest_section
= sec
;
1803 if (highest_section
)
1804 debuglink_vma
= BFD_ALIGN (highest_section
->vma
1805 + highest_section
->size
,
1806 /* FIXME: We ought to be using
1807 COFF_PAGE_SIZE here or maybe
1808 bfd_get_section_alignment() (if it
1809 was set) but since this is for PE
1810 and we know the required alignment
1811 it is easier just to hard code it. */
1814 /* Umm, not sure what to do in this case. */
1815 debuglink_vma
= 0x1000;
1817 bfd_set_section_vma (obfd
, gnu_debuglink_section
, debuglink_vma
);
1821 if (bfd_count_sections (obfd
) != 0
1822 && (gap_fill_set
|| pad_to_set
))
1827 /* We must fill in gaps between the sections and/or we must pad
1828 the last section to a specified address. We do this by
1829 grabbing a list of the sections, sorting them by VMA, and
1830 increasing the section sizes as required to fill the gaps.
1831 We write out the gap contents below. */
1833 c
= bfd_count_sections (obfd
);
1834 osections
= (asection
**) xmalloc (c
* sizeof (asection
*));
1836 bfd_map_over_sections (obfd
, get_sections
, &set
);
1838 qsort (osections
, c
, sizeof (asection
*), compare_section_lma
);
1840 gaps
= (bfd_size_type
*) xmalloc (c
* sizeof (bfd_size_type
));
1841 memset (gaps
, 0, c
* sizeof (bfd_size_type
));
1845 for (i
= 0; i
< c
- 1; i
++)
1849 bfd_vma gap_start
, gap_stop
;
1851 flags
= bfd_get_section_flags (obfd
, osections
[i
]);
1852 if ((flags
& SEC_HAS_CONTENTS
) == 0
1853 || (flags
& SEC_LOAD
) == 0)
1856 size
= bfd_section_size (obfd
, osections
[i
]);
1857 gap_start
= bfd_section_lma (obfd
, osections
[i
]) + size
;
1858 gap_stop
= bfd_section_lma (obfd
, osections
[i
+ 1]);
1859 if (gap_start
< gap_stop
)
1861 if (! bfd_set_section_size (obfd
, osections
[i
],
1862 size
+ (gap_stop
- gap_start
)))
1864 bfd_nonfatal_message (NULL
, obfd
, osections
[i
],
1865 _("Can't fill gap after section"));
1869 gaps
[i
] = gap_stop
- gap_start
;
1870 if (max_gap
< gap_stop
- gap_start
)
1871 max_gap
= gap_stop
- gap_start
;
1881 lma
= bfd_section_lma (obfd
, osections
[c
- 1]);
1882 size
= bfd_section_size (obfd
, osections
[c
- 1]);
1883 if (lma
+ size
< pad_to
)
1885 if (! bfd_set_section_size (obfd
, osections
[c
- 1],
1888 bfd_nonfatal_message (NULL
, obfd
, osections
[c
- 1],
1889 _("can't add padding"));
1894 gaps
[c
- 1] = pad_to
- (lma
+ size
);
1895 if (max_gap
< pad_to
- (lma
+ size
))
1896 max_gap
= pad_to
- (lma
+ size
);
1902 /* Symbol filtering must happen after the output sections
1903 have been created, but before their contents are set. */
1905 if (convert_debugging
)
1906 dhandle
= read_debugging_info (ibfd
, isympp
, symcount
, FALSE
);
1908 if (strip_symbols
== STRIP_DEBUG
1909 || strip_symbols
== STRIP_ALL
1910 || strip_symbols
== STRIP_UNNEEDED
1911 || strip_symbols
== STRIP_NONDEBUG
1912 || strip_symbols
== STRIP_DWO
1913 || strip_symbols
== STRIP_NONDWO
1914 || discard_locals
!= LOCALS_UNDEF
1916 || htab_elements (strip_specific_htab
) != 0
1917 || htab_elements (keep_specific_htab
) != 0
1918 || htab_elements (localize_specific_htab
) != 0
1919 || htab_elements (globalize_specific_htab
) != 0
1920 || htab_elements (keepglobal_specific_htab
) != 0
1921 || htab_elements (weaken_specific_htab
) != 0
1922 || prefix_symbols_string
1925 || convert_debugging
1926 || change_leading_char
1927 || remove_leading_char
1928 || redefine_sym_list
1931 /* Mark symbols used in output relocations so that they
1932 are kept, even if they are local labels or static symbols.
1934 Note we iterate over the input sections examining their
1935 relocations since the relocations for the output sections
1936 haven't been set yet. mark_symbols_used_in_relocations will
1937 ignore input sections which have no corresponding output
1939 if (strip_symbols
!= STRIP_ALL
)
1940 bfd_map_over_sections (ibfd
,
1941 mark_symbols_used_in_relocations
,
1943 osympp
= (asymbol
**) xmalloc ((symcount
+ 1) * sizeof (asymbol
*));
1944 symcount
= filter_symbols (ibfd
, obfd
, osympp
, isympp
, symcount
);
1947 if (convert_debugging
&& dhandle
!= NULL
)
1949 if (! write_debugging_info (obfd
, dhandle
, &symcount
, &osympp
))
1956 bfd_set_symtab (obfd
, osympp
, symcount
);
1958 /* This has to happen before section positions are set. */
1959 bfd_map_over_sections (ibfd
, copy_relocations_in_section
, obfd
);
1961 /* This has to happen after the symbol table has been set. */
1962 bfd_map_over_sections (ibfd
, copy_section
, obfd
);
1964 if (add_sections
!= NULL
)
1966 struct section_add
*padd
;
1968 for (padd
= add_sections
; padd
!= NULL
; padd
= padd
->next
)
1970 if (! bfd_set_section_contents (obfd
, padd
->section
, padd
->contents
,
1973 bfd_nonfatal_message (NULL
, obfd
, padd
->section
, NULL
);
1979 if (gnu_debuglink_filename
!= NULL
)
1981 if (! bfd_fill_in_gnu_debuglink_section
1982 (obfd
, gnu_debuglink_section
, gnu_debuglink_filename
))
1984 bfd_nonfatal_message (NULL
, obfd
, NULL
,
1985 _("cannot fill debug link section `%s'"),
1986 gnu_debuglink_filename
);
1991 if (gap_fill_set
|| pad_to_set
)
1996 /* Fill in the gaps. */
1999 buf
= (bfd_byte
*) xmalloc (max_gap
);
2000 memset (buf
, gap_fill
, max_gap
);
2002 c
= bfd_count_sections (obfd
);
2003 for (i
= 0; i
< c
; i
++)
2011 off
= bfd_section_size (obfd
, osections
[i
]) - left
;
2022 if (! bfd_set_section_contents (obfd
, osections
[i
], buf
,
2025 bfd_nonfatal_message (NULL
, obfd
, osections
[i
], NULL
);
2036 /* Do not copy backend data if --extract-symbol is passed; anything
2037 that needs to look at the section contents will fail. */
2041 /* Allow the BFD backend to copy any private data it understands
2042 from the input BFD to the output BFD. This is done last to
2043 permit the routine to look at the filtered symbol table, which is
2044 important for the ECOFF code at least. */
2045 if (! bfd_copy_private_bfd_data (ibfd
, obfd
))
2047 bfd_nonfatal_message (NULL
, obfd
, NULL
,
2048 _("error copying private BFD data"));
2052 /* Switch to the alternate machine code. We have to do this at the
2053 very end, because we only initialize the header when we create
2054 the first section. */
2055 if (use_alt_mach_code
!= 0)
2057 if (! bfd_alt_mach_code (obfd
, use_alt_mach_code
))
2059 non_fatal (_("this target does not support %lu alternative machine codes"),
2061 if (bfd_get_flavour (obfd
) == bfd_target_elf_flavour
)
2063 non_fatal (_("treating that number as an absolute e_machine value instead"));
2064 elf_elfheader (obfd
)->e_machine
= use_alt_mach_code
;
2067 non_fatal (_("ignoring the alternative value"));
2074 /* Read each archive element in turn from IBFD, copy the
2075 contents to temp file, and keep the temp file handle.
2076 If 'force_output_target' is TRUE then make sure that
2077 all elements in the new archive are of the type
2081 copy_archive (bfd
*ibfd
, bfd
*obfd
, const char *output_target
,
2082 bfd_boolean force_output_target
,
2083 const bfd_arch_info_type
*input_arch
)
2087 struct name_list
*next
;
2091 bfd
**ptr
= &obfd
->archive_head
;
2094 const char *filename
;
2096 /* Make a temp directory to hold the contents. */
2097 dir
= make_tempdir (bfd_get_filename (obfd
));
2099 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2102 if (strip_symbols
== STRIP_ALL
)
2103 obfd
->has_armap
= FALSE
;
2105 obfd
->has_armap
= ibfd
->has_armap
;
2106 obfd
->is_thin_archive
= ibfd
->is_thin_archive
;
2109 obfd
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
2113 this_element
= bfd_openr_next_archived_file (ibfd
, NULL
);
2115 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
2118 bfd_nonfatal_message (NULL
, obfd
, NULL
, NULL
);
2122 while (!status
&& this_element
!= NULL
)
2128 int stat_status
= 0;
2129 bfd_boolean del
= TRUE
;
2130 bfd_boolean ok_object
;
2132 /* Create an output file for this member. */
2133 output_name
= concat (dir
, "/",
2134 bfd_get_filename (this_element
), (char *) 0);
2136 /* If the file already exists, make another temp dir. */
2137 if (stat (output_name
, &buf
) >= 0)
2139 output_name
= make_tempdir (output_name
);
2140 if (output_name
== NULL
)
2141 fatal (_("cannot create tempdir for archive copying (error: %s)"),
2144 l
= (struct name_list
*) xmalloc (sizeof (struct name_list
));
2145 l
->name
= output_name
;
2149 output_name
= concat (output_name
, "/",
2150 bfd_get_filename (this_element
), (char *) 0);
2155 stat_status
= bfd_stat_arch_elt (this_element
, &buf
);
2157 if (stat_status
!= 0)
2158 non_fatal (_("internal stat error on %s"),
2159 bfd_get_filename (this_element
));
2162 l
= (struct name_list
*) xmalloc (sizeof (struct name_list
));
2163 l
->name
= output_name
;
2168 ok_object
= bfd_check_format (this_element
, bfd_object
);
2170 bfd_nonfatal_message (NULL
, this_element
, NULL
,
2171 _("Unable to recognise the format of file"));
2173 /* PR binutils/3110: Cope with archives
2174 containing multiple target types. */
2175 if (force_output_target
|| !ok_object
)
2176 output_bfd
= bfd_openw (output_name
, output_target
);
2178 output_bfd
= bfd_openw (output_name
, bfd_get_target (this_element
));
2180 if (output_bfd
== NULL
)
2182 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2189 del
= !copy_object (this_element
, output_bfd
, input_arch
);
2191 if (del
&& bfd_get_arch (this_element
) == bfd_arch_unknown
)
2192 /* Try again as an unknown object file. */
2194 else if (!bfd_close (output_bfd
))
2196 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2197 /* Error in new object file. Don't change archive. */
2204 del
= !copy_unknown_object (this_element
, output_bfd
);
2205 if (!bfd_close_all_done (output_bfd
))
2207 bfd_nonfatal_message (output_name
, NULL
, NULL
, NULL
);
2208 /* Error in new object file. Don't change archive. */
2215 unlink (output_name
);
2220 if (preserve_dates
&& stat_status
== 0)
2221 set_times (output_name
, &buf
);
2223 /* Open the newly output file and attach to our list. */
2224 output_bfd
= bfd_openr (output_name
, output_target
);
2226 l
->obfd
= output_bfd
;
2229 ptr
= &output_bfd
->archive_next
;
2231 last_element
= this_element
;
2233 this_element
= bfd_openr_next_archived_file (ibfd
, last_element
);
2235 bfd_close (last_element
);
2240 filename
= bfd_get_filename (obfd
);
2241 if (!bfd_close (obfd
))
2244 bfd_nonfatal_message (filename
, NULL
, NULL
, NULL
);
2248 filename
= bfd_get_filename (ibfd
);
2249 if (!bfd_close (ibfd
))
2252 bfd_nonfatal_message (filename
, NULL
, NULL
, NULL
);
2256 /* Delete all the files that we opened. */
2257 for (l
= list
; l
!= NULL
; l
= l
->next
)
2259 if (l
->obfd
== NULL
)
2263 bfd_close (l
->obfd
);
2271 set_long_section_mode (bfd
*output_bfd
, bfd
*input_bfd
, enum long_section_name_handling style
)
2273 /* This is only relevant to Coff targets. */
2274 if (bfd_get_flavour (output_bfd
) == bfd_target_coff_flavour
)
2277 && bfd_get_flavour (input_bfd
) == bfd_target_coff_flavour
)
2278 style
= bfd_coff_long_section_names (input_bfd
) ? ENABLE
: DISABLE
;
2279 bfd_coff_set_long_section_names (output_bfd
, style
!= DISABLE
);
2283 /* The top-level control. */
2286 copy_file (const char *input_filename
, const char *output_filename
,
2287 const char *input_target
, const char *output_target
,
2288 const bfd_arch_info_type
*input_arch
)
2291 char **obj_matching
;
2292 char **core_matching
;
2293 off_t size
= get_file_size (input_filename
);
2298 non_fatal (_("error: the input file '%s' is empty"),
2304 /* To allow us to do "strip *" without dying on the first
2305 non-object file, failures are nonfatal. */
2306 ibfd
= bfd_openr (input_filename
, input_target
);
2309 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2314 switch (do_debug_sections
)
2317 ibfd
->flags
|= BFD_COMPRESS
;
2320 ibfd
->flags
|= BFD_DECOMPRESS
;
2326 if (bfd_check_format (ibfd
, bfd_archive
))
2328 bfd_boolean force_output_target
;
2331 /* bfd_get_target does not return the correct value until
2332 bfd_check_format succeeds. */
2333 if (output_target
== NULL
)
2335 output_target
= bfd_get_target (ibfd
);
2336 force_output_target
= FALSE
;
2339 force_output_target
= TRUE
;
2341 obfd
= bfd_openw (output_filename
, output_target
);
2344 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2348 /* This is a no-op on non-Coff targets. */
2349 set_long_section_mode (obfd
, ibfd
, long_section_names
);
2351 copy_archive (ibfd
, obfd
, output_target
, force_output_target
, input_arch
);
2353 else if (bfd_check_format_matches (ibfd
, bfd_object
, &obj_matching
))
2358 /* bfd_get_target does not return the correct value until
2359 bfd_check_format succeeds. */
2360 if (output_target
== NULL
)
2361 output_target
= bfd_get_target (ibfd
);
2363 obfd
= bfd_openw (output_filename
, output_target
);
2366 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2370 /* This is a no-op on non-Coff targets. */
2371 set_long_section_mode (obfd
, ibfd
, long_section_names
);
2373 if (! copy_object (ibfd
, obfd
, input_arch
))
2376 if (!bfd_close (obfd
))
2379 bfd_nonfatal_message (output_filename
, NULL
, NULL
, NULL
);
2383 if (!bfd_close (ibfd
))
2386 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2392 bfd_error_type obj_error
= bfd_get_error ();
2393 bfd_error_type core_error
;
2395 if (bfd_check_format_matches (ibfd
, bfd_core
, &core_matching
))
2397 /* This probably can't happen.. */
2398 if (obj_error
== bfd_error_file_ambiguously_recognized
)
2399 free (obj_matching
);
2403 core_error
= bfd_get_error ();
2404 /* Report the object error in preference to the core error. */
2405 if (obj_error
!= core_error
)
2406 bfd_set_error (obj_error
);
2408 bfd_nonfatal_message (input_filename
, NULL
, NULL
, NULL
);
2410 if (obj_error
== bfd_error_file_ambiguously_recognized
)
2412 list_matching_formats (obj_matching
);
2413 free (obj_matching
);
2415 if (core_error
== bfd_error_file_ambiguously_recognized
)
2417 list_matching_formats (core_matching
);
2418 free (core_matching
);
2425 /* Add a name to the section renaming list. */
2428 add_section_rename (const char * old_name
, const char * new_name
,
2431 section_rename
* srename
;
2433 /* Check for conflicts first. */
2434 for (srename
= section_rename_list
; srename
!= NULL
; srename
= srename
->next
)
2435 if (strcmp (srename
->old_name
, old_name
) == 0)
2437 /* Silently ignore duplicate definitions. */
2438 if (strcmp (srename
->new_name
, new_name
) == 0
2439 && srename
->flags
== flags
)
2442 fatal (_("Multiple renames of section %s"), old_name
);
2445 srename
= (section_rename
*) xmalloc (sizeof (* srename
));
2447 srename
->old_name
= old_name
;
2448 srename
->new_name
= new_name
;
2449 srename
->flags
= flags
;
2450 srename
->next
= section_rename_list
;
2452 section_rename_list
= srename
;
2455 /* Check the section rename list for a new name of the input section
2456 ISECTION. Return the new name if one is found.
2457 Also set RETURNED_FLAGS to the flags to be used for this section. */
2460 find_section_rename (bfd
* ibfd ATTRIBUTE_UNUSED
, sec_ptr isection
,
2461 flagword
* returned_flags
)
2463 const char * old_name
= bfd_section_name (ibfd
, isection
);
2464 section_rename
* srename
;
2466 /* Default to using the flags of the input section. */
2467 * returned_flags
= bfd_get_section_flags (ibfd
, isection
);
2469 for (srename
= section_rename_list
; srename
!= NULL
; srename
= srename
->next
)
2470 if (strcmp (srename
->old_name
, old_name
) == 0)
2472 if (srename
->flags
!= (flagword
) -1)
2473 * returned_flags
= srename
->flags
;
2475 return srename
->new_name
;
2481 /* Once each of the sections is copied, we may still need to do some
2482 finalization work for private section headers. Do that here. */
2485 setup_bfd_headers (bfd
*ibfd
, bfd
*obfd
)
2487 /* Allow the BFD backend to copy any private data it understands
2488 from the input section to the output section. */
2489 if (! bfd_copy_private_header_data (ibfd
, obfd
))
2492 bfd_nonfatal_message (NULL
, ibfd
, NULL
,
2493 _("error in private header data"));
2497 /* All went well. */
2501 /* Create a section in OBFD with the same
2502 name and attributes as ISECTION in IBFD. */
2505 setup_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2507 bfd
*obfd
= (bfd
*) obfdarg
;
2508 struct section_list
*p
;
2516 char *prefix
= NULL
;
2517 bfd_boolean make_nobits
;
2519 if (is_strip_section (ibfd
, isection
))
2522 p
= find_section_list (bfd_section_name (ibfd
, isection
), FALSE
);
2526 /* Get the, possibly new, name of the output section. */
2527 name
= find_section_rename (ibfd
, isection
, & flags
);
2529 /* Prefix sections. */
2530 if ((prefix_alloc_sections_string
)
2531 && (bfd_get_section_flags (ibfd
, isection
) & SEC_ALLOC
))
2532 prefix
= prefix_alloc_sections_string
;
2533 else if (prefix_sections_string
)
2534 prefix
= prefix_sections_string
;
2540 n
= (char *) xmalloc (strlen (prefix
) + strlen (name
) + 1);
2546 make_nobits
= FALSE
;
2547 if (p
!= NULL
&& p
->set_flags
)
2548 flags
= p
->flags
| (flags
& (SEC_HAS_CONTENTS
| SEC_RELOC
));
2549 else if (strip_symbols
== STRIP_NONDEBUG
2550 && (flags
& (SEC_ALLOC
| SEC_GROUP
)) != 0
2551 && !(ibfd
->xvec
->flavour
== bfd_target_elf_flavour
2552 && elf_section_type (isection
) == SHT_NOTE
))
2554 flags
&= ~(SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_GROUP
);
2555 if (obfd
->xvec
->flavour
== bfd_target_elf_flavour
)
2559 /* Twiddle the input section flags so that it seems to
2560 elf.c:copy_private_bfd_data that section flags have not
2561 changed between input and output sections. This hack
2562 prevents wholesale rewriting of the program headers. */
2563 isection
->flags
&= ~(SEC_HAS_CONTENTS
| SEC_LOAD
| SEC_GROUP
);
2567 osection
= bfd_make_section_anyway_with_flags (obfd
, name
, flags
);
2569 if (osection
== NULL
)
2571 err
= _("failed to create output section");
2576 elf_section_type (osection
) = SHT_NOBITS
;
2578 size
= bfd_section_size (ibfd
, isection
);
2580 size
= (size
+ interleave
- 1) / interleave
* copy_width
;
2581 else if (extract_symbol
)
2583 if (! bfd_set_section_size (obfd
, osection
, size
))
2585 err
= _("failed to set size");
2589 vma
= bfd_section_vma (ibfd
, isection
);
2590 if (p
!= NULL
&& p
->change_vma
== CHANGE_MODIFY
)
2592 else if (p
!= NULL
&& p
->change_vma
== CHANGE_SET
)
2595 vma
+= change_section_address
;
2597 if (! bfd_set_section_vma (obfd
, osection
, vma
))
2599 err
= _("failed to set vma");
2603 lma
= isection
->lma
;
2604 if ((p
!= NULL
) && p
->change_lma
!= CHANGE_IGNORE
)
2606 if (p
->change_lma
== CHANGE_MODIFY
)
2608 else if (p
->change_lma
== CHANGE_SET
)
2614 lma
+= change_section_address
;
2616 osection
->lma
= lma
;
2618 /* FIXME: This is probably not enough. If we change the LMA we
2619 may have to recompute the header for the file as well. */
2620 if (!bfd_set_section_alignment (obfd
,
2622 bfd_section_alignment (ibfd
, isection
)))
2624 err
= _("failed to set alignment");
2628 /* Copy merge entity size. */
2629 osection
->entsize
= isection
->entsize
;
2631 /* This used to be mangle_section; we do here to avoid using
2632 bfd_get_section_by_name since some formats allow multiple
2633 sections with the same name. */
2634 isection
->output_section
= osection
;
2635 isection
->output_offset
= 0;
2637 /* Do not copy backend data if --extract-symbol is passed; anything
2638 that needs to look at the section contents will fail. */
2642 if ((isection
->flags
& SEC_GROUP
) != 0)
2644 asymbol
*gsym
= group_signature (isection
);
2648 gsym
->flags
|= BSF_KEEP
;
2649 if (ibfd
->xvec
->flavour
== bfd_target_elf_flavour
)
2650 elf_group_id (isection
) = gsym
;
2654 /* Allow the BFD backend to copy any private data it understands
2655 from the input section to the output section. */
2656 if (!bfd_copy_private_section_data (ibfd
, isection
, obfd
, osection
))
2658 err
= _("failed to copy private data");
2662 /* All went well. */
2667 bfd_nonfatal_message (NULL
, obfd
, osection
, err
);
2670 /* Return TRUE if input section ISECTION should be skipped. */
2673 skip_section (bfd
*ibfd
, sec_ptr isection
)
2679 /* If we have already failed earlier on,
2680 do not keep on generating complaints now. */
2687 if (is_strip_section (ibfd
, isection
))
2690 flags
= bfd_get_section_flags (ibfd
, isection
);
2691 if ((flags
& SEC_GROUP
) != 0)
2694 osection
= isection
->output_section
;
2695 size
= bfd_get_section_size (isection
);
2697 if (size
== 0 || osection
== 0)
2703 /* Copy relocations in input section ISECTION of IBFD to an output
2704 section with the same name in OBFDARG. If stripping then don't
2705 copy any relocation info. */
2708 copy_relocations_in_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2710 bfd
*obfd
= (bfd
*) obfdarg
;
2716 if (skip_section (ibfd
, isection
))
2719 osection
= isection
->output_section
;
2721 /* Core files and DWO files do not need to be relocated. */
2722 if (bfd_get_format (obfd
) == bfd_core
|| strip_symbols
== STRIP_NONDWO
)
2726 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2730 /* Do not complain if the target does not support relocations. */
2731 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2736 bfd_nonfatal_message (NULL
, ibfd
, isection
, NULL
);
2744 bfd_set_reloc (obfd
, osection
, NULL
, 0);
2745 osection
->flags
&= ~SEC_RELOC
;
2749 relpp
= (arelent
**) xmalloc (relsize
);
2750 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, isympp
);
2754 bfd_nonfatal_message (NULL
, ibfd
, isection
,
2755 _("relocation count is negative"));
2759 if (strip_symbols
== STRIP_ALL
)
2761 /* Remove relocations which are not in
2762 keep_strip_specific_list. */
2763 arelent
**temp_relpp
;
2764 long temp_relcount
= 0;
2767 temp_relpp
= (arelent
**) xmalloc (relsize
);
2768 for (i
= 0; i
< relcount
; i
++)
2769 if (is_specified_symbol (bfd_asymbol_name (*relpp
[i
]->sym_ptr_ptr
),
2770 keep_specific_htab
))
2771 temp_relpp
[temp_relcount
++] = relpp
[i
];
2772 relcount
= temp_relcount
;
2777 bfd_set_reloc (obfd
, osection
, relcount
== 0 ? NULL
: relpp
, relcount
);
2780 osection
->flags
&= ~SEC_RELOC
;
2786 /* Copy the data of input section ISECTION of IBFD
2787 to an output section with the same name in OBFD. */
2790 copy_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2792 bfd
*obfd
= (bfd
*) obfdarg
;
2793 struct section_list
*p
;
2797 if (skip_section (ibfd
, isection
))
2800 osection
= isection
->output_section
;
2801 size
= bfd_get_section_size (isection
);
2803 p
= find_section_list (bfd_get_section_name (ibfd
, isection
), FALSE
);
2805 if (bfd_get_section_flags (ibfd
, isection
) & SEC_HAS_CONTENTS
2806 && bfd_get_section_flags (obfd
, osection
) & SEC_HAS_CONTENTS
)
2808 bfd_byte
*memhunk
= NULL
;
2810 if (!bfd_get_full_section_contents (ibfd
, isection
, &memhunk
))
2813 bfd_nonfatal_message (NULL
, ibfd
, isection
, NULL
);
2819 /* We don't handle leftover bytes (too many possible behaviors,
2820 and we don't know what the user wants). The section length
2821 must be a multiple of the number of bytes to swap. */
2822 if ((size
% reverse_bytes
) == 0)
2827 for (i
= 0; i
< size
; i
+= reverse_bytes
)
2828 for (j
= 0; j
< (unsigned long)(reverse_bytes
/ 2); j
++)
2830 bfd_byte
*m
= (bfd_byte
*) memhunk
;
2833 m
[i
+ j
] = m
[(i
+ reverse_bytes
) - (j
+ 1)];
2834 m
[(i
+ reverse_bytes
) - (j
+ 1)] = b
;
2838 /* User must pad the section up in order to do this. */
2839 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
2840 bfd_section_name (ibfd
, isection
), reverse_bytes
);
2845 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2846 char *from
= (char *) memhunk
+ copy_byte
;
2847 char *to
= (char *) memhunk
;
2848 char *end
= (char *) memhunk
+ size
;
2851 for (; from
< end
; from
+= interleave
)
2852 for (i
= 0; i
< copy_width
; i
++)
2854 if (&from
[i
] >= end
)
2859 size
= (size
+ interleave
- 1 - copy_byte
) / interleave
* copy_width
;
2860 osection
->lma
/= interleave
;
2863 if (!bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2866 bfd_nonfatal_message (NULL
, obfd
, osection
, NULL
);
2871 else if (p
!= NULL
&& p
->set_flags
&& (p
->flags
& SEC_HAS_CONTENTS
) != 0)
2873 void *memhunk
= xmalloc (size
);
2875 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
2876 flag--they can just remove the section entirely and add it
2877 back again. However, we do permit them to turn on the
2878 SEC_HAS_CONTENTS flag, and take it to mean that the section
2879 contents should be zeroed out. */
2881 memset (memhunk
, 0, size
);
2882 if (! bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2885 bfd_nonfatal_message (NULL
, obfd
, osection
, NULL
);
2892 /* Get all the sections. This is used when --gap-fill or --pad-to is
2896 get_sections (bfd
*obfd ATTRIBUTE_UNUSED
, asection
*osection
, void *secppparg
)
2898 asection
***secppp
= (asection
***) secppparg
;
2900 **secppp
= osection
;
2904 /* Sort sections by VMA. This is called via qsort, and is used when
2905 --gap-fill or --pad-to is used. We force non loadable or empty
2906 sections to the front, where they are easier to ignore. */
2909 compare_section_lma (const void *arg1
, const void *arg2
)
2911 const asection
*const *sec1
= (const asection
* const *) arg1
;
2912 const asection
*const *sec2
= (const asection
* const *) arg2
;
2913 flagword flags1
, flags2
;
2915 /* Sort non loadable sections to the front. */
2916 flags1
= (*sec1
)->flags
;
2917 flags2
= (*sec2
)->flags
;
2918 if ((flags1
& SEC_HAS_CONTENTS
) == 0
2919 || (flags1
& SEC_LOAD
) == 0)
2921 if ((flags2
& SEC_HAS_CONTENTS
) != 0
2922 && (flags2
& SEC_LOAD
) != 0)
2927 if ((flags2
& SEC_HAS_CONTENTS
) == 0
2928 || (flags2
& SEC_LOAD
) == 0)
2932 /* Sort sections by LMA. */
2933 if ((*sec1
)->lma
> (*sec2
)->lma
)
2935 else if ((*sec1
)->lma
< (*sec2
)->lma
)
2938 /* Sort sections with the same LMA by size. */
2939 if (bfd_get_section_size (*sec1
) > bfd_get_section_size (*sec2
))
2941 else if (bfd_get_section_size (*sec1
) < bfd_get_section_size (*sec2
))
2947 /* Mark all the symbols which will be used in output relocations with
2948 the BSF_KEEP flag so that those symbols will not be stripped.
2950 Ignore relocations which will not appear in the output file. */
2953 mark_symbols_used_in_relocations (bfd
*ibfd
, sec_ptr isection
, void *symbolsarg
)
2955 asymbol
**symbols
= (asymbol
**) symbolsarg
;
2960 /* Ignore an input section with no corresponding output section. */
2961 if (isection
->output_section
== NULL
)
2964 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2967 /* Do not complain if the target does not support relocations. */
2968 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2970 bfd_fatal (bfd_get_filename (ibfd
));
2976 relpp
= (arelent
**) xmalloc (relsize
);
2977 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, symbols
);
2979 bfd_fatal (bfd_get_filename (ibfd
));
2981 /* Examine each symbol used in a relocation. If it's not one of the
2982 special bfd section symbols, then mark it with BSF_KEEP. */
2983 for (i
= 0; i
< relcount
; i
++)
2985 if (*relpp
[i
]->sym_ptr_ptr
!= bfd_com_section_ptr
->symbol
2986 && *relpp
[i
]->sym_ptr_ptr
!= bfd_abs_section_ptr
->symbol
2987 && *relpp
[i
]->sym_ptr_ptr
!= bfd_und_section_ptr
->symbol
)
2988 (*relpp
[i
]->sym_ptr_ptr
)->flags
|= BSF_KEEP
;
2995 /* Write out debugging information. */
2998 write_debugging_info (bfd
*obfd
, void *dhandle
,
2999 long *symcountp ATTRIBUTE_UNUSED
,
3000 asymbol
***symppp ATTRIBUTE_UNUSED
)
3002 if (bfd_get_flavour (obfd
) == bfd_target_ieee_flavour
)
3003 return write_ieee_debugging_info (obfd
, dhandle
);
3005 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
3006 || bfd_get_flavour (obfd
) == bfd_target_elf_flavour
)
3008 bfd_byte
*syms
, *strings
;
3009 bfd_size_type symsize
, stringsize
;
3010 asection
*stabsec
, *stabstrsec
;
3013 if (! write_stabs_in_sections_debugging_info (obfd
, dhandle
, &syms
,
3018 flags
= SEC_HAS_CONTENTS
| SEC_READONLY
| SEC_DEBUGGING
;
3019 stabsec
= bfd_make_section_with_flags (obfd
, ".stab", flags
);
3020 stabstrsec
= bfd_make_section_with_flags (obfd
, ".stabstr", flags
);
3022 || stabstrsec
== NULL
3023 || ! bfd_set_section_size (obfd
, stabsec
, symsize
)
3024 || ! bfd_set_section_size (obfd
, stabstrsec
, stringsize
)
3025 || ! bfd_set_section_alignment (obfd
, stabsec
, 2)
3026 || ! bfd_set_section_alignment (obfd
, stabstrsec
, 0))
3028 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3029 _("can't create debugging section"));
3033 /* We can get away with setting the section contents now because
3034 the next thing the caller is going to do is copy over the
3035 real sections. We may someday have to split the contents
3036 setting out of this function. */
3037 if (! bfd_set_section_contents (obfd
, stabsec
, syms
, 0, symsize
)
3038 || ! bfd_set_section_contents (obfd
, stabstrsec
, strings
, 0,
3041 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3042 _("can't set debugging section contents"));
3049 bfd_nonfatal_message (NULL
, obfd
, NULL
,
3050 _("don't know how to write debugging information for %s"),
3051 bfd_get_target (obfd
));
3055 /* If neither -D nor -U was specified explicitly,
3056 then use the configured default. */
3058 default_deterministic (void)
3060 if (deterministic
< 0)
3061 deterministic
= DEFAULT_AR_DETERMINISTIC
;
3065 strip_main (int argc
, char *argv
[])
3067 char *input_target
= NULL
;
3068 char *output_target
= NULL
;
3069 bfd_boolean show_version
= FALSE
;
3070 bfd_boolean formats_info
= FALSE
;
3073 struct section_list
*p
;
3074 char *output_file
= NULL
;
3076 while ((c
= getopt_long (argc
, argv
, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
3077 strip_options
, (int *) 0)) != EOF
)
3082 input_target
= optarg
;
3085 output_target
= optarg
;
3088 input_target
= output_target
= optarg
;
3091 p
= find_section_list (optarg
, TRUE
);
3093 sections_removed
= TRUE
;
3096 strip_symbols
= STRIP_ALL
;
3100 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
3101 strip_symbols
= STRIP_DEBUG
;
3103 case OPTION_STRIP_DWO
:
3104 strip_symbols
= STRIP_DWO
;
3106 case OPTION_STRIP_UNNEEDED
:
3107 strip_symbols
= STRIP_UNNEEDED
;
3110 add_specific_symbol (optarg
, keep_specific_htab
);
3113 add_specific_symbol (optarg
, strip_specific_htab
);
3116 output_file
= optarg
;
3119 preserve_dates
= TRUE
;
3122 deterministic
= TRUE
;
3125 deterministic
= FALSE
;
3128 discard_locals
= LOCALS_ALL
;
3131 discard_locals
= LOCALS_START_L
;
3137 show_version
= TRUE
;
3139 case OPTION_FORMATS_INFO
:
3140 formats_info
= TRUE
;
3142 case OPTION_ONLY_KEEP_DEBUG
:
3143 strip_symbols
= STRIP_NONDEBUG
;
3145 case OPTION_KEEP_FILE_SYMBOLS
:
3146 keep_file_symbols
= 1;
3149 /* We've been given a long option. */
3156 strip_usage (stdout
, 0);
3158 strip_usage (stderr
, 1);
3169 print_version ("strip");
3171 default_deterministic ();
3173 /* Default is to strip all symbols. */
3174 if (strip_symbols
== STRIP_UNDEF
3175 && discard_locals
== LOCALS_UNDEF
3176 && htab_elements (strip_specific_htab
) == 0)
3177 strip_symbols
= STRIP_ALL
;
3179 if (output_target
== NULL
)
3180 output_target
= input_target
;
3184 || (output_file
!= NULL
&& (i
+ 1) < argc
))
3185 strip_usage (stderr
, 1);
3187 for (; i
< argc
; i
++)
3189 int hold_status
= status
;
3190 struct stat statbuf
;
3193 if (get_file_size (argv
[i
]) < 1)
3200 /* No need to check the return value of stat().
3201 It has already been checked in get_file_size(). */
3202 stat (argv
[i
], &statbuf
);
3204 if (output_file
== NULL
3205 || filename_cmp (argv
[i
], output_file
) == 0)
3206 tmpname
= make_tempname (argv
[i
]);
3208 tmpname
= output_file
;
3210 if (tmpname
== NULL
)
3212 bfd_nonfatal_message (argv
[i
], NULL
, NULL
,
3213 _("could not create temporary file to hold stripped copy"));
3219 copy_file (argv
[i
], tmpname
, input_target
, output_target
, NULL
);
3223 set_times (tmpname
, &statbuf
);
3224 if (output_file
!= tmpname
)
3225 status
= (smart_rename (tmpname
,
3226 output_file
? output_file
: argv
[i
],
3227 preserve_dates
) != 0);
3229 status
= hold_status
;
3232 unlink_if_ordinary (tmpname
);
3233 if (output_file
!= tmpname
)
3240 /* Set up PE subsystem. */
3243 set_pe_subsystem (const char *s
)
3245 const char *version
, *subsystem
;
3255 { "native", 0, IMAGE_SUBSYSTEM_NATIVE
},
3256 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI
},
3257 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI
},
3258 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI
},
3259 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI
},
3260 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION
},
3261 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
},
3262 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
},
3263 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER
},
3264 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX
}
3270 /* Check for the presence of a version number. */
3271 version
= strchr (s
, ':');
3272 if (version
== NULL
)
3276 int len
= version
- s
;
3280 version
= copy
+ 1 + len
;
3281 pe_major_subsystem_version
= strtoul (version
, ©
, 0);
3283 pe_minor_subsystem_version
= strtoul (copy
+ 1, ©
, 0);
3285 non_fatal (_("%s: bad version in PE subsystem"), s
);
3288 /* Check for numeric subsystem. */
3289 value
= (short) strtol (subsystem
, ©
, 0);
3292 for (i
= 0; i
< ARRAY_SIZE (v
); i
++)
3293 if (v
[i
].value
== value
)
3295 pe_subsystem
= value
;
3296 set_def
= v
[i
].set_def
;
3302 /* Search for subsystem by name. */
3303 for (i
= 0; i
< ARRAY_SIZE (v
); i
++)
3304 if (strcmp (subsystem
, v
[i
].name
) == 0)
3306 pe_subsystem
= v
[i
].value
;
3307 set_def
= v
[i
].set_def
;
3315 fatal (_("unknown PE subsystem: %s"), s
);
3320 if (pe_file_alignment
== (bfd_vma
) -1)
3321 pe_file_alignment
= PE_DEF_FILE_ALIGNMENT
;
3322 if (pe_section_alignment
== (bfd_vma
) -1)
3323 pe_section_alignment
= PE_DEF_SECTION_ALIGNMENT
;
3327 free ((char *) subsystem
);
3330 /* Convert EFI target to PEI target. */
3333 convert_efi_target (char *efi
)
3339 if (strcmp (efi
+ 4, "ia32") == 0)
3341 /* Change ia32 to i386. */
3346 else if (strcmp (efi
+ 4, "x86_64") == 0)
3348 /* Change x86_64 to x86-64. */
3354 copy_main (int argc
, char *argv
[])
3356 char *input_filename
= NULL
;
3357 char *output_filename
= NULL
;
3359 char *input_target
= NULL
;
3360 char *output_target
= NULL
;
3361 bfd_boolean show_version
= FALSE
;
3362 bfd_boolean change_warn
= TRUE
;
3363 bfd_boolean formats_info
= FALSE
;
3365 struct section_list
*p
;
3366 struct stat statbuf
;
3367 const bfd_arch_info_type
*input_arch
= NULL
;
3369 while ((c
= getopt_long (argc
, argv
, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
3370 copy_options
, (int *) 0)) != EOF
)
3375 copy_byte
= atoi (optarg
);
3377 fatal (_("byte number must be non-negative"));
3381 input_arch
= bfd_scan_arch (optarg
);
3382 if (input_arch
== NULL
)
3383 fatal (_("architecture %s unknown"), optarg
);
3389 interleave
= atoi (optarg
);
3391 fatal (_("interleave must be positive"));
3397 case OPTION_INTERLEAVE_WIDTH
:
3398 copy_width
= atoi (optarg
);
3400 fatal(_("interleave width must be positive"));
3404 case 's': /* "source" - 'I' is preferred */
3405 input_target
= optarg
;
3409 case 'd': /* "destination" - 'O' is preferred */
3410 output_target
= optarg
;
3414 input_target
= output_target
= optarg
;
3418 p
= find_section_list (optarg
, TRUE
);
3420 fatal (_("%s both copied and removed"), optarg
);
3422 sections_copied
= TRUE
;
3426 p
= find_section_list (optarg
, TRUE
);
3428 fatal (_("%s both copied and removed"), optarg
);
3430 sections_removed
= TRUE
;
3434 strip_symbols
= STRIP_ALL
;
3438 strip_symbols
= STRIP_DEBUG
;
3441 case OPTION_STRIP_DWO
:
3442 strip_symbols
= STRIP_DWO
;
3445 case OPTION_STRIP_UNNEEDED
:
3446 strip_symbols
= STRIP_UNNEEDED
;
3449 case OPTION_ONLY_KEEP_DEBUG
:
3450 strip_symbols
= STRIP_NONDEBUG
;
3453 case OPTION_KEEP_FILE_SYMBOLS
:
3454 keep_file_symbols
= 1;
3457 case OPTION_ADD_GNU_DEBUGLINK
:
3458 long_section_names
= ENABLE
;
3459 gnu_debuglink_filename
= optarg
;
3463 add_specific_symbol (optarg
, keep_specific_htab
);
3467 add_specific_symbol (optarg
, strip_specific_htab
);
3470 case OPTION_STRIP_UNNEEDED_SYMBOL
:
3471 add_specific_symbol (optarg
, strip_unneeded_htab
);
3475 add_specific_symbol (optarg
, localize_specific_htab
);
3478 case OPTION_GLOBALIZE_SYMBOL
:
3479 add_specific_symbol (optarg
, globalize_specific_htab
);
3483 add_specific_symbol (optarg
, keepglobal_specific_htab
);
3487 add_specific_symbol (optarg
, weaken_specific_htab
);
3491 preserve_dates
= TRUE
;
3495 deterministic
= TRUE
;
3499 deterministic
= FALSE
;
3507 discard_locals
= LOCALS_ALL
;
3511 discard_locals
= LOCALS_START_L
;
3519 show_version
= TRUE
;
3522 case OPTION_FORMATS_INFO
:
3523 formats_info
= TRUE
;
3530 case OPTION_ADD_SECTION
:
3534 struct section_add
*pa
;
3537 s
= strchr (optarg
, '=');
3540 fatal (_("bad format for %s"), "--add-section");
3542 pa
= (struct section_add
*) xmalloc (sizeof (struct section_add
));
3543 pa
->name
= xstrndup (optarg
, s
- optarg
);
3544 pa
->filename
= s
+ 1;
3546 /* We don't use get_file_size so that we can do
3547 --add-section .note.GNU_stack=/dev/null
3548 get_file_size doesn't work on /dev/null. */
3550 f
= fopen (pa
->filename
, FOPEN_RB
);
3552 fatal (_("cannot open: %s: %s"),
3553 pa
->filename
, strerror (errno
));
3557 pa
->contents
= (bfd_byte
*) xmalloc (alloc
);
3565 pa
->contents
= (bfd_byte
*) xrealloc (pa
->contents
, alloc
);
3568 got
= fread (pa
->contents
+ off
, 1, alloc
- off
, f
);
3570 fatal (_("%s: fread failed"), pa
->filename
);
3579 pa
->next
= add_sections
;
3584 case OPTION_CHANGE_START
:
3585 change_start
= parse_vma (optarg
, "--change-start");
3588 case OPTION_CHANGE_SECTION_ADDRESS
:
3589 case OPTION_CHANGE_SECTION_LMA
:
3590 case OPTION_CHANGE_SECTION_VMA
:
3595 char *option
= NULL
;
3597 enum change_action what
= CHANGE_IGNORE
;
3601 case OPTION_CHANGE_SECTION_ADDRESS
:
3602 option
= "--change-section-address";
3604 case OPTION_CHANGE_SECTION_LMA
:
3605 option
= "--change-section-lma";
3607 case OPTION_CHANGE_SECTION_VMA
:
3608 option
= "--change-section-vma";
3612 s
= strchr (optarg
, '=');
3615 s
= strchr (optarg
, '+');
3618 s
= strchr (optarg
, '-');
3620 fatal (_("bad format for %s"), option
);
3625 name
= (char *) xmalloc (len
+ 1);
3626 strncpy (name
, optarg
, len
);
3629 p
= find_section_list (name
, TRUE
);
3631 val
= parse_vma (s
+ 1, option
);
3635 case '=': what
= CHANGE_SET
; break;
3636 case '-': val
= - val
; /* Drop through. */
3637 case '+': what
= CHANGE_MODIFY
; break;
3642 case OPTION_CHANGE_SECTION_ADDRESS
:
3643 p
->change_vma
= what
;
3647 case OPTION_CHANGE_SECTION_LMA
:
3648 p
->change_lma
= what
;
3652 case OPTION_CHANGE_SECTION_VMA
:
3653 p
->change_vma
= what
;
3660 case OPTION_CHANGE_ADDRESSES
:
3661 change_section_address
= parse_vma (optarg
, "--change-addresses");
3662 change_start
= change_section_address
;
3665 case OPTION_CHANGE_WARNINGS
:
3669 case OPTION_CHANGE_LEADING_CHAR
:
3670 change_leading_char
= TRUE
;
3673 case OPTION_COMPRESS_DEBUG_SECTIONS
:
3674 do_debug_sections
= compress
;
3677 case OPTION_DEBUGGING
:
3678 convert_debugging
= TRUE
;
3681 case OPTION_DECOMPRESS_DEBUG_SECTIONS
:
3682 do_debug_sections
= decompress
;
3685 case OPTION_GAP_FILL
:
3687 bfd_vma gap_fill_vma
;
3689 gap_fill_vma
= parse_vma (optarg
, "--gap-fill");
3690 gap_fill
= (bfd_byte
) gap_fill_vma
;
3691 if ((bfd_vma
) gap_fill
!= gap_fill_vma
)
3695 sprintf_vma (buff
, gap_fill_vma
);
3697 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
3700 gap_fill_set
= TRUE
;
3704 case OPTION_NO_CHANGE_WARNINGS
:
3705 change_warn
= FALSE
;
3709 pad_to
= parse_vma (optarg
, "--pad-to");
3713 case OPTION_REMOVE_LEADING_CHAR
:
3714 remove_leading_char
= TRUE
;
3717 case OPTION_REDEFINE_SYM
:
3719 /* Push this redefinition onto redefine_symbol_list. */
3723 const char *nextarg
;
3724 char *source
, *target
;
3726 s
= strchr (optarg
, '=');
3728 fatal (_("bad format for %s"), "--redefine-sym");
3731 source
= (char *) xmalloc (len
+ 1);
3732 strncpy (source
, optarg
, len
);
3736 len
= strlen (nextarg
);
3737 target
= (char *) xmalloc (len
+ 1);
3738 strcpy (target
, nextarg
);
3740 redefine_list_append ("--redefine-sym", source
, target
);
3747 case OPTION_REDEFINE_SYMS
:
3748 add_redefine_syms_file (optarg
);
3751 case OPTION_SET_SECTION_FLAGS
:
3757 s
= strchr (optarg
, '=');
3759 fatal (_("bad format for %s"), "--set-section-flags");
3762 name
= (char *) xmalloc (len
+ 1);
3763 strncpy (name
, optarg
, len
);
3766 p
= find_section_list (name
, TRUE
);
3768 p
->set_flags
= TRUE
;
3769 p
->flags
= parse_flags (s
+ 1);
3773 case OPTION_RENAME_SECTION
:
3776 const char *eq
, *fl
;
3781 eq
= strchr (optarg
, '=');
3783 fatal (_("bad format for %s"), "--rename-section");
3787 fatal (_("bad format for %s"), "--rename-section");
3789 old_name
= (char *) xmalloc (len
+ 1);
3790 strncpy (old_name
, optarg
, len
);
3794 fl
= strchr (eq
, ',');
3797 flags
= parse_flags (fl
+ 1);
3807 fatal (_("bad format for %s"), "--rename-section");
3809 new_name
= (char *) xmalloc (len
+ 1);
3810 strncpy (new_name
, eq
, len
);
3813 add_section_rename (old_name
, new_name
, flags
);
3817 case OPTION_SET_START
:
3818 set_start
= parse_vma (optarg
, "--set-start");
3819 set_start_set
= TRUE
;
3822 case OPTION_SREC_LEN
:
3823 Chunk
= parse_vma (optarg
, "--srec-len");
3826 case OPTION_SREC_FORCES3
:
3830 case OPTION_STRIP_SYMBOLS
:
3831 add_specific_symbols (optarg
, strip_specific_htab
);
3834 case OPTION_STRIP_UNNEEDED_SYMBOLS
:
3835 add_specific_symbols (optarg
, strip_unneeded_htab
);
3838 case OPTION_KEEP_SYMBOLS
:
3839 add_specific_symbols (optarg
, keep_specific_htab
);
3842 case OPTION_LOCALIZE_HIDDEN
:
3843 localize_hidden
= TRUE
;
3846 case OPTION_LOCALIZE_SYMBOLS
:
3847 add_specific_symbols (optarg
, localize_specific_htab
);
3850 case OPTION_LONG_SECTION_NAMES
:
3851 if (!strcmp ("enable", optarg
))
3852 long_section_names
= ENABLE
;
3853 else if (!strcmp ("disable", optarg
))
3854 long_section_names
= DISABLE
;
3855 else if (!strcmp ("keep", optarg
))
3856 long_section_names
= KEEP
;
3858 fatal (_("unknown long section names option '%s'"), optarg
);
3861 case OPTION_GLOBALIZE_SYMBOLS
:
3862 add_specific_symbols (optarg
, globalize_specific_htab
);
3865 case OPTION_KEEPGLOBAL_SYMBOLS
:
3866 add_specific_symbols (optarg
, keepglobal_specific_htab
);
3869 case OPTION_WEAKEN_SYMBOLS
:
3870 add_specific_symbols (optarg
, weaken_specific_htab
);
3873 case OPTION_ALT_MACH_CODE
:
3874 use_alt_mach_code
= strtoul (optarg
, NULL
, 0);
3875 if (use_alt_mach_code
== 0)
3876 fatal (_("unable to parse alternative machine code"));
3879 case OPTION_PREFIX_SYMBOLS
:
3880 prefix_symbols_string
= optarg
;
3883 case OPTION_PREFIX_SECTIONS
:
3884 prefix_sections_string
= optarg
;
3887 case OPTION_PREFIX_ALLOC_SECTIONS
:
3888 prefix_alloc_sections_string
= optarg
;
3891 case OPTION_READONLY_TEXT
:
3892 bfd_flags_to_set
|= WP_TEXT
;
3893 bfd_flags_to_clear
&= ~WP_TEXT
;
3896 case OPTION_WRITABLE_TEXT
:
3897 bfd_flags_to_clear
|= WP_TEXT
;
3898 bfd_flags_to_set
&= ~WP_TEXT
;
3902 bfd_flags_to_set
|= D_PAGED
;
3903 bfd_flags_to_clear
&= ~D_PAGED
;
3907 bfd_flags_to_clear
|= D_PAGED
;
3908 bfd_flags_to_set
&= ~D_PAGED
;
3911 case OPTION_EXTRACT_DWO
:
3912 strip_symbols
= STRIP_NONDWO
;
3915 case OPTION_EXTRACT_SYMBOL
:
3916 extract_symbol
= TRUE
;
3919 case OPTION_REVERSE_BYTES
:
3921 int prev
= reverse_bytes
;
3923 reverse_bytes
= atoi (optarg
);
3924 if ((reverse_bytes
<= 0) || ((reverse_bytes
% 2) != 0))
3925 fatal (_("number of bytes to reverse must be positive and even"));
3927 if (prev
&& prev
!= reverse_bytes
)
3928 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
3933 case OPTION_FILE_ALIGNMENT
:
3934 pe_file_alignment
= parse_vma (optarg
, "--file-alignment");
3940 pe_heap_reserve
= strtoul (optarg
, &end
, 0);
3942 || (*end
!= '.' && *end
!= '\0'))
3943 non_fatal (_("%s: invalid reserve value for --heap"),
3945 else if (*end
!= '\0')
3947 pe_heap_commit
= strtoul (end
+ 1, &end
, 0);
3949 non_fatal (_("%s: invalid commit value for --heap"),
3955 case OPTION_IMAGE_BASE
:
3956 pe_image_base
= parse_vma (optarg
, "--image-base");
3959 case OPTION_SECTION_ALIGNMENT
:
3960 pe_section_alignment
= parse_vma (optarg
,
3961 "--section-alignment");
3964 case OPTION_SUBSYSTEM
:
3965 set_pe_subsystem (optarg
);
3971 pe_stack_reserve
= strtoul (optarg
, &end
, 0);
3973 || (*end
!= '.' && *end
!= '\0'))
3974 non_fatal (_("%s: invalid reserve value for --stack"),
3976 else if (*end
!= '\0')
3978 pe_stack_commit
= strtoul (end
+ 1, &end
, 0);
3980 non_fatal (_("%s: invalid commit value for --stack"),
3987 /* We've been given a long option. */
3992 copy_usage (stdout
, 0);
3995 copy_usage (stderr
, 1);
4006 print_version ("objcopy");
4008 if (interleave
&& copy_byte
== -1)
4009 fatal (_("interleave start byte must be set with --byte"));
4011 if (copy_byte
>= interleave
)
4012 fatal (_("byte number must be less than interleave"));
4014 if (copy_width
> interleave
- copy_byte
)
4015 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4017 if (optind
== argc
|| optind
+ 2 < argc
)
4018 copy_usage (stderr
, 1);
4020 input_filename
= argv
[optind
];
4021 if (optind
+ 1 < argc
)
4022 output_filename
= argv
[optind
+ 1];
4024 default_deterministic ();
4026 /* Default is to strip no symbols. */
4027 if (strip_symbols
== STRIP_UNDEF
&& discard_locals
== LOCALS_UNDEF
)
4028 strip_symbols
= STRIP_NONE
;
4030 if (output_target
== NULL
)
4031 output_target
= input_target
;
4033 /* Convert input EFI target to PEI target. */
4034 if (input_target
!= NULL
4035 && strncmp (input_target
, "efi-", 4) == 0)
4039 efi
= xstrdup (output_target
+ 4);
4040 if (strncmp (efi
, "bsdrv-", 6) == 0
4041 || strncmp (efi
, "rtdrv-", 6) == 0)
4043 else if (strncmp (efi
, "app-", 4) != 0)
4044 fatal (_("unknown input EFI target: %s"), input_target
);
4047 convert_efi_target (efi
);
4050 /* Convert output EFI target to PEI target. */
4051 if (output_target
!= NULL
4052 && strncmp (output_target
, "efi-", 4) == 0)
4056 efi
= xstrdup (output_target
+ 4);
4057 if (strncmp (efi
, "app-", 4) == 0)
4059 if (pe_subsystem
== -1)
4060 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_APPLICATION
;
4062 else if (strncmp (efi
, "bsdrv-", 6) == 0)
4064 if (pe_subsystem
== -1)
4065 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER
;
4068 else if (strncmp (efi
, "rtdrv-", 6) == 0)
4070 if (pe_subsystem
== -1)
4071 pe_subsystem
= IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER
;
4075 fatal (_("unknown output EFI target: %s"), output_target
);
4077 if (pe_file_alignment
== (bfd_vma
) -1)
4078 pe_file_alignment
= PE_DEF_FILE_ALIGNMENT
;
4079 if (pe_section_alignment
== (bfd_vma
) -1)
4080 pe_section_alignment
= PE_DEF_SECTION_ALIGNMENT
;
4082 output_target
= efi
;
4083 convert_efi_target (efi
);
4087 if (stat (input_filename
, & statbuf
) < 0)
4088 fatal (_("warning: could not locate '%s'. System error message: %s"),
4089 input_filename
, strerror (errno
));
4091 /* If there is no destination file, or the source and destination files
4092 are the same, then create a temp and rename the result into the input. */
4093 if (output_filename
== NULL
4094 || filename_cmp (input_filename
, output_filename
) == 0)
4095 tmpname
= make_tempname (input_filename
);
4097 tmpname
= output_filename
;
4099 if (tmpname
== NULL
)
4100 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4101 input_filename
, strerror (errno
));
4103 copy_file (input_filename
, tmpname
, input_target
, output_target
, input_arch
);
4107 set_times (tmpname
, &statbuf
);
4108 if (tmpname
!= output_filename
)
4109 status
= (smart_rename (tmpname
, input_filename
,
4110 preserve_dates
) != 0);
4113 unlink_if_ordinary (tmpname
);
4117 for (p
= change_sections
; p
!= NULL
; p
= p
->next
)
4121 if (p
->change_vma
!= CHANGE_IGNORE
)
4125 sprintf_vma (buff
, p
->vma_val
);
4127 /* xgettext:c-format */
4128 non_fatal (_("%s %s%c0x%s never used"),
4129 "--change-section-vma",
4131 p
->change_vma
== CHANGE_SET
? '=' : '+',
4135 if (p
->change_lma
!= CHANGE_IGNORE
)
4139 sprintf_vma (buff
, p
->lma_val
);
4141 /* xgettext:c-format */
4142 non_fatal (_("%s %s%c0x%s never used"),
4143 "--change-section-lma",
4145 p
->change_lma
== CHANGE_SET
? '=' : '+',
4156 main (int argc
, char *argv
[])
4158 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4159 setlocale (LC_MESSAGES
, "");
4161 #if defined (HAVE_SETLOCALE)
4162 setlocale (LC_CTYPE
, "");
4164 bindtextdomain (PACKAGE
, LOCALEDIR
);
4165 textdomain (PACKAGE
);
4167 program_name
= argv
[0];
4168 xmalloc_set_program_name (program_name
);
4170 START_PROGRESS (program_name
, 0);
4172 expandargv (&argc
, &argv
);
4174 strip_symbols
= STRIP_UNDEF
;
4175 discard_locals
= LOCALS_UNDEF
;
4178 set_default_bfd_target ();
4182 int i
= strlen (program_name
);
4183 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
4184 /* Drop the .exe suffix, if any. */
4185 if (i
> 4 && FILENAME_CMP (program_name
+ i
- 4, ".exe") == 0)
4188 program_name
[i
] = '\0';
4191 is_strip
= (i
>= 5 && FILENAME_CMP (program_name
+ i
- 5, "strip") == 0);
4194 create_symbol_htabs ();
4197 strip_main (argc
, argv
);
4199 copy_main (argc
, argv
);
4201 END_PROGRESS (program_name
);