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
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 2 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"
29 #include "filenames.h"
34 /* A list of symbols to explicitly strip out, or to keep. A linked
35 list is good enough for a small number from the command line, but
36 this will slow things down a lot if many symbols are being
45 /* A list to support redefine_sym. */
50 struct redefine_node
*next
;
53 typedef struct section_rename
55 const char * old_name
;
56 const char * new_name
;
58 struct section_rename
* next
;
62 /* List of sections to be renamed. */
63 static section_rename
*section_rename_list
;
65 #define RETURN_NONFATAL(s) {bfd_nonfatal (s); status = 1; return;}
67 static asymbol
**isympp
= NULL
; /* Input symbols. */
68 static asymbol
**osympp
= NULL
; /* Output symbols that survive stripping. */
70 /* If `copy_byte' >= 0, copy only that byte of every `interleave' bytes. */
71 static int copy_byte
= -1;
72 static int interleave
= 4;
74 static bfd_boolean verbose
; /* Print file and target names. */
75 static bfd_boolean preserve_dates
; /* Preserve input file timestamp. */
76 static int status
= 0; /* Exit status. */
81 STRIP_NONE
, /* Don't strip. */
82 STRIP_DEBUG
, /* Strip all debugger symbols. */
83 STRIP_UNNEEDED
, /* Strip unnecessary symbols. */
84 STRIP_NONDEBUG
, /* Strip everything but debug info. */
85 STRIP_ALL
/* Strip all symbols. */
88 /* Which symbols to remove. */
89 static enum strip_action strip_symbols
;
94 LOCALS_START_L
, /* Discard locals starting with L. */
95 LOCALS_ALL
/* Discard all locals. */
98 /* Which local symbols to remove. Overrides STRIP_ALL. */
99 static enum locals_action discard_locals
;
101 /* What kind of change to perform. */
109 /* Structure used to hold lists of sections and actions to take. */
112 struct section_list
* next
; /* Next section to change. */
113 const char * name
; /* Section name. */
114 bfd_boolean used
; /* Whether this entry was used. */
115 bfd_boolean remove
; /* Whether to remove this section. */
116 bfd_boolean copy
; /* Whether to copy this section. */
117 enum change_action change_vma
;/* Whether to change or set VMA. */
118 bfd_vma vma_val
; /* Amount to change by or set to. */
119 enum change_action change_lma
;/* Whether to change or set LMA. */
120 bfd_vma lma_val
; /* Amount to change by or set to. */
121 bfd_boolean set_flags
; /* Whether to set the section flags. */
122 flagword flags
; /* What to set the section flags to. */
125 static struct section_list
*change_sections
;
127 /* TRUE if some sections are to be removed. */
128 static bfd_boolean sections_removed
;
130 /* TRUE if only some sections are to be copied. */
131 static bfd_boolean sections_copied
;
133 /* Changes to the start address. */
134 static bfd_vma change_start
= 0;
135 static bfd_boolean set_start_set
= FALSE
;
136 static bfd_vma set_start
;
138 /* Changes to section addresses. */
139 static bfd_vma change_section_address
= 0;
141 /* Filling gaps between sections. */
142 static bfd_boolean gap_fill_set
= FALSE
;
143 static bfd_byte gap_fill
= 0;
145 /* Pad to a given address. */
146 static bfd_boolean pad_to_set
= FALSE
;
147 static bfd_vma pad_to
;
149 /* Use alternate machine code? */
150 static int use_alt_mach_code
= 0;
152 /* Output BFD flags user wants to set or clear */
153 static flagword bfd_flags_to_set
;
154 static flagword bfd_flags_to_clear
;
156 /* List of sections to add. */
159 /* Next section to add. */
160 struct section_add
*next
;
161 /* Name of section to add. */
163 /* Name of file holding section contents. */
164 const char *filename
;
167 /* Contents of file. */
169 /* BFD section, after it has been added. */
173 /* List of sections to add to the output BFD. */
174 static struct section_add
*add_sections
;
176 /* If non-NULL the argument to --add-gnu-debuglink.
177 This should be the filename to store in the .gnu_debuglink section. */
178 static const char * gnu_debuglink_filename
= NULL
;
180 /* Whether to convert debugging information. */
181 static bfd_boolean convert_debugging
= FALSE
;
183 /* Whether to change the leading character in symbol names. */
184 static bfd_boolean change_leading_char
= FALSE
;
186 /* Whether to remove the leading character from global symbol names. */
187 static bfd_boolean remove_leading_char
= FALSE
;
189 /* Whether to permit wildcard in symbol comparison. */
190 static bfd_boolean wildcard
= FALSE
;
192 /* List of symbols to strip, keep, localize, keep-global, weaken,
194 static struct symlist
*strip_specific_list
= NULL
;
195 static struct symlist
*strip_unneeded_list
= NULL
;
196 static struct symlist
*keep_specific_list
= NULL
;
197 static struct symlist
*localize_specific_list
= NULL
;
198 static struct symlist
*globalize_specific_list
= NULL
;
199 static struct symlist
*keepglobal_specific_list
= NULL
;
200 static struct symlist
*weaken_specific_list
= NULL
;
201 static struct redefine_node
*redefine_sym_list
= NULL
;
203 /* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
204 static bfd_boolean weaken
= FALSE
;
206 /* If this is TRUE, we retain BSF_FILE symbols. */
207 static bfd_boolean keep_file_symbols
= FALSE
;
209 /* Prefix symbols/sections. */
210 static char *prefix_symbols_string
= 0;
211 static char *prefix_sections_string
= 0;
212 static char *prefix_alloc_sections_string
= 0;
214 /* 150 isn't special; it's just an arbitrary non-ASCII char value. */
215 enum command_line_switch
217 OPTION_ADD_SECTION
=150,
218 OPTION_CHANGE_ADDRESSES
,
219 OPTION_CHANGE_LEADING_CHAR
,
221 OPTION_CHANGE_SECTION_ADDRESS
,
222 OPTION_CHANGE_SECTION_LMA
,
223 OPTION_CHANGE_SECTION_VMA
,
224 OPTION_CHANGE_WARNINGS
,
227 OPTION_NO_CHANGE_WARNINGS
,
229 OPTION_REMOVE_LEADING_CHAR
,
230 OPTION_SET_SECTION_FLAGS
,
232 OPTION_STRIP_UNNEEDED
,
235 OPTION_REDEFINE_SYMS
,
238 OPTION_STRIP_SYMBOLS
,
239 OPTION_STRIP_UNNEEDED_SYMBOL
,
240 OPTION_STRIP_UNNEEDED_SYMBOLS
,
242 OPTION_LOCALIZE_SYMBOLS
,
243 OPTION_GLOBALIZE_SYMBOL
,
244 OPTION_GLOBALIZE_SYMBOLS
,
245 OPTION_KEEPGLOBAL_SYMBOLS
,
246 OPTION_WEAKEN_SYMBOLS
,
247 OPTION_RENAME_SECTION
,
248 OPTION_ALT_MACH_CODE
,
249 OPTION_PREFIX_SYMBOLS
,
250 OPTION_PREFIX_SECTIONS
,
251 OPTION_PREFIX_ALLOC_SECTIONS
,
253 OPTION_ADD_GNU_DEBUGLINK
,
254 OPTION_ONLY_KEEP_DEBUG
,
255 OPTION_KEEP_FILE_SYMBOLS
,
256 OPTION_READONLY_TEXT
,
257 OPTION_WRITABLE_TEXT
,
262 /* Options to handle if running as "strip". */
264 static struct option strip_options
[] =
266 {"discard-all", no_argument
, 0, 'x'},
267 {"discard-locals", no_argument
, 0, 'X'},
268 {"format", required_argument
, 0, 'F'}, /* Obsolete */
269 {"help", no_argument
, 0, 'h'},
270 {"info", no_argument
, 0, OPTION_FORMATS_INFO
},
271 {"input-format", required_argument
, 0, 'I'}, /* Obsolete */
272 {"input-target", required_argument
, 0, 'I'},
273 {"keep-file-symbols", no_argument
, 0, OPTION_KEEP_FILE_SYMBOLS
},
274 {"keep-symbol", required_argument
, 0, 'K'},
275 {"only-keep-debug", no_argument
, 0, OPTION_ONLY_KEEP_DEBUG
},
276 {"output-format", required_argument
, 0, 'O'}, /* Obsolete */
277 {"output-target", required_argument
, 0, 'O'},
278 {"output-file", required_argument
, 0, 'o'},
279 {"preserve-dates", no_argument
, 0, 'p'},
280 {"remove-section", required_argument
, 0, 'R'},
281 {"strip-all", no_argument
, 0, 's'},
282 {"strip-debug", no_argument
, 0, 'S'},
283 {"strip-unneeded", no_argument
, 0, OPTION_STRIP_UNNEEDED
},
284 {"strip-symbol", required_argument
, 0, 'N'},
285 {"target", required_argument
, 0, 'F'},
286 {"verbose", no_argument
, 0, 'v'},
287 {"version", no_argument
, 0, 'V'},
288 {"wildcard", no_argument
, 0, 'w'},
289 {0, no_argument
, 0, 0}
292 /* Options to handle if running as "objcopy". */
294 static struct option copy_options
[] =
296 {"add-gnu-debuglink", required_argument
, 0, OPTION_ADD_GNU_DEBUGLINK
},
297 {"add-section", required_argument
, 0, OPTION_ADD_SECTION
},
298 {"adjust-start", required_argument
, 0, OPTION_CHANGE_START
},
299 {"adjust-vma", required_argument
, 0, OPTION_CHANGE_ADDRESSES
},
300 {"adjust-section-vma", required_argument
, 0, OPTION_CHANGE_SECTION_ADDRESS
},
301 {"adjust-warnings", no_argument
, 0, OPTION_CHANGE_WARNINGS
},
302 {"alt-machine-code", required_argument
, 0, OPTION_ALT_MACH_CODE
},
303 {"binary-architecture", required_argument
, 0, 'B'},
304 {"byte", required_argument
, 0, 'b'},
305 {"change-addresses", required_argument
, 0, OPTION_CHANGE_ADDRESSES
},
306 {"change-leading-char", no_argument
, 0, OPTION_CHANGE_LEADING_CHAR
},
307 {"change-section-address", required_argument
, 0, OPTION_CHANGE_SECTION_ADDRESS
},
308 {"change-section-lma", required_argument
, 0, OPTION_CHANGE_SECTION_LMA
},
309 {"change-section-vma", required_argument
, 0, OPTION_CHANGE_SECTION_VMA
},
310 {"change-start", required_argument
, 0, OPTION_CHANGE_START
},
311 {"change-warnings", no_argument
, 0, OPTION_CHANGE_WARNINGS
},
312 {"debugging", no_argument
, 0, OPTION_DEBUGGING
},
313 {"discard-all", no_argument
, 0, 'x'},
314 {"discard-locals", no_argument
, 0, 'X'},
315 {"format", required_argument
, 0, 'F'}, /* Obsolete */
316 {"gap-fill", required_argument
, 0, OPTION_GAP_FILL
},
317 {"globalize-symbol", required_argument
, 0, OPTION_GLOBALIZE_SYMBOL
},
318 {"globalize-symbols", required_argument
, 0, OPTION_GLOBALIZE_SYMBOLS
},
319 {"help", no_argument
, 0, 'h'},
320 {"impure", no_argument
, 0, OPTION_IMPURE
},
321 {"info", no_argument
, 0, OPTION_FORMATS_INFO
},
322 {"input-format", required_argument
, 0, 'I'}, /* Obsolete */
323 {"input-target", required_argument
, 0, 'I'},
324 {"interleave", required_argument
, 0, 'i'},
325 {"keep-file-symbols", no_argument
, 0, OPTION_KEEP_FILE_SYMBOLS
},
326 {"keep-global-symbol", required_argument
, 0, 'G'},
327 {"keep-global-symbols", required_argument
, 0, OPTION_KEEPGLOBAL_SYMBOLS
},
328 {"keep-symbol", required_argument
, 0, 'K'},
329 {"keep-symbols", required_argument
, 0, OPTION_KEEP_SYMBOLS
},
330 {"localize-symbol", required_argument
, 0, 'L'},
331 {"localize-symbols", required_argument
, 0, OPTION_LOCALIZE_SYMBOLS
},
332 {"no-adjust-warnings", no_argument
, 0, OPTION_NO_CHANGE_WARNINGS
},
333 {"no-change-warnings", no_argument
, 0, OPTION_NO_CHANGE_WARNINGS
},
334 {"only-keep-debug", no_argument
, 0, OPTION_ONLY_KEEP_DEBUG
},
335 {"only-section", required_argument
, 0, 'j'},
336 {"output-format", required_argument
, 0, 'O'}, /* Obsolete */
337 {"output-target", required_argument
, 0, 'O'},
338 {"pad-to", required_argument
, 0, OPTION_PAD_TO
},
339 {"prefix-symbols", required_argument
, 0, OPTION_PREFIX_SYMBOLS
},
340 {"prefix-sections", required_argument
, 0, OPTION_PREFIX_SECTIONS
},
341 {"prefix-alloc-sections", required_argument
, 0, OPTION_PREFIX_ALLOC_SECTIONS
},
342 {"preserve-dates", no_argument
, 0, 'p'},
343 {"pure", no_argument
, 0, OPTION_PURE
},
344 {"readonly-text", no_argument
, 0, OPTION_READONLY_TEXT
},
345 {"redefine-sym", required_argument
, 0, OPTION_REDEFINE_SYM
},
346 {"redefine-syms", required_argument
, 0, OPTION_REDEFINE_SYMS
},
347 {"remove-leading-char", no_argument
, 0, OPTION_REMOVE_LEADING_CHAR
},
348 {"remove-section", required_argument
, 0, 'R'},
349 {"rename-section", required_argument
, 0, OPTION_RENAME_SECTION
},
350 {"set-section-flags", required_argument
, 0, OPTION_SET_SECTION_FLAGS
},
351 {"set-start", required_argument
, 0, OPTION_SET_START
},
352 {"srec-len", required_argument
, 0, OPTION_SREC_LEN
},
353 {"srec-forceS3", no_argument
, 0, OPTION_SREC_FORCES3
},
354 {"strip-all", no_argument
, 0, 'S'},
355 {"strip-debug", no_argument
, 0, 'g'},
356 {"strip-unneeded", no_argument
, 0, OPTION_STRIP_UNNEEDED
},
357 {"strip-unneeded-symbol", required_argument
, 0, OPTION_STRIP_UNNEEDED_SYMBOL
},
358 {"strip-unneeded-symbols", required_argument
, 0, OPTION_STRIP_UNNEEDED_SYMBOLS
},
359 {"strip-symbol", required_argument
, 0, 'N'},
360 {"strip-symbols", required_argument
, 0, OPTION_STRIP_SYMBOLS
},
361 {"target", required_argument
, 0, 'F'},
362 {"verbose", no_argument
, 0, 'v'},
363 {"version", no_argument
, 0, 'V'},
364 {"weaken", no_argument
, 0, OPTION_WEAKEN
},
365 {"weaken-symbol", required_argument
, 0, 'W'},
366 {"weaken-symbols", required_argument
, 0, OPTION_WEAKEN_SYMBOLS
},
367 {"wildcard", no_argument
, 0, 'w'},
368 {"writable-text", no_argument
, 0, OPTION_WRITABLE_TEXT
},
369 {0, no_argument
, 0, 0}
373 extern char *program_name
;
375 /* This flag distinguishes between strip and objcopy:
376 1 means this is 'strip'; 0 means this is 'objcopy'.
377 -1 means if we should use argv[0] to decide. */
380 /* The maximum length of an S record. This variable is declared in srec.c
381 and can be modified by the --srec-len parameter. */
382 extern unsigned int Chunk
;
384 /* Restrict the generation of Srecords to type S3 only.
385 This variable is declare in bfd/srec.c and can be toggled
386 on by the --srec-forceS3 command line switch. */
387 extern bfd_boolean S3Forced
;
389 /* Defined in bfd/binary.c. Used to set architecture and machine of input
391 extern enum bfd_architecture bfd_external_binary_architecture
;
392 extern unsigned long bfd_external_machine
;
394 /* Forward declarations. */
395 static void setup_section (bfd
*, asection
*, void *);
396 static void setup_bfd_headers (bfd
*, bfd
*);
397 static void copy_section (bfd
*, asection
*, void *);
398 static void get_sections (bfd
*, asection
*, void *);
399 static int compare_section_lma (const void *, const void *);
400 static void mark_symbols_used_in_relocations (bfd
*, asection
*, void *);
401 static bfd_boolean
write_debugging_info (bfd
*, void *, long *, asymbol
***);
402 static const char *lookup_sym_redefinition (const char *);
405 copy_usage (FILE *stream
, int exit_status
)
407 fprintf (stream
, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name
);
408 fprintf (stream
, _(" Copies a binary file, possibly transforming it in the process\n"));
409 fprintf (stream
, _(" The options are:\n"));
410 fprintf (stream
, _("\
411 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
412 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
413 -B --binary-architecture <arch> Set arch of output file, when input is binary\n\
414 -F --target <bfdname> Set both input and output format to <bfdname>\n\
415 --debugging Convert debugging information, if possible\n\
416 -p --preserve-dates Copy modified/access timestamps to the output\n\
417 -j --only-section <name> Only copy section <name> into the output\n\
418 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
419 -R --remove-section <name> Remove section <name> from the output\n\
420 -S --strip-all Remove all symbol and relocation information\n\
421 -g --strip-debug Remove all debugging symbols & sections\n\
422 --strip-unneeded Remove all symbols not needed by relocations\n\
423 -N --strip-symbol <name> Do not copy symbol <name>\n\
424 --strip-unneeded-symbol <name>\n\
425 Do not copy symbol <name> unless needed by\n\
427 --only-keep-debug Strip everything but the debug information\n\
428 -K --keep-symbol <name> Do not strip symbol <name>\n\
429 --keep-file-symbols Do not strip file symbol(s)\n\
430 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
431 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
432 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
433 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
434 --weaken Force all global symbols to be marked as weak\n\
435 -w --wildcard Permit wildcard in symbol comparison\n\
436 -x --discard-all Remove all non-global symbols\n\
437 -X --discard-locals Remove any compiler-generated symbols\n\
438 -i --interleave <number> Only copy one out of every <number> bytes\n\
439 -b --byte <num> Select byte <num> in every interleaved block\n\
440 --gap-fill <val> Fill gaps between sections with <val>\n\
441 --pad-to <addr> Pad the last section up to address <addr>\n\
442 --set-start <addr> Set the start address to <addr>\n\
443 {--change-start|--adjust-start} <incr>\n\
444 Add <incr> to the start address\n\
445 {--change-addresses|--adjust-vma} <incr>\n\
446 Add <incr> to LMA, VMA and start addresses\n\
447 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
448 Change LMA and VMA of section <name> by <val>\n\
449 --change-section-lma <name>{=|+|-}<val>\n\
450 Change the LMA of section <name> by <val>\n\
451 --change-section-vma <name>{=|+|-}<val>\n\
452 Change the VMA of section <name> by <val>\n\
453 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
454 Warn if a named section does not exist\n\
455 --set-section-flags <name>=<flags>\n\
456 Set section <name>'s properties to <flags>\n\
457 --add-section <name>=<file> Add section <name> found in <file> to output\n\
458 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
459 --change-leading-char Force output format's leading character style\n\
460 --remove-leading-char Remove leading character from global symbols\n\
461 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
462 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
464 --srec-len <number> Restrict the length of generated Srecords\n\
465 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
466 --strip-symbols <file> -N for all symbols listed in <file>\n\
467 --strip-unneeded-symbols <file>\n\
468 --strip-unneeded-symbol for all symbols listed\n\
470 --keep-symbols <file> -K for all symbols listed in <file>\n\
471 --localize-symbols <file> -L for all symbols listed in <file>\n\
472 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
473 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
474 --weaken-symbols <file> -W for all symbols listed in <file>\n\
475 --alt-machine-code <index> Use alternate machine code for output\n\
476 --writable-text Mark the output text as writable\n\
477 --readonly-text Make the output text write protected\n\
478 --pure Mark the output file as demand paged\n\
479 --impure Mark the output file as impure\n\
480 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
481 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
482 --prefix-alloc-sections <prefix>\n\
483 Add <prefix> to start of every allocatable\n\
485 -v --verbose List all object files modified\n\
486 @<file> Read options from <file>\n\
487 -V --version Display this program's version number\n\
488 -h --help Display this output\n\
489 --info List object formats & architectures supported\n\
491 list_supported_targets (program_name
, stream
);
492 if (exit_status
== 0)
493 fprintf (stream
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
498 strip_usage (FILE *stream
, int exit_status
)
500 fprintf (stream
, _("Usage: %s <option(s)> in-file(s)\n"), program_name
);
501 fprintf (stream
, _(" Removes symbols and sections from files\n"));
502 fprintf (stream
, _(" The options are:\n"));
503 fprintf (stream
, _("\
504 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
505 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
506 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
507 -p --preserve-dates Copy modified/access timestamps to the output\n\
508 -R --remove-section=<name> Remove section <name> from the output\n\
509 -s --strip-all Remove all symbol and relocation information\n\
510 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
511 --strip-unneeded Remove all symbols not needed by relocations\n\
512 --only-keep-debug Strip everything but the debug information\n\
513 -N --strip-symbol=<name> Do not copy symbol <name>\n\
514 -K --keep-symbol=<name> Do not strip symbol <name>\n\
515 --keep-file-symbols Do not strip file symbol(s)\n\
516 -w --wildcard Permit wildcard in symbol comparison\n\
517 -x --discard-all Remove all non-global symbols\n\
518 -X --discard-locals Remove any compiler-generated symbols\n\
519 -v --verbose List all object files modified\n\
520 -V --version Display this program's version number\n\
521 -h --help Display this output\n\
522 --info List object formats & architectures supported\n\
523 -o <file> Place stripped output into <file>\n\
526 list_supported_targets (program_name
, stream
);
527 if (exit_status
== 0)
528 fprintf (stream
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
532 /* Parse section flags into a flagword, with a fatal error if the
533 string can't be parsed. */
536 parse_flags (const char *s
)
546 snext
= strchr (s
, ',');
556 #define PARSE_FLAG(fname,fval) \
557 else if (strncasecmp (fname, s, len) == 0) ret |= fval
558 PARSE_FLAG ("alloc", SEC_ALLOC
);
559 PARSE_FLAG ("load", SEC_LOAD
);
560 PARSE_FLAG ("noload", SEC_NEVER_LOAD
);
561 PARSE_FLAG ("readonly", SEC_READONLY
);
562 PARSE_FLAG ("debug", SEC_DEBUGGING
);
563 PARSE_FLAG ("code", SEC_CODE
);
564 PARSE_FLAG ("data", SEC_DATA
);
565 PARSE_FLAG ("rom", SEC_ROM
);
566 PARSE_FLAG ("share", SEC_COFF_SHARED
);
567 PARSE_FLAG ("contents", SEC_HAS_CONTENTS
);
573 copy
= xmalloc (len
+ 1);
574 strncpy (copy
, s
, len
);
576 non_fatal (_("unrecognized section flag `%s'"), copy
);
577 fatal (_("supported flags: %s"),
578 "alloc, load, noload, readonly, debug, code, data, rom, share, contents");
588 /* Find and optionally add an entry in the change_sections list. */
590 static struct section_list
*
591 find_section_list (const char *name
, bfd_boolean add
)
593 struct section_list
*p
;
595 for (p
= change_sections
; p
!= NULL
; p
= p
->next
)
596 if (strcmp (p
->name
, name
) == 0)
602 p
= xmalloc (sizeof (struct section_list
));
607 p
->change_vma
= CHANGE_IGNORE
;
608 p
->change_lma
= CHANGE_IGNORE
;
611 p
->set_flags
= FALSE
;
614 p
->next
= change_sections
;
620 /* Add a symbol to strip_specific_list. */
623 add_specific_symbol (const char *name
, struct symlist
**list
)
625 struct symlist
*tmp_list
;
627 tmp_list
= xmalloc (sizeof (struct symlist
));
628 tmp_list
->name
= name
;
629 tmp_list
->next
= *list
;
633 /* Add symbols listed in `filename' to strip_specific_list. */
635 #define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
636 #define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
639 add_specific_symbols (const char *filename
, struct symlist
**list
)
645 unsigned int line_count
;
647 size
= get_file_size (filename
);
651 buffer
= xmalloc (size
+ 2);
652 f
= fopen (filename
, FOPEN_RT
);
654 fatal (_("cannot open '%s': %s"), filename
, strerror (errno
));
656 if (fread (buffer
, 1, size
, f
) == 0 || ferror (f
))
657 fatal (_("%s: fread failed"), filename
);
660 buffer
[size
] = '\n';
661 buffer
[size
+ 1] = '\0';
665 for (line
= buffer
; * line
!= '\0'; line
++)
670 int finished
= FALSE
;
672 for (eol
= line
;; eol
++)
678 /* Cope with \n\r. */
686 /* Cope with \r\n. */
697 /* Line comment, Terminate the line here, in case a
698 name is present and then allow the rest of the
699 loop to find the real end of the line. */
711 /* A name may now exist somewhere between 'line' and 'eol'.
712 Strip off leading whitespace and trailing whitespace,
713 then add it to the list. */
714 for (name
= line
; IS_WHITESPACE (* name
); name
++)
716 for (name_end
= name
;
717 (! IS_WHITESPACE (* name_end
))
718 && (! IS_LINE_TERMINATOR (* name_end
));
722 if (! IS_LINE_TERMINATOR (* name_end
))
726 for (extra
= name_end
+ 1; IS_WHITESPACE (* extra
); extra
++)
729 if (! IS_LINE_TERMINATOR (* extra
))
730 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
731 filename
, line_count
);
737 add_specific_symbol (name
, list
);
739 /* Advance line pointer to end of line. The 'eol ++' in the for
740 loop above will then advance us to the start of the next line. */
746 /* See whether a symbol should be stripped or kept based on
747 strip_specific_list and keep_symbols. */
750 is_specified_symbol (const char *name
, struct symlist
*list
)
752 struct symlist
*tmp_list
;
756 for (tmp_list
= list
; tmp_list
; tmp_list
= tmp_list
->next
)
757 if (*(tmp_list
->name
) != '!')
759 if (!fnmatch (tmp_list
->name
, name
, 0))
764 if (fnmatch (tmp_list
->name
+ 1, name
, 0))
770 for (tmp_list
= list
; tmp_list
; tmp_list
= tmp_list
->next
)
771 if (strcmp (name
, tmp_list
->name
) == 0)
778 /* See if a section is being removed. */
781 is_strip_section (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*sec
)
783 if (sections_removed
|| sections_copied
)
785 struct section_list
*p
;
787 p
= find_section_list (bfd_get_section_name (abfd
, sec
), FALSE
);
789 if (sections_removed
&& p
!= NULL
&& p
->remove
)
791 if (sections_copied
&& (p
== NULL
|| ! p
->copy
))
795 if ((bfd_get_section_flags (abfd
, sec
) & SEC_DEBUGGING
) != 0)
797 if (strip_symbols
== STRIP_DEBUG
798 || strip_symbols
== STRIP_UNNEEDED
799 || strip_symbols
== STRIP_ALL
800 || discard_locals
== LOCALS_ALL
801 || convert_debugging
)
804 if (strip_symbols
== STRIP_NONDEBUG
)
811 /* Choose which symbol entries to copy; put the result in OSYMS.
812 We don't copy in place, because that confuses the relocs.
813 Return the number of symbols to print. */
816 filter_symbols (bfd
*abfd
, bfd
*obfd
, asymbol
**osyms
,
817 asymbol
**isyms
, long symcount
)
819 asymbol
**from
= isyms
, **to
= osyms
;
820 long src_count
= 0, dst_count
= 0;
821 int relocatable
= (abfd
->flags
& (HAS_RELOC
| EXEC_P
| DYNAMIC
))
824 for (; src_count
< symcount
; src_count
++)
826 asymbol
*sym
= from
[src_count
];
827 flagword flags
= sym
->flags
;
828 char *name
= (char *) bfd_asymbol_name (sym
);
830 bfd_boolean undefined
;
831 bfd_boolean rem_leading_char
;
832 bfd_boolean add_leading_char
;
834 undefined
= bfd_is_und_section (bfd_get_section (sym
));
836 if (redefine_sym_list
)
838 char *old_name
, *new_name
;
840 old_name
= (char *) bfd_asymbol_name (sym
);
841 new_name
= (char *) lookup_sym_redefinition (old_name
);
842 bfd_asymbol_name (sym
) = new_name
;
846 /* Check if we will remove the current leading character. */
848 (name
[0] == bfd_get_symbol_leading_char (abfd
))
849 && (change_leading_char
850 || (remove_leading_char
851 && ((flags
& (BSF_GLOBAL
| BSF_WEAK
)) != 0
853 || bfd_is_com_section (bfd_get_section (sym
)))));
855 /* Check if we will add a new leading character. */
858 && (bfd_get_symbol_leading_char (obfd
) != '\0')
859 && (bfd_get_symbol_leading_char (abfd
) == '\0'
860 || (name
[0] == bfd_get_symbol_leading_char (abfd
)));
862 /* Short circuit for change_leading_char if we can do it in-place. */
863 if (rem_leading_char
&& add_leading_char
&& !prefix_symbols_string
)
865 name
[0] = bfd_get_symbol_leading_char (obfd
);
866 bfd_asymbol_name (sym
) = name
;
867 rem_leading_char
= FALSE
;
868 add_leading_char
= FALSE
;
871 /* Remove leading char. */
872 if (rem_leading_char
)
873 bfd_asymbol_name (sym
) = ++name
;
875 /* Add new leading char and/or prefix. */
876 if (add_leading_char
|| prefix_symbols_string
)
880 ptr
= n
= xmalloc (1 + strlen (prefix_symbols_string
)
881 + strlen (name
) + 1);
882 if (add_leading_char
)
883 *ptr
++ = bfd_get_symbol_leading_char (obfd
);
885 if (prefix_symbols_string
)
887 strcpy (ptr
, prefix_symbols_string
);
888 ptr
+= strlen (prefix_symbols_string
);
892 bfd_asymbol_name (sym
) = n
;
896 if (strip_symbols
== STRIP_ALL
)
898 else if ((flags
& BSF_KEEP
) != 0 /* Used in relocation. */
899 || ((flags
& BSF_SECTION_SYM
) != 0
900 && ((*bfd_get_section (sym
)->symbol_ptr_ptr
)->flags
903 else if (relocatable
/* Relocatable file. */
904 && (flags
& (BSF_GLOBAL
| BSF_WEAK
)) != 0)
906 else if (bfd_decode_symclass (sym
) == 'I')
907 /* Global symbols in $idata sections need to be retained
908 even if relocatable is FALSE. External users of the
909 library containing the $idata section may reference these
912 else if ((flags
& BSF_GLOBAL
) != 0 /* Global symbol. */
913 || (flags
& BSF_WEAK
) != 0
915 || bfd_is_com_section (bfd_get_section (sym
)))
916 keep
= strip_symbols
!= STRIP_UNNEEDED
;
917 else if ((flags
& BSF_DEBUGGING
) != 0) /* Debugging symbol. */
918 keep
= (strip_symbols
!= STRIP_DEBUG
919 && strip_symbols
!= STRIP_UNNEEDED
920 && ! convert_debugging
);
921 else if (bfd_coff_get_comdat_section (abfd
, bfd_get_section (sym
)))
922 /* COMDAT sections store special information in local
923 symbols, so we cannot risk stripping any of them. */
925 else /* Local symbol. */
926 keep
= (strip_symbols
!= STRIP_UNNEEDED
927 && (discard_locals
!= LOCALS_ALL
928 && (discard_locals
!= LOCALS_START_L
929 || ! bfd_is_local_label (abfd
, sym
))));
931 if (keep
&& is_specified_symbol (name
, strip_specific_list
))
934 && !(flags
& BSF_KEEP
)
935 && is_specified_symbol (name
, strip_unneeded_list
))
938 && ((keep_file_symbols
&& (flags
& BSF_FILE
))
939 || is_specified_symbol (name
, keep_specific_list
)))
941 if (keep
&& is_strip_section (abfd
, bfd_get_section (sym
)))
946 if ((flags
& BSF_GLOBAL
) != 0
947 && (weaken
|| is_specified_symbol (name
, weaken_specific_list
)))
949 sym
->flags
&= ~ BSF_GLOBAL
;
950 sym
->flags
|= BSF_WEAK
;
954 && (flags
& (BSF_GLOBAL
| BSF_WEAK
))
955 && (is_specified_symbol (name
, localize_specific_list
)
956 || (keepglobal_specific_list
!= NULL
957 && ! is_specified_symbol (name
, keepglobal_specific_list
))))
959 sym
->flags
&= ~ (BSF_GLOBAL
| BSF_WEAK
);
960 sym
->flags
|= BSF_LOCAL
;
964 && (flags
& BSF_LOCAL
)
965 && is_specified_symbol (name
, globalize_specific_list
))
967 sym
->flags
&= ~ BSF_LOCAL
;
968 sym
->flags
|= BSF_GLOBAL
;
971 to
[dst_count
++] = sym
;
975 to
[dst_count
] = NULL
;
980 /* Find the redefined name of symbol SOURCE. */
983 lookup_sym_redefinition (const char *source
)
985 struct redefine_node
*list
;
987 for (list
= redefine_sym_list
; list
!= NULL
; list
= list
->next
)
988 if (strcmp (source
, list
->source
) == 0)
994 /* Add a node to a symbol redefine list. */
997 redefine_list_append (const char *cause
, const char *source
, const char *target
)
999 struct redefine_node
**p
;
1000 struct redefine_node
*list
;
1001 struct redefine_node
*new_node
;
1003 for (p
= &redefine_sym_list
; (list
= *p
) != NULL
; p
= &list
->next
)
1005 if (strcmp (source
, list
->source
) == 0)
1006 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
1009 if (strcmp (target
, list
->target
) == 0)
1010 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
1014 new_node
= xmalloc (sizeof (struct redefine_node
));
1016 new_node
->source
= strdup (source
);
1017 new_node
->target
= strdup (target
);
1018 new_node
->next
= NULL
;
1023 /* Handle the --redefine-syms option. Read lines containing "old new"
1024 from the file, and add them to the symbol redefine list. */
1027 add_redefine_syms_file (const char *filename
)
1036 file
= fopen (filename
, "r");
1038 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1039 filename
, strerror (errno
));
1042 buf
= xmalloc (bufsize
);
1050 /* Collect the input symbol name. */
1051 while (! IS_WHITESPACE (c
) && ! IS_LINE_TERMINATOR (c
) && c
!= EOF
)
1059 buf
= xrealloc (buf
, bufsize
);
1067 /* Eat white space between the symbol names. */
1068 while (IS_WHITESPACE (c
))
1070 if (c
== '#' || IS_LINE_TERMINATOR (c
))
1075 /* Collect the output symbol name. */
1077 while (! IS_WHITESPACE (c
) && ! IS_LINE_TERMINATOR (c
) && c
!= EOF
)
1085 buf
= xrealloc (buf
, bufsize
);
1093 /* Eat white space at end of line. */
1094 while (! IS_LINE_TERMINATOR(c
) && c
!= EOF
&& IS_WHITESPACE (c
))
1099 if ((c
== '\r' && (c
= getc (file
)) == '\n')
1100 || c
== '\n' || c
== EOF
)
1103 /* Append the redefinition to the list. */
1105 redefine_list_append (filename
, &buf
[0], &buf
[outsym_off
]);
1116 fatal (_("%s:%d: garbage found at end of line"), filename
, lineno
);
1118 if (len
!= 0 && (outsym_off
== 0 || outsym_off
== len
))
1119 fatal (_("%s:%d: missing new symbol name"), filename
, lineno
);
1122 /* Eat the rest of the line and finish it. */
1123 while (c
!= '\n' && c
!= EOF
)
1129 fatal (_("%s:%d: premature end of file"), filename
, lineno
);
1134 /* Copy unkown object file IBFD onto OBFD.
1135 Returns TRUE upon success, FALSE otherwise. */
1138 copy_unknown_object (bfd
*ibfd
, bfd
*obfd
)
1146 if (bfd_stat_arch_elt (ibfd
, &buf
) != 0)
1148 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1155 non_fatal (_("stat returns negative size for `%s'"),
1156 bfd_get_archive_filename (ibfd
));
1160 if (bfd_seek (ibfd
, (file_ptr
) 0, SEEK_SET
) != 0)
1162 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1167 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1168 bfd_get_archive_filename (ibfd
), bfd_get_filename (obfd
));
1170 cbuf
= xmalloc (BUFSIZE
);
1172 while (ncopied
< size
)
1174 tocopy
= size
- ncopied
;
1175 if (tocopy
> BUFSIZE
)
1178 if (bfd_bread (cbuf
, (bfd_size_type
) tocopy
, ibfd
)
1179 != (bfd_size_type
) tocopy
)
1181 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1186 if (bfd_bwrite (cbuf
, (bfd_size_type
) tocopy
, obfd
)
1187 != (bfd_size_type
) tocopy
)
1189 bfd_nonfatal (bfd_get_filename (obfd
));
1197 chmod (bfd_get_filename (obfd
), buf
.st_mode
);
1202 /* Copy object file IBFD onto OBFD.
1203 Returns TRUE upon success, FALSE otherwise. */
1206 copy_object (bfd
*ibfd
, bfd
*obfd
)
1210 asection
**osections
= NULL
;
1211 asection
*gnu_debuglink_section
= NULL
;
1212 bfd_size_type
*gaps
= NULL
;
1213 bfd_size_type max_gap
= 0;
1216 enum bfd_architecture iarch
;
1219 if (ibfd
->xvec
->byteorder
!= obfd
->xvec
->byteorder
1220 && ibfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
1221 && obfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
)
1222 fatal (_("Unable to change endianness of input file(s)"));
1224 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
1226 bfd_nonfatal (bfd_get_filename (obfd
));
1231 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
1232 bfd_get_archive_filename (ibfd
), bfd_get_target (ibfd
),
1233 bfd_get_filename (obfd
), bfd_get_target (obfd
));
1238 start
= bfd_get_start_address (ibfd
);
1239 start
+= change_start
;
1241 /* Neither the start address nor the flags
1242 need to be set for a core file. */
1243 if (bfd_get_format (obfd
) != bfd_core
)
1247 flags
= bfd_get_file_flags (ibfd
);
1248 flags
|= bfd_flags_to_set
;
1249 flags
&= ~bfd_flags_to_clear
;
1250 flags
&= bfd_applicable_file_flags (obfd
);
1252 if (!bfd_set_start_address (obfd
, start
)
1253 || !bfd_set_file_flags (obfd
, flags
))
1255 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1260 /* Copy architecture of input file to output file. */
1261 iarch
= bfd_get_arch (ibfd
);
1262 imach
= bfd_get_mach (ibfd
);
1263 if (!bfd_set_arch_mach (obfd
, iarch
, imach
)
1264 && (ibfd
->target_defaulted
1265 || bfd_get_arch (ibfd
) != bfd_get_arch (obfd
)))
1267 if (bfd_get_arch (ibfd
) == bfd_arch_unknown
)
1268 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1269 bfd_get_archive_filename (ibfd
));
1271 non_fatal (_("Warning: Output file cannot represent architecture `%s'"),
1272 bfd_printable_arch_mach (bfd_get_arch (ibfd
),
1273 bfd_get_mach (ibfd
)));
1277 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
1279 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1289 if (osympp
!= isympp
)
1295 /* BFD mandates that all output sections be created and sizes set before
1296 any output is done. Thus, we traverse all sections multiple times. */
1297 bfd_map_over_sections (ibfd
, setup_section
, obfd
);
1299 setup_bfd_headers (ibfd
, obfd
);
1301 if (add_sections
!= NULL
)
1303 struct section_add
*padd
;
1304 struct section_list
*pset
;
1306 for (padd
= add_sections
; padd
!= NULL
; padd
= padd
->next
)
1310 pset
= find_section_list (padd
->name
, FALSE
);
1314 flags
= SEC_HAS_CONTENTS
| SEC_READONLY
| SEC_DATA
;
1315 if (pset
!= NULL
&& pset
->set_flags
)
1316 flags
= pset
->flags
| SEC_HAS_CONTENTS
;
1318 padd
->section
= bfd_make_section_with_flags (obfd
, padd
->name
, flags
);
1319 if (padd
->section
== NULL
)
1321 non_fatal (_("can't create section `%s': %s"),
1322 padd
->name
, bfd_errmsg (bfd_get_error ()));
1326 if (! bfd_set_section_size (obfd
, padd
->section
, padd
->size
))
1328 bfd_nonfatal (bfd_get_filename (obfd
));
1334 if (pset
->change_vma
!= CHANGE_IGNORE
)
1335 if (! bfd_set_section_vma (obfd
, padd
->section
,
1338 bfd_nonfatal (bfd_get_filename (obfd
));
1342 if (pset
->change_lma
!= CHANGE_IGNORE
)
1344 padd
->section
->lma
= pset
->lma_val
;
1346 if (! bfd_set_section_alignment
1347 (obfd
, padd
->section
,
1348 bfd_section_alignment (obfd
, padd
->section
)))
1350 bfd_nonfatal (bfd_get_filename (obfd
));
1358 if (gnu_debuglink_filename
!= NULL
)
1360 gnu_debuglink_section
= bfd_create_gnu_debuglink_section
1361 (obfd
, gnu_debuglink_filename
);
1363 if (gnu_debuglink_section
== NULL
)
1365 bfd_nonfatal (gnu_debuglink_filename
);
1370 if (bfd_count_sections (obfd
) == 0)
1372 non_fatal (_("there are no sections to be copied!"));
1376 if (gap_fill_set
|| pad_to_set
)
1381 /* We must fill in gaps between the sections and/or we must pad
1382 the last section to a specified address. We do this by
1383 grabbing a list of the sections, sorting them by VMA, and
1384 increasing the section sizes as required to fill the gaps.
1385 We write out the gap contents below. */
1387 c
= bfd_count_sections (obfd
);
1388 osections
= xmalloc (c
* sizeof (asection
*));
1390 bfd_map_over_sections (obfd
, get_sections
, &set
);
1392 qsort (osections
, c
, sizeof (asection
*), compare_section_lma
);
1394 gaps
= xmalloc (c
* sizeof (bfd_size_type
));
1395 memset (gaps
, 0, c
* sizeof (bfd_size_type
));
1399 for (i
= 0; i
< c
- 1; i
++)
1403 bfd_vma gap_start
, gap_stop
;
1405 flags
= bfd_get_section_flags (obfd
, osections
[i
]);
1406 if ((flags
& SEC_HAS_CONTENTS
) == 0
1407 || (flags
& SEC_LOAD
) == 0)
1410 size
= bfd_section_size (obfd
, osections
[i
]);
1411 gap_start
= bfd_section_lma (obfd
, osections
[i
]) + size
;
1412 gap_stop
= bfd_section_lma (obfd
, osections
[i
+ 1]);
1413 if (gap_start
< gap_stop
)
1415 if (! bfd_set_section_size (obfd
, osections
[i
],
1416 size
+ (gap_stop
- gap_start
)))
1418 non_fatal (_("Can't fill gap after %s: %s"),
1419 bfd_get_section_name (obfd
, osections
[i
]),
1420 bfd_errmsg (bfd_get_error ()));
1424 gaps
[i
] = gap_stop
- gap_start
;
1425 if (max_gap
< gap_stop
- gap_start
)
1426 max_gap
= gap_stop
- gap_start
;
1436 lma
= bfd_section_lma (obfd
, osections
[c
- 1]);
1437 size
= bfd_section_size (obfd
, osections
[c
- 1]);
1438 if (lma
+ size
< pad_to
)
1440 if (! bfd_set_section_size (obfd
, osections
[c
- 1],
1443 non_fatal (_("Can't add padding to %s: %s"),
1444 bfd_get_section_name (obfd
, osections
[c
- 1]),
1445 bfd_errmsg (bfd_get_error ()));
1450 gaps
[c
- 1] = pad_to
- (lma
+ size
);
1451 if (max_gap
< pad_to
- (lma
+ size
))
1452 max_gap
= pad_to
- (lma
+ size
);
1458 /* Symbol filtering must happen after the output sections
1459 have been created, but before their contents are set. */
1461 symsize
= bfd_get_symtab_upper_bound (ibfd
);
1464 bfd_nonfatal (bfd_get_archive_filename (ibfd
));
1468 osympp
= isympp
= xmalloc (symsize
);
1469 symcount
= bfd_canonicalize_symtab (ibfd
, isympp
);
1472 bfd_nonfatal (bfd_get_filename (ibfd
));
1476 if (convert_debugging
)
1477 dhandle
= read_debugging_info (ibfd
, isympp
, symcount
);
1479 if (strip_symbols
== STRIP_DEBUG
1480 || strip_symbols
== STRIP_ALL
1481 || strip_symbols
== STRIP_UNNEEDED
1482 || strip_symbols
== STRIP_NONDEBUG
1483 || discard_locals
!= LOCALS_UNDEF
1484 || strip_specific_list
!= NULL
1485 || keep_specific_list
!= NULL
1486 || localize_specific_list
!= NULL
1487 || globalize_specific_list
!= NULL
1488 || keepglobal_specific_list
!= NULL
1489 || weaken_specific_list
!= NULL
1490 || prefix_symbols_string
1493 || convert_debugging
1494 || change_leading_char
1495 || remove_leading_char
1496 || redefine_sym_list
1499 /* Mark symbols used in output relocations so that they
1500 are kept, even if they are local labels or static symbols.
1502 Note we iterate over the input sections examining their
1503 relocations since the relocations for the output sections
1504 haven't been set yet. mark_symbols_used_in_relocations will
1505 ignore input sections which have no corresponding output
1507 if (strip_symbols
!= STRIP_ALL
)
1508 bfd_map_over_sections (ibfd
,
1509 mark_symbols_used_in_relocations
,
1511 osympp
= xmalloc ((symcount
+ 1) * sizeof (asymbol
*));
1512 symcount
= filter_symbols (ibfd
, obfd
, osympp
, isympp
, symcount
);
1515 if (convert_debugging
&& dhandle
!= NULL
)
1517 if (! write_debugging_info (obfd
, dhandle
, &symcount
, &osympp
))
1524 bfd_set_symtab (obfd
, osympp
, symcount
);
1526 /* This has to happen after the symbol table has been set. */
1527 bfd_map_over_sections (ibfd
, copy_section
, obfd
);
1529 if (add_sections
!= NULL
)
1531 struct section_add
*padd
;
1533 for (padd
= add_sections
; padd
!= NULL
; padd
= padd
->next
)
1535 if (! bfd_set_section_contents (obfd
, padd
->section
, padd
->contents
,
1538 bfd_nonfatal (bfd_get_filename (obfd
));
1544 if (gnu_debuglink_filename
!= NULL
)
1546 if (! bfd_fill_in_gnu_debuglink_section
1547 (obfd
, gnu_debuglink_section
, gnu_debuglink_filename
))
1549 bfd_nonfatal (gnu_debuglink_filename
);
1554 if (gap_fill_set
|| pad_to_set
)
1559 /* Fill in the gaps. */
1562 buf
= xmalloc (max_gap
);
1563 memset (buf
, gap_fill
, max_gap
);
1565 c
= bfd_count_sections (obfd
);
1566 for (i
= 0; i
< c
; i
++)
1574 off
= bfd_section_size (obfd
, osections
[i
]) - left
;
1585 if (! bfd_set_section_contents (obfd
, osections
[i
], buf
,
1588 bfd_nonfatal (bfd_get_filename (obfd
));
1599 /* Allow the BFD backend to copy any private data it understands
1600 from the input BFD to the output BFD. This is done last to
1601 permit the routine to look at the filtered symbol table, which is
1602 important for the ECOFF code at least. */
1603 if (bfd_get_flavour (ibfd
) == bfd_target_elf_flavour
1604 && strip_symbols
== STRIP_NONDEBUG
)
1605 /* Do not copy the private data when creating an ELF format
1606 debug info file. We do not want the program headers. */
1608 else if (! bfd_copy_private_bfd_data (ibfd
, obfd
))
1610 non_fatal (_("%s: error copying private BFD data: %s"),
1611 bfd_get_filename (obfd
),
1612 bfd_errmsg (bfd_get_error ()));
1616 /* Switch to the alternate machine code. We have to do this at the
1617 very end, because we only initialize the header when we create
1618 the first section. */
1619 if (use_alt_mach_code
!= 0
1620 && ! bfd_alt_mach_code (obfd
, use_alt_mach_code
))
1621 non_fatal (_("unknown alternate machine code, ignored"));
1627 #if defined (_WIN32) && !defined (__CYGWIN32__)
1628 #define MKDIR(DIR, MODE) mkdir (DIR)
1630 #define MKDIR(DIR, MODE) mkdir (DIR, MODE)
1633 /* Read each archive element in turn from IBFD, copy the
1634 contents to temp file, and keep the temp file handle. */
1637 copy_archive (bfd
*ibfd
, bfd
*obfd
, const char *output_target
)
1641 struct name_list
*next
;
1645 bfd
**ptr
= &obfd
->archive_head
;
1647 char *dir
= make_tempname (bfd_get_filename (obfd
));
1649 /* Make a temp directory to hold the contents. */
1650 if (MKDIR (dir
, 0700) != 0)
1651 fatal (_("cannot mkdir %s for archive copying (error: %s)"),
1652 dir
, strerror (errno
));
1654 obfd
->has_armap
= ibfd
->has_armap
;
1658 this_element
= bfd_openr_next_archived_file (ibfd
, NULL
);
1660 if (!bfd_set_format (obfd
, bfd_get_format (ibfd
)))
1661 RETURN_NONFATAL (bfd_get_filename (obfd
));
1663 while (!status
&& this_element
!= NULL
)
1669 int stat_status
= 0;
1670 bfd_boolean
delete = TRUE
;
1672 /* Create an output file for this member. */
1673 output_name
= concat (dir
, "/",
1674 bfd_get_filename (this_element
), (char *) 0);
1676 /* If the file already exists, make another temp dir. */
1677 if (stat (output_name
, &buf
) >= 0)
1679 output_name
= make_tempname (output_name
);
1680 if (MKDIR (output_name
, 0700) != 0)
1681 fatal (_("cannot mkdir %s for archive copying (error: %s)"),
1682 output_name
, strerror (errno
));
1684 l
= xmalloc (sizeof (struct name_list
));
1685 l
->name
= output_name
;
1689 output_name
= concat (output_name
, "/",
1690 bfd_get_filename (this_element
), (char *) 0);
1693 output_bfd
= bfd_openw (output_name
, output_target
);
1696 stat_status
= bfd_stat_arch_elt (this_element
, &buf
);
1698 if (stat_status
!= 0)
1699 non_fatal (_("internal stat error on %s"),
1700 bfd_get_filename (this_element
));
1703 l
= xmalloc (sizeof (struct name_list
));
1704 l
->name
= output_name
;
1709 if (output_bfd
== NULL
)
1710 RETURN_NONFATAL (output_name
);
1712 if (bfd_check_format (this_element
, bfd_object
))
1714 delete = ! copy_object (this_element
, output_bfd
);
1717 || bfd_get_arch (this_element
) != bfd_arch_unknown
)
1719 if (!bfd_close (output_bfd
))
1721 bfd_nonfatal (bfd_get_filename (output_bfd
));
1722 /* Error in new object file. Don't change archive. */
1727 goto copy_unknown_element
;
1731 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1732 bfd_get_archive_filename (this_element
));
1734 copy_unknown_element
:
1735 delete = !copy_unknown_object (this_element
, output_bfd
);
1736 if (!bfd_close_all_done (output_bfd
))
1738 bfd_nonfatal (bfd_get_filename (output_bfd
));
1739 /* Error in new object file. Don't change archive. */
1746 unlink (output_name
);
1751 if (preserve_dates
&& stat_status
== 0)
1752 set_times (output_name
, &buf
);
1754 /* Open the newly output file and attach to our list. */
1755 output_bfd
= bfd_openr (output_name
, output_target
);
1757 l
->obfd
= output_bfd
;
1760 ptr
= &output_bfd
->next
;
1762 last_element
= this_element
;
1764 this_element
= bfd_openr_next_archived_file (ibfd
, last_element
);
1766 bfd_close (last_element
);
1771 if (!bfd_close (obfd
))
1772 RETURN_NONFATAL (bfd_get_filename (obfd
));
1774 if (!bfd_close (ibfd
))
1775 RETURN_NONFATAL (bfd_get_filename (ibfd
));
1777 /* Delete all the files that we opened. */
1778 for (l
= list
; l
!= NULL
; l
= l
->next
)
1780 if (l
->obfd
== NULL
)
1784 bfd_close (l
->obfd
);
1791 /* The top-level control. */
1794 copy_file (const char *input_filename
, const char *output_filename
,
1795 const char *input_target
, const char *output_target
)
1798 char **obj_matching
;
1799 char **core_matching
;
1801 if (get_file_size (input_filename
) < 1)
1803 non_fatal (_("error: the input file '%s' is empty"), input_filename
);
1808 /* To allow us to do "strip *" without dying on the first
1809 non-object file, failures are nonfatal. */
1810 ibfd
= bfd_openr (input_filename
, input_target
);
1812 RETURN_NONFATAL (input_filename
);
1814 if (bfd_check_format (ibfd
, bfd_archive
))
1818 /* bfd_get_target does not return the correct value until
1819 bfd_check_format succeeds. */
1820 if (output_target
== NULL
)
1821 output_target
= bfd_get_target (ibfd
);
1823 obfd
= bfd_openw (output_filename
, output_target
);
1825 RETURN_NONFATAL (output_filename
);
1827 copy_archive (ibfd
, obfd
, output_target
);
1829 else if (bfd_check_format_matches (ibfd
, bfd_object
, &obj_matching
))
1834 /* bfd_get_target does not return the correct value until
1835 bfd_check_format succeeds. */
1836 if (output_target
== NULL
)
1837 output_target
= bfd_get_target (ibfd
);
1839 obfd
= bfd_openw (output_filename
, output_target
);
1841 RETURN_NONFATAL (output_filename
);
1843 if (! copy_object (ibfd
, obfd
))
1846 if (!bfd_close (obfd
))
1847 RETURN_NONFATAL (output_filename
);
1849 if (!bfd_close (ibfd
))
1850 RETURN_NONFATAL (input_filename
);
1855 bfd_error_type obj_error
= bfd_get_error ();
1856 bfd_error_type core_error
;
1858 if (bfd_check_format_matches (ibfd
, bfd_core
, &core_matching
))
1860 /* This probably can't happen.. */
1861 if (obj_error
== bfd_error_file_ambiguously_recognized
)
1862 free (obj_matching
);
1866 core_error
= bfd_get_error ();
1867 /* Report the object error in preference to the core error. */
1868 if (obj_error
!= core_error
)
1869 bfd_set_error (obj_error
);
1871 bfd_nonfatal (input_filename
);
1873 if (obj_error
== bfd_error_file_ambiguously_recognized
)
1875 list_matching_formats (obj_matching
);
1876 free (obj_matching
);
1878 if (core_error
== bfd_error_file_ambiguously_recognized
)
1880 list_matching_formats (core_matching
);
1881 free (core_matching
);
1888 /* Add a name to the section renaming list. */
1891 add_section_rename (const char * old_name
, const char * new_name
,
1894 section_rename
* rename
;
1896 /* Check for conflicts first. */
1897 for (rename
= section_rename_list
; rename
!= NULL
; rename
= rename
->next
)
1898 if (strcmp (rename
->old_name
, old_name
) == 0)
1900 /* Silently ignore duplicate definitions. */
1901 if (strcmp (rename
->new_name
, new_name
) == 0
1902 && rename
->flags
== flags
)
1905 fatal (_("Multiple renames of section %s"), old_name
);
1908 rename
= xmalloc (sizeof (* rename
));
1910 rename
->old_name
= old_name
;
1911 rename
->new_name
= new_name
;
1912 rename
->flags
= flags
;
1913 rename
->next
= section_rename_list
;
1915 section_rename_list
= rename
;
1918 /* Check the section rename list for a new name of the input section
1919 ISECTION. Return the new name if one is found.
1920 Also set RETURNED_FLAGS to the flags to be used for this section. */
1923 find_section_rename (bfd
* ibfd ATTRIBUTE_UNUSED
, sec_ptr isection
,
1924 flagword
* returned_flags
)
1926 const char * old_name
= bfd_section_name (ibfd
, isection
);
1927 section_rename
* rename
;
1929 /* Default to using the flags of the input section. */
1930 * returned_flags
= bfd_get_section_flags (ibfd
, isection
);
1932 for (rename
= section_rename_list
; rename
!= NULL
; rename
= rename
->next
)
1933 if (strcmp (rename
->old_name
, old_name
) == 0)
1935 if (rename
->flags
!= (flagword
) -1)
1936 * returned_flags
= rename
->flags
;
1938 return rename
->new_name
;
1944 /* Once each of the sections is copied, we may still need to do some
1945 finalization work for private section headers. Do that here. */
1948 setup_bfd_headers (bfd
*ibfd
, bfd
*obfd
)
1952 /* Allow the BFD backend to copy any private data it understands
1953 from the input section to the output section. */
1954 if (! bfd_copy_private_header_data (ibfd
, obfd
))
1956 err
= _("private header data");
1960 /* All went well. */
1964 non_fatal (_("%s: error in %s: %s"),
1965 bfd_get_filename (ibfd
),
1966 err
, bfd_errmsg (bfd_get_error ()));
1970 /* Create a section in OBFD with the same
1971 name and attributes as ISECTION in IBFD. */
1974 setup_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
1976 bfd
*obfd
= obfdarg
;
1977 struct section_list
*p
;
1985 char *prefix
= NULL
;
1987 if (is_strip_section (ibfd
, isection
))
1990 p
= find_section_list (bfd_section_name (ibfd
, isection
), FALSE
);
1994 /* Get the, possibly new, name of the output section. */
1995 name
= find_section_rename (ibfd
, isection
, & flags
);
1997 /* Prefix sections. */
1998 if ((prefix_alloc_sections_string
)
1999 && (bfd_get_section_flags (ibfd
, isection
) & SEC_ALLOC
))
2000 prefix
= prefix_alloc_sections_string
;
2001 else if (prefix_sections_string
)
2002 prefix
= prefix_sections_string
;
2008 n
= xmalloc (strlen (prefix
) + strlen (name
) + 1);
2014 if (p
!= NULL
&& p
->set_flags
)
2015 flags
= p
->flags
| (flags
& (SEC_HAS_CONTENTS
| SEC_RELOC
));
2016 else if (strip_symbols
== STRIP_NONDEBUG
&& (flags
& SEC_ALLOC
) != 0)
2017 flags
&= ~(SEC_HAS_CONTENTS
| SEC_LOAD
);
2019 osection
= bfd_make_section_anyway_with_flags (obfd
, name
, flags
);
2021 if (osection
== NULL
)
2027 if (strip_symbols
== STRIP_NONDEBUG
2028 && obfd
->xvec
->flavour
== bfd_target_elf_flavour
2029 && (flags
& SEC_ALLOC
) != 0
2030 && (p
== NULL
|| !p
->set_flags
))
2031 elf_section_type (osection
) = SHT_NOBITS
;
2033 size
= bfd_section_size (ibfd
, isection
);
2035 size
= (size
+ interleave
- 1) / interleave
;
2036 if (! bfd_set_section_size (obfd
, osection
, size
))
2042 vma
= bfd_section_vma (ibfd
, isection
);
2043 if (p
!= NULL
&& p
->change_vma
== CHANGE_MODIFY
)
2045 else if (p
!= NULL
&& p
->change_vma
== CHANGE_SET
)
2048 vma
+= change_section_address
;
2050 if (! bfd_set_section_vma (obfd
, osection
, vma
))
2056 lma
= isection
->lma
;
2057 if ((p
!= NULL
) && p
->change_lma
!= CHANGE_IGNORE
)
2059 if (p
->change_lma
== CHANGE_MODIFY
)
2061 else if (p
->change_lma
== CHANGE_SET
)
2067 lma
+= change_section_address
;
2069 osection
->lma
= lma
;
2071 /* FIXME: This is probably not enough. If we change the LMA we
2072 may have to recompute the header for the file as well. */
2073 if (!bfd_set_section_alignment (obfd
,
2075 bfd_section_alignment (ibfd
, isection
)))
2077 err
= _("alignment");
2081 /* Copy merge entity size. */
2082 osection
->entsize
= isection
->entsize
;
2084 /* This used to be mangle_section; we do here to avoid using
2085 bfd_get_section_by_name since some formats allow multiple
2086 sections with the same name. */
2087 isection
->output_section
= osection
;
2088 isection
->output_offset
= 0;
2090 /* Allow the BFD backend to copy any private data it understands
2091 from the input section to the output section. */
2092 if (bfd_get_flavour (ibfd
) == bfd_target_elf_flavour
2093 && strip_symbols
== STRIP_NONDEBUG
)
2094 /* Do not copy the private data when creating an ELF format
2095 debug info file. We do not want the program headers. */
2097 else if (!bfd_copy_private_section_data (ibfd
, isection
, obfd
, osection
))
2099 err
= _("private data");
2103 /* All went well. */
2107 non_fatal (_("%s: section `%s': error in %s: %s"),
2108 bfd_get_filename (ibfd
),
2109 bfd_section_name (ibfd
, isection
),
2110 err
, bfd_errmsg (bfd_get_error ()));
2114 /* Copy the data of input section ISECTION of IBFD
2115 to an output section with the same name in OBFD.
2116 If stripping then don't copy any relocation info. */
2119 copy_section (bfd
*ibfd
, sec_ptr isection
, void *obfdarg
)
2121 bfd
*obfd
= obfdarg
;
2122 struct section_list
*p
;
2130 /* If we have already failed earlier on,
2131 do not keep on generating complaints now. */
2135 if (is_strip_section (ibfd
, isection
))
2138 flags
= bfd_get_section_flags (ibfd
, isection
);
2139 if ((flags
& SEC_GROUP
) != 0)
2142 osection
= isection
->output_section
;
2143 size
= bfd_get_section_size (isection
);
2145 if (size
== 0 || osection
== 0)
2148 p
= find_section_list (bfd_get_section_name (ibfd
, isection
), FALSE
);
2150 /* Core files do not need to be relocated. */
2151 if (bfd_get_format (obfd
) == bfd_core
)
2155 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2159 /* Do not complain if the target does not support relocations. */
2160 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2163 RETURN_NONFATAL (bfd_get_filename (ibfd
));
2168 bfd_set_reloc (obfd
, osection
, NULL
, 0);
2171 relpp
= xmalloc (relsize
);
2172 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, isympp
);
2174 RETURN_NONFATAL (bfd_get_filename (ibfd
));
2176 if (strip_symbols
== STRIP_ALL
)
2178 /* Remove relocations which are not in
2179 keep_strip_specific_list. */
2180 arelent
**temp_relpp
;
2181 long temp_relcount
= 0;
2184 temp_relpp
= xmalloc (relsize
);
2185 for (i
= 0; i
< relcount
; i
++)
2186 if (is_specified_symbol (bfd_asymbol_name (*relpp
[i
]->sym_ptr_ptr
),
2187 keep_specific_list
))
2188 temp_relpp
[temp_relcount
++] = relpp
[i
];
2189 relcount
= temp_relcount
;
2194 bfd_set_reloc (obfd
, osection
, relcount
== 0 ? NULL
: relpp
, relcount
);
2199 if (bfd_get_section_flags (ibfd
, isection
) & SEC_HAS_CONTENTS
2200 && bfd_get_section_flags (obfd
, osection
) & SEC_HAS_CONTENTS
)
2202 void *memhunk
= xmalloc (size
);
2204 if (!bfd_get_section_contents (ibfd
, isection
, memhunk
, 0, size
))
2205 RETURN_NONFATAL (bfd_get_filename (ibfd
));
2209 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2210 char *from
= (char *) memhunk
+ copy_byte
;
2212 char *end
= (char *) memhunk
+ size
;
2214 for (; from
< end
; from
+= interleave
)
2217 size
= (size
+ interleave
- 1 - copy_byte
) / interleave
;
2218 osection
->lma
/= interleave
;
2221 if (!bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2222 RETURN_NONFATAL (bfd_get_filename (obfd
));
2226 else if (p
!= NULL
&& p
->set_flags
&& (p
->flags
& SEC_HAS_CONTENTS
) != 0)
2228 void *memhunk
= xmalloc (size
);
2230 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
2231 flag--they can just remove the section entirely and add it
2232 back again. However, we do permit them to turn on the
2233 SEC_HAS_CONTENTS flag, and take it to mean that the section
2234 contents should be zeroed out. */
2236 memset (memhunk
, 0, size
);
2237 if (! bfd_set_section_contents (obfd
, osection
, memhunk
, 0, size
))
2238 RETURN_NONFATAL (bfd_get_filename (obfd
));
2243 /* Get all the sections. This is used when --gap-fill or --pad-to is
2247 get_sections (bfd
*obfd ATTRIBUTE_UNUSED
, asection
*osection
, void *secppparg
)
2249 asection
***secppp
= secppparg
;
2251 **secppp
= osection
;
2255 /* Sort sections by VMA. This is called via qsort, and is used when
2256 --gap-fill or --pad-to is used. We force non loadable or empty
2257 sections to the front, where they are easier to ignore. */
2260 compare_section_lma (const void *arg1
, const void *arg2
)
2262 const asection
*const *sec1
= arg1
;
2263 const asection
*const *sec2
= arg2
;
2264 flagword flags1
, flags2
;
2266 /* Sort non loadable sections to the front. */
2267 flags1
= (*sec1
)->flags
;
2268 flags2
= (*sec2
)->flags
;
2269 if ((flags1
& SEC_HAS_CONTENTS
) == 0
2270 || (flags1
& SEC_LOAD
) == 0)
2272 if ((flags2
& SEC_HAS_CONTENTS
) != 0
2273 && (flags2
& SEC_LOAD
) != 0)
2278 if ((flags2
& SEC_HAS_CONTENTS
) == 0
2279 || (flags2
& SEC_LOAD
) == 0)
2283 /* Sort sections by LMA. */
2284 if ((*sec1
)->lma
> (*sec2
)->lma
)
2286 else if ((*sec1
)->lma
< (*sec2
)->lma
)
2289 /* Sort sections with the same LMA by size. */
2290 if (bfd_get_section_size (*sec1
) > bfd_get_section_size (*sec2
))
2292 else if (bfd_get_section_size (*sec1
) < bfd_get_section_size (*sec2
))
2298 /* Mark all the symbols which will be used in output relocations with
2299 the BSF_KEEP flag so that those symbols will not be stripped.
2301 Ignore relocations which will not appear in the output file. */
2304 mark_symbols_used_in_relocations (bfd
*ibfd
, sec_ptr isection
, void *symbolsarg
)
2306 asymbol
**symbols
= symbolsarg
;
2311 /* Ignore an input section with no corresponding output section. */
2312 if (isection
->output_section
== NULL
)
2315 relsize
= bfd_get_reloc_upper_bound (ibfd
, isection
);
2318 /* Do not complain if the target does not support relocations. */
2319 if (relsize
== -1 && bfd_get_error () == bfd_error_invalid_operation
)
2321 bfd_fatal (bfd_get_filename (ibfd
));
2327 relpp
= xmalloc (relsize
);
2328 relcount
= bfd_canonicalize_reloc (ibfd
, isection
, relpp
, symbols
);
2330 bfd_fatal (bfd_get_filename (ibfd
));
2332 /* Examine each symbol used in a relocation. If it's not one of the
2333 special bfd section symbols, then mark it with BSF_KEEP. */
2334 for (i
= 0; i
< relcount
; i
++)
2336 if (*relpp
[i
]->sym_ptr_ptr
!= bfd_com_section_ptr
->symbol
2337 && *relpp
[i
]->sym_ptr_ptr
!= bfd_abs_section_ptr
->symbol
2338 && *relpp
[i
]->sym_ptr_ptr
!= bfd_und_section_ptr
->symbol
)
2339 (*relpp
[i
]->sym_ptr_ptr
)->flags
|= BSF_KEEP
;
2346 /* Write out debugging information. */
2349 write_debugging_info (bfd
*obfd
, void *dhandle
,
2350 long *symcountp ATTRIBUTE_UNUSED
,
2351 asymbol
***symppp ATTRIBUTE_UNUSED
)
2353 if (bfd_get_flavour (obfd
) == bfd_target_ieee_flavour
)
2354 return write_ieee_debugging_info (obfd
, dhandle
);
2356 if (bfd_get_flavour (obfd
) == bfd_target_coff_flavour
2357 || bfd_get_flavour (obfd
) == bfd_target_elf_flavour
)
2359 bfd_byte
*syms
, *strings
;
2360 bfd_size_type symsize
, stringsize
;
2361 asection
*stabsec
, *stabstrsec
;
2364 if (! write_stabs_in_sections_debugging_info (obfd
, dhandle
, &syms
,
2369 flags
= SEC_HAS_CONTENTS
| SEC_READONLY
| SEC_DEBUGGING
;
2370 stabsec
= bfd_make_section_with_flags (obfd
, ".stab", flags
);
2371 stabstrsec
= bfd_make_section_with_flags (obfd
, ".stabstr", flags
);
2373 || stabstrsec
== NULL
2374 || ! bfd_set_section_size (obfd
, stabsec
, symsize
)
2375 || ! bfd_set_section_size (obfd
, stabstrsec
, stringsize
)
2376 || ! bfd_set_section_alignment (obfd
, stabsec
, 2)
2377 || ! bfd_set_section_alignment (obfd
, stabstrsec
, 0))
2379 non_fatal (_("%s: can't create debugging section: %s"),
2380 bfd_get_filename (obfd
),
2381 bfd_errmsg (bfd_get_error ()));
2385 /* We can get away with setting the section contents now because
2386 the next thing the caller is going to do is copy over the
2387 real sections. We may someday have to split the contents
2388 setting out of this function. */
2389 if (! bfd_set_section_contents (obfd
, stabsec
, syms
, 0, symsize
)
2390 || ! bfd_set_section_contents (obfd
, stabstrsec
, strings
, 0,
2393 non_fatal (_("%s: can't set debugging section contents: %s"),
2394 bfd_get_filename (obfd
),
2395 bfd_errmsg (bfd_get_error ()));
2402 non_fatal (_("%s: don't know how to write debugging information for %s"),
2403 bfd_get_filename (obfd
), bfd_get_target (obfd
));
2408 strip_main (int argc
, char *argv
[])
2410 char *input_target
= NULL
;
2411 char *output_target
= NULL
;
2412 bfd_boolean show_version
= FALSE
;
2413 bfd_boolean formats_info
= FALSE
;
2416 struct section_list
*p
;
2417 char *output_file
= NULL
;
2419 while ((c
= getopt_long (argc
, argv
, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
2420 strip_options
, (int *) 0)) != EOF
)
2425 input_target
= optarg
;
2428 output_target
= optarg
;
2431 input_target
= output_target
= optarg
;
2434 p
= find_section_list (optarg
, TRUE
);
2436 sections_removed
= TRUE
;
2439 strip_symbols
= STRIP_ALL
;
2443 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
2444 strip_symbols
= STRIP_DEBUG
;
2446 case OPTION_STRIP_UNNEEDED
:
2447 strip_symbols
= STRIP_UNNEEDED
;
2450 add_specific_symbol (optarg
, &keep_specific_list
);
2453 add_specific_symbol (optarg
, &strip_specific_list
);
2456 output_file
= optarg
;
2459 preserve_dates
= TRUE
;
2462 discard_locals
= LOCALS_ALL
;
2465 discard_locals
= LOCALS_START_L
;
2471 show_version
= TRUE
;
2473 case OPTION_FORMATS_INFO
:
2474 formats_info
= TRUE
;
2476 case OPTION_ONLY_KEEP_DEBUG
:
2477 strip_symbols
= STRIP_NONDEBUG
;
2479 case OPTION_KEEP_FILE_SYMBOLS
:
2480 keep_file_symbols
= 1;
2483 /* We've been given a long option. */
2490 strip_usage (stdout
, 0);
2492 strip_usage (stderr
, 1);
2503 print_version ("strip");
2505 /* Default is to strip all symbols. */
2506 if (strip_symbols
== STRIP_UNDEF
2507 && discard_locals
== LOCALS_UNDEF
2508 && strip_specific_list
== NULL
)
2509 strip_symbols
= STRIP_ALL
;
2511 if (output_target
== NULL
)
2512 output_target
= input_target
;
2516 || (output_file
!= NULL
&& (i
+ 1) < argc
))
2517 strip_usage (stderr
, 1);
2519 for (; i
< argc
; i
++)
2521 int hold_status
= status
;
2522 struct stat statbuf
;
2525 if (get_file_size (argv
[i
]) < 1)
2529 /* No need to check the return value of stat().
2530 It has already been checked in get_file_size(). */
2531 stat (argv
[i
], &statbuf
);
2533 if (output_file
!= NULL
)
2534 tmpname
= output_file
;
2536 tmpname
= make_tempname (argv
[i
]);
2539 copy_file (argv
[i
], tmpname
, input_target
, output_target
);
2543 set_times (tmpname
, &statbuf
);
2544 if (output_file
== NULL
)
2545 smart_rename (tmpname
, argv
[i
], preserve_dates
);
2546 status
= hold_status
;
2549 unlink_if_ordinary (tmpname
);
2550 if (output_file
== NULL
)
2558 copy_main (int argc
, char *argv
[])
2560 char * binary_architecture
= NULL
;
2561 char *input_filename
= NULL
;
2562 char *output_filename
= NULL
;
2563 char *input_target
= NULL
;
2564 char *output_target
= NULL
;
2565 bfd_boolean show_version
= FALSE
;
2566 bfd_boolean change_warn
= TRUE
;
2567 bfd_boolean formats_info
= FALSE
;
2569 struct section_list
*p
;
2570 struct stat statbuf
;
2572 while ((c
= getopt_long (argc
, argv
, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
2573 copy_options
, (int *) 0)) != EOF
)
2578 copy_byte
= atoi (optarg
);
2580 fatal (_("byte number must be non-negative"));
2584 binary_architecture
= optarg
;
2588 interleave
= atoi (optarg
);
2590 fatal (_("interleave must be positive"));
2594 case 's': /* "source" - 'I' is preferred */
2595 input_target
= optarg
;
2599 case 'd': /* "destination" - 'O' is preferred */
2600 output_target
= optarg
;
2604 input_target
= output_target
= optarg
;
2608 p
= find_section_list (optarg
, TRUE
);
2610 fatal (_("%s both copied and removed"), optarg
);
2612 sections_copied
= TRUE
;
2616 p
= find_section_list (optarg
, TRUE
);
2618 fatal (_("%s both copied and removed"), optarg
);
2620 sections_removed
= TRUE
;
2624 strip_symbols
= STRIP_ALL
;
2628 strip_symbols
= STRIP_DEBUG
;
2631 case OPTION_STRIP_UNNEEDED
:
2632 strip_symbols
= STRIP_UNNEEDED
;
2635 case OPTION_ONLY_KEEP_DEBUG
:
2636 strip_symbols
= STRIP_NONDEBUG
;
2639 case OPTION_KEEP_FILE_SYMBOLS
:
2640 keep_file_symbols
= 1;
2643 case OPTION_ADD_GNU_DEBUGLINK
:
2644 gnu_debuglink_filename
= optarg
;
2648 add_specific_symbol (optarg
, &keep_specific_list
);
2652 add_specific_symbol (optarg
, &strip_specific_list
);
2655 case OPTION_STRIP_UNNEEDED_SYMBOL
:
2656 add_specific_symbol (optarg
, &strip_unneeded_list
);
2660 add_specific_symbol (optarg
, &localize_specific_list
);
2663 case OPTION_GLOBALIZE_SYMBOL
:
2664 add_specific_symbol (optarg
, &globalize_specific_list
);
2668 add_specific_symbol (optarg
, &keepglobal_specific_list
);
2672 add_specific_symbol (optarg
, &weaken_specific_list
);
2676 preserve_dates
= TRUE
;
2684 discard_locals
= LOCALS_ALL
;
2688 discard_locals
= LOCALS_START_L
;
2696 show_version
= TRUE
;
2699 case OPTION_FORMATS_INFO
:
2700 formats_info
= TRUE
;
2707 case OPTION_ADD_SECTION
:
2711 struct section_add
*pa
;
2716 s
= strchr (optarg
, '=');
2719 fatal (_("bad format for %s"), "--add-section");
2721 size
= get_file_size (s
+ 1);
2725 pa
= xmalloc (sizeof (struct section_add
));
2728 name
= xmalloc (len
+ 1);
2729 strncpy (name
, optarg
, len
);
2733 pa
->filename
= s
+ 1;
2735 pa
->contents
= xmalloc (size
);
2737 f
= fopen (pa
->filename
, FOPEN_RB
);
2740 fatal (_("cannot open: %s: %s"),
2741 pa
->filename
, strerror (errno
));
2743 if (fread (pa
->contents
, 1, pa
->size
, f
) == 0
2745 fatal (_("%s: fread failed"), pa
->filename
);
2749 pa
->next
= add_sections
;
2754 case OPTION_CHANGE_START
:
2755 change_start
= parse_vma (optarg
, "--change-start");
2758 case OPTION_CHANGE_SECTION_ADDRESS
:
2759 case OPTION_CHANGE_SECTION_LMA
:
2760 case OPTION_CHANGE_SECTION_VMA
:
2765 char *option
= NULL
;
2767 enum change_action what
= CHANGE_IGNORE
;
2771 case OPTION_CHANGE_SECTION_ADDRESS
:
2772 option
= "--change-section-address";
2774 case OPTION_CHANGE_SECTION_LMA
:
2775 option
= "--change-section-lma";
2777 case OPTION_CHANGE_SECTION_VMA
:
2778 option
= "--change-section-vma";
2782 s
= strchr (optarg
, '=');
2785 s
= strchr (optarg
, '+');
2788 s
= strchr (optarg
, '-');
2790 fatal (_("bad format for %s"), option
);
2795 name
= xmalloc (len
+ 1);
2796 strncpy (name
, optarg
, len
);
2799 p
= find_section_list (name
, TRUE
);
2801 val
= parse_vma (s
+ 1, option
);
2805 case '=': what
= CHANGE_SET
; break;
2806 case '-': val
= - val
; /* Drop through. */
2807 case '+': what
= CHANGE_MODIFY
; break;
2812 case OPTION_CHANGE_SECTION_ADDRESS
:
2813 p
->change_vma
= what
;
2817 case OPTION_CHANGE_SECTION_LMA
:
2818 p
->change_lma
= what
;
2822 case OPTION_CHANGE_SECTION_VMA
:
2823 p
->change_vma
= what
;
2830 case OPTION_CHANGE_ADDRESSES
:
2831 change_section_address
= parse_vma (optarg
, "--change-addresses");
2832 change_start
= change_section_address
;
2835 case OPTION_CHANGE_WARNINGS
:
2839 case OPTION_CHANGE_LEADING_CHAR
:
2840 change_leading_char
= TRUE
;
2843 case OPTION_DEBUGGING
:
2844 convert_debugging
= TRUE
;
2847 case OPTION_GAP_FILL
:
2849 bfd_vma gap_fill_vma
;
2851 gap_fill_vma
= parse_vma (optarg
, "--gap-fill");
2852 gap_fill
= (bfd_byte
) gap_fill_vma
;
2853 if ((bfd_vma
) gap_fill
!= gap_fill_vma
)
2857 sprintf_vma (buff
, gap_fill_vma
);
2859 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
2862 gap_fill_set
= TRUE
;
2866 case OPTION_NO_CHANGE_WARNINGS
:
2867 change_warn
= FALSE
;
2871 pad_to
= parse_vma (optarg
, "--pad-to");
2875 case OPTION_REMOVE_LEADING_CHAR
:
2876 remove_leading_char
= TRUE
;
2879 case OPTION_REDEFINE_SYM
:
2881 /* Push this redefinition onto redefine_symbol_list. */
2885 const char *nextarg
;
2886 char *source
, *target
;
2888 s
= strchr (optarg
, '=');
2890 fatal (_("bad format for %s"), "--redefine-sym");
2893 source
= xmalloc (len
+ 1);
2894 strncpy (source
, optarg
, len
);
2898 len
= strlen (nextarg
);
2899 target
= xmalloc (len
+ 1);
2900 strcpy (target
, nextarg
);
2902 redefine_list_append ("--redefine-sym", source
, target
);
2909 case OPTION_REDEFINE_SYMS
:
2910 add_redefine_syms_file (optarg
);
2913 case OPTION_SET_SECTION_FLAGS
:
2919 s
= strchr (optarg
, '=');
2921 fatal (_("bad format for %s"), "--set-section-flags");
2924 name
= xmalloc (len
+ 1);
2925 strncpy (name
, optarg
, len
);
2928 p
= find_section_list (name
, TRUE
);
2930 p
->set_flags
= TRUE
;
2931 p
->flags
= parse_flags (s
+ 1);
2935 case OPTION_RENAME_SECTION
:
2938 const char *eq
, *fl
;
2943 eq
= strchr (optarg
, '=');
2945 fatal (_("bad format for %s"), "--rename-section");
2949 fatal (_("bad format for %s"), "--rename-section");
2951 old_name
= xmalloc (len
+ 1);
2952 strncpy (old_name
, optarg
, len
);
2956 fl
= strchr (eq
, ',');
2959 flags
= parse_flags (fl
+ 1);
2969 fatal (_("bad format for %s"), "--rename-section");
2971 new_name
= xmalloc (len
+ 1);
2972 strncpy (new_name
, eq
, len
);
2975 add_section_rename (old_name
, new_name
, flags
);
2979 case OPTION_SET_START
:
2980 set_start
= parse_vma (optarg
, "--set-start");
2981 set_start_set
= TRUE
;
2984 case OPTION_SREC_LEN
:
2985 Chunk
= parse_vma (optarg
, "--srec-len");
2988 case OPTION_SREC_FORCES3
:
2992 case OPTION_STRIP_SYMBOLS
:
2993 add_specific_symbols (optarg
, &strip_specific_list
);
2996 case OPTION_STRIP_UNNEEDED_SYMBOLS
:
2997 add_specific_symbols (optarg
, &strip_unneeded_list
);
3000 case OPTION_KEEP_SYMBOLS
:
3001 add_specific_symbols (optarg
, &keep_specific_list
);
3004 case OPTION_LOCALIZE_SYMBOLS
:
3005 add_specific_symbols (optarg
, &localize_specific_list
);
3008 case OPTION_GLOBALIZE_SYMBOLS
:
3009 add_specific_symbols (optarg
, &globalize_specific_list
);
3012 case OPTION_KEEPGLOBAL_SYMBOLS
:
3013 add_specific_symbols (optarg
, &keepglobal_specific_list
);
3016 case OPTION_WEAKEN_SYMBOLS
:
3017 add_specific_symbols (optarg
, &weaken_specific_list
);
3020 case OPTION_ALT_MACH_CODE
:
3021 use_alt_mach_code
= atoi (optarg
);
3022 if (use_alt_mach_code
<= 0)
3023 fatal (_("alternate machine code index must be positive"));
3026 case OPTION_PREFIX_SYMBOLS
:
3027 prefix_symbols_string
= optarg
;
3030 case OPTION_PREFIX_SECTIONS
:
3031 prefix_sections_string
= optarg
;
3034 case OPTION_PREFIX_ALLOC_SECTIONS
:
3035 prefix_alloc_sections_string
= optarg
;
3038 case OPTION_READONLY_TEXT
:
3039 bfd_flags_to_set
|= WP_TEXT
;
3040 bfd_flags_to_clear
&= ~WP_TEXT
;
3043 case OPTION_WRITABLE_TEXT
:
3044 bfd_flags_to_clear
|= WP_TEXT
;
3045 bfd_flags_to_set
&= ~WP_TEXT
;
3049 bfd_flags_to_set
|= D_PAGED
;
3050 bfd_flags_to_clear
&= ~D_PAGED
;
3054 bfd_flags_to_clear
|= D_PAGED
;
3055 bfd_flags_to_set
&= ~D_PAGED
;
3059 /* We've been given a long option. */
3064 copy_usage (stdout
, 0);
3067 copy_usage (stderr
, 1);
3078 print_version ("objcopy");
3080 if (copy_byte
>= interleave
)
3081 fatal (_("byte number must be less than interleave"));
3083 if (optind
== argc
|| optind
+ 2 < argc
)
3084 copy_usage (stderr
, 1);
3086 input_filename
= argv
[optind
];
3087 if (optind
+ 1 < argc
)
3088 output_filename
= argv
[optind
+ 1];
3090 /* Default is to strip no symbols. */
3091 if (strip_symbols
== STRIP_UNDEF
&& discard_locals
== LOCALS_UNDEF
)
3092 strip_symbols
= STRIP_NONE
;
3094 if (output_target
== NULL
)
3095 output_target
= input_target
;
3097 if (binary_architecture
!= NULL
)
3099 if (input_target
&& strcmp (input_target
, "binary") == 0)
3101 const bfd_arch_info_type
* temp_arch_info
;
3103 temp_arch_info
= bfd_scan_arch (binary_architecture
);
3105 if (temp_arch_info
!= NULL
)
3107 bfd_external_binary_architecture
= temp_arch_info
->arch
;
3108 bfd_external_machine
= temp_arch_info
->mach
;
3111 fatal (_("architecture %s unknown"), binary_architecture
);
3115 non_fatal (_("Warning: input target 'binary' required for binary architecture parameter."));
3116 non_fatal (_(" Argument %s ignored"), binary_architecture
);
3121 if (stat (input_filename
, & statbuf
) < 0)
3122 fatal (_("warning: could not locate '%s'. System error message: %s"),
3123 input_filename
, strerror (errno
));
3125 /* If there is no destination file, or the source and destination files
3126 are the same, then create a temp and rename the result into the input. */
3127 if (output_filename
== NULL
|| strcmp (input_filename
, output_filename
) == 0)
3129 char *tmpname
= make_tempname (input_filename
);
3131 copy_file (input_filename
, tmpname
, input_target
, output_target
);
3135 set_times (tmpname
, &statbuf
);
3136 smart_rename (tmpname
, input_filename
, preserve_dates
);
3143 copy_file (input_filename
, output_filename
, input_target
, output_target
);
3145 if (status
== 0 && preserve_dates
)
3146 set_times (output_filename
, &statbuf
);
3147 else if (status
!= 0)
3148 unlink_if_ordinary (output_filename
);
3153 for (p
= change_sections
; p
!= NULL
; p
= p
->next
)
3157 if (p
->change_vma
!= CHANGE_IGNORE
)
3161 sprintf_vma (buff
, p
->vma_val
);
3163 /* xgettext:c-format */
3164 non_fatal (_("%s %s%c0x%s never used"),
3165 "--change-section-vma",
3167 p
->change_vma
== CHANGE_SET
? '=' : '+',
3171 if (p
->change_lma
!= CHANGE_IGNORE
)
3175 sprintf_vma (buff
, p
->lma_val
);
3177 /* xgettext:c-format */
3178 non_fatal (_("%s %s%c0x%s never used"),
3179 "--change-section-lma",
3181 p
->change_lma
== CHANGE_SET
? '=' : '+',
3192 main (int argc
, char *argv
[])
3194 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3195 setlocale (LC_MESSAGES
, "");
3197 #if defined (HAVE_SETLOCALE)
3198 setlocale (LC_CTYPE
, "");
3200 bindtextdomain (PACKAGE
, LOCALEDIR
);
3201 textdomain (PACKAGE
);
3203 program_name
= argv
[0];
3204 xmalloc_set_program_name (program_name
);
3206 START_PROGRESS (program_name
, 0);
3208 expandargv (&argc
, &argv
);
3210 strip_symbols
= STRIP_UNDEF
;
3211 discard_locals
= LOCALS_UNDEF
;
3214 set_default_bfd_target ();
3218 int i
= strlen (program_name
);
3219 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
3220 /* Drop the .exe suffix, if any. */
3221 if (i
> 4 && FILENAME_CMP (program_name
+ i
- 4, ".exe") == 0)
3224 program_name
[i
] = '\0';
3227 is_strip
= (i
>= 5 && FILENAME_CMP (program_name
+ i
- 5, "strip") == 0);
3231 strip_main (argc
, argv
);
3233 copy_main (argc
, argv
);
3235 END_PROGRESS (program_name
);