projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Automatic date update in version.in
[deliverable/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:
735
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
NC		 762 /* assert ((context & ((1 << 7) - 1)) != 0); */
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;
988 /* Stop traversal. */
989 return 0;
990 }
5fe11841
NC		 991 }
992 else
993 {
047c9024
NC		 994 if (fnmatch (slot_name + 1, d->name, 0))
995 {
996 d->found = TRUE;
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 }
1967
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 }
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. */
2610 if (do_debug_sections == compress_gabi_zlib)
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
RH		 2874 size = bfd_section_size (ibfd, isection);
2875 if (copy_byte >= 0)
b7dd81f7 2876 size = (size + interleave - 1) / interleave * copy_width;
d3e52d40
RS		 2877 else if (extract_symbol)
2878 size = 0;
252b5132
RH		 2879 if (! bfd_set_section_size (obfd, osection, size))
2880 {
2db6cde7 2881 err = _("failed to set size");
252b5132
RH		 2882 goto loser;
2883 }
57938635 2884
252b5132 2885 vma = bfd_section_vma (ibfd, isection);
2e62b721
NC		 2886 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2887 SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
2888 if (p != NULL)
2889 {
2890 if (p->context & SECTION_CONTEXT_SET_VMA)
2891 vma = p->vma_val;
2892 else
2893 vma += p->vma_val;
2894 }
252b5132
RH		 2895 else
2896 vma += change_section_address;
57938635 2897
237dcb53 2898 if (! bfd_set_section_vma (obfd, osection, vma))
252b5132 2899 {
2db6cde7 2900 err = _("failed to set vma");
252b5132
RH		 2901 goto loser;
2902 }
2903
2904 lma = isection->lma;
2e62b721
NC		 2905 p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
2906 SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
2907 if (p != NULL)
252b5132 2908 {
2e62b721 2909 if (p->context & SECTION_CONTEXT_ALTER_LMA)
252b5132 2910 lma += p->lma_val;
252b5132 2911 else
2e62b721 2912 lma = p->lma_val;
252b5132
RH		 2913 }
2914 else
2915 lma += change_section_address;
57938635 2916
237dcb53 2917 osection->lma = lma;
252b5132
RH		 2918
2919 /* FIXME: This is probably not enough. If we change the LMA we
2920 may have to recompute the header for the file as well. */
b34976b6
AM		 2921 if (!bfd_set_section_alignment (obfd,
2922 osection,
2923 bfd_section_alignment (ibfd, isection)))
252b5132 2924 {
2db6cde7 2925 err = _("failed to set alignment");
252b5132
RH		 2926 goto loser;
2927 }
2928
bc408b8a
JJ		 2929 /* Copy merge entity size. */
2930 osection->entsize = isection->entsize;
2931
f6fe1ccd
L		 2932 /* Copy compress status. */
2933 osection->compress_status = isection->compress_status;
2934
252b5132
RH		 2935 /* This used to be mangle_section; we do here to avoid using
2936 bfd_get_section_by_name since some formats allow multiple
2937 sections with the same name. */
2938 isection->output_section = osection;
237dcb53 2939 isection->output_offset = 0;
d3e52d40
RS		 2940
2941 /* Do not copy backend data if --extract-symbol is passed; anything
2942 that needs to look at the section contents will fail. */
2943 if (extract_symbol)
2944 return;
252b5132 2945
119f4245
AM		 2946 if ((isection->flags & SEC_GROUP) != 0)
2947 {
2948 asymbol *gsym = group_signature (isection);
2949
2950 if (gsym != NULL)
2951 {
2952 gsym->flags |= BSF_KEEP;
2953 if (ibfd->xvec->flavour == bfd_target_elf_flavour)
2954 elf_group_id (isection) = gsym;
2955 }
2956 }
2957
252b5132
RH		 2958 /* Allow the BFD backend to copy any private data it understands
2959 from the input section to the output section. */
42bb2e33 2960 if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
252b5132 2961 {
2db6cde7 2962 err = _("failed to copy private data");
252b5132
RH		 2963 goto loser;
2964 }
2965
594ef5db 2966 /* All went well. */
252b5132
RH		 2967 return;
2968
2969loser:
252b5132 2970 status = 1;
2db6cde7 2971 bfd_nonfatal_message (NULL, obfd, osection, err);
252b5132
RH		 2972}
2973
c3989150 2974/* Return TRUE if input section ISECTION should be skipped. */
252b5132 2975
c3989150
L		 2976static bfd_boolean
2977skip_section (bfd *ibfd, sec_ptr isection)
252b5132 2978{
252b5132
RH		 2979 sec_ptr osection;
2980 bfd_size_type size;
dc156bc0 2981 flagword flags;
252b5132 2982
594ef5db
NC		 2983 /* If we have already failed earlier on,
2984 do not keep on generating complaints now. */
252b5132 2985 if (status != 0)
c3989150
L		 2986 return TRUE;
2987
2988 if (extract_symbol)
2989 return TRUE;
57938635 2990
2593f09a 2991 if (is_strip_section (ibfd, isection))
c3989150 2992 return TRUE;
252b5132 2993
acf1419f
AB		 2994 if (is_update_section (ibfd, isection))
2995 return TRUE;
2996
2593f09a 2997 flags = bfd_get_section_flags (ibfd, isection);
dc156bc0 2998 if ((flags & SEC_GROUP) != 0)
c3989150 2999 return TRUE;
dc156bc0 3000
252b5132 3001 osection = isection->output_section;
135dfb4a 3002 size = bfd_get_section_size (isection);
252b5132
RH		 3003
3004 if (size == 0 || osection == 0)
c3989150 3005 return TRUE;
252b5132 3006
c3989150
L		 3007 return FALSE;
3008}
3009
3010/* Copy relocations in input section ISECTION of IBFD to an output
3011 section with the same name in OBFDARG. If stripping then don't
3012 copy any relocation info. */
3013
3014static void
3015copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3016{
3017 bfd *obfd = (bfd *) obfdarg;
3018 long relsize;
3019 arelent **relpp;
3020 long relcount;
3021 sec_ptr osection;
3022
3023 if (skip_section (ibfd, isection))
237dcb53
AM		 3024 return;
3025
c3989150 3026 osection = isection->output_section;
2593f09a 3027
96109726
CC		 3028 /* Core files and DWO files do not need to be relocated. */
3029 if (bfd_get_format (obfd) == bfd_core || strip_symbols == STRIP_NONDWO)
4dd67f29
MS		 3030 relsize = 0;
3031 else
ed570f48
NC		 3032 {
3033 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
4dd67f29 3034
ed570f48
NC		 3035 if (relsize < 0)
3036 {
3037 /* Do not complain if the target does not support relocations. */
3038 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3039 relsize = 0;
3040 else
2db6cde7
NS		 3041 {
3042 status = 1;
3043 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3044 return;
3045 }
ed570f48
NC		 3046 }
3047 }
57938635 3048
252b5132 3049 if (relsize == 0)
96109726
CC		 3050 {
3051 bfd_set_reloc (obfd, osection, NULL, 0);
3052 osection->flags &= ~SEC_RELOC;
3053 }
252b5132
RH		 3054 else
3055 {
3f5e193b 3056 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 3057 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
3058 if (relcount < 0)
2db6cde7
NS		 3059 {
3060 status = 1;
3061 bfd_nonfatal_message (NULL, ibfd, isection,
3062 _("relocation count is negative"));
3063 return;
3064 }
57938635 3065
252b5132
RH		 3066 if (strip_symbols == STRIP_ALL)
3067 {
3068 /* Remove relocations which are not in
0af11b59 3069 keep_strip_specific_list. */
252b5132
RH		 3070 arelent **temp_relpp;
3071 long temp_relcount = 0;
3072 long i;
57938635 3073
3f5e193b 3074 temp_relpp = (arelent **) xmalloc (relsize);
252b5132 3075 for (i = 0; i < relcount; i++)
86eafac0
NC		 3076 {
3077 /* PR 17512: file: 9e907e0c. */
3078 if (relpp[i]->sym_ptr_ptr)
3079 if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
3080 keep_specific_htab))
3081 temp_relpp [temp_relcount++] = relpp [i];
3082 }
252b5132
RH		 3083 relcount = temp_relcount;
3084 free (relpp);
3085 relpp = temp_relpp;
3086 }
e0c60db2 3087
d3ba0551 3088 bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
f0312d39 3089 if (relcount == 0)
c3989150
L		 3090 {
3091 osection->flags &= ~SEC_RELOC;
3092 free (relpp);
3093 }
252b5132 3094 }
c3989150
L		 3095}
3096
3097/* Copy the data of input section ISECTION of IBFD
3098 to an output section with the same name in OBFD. */
3099
3100static void
3101copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
3102{
3103 bfd *obfd = (bfd *) obfdarg;
3104 struct section_list *p;
3105 sec_ptr osection;
3106 bfd_size_type size;
3107
3108 if (skip_section (ibfd, isection))
3109 return;
3110
3111 osection = isection->output_section;
3112 size = bfd_get_section_size (isection);
3113
0af11b59 3114 if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
4dd67f29 3115 && bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
252b5132 3116 {
4a114e3e 3117 bfd_byte *memhunk = NULL;
252b5132 3118
4a114e3e 3119 if (!bfd_get_full_section_contents (ibfd, isection, &memhunk))
2db6cde7
NS		 3120 {
3121 status = 1;
3122 bfd_nonfatal_message (NULL, ibfd, isection, NULL);
3123 return;
3124 }
252b5132 3125
9e48b4c6
NC		 3126 if (reverse_bytes)
3127 {
3128 /* We don't handle leftover bytes (too many possible behaviors,
3129 and we don't know what the user wants). The section length
3130 must be a multiple of the number of bytes to swap. */
3131 if ((size % reverse_bytes) == 0)
3132 {
3133 unsigned long i, j;
3134 bfd_byte b;
3135
3136 for (i = 0; i < size; i += reverse_bytes)
3137 for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
3138 {
3139 bfd_byte *m = (bfd_byte *) memhunk;
3140
3141 b = m[i + j];
3142 m[i + j] = m[(i + reverse_bytes) - (j + 1)];
3143 m[(i + reverse_bytes) - (j + 1)] = b;
3144 }
3145 }
3146 else
3147 /* User must pad the section up in order to do this. */
3148 fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
3149 bfd_section_name (ibfd, isection), reverse_bytes);
3150 }
3151
57938635 3152 if (copy_byte >= 0)
5e675b72
AM		 3153 {
3154 /* Keep only every `copy_byte'th byte in MEMHUNK. */
2f01ffbf 3155 char *from = (char *) memhunk + copy_byte;
3f5e193b 3156 char *to = (char *) memhunk;
2f01ffbf 3157 char *end = (char *) memhunk + size;
b7dd81f7 3158 int i;
5e675b72
AM		 3159
3160 for (; from < end; from += interleave)
b7dd81f7 3161 for (i = 0; i < copy_width; i++)
ee7da987
L		 3162 {
3163 if (&from[i] >= end)
3164 break;
3165 *to++ = from[i];
3166 }
5e675b72 3167
b7dd81f7 3168 size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
5e675b72
AM		 3169 osection->lma /= interleave;
3170 }
252b5132 3171
d3ba0551 3172 if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 3173 {
3174 status = 1;
3175 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3176 return;
3177 }
252b5132
RH		 3178 free (memhunk);
3179 }
2e62b721
NC		 3180 else if ((p = find_section_list (bfd_get_section_name (ibfd, isection),
3181 FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
3182 && (p->flags & SEC_HAS_CONTENTS) != 0)
252b5132 3183 {
d3ba0551 3184 void *memhunk = xmalloc (size);
252b5132
RH		 3185
3186 /* We don't permit the user to turn off the SEC_HAS_CONTENTS
3187 flag--they can just remove the section entirely and add it
3188 back again. However, we do permit them to turn on the
3189 SEC_HAS_CONTENTS flag, and take it to mean that the section
3190 contents should be zeroed out. */
3191
3192 memset (memhunk, 0, size);
d3ba0551 3193 if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
2db6cde7
NS		 3194 {
3195 status = 1;
3196 bfd_nonfatal_message (NULL, obfd, osection, NULL);
3197 return;
3198 }
252b5132
RH		 3199 free (memhunk);
3200 }
3201}
3202
3203/* Get all the sections. This is used when --gap-fill or --pad-to is
3204 used. */
3205
3206static void
84e2f313 3207get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
252b5132 3208{
3f5e193b 3209 asection ***secppp = (asection ***) secppparg;
252b5132
RH		 3210
3211 **secppp = osection;
3212 ++(*secppp);
3213}
3214
3215/* Sort sections by VMA. This is called via qsort, and is used when
3216 --gap-fill or --pad-to is used. We force non loadable or empty
3217 sections to the front, where they are easier to ignore. */
3218
3219static int
84e2f313 3220compare_section_lma (const void *arg1, const void *arg2)
252b5132 3221{
3f5e193b
NC		 3222 const asection *const *sec1 = (const asection * const *) arg1;
3223 const asection *const *sec2 = (const asection * const *) arg2;
252b5132
RH		 3224 flagword flags1, flags2;
3225
3226 /* Sort non loadable sections to the front. */
3227 flags1 = (*sec1)->flags;
3228 flags2 = (*sec2)->flags;
3229 if ((flags1 & SEC_HAS_CONTENTS) == 0
3230 || (flags1 & SEC_LOAD) == 0)
3231 {
3232 if ((flags2 & SEC_HAS_CONTENTS) != 0
3233 && (flags2 & SEC_LOAD) != 0)
3234 return -1;
3235 }
3236 else
3237 {
3238 if ((flags2 & SEC_HAS_CONTENTS) == 0
3239 || (flags2 & SEC_LOAD) == 0)
3240 return 1;
3241 }
3242
3243 /* Sort sections by LMA. */
3244 if ((*sec1)->lma > (*sec2)->lma)
3245 return 1;
3246 else if ((*sec1)->lma < (*sec2)->lma)
3247 return -1;
3248
3249 /* Sort sections with the same LMA by size. */
135dfb4a 3250 if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
252b5132 3251 return 1;
135dfb4a 3252 else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
252b5132
RH		 3253 return -1;
3254
3255 return 0;
3256}
3257
3258/* Mark all the symbols which will be used in output relocations with
3259 the BSF_KEEP flag so that those symbols will not be stripped.
3260
3261 Ignore relocations which will not appear in the output file. */
3262
3263static void
84e2f313 3264mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
252b5132 3265{
3f5e193b 3266 asymbol **symbols = (asymbol **) symbolsarg;
252b5132
RH		 3267 long relsize;
3268 arelent **relpp;
3269 long relcount, i;
3270
3271 /* Ignore an input section with no corresponding output section. */
3272 if (isection->output_section == NULL)
3273 return;
3274
3275 relsize = bfd_get_reloc_upper_bound (ibfd, isection);
3276 if (relsize < 0)
ed570f48
NC		 3277 {
3278 /* Do not complain if the target does not support relocations. */
3279 if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
3280 return;
3281 bfd_fatal (bfd_get_filename (ibfd));
3282 }
252b5132
RH		 3283
3284 if (relsize == 0)
3285 return;
3286
3f5e193b 3287 relpp = (arelent **) xmalloc (relsize);
252b5132
RH		 3288 relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
3289 if (relcount < 0)
3290 bfd_fatal (bfd_get_filename (ibfd));
3291
ec5d57d5
NC		 3292 /* Examine each symbol used in a relocation. If it's not one of the
3293 special bfd section symbols, then mark it with BSF_KEEP. */
252b5132
RH		 3294 for (i = 0; i < relcount; i++)
3295 {
ec5d57d5
NC		 3296 if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
3297 && *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
3298 && *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
3299 (*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
252b5132
RH		 3300 }
3301
3302 if (relpp != NULL)
3303 free (relpp);
3304}
3305
3306/* Write out debugging information. */
3307
b34976b6 3308static bfd_boolean
84e2f313
NC		 3309write_debugging_info (bfd *obfd, void *dhandle,
3310 long *symcountp ATTRIBUTE_UNUSED,
3311 asymbol ***symppp ATTRIBUTE_UNUSED)
252b5132
RH		 3312{
3313 if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
3314 return write_ieee_debugging_info (obfd, dhandle);
3315
3316 if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
3317 || bfd_get_flavour (obfd) == bfd_target_elf_flavour)
3318 {
3319 bfd_byte *syms, *strings;
3320 bfd_size_type symsize, stringsize;
3321 asection *stabsec, *stabstrsec;
551b43fd 3322 flagword flags;
252b5132
RH		 3323
3324 if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
3325 &symsize, &strings,
3326 &stringsize))
b34976b6 3327 return FALSE;
252b5132 3328
551b43fd
AM		 3329 flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
3330 stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
3331 stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
252b5132
RH		 3332 if (stabsec == NULL
3333 || stabstrsec == NULL
3334 || ! bfd_set_section_size (obfd, stabsec, symsize)
3335 || ! bfd_set_section_size (obfd, stabstrsec, stringsize)
3336 || ! bfd_set_section_alignment (obfd, stabsec, 2)
551b43fd 3337 || ! bfd_set_section_alignment (obfd, stabstrsec, 0))
252b5132 3338 {
2db6cde7
NS		 3339 bfd_nonfatal_message (NULL, obfd, NULL,
3340 _("can't create debugging section"));
b34976b6 3341 return FALSE;
252b5132
RH		 3342 }
3343
3344 /* We can get away with setting the section contents now because
3345 the next thing the caller is going to do is copy over the
3346 real sections. We may someday have to split the contents
3347 setting out of this function. */
d3ba0551
AM		 3348 if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
3349 || ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
3350 stringsize))
252b5132 3351 {
2db6cde7
NS		 3352 bfd_nonfatal_message (NULL, obfd, NULL,
3353 _("can't set debugging section contents"));
b34976b6 3354 return FALSE;
252b5132
RH		 3355 }
3356
b34976b6 3357 return TRUE;
252b5132
RH		 3358 }
3359
2db6cde7
NS		 3360 bfd_nonfatal_message (NULL, obfd, NULL,
3361 _("don't know how to write debugging information for %s"),
3362 bfd_get_target (obfd));
b34976b6 3363 return FALSE;
252b5132
RH		 3364}
3365
955d0b3b
RM		 3366/* If neither -D nor -U was specified explicitly,
3367 then use the configured default. */
3368static void
3369default_deterministic (void)
3370{
3371 if (deterministic < 0)
3372 deterministic = DEFAULT_AR_DETERMINISTIC;
3373}
3374
252b5132 3375static int
84e2f313 3376strip_main (int argc, char *argv[])
252b5132 3377{
7c29036b
NC		 3378 char *input_target = NULL;
3379 char *output_target = NULL;
b34976b6 3380 bfd_boolean show_version = FALSE;
7c29036b
NC		 3381 bfd_boolean formats_info = FALSE;
3382 int c;
3383 int i;
252b5132
RH		 3384 char *output_file = NULL;
3385
7a093a78 3386 while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvwDU",
252b5132
RH		 3387 strip_options, (int *) 0)) != EOF)
3388 {
3389 switch (c)
3390 {
3391 case 'I':
3392 input_target = optarg;
3393 break;
3394 case 'O':
3395 output_target = optarg;
3396 break;
3397 case 'F':
3398 input_target = output_target = optarg;
3399 break;
3400 case 'R':
2e62b721 3401 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3402 sections_removed = TRUE;
252b5132
RH		 3403 break;
3404 case 's':
3405 strip_symbols = STRIP_ALL;
3406 break;
3407 case 'S':
3408 case 'g':
db4f6831 3409 case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
252b5132
RH		 3410 strip_symbols = STRIP_DEBUG;
3411 break;
96109726
CC		 3412 case OPTION_STRIP_DWO:
3413 strip_symbols = STRIP_DWO;
3414 break;
252b5132
RH		 3415 case OPTION_STRIP_UNNEEDED:
3416 strip_symbols = STRIP_UNNEEDED;
3417 break;
3418 case 'K':
047c9024 3419 add_specific_symbol (optarg, keep_specific_htab);
252b5132
RH		 3420 break;
3421 case 'N':
047c9024 3422 add_specific_symbol (optarg, strip_specific_htab);
252b5132
RH		 3423 break;
3424 case 'o':
3425 output_file = optarg;
3426 break;
3427 case 'p':
b34976b6 3428 preserve_dates = TRUE;
252b5132 3429 break;
2e30cb57
CC		 3430 case 'D':
3431 deterministic = TRUE;
3432 break;
955d0b3b
RM		 3433 case 'U':
3434 deterministic = FALSE;
3435 break;
252b5132
RH		 3436 case 'x':
3437 discard_locals = LOCALS_ALL;
3438 break;
3439 case 'X':
3440 discard_locals = LOCALS_START_L;
3441 break;
3442 case 'v':
b34976b6 3443 verbose = TRUE;
252b5132
RH		 3444 break;
3445 case 'V':
b34976b6 3446 show_version = TRUE;
252b5132 3447 break;
7c29036b
NC		 3448 case OPTION_FORMATS_INFO:
3449 formats_info = TRUE;
3450 break;
ed1653a7
NC		 3451 case OPTION_ONLY_KEEP_DEBUG:
3452 strip_symbols = STRIP_NONDEBUG;
3453 break;
1637cd90
JB		 3454 case OPTION_KEEP_FILE_SYMBOLS:
3455 keep_file_symbols = 1;
3456 break;
252b5132 3457 case 0:
594ef5db
NC		 3458 /* We've been given a long option. */
3459 break;
5fe11841
NC		 3460 case 'w':
3461 wildcard = TRUE;
3462 break;
8b53311e 3463 case 'H':
252b5132
RH		 3464 case 'h':
3465 strip_usage (stdout, 0);
3466 default:
3467 strip_usage (stderr, 1);
3468 }
3469 }
3470
84e2f313
NC		 3471 if (formats_info)
3472 {
3473 display_info ();
3474 return 0;
3475 }
c1c0eb9e 3476
252b5132
RH		 3477 if (show_version)
3478 print_version ("strip");
3479
955d0b3b
RM		 3480 default_deterministic ();
3481
252b5132
RH		 3482 /* Default is to strip all symbols. */
3483 if (strip_symbols == STRIP_UNDEF
3484 && discard_locals == LOCALS_UNDEF
047c9024 3485 && htab_elements (strip_specific_htab) == 0)
252b5132
RH		 3486 strip_symbols = STRIP_ALL;
3487
d3ba0551 3488 if (output_target == NULL)
252b5132
RH		 3489 output_target = input_target;
3490
3491 i = optind;
3492 if (i == argc
3493 || (output_file != NULL && (i + 1) < argc))
3494 strip_usage (stderr, 1);
3495
3496 for (; i < argc; i++)
3497 {
3498 int hold_status = status;
3499 struct stat statbuf;
3500 char *tmpname;
3501
f24ddbdd 3502 if (get_file_size (argv[i]) < 1)
d68c385b
NC		 3503 {
3504 status = 1;
3505 continue;
3506 }
f24ddbdd 3507
252b5132 3508 if (preserve_dates)
f24ddbdd
NC		 3509 /* No need to check the return value of stat().
3510 It has already been checked in get_file_size(). */
3511 stat (argv[i], &statbuf);
252b5132 3512
8b6efd89
KT		 3513 if (output_file == NULL
3514 || filename_cmp (argv[i], output_file) == 0)
252b5132 3515 tmpname = make_tempname (argv[i]);
12f498a7
NS		 3516 else
3517 tmpname = output_file;
252b5132 3518
f9c026a8
NC		 3519 if (tmpname == NULL)
3520 {
2db6cde7
NS		 3521 bfd_nonfatal_message (argv[i], NULL, NULL,
3522 _("could not create temporary file to hold stripped copy"));
f9c026a8
NC		 3523 status = 1;
3524 continue;
3525 }
3526
d68c385b 3527 status = 0;
8b31b6c4 3528 copy_file (argv[i], tmpname, input_target, output_target, NULL);
252b5132
RH		 3529 if (status == 0)
3530 {
3531 if (preserve_dates)
3532 set_times (tmpname, &statbuf);
12f498a7 3533 if (output_file != tmpname)
92fac5ec
L		 3534 status = (smart_rename (tmpname,
3535 output_file ? output_file : argv[i],
3536 preserve_dates) != 0);
3537 if (status == 0)
3538 status = hold_status;
252b5132
RH		 3539 }
3540 else
bb14f524 3541 unlink_if_ordinary (tmpname);
12f498a7 3542 if (output_file != tmpname)
252b5132
RH		 3543 free (tmpname);
3544 }
3545
d68c385b 3546 return status;
252b5132
RH		 3547}
3548
92dd4511
L		 3549/* Set up PE subsystem. */
3550
3551static void
3552set_pe_subsystem (const char *s)
3553{
3554 const char *version, *subsystem;
3555 size_t i;
3556 static const struct
3557 {
3558 const char *name;
3559 const char set_def;
3560 const short value;
3561 }
3562 v[] =
3563 {
955d0b3b 3564 { "native", 0, IMAGE_SUBSYSTEM_NATIVE },
92dd4511
L		 3565 { "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
3566 { "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
3567 { "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
3568 { "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
3569 { "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
3570 { "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
3571 { "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
d9118602 3572 { "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
92dd4511
L		 3573 { "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
3574 };
3575 short value;
3576 char *copy;
3577 int set_def = -1;
3578
3579 /* Check for the presence of a version number. */
3580 version = strchr (s, ':');
3581 if (version == NULL)
3582 subsystem = s;
3583 else
3584 {
3585 int len = version - s;
3586 copy = xstrdup (s);
3587 subsystem = copy;
3588 copy[len] = '\0';
3589 version = copy + 1 + len;
3590 pe_major_subsystem_version = strtoul (version, &copy, 0);
3591 if (*copy == '.')
3592 pe_minor_subsystem_version = strtoul (copy + 1, &copy, 0);
3593 if (*copy != '\0')
3594 non_fatal (_("%s: bad version in PE subsystem"), s);
3595 }
3596
3597 /* Check for numeric subsystem. */
3598 value = (short) strtol (subsystem, &copy, 0);
3599 if (*copy == '\0')
3600 {
3601 for (i = 0; i < ARRAY_SIZE (v); i++)
3602 if (v[i].value == value)
3603 {
3604 pe_subsystem = value;
3605 set_def = v[i].set_def;
3606 break;
3607 }
3608 }
3609 else
3610 {
3611 /* Search for subsystem by name. */
3612 for (i = 0; i < ARRAY_SIZE (v); i++)
3613 if (strcmp (subsystem, v[i].name) == 0)
3614 {
3615 pe_subsystem = v[i].value;
3616 set_def = v[i].set_def;
3617 break;
3618 }
3619 }
3620
3621 switch (set_def)
3622 {
3623 case -1:
3624 fatal (_("unknown PE subsystem: %s"), s);
3625 break;
3626 case 0:
3627 break;
3628 default:
3629 if (pe_file_alignment == (bfd_vma) -1)
3630 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
3631 if (pe_section_alignment == (bfd_vma) -1)
3632 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
3633 break;
3634 }
0cbf3531
MS		 3635 if (s != subsystem)
3636 free ((char *) subsystem);
92dd4511
L		 3637}
3638
3639/* Convert EFI target to PEI target. */
3640
3641static void
3642convert_efi_target (char *efi)
3643{
3644 efi[0] = 'p';
3645 efi[1] = 'e';
3646 efi[2] = 'i';
3647
3648 if (strcmp (efi + 4, "ia32") == 0)
3649 {
3650 /* Change ia32 to i386. */
3651 efi[5]= '3';
3652 efi[6]= '8';
3653 efi[7]= '6';
3654 }
3655 else if (strcmp (efi + 4, "x86_64") == 0)
3656 {
3657 /* Change x86_64 to x86-64. */
3658 efi[7] = '-';
3659 }
3660}
3661
7173b38a 3662/* Allocate and return a pointer to a struct section_add, initializing the
06b73f41 3663 structure using ARG, a string in the format "sectionname=filename".
7173b38a
AB		 3664 The returned structure will have its next pointer set to NEXT. The
3665 OPTION field is the name of the command line option currently being
3666 parsed, and is only used if an error needs to be reported. */
3667
3668static struct section_add *
06b73f41 3669init_section_add (const char *arg,
7173b38a
AB		 3670 struct section_add *next,
3671 const char *option)
3672{
3673 struct section_add *pa;
3674 const char *s;
3675
06b73f41 3676 s = strchr (arg, '=');
7173b38a
AB		 3677 if (s == NULL)
3678 fatal (_("bad format for %s"), option);
3679
3680 pa = (struct section_add *) xmalloc (sizeof (struct section_add));
06b73f41 3681 pa->name = xstrndup (arg, s - arg);
7173b38a
AB		 3682 pa->filename = s + 1;
3683 pa->next = next;
3684 pa->contents = NULL;
3685 pa->size = 0;
3686
3687 return pa;
3688}
3689
3690/* Load the file specified in PA, allocating memory to hold the file
3691 contents, and store a pointer to the allocated memory in the contents
3692 field of PA. The size field of PA is also updated. All errors call
3693 FATAL. */
3694
3695static void
3696section_add_load_file (struct section_add *pa)
3697{
3698 size_t off, alloc;
3699 FILE *f;
3700
3701 /* We don't use get_file_size so that we can do
3702 --add-section .note.GNU_stack=/dev/null
3703 get_file_size doesn't work on /dev/null. */
3704
3705 f = fopen (pa->filename, FOPEN_RB);
3706 if (f == NULL)
3707 fatal (_("cannot open: %s: %s"),
3708 pa->filename, strerror (errno));
3709
3710 off = 0;
3711 alloc = 4096;
3712 pa->contents = (bfd_byte *) xmalloc (alloc);
3713 while (!feof (f))
3714 {
3715 off_t got;
3716
3717 if (off == alloc)
3718 {
3719 alloc <<= 1;
3720 pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
3721 }
3722
3723 got = fread (pa->contents + off, 1, alloc - off, f);
3724 if (ferror (f))
3725 fatal (_("%s: fread failed"), pa->filename);
3726
3727 off += got;
3728 }
3729
3730 pa->size = off;
3731
3732 fclose (f);
3733}
3734
252b5132 3735static int
84e2f313 3736copy_main (int argc, char *argv[])
252b5132 3737{
7c29036b
NC		 3738 char *input_filename = NULL;
3739 char *output_filename = NULL;
c1c0eb9e 3740 char *tmpname;
7c29036b
NC		 3741 char *input_target = NULL;
3742 char *output_target = NULL;
b34976b6
AM		 3743 bfd_boolean show_version = FALSE;
3744 bfd_boolean change_warn = TRUE;
7c29036b 3745 bfd_boolean formats_info = FALSE;
252b5132 3746 int c;
252b5132 3747 struct stat statbuf;
8b31b6c4 3748 const bfd_arch_info_type *input_arch = NULL;
252b5132 3749
7a093a78 3750 while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:wDU",
252b5132
RH		 3751 copy_options, (int *) 0)) != EOF)
3752 {
3753 switch (c)
3754 {
3755 case 'b':
3756 copy_byte = atoi (optarg);
3757 if (copy_byte < 0)
3758 fatal (_("byte number must be non-negative"));
3759 break;
57938635 3760
0af11b59 3761 case 'B':
8b31b6c4
NC		 3762 input_arch = bfd_scan_arch (optarg);
3763 if (input_arch == NULL)
3764 fatal (_("architecture %s unknown"), optarg);
0af11b59 3765 break;
43a0748c 3766
252b5132 3767 case 'i':
b7dd81f7
NC		 3768 if (optarg)
3769 {
3770 interleave = atoi (optarg);
3771 if (interleave < 1)
3772 fatal (_("interleave must be positive"));
3773 }
3774 else
3775 interleave = 4;
3776 break;
3777
3778 case OPTION_INTERLEAVE_WIDTH:
3779 copy_width = atoi (optarg);
3780 if (copy_width < 1)
3781 fatal(_("interleave width must be positive"));
252b5132 3782 break;
57938635 3783
252b5132
RH		 3784 case 'I':
3785 case 's': /* "source" - 'I' is preferred */
3786 input_target = optarg;
3787 break;
57938635 3788
252b5132
RH		 3789 case 'O':
3790 case 'd': /* "destination" - 'O' is preferred */
3791 output_target = optarg;
3792 break;
57938635 3793
252b5132
RH		 3794 case 'F':
3795 input_target = output_target = optarg;
3796 break;
57938635 3797
f91ea849 3798 case 'j':
2e62b721 3799 find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
b34976b6 3800 sections_copied = TRUE;
f91ea849 3801 break;
57938635 3802
252b5132 3803 case 'R':
2e62b721 3804 find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
b34976b6 3805 sections_removed = TRUE;
252b5132 3806 break;
57938635 3807
252b5132
RH		 3808 case 'S':
3809 strip_symbols = STRIP_ALL;
3810 break;
57938635 3811
252b5132
RH		 3812 case 'g':
3813 strip_symbols = STRIP_DEBUG;
3814 break;
57938635 3815
96109726
CC		 3816 case OPTION_STRIP_DWO:
3817 strip_symbols = STRIP_DWO;
3818 break;
3819
252b5132
RH		 3820 case OPTION_STRIP_UNNEEDED:
3821 strip_symbols = STRIP_UNNEEDED;
3822 break;
57938635 3823
ed1653a7
NC		 3824 case OPTION_ONLY_KEEP_DEBUG:
3825 strip_symbols = STRIP_NONDEBUG;
3826 break;
3827
1637cd90
JB		 3828 case OPTION_KEEP_FILE_SYMBOLS:
3829 keep_file_symbols = 1;
3830 break;
3831
2593f09a 3832 case OPTION_ADD_GNU_DEBUGLINK:
9b8bf321 3833 long_section_names = ENABLE ;
2593f09a
NC		 3834 gnu_debuglink_filename = optarg;
3835 break;
3836
252b5132 3837 case 'K':
047c9024 3838 add_specific_symbol (optarg, keep_specific_htab);
252b5132 3839 break;
57938635 3840
252b5132 3841 case 'N':
047c9024 3842 add_specific_symbol (optarg, strip_specific_htab);
252b5132 3843 break;
57938635 3844
bcf32829 3845 case OPTION_STRIP_UNNEEDED_SYMBOL:
047c9024 3846 add_specific_symbol (optarg, strip_unneeded_htab);
bcf32829
JB		 3847 break;
3848
252b5132 3849 case 'L':
047c9024 3850 add_specific_symbol (optarg, localize_specific_htab);
252b5132 3851 break;
57938635 3852
7b4a0685 3853 case OPTION_GLOBALIZE_SYMBOL:
047c9024 3854 add_specific_symbol (optarg, globalize_specific_htab);
7b4a0685
NC		 3855 break;
3856
16b2b71c 3857 case 'G':
047c9024 3858 add_specific_symbol (optarg, keepglobal_specific_htab);
16b2b71c
NC		 3859 break;
3860
252b5132 3861 case 'W':
047c9024 3862 add_specific_symbol (optarg, weaken_specific_htab);
252b5132 3863 break;
57938635 3864
252b5132 3865 case 'p':
b34976b6 3866 preserve_dates = TRUE;
252b5132 3867 break;
57938635 3868
2e30cb57
CC		 3869 case 'D':
3870 deterministic = TRUE;
3871 break;
3872
955d0b3b
RM		 3873 case 'U':
3874 deterministic = FALSE;
3875 break;
3876
5fe11841
NC		 3877 case 'w':
3878 wildcard = TRUE;
3879 break;
3880
252b5132
RH		 3881 case 'x':
3882 discard_locals = LOCALS_ALL;
3883 break;
57938635 3884
252b5132
RH		 3885 case 'X':
3886 discard_locals = LOCALS_START_L;
3887 break;
57938635 3888
252b5132 3889 case 'v':
b34976b6 3890 verbose = TRUE;
252b5132 3891 break;
57938635 3892
252b5132 3893 case 'V':
b34976b6 3894 show_version = TRUE;
252b5132 3895 break;
57938635 3896
7c29036b
NC		 3897 case OPTION_FORMATS_INFO:
3898 formats_info = TRUE;
3899 break;
3900
252b5132 3901 case OPTION_WEAKEN:
b34976b6 3902 weaken = TRUE;
252b5132 3903 break;
57938635 3904
252b5132 3905 case OPTION_ADD_SECTION:
7173b38a
AB		 3906 add_sections = init_section_add (optarg, add_sections,
3907 "--add-section");
3908 section_add_load_file (add_sections);
252b5132 3909 break;
57938635 3910
acf1419f
AB		 3911 case OPTION_UPDATE_SECTION:
3912 update_sections = init_section_add (optarg, update_sections,
3913 "--update-section");
3914 section_add_load_file (update_sections);
3915 break;
3916
bbad633b 3917 case OPTION_DUMP_SECTION:
7173b38a
AB		 3918 dump_sections = init_section_add (optarg, dump_sections,
3919 "--dump-section");
bbad633b
NC		 3920 break;
3921
252b5132
RH		 3922 case OPTION_CHANGE_START:
3923 change_start = parse_vma (optarg, "--change-start");
3924 break;
57938635 3925
252b5132
RH		 3926 case OPTION_CHANGE_SECTION_ADDRESS:
3927 case OPTION_CHANGE_SECTION_LMA:
3928 case OPTION_CHANGE_SECTION_VMA:
3929 {
2e62b721 3930 struct section_list * p;
76d8cf45 3931 unsigned int context = 0;
252b5132
RH		 3932 const char *s;
3933 int len;
3934 char *name;
b4c96d0d 3935 char *option = NULL;
252b5132 3936 bfd_vma val;
57938635 3937
252b5132
RH		 3938 switch (c)
3939 {
b4c96d0d
ILT		 3940 case OPTION_CHANGE_SECTION_ADDRESS:
3941 option = "--change-section-address";
2e62b721 3942 context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
b4c96d0d
ILT		 3943 break;
3944 case OPTION_CHANGE_SECTION_LMA:
3945 option = "--change-section-lma";
2e62b721 3946 context = SECTION_CONTEXT_ALTER_LMA;
b4c96d0d
ILT		 3947 break;
3948 case OPTION_CHANGE_SECTION_VMA:
3949 option = "--change-section-vma";
2e62b721 3950 context = SECTION_CONTEXT_ALTER_VMA;
b4c96d0d 3951 break;
252b5132 3952 }
57938635 3953
252b5132
RH		 3954 s = strchr (optarg, '=');
3955 if (s == NULL)
3956 {
3957 s = strchr (optarg, '+');
3958 if (s == NULL)
3959 {
3960 s = strchr (optarg, '-');
3961 if (s == NULL)
3962 fatal (_("bad format for %s"), option);
3963 }
3964 }
2e62b721
NC		 3965 else
3966 {
3967 /* Correct the context. */
3968 switch (c)
3969 {
3970 case OPTION_CHANGE_SECTION_ADDRESS:
3971 context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
3972 break;
3973 case OPTION_CHANGE_SECTION_LMA:
3974 context = SECTION_CONTEXT_SET_LMA;
3975 break;
3976 case OPTION_CHANGE_SECTION_VMA:
3977 context = SECTION_CONTEXT_SET_VMA;
3978 break;
3979 }
3980 }
252b5132
RH		 3981
3982 len = s - optarg;
3f5e193b 3983 name = (char *) xmalloc (len + 1);
252b5132
RH		 3984 strncpy (name, optarg, len);
3985 name[len] = '\0';
3986
2e62b721 3987 p = find_section_list (name, TRUE, context);
252b5132
RH		 3988
3989 val = parse_vma (s + 1, option);
2e62b721
NC		 3990 if (*s == '-')
3991 val = - val;
57938635 3992
252b5132
RH		 3993 switch (c)
3994 {
3995 case OPTION_CHANGE_SECTION_ADDRESS:
2e62b721 3996 p->vma_val = val;
252b5132 3997 /* Drop through. */
57938635 3998
252b5132 3999 case OPTION_CHANGE_SECTION_LMA:
2e62b721 4000 p->lma_val = val;
252b5132 4001 break;
57938635 4002
252b5132 4003 case OPTION_CHANGE_SECTION_VMA:
2e62b721 4004 p->vma_val = val;
252b5132
RH		 4005 break;
4006 }
4007 }
4008 break;
57938635 4009
252b5132
RH		 4010 case OPTION_CHANGE_ADDRESSES:
4011 change_section_address = parse_vma (optarg, "--change-addresses");
4012 change_start = change_section_address;
4013 break;
57938635 4014
252b5132 4015 case OPTION_CHANGE_WARNINGS:
b34976b6 4016 change_warn = TRUE;
252b5132 4017 break;
57938635 4018
252b5132 4019 case OPTION_CHANGE_LEADING_CHAR:
b34976b6 4020 change_leading_char = TRUE;
252b5132 4021 break;
57938635 4022
4a114e3e 4023 case OPTION_COMPRESS_DEBUG_SECTIONS:
151411f8
L		 4024 if (optarg)
4025 {
4026 if (strcasecmp (optarg, "none") == 0)
4027 do_debug_sections = decompress;
4028 else if (strcasecmp (optarg, "zlib") == 0)
4029 do_debug_sections = compress_zlib;
4030 else if (strcasecmp (optarg, "zlib-gnu") == 0)
4031 do_debug_sections = compress_gnu_zlib;
4032 else if (strcasecmp (optarg, "zlib-gabi") == 0)
4033 do_debug_sections = compress_gabi_zlib;
4034 else
4035 fatal (_("unrecognized --compress-debug-sections type `%s'"),
4036 optarg);
4037 }
4038 else
4039 do_debug_sections = compress;
4a114e3e
L		 4040 break;
4041
252b5132 4042 case OPTION_DEBUGGING:
b34976b6 4043 convert_debugging = TRUE;
252b5132 4044 break;
57938635 4045
4a114e3e
L		 4046 case OPTION_DECOMPRESS_DEBUG_SECTIONS:
4047 do_debug_sections = decompress;
4048 break;
4049
252b5132
RH		 4050 case OPTION_GAP_FILL:
4051 {
4052 bfd_vma gap_fill_vma;
4053
4054 gap_fill_vma = parse_vma (optarg, "--gap-fill");
4055 gap_fill = (bfd_byte) gap_fill_vma;
4056 if ((bfd_vma) gap_fill != gap_fill_vma)
4057 {
4058 char buff[20];
57938635 4059
252b5132 4060 sprintf_vma (buff, gap_fill_vma);
57938635 4061
252b5132
RH		 4062 non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
4063 buff, gap_fill);
4064 }
b34976b6 4065 gap_fill_set = TRUE;
252b5132
RH		 4066 }
4067 break;
57938635 4068
252b5132 4069 case OPTION_NO_CHANGE_WARNINGS:
b34976b6 4070 change_warn = FALSE;
252b5132 4071 break;
57938635 4072
252b5132
RH		 4073 case OPTION_PAD_TO:
4074 pad_to = parse_vma (optarg, "--pad-to");
b34976b6 4075 pad_to_set = TRUE;
252b5132 4076 break;
57938635 4077
252b5132 4078 case OPTION_REMOVE_LEADING_CHAR:
b34976b6 4079 remove_leading_char = TRUE;
252b5132 4080 break;
57938635
AM		 4081
4082 case OPTION_REDEFINE_SYM:
4083 {
4084 /* Push this redefinition onto redefine_symbol_list. */
4085
4086 int len;
4087 const char *s;
4088 const char *nextarg;
4089 char *source, *target;
4090
4091 s = strchr (optarg, '=');
4092 if (s == NULL)
594ef5db 4093 fatal (_("bad format for %s"), "--redefine-sym");
57938635
AM		 4094
4095 len = s - optarg;
3f5e193b 4096 source = (char *) xmalloc (len + 1);
57938635
AM		 4097 strncpy (source, optarg, len);
4098 source[len] = '\0';
4099
4100 nextarg = s + 1;
4101 len = strlen (nextarg);
3f5e193b 4102 target = (char *) xmalloc (len + 1);
57938635
AM		 4103 strcpy (target, nextarg);
4104
92991082 4105 redefine_list_append ("--redefine-sym", source, target);
57938635
AM		 4106
4107 free (source);
4108 free (target);
4109 }
4110 break;
4111
92991082
JT		 4112 case OPTION_REDEFINE_SYMS:
4113 add_redefine_syms_file (optarg);
4114 break;
4115
252b5132
RH		 4116 case OPTION_SET_SECTION_FLAGS:
4117 {
2e62b721 4118 struct section_list *p;
252b5132
RH		 4119 const char *s;
4120 int len;
4121 char *name;
4122
4123 s = strchr (optarg, '=');
4124 if (s == NULL)
57938635 4125 fatal (_("bad format for %s"), "--set-section-flags");
252b5132
RH		 4126
4127 len = s - optarg;
3f5e193b 4128 name = (char *) xmalloc (len + 1);
252b5132
RH		 4129 strncpy (name, optarg, len);
4130 name[len] = '\0';
4131
2e62b721 4132 p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
252b5132 4133
252b5132
RH		 4134 p->flags = parse_flags (s + 1);
4135 }
4136 break;
57938635 4137
594ef5db
NC		 4138 case OPTION_RENAME_SECTION:
4139 {
4140 flagword flags;
3bcfb3e4
AM		 4141 const char *eq, *fl;
4142 char *old_name;
4143 char *new_name;
594ef5db
NC		 4144 unsigned int len;
4145
3bcfb3e4
AM		 4146 eq = strchr (optarg, '=');
4147 if (eq == NULL)
594ef5db
NC		 4148 fatal (_("bad format for %s"), "--rename-section");
4149
3bcfb3e4 4150 len = eq - optarg;
594ef5db 4151 if (len == 0)
3bcfb3e4 4152 fatal (_("bad format for %s"), "--rename-section");
594ef5db 4153
3f5e193b 4154 old_name = (char *) xmalloc (len + 1);
594ef5db
NC		 4155 strncpy (old_name, optarg, len);
4156 old_name[len] = 0;
4157
3bcfb3e4
AM		 4158 eq++;
4159 fl = strchr (eq, ',');
4160 if (fl)
594ef5db 4161 {
3bcfb3e4
AM		 4162 flags = parse_flags (fl + 1);
4163 len = fl - eq;
594ef5db
NC		 4164 }
4165 else
4166 {
594ef5db 4167 flags = -1;
3bcfb3e4 4168 len = strlen (eq);
594ef5db
NC		 4169 }
4170
3bcfb3e4
AM		 4171 if (len == 0)
4172 fatal (_("bad format for %s"), "--rename-section");
4173
3f5e193b 4174 new_name = (char *) xmalloc (len + 1);
3bcfb3e4
AM		 4175 strncpy (new_name, eq, len);
4176 new_name[len] = 0;
4177
594ef5db
NC		 4178 add_section_rename (old_name, new_name, flags);
4179 }
4180 break;
4181
252b5132
RH		 4182 case OPTION_SET_START:
4183 set_start = parse_vma (optarg, "--set-start");
b34976b6 4184 set_start_set = TRUE;
252b5132 4185 break;
57938635 4186
0af11b59
KH		 4187 case OPTION_SREC_LEN:
4188 Chunk = parse_vma (optarg, "--srec-len");
4189 break;
420496c1 4190
0af11b59 4191 case OPTION_SREC_FORCES3:
b34976b6 4192 S3Forced = TRUE;
0af11b59 4193 break;
420496c1 4194
16b2b71c 4195 case OPTION_STRIP_SYMBOLS:
047c9024 4196 add_specific_symbols (optarg, strip_specific_htab);
16b2b71c
NC		 4197 break;
4198
bcf32829 4199 case OPTION_STRIP_UNNEEDED_SYMBOLS:
047c9024 4200 add_specific_symbols (optarg, strip_unneeded_htab);
bcf32829
JB		 4201 break;
4202
16b2b71c 4203 case OPTION_KEEP_SYMBOLS:
047c9024 4204 add_specific_symbols (optarg, keep_specific_htab);
16b2b71c
NC		 4205 break;
4206
d58c2e3a
RS		 4207 case OPTION_LOCALIZE_HIDDEN:
4208 localize_hidden = TRUE;
4209 break;
4210
16b2b71c 4211 case OPTION_LOCALIZE_SYMBOLS:
047c9024 4212 add_specific_symbols (optarg, localize_specific_htab);
16b2b71c
NC		 4213 break;
4214
0408dee6
DK		 4215 case OPTION_LONG_SECTION_NAMES:
4216 if (!strcmp ("enable", optarg))
4217 long_section_names = ENABLE;
4218 else if (!strcmp ("disable", optarg))
4219 long_section_names = DISABLE;
4220 else if (!strcmp ("keep", optarg))
4221 long_section_names = KEEP;
4222 else
4223 fatal (_("unknown long section names option '%s'"), optarg);
4224 break;
4225
7b4a0685 4226 case OPTION_GLOBALIZE_SYMBOLS:
047c9024 4227 add_specific_symbols (optarg, globalize_specific_htab);
7b4a0685
NC		 4228 break;
4229
16b2b71c 4230 case OPTION_KEEPGLOBAL_SYMBOLS:
047c9024 4231 add_specific_symbols (optarg, keepglobal_specific_htab);
16b2b71c
NC		 4232 break;
4233
4234 case OPTION_WEAKEN_SYMBOLS:
047c9024 4235 add_specific_symbols (optarg, weaken_specific_htab);
16b2b71c
NC		 4236 break;
4237
1ae8b3d2 4238 case OPTION_ALT_MACH_CODE:
f9d4ad2a
NC		 4239 use_alt_mach_code = strtoul (optarg, NULL, 0);
4240 if (use_alt_mach_code == 0)
4241 fatal (_("unable to parse alternative machine code"));
1ae8b3d2
AO		 4242 break;
4243
d7fb0dd2
NC		 4244 case OPTION_PREFIX_SYMBOLS:
4245 prefix_symbols_string = optarg;
4246 break;
4247
4248 case OPTION_PREFIX_SECTIONS:
4249 prefix_sections_string = optarg;
4250 break;
4251
4252 case OPTION_PREFIX_ALLOC_SECTIONS:
4253 prefix_alloc_sections_string = optarg;
4254 break;
4255
4087920c
MR		 4256 case OPTION_READONLY_TEXT:
4257 bfd_flags_to_set |= WP_TEXT;
4258 bfd_flags_to_clear &= ~WP_TEXT;
4259 break;
4260
4261 case OPTION_WRITABLE_TEXT:
4262 bfd_flags_to_clear |= WP_TEXT;
4263 bfd_flags_to_set &= ~WP_TEXT;
4264 break;
4265
4266 case OPTION_PURE:
4267 bfd_flags_to_set |= D_PAGED;
4268 bfd_flags_to_clear &= ~D_PAGED;
4269 break;
4270
4271 case OPTION_IMPURE:
4272 bfd_flags_to_clear |= D_PAGED;
4273 bfd_flags_to_set &= ~D_PAGED;
4274 break;
4275
96109726
CC		 4276 case OPTION_EXTRACT_DWO:
4277 strip_symbols = STRIP_NONDWO;
4278 break;
4279
d3e52d40
RS		 4280 case OPTION_EXTRACT_SYMBOL:
4281 extract_symbol = TRUE;
4282 break;
4283
9e48b4c6
NC		 4284 case OPTION_REVERSE_BYTES:
4285 {
4286 int prev = reverse_bytes;
4287
4288 reverse_bytes = atoi (optarg);
4289 if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
4290 fatal (_("number of bytes to reverse must be positive and even"));
4291
4292 if (prev && prev != reverse_bytes)
4293 non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
4294 prev);
4295 break;
4296 }
4297
92dd4511
L		 4298 case OPTION_FILE_ALIGNMENT:
4299 pe_file_alignment = parse_vma (optarg, "--file-alignment");
4300 break;
955d0b3b 4301
92dd4511
L		 4302 case OPTION_HEAP:
4303 {
4304 char *end;
4305 pe_heap_reserve = strtoul (optarg, &end, 0);
4306 if (end == optarg
4307 || (*end != '.' && *end != '\0'))
4308 non_fatal (_("%s: invalid reserve value for --heap"),
4309 optarg);
4310 else if (*end != '\0')
4311 {
4312 pe_heap_commit = strtoul (end + 1, &end, 0);
4313 if (*end != '\0')
4314 non_fatal (_("%s: invalid commit value for --heap"),
4315 optarg);
4316 }
4317 }
4318 break;
955d0b3b 4319
92dd4511
L		 4320 case OPTION_IMAGE_BASE:
4321 pe_image_base = parse_vma (optarg, "--image-base");
4322 break;
955d0b3b 4323
92dd4511
L		 4324 case OPTION_SECTION_ALIGNMENT:
4325 pe_section_alignment = parse_vma (optarg,
4326 "--section-alignment");
4327 break;
955d0b3b 4328
92dd4511
L		 4329 case OPTION_SUBSYSTEM:
4330 set_pe_subsystem (optarg);
4331 break;
955d0b3b 4332
92dd4511
L		 4333 case OPTION_STACK:
4334 {
4335 char *end;
4336 pe_stack_reserve = strtoul (optarg, &end, 0);
4337 if (end == optarg
4338 || (*end != '.' && *end != '\0'))
4339 non_fatal (_("%s: invalid reserve value for --stack"),
4340 optarg);
4341 else if (*end != '\0')
4342 {
4343 pe_stack_commit = strtoul (end + 1, &end, 0);
4344 if (*end != '\0')
4345 non_fatal (_("%s: invalid commit value for --stack"),
4346 optarg);
4347 }
4348 }
4349 break;
955d0b3b 4350
252b5132 4351 case 0:
2593f09a
NC		 4352 /* We've been given a long option. */
4353 break;
57938635 4354
8b53311e 4355 case 'H':
252b5132
RH		 4356 case 'h':
4357 copy_usage (stdout, 0);
57938635 4358
252b5132
RH		 4359 default:
4360 copy_usage (stderr, 1);
4361 }
4362 }
4363
7c29036b
NC		 4364 if (formats_info)
4365 {
4366 display_info ();
4367 return 0;
4368 }
c1c0eb9e 4369
252b5132
RH		 4370 if (show_version)
4371 print_version ("objcopy");
4372
b7dd81f7
NC		 4373 if (interleave && copy_byte == -1)
4374 fatal (_("interleave start byte must be set with --byte"));
4375
252b5132
RH		 4376 if (copy_byte >= interleave)
4377 fatal (_("byte number must be less than interleave"));
4378
b7dd81f7
NC		 4379 if (copy_width > interleave - copy_byte)
4380 fatal (_("interleave width must be less than or equal to interleave - byte`"));
4381
252b5132
RH		 4382 if (optind == argc || optind + 2 < argc)
4383 copy_usage (stderr, 1);
4384
4385 input_filename = argv[optind];
4386 if (optind + 1 < argc)
4387 output_filename = argv[optind + 1];
4388
955d0b3b
RM		 4389 default_deterministic ();
4390
252b5132
RH		 4391 /* Default is to strip no symbols. */
4392 if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
4393 strip_symbols = STRIP_NONE;
4394
d3ba0551 4395 if (output_target == NULL)
252b5132
RH		 4396 output_target = input_target;
4397
92dd4511
L		 4398 /* Convert input EFI target to PEI target. */
4399 if (input_target != NULL
4400 && strncmp (input_target, "efi-", 4) == 0)
4401 {
4402 char *efi;
4403
4404 efi = xstrdup (output_target + 4);
4405 if (strncmp (efi, "bsdrv-", 6) == 0
4406 || strncmp (efi, "rtdrv-", 6) == 0)
4407 efi += 2;
4408 else if (strncmp (efi, "app-", 4) != 0)
4409 fatal (_("unknown input EFI target: %s"), input_target);
4410
4411 input_target = efi;
4412 convert_efi_target (efi);
4413 }
4414
4415 /* Convert output EFI target to PEI target. */
4416 if (output_target != NULL
4417 && strncmp (output_target, "efi-", 4) == 0)
4418 {
4419 char *efi;
4420
4421 efi = xstrdup (output_target + 4);
4422 if (strncmp (efi, "app-", 4) == 0)
4423 {
4424 if (pe_subsystem == -1)
4425 pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
4426 }
4427 else if (strncmp (efi, "bsdrv-", 6) == 0)
4428 {
4429 if (pe_subsystem == -1)
4430 pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
4431 efi += 2;
4432 }
4433 else if (strncmp (efi, "rtdrv-", 6) == 0)
4434 {
4435 if (pe_subsystem == -1)
4436 pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
4437 efi += 2;
4438 }
4439 else
4440 fatal (_("unknown output EFI target: %s"), output_target);
4441
4442 if (pe_file_alignment == (bfd_vma) -1)
4443 pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
4444 if (pe_section_alignment == (bfd_vma) -1)
4445 pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
4446
4447 output_target = efi;
4448 convert_efi_target (efi);
4449 }
4450
43a0748c
NC		 4451 if (preserve_dates)
4452 if (stat (input_filename, & statbuf) < 0)
f24ddbdd
NC		 4453 fatal (_("warning: could not locate '%s'. System error message: %s"),
4454 input_filename, strerror (errno));
43a0748c 4455
0fcdcb91 4456 /* If there is no destination file, or the source and destination files
d3ba0551 4457 are the same, then create a temp and rename the result into the input. */
8b6efd89
KT		 4458 if (output_filename == NULL
4459 || filename_cmp (input_filename, output_filename) == 0)
12f498a7 4460 tmpname = make_tempname (input_filename);
252b5132 4461 else
12f498a7 4462 tmpname = output_filename;
c1c0eb9e 4463
12f498a7
NS		 4464 if (tmpname == NULL)
4465 fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
4466 input_filename, strerror (errno));
594ef5db 4467
8b31b6c4 4468 copy_file (input_filename, tmpname, input_target, output_target, input_arch);
12f498a7
NS		 4469 if (status == 0)
4470 {
4471 if (preserve_dates)
4472 set_times (tmpname, &statbuf);
4473 if (tmpname != output_filename)
92fac5ec
L		 4474 status = (smart_rename (tmpname, input_filename,
4475 preserve_dates) != 0);
252b5132 4476 }
12f498a7
NS		 4477 else
4478 unlink_if_ordinary (tmpname);
252b5132
RH		 4479
4480 if (change_warn)
4481 {
2e62b721
NC		 4482 struct section_list *p;
4483
252b5132
RH		 4484 for (p = change_sections; p != NULL; p = p->next)
4485 {
4486 if (! p->used)
4487 {
2e62b721 4488 if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
252b5132
RH		 4489 {
4490 char buff [20];
4491
4492 sprintf_vma (buff, p->vma_val);
57938635 4493
252b5132 4494 /* xgettext:c-format */
57938635
AM		 4495 non_fatal (_("%s %s%c0x%s never used"),
4496 "--change-section-vma",
2e62b721
NC		 4497 p->pattern,
4498 p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
252b5132
RH		 4499 buff);
4500 }
57938635 4501
2e62b721 4502 if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
252b5132
RH		 4503 {
4504 char buff [20];
4505
4506 sprintf_vma (buff, p->lma_val);
57938635 4507
252b5132 4508 /* xgettext:c-format */
57938635
AM		 4509 non_fatal (_("%s %s%c0x%s never used"),
4510 "--change-section-lma",
2e62b721
NC		 4511 p->pattern,
4512 p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
252b5132
RH		 4513 buff);
4514 }
4515 }
4516 }
4517 }
4518
4519 return 0;
4520}
4521
4522int
84e2f313 4523main (int argc, char *argv[])
252b5132
RH		 4524{
4525#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
4526 setlocale (LC_MESSAGES, "");
3882b010
L		 4527#endif
4528#if defined (HAVE_SETLOCALE)
4529 setlocale (LC_CTYPE, "");
252b5132
RH		 4530#endif
4531 bindtextdomain (PACKAGE, LOCALEDIR);
4532 textdomain (PACKAGE);
4533
4534 program_name = argv[0];
4535 xmalloc_set_program_name (program_name);
4536
4537 START_PROGRESS (program_name, 0);
4538
869b9d07
MM		 4539 expandargv (&argc, &argv);
4540
252b5132
RH		 4541 strip_symbols = STRIP_UNDEF;
4542 discard_locals = LOCALS_UNDEF;
4543
4544 bfd_init ();
4545 set_default_bfd_target ();
4546
4547 if (is_strip < 0)
4548 {
4549 int i = strlen (program_name);
5af11cab
AM		 4550#ifdef HAVE_DOS_BASED_FILE_SYSTEM
4551 /* Drop the .exe suffix, if any. */
4552 if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
4553 {
4554 i -= 4;
4555 program_name[i] = '\0';
4556 }
4557#endif
4558 is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
252b5132
RH		 4559 }
4560
047c9024
NC		 4561 create_symbol_htabs ();
4562
86eafac0
NC		 4563 if (argv != NULL)
4564 bfd_set_error_program_name (argv[0]);
4565
252b5132
RH		 4566 if (is_strip)
4567 strip_main (argc, argv);
4568 else
4569 copy_main (argc, argv);
4570
4571 END_PROGRESS (program_name);
4572
4573 return status;
4574}
GDB Binutils - Deliverables
This page took 0.918541 seconds and 4 git commands to generate.