projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2007-08-29 H.J. Lu <hongjiu.lu@intel.com>
[deliverable/binutils-gdb.git] / binutils / objcopy.c
CommitLineData
252b5132 1/* objcopy.c -- copy object file from input to output, optionally massaging it.
8c2bc687 2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
92f01d61 3 2001, 2002, 2003, 2004, 2005, 2006, 2007
252b5132
RH		 4 Free Software Foundation, Inc.
5
6 This file is part of GNU Binutils.
7
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
32866df7 10 the Free Software Foundation; either version 3 of the License, or
252b5132
RH		 11 (at your option) any later version.
12
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.
17
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
b43b5d5f
NC		 20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA. */
252b5132 22\f
3db64b00 23#include "sysdep.h"
252b5132
RH		 24#include "bfd.h"
25#include "progress.h"
252b5132
RH		 26#include "getopt.h"
27#include "libiberty.h"
3db64b00 28#include "bucomm.h"
252b5132 29#include "budbg.h"
5af11cab 30#include "filenames.h"
5fe11841 31#include "fnmatch.h"
f0312d39 32#include "elf-bfd.h"
252b5132 33#include <sys/stat.h>
6e2c86ac 34#include "libbfd.h"
252b5132
RH		 35
36/* A list of symbols to explicitly strip out, or to keep. A linked
37 list is good enough for a small number from the command line, but
38 this will slow things down a lot if many symbols are being
0af11b59 39 deleted. */
252b5132
RH		 40
41struct symlist
42{
43 const char *name;
44 struct symlist *next;
45};
46
57938635
AM		 47/* A list to support redefine_sym. */
48struct redefine_node
49{
50 char *source;
51 char *target;
52 struct redefine_node *next;
53};
54
594ef5db
NC		 55typedef struct section_rename
56{
57 const char * old_name;
58 const char * new_name;
59 flagword flags;
60 struct section_rename * next;
61}
62section_rename;
63
64/* List of sections to be renamed. */
84e2f313 65static section_rename *section_rename_list;
594ef5db 66
252b5132
RH		 67#define RETURN_NONFATAL(s) {bfd_nonfatal (s); status = 1; return;}
68
84e2f313
NC		 69static asymbol **isympp = NULL; /* Input symbols. */
70static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
252b5132
RH		 71
72/* If `copy_byte' >= 0, copy only that byte of every `interleave' bytes. */
73static int copy_byte = -1;
74static int interleave = 4;
75
b34976b6
AM		 76static bfd_boolean verbose; /* Print file and target names. */
77static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
252b5132
RH		 78static int status = 0; /* Exit status. */
79
80enum strip_action
81 {
82 STRIP_UNDEF,
84e2f313
NC		 83 STRIP_NONE, /* Don't strip. */
84 STRIP_DEBUG, /* Strip all debugger symbols. */
85 STRIP_UNNEEDED, /* Strip unnecessary symbols. */
ed1653a7 86 STRIP_NONDEBUG, /* Strip everything but debug info. */
84e2f313 87 STRIP_ALL /* Strip all symbols. */
252b5132
RH		 88 };
89
0af11b59 90/* Which symbols to remove. */
252b5132
RH		 91static enum strip_action strip_symbols;
92
93enum locals_action
94 {
95 LOCALS_UNDEF,
84e2f313
NC		 96 LOCALS_START_L, /* Discard locals starting with L. */
97 LOCALS_ALL /* Discard all locals. */
252b5132
RH		 98 };
99
100/* Which local symbols to remove. Overrides STRIP_ALL. */
101static enum locals_action discard_locals;
102
103/* What kind of change to perform. */
104enum change_action
105{
106 CHANGE_IGNORE,
107 CHANGE_MODIFY,
108 CHANGE_SET
109};
110
111/* Structure used to hold lists of sections and actions to take. */
112struct section_list
113{
b34976b6
AM		 114 struct section_list * next; /* Next section to change. */
115 const char * name; /* Section name. */
116 bfd_boolean used; /* Whether this entry was used. */
117 bfd_boolean remove; /* Whether to remove this section. */
118 bfd_boolean copy; /* Whether to copy this section. */
119 enum change_action change_vma;/* Whether to change or set VMA. */
120 bfd_vma vma_val; /* Amount to change by or set to. */
121 enum change_action change_lma;/* Whether to change or set LMA. */
122 bfd_vma lma_val; /* Amount to change by or set to. */
123 bfd_boolean set_flags; /* Whether to set the section flags. */
124 flagword flags; /* What to set the section flags to. */
252b5132
RH		 125};
126
127static struct section_list *change_sections;
594ef5db 128
b34976b6
AM		 129/* TRUE if some sections are to be removed. */
130static bfd_boolean sections_removed;
594ef5db 131
b34976b6
AM		 132/* TRUE if only some sections are to be copied. */
133static bfd_boolean sections_copied;
252b5132
RH		 134
135/* Changes to the start address. */
136static bfd_vma change_start = 0;
b34976b6 137static bfd_boolean set_start_set = FALSE;
252b5132
RH		 138static bfd_vma set_start;
139
140/* Changes to section addresses. */
141static bfd_vma change_section_address = 0;
142
143/* Filling gaps between sections. */
b34976b6 144static bfd_boolean gap_fill_set = FALSE;
252b5132
RH		 145static bfd_byte gap_fill = 0;
146
147/* Pad to a given address. */
b34976b6 148static bfd_boolean pad_to_set = FALSE;
252b5132
RH		 149static bfd_vma pad_to;
150
f9d4ad2a
NC		 151/* Use alternative machine code? */
152static unsigned long use_alt_mach_code = 0;
1ae8b3d2 153
4087920c
MR		 154/* Output BFD flags user wants to set or clear */
155static flagword bfd_flags_to_set;
156static flagword bfd_flags_to_clear;
157
252b5132 158/* List of sections to add. */
252b5132
RH		 159struct section_add
160{
161 /* Next section to add. */
162 struct section_add *next;
163 /* Name of section to add. */
164 const char *name;
165 /* Name of file holding section contents. */
166 const char *filename;
167 /* Size of file. */
168 size_t size;
169 /* Contents of file. */
170 bfd_byte *contents;
171 /* BFD section, after it has been added. */
172 asection *section;
173};
174
594ef5db 175/* List of sections to add to the output BFD. */
252b5132
RH		 176static struct section_add *add_sections;
177
2593f09a
NC		 178/* If non-NULL the argument to --add-gnu-debuglink.
179 This should be the filename to store in the .gnu_debuglink section. */
180static const char * gnu_debuglink_filename = NULL;
181
252b5132 182/* Whether to convert debugging information. */
b34976b6 183static bfd_boolean convert_debugging = FALSE;
252b5132
RH		 184
185/* Whether to change the leading character in symbol names. */
b34976b6 186static bfd_boolean change_leading_char = FALSE;
252b5132
RH		 187
188/* Whether to remove the leading character from global symbol names. */
b34976b6 189static bfd_boolean remove_leading_char = FALSE;
252b5132 190
aaad4cf3 191/* Whether to permit wildcard in symbol comparison. */
5fe11841
NC		 192static bfd_boolean wildcard = FALSE;
193
d58c2e3a
RS		 194/* True if --localize-hidden is in effect. */
195static bfd_boolean localize_hidden = FALSE;
196
16b2b71c
NC		 197/* List of symbols to strip, keep, localize, keep-global, weaken,
198 or redefine. */
252b5132 199static struct symlist *strip_specific_list = NULL;
bcf32829 200static struct symlist *strip_unneeded_list = NULL;
252b5132
RH		 201static struct symlist *keep_specific_list = NULL;
202static struct symlist *localize_specific_list = NULL;
7b4a0685 203static struct symlist *globalize_specific_list = NULL;
16b2b71c 204static struct symlist *keepglobal_specific_list = NULL;
252b5132 205static struct symlist *weaken_specific_list = NULL;
57938635 206static struct redefine_node *redefine_sym_list = NULL;
252b5132 207
b34976b6
AM		 208/* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
209static bfd_boolean weaken = FALSE;
252b5132 210
1637cd90
JB		 211/* If this is TRUE, we retain BSF_FILE symbols. */
212static bfd_boolean keep_file_symbols = FALSE;
213
d7fb0dd2
NC		 214/* Prefix symbols/sections. */
215static char *prefix_symbols_string = 0;
216static char *prefix_sections_string = 0;
217static char *prefix_alloc_sections_string = 0;
218
d3e52d40
RS		 219/* True if --extract-symbol was passed on the command line. */
220static bfd_boolean extract_symbol = FALSE;
221
9e48b4c6
NC		 222/* If `reverse_bytes' is nonzero, then reverse the order of every chunk
223 of <reverse_bytes> bytes within each output section. */
224static int reverse_bytes = 0;
225
226
252b5132 227/* 150 isn't special; it's just an arbitrary non-ASCII char value. */
84e2f313
NC		 228enum command_line_switch
229 {
230 OPTION_ADD_SECTION=150,
231 OPTION_CHANGE_ADDRESSES,
232 OPTION_CHANGE_LEADING_CHAR,
233 OPTION_CHANGE_START,
234 OPTION_CHANGE_SECTION_ADDRESS,
235 OPTION_CHANGE_SECTION_LMA,
236 OPTION_CHANGE_SECTION_VMA,
237 OPTION_CHANGE_WARNINGS,
238 OPTION_DEBUGGING,
239 OPTION_GAP_FILL,
240 OPTION_NO_CHANGE_WARNINGS,
241 OPTION_PAD_TO,
242 OPTION_REMOVE_LEADING_CHAR,
243 OPTION_SET_SECTION_FLAGS,
244 OPTION_SET_START,
245 OPTION_STRIP_UNNEEDED,
246 OPTION_WEAKEN,
247 OPTION_REDEFINE_SYM,
248 OPTION_REDEFINE_SYMS,
249 OPTION_SREC_LEN,
250 OPTION_SREC_FORCES3,
251 OPTION_STRIP_SYMBOLS,
bcf32829
JB		 252 OPTION_STRIP_UNNEEDED_SYMBOL,
253 OPTION_STRIP_UNNEEDED_SYMBOLS,
84e2f313 254 OPTION_KEEP_SYMBOLS,
d58c2e3a 255 OPTION_LOCALIZE_HIDDEN,
84e2f313 256 OPTION_LOCALIZE_SYMBOLS,
7b4a0685
NC		 257 OPTION_GLOBALIZE_SYMBOL,
258 OPTION_GLOBALIZE_SYMBOLS,
84e2f313
NC		 259 OPTION_KEEPGLOBAL_SYMBOLS,
260 OPTION_WEAKEN_SYMBOLS,
261 OPTION_RENAME_SECTION,
262 OPTION_ALT_MACH_CODE,
263 OPTION_PREFIX_SYMBOLS,
264 OPTION_PREFIX_SECTIONS,
265 OPTION_PREFIX_ALLOC_SECTIONS,
266 OPTION_FORMATS_INFO,
267 OPTION_ADD_GNU_DEBUGLINK,
4087920c 268 OPTION_ONLY_KEEP_DEBUG,
1637cd90 269 OPTION_KEEP_FILE_SYMBOLS,
4087920c
MR		 270 OPTION_READONLY_TEXT,
271 OPTION_WRITABLE_TEXT,
272 OPTION_PURE,
d3e52d40 273 OPTION_IMPURE,
9e48b4c6
NC		 274 OPTION_EXTRACT_SYMBOL,
275 OPTION_REVERSE_BYTES
84e2f313 276 };
252b5132
RH		 277
278/* Options to handle if running as "strip". */
279
280static struct option strip_options[] =
281{
282 {"discard-all", no_argument, 0, 'x'},
283 {"discard-locals", no_argument, 0, 'X'},
284 {"format", required_argument, 0, 'F'}, /* Obsolete */
285 {"help", no_argument, 0, 'h'},
7c29036b 286 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 287 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
288 {"input-target", required_argument, 0, 'I'},
1637cd90 289 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
252b5132 290 {"keep-symbol", required_argument, 0, 'K'},
ed1653a7 291 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
252b5132
RH		 292 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
293 {"output-target", required_argument, 0, 'O'},
af3bdff7 294 {"output-file", required_argument, 0, 'o'},
252b5132
RH		 295 {"preserve-dates", no_argument, 0, 'p'},
296 {"remove-section", required_argument, 0, 'R'},
297 {"strip-all", no_argument, 0, 's'},
298 {"strip-debug", no_argument, 0, 'S'},
299 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
300 {"strip-symbol", required_argument, 0, 'N'},
301 {"target", required_argument, 0, 'F'},
302 {"verbose", no_argument, 0, 'v'},
303 {"version", no_argument, 0, 'V'},
5fe11841 304 {"wildcard", no_argument, 0, 'w'},
252b5132
RH		 305 {0, no_argument, 0, 0}
306};
307
308/* Options to handle if running as "objcopy". */
309
310static struct option copy_options[] =
311{
2593f09a 312 {"add-gnu-debuglink", required_argument, 0, OPTION_ADD_GNU_DEBUGLINK},
252b5132
RH		 313 {"add-section", required_argument, 0, OPTION_ADD_SECTION},
314 {"adjust-start", required_argument, 0, OPTION_CHANGE_START},
315 {"adjust-vma", required_argument, 0, OPTION_CHANGE_ADDRESSES},
316 {"adjust-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
317 {"adjust-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
d7fb0dd2 318 {"alt-machine-code", required_argument, 0, OPTION_ALT_MACH_CODE},
43a0748c 319 {"binary-architecture", required_argument, 0, 'B'},
252b5132
RH		 320 {"byte", required_argument, 0, 'b'},
321 {"change-addresses", required_argument, 0, OPTION_CHANGE_ADDRESSES},
322 {"change-leading-char", no_argument, 0, OPTION_CHANGE_LEADING_CHAR},
323 {"change-section-address", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
324 {"change-section-lma", required_argument, 0, OPTION_CHANGE_SECTION_LMA},
325 {"change-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_VMA},
326 {"change-start", required_argument, 0, OPTION_CHANGE_START},
327 {"change-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
328 {"debugging", no_argument, 0, OPTION_DEBUGGING},
329 {"discard-all", no_argument, 0, 'x'},
330 {"discard-locals", no_argument, 0, 'X'},
d3e52d40 331 {"extract-symbol", no_argument, 0, OPTION_EXTRACT_SYMBOL},
252b5132
RH		 332 {"format", required_argument, 0, 'F'}, /* Obsolete */
333 {"gap-fill", required_argument, 0, OPTION_GAP_FILL},
7b4a0685
NC		 334 {"globalize-symbol", required_argument, 0, OPTION_GLOBALIZE_SYMBOL},
335 {"globalize-symbols", required_argument, 0, OPTION_GLOBALIZE_SYMBOLS},
252b5132 336 {"help", no_argument, 0, 'h'},
4087920c 337 {"impure", no_argument, 0, OPTION_IMPURE},
7c29036b 338 {"info", no_argument, 0, OPTION_FORMATS_INFO},
252b5132
RH		 339 {"input-format", required_argument, 0, 'I'}, /* Obsolete */
340 {"input-target", required_argument, 0, 'I'},
341 {"interleave", required_argument, 0, 'i'},
1637cd90 342 {"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
d7fb0dd2
NC		 343 {"keep-global-symbol", required_argument, 0, 'G'},
344 {"keep-global-symbols", required_argument, 0, OPTION_KEEPGLOBAL_SYMBOLS},
252b5132 345 {"keep-symbol", required_argument, 0, 'K'},
d7fb0dd2 346 {"keep-symbols", required_argument, 0, OPTION_KEEP_SYMBOLS},
d58c2e3a 347 {"localize-hidden", no_argument, 0, OPTION_LOCALIZE_HIDDEN},
d7fb0dd2
NC		 348 {"localize-symbol", required_argument, 0, 'L'},
349 {"localize-symbols", required_argument, 0, OPTION_LOCALIZE_SYMBOLS},
252b5132
RH		 350 {"no-adjust-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
351 {"no-change-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
ed1653a7 352 {"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
d7fb0dd2 353 {"only-section", required_argument, 0, 'j'},
252b5132
RH		 354 {"output-format", required_argument, 0, 'O'}, /* Obsolete */
355 {"output-target", required_argument, 0, 'O'},
356 {"pad-to", required_argument, 0, OPTION_PAD_TO},
d7fb0dd2
NC		 357 {"prefix-symbols", required_argument, 0, OPTION_PREFIX_SYMBOLS},
358 {"prefix-sections", required_argument, 0, OPTION_PREFIX_SECTIONS},
359 {"prefix-alloc-sections", required_argument, 0, OPTION_PREFIX_ALLOC_SECTIONS},
252b5132 360 {"preserve-dates", no_argument, 0, 'p'},
4087920c
MR		 361 {"pure", no_argument, 0, OPTION_PURE},
362 {"readonly-text", no_argument, 0, OPTION_READONLY_TEXT},
d7fb0dd2 363 {"redefine-sym", required_argument, 0, OPTION_REDEFINE_SYM},
92991082 364 {"redefine-syms", required_argument, 0, OPTION_REDEFINE_SYMS},
252b5132
RH		 365 {"remove-leading-char", no_argument, 0, OPTION_REMOVE_LEADING_CHAR},
366 {"remove-section", required_argument, 0, 'R'},
594ef5db 367 {"rename-section", required_argument, 0, OPTION_RENAME_SECTION},
9e48b4c6 368 {"reverse-bytes", required_argument, 0, OPTION_REVERSE_BYTES},
252b5132
RH		 369 {"set-section-flags", required_argument, 0, OPTION_SET_SECTION_FLAGS},
370 {"set-start", required_argument, 0, OPTION_SET_START},
d7fb0dd2
NC		 371 {"srec-len", required_argument, 0, OPTION_SREC_LEN},
372 {"srec-forceS3", no_argument, 0, OPTION_SREC_FORCES3},
252b5132
RH		 373 {"strip-all", no_argument, 0, 'S'},
374 {"strip-debug", no_argument, 0, 'g'},
375 {"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
bcf32829
JB		 376 {"strip-unneeded-symbol", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOL},
377 {"strip-unneeded-symbols", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOLS},
252b5132 378 {"strip-symbol", required_argument, 0, 'N'},
d7fb0dd2 379 {"strip-symbols", required_argument, 0, OPTION_STRIP_SYMBOLS},
252b5132
RH		 380 {"target", required_argument, 0, 'F'},
381 {"verbose", no_argument, 0, 'v'},
382 {"version", no_argument, 0, 'V'},
383 {"weaken", no_argument, 0, OPTION_WEAKEN},
384 {"weaken-symbol", required_argument, 0, 'W'},
16b2b71c 385 {"weaken-symbols", required_argument, 0, OPTION_WEAKEN_SYMBOLS},
5fe11841 386 {"wildcard", no_argument, 0, 'w'},
4087920c 387 {"writable-text", no_argument, 0, OPTION_WRITABLE_TEXT},
252b5132
RH		 388 {0, no_argument, 0, 0}
389};
390
391/* IMPORTS */
392extern char *program_name;
393
394/* This flag distinguishes between strip and objcopy:
395 1 means this is 'strip'; 0 means this is 'objcopy'.
0af11b59 396 -1 means if we should use argv[0] to decide. */
252b5132
RH		 397extern int is_strip;
398
420496c1
NC		 399/* The maximum length of an S record. This variable is declared in srec.c
400 and can be modified by the --srec-len parameter. */
401extern unsigned int Chunk;
402
403/* Restrict the generation of Srecords to type S3 only.
404 This variable is declare in bfd/srec.c and can be toggled
405 on by the --srec-forceS3 command line switch. */
b34976b6 406extern bfd_boolean S3Forced;
252b5132 407
b749473b
NC		 408/* Defined in bfd/binary.c. Used to set architecture and machine of input
409 binary files. */
410extern enum bfd_architecture bfd_external_binary_architecture;
411extern unsigned long bfd_external_machine;
43a0748c 412
d3ba0551
AM		 413/* Forward declarations. */
414static void setup_section (bfd *, asection *, void *);
80fccad2 415static void setup_bfd_headers (bfd *, bfd *);
d3ba0551
AM		 416static void copy_section (bfd *, asection *, void *);
417static void get_sections (bfd *, asection *, void *);
418static int compare_section_lma (const void *, const void *);
419static void mark_symbols_used_in_relocations (bfd *, asection *, void *);
420static bfd_boolean write_debugging_info (bfd *, void *, long *, asymbol ***);
421static const char *lookup_sym_redefinition (const char *);
594ef5db 422\f
252b5132 423static void
84e2f313 424copy_usage (FILE *stream, int exit_status)
252b5132 425{
8b53311e
NC		 426 fprintf (stream, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name);
427 fprintf (stream, _(" Copies a binary file, possibly transforming it in the process\n"));
6364e0b4 428 fprintf (stream, _(" The options are:\n"));
252b5132 429 fprintf (stream, _("\
d5bcb29d
NC		 430 -I --input-target <bfdname> Assume input file is in format <bfdname>\n\
431 -O --output-target <bfdname> Create an output file in format <bfdname>\n\
43a0748c 432 -B --binary-architecture <arch> Set arch of output file, when input is binary\n\
d5bcb29d
NC		 433 -F --target <bfdname> Set both input and output format to <bfdname>\n\
434 --debugging Convert debugging information, if possible\n\
435 -p --preserve-dates Copy modified/access timestamps to the output\n\
436 -j --only-section <name> Only copy section <name> into the output\n\
2593f09a 437 --add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
d5bcb29d
NC		 438 -R --remove-section <name> Remove section <name> from the output\n\
439 -S --strip-all Remove all symbol and relocation information\n\
2593f09a 440 -g --strip-debug Remove all debugging symbols & sections\n\
d5bcb29d
NC		 441 --strip-unneeded Remove all symbols not needed by relocations\n\
442 -N --strip-symbol <name> Do not copy symbol <name>\n\
bcf32829
JB		 443 --strip-unneeded-symbol <name>\n\
444 Do not copy symbol <name> unless needed by\n\
445 relocations\n\
6ea3dd37 446 --only-keep-debug Strip everything but the debug information\n\
d3e52d40 447 --extract-symbol Remove section contents but keep symbols\n\
e7f918ad 448 -K --keep-symbol <name> Do not strip symbol <name>\n\
1637cd90 449 --keep-file-symbols Do not strip file symbol(s)\n\
d58c2e3a 450 --localize-hidden Turn all ELF hidden symbols into locals\n\
d5bcb29d 451 -L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
7b4a0685 452 --globalize-symbol <name> Force symbol <name> to be marked as a global\n\
16b2b71c 453 -G --keep-global-symbol <name> Localize all symbols except <name>\n\
d5bcb29d
NC		 454 -W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
455 --weaken Force all global symbols to be marked as weak\n\
a95b5cf9 456 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 457 -x --discard-all Remove all non-global symbols\n\
458 -X --discard-locals Remove any compiler-generated symbols\n\
459 -i --interleave <number> Only copy one out of every <number> bytes\n\
460 -b --byte <num> Select byte <num> in every interleaved block\n\
461 --gap-fill <val> Fill gaps between sections with <val>\n\
462 --pad-to <addr> Pad the last section up to address <addr>\n\
463 --set-start <addr> Set the start address to <addr>\n\
464 {--change-start|--adjust-start} <incr>\n\
465 Add <incr> to the start address\n\
466 {--change-addresses|--adjust-vma} <incr>\n\
467 Add <incr> to LMA, VMA and start addresses\n\
468 {--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
469 Change LMA and VMA of section <name> by <val>\n\
470 --change-section-lma <name>{=|+|-}<val>\n\
471 Change the LMA of section <name> by <val>\n\
472 --change-section-vma <name>{=|+|-}<val>\n\
473 Change the VMA of section <name> by <val>\n\
474 {--[no-]change-warnings|--[no-]adjust-warnings}\n\
475 Warn if a named section does not exist\n\
476 --set-section-flags <name>=<flags>\n\
477 Set section <name>'s properties to <flags>\n\
478 --add-section <name>=<file> Add section <name> found in <file> to output\n\
594ef5db 479 --rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
d5bcb29d
NC		 480 --change-leading-char Force output format's leading character style\n\
481 --remove-leading-char Remove leading character from global symbols\n\
9e48b4c6 482 --reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
57938635 483 --redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
92991082
JT		 484 --redefine-syms <file> --redefine-sym for all symbol pairs \n\
485 listed in <file>\n\
420496c1
NC		 486 --srec-len <number> Restrict the length of generated Srecords\n\
487 --srec-forceS3 Restrict the type of generated Srecords to S3\n\
16b2b71c 488 --strip-symbols <file> -N for all symbols listed in <file>\n\
bcf32829
JB		 489 --strip-unneeded-symbols <file>\n\
490 --strip-unneeded-symbol for all symbols listed\n\
491 in <file>\n\
16b2b71c
NC		 492 --keep-symbols <file> -K for all symbols listed in <file>\n\
493 --localize-symbols <file> -L for all symbols listed in <file>\n\
7b4a0685 494 --globalize-symbols <file> --globalize-symbol for all in <file>\n\
16b2b71c
NC		 495 --keep-global-symbols <file> -G for all symbols listed in <file>\n\
496 --weaken-symbols <file> -W for all symbols listed in <file>\n\
f9d4ad2a 497 --alt-machine-code <index> Use the target's <index>'th alternative machine\n\
4087920c
MR		 498 --writable-text Mark the output text as writable\n\
499 --readonly-text Make the output text write protected\n\
500 --pure Mark the output file as demand paged\n\
501 --impure Mark the output file as impure\n\
d7fb0dd2
NC		 502 --prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
503 --prefix-sections <prefix> Add <prefix> to start of every section name\n\
504 --prefix-alloc-sections <prefix>\n\
505 Add <prefix> to start of every allocatable\n\
506 section name\n\
d5bcb29d 507 -v --verbose List all object files modified\n\
07012eee 508 @<file> Read options from <file>\n\
d5bcb29d
NC		 509 -V --version Display this program's version number\n\
510 -h --help Display this output\n\
7c29036b 511 --info List object formats & architectures supported\n\
d5bcb29d 512"));
252b5132 513 list_supported_targets (program_name, stream);
92f01d61 514 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 515 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 516 exit (exit_status);
517}
518
519static void
84e2f313 520strip_usage (FILE *stream, int exit_status)
252b5132 521{
8b53311e
NC		 522 fprintf (stream, _("Usage: %s <option(s)> in-file(s)\n"), program_name);
523 fprintf (stream, _(" Removes symbols and sections from files\n"));
6364e0b4 524 fprintf (stream, _(" The options are:\n"));
252b5132 525 fprintf (stream, _("\
8b53311e
NC		 526 -I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
527 -O --output-target=<bfdname> Create an output file in format <bfdname>\n\
528 -F --target=<bfdname> Set both input and output format to <bfdname>\n\
d5bcb29d 529 -p --preserve-dates Copy modified/access timestamps to the output\n\
8b53311e 530 -R --remove-section=<name> Remove section <name> from the output\n\
d5bcb29d 531 -s --strip-all Remove all symbol and relocation information\n\
2593f09a 532 -g -S -d --strip-debug Remove all debugging symbols & sections\n\
d5bcb29d 533 --strip-unneeded Remove all symbols not needed by relocations\n\
6ea3dd37 534 --only-keep-debug Strip everything but the debug information\n\
8b53311e 535 -N --strip-symbol=<name> Do not copy symbol <name>\n\
5219e4c0 536 -K --keep-symbol=<name> Do not strip symbol <name>\n\
1637cd90 537 --keep-file-symbols Do not strip file symbol(s)\n\
a95b5cf9 538 -w --wildcard Permit wildcard in symbol comparison\n\
d5bcb29d
NC		 539 -x --discard-all Remove all non-global symbols\n\
540 -X --discard-locals Remove any compiler-generated symbols\n\
541 -v --verbose List all object files modified\n\
542 -V --version Display this program's version number\n\
543 -h --help Display this output\n\
7c29036b 544 --info List object formats & architectures supported\n\
d5bcb29d
NC		 545 -o <file> Place stripped output into <file>\n\
546"));
547
252b5132 548 list_supported_targets (program_name, stream);
92f01d61 549 if (REPORT_BUGS_TO[0] && exit_status == 0)
8ad3436c 550 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
252b5132
RH		 551 exit (exit_status);
552}
553
554/* Parse section flags into a flagword, with a fatal error if the
555 string can't be parsed. */
556
557static flagword
84e2f313 558parse_flags (const char *s)
252b5132
RH		 559{
560 flagword ret;
561 const char *snext;
562 int len;
563
564 ret = SEC_NO_FLAGS;
565
566 do
567 {
568 snext = strchr (s, ',');
569 if (snext == NULL)
570 len = strlen (s);
571 else
572 {
573 len = snext - s;
574 ++snext;
575 }
576
577 if (0) ;
578#define PARSE_FLAG(fname,fval) \
579 else if (strncasecmp (fname, s, len) == 0) ret |= fval
580 PARSE_FLAG ("alloc", SEC_ALLOC);
581 PARSE_FLAG ("load", SEC_LOAD);
3994e2c6 582 PARSE_FLAG ("noload", SEC_NEVER_LOAD);
252b5132 583 PARSE_FLAG ("readonly", SEC_READONLY);
3994e2c6 584 PARSE_FLAG ("debug", SEC_DEBUGGING);
252b5132
RH		 585 PARSE_FLAG ("code", SEC_CODE);
586 PARSE_FLAG ("data", SEC_DATA);
587 PARSE_FLAG ("rom", SEC_ROM);
ebe372c1 588 PARSE_FLAG ("share", SEC_COFF_SHARED);
252b5132
RH		 589 PARSE_FLAG ("contents", SEC_HAS_CONTENTS);
590#undef PARSE_FLAG
591 else
592 {
593 char *copy;
594
595 copy = xmalloc (len + 1);
596 strncpy (copy, s, len);
597 copy[len] = '\0';
598 non_fatal (_("unrecognized section flag `%s'"), copy);
57938635
AM		 599 fatal (_("supported flags: %s"),
600 "alloc, load, noload, readonly, debug, code, data, rom, share, contents");
252b5132
RH		 601 }
602
603 s = snext;
604 }
605 while (s != NULL);
606
607 return ret;
608}
609
610/* Find and optionally add an entry in the change_sections list. */
611
612static struct section_list *
84e2f313 613find_section_list (const char *name, bfd_boolean add)
252b5132 614{
84e2f313 615 struct section_list *p;
252b5132
RH		 616
617 for (p = change_sections; p != NULL; p = p->next)
618 if (strcmp (p->name, name) == 0)
619 return p;
620
621 if (! add)
622 return NULL;
623
d3ba0551 624 p = xmalloc (sizeof (struct section_list));
252b5132 625 p->name = name;
b34976b6
AM		 626 p->used = FALSE;
627 p->remove = FALSE;
628 p->copy = FALSE;
252b5132
RH		 629 p->change_vma = CHANGE_IGNORE;
630 p->change_lma = CHANGE_IGNORE;
631 p->vma_val = 0;
632 p->lma_val = 0;
b34976b6 633 p->set_flags = FALSE;
252b5132
RH		 634 p->flags = 0;
635
636 p->next = change_sections;
637 change_sections = p;
638
639 return p;
640}
641
642/* Add a symbol to strip_specific_list. */
643
57938635 644static void
84e2f313 645add_specific_symbol (const char *name, struct symlist **list)
252b5132
RH		 646{
647 struct symlist *tmp_list;
648
d3ba0551 649 tmp_list = xmalloc (sizeof (struct symlist));
252b5132
RH		 650 tmp_list->name = name;
651 tmp_list->next = *list;
652 *list = tmp_list;
653}
654
0af11b59 655/* Add symbols listed in `filename' to strip_specific_list. */
16b2b71c
NC		 656
657#define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
658#define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
659
660static void
84e2f313 661add_specific_symbols (const char *filename, struct symlist **list)
16b2b71c 662{
f24ddbdd 663 off_t size;
16b2b71c
NC		 664 FILE * f;
665 char * line;
666 char * buffer;
667 unsigned int line_count;
0af11b59 668
f24ddbdd
NC		 669 size = get_file_size (filename);
670 if (size == 0)
d68c385b
NC		 671 {
672 status = 1;
673 return;
674 }
16b2b71c 675
f24ddbdd 676 buffer = xmalloc (size + 2);
16b2b71c
NC		 677 f = fopen (filename, FOPEN_RT);
678 if (f == NULL)
f24ddbdd 679 fatal (_("cannot open '%s': %s"), filename, strerror (errno));
16b2b71c 680
f24ddbdd 681 if (fread (buffer, 1, size, f) == 0 || ferror (f))
16b2b71c
NC		 682 fatal (_("%s: fread failed"), filename);
683
684 fclose (f);
f24ddbdd
NC		 685 buffer [size] = '\n';
686 buffer [size + 1] = '\0';
16b2b71c
NC		 687
688 line_count = 1;
0af11b59 689
16b2b71c
NC		 690 for (line = buffer; * line != '\0'; line ++)
691 {
692 char * eol;
693 char * name;
694 char * name_end;
b34976b6 695 int finished = FALSE;
16b2b71c
NC		 696
697 for (eol = line;; eol ++)
698 {
699 switch (* eol)
700 {
701 case '\n':
702 * eol = '\0';
703 /* Cope with \n\r. */
704 if (eol[1] == '\r')
705 ++ eol;
b34976b6 706 finished = TRUE;
16b2b71c 707 break;
0af11b59 708
16b2b71c
NC		 709 case '\r':
710 * eol = '\0';
711 /* Cope with \r\n. */
712 if (eol[1] == '\n')
713 ++ eol;
b34976b6 714 finished = TRUE;
16b2b71c 715 break;
0af11b59 716
16b2b71c 717 case 0:
b34976b6 718 finished = TRUE;
16b2b71c 719 break;
0af11b59 720
16b2b71c
NC		 721 case '#':
722 /* Line comment, Terminate the line here, in case a
723 name is present and then allow the rest of the
724 loop to find the real end of the line. */
725 * eol = '\0';
726 break;
0af11b59 727
16b2b71c
NC		 728 default:
729 break;
730 }
731
732 if (finished)
733 break;
734 }
735
736 /* A name may now exist somewhere between 'line' and 'eol'.
737 Strip off leading whitespace and trailing whitespace,
738 then add it to the list. */
739 for (name = line; IS_WHITESPACE (* name); name ++)
740 ;
741 for (name_end = name;
742 (! IS_WHITESPACE (* name_end))
743 && (! IS_LINE_TERMINATOR (* name_end));
0af11b59
KH		 744 name_end ++)
745 ;
16b2b71c
NC		 746
747 if (! IS_LINE_TERMINATOR (* name_end))
748 {
749 char * extra;
750
751 for (extra = name_end + 1; IS_WHITESPACE (* extra); extra ++)
752 ;
753
754 if (! IS_LINE_TERMINATOR (* extra))
d412a550
NC		 755 non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
756 filename, line_count);
16b2b71c 757 }
0af11b59 758
16b2b71c
NC		 759 * name_end = '\0';
760
761 if (name_end > name)
762 add_specific_symbol (name, list);
763
764 /* Advance line pointer to end of line. The 'eol ++' in the for
765 loop above will then advance us to the start of the next line. */
766 line = eol;
767 line_count ++;
768 }
769}
770
252b5132
RH		 771/* See whether a symbol should be stripped or kept based on
772 strip_specific_list and keep_symbols. */
773
b34976b6 774static bfd_boolean
84e2f313 775is_specified_symbol (const char *name, struct symlist *list)
252b5132
RH		 776{
777 struct symlist *tmp_list;
778
5fe11841
NC		 779 if (wildcard)
780 {
781 for (tmp_list = list; tmp_list; tmp_list = tmp_list->next)
782 if (*(tmp_list->name) != '!')
783 {
784 if (!fnmatch (tmp_list->name, name, 0))
785 return TRUE;
786 }
787 else
788 {
789 if (fnmatch (tmp_list->name + 1, name, 0))
790 return TRUE;
791 }
792 }
793 else
794 {
795 for (tmp_list = list; tmp_list; tmp_list = tmp_list->next)
796 if (strcmp (name, tmp_list->name) == 0)
797 return TRUE;
798 }
594ef5db 799
b34976b6 800 return FALSE;
252b5132
RH		 801}
802
30288845
AM		 803/* Return a pointer to the symbol used as a signature for GROUP. */
804
805static asymbol *
806group_signature (asection *group)
807{
808 bfd *abfd = group->owner;
809 Elf_Internal_Shdr *ghdr;
810
811 if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
812 return NULL;
813
814 ghdr = &elf_section_data (group)->this_hdr;
815 if (ghdr->sh_link < elf_numsections (abfd))
816 {
817 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
818 Elf_Internal_Shdr *symhdr = elf_elfsections (abfd) [ghdr->sh_link];
819
820 if (symhdr->sh_type == SHT_SYMTAB
821 && ghdr->sh_info < symhdr->sh_size / bed->s->sizeof_sym)
748fc5e9 822 return isympp[ghdr->sh_info - 1];
30288845
AM		 823 }
824 return NULL;
825}
826
252b5132
RH		 827/* See if a section is being removed. */
828
b34976b6 829static bfd_boolean
84e2f313 830is_strip_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
252b5132 831{
2593f09a
NC		 832 if (sections_removed || sections_copied)
833 {
834 struct section_list *p;
835
836 p = find_section_list (bfd_get_section_name (abfd, sec), FALSE);
837
838 if (sections_removed && p != NULL && p->remove)
839 return TRUE;
840 if (sections_copied && (p == NULL || ! p->copy))
841 return TRUE;
842 }
252b5132 843
2593f09a
NC		 844 if ((bfd_get_section_flags (abfd, sec) & SEC_DEBUGGING) != 0)
845 {
846 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 847 || strip_symbols == STRIP_UNNEEDED
848 || strip_symbols == STRIP_ALL
849 || discard_locals == LOCALS_ALL
2593f09a
NC		 850 || convert_debugging)
851 return TRUE;
ed1653a7
NC		 852
853 if (strip_symbols == STRIP_NONDEBUG)
854 return FALSE;
2593f09a 855 }
f91ea849 856
30288845
AM		 857 if ((bfd_get_section_flags (abfd, sec) & SEC_GROUP) != 0)
858 {
859 asymbol *gsym;
860 const char *gname;
861
862 /* PR binutils/3166
863 Group sections look like debugging sections but they are not.
864 (They have a non-zero size but they are not ALLOCated). */
865 if (strip_symbols == STRIP_NONDEBUG)
866 return TRUE;
867
868 /* PR binutils/3181
869 If we are going to strip the group signature symbol, then
870 strip the group section too. */
871 gsym = group_signature (sec);
872 if (gsym != NULL)
873 gname = gsym->name;
874 else
875 gname = sec->name;
876 if ((strip_symbols == STRIP_ALL
877 && !is_specified_symbol (gname, keep_specific_list))
878 || is_specified_symbol (gname, strip_specific_list))
879 return TRUE;
880 }
91bb255c 881
f0312d39 882 return FALSE;
252b5132
RH		 883}
884
d58c2e3a
RS		 885/* Return true if SYM is a hidden symbol. */
886
887static bfd_boolean
888is_hidden_symbol (asymbol *sym)
889{
890 elf_symbol_type *elf_sym;
891
892 elf_sym = elf_symbol_from (sym->the_bfd, sym);
893 if (elf_sym != NULL)
894 switch (ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other))
895 {
896 case STV_HIDDEN:
897 case STV_INTERNAL:
898 return TRUE;
899 }
900 return FALSE;
901}
902
252b5132
RH		 903/* Choose which symbol entries to copy; put the result in OSYMS.
904 We don't copy in place, because that confuses the relocs.
905 Return the number of symbols to print. */
906
907static unsigned int
84e2f313
NC		 908filter_symbols (bfd *abfd, bfd *obfd, asymbol **osyms,
909 asymbol **isyms, long symcount)
252b5132 910{
84e2f313 911 asymbol **from = isyms, **to = osyms;
252b5132 912 long src_count = 0, dst_count = 0;
e205a099 913 int relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
252b5132
RH		 914
915 for (; src_count < symcount; src_count++)
916 {
917 asymbol *sym = from[src_count];
918 flagword flags = sym->flags;
d7fb0dd2 919 char *name = (char *) bfd_asymbol_name (sym);
312aaa3c
NC		 920 bfd_boolean keep;
921 bfd_boolean used_in_reloc = FALSE;
b34976b6 922 bfd_boolean undefined;
d7fb0dd2
NC		 923 bfd_boolean rem_leading_char;
924 bfd_boolean add_leading_char;
925
926 undefined = bfd_is_und_section (bfd_get_section (sym));
252b5132 927
57938635
AM		 928 if (redefine_sym_list)
929 {
d7fb0dd2 930 char *old_name, *new_name;
57938635 931
d7fb0dd2
NC		 932 old_name = (char *) bfd_asymbol_name (sym);
933 new_name = (char *) lookup_sym_redefinition (old_name);
66491ebc
AM		 934 bfd_asymbol_name (sym) = new_name;
935 name = new_name;
57938635
AM		 936 }
937
d7fb0dd2
NC		 938 /* Check if we will remove the current leading character. */
939 rem_leading_char =
940 (name[0] == bfd_get_symbol_leading_char (abfd))
941 && (change_leading_char
942 || (remove_leading_char
943 && ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
944 || undefined
945 || bfd_is_com_section (bfd_get_section (sym)))));
946
947 /* Check if we will add a new leading character. */
948 add_leading_char =
949 change_leading_char
950 && (bfd_get_symbol_leading_char (obfd) != '\0')
951 && (bfd_get_symbol_leading_char (abfd) == '\0'
952 || (name[0] == bfd_get_symbol_leading_char (abfd)));
953
954 /* Short circuit for change_leading_char if we can do it in-place. */
955 if (rem_leading_char && add_leading_char && !prefix_symbols_string)
956 {
957 name[0] = bfd_get_symbol_leading_char (obfd);
958 bfd_asymbol_name (sym) = name;
959 rem_leading_char = FALSE;
960 add_leading_char = FALSE;
961 }
962
963 /* Remove leading char. */
964 if (rem_leading_char)
66491ebc 965 bfd_asymbol_name (sym) = ++name;
d7fb0dd2
NC		 966
967 /* Add new leading char and/or prefix. */
968 if (add_leading_char || prefix_symbols_string)
969 {
970 char *n, *ptr;
971
84e2f313
NC		 972 ptr = n = xmalloc (1 + strlen (prefix_symbols_string)
973 + strlen (name) + 1);
d7fb0dd2
NC		 974 if (add_leading_char)
975 *ptr++ = bfd_get_symbol_leading_char (obfd);
976
977 if (prefix_symbols_string)
978 {
979 strcpy (ptr, prefix_symbols_string);
980 ptr += strlen (prefix_symbols_string);
981 }
982
983 strcpy (ptr, name);
66491ebc
AM		 984 bfd_asymbol_name (sym) = n;
985 name = n;
252b5132
RH		 986 }
987
252b5132 988 if (strip_symbols == STRIP_ALL)
312aaa3c 989 keep = FALSE;
252b5132
RH		 990 else if ((flags & BSF_KEEP) != 0 /* Used in relocation. */
991 || ((flags & BSF_SECTION_SYM) != 0
992 && ((*bfd_get_section (sym)->symbol_ptr_ptr)->flags
993 & BSF_KEEP) != 0))
312aaa3c
NC		 994 {
995 keep = TRUE;
996 used_in_reloc = TRUE;
997 }
0af11b59 998 else if (relocatable /* Relocatable file. */
d8121479 999 && (flags & (BSF_GLOBAL | BSF_WEAK)) != 0)
312aaa3c 1000 keep = TRUE;
16b2b71c
NC		 1001 else if (bfd_decode_symclass (sym) == 'I')
1002 /* Global symbols in $idata sections need to be retained
b34976b6 1003 even if relocatable is FALSE. External users of the
16b2b71c
NC		 1004 library containing the $idata section may reference these
1005 symbols. */
312aaa3c 1006 keep = TRUE;
252b5132
RH		 1007 else if ((flags & BSF_GLOBAL) != 0 /* Global symbol. */
1008 || (flags & BSF_WEAK) != 0
24e01a36 1009 || undefined
252b5132
RH		 1010 || bfd_is_com_section (bfd_get_section (sym)))
1011 keep = strip_symbols != STRIP_UNNEEDED;
1012 else if ((flags & BSF_DEBUGGING) != 0) /* Debugging symbol. */
1013 keep = (strip_symbols != STRIP_DEBUG
1014 && strip_symbols != STRIP_UNNEEDED
1015 && ! convert_debugging);
082b7297 1016 else if (bfd_coff_get_comdat_section (abfd, bfd_get_section (sym)))
af3bdff7
NC		 1017 /* COMDAT sections store special information in local
1018 symbols, so we cannot risk stripping any of them. */
312aaa3c 1019 keep = TRUE;
252b5132
RH		 1020 else /* Local symbol. */
1021 keep = (strip_symbols != STRIP_UNNEEDED
1022 && (discard_locals != LOCALS_ALL
1023 && (discard_locals != LOCALS_START_L
1024 || ! bfd_is_local_label (abfd, sym))));
1025
1026 if (keep && is_specified_symbol (name, strip_specific_list))
312aaa3c
NC		 1027 {
1028 /* There are multiple ways to set 'keep' above, but if it
1029 was the relocatable symbol case, then that's an error. */
1030 if (used_in_reloc)
1031 {
1032 non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name);
1033 status = 1;
1034 }
1035 else
1036 keep = FALSE;
1037 }
1038
bcf32829
JB		 1039 if (keep
1040 && !(flags & BSF_KEEP)
1041 && is_specified_symbol (name, strip_unneeded_list))
312aaa3c
NC		 1042 keep = FALSE;
1043
1637cd90
JB		 1044 if (!keep
1045 && ((keep_file_symbols && (flags & BSF_FILE))
1046 || is_specified_symbol (name, keep_specific_list)))
312aaa3c
NC		 1047 keep = TRUE;
1048
252b5132 1049 if (keep && is_strip_section (abfd, bfd_get_section (sym)))
312aaa3c 1050 keep = FALSE;
e0c60db2 1051
7b4a0685 1052 if (keep)
252b5132 1053 {
7b4a0685
NC		 1054 if ((flags & BSF_GLOBAL) != 0
1055 && (weaken || is_specified_symbol (name, weaken_specific_list)))
1056 {
1057 sym->flags &= ~ BSF_GLOBAL;
1058 sym->flags |= BSF_WEAK;
1059 }
252b5132 1060
7b4a0685
NC		 1061 if (!undefined
1062 && (flags & (BSF_GLOBAL | BSF_WEAK))
1063 && (is_specified_symbol (name, localize_specific_list)
1064 || (keepglobal_specific_list != NULL
d58c2e3a
RS		 1065 && ! is_specified_symbol (name, keepglobal_specific_list))
1066 || (localize_hidden && is_hidden_symbol (sym))))
7b4a0685
NC		 1067 {
1068 sym->flags &= ~ (BSF_GLOBAL | BSF_WEAK);
1069 sym->flags |= BSF_LOCAL;
1070 }
1071
1072 if (!undefined
c1c0eb9e 1073 && (flags & BSF_LOCAL)
7b4a0685
NC		 1074 && is_specified_symbol (name, globalize_specific_list))
1075 {
1076 sym->flags &= ~ BSF_LOCAL;
1077 sym->flags |= BSF_GLOBAL;
1078 }
1079
1080 to[dst_count++] = sym;
1081 }
252b5132
RH		 1082 }
1083
1084 to[dst_count] = NULL;
1085
1086 return dst_count;
1087}
1088
594ef5db
NC		 1089/* Find the redefined name of symbol SOURCE. */
1090
57938635 1091static const char *
84e2f313 1092lookup_sym_redefinition (const char *source)
57938635 1093{
57938635
AM		 1094 struct redefine_node *list;
1095
57938635 1096 for (list = redefine_sym_list; list != NULL; list = list->next)
594ef5db
NC		 1097 if (strcmp (source, list->source) == 0)
1098 return list->target;
1099
1100 return source;
57938635
AM		 1101}
1102
594ef5db 1103/* Add a node to a symbol redefine list. */
57938635
AM		 1104
1105static void
84e2f313 1106redefine_list_append (const char *cause, const char *source, const char *target)
57938635
AM		 1107{
1108 struct redefine_node **p;
1109 struct redefine_node *list;
1110 struct redefine_node *new_node;
1111
1112 for (p = &redefine_sym_list; (list = *p) != NULL; p = &list->next)
1113 {
1114 if (strcmp (source, list->source) == 0)
594ef5db 1115 fatal (_("%s: Multiple redefinition of symbol \"%s\""),
92991082 1116 cause, source);
57938635
AM		 1117
1118 if (strcmp (target, list->target) == 0)
594ef5db 1119 fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
92991082 1120 cause, target);
57938635
AM		 1121 }
1122
d3ba0551 1123 new_node = xmalloc (sizeof (struct redefine_node));
57938635
AM		 1124
1125 new_node->source = strdup (source);
1126 new_node->target = strdup (target);
1127 new_node->next = NULL;
1128
1129 *p = new_node;
1130}
1131
92991082
JT		 1132/* Handle the --redefine-syms option. Read lines containing "old new"
1133 from the file, and add them to the symbol redefine list. */
1134
2593f09a 1135static void
84e2f313 1136add_redefine_syms_file (const char *filename)
92991082
JT		 1137{
1138 FILE *file;
1139 char *buf;
84e2f313
NC		 1140 size_t bufsize;
1141 size_t len;
1142 size_t outsym_off;
92991082
JT		 1143 int c, lineno;
1144
1145 file = fopen (filename, "r");
d3ba0551 1146 if (file == NULL)
92991082
JT		 1147 fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
1148 filename, strerror (errno));
1149
1150 bufsize = 100;
d3ba0551 1151 buf = xmalloc (bufsize);
92991082
JT		 1152
1153 lineno = 1;
1154 c = getc (file);
1155 len = 0;
1156 outsym_off = 0;
1157 while (c != EOF)
1158 {
1159 /* Collect the input symbol name. */
1160 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1161 {
1162 if (c == '#')
1163 goto comment;
1164 buf[len++] = c;
1165 if (len >= bufsize)
1166 {
1167 bufsize *= 2;
1168 buf = xrealloc (buf, bufsize);
1169 }
1170 c = getc (file);
1171 }
1172 buf[len++] = '\0';
1173 if (c == EOF)
1174 break;
1175
1176 /* Eat white space between the symbol names. */
1177 while (IS_WHITESPACE (c))
1178 c = getc (file);
1179 if (c == '#' || IS_LINE_TERMINATOR (c))
1180 goto comment;
1181 if (c == EOF)
1182 break;
1183
1184 /* Collect the output symbol name. */
1185 outsym_off = len;
1186 while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
1187 {
1188 if (c == '#')
1189 goto comment;
1190 buf[len++] = c;
1191 if (len >= bufsize)
1192 {
1193 bufsize *= 2;
1194 buf = xrealloc (buf, bufsize);
1195 }
1196 c = getc (file);
1197 }
1198 buf[len++] = '\0';
1199 if (c == EOF)
1200 break;
1201
1202 /* Eat white space at end of line. */
1203 while (! IS_LINE_TERMINATOR(c) && c != EOF && IS_WHITESPACE (c))
1204 c = getc (file);
1205 if (c == '#')
1206 goto comment;
1207 /* Handle \r\n. */
1208 if ((c == '\r' && (c = getc (file)) == '\n')
1209 || c == '\n' || c == EOF)
1210 {
1211 end_of_line:
1212 /* Append the redefinition to the list. */
1213 if (buf[0] != '\0')
1214 redefine_list_append (filename, &buf[0], &buf[outsym_off]);
1215
c1c0eb9e 1216 lineno++;
92991082
JT		 1217 len = 0;
1218 outsym_off = 0;
1219 if (c == EOF)
1220 break;
1221 c = getc (file);
1222 continue;
1223 }
1224 else
d412a550 1225 fatal (_("%s:%d: garbage found at end of line"), filename, lineno);
92991082
JT		 1226 comment:
1227 if (len != 0 && (outsym_off == 0 || outsym_off == len))
d412a550 1228 fatal (_("%s:%d: missing new symbol name"), filename, lineno);
92991082
JT		 1229 buf[len++] = '\0';
1230
1231 /* Eat the rest of the line and finish it. */
1232 while (c != '\n' && c != EOF)
1233 c = getc (file);
1234 goto end_of_line;
1235 }
1236
1237 if (len != 0)
d412a550 1238 fatal (_("%s:%d: premature end of file"), filename, lineno);
92991082
JT		 1239
1240 free (buf);
1241}
1242
77f762d6
L		 1243/* Copy unkown object file IBFD onto OBFD.
1244 Returns TRUE upon success, FALSE otherwise. */
1245
1246static bfd_boolean
1247copy_unknown_object (bfd *ibfd, bfd *obfd)
1248{
1249 char *cbuf;
1250 int tocopy;
1251 long ncopied;
1252 long size;
1253 struct stat buf;
1254
1255 if (bfd_stat_arch_elt (ibfd, &buf) != 0)
1256 {
1257 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1258 return FALSE;
1259 }
1260
1261 size = buf.st_size;
1262 if (size < 0)
1263 {
1264 non_fatal (_("stat returns negative size for `%s'"),
1265 bfd_get_archive_filename (ibfd));
1266 return FALSE;
1267 }
1268
1269 if (bfd_seek (ibfd, (file_ptr) 0, SEEK_SET) != 0)
1270 {
1271 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1272 return FALSE;
1273 }
1274
1275 if (verbose)
1276 printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
1277 bfd_get_archive_filename (ibfd), bfd_get_filename (obfd));
1278
1279 cbuf = xmalloc (BUFSIZE);
1280 ncopied = 0;
1281 while (ncopied < size)
1282 {
1283 tocopy = size - ncopied;
1284 if (tocopy > BUFSIZE)
1285 tocopy = BUFSIZE;
1286
1287 if (bfd_bread (cbuf, (bfd_size_type) tocopy, ibfd)
1288 != (bfd_size_type) tocopy)
1289 {
1290 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1291 free (cbuf);
1292 return FALSE;
1293 }
1294
1295 if (bfd_bwrite (cbuf, (bfd_size_type) tocopy, obfd)
1296 != (bfd_size_type) tocopy)
1297 {
1298 bfd_nonfatal (bfd_get_filename (obfd));
1299 free (cbuf);
1300 return FALSE;
1301 }
1302
1303 ncopied += tocopy;
1304 }
1305
1306 chmod (bfd_get_filename (obfd), buf.st_mode);
1307 free (cbuf);
1308 return TRUE;
1309}
1310
950d48e7 1311/* Copy object file IBFD onto OBFD.
5b8c74e6 1312 Returns TRUE upon success, FALSE otherwise. */
252b5132 1313
950d48e7 1314static bfd_boolean
84e2f313 1315copy_object (bfd *ibfd, bfd *obfd)
252b5132
RH		 1316{
1317 bfd_vma start;
1318 long symcount;
1319 asection **osections = NULL;
84e2f313 1320 asection *gnu_debuglink_section = NULL;
252b5132
RH		 1321 bfd_size_type *gaps = NULL;
1322 bfd_size_type max_gap = 0;
1323 long symsize;
84e2f313 1324 void *dhandle;
66491ebc
AM		 1325 enum bfd_architecture iarch;
1326 unsigned int imach;
252b5132 1327
23719f39
NC		 1328 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
1329 && ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
1330 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
950d48e7 1331 fatal (_("Unable to change endianness of input file(s)"));
252b5132
RH		 1332
1333 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7
NC		 1334 {
1335 bfd_nonfatal (bfd_get_filename (obfd));
1336 return FALSE;
1337 }
252b5132
RH		 1338
1339 if (verbose)
77f762d6
L		 1340 printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
1341 bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
252b5132
RH		 1342 bfd_get_filename (obfd), bfd_get_target (obfd));
1343
d3e52d40
RS		 1344 if (extract_symbol)
1345 start = 0;
252b5132 1346 else
d3e52d40
RS		 1347 {
1348 if (set_start_set)
1349 start = set_start;
1350 else
1351 start = bfd_get_start_address (ibfd);
1352 start += change_start;
1353 }
252b5132 1354
0af11b59
KH		 1355 /* Neither the start address nor the flags
1356 need to be set for a core file. */
4dd67f29
MS		 1357 if (bfd_get_format (obfd) != bfd_core)
1358 {
4087920c
MR		 1359 flagword flags;
1360
1361 flags = bfd_get_file_flags (ibfd);
1362 flags |= bfd_flags_to_set;
1363 flags &= ~bfd_flags_to_clear;
1364 flags &= bfd_applicable_file_flags (obfd);
1365
4dd67f29 1366 if (!bfd_set_start_address (obfd, start)
4087920c 1367 || !bfd_set_file_flags (obfd, flags))
950d48e7 1368 {
77f762d6 1369 bfd_nonfatal (bfd_get_archive_filename (ibfd));
950d48e7
NC		 1370 return FALSE;
1371 }
4dd67f29 1372 }
252b5132 1373
594ef5db 1374 /* Copy architecture of input file to output file. */
66491ebc
AM		 1375 iarch = bfd_get_arch (ibfd);
1376 imach = bfd_get_mach (ibfd);
1377 if (!bfd_set_arch_mach (obfd, iarch, imach)
212a3c4d
L		 1378 && (ibfd->target_defaulted
1379 || bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
f57a841a
NC		 1380 {
1381 if (bfd_get_arch (ibfd) == bfd_arch_unknown)
77f762d6
L		 1382 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1383 bfd_get_archive_filename (ibfd));
f57a841a 1384 else
77f762d6
L		 1385 non_fatal (_("Warning: Output file cannot represent architecture `%s'"),
1386 bfd_printable_arch_mach (bfd_get_arch (ibfd),
1387 bfd_get_mach (ibfd)));
1388 return FALSE;
f57a841a 1389 }
57938635 1390
252b5132 1391 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
950d48e7 1392 {
77f762d6 1393 bfd_nonfatal (bfd_get_archive_filename (ibfd));
950d48e7
NC		 1394 return FALSE;
1395 }
252b5132
RH		 1396
1397 if (isympp)
62d732f5 1398 free (isympp);
57938635 1399
252b5132 1400 if (osympp != isympp)
62d732f5
AM		 1401 free (osympp);
1402
1403 isympp = NULL;
1404 osympp = NULL;
252b5132 1405
c39ada54
AM		 1406 symsize = bfd_get_symtab_upper_bound (ibfd);
1407 if (symsize < 0)
1408 {
1409 bfd_nonfatal (bfd_get_archive_filename (ibfd));
1410 return FALSE;
1411 }
1412
1413 osympp = isympp = xmalloc (symsize);
1414 symcount = bfd_canonicalize_symtab (ibfd, isympp);
1415 if (symcount < 0)
1416 {
1417 bfd_nonfatal (bfd_get_filename (ibfd));
1418 return FALSE;
1419 }
1420
252b5132
RH		 1421 /* BFD mandates that all output sections be created and sizes set before
1422 any output is done. Thus, we traverse all sections multiple times. */
d3ba0551 1423 bfd_map_over_sections (ibfd, setup_section, obfd);
252b5132 1424
42bb2e33 1425 setup_bfd_headers (ibfd, obfd);
80fccad2 1426
252b5132
RH		 1427 if (add_sections != NULL)
1428 {
1429 struct section_add *padd;
1430 struct section_list *pset;
1431
1432 for (padd = add_sections; padd != NULL; padd = padd->next)
1433 {
2593f09a
NC		 1434 flagword flags;
1435
551b43fd
AM		 1436 pset = find_section_list (padd->name, FALSE);
1437 if (pset != NULL)
1438 pset->used = TRUE;
1439
1440 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
1441 if (pset != NULL && pset->set_flags)
1442 flags = pset->flags | SEC_HAS_CONTENTS;
1443
c8782eee
NC		 1444 /* bfd_make_section_with_flags() does not return very helpful
1445 error codes, so check for the most likely user error first. */
1446 if (bfd_get_section_by_name (obfd, padd->name))
252b5132 1447 {
c8782eee 1448 non_fatal (_("can't add section '%s' - it already exists!"), padd->name);
950d48e7 1449 return FALSE;
252b5132 1450 }
c8782eee
NC		 1451 else
1452 {
1453 padd->section = bfd_make_section_with_flags (obfd, padd->name, flags);
1454 if (padd->section == NULL)
1455 {
1456 non_fatal (_("can't create section `%s': %s"),
1457 padd->name, bfd_errmsg (bfd_get_error ()));
1458 return FALSE;
1459 }
1460 }
252b5132 1461
2593f09a 1462 if (! bfd_set_section_size (obfd, padd->section, padd->size))
950d48e7
NC		 1463 {
1464 bfd_nonfatal (bfd_get_filename (obfd));
1465 return FALSE;
1466 }
252b5132 1467
2593f09a
NC		 1468 if (pset != NULL)
1469 {
1470 if (pset->change_vma != CHANGE_IGNORE)
84e2f313
NC		 1471 if (! bfd_set_section_vma (obfd, padd->section,
1472 pset->vma_val))
950d48e7
NC		 1473 {
1474 bfd_nonfatal (bfd_get_filename (obfd));
1475 return FALSE;
1476 }
57938635 1477
2593f09a
NC		 1478 if (pset->change_lma != CHANGE_IGNORE)
1479 {
1480 padd->section->lma = pset->lma_val;
950d48e7 1481
2593f09a
NC		 1482 if (! bfd_set_section_alignment
1483 (obfd, padd->section,
1484 bfd_section_alignment (obfd, padd->section)))
950d48e7
NC		 1485 {
1486 bfd_nonfatal (bfd_get_filename (obfd));
1487 return FALSE;
1488 }
252b5132
RH		 1489 }
1490 }
1491 }
1492 }
1493
2593f09a
NC		 1494 if (gnu_debuglink_filename != NULL)
1495 {
84e2f313
NC		 1496 gnu_debuglink_section = bfd_create_gnu_debuglink_section
1497 (obfd, gnu_debuglink_filename);
e7c81c25
NC		 1498
1499 if (gnu_debuglink_section == NULL)
950d48e7
NC		 1500 {
1501 bfd_nonfatal (gnu_debuglink_filename);
1502 return FALSE;
1503 }
6e2c86ac
NC		 1504
1505 /* Special processing for PE format files. We
1506 have no way to distinguish PE from COFF here. */
1507 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
1508 {
1509 bfd_vma debuglink_vma;
1510 asection * highest_section;
1511 asection * sec;
1512
1513 /* The PE spec requires that all sections be adjacent and sorted
1514 in ascending order of VMA. It also specifies that debug
1515 sections should be last. This is despite the fact that debug
1516 sections are not loaded into memory and so in theory have no
1517 use for a VMA.
1518
1519 This means that the debuglink section must be given a non-zero
1520 VMA which makes it contiguous with other debug sections. So
1521 walk the current section list, find the section with the
1522 highest VMA and start the debuglink section after that one. */
1523 for (sec = obfd->sections, highest_section = NULL;
1524 sec != NULL;
1525 sec = sec->next)
1526 if (sec->vma > 0
1527 && (highest_section == NULL
1528 || sec->vma > highest_section->vma))
1529 highest_section = sec;
1530
1531 if (highest_section)
1532 debuglink_vma = BFD_ALIGN (highest_section->vma
1533 + highest_section->size,
1534 /* FIXME: We ought to be using
1535 COFF_PAGE_SIZE here or maybe
1536 bfd_get_section_alignment() (if it
1537 was set) but since this is for PE
1538 and we know the required alignment
1539 it is easier just to hard code it. */
1540 0x1000);
1541 else
1542 /* Umm, not sure what to do in this case. */
1543 debuglink_vma = 0x1000;
1544
1545 bfd_set_section_vma (obfd, gnu_debuglink_section, debuglink_vma);
1546 }
950d48e7
NC		 1547 }
1548
1aa9ef63
L		 1549 if (bfd_count_sections (obfd) != 0
1550 && (gap_fill_set || pad_to_set))
252b5132
RH		 1551 {
1552 asection **set;
1553 unsigned int c, i;
1554
1555 /* We must fill in gaps between the sections and/or we must pad
1556 the last section to a specified address. We do this by
1557 grabbing a list of the sections, sorting them by VMA, and
1558 increasing the section sizes as required to fill the gaps.
1559 We write out the gap contents below. */
1560
1561 c = bfd_count_sections (obfd);
d3ba0551 1562 osections = xmalloc (c * sizeof (asection *));
252b5132 1563 set = osections;
d3ba0551 1564 bfd_map_over_sections (obfd, get_sections, &set);
252b5132
RH		 1565
1566 qsort (osections, c, sizeof (asection *), compare_section_lma);
1567
d3ba0551 1568 gaps = xmalloc (c * sizeof (bfd_size_type));
252b5132
RH		 1569 memset (gaps, 0, c * sizeof (bfd_size_type));
1570
1571 if (gap_fill_set)
1572 {
1573 for (i = 0; i < c - 1; i++)
1574 {
1575 flagword flags;
1576 bfd_size_type size;
1577 bfd_vma gap_start, gap_stop;
1578
1579 flags = bfd_get_section_flags (obfd, osections[i]);
1580 if ((flags & SEC_HAS_CONTENTS) == 0
1581 || (flags & SEC_LOAD) == 0)
1582 continue;
1583
1584 size = bfd_section_size (obfd, osections[i]);
1585 gap_start = bfd_section_lma (obfd, osections[i]) + size;
1586 gap_stop = bfd_section_lma (obfd, osections[i + 1]);
1587 if (gap_start < gap_stop)
1588 {
1589 if (! bfd_set_section_size (obfd, osections[i],
1590 size + (gap_stop - gap_start)))
1591 {
1592 non_fatal (_("Can't fill gap after %s: %s"),
0af11b59
KH		 1593 bfd_get_section_name (obfd, osections[i]),
1594 bfd_errmsg (bfd_get_error ()));
252b5132
RH		 1595 status = 1;
1596 break;
1597 }
1598 gaps[i] = gap_stop - gap_start;
1599 if (max_gap < gap_stop - gap_start)
1600 max_gap = gap_stop - gap_start;
1601 }
1602 }
1603 }
1604
1605 if (pad_to_set)
1606 {
1607 bfd_vma lma;
1608 bfd_size_type size;
1609
1610 lma = bfd_section_lma (obfd, osections[c - 1]);
1611 size = bfd_section_size (obfd, osections[c - 1]);
1612 if (lma + size < pad_to)
1613 {
1614 if (! bfd_set_section_size (obfd, osections[c - 1],
1615 pad_to - lma))
1616 {
1617 non_fatal (_("Can't add padding to %s: %s"),
0af11b59
KH		 1618 bfd_get_section_name (obfd, osections[c - 1]),
1619 bfd_errmsg (bfd_get_error ()));
252b5132
RH		 1620 status = 1;
1621 }
1622 else
1623 {
1624 gaps[c - 1] = pad_to - (lma + size);
1625 if (max_gap < pad_to - (lma + size))
1626 max_gap = pad_to - (lma + size);
1627 }
1628 }
1629 }
1630 }
1631
594ef5db
NC		 1632 /* Symbol filtering must happen after the output sections
1633 have been created, but before their contents are set. */
252b5132 1634 dhandle = NULL;
252b5132
RH		 1635 if (convert_debugging)
1636 dhandle = read_debugging_info (ibfd, isympp, symcount);
57938635
AM		 1637
1638 if (strip_symbols == STRIP_DEBUG
252b5132
RH		 1639 || strip_symbols == STRIP_ALL
1640 || strip_symbols == STRIP_UNNEEDED
ed1653a7 1641 || strip_symbols == STRIP_NONDEBUG
252b5132 1642 || discard_locals != LOCALS_UNDEF
d58c2e3a 1643 || localize_hidden
252b5132
RH		 1644 || strip_specific_list != NULL
1645 || keep_specific_list != NULL
1646 || localize_specific_list != NULL
7b4a0685 1647 || globalize_specific_list != NULL
16b2b71c 1648 || keepglobal_specific_list != NULL
252b5132 1649 || weaken_specific_list != NULL
d7fb0dd2 1650 || prefix_symbols_string
252b5132 1651 || sections_removed
f91ea849 1652 || sections_copied
252b5132
RH		 1653 || convert_debugging
1654 || change_leading_char
1655 || remove_leading_char
57938635 1656 || redefine_sym_list
252b5132
RH		 1657 || weaken)
1658 {
1659 /* Mark symbols used in output relocations so that they
1660 are kept, even if they are local labels or static symbols.
57938635 1661
252b5132
RH		 1662 Note we iterate over the input sections examining their
1663 relocations since the relocations for the output sections
1664 haven't been set yet. mark_symbols_used_in_relocations will
1665 ignore input sections which have no corresponding output
1666 section. */
1667 if (strip_symbols != STRIP_ALL)
1668 bfd_map_over_sections (ibfd,
1669 mark_symbols_used_in_relocations,
d3ba0551
AM		 1670 isympp);
1671 osympp = xmalloc ((symcount + 1) * sizeof (asymbol *));
252b5132
RH		 1672 symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
1673 }
1674
1675 if (convert_debugging && dhandle != NULL)
1676 {
1677 if (! write_debugging_info (obfd, dhandle, &symcount, &osympp))
1678 {
1679 status = 1;
950d48e7 1680 return FALSE;
252b5132
RH		 1681 }
1682 }
1683
1684 bfd_set_symtab (obfd, osympp, symcount);
1685
1686 /* This has to happen after the symbol table has been set. */
d3ba0551 1687 bfd_map_over_sections (ibfd, copy_section, obfd);
252b5132
RH		 1688
1689 if (add_sections != NULL)
1690 {
1691 struct section_add *padd;
1692
1693 for (padd = add_sections; padd != NULL; padd = padd->next)
1694 {
d3ba0551
AM		 1695 if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
1696 0, padd->size))
950d48e7
NC		 1697 {
1698 bfd_nonfatal (bfd_get_filename (obfd));
1699 return FALSE;
1700 }
252b5132
RH		 1701 }
1702 }
1703
e7c81c25
NC		 1704 if (gnu_debuglink_filename != NULL)
1705 {
1706 if (! bfd_fill_in_gnu_debuglink_section
1707 (obfd, gnu_debuglink_section, gnu_debuglink_filename))
950d48e7
NC		 1708 {
1709 bfd_nonfatal (gnu_debuglink_filename);
1710 return FALSE;
1711 }
e7c81c25
NC		 1712 }
1713
252b5132
RH		 1714 if (gap_fill_set || pad_to_set)
1715 {
1716 bfd_byte *buf;
1717 int c, i;
1718
1719 /* Fill in the gaps. */
252b5132
RH		 1720 if (max_gap > 8192)
1721 max_gap = 8192;
d3ba0551
AM		 1722 buf = xmalloc (max_gap);
1723 memset (buf, gap_fill, max_gap);
252b5132
RH		 1724
1725 c = bfd_count_sections (obfd);
1726 for (i = 0; i < c; i++)
1727 {
1728 if (gaps[i] != 0)
1729 {
1730 bfd_size_type left;
1731 file_ptr off;
1732
1733 left = gaps[i];
1734 off = bfd_section_size (obfd, osections[i]) - left;
594ef5db 1735
252b5132
RH		 1736 while (left > 0)
1737 {
1738 bfd_size_type now;
1739
1740 if (left > 8192)
1741 now = 8192;
1742 else
1743 now = left;
1744
1745 if (! bfd_set_section_contents (obfd, osections[i], buf,
1746 off, now))
950d48e7
NC		 1747 {
1748 bfd_nonfatal (bfd_get_filename (obfd));
1749 return FALSE;
1750 }
252b5132
RH		 1751
1752 left -= now;
1753 off += now;
1754 }
1755 }
1756 }
1757 }
1758
d3e52d40
RS		 1759 /* Do not copy backend data if --extract-symbol is passed; anything
1760 that needs to look at the section contents will fail. */
1761 if (extract_symbol)
1762 return TRUE;
1763
252b5132
RH		 1764 /* Allow the BFD backend to copy any private data it understands
1765 from the input BFD to the output BFD. This is done last to
1766 permit the routine to look at the filtered symbol table, which is
1767 important for the ECOFF code at least. */
42bb2e33 1768 if (! bfd_copy_private_bfd_data (ibfd, obfd))
252b5132
RH		 1769 {
1770 non_fatal (_("%s: error copying private BFD data: %s"),
1771 bfd_get_filename (obfd),
1772 bfd_errmsg (bfd_get_error ()));
950d48e7 1773 return FALSE;
252b5132 1774 }
1ae8b3d2
AO		 1775
1776 /* Switch to the alternate machine code. We have to do this at the
1777 very end, because we only initialize the header when we create
1778 the first section. */
f9d4ad2a
NC		 1779 if (use_alt_mach_code != 0)
1780 {
1781 if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
1782 {
1783 non_fatal (_("this target does not support %lu alternative machine codes"),
1784 use_alt_mach_code);
1785 if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
1786 {
1787 non_fatal (_("treating that number as an absolute e_machine value instead"));
1788 elf_elfheader (obfd)->e_machine = use_alt_mach_code;
1789 }
1790 else
1791 non_fatal (_("ignoring the alternative value"));
1792 }
1793 }
950d48e7
NC		 1794
1795 return TRUE;
252b5132
RH		 1796}
1797
1798/* Read each archive element in turn from IBFD, copy the
ee873e00
NC		 1799 contents to temp file, and keep the temp file handle.
1800 If 'force_output_target' is TRUE then make sure that
1801 all elements in the new archive are of the type
1802 'output_target'. */
252b5132
RH		 1803
1804static void
ee873e00
NC		 1805copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
1806 bfd_boolean force_output_target)
252b5132
RH		 1807{
1808 struct name_list
1809 {
1810 struct name_list *next;
4c168fa3 1811 const char *name;
252b5132
RH		 1812 bfd *obfd;
1813 } *list, *l;
1814 bfd **ptr = &obfd->archive_head;
1815 bfd *this_element;
f9c026a8 1816 char * dir;
252b5132
RH		 1817
1818 /* Make a temp directory to hold the contents. */
f9c026a8 1819 dir = make_tempdir (bfd_get_filename (obfd));
f9c026a8
NC		 1820 if (dir == NULL)
1821 fatal (_("cannot create tempdir for archive copying (error: %s)"),
1822 strerror (errno));
84e2f313 1823
252b5132
RH		 1824 obfd->has_armap = ibfd->has_armap;
1825
1826 list = NULL;
1827
1828 this_element = bfd_openr_next_archived_file (ibfd, NULL);
594ef5db 1829
b667df2e
AM		 1830 if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
1831 RETURN_NONFATAL (bfd_get_filename (obfd));
1832
d3ba0551 1833 while (!status && this_element != NULL)
252b5132 1834 {
4c168fa3
AM		 1835 char *output_name;
1836 bfd *output_bfd;
252b5132 1837 bfd *last_element;
8066d1a2
AS		 1838 struct stat buf;
1839 int stat_status = 0;
950d48e7 1840 bfd_boolean delete = TRUE;
8066d1a2 1841
4c168fa3
AM		 1842 /* Create an output file for this member. */
1843 output_name = concat (dir, "/",
1844 bfd_get_filename (this_element), (char *) 0);
1845
1846 /* If the file already exists, make another temp dir. */
1847 if (stat (output_name, &buf) >= 0)
1848 {
f9c026a8
NC		 1849 output_name = make_tempdir (output_name);
1850 if (output_name == NULL)
485be063
AM		 1851 fatal (_("cannot create tempdir for archive copying (error: %s)"),
1852 strerror (errno));
84e2f313 1853
d3ba0551 1854 l = xmalloc (sizeof (struct name_list));
4c168fa3
AM		 1855 l->name = output_name;
1856 l->next = list;
1857 l->obfd = NULL;
1858 list = l;
1859 output_name = concat (output_name, "/",
1860 bfd_get_filename (this_element), (char *) 0);
1861 }
1862
8066d1a2
AS		 1863 if (preserve_dates)
1864 {
1865 stat_status = bfd_stat_arch_elt (this_element, &buf);
594ef5db 1866
8066d1a2
AS		 1867 if (stat_status != 0)
1868 non_fatal (_("internal stat error on %s"),
1869 bfd_get_filename (this_element));
1870 }
252b5132 1871
d3ba0551 1872 l = xmalloc (sizeof (struct name_list));
252b5132
RH		 1873 l->name = output_name;
1874 l->next = list;
bee59fd2 1875 l->obfd = NULL;
252b5132
RH		 1876 list = l;
1877
b34976b6 1878 if (bfd_check_format (this_element, bfd_object))
77f762d6 1879 {
ee873e00
NC		 1880 /* PR binutils/3110: Cope with archives
1881 containing multiple target types. */
1882 if (force_output_target)
1883 output_bfd = bfd_openw (output_name, output_target);
1884 else
1885 output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
1886
1887 if (output_bfd == NULL)
1888 RETURN_NONFATAL (output_name);
1889
77f762d6 1890 delete = ! copy_object (this_element, output_bfd);
252b5132 1891
77f762d6
L		 1892 if (! delete
1893 || bfd_get_arch (this_element) != bfd_arch_unknown)
1894 {
1895 if (!bfd_close (output_bfd))
1896 {
1897 bfd_nonfatal (bfd_get_filename (output_bfd));
1898 /* Error in new object file. Don't change archive. */
1899 status = 1;
1900 }
1901 }
1902 else
1903 goto copy_unknown_element;
1904 }
1905 else
252b5132 1906 {
77f762d6
L		 1907 non_fatal (_("Unable to recognise the format of the input file `%s'"),
1908 bfd_get_archive_filename (this_element));
1909
ee873e00 1910 output_bfd = bfd_openw (output_name, output_target);
77f762d6
L		 1911copy_unknown_element:
1912 delete = !copy_unknown_object (this_element, output_bfd);
1913 if (!bfd_close_all_done (output_bfd))
1914 {
1915 bfd_nonfatal (bfd_get_filename (output_bfd));
1916 /* Error in new object file. Don't change archive. */
1917 status = 1;
1918 }
252b5132
RH		 1919 }
1920
950d48e7
NC		 1921 if (delete)
1922 {
1923 unlink (output_name);
1924 status = 1;
1925 }
1926 else
1927 {
1928 if (preserve_dates && stat_status == 0)
1929 set_times (output_name, &buf);
8066d1a2 1930
950d48e7
NC		 1931 /* Open the newly output file and attach to our list. */
1932 output_bfd = bfd_openr (output_name, output_target);
252b5132 1933
950d48e7 1934 l->obfd = output_bfd;
252b5132 1935
950d48e7 1936 *ptr = output_bfd;
cc481421 1937 ptr = &output_bfd->archive_next;
252b5132 1938
950d48e7 1939 last_element = this_element;
252b5132 1940
950d48e7 1941 this_element = bfd_openr_next_archived_file (ibfd, last_element);
252b5132 1942
950d48e7
NC		 1943 bfd_close (last_element);
1944 }
252b5132 1945 }
d3ba0551 1946 *ptr = NULL;
252b5132
RH		 1947
1948 if (!bfd_close (obfd))
1949 RETURN_NONFATAL (bfd_get_filename (obfd));
1950
1951 if (!bfd_close (ibfd))
1952 RETURN_NONFATAL (bfd_get_filename (ibfd));
1953
1954 /* Delete all the files that we opened. */
1955 for (l = list; l != NULL; l = l->next)
1956 {
4c168fa3
AM		 1957 if (l->obfd == NULL)
1958 rmdir (l->name);
1959 else
1960 {
1961 bfd_close (l->obfd);
1962 unlink (l->name);
1963 }
252b5132
RH		 1964 }
1965 rmdir (dir);
1966}
1967
1968/* The top-level control. */
1969
1970static void
84e2f313
NC		 1971copy_file (const char *input_filename, const char *output_filename,
1972 const char *input_target, const char *output_target)
252b5132
RH		 1973{
1974 bfd *ibfd;
49c12576
AM		 1975 char **obj_matching;
1976 char **core_matching;
252b5132 1977
f24ddbdd
NC		 1978 if (get_file_size (input_filename) < 1)
1979 {
1980 status = 1;
1981 return;
1982 }
1983
252b5132
RH		 1984 /* To allow us to do "strip *" without dying on the first
1985 non-object file, failures are nonfatal. */
252b5132
RH		 1986 ibfd = bfd_openr (input_filename, input_target);
1987 if (ibfd == NULL)
1988 RETURN_NONFATAL (input_filename);
1989
1990 if (bfd_check_format (ibfd, bfd_archive))
1991 {
ee873e00 1992 bfd_boolean force_output_target;
252b5132
RH		 1993 bfd *obfd;
1994
1995 /* bfd_get_target does not return the correct value until
1996 bfd_check_format succeeds. */
1997 if (output_target == NULL)
ee873e00
NC		 1998 {
1999 output_target = bfd_get_target (ibfd);
2000 force_output_target = FALSE;
2001 }
2002 else
2003 force_output_target = TRUE;
252b5132
RH		 2004
2005 obfd = bfd_openw (output_filename, output_target);
2006 if (obfd == NULL)
2007 RETURN_NONFATAL (output_filename);
2008
ee873e00 2009 copy_archive (ibfd, obfd, output_target, force_output_target);
252b5132 2010 }
49c12576 2011 else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
252b5132
RH		 2012 {
2013 bfd *obfd;
49c12576 2014 do_copy:
950d48e7 2015
252b5132
RH		 2016 /* bfd_get_target does not return the correct value until
2017 bfd_check_format succeeds. */
2018 if (output_target == NULL)
2019 output_target = bfd_get_target (ibfd);
2020
2021 obfd = bfd_openw (output_filename, output_target);
2022 if (obfd == NULL)
2023 RETURN_NONFATAL (output_filename);
2024
a580b8e0
JB		 2025 if (! copy_object (ibfd, obfd))
2026 status = 1;
252b5132
RH		 2027
2028 if (!bfd_close (obfd))
2029 RETURN_NONFATAL (output_filename);
2030
2031 if (!bfd_close (ibfd))
2032 RETURN_NONFATAL (input_filename);
950d48e7 2033
252b5132
RH		 2034 }
2035 else
2036 {
49c12576
AM		 2037 bfd_error_type obj_error = bfd_get_error ();
2038 bfd_error_type core_error;
b34976b6 2039
49c12576
AM		 2040 if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
2041 {
2042 /* This probably can't happen.. */
2043 if (obj_error == bfd_error_file_ambiguously_recognized)
2044 free (obj_matching);
2045 goto do_copy;
2046 }
2047
2048 core_error = bfd_get_error ();
2049 /* Report the object error in preference to the core error. */
2050 if (obj_error != core_error)
2051 bfd_set_error (obj_error);
2052
252b5132 2053 bfd_nonfatal (input_filename);
57938635 2054
49c12576
AM		 2055 if (obj_error == bfd_error_file_ambiguously_recognized)
2056 {
2057 list_matching_formats (obj_matching);
2058 free (obj_matching);
2059 }
2060 if (core_error == bfd_error_file_ambiguously_recognized)
252b5132 2061 {
49c12576
AM		 2062 list_matching_formats (core_matching);
2063 free (core_matching);
252b5132 2064 }
57938635 2065
252b5132
RH		 2066 status = 1;
2067 }
2068}
2069
594ef5db
NC		 2070/* Add a name to the section renaming list. */
2071
2072static void
84e2f313
NC		 2073add_section_rename (const char * old_name, const char * new_name,
2074 flagword flags)
594ef5db
NC		 2075{
2076 section_rename * rename;
2077
2078 /* Check for conflicts first. */
2079 for (rename = section_rename_list; rename != NULL; rename = rename->next)
2080 if (strcmp (rename->old_name, old_name) == 0)
2081 {
2082 /* Silently ignore duplicate definitions. */
2083 if (strcmp (rename->new_name, new_name) == 0
2084 && rename->flags == flags)
2085 return;
0af11b59 2086
594ef5db
NC		 2087 fatal (_("Multiple renames of section %s"), old_name);
2088 }
2089
d3ba0551 2090 rename = xmalloc (sizeof (* rename));
594ef5db
NC		 2091
2092 rename->old_name = old_name;
2093 rename->new_name = new_name;
2094 rename->flags = flags;
2095 rename->next = section_rename_list;
0af11b59 2096
594ef5db
NC		 2097 section_rename_list = rename;
2098}
2099
2100/* Check the section rename list for a new name of the input section
2101 ISECTION. Return the new name if one is found.
2102 Also set RETURNED_FLAGS to the flags to be used for this section. */
2103
2104static const char *
84e2f313
NC		 2105find_section_rename (bfd * ibfd ATTRIBUTE_UNUSED, sec_ptr isection,
2106 flagword * returned_flags)
594ef5db
NC		 2107{
2108 const char * old_name = bfd_section_name (ibfd, isection);
2109 section_rename * rename;
2110
2111 /* Default to using the flags of the input section. */
2112 * returned_flags = bfd_get_section_flags (ibfd, isection);
2113
2114 for (rename = section_rename_list; rename != NULL; rename = rename->next)
2115 if (strcmp (rename->old_name, old_name) == 0)
2116 {
2117 if (rename->flags != (flagword) -1)
2118 * returned_flags = rename->flags;
2119
2120 return rename->new_name;
2121 }
2122
2123 return old_name;
2124}
2125
80fccad2
BW		 2126/* Once each of the sections is copied, we may still need to do some
2127 finalization work for private section headers. Do that here. */
2128
2129static void
2130setup_bfd_headers (bfd *ibfd, bfd *obfd)
2131{
2132 const char *err;
2133
2134 /* Allow the BFD backend to copy any private data it understands
2135 from the input section to the output section. */
2136 if (! bfd_copy_private_header_data (ibfd, obfd))
2137 {
2138 err = _("private header data");
2139 goto loser;
2140 }
2141
2142 /* All went well. */
2143 return;
2144
2145loser:
2146 non_fatal (_("%s: error in %s: %s"),
2147 bfd_get_filename (ibfd),
2148 err, bfd_errmsg (bfd_get_error ()));
2149 status = 1;
2150}
2151
594ef5db
NC		 2152/* Create a section in OBFD with the same
2153 name and attributes as ISECTION in IBFD. */
252b5132
RH		 2154
2155static void
84e2f313 2156setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 2157{
d3ba0551 2158 bfd *obfd = obfdarg;
252b5132
RH		 2159 struct section_list *p;
2160 sec_ptr osection;
2161 bfd_size_type size;
2162 bfd_vma vma;
2163 bfd_vma lma;
2164 flagword flags;
1a89cc7d 2165 const char *err;
594ef5db 2166 const char * name;
d7fb0dd2 2167 char *prefix = NULL;
66125551 2168 bfd_boolean make_nobits;
0af11b59 2169
2593f09a 2170 if (is_strip_section (ibfd, isection))
252b5132
RH		 2171 return;
2172
b34976b6 2173 p = find_section_list (bfd_section_name (ibfd, isection), FALSE);
252b5132 2174 if (p != NULL)
b34976b6 2175 p->used = TRUE;
252b5132 2176
594ef5db
NC		 2177 /* Get the, possibly new, name of the output section. */
2178 name = find_section_rename (ibfd, isection, & flags);
0af11b59 2179
d7fb0dd2 2180 /* Prefix sections. */
84e2f313
NC		 2181 if ((prefix_alloc_sections_string)
2182 && (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
d7fb0dd2
NC		 2183 prefix = prefix_alloc_sections_string;
2184 else if (prefix_sections_string)
2185 prefix = prefix_sections_string;
2186
2187 if (prefix)
2188 {
2189 char *n;
2190
2191 n = xmalloc (strlen (prefix) + strlen (name) + 1);
2192 strcpy (n, prefix);
2193 strcat (n, name);
2194 name = n;
2195 }
66491ebc 2196
66125551 2197 make_nobits = FALSE;
551b43fd
AM		 2198 if (p != NULL && p->set_flags)
2199 flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
42bb2e33 2200 else if (strip_symbols == STRIP_NONDEBUG
66125551
AM		 2201 && (flags & SEC_ALLOC) != 0
2202 && (ibfd->xvec->flavour != bfd_target_elf_flavour
2203 || elf_section_type (isection) != SHT_NOTE))
2204 {
2205 flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD);
2206 if (obfd->xvec->flavour == bfd_target_elf_flavour)
2207 {
2208 make_nobits = TRUE;
2209
2210 /* Twiddle the input section flags so that it seems to
2211 elf.c:copy_private_bfd_data that section flags have not
2212 changed between input and output sections. This hack
2213 prevents wholesale rewriting of the program headers. */
2214 isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD);
2215 }
2216 }
551b43fd
AM		 2217
2218 osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
57938635 2219
252b5132
RH		 2220 if (osection == NULL)
2221 {
1a89cc7d 2222 err = _("making");
252b5132
RH		 2223 goto loser;
2224 }
2225
66125551 2226 if (make_nobits)
551b43fd
AM		 2227 elf_section_type (osection) = SHT_NOBITS;
2228
252b5132
RH		 2229 size = bfd_section_size (ibfd, isection);
2230 if (copy_byte >= 0)
2231 size = (size + interleave - 1) / interleave;
d3e52d40
RS		 2232 else if (extract_symbol)
2233 size = 0;
252b5132
RH		 2234 if (! bfd_set_section_size (obfd, osection, size))
2235 {
1a89cc7d 2236 err = _("size");
252b5132
RH		 2237 goto loser;
2238 }
57938635 2239
252b5132
RH		 2240 vma = bfd_section_vma (ibfd, isection);
2241 if (p != NULL && p->change_vma == CHANGE_MODIFY)
2242 vma += p->vma_val;
2243 else if (p != NULL && p->change_vma == CHANGE_SET)
2244 vma = p->vma_val;
2245 else
2246 vma += change_section_address;
57938635 2247
d3e52d40 2248 if (! bfd_set_section_vma (obfd, osection, extract_symbol ? 0 : vma))
252b5132 2249 {
1a89cc7d 2250 err = _("vma");
252b5132
RH		 2251 goto loser;
2252 }
2253
2254 lma = isection->lma;
2255 if ((p != NULL) && p->change_lma != CHANGE_IGNORE)
2256 {
2257 if (p->change_lma == CHANGE_MODIFY)
2258 lma += p->lma_val;
2259 else if (p->change_lma == CHANGE_SET)
2260 lma = p->lma_val;
2261 else
2262 abort ();
2263 }
2264 else
2265 lma += change_section_address;
57938635 2266
d3e52d40 2267 osection->lma = extract_symbol ? 0 : lma;
252b5132
RH		 2268
2269 /* FIXME: This is probably not enough. If we change the LMA we
2270 may have to recompute the header for the file as well. */
b34976b6
AM		 2271 if (!bfd_set_section_alignment (obfd,
2272 osection,
2273 bfd_section_alignment (ibfd, isection)))
252b5132 2274 {
1a89cc7d 2275 err = _("alignment");
252b5132
RH		 2276 goto loser;
2277 }
2278
bc408b8a
JJ		 2279 /* Copy merge entity size. */
2280 osection->entsize = isection->entsize;
2281
252b5132
RH		 2282 /* This used to be mangle_section; we do here to avoid using
2283 bfd_get_section_by_name since some formats allow multiple
2284 sections with the same name. */
2285 isection->output_section = osection;
d3e52d40
RS		 2286 isection->output_offset = extract_symbol ? vma : 0;
2287
2288 /* Do not copy backend data if --extract-symbol is passed; anything
2289 that needs to look at the section contents will fail. */
2290 if (extract_symbol)
2291 return;
252b5132
RH		 2292
2293 /* Allow the BFD backend to copy any private data it understands
2294 from the input section to the output section. */
42bb2e33 2295 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 2296 {
1a89cc7d 2297 err = _("private data");
252b5132
RH		 2298 goto loser;
2299 }
30288845 2300 else if ((isection->flags & SEC_GROUP) != 0)
c39ada54 2301 {
30288845 2302 asymbol *gsym = group_signature (isection);
c39ada54 2303
30288845
AM		 2304 if (gsym != NULL)
2305 gsym->flags |= BSF_KEEP;
c39ada54 2306 }
252b5132 2307
594ef5db 2308 /* All went well. */
252b5132
RH		 2309 return;
2310
2311loser:
2312 non_fatal (_("%s: section `%s': error in %s: %s"),
2313 bfd_get_filename (ibfd),
2314 bfd_section_name (ibfd, isection),
2315 err, bfd_errmsg (bfd_get_error ()));
2316 status = 1;
2317}
2318
2319/* Copy the data of input section ISECTION of IBFD
2320 to an output section with the same name in OBFD.
2321 If stripping then don't copy any relocation info. */
2322
2323static void
84e2f313 2324copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
252b5132 2325{
d3ba0551 2326 bfd *obfd = obfdarg;
252b5132
RH		 2327 struct section_list *p;
2328 arelent **relpp;
2329 long relcount;
2330 sec_ptr osection;
2331 bfd_size_type size;
2332 long relsize;
dc156bc0 2333 flagword flags;
252b5132 2334
594ef5db
NC		 2335 /* If we have already failed earlier on,
2336 do not keep on generating complaints now. */
252b5132
RH		 2337 if (status != 0)
2338 return;
57938635 2339
2593f09a 2340 if (is_strip_section (ibfd, isection))
e0c60db2 2341 return;
252b5132 2342
2593f09a 2343 flags = bfd_get_section_flags (ibfd, isection);
dc156bc0
AM		 2344 if ((flags & SEC_GROUP) != 0)
2345 return;
2346
252b5132 2347 osection = isection->output_section;
135dfb4a 2348 size = bfd_get_section_size (isection);
252b5132
RH		 2349
2350 if (size == 0 || osection == 0)
2351 return;
2352
2593f09a
NC		 2353 p = find_section_list (bfd_get_section_name (ibfd, isection), FALSE);
2354
0af11b59 2355 /* Core files do not need to be relocated. */
4dd67f29
MS		 2356 if (bfd_get_format (obfd) == bfd_core)
2357 relsize = 0;
2358 else
ed570f48
NC		 2359 {
2360 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 2361
ed570f48
NC		 2362 if (relsize < 0)
2363 {
2364 /* Do not complain if the target does not support relocations. */
2365 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
2366 relsize = 0;
2367 else
2368 RETURN_NONFATAL (bfd_get_filename (ibfd));
2369 }
2370 }
57938635 2371
252b5132 2372 if (relsize == 0)
d3ba0551 2373 bfd_set_reloc (obfd, osection, NULL, 0);
252b5132
RH		 2374 else
2375 {
d3ba0551 2376 relpp = xmalloc (relsize);
252b5132
RH		 2377 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
2378 if (relcount < 0)
2379 RETURN_NONFATAL (bfd_get_filename (ibfd));
57938635 2380
252b5132
RH		 2381 if (strip_symbols == STRIP_ALL)
2382 {
2383 /* Remove relocations which are not in
0af11b59 2384 keep_strip_specific_list. */
252b5132
RH		 2385 arelent **temp_relpp;
2386 long temp_relcount = 0;
2387 long i;
57938635 2388
d3ba0551 2389 temp_relpp = xmalloc (relsize);
252b5132 2390 for (i = 0; i < relcount; i++)
d3ba0551
AM		 2391 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
2392 keep_specific_list))
252b5132
RH		 2393 temp_relpp [temp_relcount++] = relpp [i];
2394 relcount = temp_relcount;
2395 free (relpp);
2396 relpp = temp_relpp;
2397 }
e0c60db2 2398
d3ba0551 2399 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39
JJ		 2400 if (relcount == 0)
2401 free (relpp);
252b5132 2402 }
57938635 2403
d3e52d40
RS		 2404 if (extract_symbol)
2405 return;
2406
0af11b59 2407 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
4dd67f29 2408 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
252b5132 2409 {
d3ba0551 2410 void *memhunk = xmalloc (size);
252b5132 2411
d3ba0551 2412 if (!bfd_get_section_contents (ibfd, isection, memhunk, 0, size))
252b5132
RH		 2413 RETURN_NONFATAL (bfd_get_filename (ibfd));
2414
9e48b4c6
NC		 2415 if (reverse_bytes)
2416 {
2417 /* We don't handle leftover bytes (too many possible behaviors,
2418 and we don't know what the user wants). The section length
2419 must be a multiple of the number of bytes to swap. */
2420 if ((size % reverse_bytes) == 0)
2421 {
2422 unsigned long i, j;
2423 bfd_byte b;
2424
2425 for (i = 0; i < size; i += reverse_bytes)
2426 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
2427 {
2428 bfd_byte *m = (bfd_byte *) memhunk;
2429
2430 b = m[i + j];
2431 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
2432 m[(i + reverse_bytes) - (j + 1)] = b;
2433 }
2434 }
2435 else
2436 /* User must pad the section up in order to do this. */
2437 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
2438 bfd_section_name (ibfd, isection), reverse_bytes);
2439 }
2440
57938635 2441 if (copy_byte >= 0)
5e675b72
AM		 2442 {
2443 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 2444 char *from = (char *) memhunk + copy_byte;
5e675b72 2445 char *to = memhunk;
2f01ffbf 2446 char *end = (char *) memhunk + size;
5e675b72
AM		 2447
2448 for (; from < end; from += interleave)
2449 *to++ = *from;
2450
2451 size = (size + interleave - 1 - copy_byte) / interleave;
2452 osection->lma /= interleave;
2453 }
252b5132 2454
d3ba0551 2455 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
252b5132
RH		 2456 RETURN_NONFATAL (bfd_get_filename (obfd));
2457
2458 free (memhunk);
2459 }
2460 else if (p != NULL && p->set_flags && (p->flags & SEC_HAS_CONTENTS) != 0)
2461 {
d3ba0551 2462 void *memhunk = xmalloc (size);
252b5132
RH		 2463
2464 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
2465 flag--they can just remove the section entirely and add it
2466 back again. However, we do permit them to turn on the
2467 SEC_HAS_CONTENTS flag, and take it to mean that the section
2468 contents should be zeroed out. */
2469
2470 memset (memhunk, 0, size);
d3ba0551 2471 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
252b5132
RH		 2472 RETURN_NONFATAL (bfd_get_filename (obfd));
2473 free (memhunk);
2474 }
2475}
2476
2477/* Get all the sections. This is used when --gap-fill or --pad-to is
2478 used. */
2479
2480static void
84e2f313 2481get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 2482{
d3ba0551 2483 asection ***secppp = secppparg;
252b5132
RH		 2484
2485 **secppp = osection;
2486 ++(*secppp);
2487}
2488
2489/* Sort sections by VMA. This is called via qsort, and is used when
2490 --gap-fill or --pad-to is used. We force non loadable or empty
2491 sections to the front, where they are easier to ignore. */
2492
2493static int
84e2f313 2494compare_section_lma (const void *arg1, const void *arg2)
252b5132 2495{
d3ba0551
AM		 2496 const asection *const *sec1 = arg1;
2497 const asection *const *sec2 = arg2;
252b5132
RH		 2498 flagword flags1, flags2;
2499
2500 /* Sort non loadable sections to the front. */
2501 flags1 = (*sec1)->flags;
2502 flags2 = (*sec2)->flags;
2503 if ((flags1 & SEC_HAS_CONTENTS) == 0
2504 || (flags1 & SEC_LOAD) == 0)
2505 {
2506 if ((flags2 & SEC_HAS_CONTENTS) != 0
2507 && (flags2 & SEC_LOAD) != 0)
2508 return -1;
2509 }
2510 else
2511 {
2512 if ((flags2 & SEC_HAS_CONTENTS) == 0
2513 || (flags2 & SEC_LOAD) == 0)
2514 return 1;
2515 }
2516
2517 /* Sort sections by LMA. */
2518 if ((*sec1)->lma > (*sec2)->lma)
2519 return 1;
2520 else if ((*sec1)->lma < (*sec2)->lma)
2521 return -1;
2522
2523 /* Sort sections with the same LMA by size. */
135dfb4a 2524 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
252b5132 2525 return 1;
135dfb4a 2526 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
252b5132
RH		 2527 return -1;
2528
2529 return 0;
2530}
2531
2532/* Mark all the symbols which will be used in output relocations with
2533 the BSF_KEEP flag so that those symbols will not be stripped.
2534
2535 Ignore relocations which will not appear in the output file. */
2536
2537static void
84e2f313 2538mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 2539{
d3ba0551 2540 asymbol **symbols = symbolsarg;
252b5132
RH		 2541 long relsize;
2542 arelent **relpp;
2543 long relcount, i;
2544
2545 /* Ignore an input section with no corresponding output section. */
2546 if (isection->output_section == NULL)
2547 return;
2548
2549 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
2550 if (relsize < 0)
ed570f48
NC		 2551 {
2552 /* Do not complain if the target does not support relocations. */
2553 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
2554 return;
2555 bfd_fatal (bfd_get_filename (ibfd));
2556 }
252b5132
RH		 2557
2558 if (relsize == 0)
2559 return;
2560
d3ba0551 2561 relpp = xmalloc (relsize);
252b5132
RH		 2562 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
2563 if (relcount < 0)
2564 bfd_fatal (bfd_get_filename (ibfd));
2565
ec5d57d5
NC		 2566 /* Examine each symbol used in a relocation. If it's not one of the
2567 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 2568 for (i = 0; i < relcount; i++)
2569 {
ec5d57d5
NC		 2570 if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
2571 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
2572 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
2573 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 2574 }
2575
2576 if (relpp != NULL)
2577 free (relpp);
2578}
2579
2580/* Write out debugging information. */
2581
b34976b6 2582static bfd_boolean
84e2f313
NC		 2583write_debugging_info (bfd *obfd, void *dhandle,
2584 long *symcountp ATTRIBUTE_UNUSED,
2585 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132
RH		 2586{
2587 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
2588 return write_ieee_debugging_info (obfd, dhandle);
2589
2590 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
2591 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
2592 {
2593 bfd_byte *syms, *strings;
2594 bfd_size_type symsize, stringsize;
2595 asection *stabsec, *stabstrsec;
551b43fd 2596 flagword flags;
252b5132
RH		 2597
2598 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
2599 &symsize, &strings,
2600 &stringsize))
b34976b6 2601 return FALSE;
252b5132 2602
551b43fd
AM		 2603 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
2604 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
2605 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 2606 if (stabsec == NULL
2607 || stabstrsec == NULL
2608 || ! bfd_set_section_size (obfd, stabsec, symsize)
2609 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
2610 || ! bfd_set_section_alignment (obfd, stabsec, 2)
551b43fd 2611 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
252b5132
RH		 2612 {
2613 non_fatal (_("%s: can't create debugging section: %s"),
2614 bfd_get_filename (obfd),
2615 bfd_errmsg (bfd_get_error ()));
b34976b6 2616 return FALSE;
252b5132
RH		 2617 }
2618
2619 /* We can get away with setting the section contents now because
2620 the next thing the caller is going to do is copy over the
2621 real sections. We may someday have to split the contents
2622 setting out of this function. */
d3ba0551
AM		 2623 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
2624 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
2625 stringsize))
252b5132
RH		 2626 {
2627 non_fatal (_("%s: can't set debugging section contents: %s"),
2628 bfd_get_filename (obfd),
2629 bfd_errmsg (bfd_get_error ()));
b34976b6 2630 return FALSE;
252b5132
RH		 2631 }
2632
b34976b6 2633 return TRUE;
252b5132
RH		 2634 }
2635
2636 non_fatal (_("%s: don't know how to write debugging information for %s"),
2637 bfd_get_filename (obfd), bfd_get_target (obfd));
b34976b6 2638 return FALSE;
252b5132
RH		 2639}
2640
2641static int
84e2f313 2642strip_main (int argc, char *argv[])
252b5132 2643{
7c29036b
NC		 2644 char *input_target = NULL;
2645 char *output_target = NULL;
b34976b6 2646 bfd_boolean show_version = FALSE;
7c29036b
NC		 2647 bfd_boolean formats_info = FALSE;
2648 int c;
2649 int i;
252b5132
RH		 2650 struct section_list *p;
2651 char *output_file = NULL;
2652
5fe11841 2653 while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
252b5132
RH		 2654 strip_options, (int *) 0)) != EOF)
2655 {
2656 switch (c)
2657 {
2658 case 'I':
2659 input_target = optarg;
2660 break;
2661 case 'O':
2662 output_target = optarg;
2663 break;
2664 case 'F':
2665 input_target = output_target = optarg;
2666 break;
2667 case 'R':
b34976b6
AM		 2668 p = find_section_list (optarg, TRUE);
2669 p->remove = TRUE;
2670 sections_removed = TRUE;
252b5132
RH		 2671 break;
2672 case 's':
2673 strip_symbols = STRIP_ALL;
2674 break;
2675 case 'S':
2676 case 'g':
db4f6831 2677 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 2678 strip_symbols = STRIP_DEBUG;
2679 break;
2680 case OPTION_STRIP_UNNEEDED:
2681 strip_symbols = STRIP_UNNEEDED;
2682 break;
2683 case 'K':
2684 add_specific_symbol (optarg, &keep_specific_list);
2685 break;
2686 case 'N':
2687 add_specific_symbol (optarg, &strip_specific_list);
2688 break;
2689 case 'o':
2690 output_file = optarg;
2691 break;
2692 case 'p':
b34976b6 2693 preserve_dates = TRUE;
252b5132
RH		 2694 break;
2695 case 'x':
2696 discard_locals = LOCALS_ALL;
2697 break;
2698 case 'X':
2699 discard_locals = LOCALS_START_L;
2700 break;
2701 case 'v':
b34976b6 2702 verbose = TRUE;
252b5132
RH		 2703 break;
2704 case 'V':
b34976b6 2705 show_version = TRUE;
252b5132 2706 break;
7c29036b
NC		 2707 case OPTION_FORMATS_INFO:
2708 formats_info = TRUE;
2709 break;
ed1653a7
NC		 2710 case OPTION_ONLY_KEEP_DEBUG:
2711 strip_symbols = STRIP_NONDEBUG;
2712 break;
1637cd90
JB		 2713 case OPTION_KEEP_FILE_SYMBOLS:
2714 keep_file_symbols = 1;
2715 break;
252b5132 2716 case 0:
594ef5db
NC		 2717 /* We've been given a long option. */
2718 break;
5fe11841
NC		 2719 case 'w':
2720 wildcard = TRUE;
2721 break;
8b53311e 2722 case 'H':
252b5132
RH		 2723 case 'h':
2724 strip_usage (stdout, 0);
2725 default:
2726 strip_usage (stderr, 1);
2727 }
2728 }
2729
84e2f313
NC		 2730 if (formats_info)
2731 {
2732 display_info ();
2733 return 0;
2734 }
c1c0eb9e 2735
252b5132
RH		 2736 if (show_version)
2737 print_version ("strip");
2738
2739 /* Default is to strip all symbols. */
2740 if (strip_symbols == STRIP_UNDEF
2741 && discard_locals == LOCALS_UNDEF
2742 && strip_specific_list == NULL)
2743 strip_symbols = STRIP_ALL;
2744
d3ba0551 2745 if (output_target == NULL)
252b5132
RH		 2746 output_target = input_target;
2747
2748 i = optind;
2749 if (i == argc
2750 || (output_file != NULL && (i + 1) < argc))
2751 strip_usage (stderr, 1);
2752
2753 for (; i < argc; i++)
2754 {
2755 int hold_status = status;
2756 struct stat statbuf;
2757 char *tmpname;
2758
f24ddbdd 2759 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 2760 {
2761 status = 1;
2762 continue;
2763 }
f24ddbdd 2764
252b5132 2765 if (preserve_dates)
f24ddbdd
NC		 2766 /* No need to check the return value of stat().
2767 It has already been checked in get_file_size(). */
2768 stat (argv[i], &statbuf);
252b5132 2769
12f498a7 2770 if (output_file == NULL || strcmp (argv[i], output_file) == 0)
252b5132 2771 tmpname = make_tempname (argv[i]);
12f498a7
NS		 2772 else
2773 tmpname = output_file;
252b5132 2774
f9c026a8
NC		 2775 if (tmpname == NULL)
2776 {
2777 non_fatal (_("could not create temporary file to hold stripped copy of '%s'"),
2778 argv[i]);
2779 status = 1;
2780 continue;
2781 }
2782
d68c385b 2783 status = 0;
252b5132
RH		 2784 copy_file (argv[i], tmpname, input_target, output_target);
2785 if (status == 0)
2786 {
2787 if (preserve_dates)
2788 set_times (tmpname, &statbuf);
12f498a7
NS		 2789 if (output_file != tmpname)
2790 smart_rename (tmpname, output_file ? output_file : argv[i],
2791 preserve_dates);
252b5132
RH		 2792 status = hold_status;
2793 }
2794 else
bb14f524 2795 unlink_if_ordinary (tmpname);
12f498a7 2796 if (output_file != tmpname)
252b5132
RH		 2797 free (tmpname);
2798 }
2799
d68c385b 2800 return status;
252b5132
RH		 2801}
2802
2803static int
84e2f313 2804copy_main (int argc, char *argv[])
252b5132 2805{
43a0748c 2806 char * binary_architecture = NULL;
7c29036b
NC		 2807 char *input_filename = NULL;
2808 char *output_filename = NULL;
c1c0eb9e 2809 char *tmpname;
7c29036b
NC		 2810 char *input_target = NULL;
2811 char *output_target = NULL;
b34976b6
AM		 2812 bfd_boolean show_version = FALSE;
2813 bfd_boolean change_warn = TRUE;
7c29036b 2814 bfd_boolean formats_info = FALSE;
252b5132
RH		 2815 int c;
2816 struct section_list *p;
2817 struct stat statbuf;
2818
5fe11841 2819 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
252b5132
RH		 2820 copy_options, (int *) 0)) != EOF)
2821 {
2822 switch (c)
2823 {
2824 case 'b':
2825 copy_byte = atoi (optarg);
2826 if (copy_byte < 0)
2827 fatal (_("byte number must be non-negative"));
2828 break;
57938635 2829
0af11b59
KH		 2830 case 'B':
2831 binary_architecture = optarg;
2832 break;
43a0748c 2833
252b5132
RH		 2834 case 'i':
2835 interleave = atoi (optarg);
2836 if (interleave < 1)
2837 fatal (_("interleave must be positive"));
2838 break;
57938635 2839
252b5132
RH		 2840 case 'I':
2841 case 's': /* "source" - 'I' is preferred */
2842 input_target = optarg;
2843 break;
57938635 2844
252b5132
RH		 2845 case 'O':
2846 case 'd': /* "destination" - 'O' is preferred */
2847 output_target = optarg;
2848 break;
57938635 2849
252b5132
RH		 2850 case 'F':
2851 input_target = output_target = optarg;
2852 break;
57938635 2853
f91ea849 2854 case 'j':
b34976b6 2855 p = find_section_list (optarg, TRUE);
f91ea849
ILT		 2856 if (p->remove)
2857 fatal (_("%s both copied and removed"), optarg);
b34976b6
AM		 2858 p->copy = TRUE;
2859 sections_copied = TRUE;
f91ea849 2860 break;
57938635 2861
252b5132 2862 case 'R':
b34976b6 2863 p = find_section_list (optarg, TRUE);
f91ea849
ILT		 2864 if (p->copy)
2865 fatal (_("%s both copied and removed"), optarg);
b34976b6
AM		 2866 p->remove = TRUE;
2867 sections_removed = TRUE;
252b5132 2868 break;
57938635 2869
252b5132
RH		 2870 case 'S':
2871 strip_symbols = STRIP_ALL;
2872 break;
57938635 2873
252b5132
RH		 2874 case 'g':
2875 strip_symbols = STRIP_DEBUG;
2876 break;
57938635 2877
252b5132
RH		 2878 case OPTION_STRIP_UNNEEDED:
2879 strip_symbols = STRIP_UNNEEDED;
2880 break;
57938635 2881
ed1653a7
NC		 2882 case OPTION_ONLY_KEEP_DEBUG:
2883 strip_symbols = STRIP_NONDEBUG;
2884 break;
2885
1637cd90
JB		 2886 case OPTION_KEEP_FILE_SYMBOLS:
2887 keep_file_symbols = 1;
2888 break;
2889
2593f09a
NC		 2890 case OPTION_ADD_GNU_DEBUGLINK:
2891 gnu_debuglink_filename = optarg;
2892 break;
2893
252b5132
RH		 2894 case 'K':
2895 add_specific_symbol (optarg, &keep_specific_list);
2896 break;
57938635 2897
252b5132
RH		 2898 case 'N':
2899 add_specific_symbol (optarg, &strip_specific_list);
2900 break;
57938635 2901
bcf32829
JB		 2902 case OPTION_STRIP_UNNEEDED_SYMBOL:
2903 add_specific_symbol (optarg, &strip_unneeded_list);
2904 break;
2905
252b5132
RH		 2906 case 'L':
2907 add_specific_symbol (optarg, &localize_specific_list);
2908 break;
57938635 2909
7b4a0685
NC		 2910 case OPTION_GLOBALIZE_SYMBOL:
2911 add_specific_symbol (optarg, &globalize_specific_list);
2912 break;
2913
16b2b71c
NC		 2914 case 'G':
2915 add_specific_symbol (optarg, &keepglobal_specific_list);
2916 break;
2917
252b5132
RH		 2918 case 'W':
2919 add_specific_symbol (optarg, &weaken_specific_list);
2920 break;
57938635 2921
252b5132 2922 case 'p':
b34976b6 2923 preserve_dates = TRUE;
252b5132 2924 break;
57938635 2925
5fe11841
NC		 2926 case 'w':
2927 wildcard = TRUE;
2928 break;
2929
252b5132
RH		 2930 case 'x':
2931 discard_locals = LOCALS_ALL;
2932 break;
57938635 2933
252b5132
RH		 2934 case 'X':
2935 discard_locals = LOCALS_START_L;
2936 break;
57938635 2937
252b5132 2938 case 'v':
b34976b6 2939 verbose = TRUE;
252b5132 2940 break;
57938635 2941
252b5132 2942 case 'V':
b34976b6 2943 show_version = TRUE;
252b5132 2944 break;
57938635 2945
7c29036b
NC		 2946 case OPTION_FORMATS_INFO:
2947 formats_info = TRUE;
2948 break;
2949
252b5132 2950 case OPTION_WEAKEN:
b34976b6 2951 weaken = TRUE;
252b5132 2952 break;
57938635 2953
252b5132
RH		 2954 case OPTION_ADD_SECTION:
2955 {
2956 const char *s;
f24ddbdd 2957 off_t size;
252b5132
RH		 2958 struct section_add *pa;
2959 int len;
2960 char *name;
2961 FILE *f;
2962
2963 s = strchr (optarg, '=');
57938635 2964
252b5132 2965 if (s == NULL)
57938635 2966 fatal (_("bad format for %s"), "--add-section");
252b5132 2967
f24ddbdd
NC		 2968 size = get_file_size (s + 1);
2969 if (size < 1)
d68c385b
NC		 2970 {
2971 status = 1;
2972 break;
2973 }
252b5132 2974
d3ba0551 2975 pa = xmalloc (sizeof (struct section_add));
252b5132
RH		 2976
2977 len = s - optarg;
d3ba0551 2978 name = xmalloc (len + 1);
252b5132
RH		 2979 strncpy (name, optarg, len);
2980 name[len] = '\0';
2981 pa->name = name;
2982
2983 pa->filename = s + 1;
f24ddbdd
NC		 2984 pa->size = size;
2985 pa->contents = xmalloc (size);
252b5132 2986
252b5132 2987 f = fopen (pa->filename, FOPEN_RB);
57938635 2988
252b5132 2989 if (f == NULL)
84e2f313
NC		 2990 fatal (_("cannot open: %s: %s"),
2991 pa->filename, strerror (errno));
57938635 2992
252b5132
RH		 2993 if (fread (pa->contents, 1, pa->size, f) == 0
2994 || ferror (f))
2995 fatal (_("%s: fread failed"), pa->filename);
2996
2997 fclose (f);
2998
2999 pa->next = add_sections;
3000 add_sections = pa;
3001 }
3002 break;
57938635 3003
252b5132
RH		 3004 case OPTION_CHANGE_START:
3005 change_start = parse_vma (optarg, "--change-start");
3006 break;
57938635 3007
252b5132
RH		 3008 case OPTION_CHANGE_SECTION_ADDRESS:
3009 case OPTION_CHANGE_SECTION_LMA:
3010 case OPTION_CHANGE_SECTION_VMA:
3011 {
3012 const char *s;
3013 int len;
3014 char *name;
b4c96d0d 3015 char *option = NULL;
252b5132 3016 bfd_vma val;
b4c96d0d 3017 enum change_action what = CHANGE_IGNORE;
57938635 3018
252b5132
RH		 3019 switch (c)
3020 {
b4c96d0d
ILT		 3021 case OPTION_CHANGE_SECTION_ADDRESS:
3022 option = "--change-section-address";
3023 break;
3024 case OPTION_CHANGE_SECTION_LMA:
3025 option = "--change-section-lma";
3026 break;
3027 case OPTION_CHANGE_SECTION_VMA:
3028 option = "--change-section-vma";
3029 break;
252b5132 3030 }
57938635 3031
252b5132
RH		 3032 s = strchr (optarg, '=');
3033 if (s == NULL)
3034 {
3035 s = strchr (optarg, '+');
3036 if (s == NULL)
3037 {
3038 s = strchr (optarg, '-');
3039 if (s == NULL)
3040 fatal (_("bad format for %s"), option);
3041 }
3042 }
3043
3044 len = s - optarg;
d3ba0551 3045 name = xmalloc (len + 1);
252b5132
RH		 3046 strncpy (name, optarg, len);
3047 name[len] = '\0';
3048
b34976b6 3049 p = find_section_list (name, TRUE);
252b5132
RH		 3050
3051 val = parse_vma (s + 1, option);
3052
3053 switch (*s)
3054 {
3055 case '=': what = CHANGE_SET; break;
3056 case '-': val = - val; /* Drop through. */
3057 case '+': what = CHANGE_MODIFY; break;
3058 }
57938635 3059
252b5132
RH		 3060 switch (c)
3061 {
3062 case OPTION_CHANGE_SECTION_ADDRESS:
3063 p->change_vma = what;
3064 p->vma_val = val;
3065 /* Drop through. */
57938635 3066
252b5132
RH		 3067 case OPTION_CHANGE_SECTION_LMA:
3068 p->change_lma = what;
3069 p->lma_val = val;
3070 break;
57938635 3071
252b5132
RH		 3072 case OPTION_CHANGE_SECTION_VMA:
3073 p->change_vma = what;
3074 p->vma_val = val;
3075 break;
3076 }
3077 }
3078 break;
57938635 3079
252b5132
RH		 3080 case OPTION_CHANGE_ADDRESSES:
3081 change_section_address = parse_vma (optarg, "--change-addresses");
3082 change_start = change_section_address;
3083 break;
57938635 3084
252b5132 3085 case OPTION_CHANGE_WARNINGS:
b34976b6 3086 change_warn = TRUE;
252b5132 3087 break;
57938635 3088
252b5132 3089 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 3090 change_leading_char = TRUE;
252b5132 3091 break;
57938635 3092
252b5132 3093 case OPTION_DEBUGGING:
b34976b6 3094 convert_debugging = TRUE;
252b5132 3095 break;
57938635 3096
252b5132
RH		 3097 case OPTION_GAP_FILL:
3098 {
3099 bfd_vma gap_fill_vma;
3100
3101 gap_fill_vma = parse_vma (optarg, "--gap-fill");
3102 gap_fill = (bfd_byte) gap_fill_vma;
3103 if ((bfd_vma) gap_fill != gap_fill_vma)
3104 {
3105 char buff[20];
57938635 3106
252b5132 3107 sprintf_vma (buff, gap_fill_vma);
57938635 3108
252b5132
RH		 3109 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
3110 buff, gap_fill);
3111 }
b34976b6 3112 gap_fill_set = TRUE;
252b5132
RH		 3113 }
3114 break;
57938635 3115
252b5132 3116 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 3117 change_warn = FALSE;
252b5132 3118 break;
57938635 3119
252b5132
RH		 3120 case OPTION_PAD_TO:
3121 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 3122 pad_to_set = TRUE;
252b5132 3123 break;
57938635 3124
252b5132 3125 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 3126 remove_leading_char = TRUE;
252b5132 3127 break;
57938635
AM		 3128
3129 case OPTION_REDEFINE_SYM:
3130 {
3131 /* Push this redefinition onto redefine_symbol_list. */
3132
3133 int len;
3134 const char *s;
3135 const char *nextarg;
3136 char *source, *target;
3137
3138 s = strchr (optarg, '=');
3139 if (s == NULL)
594ef5db 3140 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 3141
3142 len = s - optarg;
d3ba0551 3143 source = xmalloc (len + 1);
57938635
AM		 3144 strncpy (source, optarg, len);
3145 source[len] = '\0';
3146
3147 nextarg = s + 1;
3148 len = strlen (nextarg);
d3ba0551 3149 target = xmalloc (len + 1);
57938635
AM		 3150 strcpy (target, nextarg);
3151
92991082 3152 redefine_list_append ("--redefine-sym", source, target);
57938635
AM		 3153
3154 free (source);
3155 free (target);
3156 }
3157 break;
3158
92991082
JT		 3159 case OPTION_REDEFINE_SYMS:
3160 add_redefine_syms_file (optarg);
3161 break;
3162
252b5132
RH		 3163 case OPTION_SET_SECTION_FLAGS:
3164 {
3165 const char *s;
3166 int len;
3167 char *name;
3168
3169 s = strchr (optarg, '=');
3170 if (s == NULL)
57938635 3171 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 3172
3173 len = s - optarg;
d3ba0551 3174 name = xmalloc (len + 1);
252b5132
RH		 3175 strncpy (name, optarg, len);
3176 name[len] = '\0';
3177
b34976b6 3178 p = find_section_list (name, TRUE);
252b5132 3179
b34976b6 3180 p->set_flags = TRUE;
252b5132
RH		 3181 p->flags = parse_flags (s + 1);
3182 }
3183 break;
57938635 3184
594ef5db
NC		 3185 case OPTION_RENAME_SECTION:
3186 {
3187 flagword flags;
3bcfb3e4
AM		 3188 const char *eq, *fl;
3189 char *old_name;
3190 char *new_name;
594ef5db
NC		 3191 unsigned int len;
3192
3bcfb3e4
AM		 3193 eq = strchr (optarg, '=');
3194 if (eq == NULL)
594ef5db
NC		 3195 fatal (_("bad format for %s"), "--rename-section");
3196
3bcfb3e4 3197 len = eq - optarg;
594ef5db 3198 if (len == 0)
3bcfb3e4 3199 fatal (_("bad format for %s"), "--rename-section");
594ef5db 3200
d3ba0551 3201 old_name = xmalloc (len + 1);
594ef5db
NC		 3202 strncpy (old_name, optarg, len);
3203 old_name[len] = 0;
3204
3bcfb3e4
AM		 3205 eq++;
3206 fl = strchr (eq, ',');
3207 if (fl)
594ef5db 3208 {
3bcfb3e4
AM		 3209 flags = parse_flags (fl + 1);
3210 len = fl - eq;
594ef5db
NC		 3211 }
3212 else
3213 {
594ef5db 3214 flags = -1;
3bcfb3e4 3215 len = strlen (eq);
594ef5db
NC		 3216 }
3217
3bcfb3e4
AM		 3218 if (len == 0)
3219 fatal (_("bad format for %s"), "--rename-section");
3220
d3ba0551 3221 new_name = xmalloc (len + 1);
3bcfb3e4
AM		 3222 strncpy (new_name, eq, len);
3223 new_name[len] = 0;
3224
594ef5db
NC		 3225 add_section_rename (old_name, new_name, flags);
3226 }
3227 break;
3228
252b5132
RH		 3229 case OPTION_SET_START:
3230 set_start = parse_vma (optarg, "--set-start");
b34976b6 3231 set_start_set = TRUE;
252b5132 3232 break;
57938635 3233
0af11b59
KH		 3234 case OPTION_SREC_LEN:
3235 Chunk = parse_vma (optarg, "--srec-len");
3236 break;
420496c1 3237
0af11b59 3238 case OPTION_SREC_FORCES3:
b34976b6 3239 S3Forced = TRUE;
0af11b59 3240 break;
420496c1 3241
16b2b71c
NC		 3242 case OPTION_STRIP_SYMBOLS:
3243 add_specific_symbols (optarg, &strip_specific_list);
3244 break;
3245
bcf32829
JB		 3246 case OPTION_STRIP_UNNEEDED_SYMBOLS:
3247 add_specific_symbols (optarg, &strip_unneeded_list);
3248 break;
3249
16b2b71c
NC		 3250 case OPTION_KEEP_SYMBOLS:
3251 add_specific_symbols (optarg, &keep_specific_list);
3252 break;
3253
d58c2e3a
RS		 3254 case OPTION_LOCALIZE_HIDDEN:
3255 localize_hidden = TRUE;
3256 break;
3257
16b2b71c
NC		 3258 case OPTION_LOCALIZE_SYMBOLS:
3259 add_specific_symbols (optarg, &localize_specific_list);
3260 break;
3261
7b4a0685
NC		 3262 case OPTION_GLOBALIZE_SYMBOLS:
3263 add_specific_symbols (optarg, &globalize_specific_list);
3264 break;
3265
16b2b71c
NC		 3266 case OPTION_KEEPGLOBAL_SYMBOLS:
3267 add_specific_symbols (optarg, &keepglobal_specific_list);
3268 break;
3269
3270 case OPTION_WEAKEN_SYMBOLS:
3271 add_specific_symbols (optarg, &weaken_specific_list);
3272 break;
3273
1ae8b3d2 3274 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 3275 use_alt_mach_code = strtoul (optarg, NULL, 0);
3276 if (use_alt_mach_code == 0)
3277 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 3278 break;
3279
d7fb0dd2
NC		 3280 case OPTION_PREFIX_SYMBOLS:
3281 prefix_symbols_string = optarg;
3282 break;
3283
3284 case OPTION_PREFIX_SECTIONS:
3285 prefix_sections_string = optarg;
3286 break;
3287
3288 case OPTION_PREFIX_ALLOC_SECTIONS:
3289 prefix_alloc_sections_string = optarg;
3290 break;
3291
4087920c
MR		 3292 case OPTION_READONLY_TEXT:
3293 bfd_flags_to_set |= WP_TEXT;
3294 bfd_flags_to_clear &= ~WP_TEXT;
3295 break;
3296
3297 case OPTION_WRITABLE_TEXT:
3298 bfd_flags_to_clear |= WP_TEXT;
3299 bfd_flags_to_set &= ~WP_TEXT;
3300 break;
3301
3302 case OPTION_PURE:
3303 bfd_flags_to_set |= D_PAGED;
3304 bfd_flags_to_clear &= ~D_PAGED;
3305 break;
3306
3307 case OPTION_IMPURE:
3308 bfd_flags_to_clear |= D_PAGED;
3309 bfd_flags_to_set &= ~D_PAGED;
3310 break;
3311
d3e52d40
RS		 3312 case OPTION_EXTRACT_SYMBOL:
3313 extract_symbol = TRUE;
3314 break;
3315
9e48b4c6
NC		 3316 case OPTION_REVERSE_BYTES:
3317 {
3318 int prev = reverse_bytes;
3319
3320 reverse_bytes = atoi (optarg);
3321 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
3322 fatal (_("number of bytes to reverse must be positive and even"));
3323
3324 if (prev && prev != reverse_bytes)
3325 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
3326 prev);
3327 break;
3328 }
3329
252b5132 3330 case 0:
2593f09a
NC		 3331 /* We've been given a long option. */
3332 break;
57938635 3333
8b53311e 3334 case 'H':
252b5132
RH		 3335 case 'h':
3336 copy_usage (stdout, 0);
57938635 3337
252b5132
RH		 3338 default:
3339 copy_usage (stderr, 1);
3340 }
3341 }
3342
7c29036b
NC		 3343 if (formats_info)
3344 {
3345 display_info ();
3346 return 0;
3347 }
c1c0eb9e 3348
252b5132
RH		 3349 if (show_version)
3350 print_version ("objcopy");
3351
3352 if (copy_byte >= interleave)
3353 fatal (_("byte number must be less than interleave"));
3354
3355 if (optind == argc || optind + 2 < argc)
3356 copy_usage (stderr, 1);
3357
3358 input_filename = argv[optind];
3359 if (optind + 1 < argc)
3360 output_filename = argv[optind + 1];
3361
3362 /* Default is to strip no symbols. */
3363 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
3364 strip_symbols = STRIP_NONE;
3365
d3ba0551 3366 if (output_target == NULL)
252b5132
RH		 3367 output_target = input_target;
3368
d3ba0551 3369 if (binary_architecture != NULL)
252b5132 3370 {
43a0748c 3371 if (input_target && strcmp (input_target, "binary") == 0)
0af11b59
KH		 3372 {
3373 const bfd_arch_info_type * temp_arch_info;
43a0748c
NC		 3374
3375 temp_arch_info = bfd_scan_arch (binary_architecture);
3376
0af11b59 3377 if (temp_arch_info != NULL)
b749473b
NC		 3378 {
3379 bfd_external_binary_architecture = temp_arch_info->arch;
3380 bfd_external_machine = temp_arch_info->mach;
3381 }
0af11b59
KH		 3382 else
3383 fatal (_("architecture %s unknown"), binary_architecture);
3384 }
43a0748c
NC		 3385 else
3386 {
3387 non_fatal (_("Warning: input target 'binary' required for binary architecture parameter."));
3388 non_fatal (_(" Argument %s ignored"), binary_architecture);
3389 }
252b5132
RH		 3390 }
3391
43a0748c
NC		 3392 if (preserve_dates)
3393 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 3394 fatal (_("warning: could not locate '%s'. System error message: %s"),
3395 input_filename, strerror (errno));
43a0748c 3396
0fcdcb91 3397 /* If there is no destination file, or the source and destination files
d3ba0551
AM		 3398 are the same, then create a temp and rename the result into the input. */
3399 if (output_filename == NULL || strcmp (input_filename, output_filename) == 0)
12f498a7 3400 tmpname = make_tempname (input_filename);
252b5132 3401 else
12f498a7 3402 tmpname = output_filename;
c1c0eb9e 3403
12f498a7
NS		 3404 if (tmpname == NULL)
3405 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
3406 input_filename, strerror (errno));
594ef5db 3407
12f498a7
NS		 3408 copy_file (input_filename, tmpname, input_target, output_target);
3409 if (status == 0)
3410 {
3411 if (preserve_dates)
3412 set_times (tmpname, &statbuf);
3413 if (tmpname != output_filename)
3414 smart_rename (tmpname, input_filename, preserve_dates);
252b5132 3415 }
12f498a7
NS		 3416 else
3417 unlink_if_ordinary (tmpname);
252b5132
RH		 3418
3419 if (change_warn)
3420 {
3421 for (p = change_sections; p != NULL; p = p->next)
3422 {
3423 if (! p->used)
3424 {
3425 if (p->change_vma != CHANGE_IGNORE)
3426 {
3427 char buff [20];
3428
3429 sprintf_vma (buff, p->vma_val);
57938635 3430
252b5132 3431 /* xgettext:c-format */
57938635
AM		 3432 non_fatal (_("%s %s%c0x%s never used"),
3433 "--change-section-vma",
252b5132
RH		 3434 p->name,
3435 p->change_vma == CHANGE_SET ? '=' : '+',
3436 buff);
3437 }
57938635 3438
252b5132
RH		 3439 if (p->change_lma != CHANGE_IGNORE)
3440 {
3441 char buff [20];
3442
3443 sprintf_vma (buff, p->lma_val);
57938635 3444
252b5132 3445 /* xgettext:c-format */
57938635
AM		 3446 non_fatal (_("%s %s%c0x%s never used"),
3447 "--change-section-lma",
252b5132
RH		 3448 p->name,
3449 p->change_lma == CHANGE_SET ? '=' : '+',
3450 buff);
3451 }
3452 }
3453 }
3454 }
3455
3456 return 0;
3457}
3458
3459int
84e2f313 3460main (int argc, char *argv[])
252b5132
RH		 3461{
3462#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
3463 setlocale (LC_MESSAGES, "");
3882b010
L		 3464#endif
3465#if defined (HAVE_SETLOCALE)
3466 setlocale (LC_CTYPE, "");
252b5132
RH		 3467#endif
3468 bindtextdomain (PACKAGE, LOCALEDIR);
3469 textdomain (PACKAGE);
3470
3471 program_name = argv[0];
3472 xmalloc_set_program_name (program_name);
3473
3474 START_PROGRESS (program_name, 0);
3475
869b9d07
MM		 3476 expandargv (&argc, &argv);
3477
252b5132
RH		 3478 strip_symbols = STRIP_UNDEF;
3479 discard_locals = LOCALS_UNDEF;
3480
3481 bfd_init ();
3482 set_default_bfd_target ();
3483
3484 if (is_strip < 0)
3485 {
3486 int i = strlen (program_name);
5af11cab
AM		 3487#ifdef HAVE_DOS_BASED_FILE_SYSTEM
3488 /* Drop the .exe suffix, if any. */
3489 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
3490 {
3491 i -= 4;
3492 program_name[i] = '\0';
3493 }
3494#endif
3495 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 3496 }
3497
3498 if (is_strip)
3499 strip_main (argc, argv);
3500 else
3501 copy_main (argc, argv);
3502
3503 END_PROGRESS (program_name);
3504
3505 return status;
3506}
GDB Binutils - Deliverables
This page took 0.514687 seconds and 4 git commands to generate.