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