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