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