mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-11-27 05:50:43 +00:00
4369 lines
120 KiB
C
4369 lines
120 KiB
C
/* objcopy.c -- copy object file from input to output, optionally massaging it.
|
||
Copyright (C) 1991-2014 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU Binutils.
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
||
02110-1301, USA. */
|
||
|
||
#include "sysdep.h"
|
||
#include "bfd.h"
|
||
#include "progress.h"
|
||
#include "getopt.h"
|
||
#include "libiberty.h"
|
||
#include "bucomm.h"
|
||
#include "budbg.h"
|
||
#include "filenames.h"
|
||
#include "fnmatch.h"
|
||
#include "elf-bfd.h"
|
||
#include "libbfd.h"
|
||
#include "coff/internal.h"
|
||
#include "libcoff.h"
|
||
|
||
/* FIXME: See bfd/peXXigen.c for why we include an architecture specific
|
||
header in generic PE code. */
|
||
#include "coff/i386.h"
|
||
#include "coff/pe.h"
|
||
|
||
static bfd_vma pe_file_alignment = (bfd_vma) -1;
|
||
static bfd_vma pe_heap_commit = (bfd_vma) -1;
|
||
static bfd_vma pe_heap_reserve = (bfd_vma) -1;
|
||
static bfd_vma pe_image_base = (bfd_vma) -1;
|
||
static bfd_vma pe_section_alignment = (bfd_vma) -1;
|
||
static bfd_vma pe_stack_commit = (bfd_vma) -1;
|
||
static bfd_vma pe_stack_reserve = (bfd_vma) -1;
|
||
static short pe_subsystem = -1;
|
||
static short pe_major_subsystem_version = -1;
|
||
static short pe_minor_subsystem_version = -1;
|
||
|
||
struct is_specified_symbol_predicate_data
|
||
{
|
||
const char *name;
|
||
bfd_boolean found;
|
||
};
|
||
|
||
/* A list to support redefine_sym. */
|
||
struct redefine_node
|
||
{
|
||
char *source;
|
||
char *target;
|
||
struct redefine_node *next;
|
||
};
|
||
|
||
typedef struct section_rename
|
||
{
|
||
const char * old_name;
|
||
const char * new_name;
|
||
flagword flags;
|
||
struct section_rename * next;
|
||
}
|
||
section_rename;
|
||
|
||
/* List of sections to be renamed. */
|
||
static section_rename *section_rename_list;
|
||
|
||
static asymbol **isympp = NULL; /* Input symbols. */
|
||
static asymbol **osympp = NULL; /* Output symbols that survive stripping. */
|
||
|
||
/* If `copy_byte' >= 0, copy 'copy_width' byte(s) of every `interleave' bytes. */
|
||
static int copy_byte = -1;
|
||
static int interleave = 0; /* Initialised to 4 in copy_main(). */
|
||
static int copy_width = 1;
|
||
|
||
static bfd_boolean verbose; /* Print file and target names. */
|
||
static bfd_boolean preserve_dates; /* Preserve input file timestamp. */
|
||
static int deterministic = -1; /* Enable deterministic archives. */
|
||
static int status = 0; /* Exit status. */
|
||
|
||
enum strip_action
|
||
{
|
||
STRIP_UNDEF,
|
||
STRIP_NONE, /* Don't strip. */
|
||
STRIP_DEBUG, /* Strip all debugger symbols. */
|
||
STRIP_UNNEEDED, /* Strip unnecessary symbols. */
|
||
STRIP_NONDEBUG, /* Strip everything but debug info. */
|
||
STRIP_DWO, /* Strip all DWO info. */
|
||
STRIP_NONDWO, /* Strip everything but DWO info. */
|
||
STRIP_ALL /* Strip all symbols. */
|
||
};
|
||
|
||
/* Which symbols to remove. */
|
||
static enum strip_action strip_symbols = STRIP_UNDEF;
|
||
|
||
enum locals_action
|
||
{
|
||
LOCALS_UNDEF,
|
||
LOCALS_START_L, /* Discard locals starting with L. */
|
||
LOCALS_ALL /* Discard all locals. */
|
||
};
|
||
|
||
/* Which local symbols to remove. Overrides STRIP_ALL. */
|
||
static enum locals_action discard_locals;
|
||
|
||
/* Structure used to hold lists of sections and actions to take. */
|
||
struct section_list
|
||
{
|
||
struct section_list * next; /* Next section to change. */
|
||
const char * pattern; /* Section name pattern. */
|
||
bfd_boolean used; /* Whether this entry was used. */
|
||
|
||
unsigned int context; /* What to do with matching sections. */
|
||
/* Flag bits used in the context field.
|
||
COPY and REMOVE are mutually exlusive. SET and ALTER are mutually exclusive. */
|
||
#define SECTION_CONTEXT_REMOVE (1 << 0) /* Remove this section. */
|
||
#define SECTION_CONTEXT_COPY (1 << 1) /* Copy this section, delete all non-copied section. */
|
||
#define SECTION_CONTEXT_SET_VMA (1 << 2) /* Set the sections' VMA address. */
|
||
#define SECTION_CONTEXT_ALTER_VMA (1 << 3) /* Increment or decrement the section's VMA address. */
|
||
#define SECTION_CONTEXT_SET_LMA (1 << 4) /* Set the sections' LMA address. */
|
||
#define SECTION_CONTEXT_ALTER_LMA (1 << 5) /* Increment or decrement the section's LMA address. */
|
||
#define SECTION_CONTEXT_SET_FLAGS (1 << 6) /* Set the section's flags. */
|
||
|
||
bfd_vma vma_val; /* Amount to change by or set to. */
|
||
bfd_vma lma_val; /* Amount to change by or set to. */
|
||
flagword flags; /* What to set the section flags to. */
|
||
};
|
||
|
||
static struct section_list *change_sections;
|
||
|
||
/* TRUE if some sections are to be removed. */
|
||
static bfd_boolean sections_removed;
|
||
|
||
/* TRUE if only some sections are to be copied. */
|
||
static bfd_boolean sections_copied;
|
||
|
||
/* Changes to the start address. */
|
||
static bfd_vma change_start = 0;
|
||
static bfd_boolean set_start_set = FALSE;
|
||
static bfd_vma set_start;
|
||
|
||
/* Changes to section addresses. */
|
||
static bfd_vma change_section_address = 0;
|
||
|
||
/* Filling gaps between sections. */
|
||
static bfd_boolean gap_fill_set = FALSE;
|
||
static bfd_byte gap_fill = 0;
|
||
|
||
/* Pad to a given address. */
|
||
static bfd_boolean pad_to_set = FALSE;
|
||
static bfd_vma pad_to;
|
||
|
||
/* Use alternative machine code? */
|
||
static unsigned long use_alt_mach_code = 0;
|
||
|
||
/* Output BFD flags user wants to set or clear */
|
||
static flagword bfd_flags_to_set;
|
||
static flagword bfd_flags_to_clear;
|
||
|
||
/* List of sections to add. */
|
||
struct section_add
|
||
{
|
||
/* Next section to add. */
|
||
struct section_add *next;
|
||
/* Name of section to add. */
|
||
const char *name;
|
||
/* Name of file holding section contents. */
|
||
const char *filename;
|
||
/* Size of file. */
|
||
size_t size;
|
||
/* Contents of file. */
|
||
bfd_byte *contents;
|
||
/* BFD section, after it has been added. */
|
||
asection *section;
|
||
};
|
||
|
||
/* List of sections to add to the output BFD. */
|
||
static struct section_add *add_sections;
|
||
|
||
/* List of sections to dump from the output BFD. */
|
||
static struct section_add *dump_sections;
|
||
|
||
/* If non-NULL the argument to --add-gnu-debuglink.
|
||
This should be the filename to store in the .gnu_debuglink section. */
|
||
static const char * gnu_debuglink_filename = NULL;
|
||
|
||
/* Whether to convert debugging information. */
|
||
static bfd_boolean convert_debugging = FALSE;
|
||
|
||
/* Whether to compress/decompress DWARF debug sections. */
|
||
static enum
|
||
{
|
||
nothing,
|
||
compress,
|
||
decompress
|
||
} do_debug_sections = nothing;
|
||
|
||
/* Whether to change the leading character in symbol names. */
|
||
static bfd_boolean change_leading_char = FALSE;
|
||
|
||
/* Whether to remove the leading character from global symbol names. */
|
||
static bfd_boolean remove_leading_char = FALSE;
|
||
|
||
/* Whether to permit wildcard in symbol comparison. */
|
||
static bfd_boolean wildcard = FALSE;
|
||
|
||
/* True if --localize-hidden is in effect. */
|
||
static bfd_boolean localize_hidden = FALSE;
|
||
|
||
/* List of symbols to strip, keep, localize, keep-global, weaken,
|
||
or redefine. */
|
||
static htab_t strip_specific_htab = NULL;
|
||
static htab_t strip_unneeded_htab = NULL;
|
||
static htab_t keep_specific_htab = NULL;
|
||
static htab_t localize_specific_htab = NULL;
|
||
static htab_t globalize_specific_htab = NULL;
|
||
static htab_t keepglobal_specific_htab = NULL;
|
||
static htab_t weaken_specific_htab = NULL;
|
||
static struct redefine_node *redefine_sym_list = NULL;
|
||
|
||
/* If this is TRUE, we weaken global symbols (set BSF_WEAK). */
|
||
static bfd_boolean weaken = FALSE;
|
||
|
||
/* If this is TRUE, we retain BSF_FILE symbols. */
|
||
static bfd_boolean keep_file_symbols = FALSE;
|
||
|
||
/* Prefix symbols/sections. */
|
||
static char *prefix_symbols_string = 0;
|
||
static char *prefix_sections_string = 0;
|
||
static char *prefix_alloc_sections_string = 0;
|
||
|
||
/* True if --extract-symbol was passed on the command line. */
|
||
static bfd_boolean extract_symbol = FALSE;
|
||
|
||
/* If `reverse_bytes' is nonzero, then reverse the order of every chunk
|
||
of <reverse_bytes> bytes within each output section. */
|
||
static int reverse_bytes = 0;
|
||
|
||
/* For Coff objects, we may want to allow or disallow long section names,
|
||
or preserve them where found in the inputs. Debug info relies on them. */
|
||
enum long_section_name_handling
|
||
{
|
||
DISABLE,
|
||
ENABLE,
|
||
KEEP
|
||
};
|
||
|
||
/* The default long section handling mode is to preserve them.
|
||
This is also the only behaviour for 'strip'. */
|
||
static enum long_section_name_handling long_section_names = KEEP;
|
||
|
||
/* 150 isn't special; it's just an arbitrary non-ASCII char value. */
|
||
enum command_line_switch
|
||
{
|
||
OPTION_ADD_SECTION=150,
|
||
OPTION_DUMP_SECTION,
|
||
OPTION_CHANGE_ADDRESSES,
|
||
OPTION_CHANGE_LEADING_CHAR,
|
||
OPTION_CHANGE_START,
|
||
OPTION_CHANGE_SECTION_ADDRESS,
|
||
OPTION_CHANGE_SECTION_LMA,
|
||
OPTION_CHANGE_SECTION_VMA,
|
||
OPTION_CHANGE_WARNINGS,
|
||
OPTION_COMPRESS_DEBUG_SECTIONS,
|
||
OPTION_DEBUGGING,
|
||
OPTION_DECOMPRESS_DEBUG_SECTIONS,
|
||
OPTION_GAP_FILL,
|
||
OPTION_NO_CHANGE_WARNINGS,
|
||
OPTION_PAD_TO,
|
||
OPTION_REMOVE_LEADING_CHAR,
|
||
OPTION_SET_SECTION_FLAGS,
|
||
OPTION_SET_START,
|
||
OPTION_STRIP_UNNEEDED,
|
||
OPTION_WEAKEN,
|
||
OPTION_REDEFINE_SYM,
|
||
OPTION_REDEFINE_SYMS,
|
||
OPTION_SREC_LEN,
|
||
OPTION_SREC_FORCES3,
|
||
OPTION_STRIP_SYMBOLS,
|
||
OPTION_STRIP_UNNEEDED_SYMBOL,
|
||
OPTION_STRIP_UNNEEDED_SYMBOLS,
|
||
OPTION_KEEP_SYMBOLS,
|
||
OPTION_LOCALIZE_HIDDEN,
|
||
OPTION_LOCALIZE_SYMBOLS,
|
||
OPTION_LONG_SECTION_NAMES,
|
||
OPTION_GLOBALIZE_SYMBOL,
|
||
OPTION_GLOBALIZE_SYMBOLS,
|
||
OPTION_KEEPGLOBAL_SYMBOLS,
|
||
OPTION_WEAKEN_SYMBOLS,
|
||
OPTION_RENAME_SECTION,
|
||
OPTION_ALT_MACH_CODE,
|
||
OPTION_PREFIX_SYMBOLS,
|
||
OPTION_PREFIX_SECTIONS,
|
||
OPTION_PREFIX_ALLOC_SECTIONS,
|
||
OPTION_FORMATS_INFO,
|
||
OPTION_ADD_GNU_DEBUGLINK,
|
||
OPTION_ONLY_KEEP_DEBUG,
|
||
OPTION_KEEP_FILE_SYMBOLS,
|
||
OPTION_READONLY_TEXT,
|
||
OPTION_WRITABLE_TEXT,
|
||
OPTION_PURE,
|
||
OPTION_IMPURE,
|
||
OPTION_EXTRACT_SYMBOL,
|
||
OPTION_REVERSE_BYTES,
|
||
OPTION_FILE_ALIGNMENT,
|
||
OPTION_HEAP,
|
||
OPTION_IMAGE_BASE,
|
||
OPTION_SECTION_ALIGNMENT,
|
||
OPTION_STACK,
|
||
OPTION_INTERLEAVE_WIDTH,
|
||
OPTION_SUBSYSTEM,
|
||
OPTION_EXTRACT_DWO,
|
||
OPTION_STRIP_DWO
|
||
};
|
||
|
||
/* Options to handle if running as "strip". */
|
||
|
||
static struct option strip_options[] =
|
||
{
|
||
{"disable-deterministic-archives", no_argument, 0, 'U'},
|
||
{"discard-all", no_argument, 0, 'x'},
|
||
{"discard-locals", no_argument, 0, 'X'},
|
||
{"enable-deterministic-archives", no_argument, 0, 'D'},
|
||
{"format", required_argument, 0, 'F'}, /* Obsolete */
|
||
{"help", no_argument, 0, 'h'},
|
||
{"info", no_argument, 0, OPTION_FORMATS_INFO},
|
||
{"input-format", required_argument, 0, 'I'}, /* Obsolete */
|
||
{"input-target", required_argument, 0, 'I'},
|
||
{"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
|
||
{"keep-symbol", required_argument, 0, 'K'},
|
||
{"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
|
||
{"output-format", required_argument, 0, 'O'}, /* Obsolete */
|
||
{"output-target", required_argument, 0, 'O'},
|
||
{"output-file", required_argument, 0, 'o'},
|
||
{"preserve-dates", no_argument, 0, 'p'},
|
||
{"remove-section", required_argument, 0, 'R'},
|
||
{"strip-all", no_argument, 0, 's'},
|
||
{"strip-debug", no_argument, 0, 'S'},
|
||
{"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
|
||
{"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
|
||
{"strip-symbol", required_argument, 0, 'N'},
|
||
{"target", required_argument, 0, 'F'},
|
||
{"verbose", no_argument, 0, 'v'},
|
||
{"version", no_argument, 0, 'V'},
|
||
{"wildcard", no_argument, 0, 'w'},
|
||
{0, no_argument, 0, 0}
|
||
};
|
||
|
||
/* Options to handle if running as "objcopy". */
|
||
|
||
static struct option copy_options[] =
|
||
{
|
||
{"add-gnu-debuglink", required_argument, 0, OPTION_ADD_GNU_DEBUGLINK},
|
||
{"add-section", required_argument, 0, OPTION_ADD_SECTION},
|
||
{"adjust-start", required_argument, 0, OPTION_CHANGE_START},
|
||
{"adjust-vma", required_argument, 0, OPTION_CHANGE_ADDRESSES},
|
||
{"adjust-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
|
||
{"adjust-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
|
||
{"alt-machine-code", required_argument, 0, OPTION_ALT_MACH_CODE},
|
||
{"binary-architecture", required_argument, 0, 'B'},
|
||
{"byte", required_argument, 0, 'b'},
|
||
{"change-addresses", required_argument, 0, OPTION_CHANGE_ADDRESSES},
|
||
{"change-leading-char", no_argument, 0, OPTION_CHANGE_LEADING_CHAR},
|
||
{"change-section-address", required_argument, 0, OPTION_CHANGE_SECTION_ADDRESS},
|
||
{"change-section-lma", required_argument, 0, OPTION_CHANGE_SECTION_LMA},
|
||
{"change-section-vma", required_argument, 0, OPTION_CHANGE_SECTION_VMA},
|
||
{"change-start", required_argument, 0, OPTION_CHANGE_START},
|
||
{"change-warnings", no_argument, 0, OPTION_CHANGE_WARNINGS},
|
||
{"compress-debug-sections", no_argument, 0, OPTION_COMPRESS_DEBUG_SECTIONS},
|
||
{"debugging", no_argument, 0, OPTION_DEBUGGING},
|
||
{"decompress-debug-sections", no_argument, 0, OPTION_DECOMPRESS_DEBUG_SECTIONS},
|
||
{"disable-deterministic-archives", no_argument, 0, 'U'},
|
||
{"discard-all", no_argument, 0, 'x'},
|
||
{"discard-locals", no_argument, 0, 'X'},
|
||
{"dump-section", required_argument, 0, OPTION_DUMP_SECTION},
|
||
{"enable-deterministic-archives", no_argument, 0, 'D'},
|
||
{"extract-dwo", no_argument, 0, OPTION_EXTRACT_DWO},
|
||
{"extract-symbol", no_argument, 0, OPTION_EXTRACT_SYMBOL},
|
||
{"format", required_argument, 0, 'F'}, /* Obsolete */
|
||
{"gap-fill", required_argument, 0, OPTION_GAP_FILL},
|
||
{"globalize-symbol", required_argument, 0, OPTION_GLOBALIZE_SYMBOL},
|
||
{"globalize-symbols", required_argument, 0, OPTION_GLOBALIZE_SYMBOLS},
|
||
{"help", no_argument, 0, 'h'},
|
||
{"impure", no_argument, 0, OPTION_IMPURE},
|
||
{"info", no_argument, 0, OPTION_FORMATS_INFO},
|
||
{"input-format", required_argument, 0, 'I'}, /* Obsolete */
|
||
{"input-target", required_argument, 0, 'I'},
|
||
{"interleave", optional_argument, 0, 'i'},
|
||
{"interleave-width", required_argument, 0, OPTION_INTERLEAVE_WIDTH},
|
||
{"keep-file-symbols", no_argument, 0, OPTION_KEEP_FILE_SYMBOLS},
|
||
{"keep-global-symbol", required_argument, 0, 'G'},
|
||
{"keep-global-symbols", required_argument, 0, OPTION_KEEPGLOBAL_SYMBOLS},
|
||
{"keep-symbol", required_argument, 0, 'K'},
|
||
{"keep-symbols", required_argument, 0, OPTION_KEEP_SYMBOLS},
|
||
{"localize-hidden", no_argument, 0, OPTION_LOCALIZE_HIDDEN},
|
||
{"localize-symbol", required_argument, 0, 'L'},
|
||
{"localize-symbols", required_argument, 0, OPTION_LOCALIZE_SYMBOLS},
|
||
{"long-section-names", required_argument, 0, OPTION_LONG_SECTION_NAMES},
|
||
{"no-adjust-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
|
||
{"no-change-warnings", no_argument, 0, OPTION_NO_CHANGE_WARNINGS},
|
||
{"only-keep-debug", no_argument, 0, OPTION_ONLY_KEEP_DEBUG},
|
||
{"only-section", required_argument, 0, 'j'},
|
||
{"output-format", required_argument, 0, 'O'}, /* Obsolete */
|
||
{"output-target", required_argument, 0, 'O'},
|
||
{"pad-to", required_argument, 0, OPTION_PAD_TO},
|
||
{"prefix-symbols", required_argument, 0, OPTION_PREFIX_SYMBOLS},
|
||
{"prefix-sections", required_argument, 0, OPTION_PREFIX_SECTIONS},
|
||
{"prefix-alloc-sections", required_argument, 0, OPTION_PREFIX_ALLOC_SECTIONS},
|
||
{"preserve-dates", no_argument, 0, 'p'},
|
||
{"pure", no_argument, 0, OPTION_PURE},
|
||
{"readonly-text", no_argument, 0, OPTION_READONLY_TEXT},
|
||
{"redefine-sym", required_argument, 0, OPTION_REDEFINE_SYM},
|
||
{"redefine-syms", required_argument, 0, OPTION_REDEFINE_SYMS},
|
||
{"remove-leading-char", no_argument, 0, OPTION_REMOVE_LEADING_CHAR},
|
||
{"remove-section", required_argument, 0, 'R'},
|
||
{"rename-section", required_argument, 0, OPTION_RENAME_SECTION},
|
||
{"reverse-bytes", required_argument, 0, OPTION_REVERSE_BYTES},
|
||
{"set-section-flags", required_argument, 0, OPTION_SET_SECTION_FLAGS},
|
||
{"set-start", required_argument, 0, OPTION_SET_START},
|
||
{"srec-len", required_argument, 0, OPTION_SREC_LEN},
|
||
{"srec-forceS3", no_argument, 0, OPTION_SREC_FORCES3},
|
||
{"strip-all", no_argument, 0, 'S'},
|
||
{"strip-debug", no_argument, 0, 'g'},
|
||
{"strip-dwo", no_argument, 0, OPTION_STRIP_DWO},
|
||
{"strip-unneeded", no_argument, 0, OPTION_STRIP_UNNEEDED},
|
||
{"strip-unneeded-symbol", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOL},
|
||
{"strip-unneeded-symbols", required_argument, 0, OPTION_STRIP_UNNEEDED_SYMBOLS},
|
||
{"strip-symbol", required_argument, 0, 'N'},
|
||
{"strip-symbols", required_argument, 0, OPTION_STRIP_SYMBOLS},
|
||
{"target", required_argument, 0, 'F'},
|
||
{"verbose", no_argument, 0, 'v'},
|
||
{"version", no_argument, 0, 'V'},
|
||
{"weaken", no_argument, 0, OPTION_WEAKEN},
|
||
{"weaken-symbol", required_argument, 0, 'W'},
|
||
{"weaken-symbols", required_argument, 0, OPTION_WEAKEN_SYMBOLS},
|
||
{"wildcard", no_argument, 0, 'w'},
|
||
{"writable-text", no_argument, 0, OPTION_WRITABLE_TEXT},
|
||
{"file-alignment", required_argument, 0, OPTION_FILE_ALIGNMENT},
|
||
{"heap", required_argument, 0, OPTION_HEAP},
|
||
{"image-base", required_argument, 0 , OPTION_IMAGE_BASE},
|
||
{"section-alignment", required_argument, 0, OPTION_SECTION_ALIGNMENT},
|
||
{"stack", required_argument, 0, OPTION_STACK},
|
||
{"subsystem", required_argument, 0, OPTION_SUBSYSTEM},
|
||
{0, no_argument, 0, 0}
|
||
};
|
||
|
||
/* IMPORTS */
|
||
extern char *program_name;
|
||
|
||
/* This flag distinguishes between strip and objcopy:
|
||
1 means this is 'strip'; 0 means this is 'objcopy'.
|
||
-1 means if we should use argv[0] to decide. */
|
||
extern int is_strip;
|
||
|
||
/* The maximum length of an S record. This variable is declared in srec.c
|
||
and can be modified by the --srec-len parameter. */
|
||
extern unsigned int Chunk;
|
||
|
||
/* Restrict the generation of Srecords to type S3 only.
|
||
This variable is declare in bfd/srec.c and can be toggled
|
||
on by the --srec-forceS3 command line switch. */
|
||
extern bfd_boolean S3Forced;
|
||
|
||
/* Forward declarations. */
|
||
static void setup_section (bfd *, asection *, void *);
|
||
static void setup_bfd_headers (bfd *, bfd *);
|
||
static void copy_relocations_in_section (bfd *, asection *, void *);
|
||
static void copy_section (bfd *, asection *, void *);
|
||
static void get_sections (bfd *, asection *, void *);
|
||
static int compare_section_lma (const void *, const void *);
|
||
static void mark_symbols_used_in_relocations (bfd *, asection *, void *);
|
||
static bfd_boolean write_debugging_info (bfd *, void *, long *, asymbol ***);
|
||
static const char *lookup_sym_redefinition (const char *);
|
||
|
||
static void
|
||
copy_usage (FILE *stream, int exit_status)
|
||
{
|
||
fprintf (stream, _("Usage: %s [option(s)] in-file [out-file]\n"), program_name);
|
||
fprintf (stream, _(" Copies a binary file, possibly transforming it in the process\n"));
|
||
fprintf (stream, _(" The options are:\n"));
|
||
fprintf (stream, _("\
|
||
-I --input-target <bfdname> Assume input file is in format <bfdname>\n\
|
||
-O --output-target <bfdname> Create an output file in format <bfdname>\n\
|
||
-B --binary-architecture <arch> Set output arch, when input is arch-less\n\
|
||
-F --target <bfdname> Set both input and output format to <bfdname>\n\
|
||
--debugging Convert debugging information, if possible\n\
|
||
-p --preserve-dates Copy modified/access timestamps to the output\n"));
|
||
if (DEFAULT_AR_DETERMINISTIC)
|
||
fprintf (stream, _("\
|
||
-D --enable-deterministic-archives\n\
|
||
Produce deterministic output when stripping archives (default)\n\
|
||
-U --disable-deterministic-archives\n\
|
||
Disable -D behavior\n"));
|
||
else
|
||
fprintf (stream, _("\
|
||
-D --enable-deterministic-archives\n\
|
||
Produce deterministic output when stripping archives\n\
|
||
-U --disable-deterministic-archives\n\
|
||
Disable -D behavior (default)\n"));
|
||
fprintf (stream, _("\
|
||
-j --only-section <name> Only copy section <name> into the output\n\
|
||
--add-gnu-debuglink=<file> Add section .gnu_debuglink linking to <file>\n\
|
||
-R --remove-section <name> Remove section <name> from the output\n\
|
||
-S --strip-all Remove all symbol and relocation information\n\
|
||
-g --strip-debug Remove all debugging symbols & sections\n\
|
||
--strip-dwo Remove all DWO sections\n\
|
||
--strip-unneeded Remove all symbols not needed by relocations\n\
|
||
-N --strip-symbol <name> Do not copy symbol <name>\n\
|
||
--strip-unneeded-symbol <name>\n\
|
||
Do not copy symbol <name> unless needed by\n\
|
||
relocations\n\
|
||
--only-keep-debug Strip everything but the debug information\n\
|
||
--extract-dwo Copy only DWO sections\n\
|
||
--extract-symbol Remove section contents but keep symbols\n\
|
||
-K --keep-symbol <name> Do not strip symbol <name>\n\
|
||
--keep-file-symbols Do not strip file symbol(s)\n\
|
||
--localize-hidden Turn all ELF hidden symbols into locals\n\
|
||
-L --localize-symbol <name> Force symbol <name> to be marked as a local\n\
|
||
--globalize-symbol <name> Force symbol <name> to be marked as a global\n\
|
||
-G --keep-global-symbol <name> Localize all symbols except <name>\n\
|
||
-W --weaken-symbol <name> Force symbol <name> to be marked as a weak\n\
|
||
--weaken Force all global symbols to be marked as weak\n\
|
||
-w --wildcard Permit wildcard in symbol comparison\n\
|
||
-x --discard-all Remove all non-global symbols\n\
|
||
-X --discard-locals Remove any compiler-generated symbols\n\
|
||
-i --interleave [<number>] Only copy N out of every <number> bytes\n\
|
||
--interleave-width <number> Set N for --interleave\n\
|
||
-b --byte <num> Select byte <num> in every interleaved block\n\
|
||
--gap-fill <val> Fill gaps between sections with <val>\n\
|
||
--pad-to <addr> Pad the last section up to address <addr>\n\
|
||
--set-start <addr> Set the start address to <addr>\n\
|
||
{--change-start|--adjust-start} <incr>\n\
|
||
Add <incr> to the start address\n\
|
||
{--change-addresses|--adjust-vma} <incr>\n\
|
||
Add <incr> to LMA, VMA and start addresses\n\
|
||
{--change-section-address|--adjust-section-vma} <name>{=|+|-}<val>\n\
|
||
Change LMA and VMA of section <name> by <val>\n\
|
||
--change-section-lma <name>{=|+|-}<val>\n\
|
||
Change the LMA of section <name> by <val>\n\
|
||
--change-section-vma <name>{=|+|-}<val>\n\
|
||
Change the VMA of section <name> by <val>\n\
|
||
{--[no-]change-warnings|--[no-]adjust-warnings}\n\
|
||
Warn if a named section does not exist\n\
|
||
--set-section-flags <name>=<flags>\n\
|
||
Set section <name>'s properties to <flags>\n\
|
||
--add-section <name>=<file> Add section <name> found in <file> to output\n\
|
||
--dump-section <name>=<file> Dump the contents of section <name> into <file>\n\
|
||
--rename-section <old>=<new>[,<flags>] Rename section <old> to <new>\n\
|
||
--long-section-names {enable|disable|keep}\n\
|
||
Handle long section names in Coff objects.\n\
|
||
--change-leading-char Force output format's leading character style\n\
|
||
--remove-leading-char Remove leading character from global symbols\n\
|
||
--reverse-bytes=<num> Reverse <num> bytes at a time, in output sections with content\n\
|
||
--redefine-sym <old>=<new> Redefine symbol name <old> to <new>\n\
|
||
--redefine-syms <file> --redefine-sym for all symbol pairs \n\
|
||
listed in <file>\n\
|
||
--srec-len <number> Restrict the length of generated Srecords\n\
|
||
--srec-forceS3 Restrict the type of generated Srecords to S3\n\
|
||
--strip-symbols <file> -N for all symbols listed in <file>\n\
|
||
--strip-unneeded-symbols <file>\n\
|
||
--strip-unneeded-symbol for all symbols listed\n\
|
||
in <file>\n\
|
||
--keep-symbols <file> -K for all symbols listed in <file>\n\
|
||
--localize-symbols <file> -L for all symbols listed in <file>\n\
|
||
--globalize-symbols <file> --globalize-symbol for all in <file>\n\
|
||
--keep-global-symbols <file> -G for all symbols listed in <file>\n\
|
||
--weaken-symbols <file> -W for all symbols listed in <file>\n\
|
||
--alt-machine-code <index> Use the target's <index>'th alternative machine\n\
|
||
--writable-text Mark the output text as writable\n\
|
||
--readonly-text Make the output text write protected\n\
|
||
--pure Mark the output file as demand paged\n\
|
||
--impure Mark the output file as impure\n\
|
||
--prefix-symbols <prefix> Add <prefix> to start of every symbol name\n\
|
||
--prefix-sections <prefix> Add <prefix> to start of every section name\n\
|
||
--prefix-alloc-sections <prefix>\n\
|
||
Add <prefix> to start of every allocatable\n\
|
||
section name\n\
|
||
--file-alignment <num> Set PE file alignment to <num>\n\
|
||
--heap <reserve>[,<commit>] Set PE reserve/commit heap to <reserve>/\n\
|
||
<commit>\n\
|
||
--image-base <address> Set PE image base to <address>\n\
|
||
--section-alignment <num> Set PE section alignment to <num>\n\
|
||
--stack <reserve>[,<commit>] Set PE reserve/commit stack to <reserve>/\n\
|
||
<commit>\n\
|
||
--subsystem <name>[:<version>]\n\
|
||
Set PE subsystem to <name> [& <version>]\n\
|
||
--compress-debug-sections Compress DWARF debug sections using zlib\n\
|
||
--decompress-debug-sections Decompress DWARF debug sections using zlib\n\
|
||
-v --verbose List all object files modified\n\
|
||
@<file> Read options from <file>\n\
|
||
-V --version Display this program's version number\n\
|
||
-h --help Display this output\n\
|
||
--info List object formats & architectures supported\n\
|
||
"));
|
||
list_supported_targets (program_name, stream);
|
||
if (REPORT_BUGS_TO[0] && exit_status == 0)
|
||
fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
|
||
exit (exit_status);
|
||
}
|
||
|
||
static void
|
||
strip_usage (FILE *stream, int exit_status)
|
||
{
|
||
fprintf (stream, _("Usage: %s <option(s)> in-file(s)\n"), program_name);
|
||
fprintf (stream, _(" Removes symbols and sections from files\n"));
|
||
fprintf (stream, _(" The options are:\n"));
|
||
fprintf (stream, _("\
|
||
-I --input-target=<bfdname> Assume input file is in format <bfdname>\n\
|
||
-O --output-target=<bfdname> Create an output file in format <bfdname>\n\
|
||
-F --target=<bfdname> Set both input and output format to <bfdname>\n\
|
||
-p --preserve-dates Copy modified/access timestamps to the output\n\
|
||
"));
|
||
if (DEFAULT_AR_DETERMINISTIC)
|
||
fprintf (stream, _("\
|
||
-D --enable-deterministic-archives\n\
|
||
Produce deterministic output when stripping archives (default)\n\
|
||
-U --disable-deterministic-archives\n\
|
||
Disable -D behavior\n"));
|
||
else
|
||
fprintf (stream, _("\
|
||
-D --enable-deterministic-archives\n\
|
||
Produce deterministic output when stripping archives\n\
|
||
-U --disable-deterministic-archives\n\
|
||
Disable -D behavior (default)\n"));
|
||
fprintf (stream, _("\
|
||
-R --remove-section=<name> Remove section <name> from the output\n\
|
||
-s --strip-all Remove all symbol and relocation information\n\
|
||
-g -S -d --strip-debug Remove all debugging symbols & sections\n\
|
||
--strip-dwo Remove all DWO sections\n\
|
||
--strip-unneeded Remove all symbols not needed by relocations\n\
|
||
--only-keep-debug Strip everything but the debug information\n\
|
||
-N --strip-symbol=<name> Do not copy symbol <name>\n\
|
||
-K --keep-symbol=<name> Do not strip symbol <name>\n\
|
||
--keep-file-symbols Do not strip file symbol(s)\n\
|
||
-w --wildcard Permit wildcard in symbol comparison\n\
|
||
-x --discard-all Remove all non-global symbols\n\
|
||
-X --discard-locals Remove any compiler-generated symbols\n\
|
||
-v --verbose List all object files modified\n\
|
||
-V --version Display this program's version number\n\
|
||
-h --help Display this output\n\
|
||
--info List object formats & architectures supported\n\
|
||
-o <file> Place stripped output into <file>\n\
|
||
"));
|
||
|
||
list_supported_targets (program_name, stream);
|
||
if (REPORT_BUGS_TO[0] && exit_status == 0)
|
||
fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
|
||
exit (exit_status);
|
||
}
|
||
|
||
/* Parse section flags into a flagword, with a fatal error if the
|
||
string can't be parsed. */
|
||
|
||
static flagword
|
||
parse_flags (const char *s)
|
||
{
|
||
flagword ret;
|
||
const char *snext;
|
||
int len;
|
||
|
||
ret = SEC_NO_FLAGS;
|
||
|
||
do
|
||
{
|
||
snext = strchr (s, ',');
|
||
if (snext == NULL)
|
||
len = strlen (s);
|
||
else
|
||
{
|
||
len = snext - s;
|
||
++snext;
|
||
}
|
||
|
||
if (0) ;
|
||
#define PARSE_FLAG(fname,fval) \
|
||
else if (strncasecmp (fname, s, len) == 0) ret |= fval
|
||
PARSE_FLAG ("alloc", SEC_ALLOC);
|
||
PARSE_FLAG ("load", SEC_LOAD);
|
||
PARSE_FLAG ("noload", SEC_NEVER_LOAD);
|
||
PARSE_FLAG ("readonly", SEC_READONLY);
|
||
PARSE_FLAG ("debug", SEC_DEBUGGING);
|
||
PARSE_FLAG ("code", SEC_CODE);
|
||
PARSE_FLAG ("data", SEC_DATA);
|
||
PARSE_FLAG ("rom", SEC_ROM);
|
||
PARSE_FLAG ("share", SEC_COFF_SHARED);
|
||
PARSE_FLAG ("contents", SEC_HAS_CONTENTS);
|
||
PARSE_FLAG ("merge", SEC_MERGE);
|
||
PARSE_FLAG ("strings", SEC_STRINGS);
|
||
#undef PARSE_FLAG
|
||
else
|
||
{
|
||
char *copy;
|
||
|
||
copy = (char *) xmalloc (len + 1);
|
||
strncpy (copy, s, len);
|
||
copy[len] = '\0';
|
||
non_fatal (_("unrecognized section flag `%s'"), copy);
|
||
fatal (_("supported flags: %s"),
|
||
"alloc, load, noload, readonly, debug, code, data, rom, share, contents, merge, strings");
|
||
}
|
||
|
||
s = snext;
|
||
}
|
||
while (s != NULL);
|
||
|
||
return ret;
|
||
}
|
||
|
||
/* Find and optionally add an entry in the change_sections list.
|
||
|
||
We need to be careful in how we match section names because of the support
|
||
for wildcard characters. For example suppose that the user has invoked
|
||
objcopy like this:
|
||
|
||
--set-section-flags .debug_*=debug
|
||
--set-section-flags .debug_str=readonly,debug
|
||
--change-section-address .debug_*ranges=0x1000
|
||
|
||
With the idea that all debug sections will receive the DEBUG flag, the
|
||
.debug_str section will also receive the READONLY flag and the
|
||
.debug_ranges and .debug_aranges sections will have their address set to
|
||
0x1000. (This may not make much sense, but it is just an example).
|
||
|
||
When adding the section name patterns to the section list we need to make
|
||
sure that previous entries do not match with the new entry, unless the
|
||
match is exact. (In which case we assume that the user is overriding
|
||
the previous entry with the new context).
|
||
|
||
When matching real section names to the section list we make use of the
|
||
wildcard characters, but we must do so in context. Eg if we are setting
|
||
section addresses then we match for .debug_ranges but not for .debug_info.
|
||
|
||
Finally, if ADD is false and we do find a match, we mark the section list
|
||
entry as used. */
|
||
|
||
static struct section_list *
|
||
find_section_list (const char *name, bfd_boolean add, unsigned int context)
|
||
{
|
||
struct section_list *p;
|
||
|
||
/* assert ((context & ((1 << 7) - 1)) != 0); */
|
||
|
||
for (p = change_sections; p != NULL; p = p->next)
|
||
{
|
||
if (add)
|
||
{
|
||
if (strcmp (p->pattern, name) == 0)
|
||
{
|
||
/* Check for context conflicts. */
|
||
if (((p->context & SECTION_CONTEXT_REMOVE)
|
||
&& (context & SECTION_CONTEXT_COPY))
|
||
|| ((context & SECTION_CONTEXT_REMOVE)
|
||
&& (p->context & SECTION_CONTEXT_COPY)))
|
||
fatal (_("error: %s both copied and removed"), name);
|
||
|
||
if (((p->context & SECTION_CONTEXT_SET_VMA)
|
||
&& (context & SECTION_CONTEXT_ALTER_VMA))
|
||
|| ((context & SECTION_CONTEXT_SET_VMA)
|
||
&& (context & SECTION_CONTEXT_ALTER_VMA)))
|
||
fatal (_("error: %s both sets and alters VMA"), name);
|
||
|
||
if (((p->context & SECTION_CONTEXT_SET_LMA)
|
||
&& (context & SECTION_CONTEXT_ALTER_LMA))
|
||
|| ((context & SECTION_CONTEXT_SET_LMA)
|
||
&& (context & SECTION_CONTEXT_ALTER_LMA)))
|
||
fatal (_("error: %s both sets and alters LMA"), name);
|
||
|
||
/* Extend the context. */
|
||
p->context |= context;
|
||
return p;
|
||
}
|
||
}
|
||
/* If we are not adding a new name/pattern then
|
||
only check for a match if the context applies. */
|
||
else if ((p->context & context)
|
||
/* We could check for the presence of wildchar characters
|
||
first and choose between calling strcmp and fnmatch,
|
||
but is that really worth it ? */
|
||
&& fnmatch (p->pattern, name, 0) == 0)
|
||
{
|
||
p->used = TRUE;
|
||
return p;
|
||
}
|
||
}
|
||
|
||
if (! add)
|
||
return NULL;
|
||
|
||
p = (struct section_list *) xmalloc (sizeof (struct section_list));
|
||
p->pattern = name;
|
||
p->used = FALSE;
|
||
p->context = context;
|
||
p->vma_val = 0;
|
||
p->lma_val = 0;
|
||
p->flags = 0;
|
||
p->next = change_sections;
|
||
change_sections = p;
|
||
|
||
return p;
|
||
}
|
||
|
||
/* There is htab_hash_string but no htab_eq_string. Makes sense. */
|
||
|
||
static int
|
||
eq_string (const void *s1, const void *s2)
|
||
{
|
||
return strcmp ((const char *) s1, (const char *) s2) == 0;
|
||
}
|
||
|
||
static htab_t
|
||
create_symbol_htab (void)
|
||
{
|
||
return htab_create_alloc (16, htab_hash_string, eq_string, NULL, xcalloc, free);
|
||
}
|
||
|
||
static void
|
||
create_symbol_htabs (void)
|
||
{
|
||
strip_specific_htab = create_symbol_htab ();
|
||
strip_unneeded_htab = create_symbol_htab ();
|
||
keep_specific_htab = create_symbol_htab ();
|
||
localize_specific_htab = create_symbol_htab ();
|
||
globalize_specific_htab = create_symbol_htab ();
|
||
keepglobal_specific_htab = create_symbol_htab ();
|
||
weaken_specific_htab = create_symbol_htab ();
|
||
}
|
||
|
||
/* Add a symbol to strip_specific_list. */
|
||
|
||
static void
|
||
add_specific_symbol (const char *name, htab_t htab)
|
||
{
|
||
*htab_find_slot (htab, name, INSERT) = (char *) name;
|
||
}
|
||
|
||
/* Add symbols listed in `filename' to strip_specific_list. */
|
||
|
||
#define IS_WHITESPACE(c) ((c) == ' ' || (c) == '\t')
|
||
#define IS_LINE_TERMINATOR(c) ((c) == '\n' || (c) == '\r' || (c) == '\0')
|
||
|
||
static void
|
||
add_specific_symbols (const char *filename, htab_t htab)
|
||
{
|
||
off_t size;
|
||
FILE * f;
|
||
char * line;
|
||
char * buffer;
|
||
unsigned int line_count;
|
||
|
||
size = get_file_size (filename);
|
||
if (size == 0)
|
||
{
|
||
status = 1;
|
||
return;
|
||
}
|
||
|
||
buffer = (char *) xmalloc (size + 2);
|
||
f = fopen (filename, FOPEN_RT);
|
||
if (f == NULL)
|
||
fatal (_("cannot open '%s': %s"), filename, strerror (errno));
|
||
|
||
if (fread (buffer, 1, size, f) == 0 || ferror (f))
|
||
fatal (_("%s: fread failed"), filename);
|
||
|
||
fclose (f);
|
||
buffer [size] = '\n';
|
||
buffer [size + 1] = '\0';
|
||
|
||
line_count = 1;
|
||
|
||
for (line = buffer; * line != '\0'; line ++)
|
||
{
|
||
char * eol;
|
||
char * name;
|
||
char * name_end;
|
||
int finished = FALSE;
|
||
|
||
for (eol = line;; eol ++)
|
||
{
|
||
switch (* eol)
|
||
{
|
||
case '\n':
|
||
* eol = '\0';
|
||
/* Cope with \n\r. */
|
||
if (eol[1] == '\r')
|
||
++ eol;
|
||
finished = TRUE;
|
||
break;
|
||
|
||
case '\r':
|
||
* eol = '\0';
|
||
/* Cope with \r\n. */
|
||
if (eol[1] == '\n')
|
||
++ eol;
|
||
finished = TRUE;
|
||
break;
|
||
|
||
case 0:
|
||
finished = TRUE;
|
||
break;
|
||
|
||
case '#':
|
||
/* Line comment, Terminate the line here, in case a
|
||
name is present and then allow the rest of the
|
||
loop to find the real end of the line. */
|
||
* eol = '\0';
|
||
break;
|
||
|
||
default:
|
||
break;
|
||
}
|
||
|
||
if (finished)
|
||
break;
|
||
}
|
||
|
||
/* A name may now exist somewhere between 'line' and 'eol'.
|
||
Strip off leading whitespace and trailing whitespace,
|
||
then add it to the list. */
|
||
for (name = line; IS_WHITESPACE (* name); name ++)
|
||
;
|
||
for (name_end = name;
|
||
(! IS_WHITESPACE (* name_end))
|
||
&& (! IS_LINE_TERMINATOR (* name_end));
|
||
name_end ++)
|
||
;
|
||
|
||
if (! IS_LINE_TERMINATOR (* name_end))
|
||
{
|
||
char * extra;
|
||
|
||
for (extra = name_end + 1; IS_WHITESPACE (* extra); extra ++)
|
||
;
|
||
|
||
if (! IS_LINE_TERMINATOR (* extra))
|
||
non_fatal (_("%s:%d: Ignoring rubbish found on this line"),
|
||
filename, line_count);
|
||
}
|
||
|
||
* name_end = '\0';
|
||
|
||
if (name_end > name)
|
||
add_specific_symbol (name, htab);
|
||
|
||
/* Advance line pointer to end of line. The 'eol ++' in the for
|
||
loop above will then advance us to the start of the next line. */
|
||
line = eol;
|
||
line_count ++;
|
||
}
|
||
}
|
||
|
||
/* See whether a symbol should be stripped or kept
|
||
based on strip_specific_list and keep_symbols. */
|
||
|
||
static int
|
||
is_specified_symbol_predicate (void **slot, void *data)
|
||
{
|
||
struct is_specified_symbol_predicate_data *d =
|
||
(struct is_specified_symbol_predicate_data *) data;
|
||
const char *slot_name = (char *) *slot;
|
||
|
||
if (*slot_name != '!')
|
||
{
|
||
if (! fnmatch (slot_name, d->name, 0))
|
||
{
|
||
d->found = TRUE;
|
||
/* Stop traversal. */
|
||
return 0;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (fnmatch (slot_name + 1, d->name, 0))
|
||
{
|
||
d->found = TRUE;
|
||
/* Stop traversal. */
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
/* Continue traversal. */
|
||
return 1;
|
||
}
|
||
|
||
static bfd_boolean
|
||
is_specified_symbol (const char *name, htab_t htab)
|
||
{
|
||
if (wildcard)
|
||
{
|
||
struct is_specified_symbol_predicate_data data;
|
||
|
||
data.name = name;
|
||
data.found = FALSE;
|
||
|
||
htab_traverse (htab, is_specified_symbol_predicate, &data);
|
||
|
||
return data.found;
|
||
}
|
||
|
||
return htab_find (htab, name) != NULL;
|
||
}
|
||
|
||
/* Return a pointer to the symbol used as a signature for GROUP. */
|
||
|
||
static asymbol *
|
||
group_signature (asection *group)
|
||
{
|
||
bfd *abfd = group->owner;
|
||
Elf_Internal_Shdr *ghdr;
|
||
|
||
if (bfd_get_flavour (abfd) != bfd_target_elf_flavour)
|
||
return NULL;
|
||
|
||
ghdr = &elf_section_data (group)->this_hdr;
|
||
if (ghdr->sh_link < elf_numsections (abfd))
|
||
{
|
||
const struct elf_backend_data *bed = get_elf_backend_data (abfd);
|
||
Elf_Internal_Shdr *symhdr = elf_elfsections (abfd) [ghdr->sh_link];
|
||
|
||
if (symhdr->sh_type == SHT_SYMTAB
|
||
&& ghdr->sh_info < symhdr->sh_size / bed->s->sizeof_sym)
|
||
return isympp[ghdr->sh_info - 1];
|
||
}
|
||
return NULL;
|
||
}
|
||
|
||
/* Return TRUE if the section is a DWO section. */
|
||
|
||
static bfd_boolean
|
||
is_dwo_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
|
||
{
|
||
const char *name = bfd_get_section_name (abfd, sec);
|
||
int len = strlen (name);
|
||
|
||
return strncmp (name + len - 4, ".dwo", 4) == 0;
|
||
}
|
||
|
||
/* See if a non-group section is being removed. */
|
||
|
||
static bfd_boolean
|
||
is_strip_section_1 (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
|
||
{
|
||
if (sections_removed || sections_copied)
|
||
{
|
||
struct section_list *p;
|
||
struct section_list *q;
|
||
|
||
p = find_section_list (bfd_get_section_name (abfd, sec), FALSE,
|
||
SECTION_CONTEXT_REMOVE);
|
||
q = find_section_list (bfd_get_section_name (abfd, sec), FALSE,
|
||
SECTION_CONTEXT_COPY);
|
||
|
||
if (p && q)
|
||
fatal (_("error: section %s matches both remove and copy options"),
|
||
bfd_get_section_name (abfd, sec));
|
||
|
||
if (p != NULL)
|
||
return TRUE;
|
||
if (sections_copied && q == NULL)
|
||
return TRUE;
|
||
}
|
||
|
||
if ((bfd_get_section_flags (abfd, sec) & SEC_DEBUGGING) != 0)
|
||
{
|
||
if (strip_symbols == STRIP_DEBUG
|
||
|| strip_symbols == STRIP_UNNEEDED
|
||
|| strip_symbols == STRIP_ALL
|
||
|| discard_locals == LOCALS_ALL
|
||
|| convert_debugging)
|
||
{
|
||
/* By default we don't want to strip .reloc section.
|
||
This section has for pe-coff special meaning. See
|
||
pe-dll.c file in ld, and peXXigen.c in bfd for details. */
|
||
if (strcmp (bfd_get_section_name (abfd, sec), ".reloc") != 0)
|
||
return TRUE;
|
||
}
|
||
|
||
if (strip_symbols == STRIP_DWO)
|
||
return is_dwo_section (abfd, sec);
|
||
|
||
if (strip_symbols == STRIP_NONDEBUG)
|
||
return FALSE;
|
||
}
|
||
|
||
if (strip_symbols == STRIP_NONDWO)
|
||
return !is_dwo_section (abfd, sec);
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
/* See if a section is being removed. */
|
||
|
||
static bfd_boolean
|
||
is_strip_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
|
||
{
|
||
if (is_strip_section_1 (abfd, sec))
|
||
return TRUE;
|
||
|
||
if ((bfd_get_section_flags (abfd, sec) & SEC_GROUP) != 0)
|
||
{
|
||
asymbol *gsym;
|
||
const char *gname;
|
||
asection *elt, *first;
|
||
|
||
/* PR binutils/3181
|
||
If we are going to strip the group signature symbol, then
|
||
strip the group section too. */
|
||
gsym = group_signature (sec);
|
||
if (gsym != NULL)
|
||
gname = gsym->name;
|
||
else
|
||
gname = sec->name;
|
||
if ((strip_symbols == STRIP_ALL
|
||
&& !is_specified_symbol (gname, keep_specific_htab))
|
||
|| is_specified_symbol (gname, strip_specific_htab))
|
||
return TRUE;
|
||
|
||
/* Remove the group section if all members are removed. */
|
||
first = elt = elf_next_in_group (sec);
|
||
while (elt != NULL)
|
||
{
|
||
if (!is_strip_section_1 (abfd, elt))
|
||
return FALSE;
|
||
elt = elf_next_in_group (elt);
|
||
if (elt == first)
|
||
break;
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
/* Return true if SYM is a hidden symbol. */
|
||
|
||
static bfd_boolean
|
||
is_hidden_symbol (asymbol *sym)
|
||
{
|
||
elf_symbol_type *elf_sym;
|
||
|
||
elf_sym = elf_symbol_from (sym->the_bfd, sym);
|
||
if (elf_sym != NULL)
|
||
switch (ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other))
|
||
{
|
||
case STV_HIDDEN:
|
||
case STV_INTERNAL:
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
/* Choose which symbol entries to copy; put the result in OSYMS.
|
||
We don't copy in place, because that confuses the relocs.
|
||
Return the number of symbols to print. */
|
||
|
||
static unsigned int
|
||
filter_symbols (bfd *abfd, bfd *obfd, asymbol **osyms,
|
||
asymbol **isyms, long symcount)
|
||
{
|
||
asymbol **from = isyms, **to = osyms;
|
||
long src_count = 0, dst_count = 0;
|
||
int relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
|
||
|
||
for (; src_count < symcount; src_count++)
|
||
{
|
||
asymbol *sym = from[src_count];
|
||
flagword flags = sym->flags;
|
||
char *name = (char *) bfd_asymbol_name (sym);
|
||
bfd_boolean keep;
|
||
bfd_boolean used_in_reloc = FALSE;
|
||
bfd_boolean undefined;
|
||
bfd_boolean rem_leading_char;
|
||
bfd_boolean add_leading_char;
|
||
|
||
undefined = bfd_is_und_section (bfd_get_section (sym));
|
||
|
||
if (redefine_sym_list)
|
||
{
|
||
char *old_name, *new_name;
|
||
|
||
old_name = (char *) bfd_asymbol_name (sym);
|
||
new_name = (char *) lookup_sym_redefinition (old_name);
|
||
bfd_asymbol_name (sym) = new_name;
|
||
name = new_name;
|
||
}
|
||
|
||
/* Check if we will remove the current leading character. */
|
||
rem_leading_char =
|
||
(name[0] == bfd_get_symbol_leading_char (abfd))
|
||
&& (change_leading_char
|
||
|| (remove_leading_char
|
||
&& ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
|
||
|| undefined
|
||
|| bfd_is_com_section (bfd_get_section (sym)))));
|
||
|
||
/* Check if we will add a new leading character. */
|
||
add_leading_char =
|
||
change_leading_char
|
||
&& (bfd_get_symbol_leading_char (obfd) != '\0')
|
||
&& (bfd_get_symbol_leading_char (abfd) == '\0'
|
||
|| (name[0] == bfd_get_symbol_leading_char (abfd)));
|
||
|
||
/* Short circuit for change_leading_char if we can do it in-place. */
|
||
if (rem_leading_char && add_leading_char && !prefix_symbols_string)
|
||
{
|
||
name[0] = bfd_get_symbol_leading_char (obfd);
|
||
bfd_asymbol_name (sym) = name;
|
||
rem_leading_char = FALSE;
|
||
add_leading_char = FALSE;
|
||
}
|
||
|
||
/* Remove leading char. */
|
||
if (rem_leading_char)
|
||
bfd_asymbol_name (sym) = ++name;
|
||
|
||
/* Add new leading char and/or prefix. */
|
||
if (add_leading_char || prefix_symbols_string)
|
||
{
|
||
char *n, *ptr;
|
||
|
||
ptr = n = (char *) xmalloc (1 + strlen (prefix_symbols_string)
|
||
+ strlen (name) + 1);
|
||
if (add_leading_char)
|
||
*ptr++ = bfd_get_symbol_leading_char (obfd);
|
||
|
||
if (prefix_symbols_string)
|
||
{
|
||
strcpy (ptr, prefix_symbols_string);
|
||
ptr += strlen (prefix_symbols_string);
|
||
}
|
||
|
||
strcpy (ptr, name);
|
||
bfd_asymbol_name (sym) = n;
|
||
name = n;
|
||
}
|
||
|
||
if (strip_symbols == STRIP_ALL)
|
||
keep = FALSE;
|
||
else if ((flags & BSF_KEEP) != 0 /* Used in relocation. */
|
||
|| ((flags & BSF_SECTION_SYM) != 0
|
||
&& ((*bfd_get_section (sym)->symbol_ptr_ptr)->flags
|
||
& BSF_KEEP) != 0))
|
||
{
|
||
keep = TRUE;
|
||
used_in_reloc = TRUE;
|
||
}
|
||
else if (relocatable /* Relocatable file. */
|
||
&& ((flags & (BSF_GLOBAL | BSF_WEAK)) != 0
|
||
|| bfd_is_com_section (bfd_get_section (sym))))
|
||
keep = TRUE;
|
||
else if (bfd_decode_symclass (sym) == 'I')
|
||
/* Global symbols in $idata sections need to be retained
|
||
even if relocatable is FALSE. External users of the
|
||
library containing the $idata section may reference these
|
||
symbols. */
|
||
keep = TRUE;
|
||
else if ((flags & BSF_GLOBAL) != 0 /* Global symbol. */
|
||
|| (flags & BSF_WEAK) != 0
|
||
|| undefined
|
||
|| bfd_is_com_section (bfd_get_section (sym)))
|
||
keep = strip_symbols != STRIP_UNNEEDED;
|
||
else if ((flags & BSF_DEBUGGING) != 0) /* Debugging symbol. */
|
||
keep = (strip_symbols != STRIP_DEBUG
|
||
&& strip_symbols != STRIP_UNNEEDED
|
||
&& ! convert_debugging);
|
||
else if (bfd_coff_get_comdat_section (abfd, bfd_get_section (sym)))
|
||
/* COMDAT sections store special information in local
|
||
symbols, so we cannot risk stripping any of them. */
|
||
keep = TRUE;
|
||
else /* Local symbol. */
|
||
keep = (strip_symbols != STRIP_UNNEEDED
|
||
&& (discard_locals != LOCALS_ALL
|
||
&& (discard_locals != LOCALS_START_L
|
||
|| ! bfd_is_local_label (abfd, sym))));
|
||
|
||
if (keep && is_specified_symbol (name, strip_specific_htab))
|
||
{
|
||
/* There are multiple ways to set 'keep' above, but if it
|
||
was the relocatable symbol case, then that's an error. */
|
||
if (used_in_reloc)
|
||
{
|
||
non_fatal (_("not stripping symbol `%s' because it is named in a relocation"), name);
|
||
status = 1;
|
||
}
|
||
else
|
||
keep = FALSE;
|
||
}
|
||
|
||
if (keep
|
||
&& !(flags & BSF_KEEP)
|
||
&& is_specified_symbol (name, strip_unneeded_htab))
|
||
keep = FALSE;
|
||
|
||
if (!keep
|
||
&& ((keep_file_symbols && (flags & BSF_FILE))
|
||
|| is_specified_symbol (name, keep_specific_htab)))
|
||
keep = TRUE;
|
||
|
||
if (keep && is_strip_section (abfd, bfd_get_section (sym)))
|
||
keep = FALSE;
|
||
|
||
if (keep)
|
||
{
|
||
if ((flags & BSF_GLOBAL) != 0
|
||
&& (weaken || is_specified_symbol (name, weaken_specific_htab)))
|
||
{
|
||
sym->flags &= ~ BSF_GLOBAL;
|
||
sym->flags |= BSF_WEAK;
|
||
}
|
||
|
||
if (!undefined
|
||
&& (flags & (BSF_GLOBAL | BSF_WEAK))
|
||
&& (is_specified_symbol (name, localize_specific_htab)
|
||
|| (htab_elements (keepglobal_specific_htab) != 0
|
||
&& ! is_specified_symbol (name, keepglobal_specific_htab))
|
||
|| (localize_hidden && is_hidden_symbol (sym))))
|
||
{
|
||
sym->flags &= ~ (BSF_GLOBAL | BSF_WEAK);
|
||
sym->flags |= BSF_LOCAL;
|
||
}
|
||
|
||
if (!undefined
|
||
&& (flags & BSF_LOCAL)
|
||
&& is_specified_symbol (name, globalize_specific_htab))
|
||
{
|
||
sym->flags &= ~ BSF_LOCAL;
|
||
sym->flags |= BSF_GLOBAL;
|
||
}
|
||
|
||
to[dst_count++] = sym;
|
||
}
|
||
}
|
||
|
||
to[dst_count] = NULL;
|
||
|
||
return dst_count;
|
||
}
|
||
|
||
/* Find the redefined name of symbol SOURCE. */
|
||
|
||
static const char *
|
||
lookup_sym_redefinition (const char *source)
|
||
{
|
||
struct redefine_node *list;
|
||
|
||
for (list = redefine_sym_list; list != NULL; list = list->next)
|
||
if (strcmp (source, list->source) == 0)
|
||
return list->target;
|
||
|
||
return source;
|
||
}
|
||
|
||
/* Add a node to a symbol redefine list. */
|
||
|
||
static void
|
||
redefine_list_append (const char *cause, const char *source, const char *target)
|
||
{
|
||
struct redefine_node **p;
|
||
struct redefine_node *list;
|
||
struct redefine_node *new_node;
|
||
|
||
for (p = &redefine_sym_list; (list = *p) != NULL; p = &list->next)
|
||
{
|
||
if (strcmp (source, list->source) == 0)
|
||
fatal (_("%s: Multiple redefinition of symbol \"%s\""),
|
||
cause, source);
|
||
|
||
if (strcmp (target, list->target) == 0)
|
||
fatal (_("%s: Symbol \"%s\" is target of more than one redefinition"),
|
||
cause, target);
|
||
}
|
||
|
||
new_node = (struct redefine_node *) xmalloc (sizeof (struct redefine_node));
|
||
|
||
new_node->source = strdup (source);
|
||
new_node->target = strdup (target);
|
||
new_node->next = NULL;
|
||
|
||
*p = new_node;
|
||
}
|
||
|
||
/* Handle the --redefine-syms option. Read lines containing "old new"
|
||
from the file, and add them to the symbol redefine list. */
|
||
|
||
static void
|
||
add_redefine_syms_file (const char *filename)
|
||
{
|
||
FILE *file;
|
||
char *buf;
|
||
size_t bufsize;
|
||
size_t len;
|
||
size_t outsym_off;
|
||
int c, lineno;
|
||
|
||
file = fopen (filename, "r");
|
||
if (file == NULL)
|
||
fatal (_("couldn't open symbol redefinition file %s (error: %s)"),
|
||
filename, strerror (errno));
|
||
|
||
bufsize = 100;
|
||
buf = (char *) xmalloc (bufsize + 1 /* For the terminating NUL. */);
|
||
|
||
lineno = 1;
|
||
c = getc (file);
|
||
len = 0;
|
||
outsym_off = 0;
|
||
while (c != EOF)
|
||
{
|
||
/* Collect the input symbol name. */
|
||
while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
|
||
{
|
||
if (c == '#')
|
||
goto comment;
|
||
buf[len++] = c;
|
||
if (len >= bufsize)
|
||
{
|
||
bufsize *= 2;
|
||
buf = (char *) xrealloc (buf, bufsize + 1);
|
||
}
|
||
c = getc (file);
|
||
}
|
||
buf[len++] = '\0';
|
||
if (c == EOF)
|
||
break;
|
||
|
||
/* Eat white space between the symbol names. */
|
||
while (IS_WHITESPACE (c))
|
||
c = getc (file);
|
||
if (c == '#' || IS_LINE_TERMINATOR (c))
|
||
goto comment;
|
||
if (c == EOF)
|
||
break;
|
||
|
||
/* Collect the output symbol name. */
|
||
outsym_off = len;
|
||
while (! IS_WHITESPACE (c) && ! IS_LINE_TERMINATOR (c) && c != EOF)
|
||
{
|
||
if (c == '#')
|
||
goto comment;
|
||
buf[len++] = c;
|
||
if (len >= bufsize)
|
||
{
|
||
bufsize *= 2;
|
||
buf = (char *) xrealloc (buf, bufsize + 1);
|
||
}
|
||
c = getc (file);
|
||
}
|
||
buf[len++] = '\0';
|
||
if (c == EOF)
|
||
break;
|
||
|
||
/* Eat white space at end of line. */
|
||
while (! IS_LINE_TERMINATOR(c) && c != EOF && IS_WHITESPACE (c))
|
||
c = getc (file);
|
||
if (c == '#')
|
||
goto comment;
|
||
/* Handle \r\n. */
|
||
if ((c == '\r' && (c = getc (file)) == '\n')
|
||
|| c == '\n' || c == EOF)
|
||
{
|
||
end_of_line:
|
||
/* Append the redefinition to the list. */
|
||
if (buf[0] != '\0')
|
||
redefine_list_append (filename, &buf[0], &buf[outsym_off]);
|
||
|
||
lineno++;
|
||
len = 0;
|
||
outsym_off = 0;
|
||
if (c == EOF)
|
||
break;
|
||
c = getc (file);
|
||
continue;
|
||
}
|
||
else
|
||
fatal (_("%s:%d: garbage found at end of line"), filename, lineno);
|
||
comment:
|
||
if (len != 0 && (outsym_off == 0 || outsym_off == len))
|
||
fatal (_("%s:%d: missing new symbol name"), filename, lineno);
|
||
buf[len++] = '\0';
|
||
|
||
/* Eat the rest of the line and finish it. */
|
||
while (c != '\n' && c != EOF)
|
||
c = getc (file);
|
||
goto end_of_line;
|
||
}
|
||
|
||
if (len != 0)
|
||
fatal (_("%s:%d: premature end of file"), filename, lineno);
|
||
|
||
free (buf);
|
||
}
|
||
|
||
/* Copy unkown object file IBFD onto OBFD.
|
||
Returns TRUE upon success, FALSE otherwise. */
|
||
|
||
static bfd_boolean
|
||
copy_unknown_object (bfd *ibfd, bfd *obfd)
|
||
{
|
||
char *cbuf;
|
||
int tocopy;
|
||
long ncopied;
|
||
long size;
|
||
struct stat buf;
|
||
|
||
if (bfd_stat_arch_elt (ibfd, &buf) != 0)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
size = buf.st_size;
|
||
if (size < 0)
|
||
{
|
||
non_fatal (_("stat returns negative size for `%s'"),
|
||
bfd_get_archive_filename (ibfd));
|
||
return FALSE;
|
||
}
|
||
|
||
if (bfd_seek (ibfd, (file_ptr) 0, SEEK_SET) != 0)
|
||
{
|
||
bfd_nonfatal (bfd_get_archive_filename (ibfd));
|
||
return FALSE;
|
||
}
|
||
|
||
if (verbose)
|
||
printf (_("copy from `%s' [unknown] to `%s' [unknown]\n"),
|
||
bfd_get_archive_filename (ibfd), bfd_get_filename (obfd));
|
||
|
||
cbuf = (char *) xmalloc (BUFSIZE);
|
||
ncopied = 0;
|
||
while (ncopied < size)
|
||
{
|
||
tocopy = size - ncopied;
|
||
if (tocopy > BUFSIZE)
|
||
tocopy = BUFSIZE;
|
||
|
||
if (bfd_bread (cbuf, (bfd_size_type) tocopy, ibfd)
|
||
!= (bfd_size_type) tocopy)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
free (cbuf);
|
||
return FALSE;
|
||
}
|
||
|
||
if (bfd_bwrite (cbuf, (bfd_size_type) tocopy, obfd)
|
||
!= (bfd_size_type) tocopy)
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL, NULL);
|
||
free (cbuf);
|
||
return FALSE;
|
||
}
|
||
|
||
ncopied += tocopy;
|
||
}
|
||
|
||
/* We should at least to be able to read it back when copying an
|
||
unknown object in an archive. */
|
||
chmod (bfd_get_filename (obfd), buf.st_mode | S_IRUSR);
|
||
free (cbuf);
|
||
return TRUE;
|
||
}
|
||
|
||
/* Copy object file IBFD onto OBFD.
|
||
Returns TRUE upon success, FALSE otherwise. */
|
||
|
||
static bfd_boolean
|
||
copy_object (bfd *ibfd, bfd *obfd, const bfd_arch_info_type *input_arch)
|
||
{
|
||
bfd_vma start;
|
||
long symcount;
|
||
asection **osections = NULL;
|
||
asection *gnu_debuglink_section = NULL;
|
||
bfd_size_type *gaps = NULL;
|
||
bfd_size_type max_gap = 0;
|
||
long symsize;
|
||
void *dhandle;
|
||
enum bfd_architecture iarch;
|
||
unsigned int imach;
|
||
|
||
if (ibfd->xvec->byteorder != obfd->xvec->byteorder
|
||
&& ibfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN
|
||
&& obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
|
||
fatal (_("Unable to change endianness of input file(s)"));
|
||
|
||
if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
if (verbose)
|
||
printf (_("copy from `%s' [%s] to `%s' [%s]\n"),
|
||
bfd_get_archive_filename (ibfd), bfd_get_target (ibfd),
|
||
bfd_get_filename (obfd), bfd_get_target (obfd));
|
||
|
||
if (extract_symbol)
|
||
start = 0;
|
||
else
|
||
{
|
||
if (set_start_set)
|
||
start = set_start;
|
||
else
|
||
start = bfd_get_start_address (ibfd);
|
||
start += change_start;
|
||
}
|
||
|
||
/* Neither the start address nor the flags
|
||
need to be set for a core file. */
|
||
if (bfd_get_format (obfd) != bfd_core)
|
||
{
|
||
flagword flags;
|
||
|
||
flags = bfd_get_file_flags (ibfd);
|
||
flags |= bfd_flags_to_set;
|
||
flags &= ~bfd_flags_to_clear;
|
||
flags &= bfd_applicable_file_flags (obfd);
|
||
|
||
if (strip_symbols == STRIP_ALL)
|
||
flags &= ~HAS_RELOC;
|
||
|
||
if (!bfd_set_start_address (obfd, start)
|
||
|| !bfd_set_file_flags (obfd, flags))
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
/* Copy architecture of input file to output file. */
|
||
iarch = bfd_get_arch (ibfd);
|
||
imach = bfd_get_mach (ibfd);
|
||
if (input_arch)
|
||
{
|
||
if (bfd_get_arch_info (ibfd) == NULL
|
||
|| bfd_get_arch_info (ibfd)->arch == bfd_arch_unknown)
|
||
{
|
||
iarch = input_arch->arch;
|
||
imach = input_arch->mach;
|
||
}
|
||
else
|
||
non_fatal (_("Input file `%s' ignores binary architecture parameter."),
|
||
bfd_get_archive_filename (ibfd));
|
||
}
|
||
if (!bfd_set_arch_mach (obfd, iarch, imach)
|
||
&& (ibfd->target_defaulted
|
||
|| bfd_get_arch (ibfd) != bfd_get_arch (obfd)))
|
||
{
|
||
if (bfd_get_arch (ibfd) == bfd_arch_unknown)
|
||
non_fatal (_("Unable to recognise the format of the input file `%s'"),
|
||
bfd_get_archive_filename (ibfd));
|
||
else
|
||
non_fatal (_("Output file cannot represent architecture `%s'"),
|
||
bfd_printable_arch_mach (bfd_get_arch (ibfd),
|
||
bfd_get_mach (ibfd)));
|
||
return FALSE;
|
||
}
|
||
|
||
if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
|
||
&& bfd_pei_p (obfd))
|
||
{
|
||
/* Set up PE parameters. */
|
||
pe_data_type *pe = pe_data (obfd);
|
||
|
||
/* Copy PE parameters before changing them. */
|
||
if (ibfd->xvec->flavour == bfd_target_coff_flavour
|
||
&& bfd_pei_p (ibfd))
|
||
pe->pe_opthdr = pe_data (ibfd)->pe_opthdr;
|
||
|
||
if (pe_file_alignment != (bfd_vma) -1)
|
||
pe->pe_opthdr.FileAlignment = pe_file_alignment;
|
||
else
|
||
pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
|
||
|
||
if (pe_heap_commit != (bfd_vma) -1)
|
||
pe->pe_opthdr.SizeOfHeapCommit = pe_heap_commit;
|
||
|
||
if (pe_heap_reserve != (bfd_vma) -1)
|
||
pe->pe_opthdr.SizeOfHeapCommit = pe_heap_reserve;
|
||
|
||
if (pe_image_base != (bfd_vma) -1)
|
||
pe->pe_opthdr.ImageBase = pe_image_base;
|
||
|
||
if (pe_section_alignment != (bfd_vma) -1)
|
||
pe->pe_opthdr.SectionAlignment = pe_section_alignment;
|
||
else
|
||
pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
|
||
|
||
if (pe_stack_commit != (bfd_vma) -1)
|
||
pe->pe_opthdr.SizeOfStackCommit = pe_stack_commit;
|
||
|
||
if (pe_stack_reserve != (bfd_vma) -1)
|
||
pe->pe_opthdr.SizeOfStackCommit = pe_stack_reserve;
|
||
|
||
if (pe_subsystem != -1)
|
||
pe->pe_opthdr.Subsystem = pe_subsystem;
|
||
|
||
if (pe_major_subsystem_version != -1)
|
||
pe->pe_opthdr.MajorSubsystemVersion = pe_major_subsystem_version;
|
||
|
||
if (pe_minor_subsystem_version != -1)
|
||
pe->pe_opthdr.MinorSubsystemVersion = pe_minor_subsystem_version;
|
||
|
||
if (pe_file_alignment > pe_section_alignment)
|
||
{
|
||
char file_alignment[20], section_alignment[20];
|
||
|
||
sprintf_vma (file_alignment, pe_file_alignment);
|
||
sprintf_vma (section_alignment, pe_section_alignment);
|
||
non_fatal (_("warning: file alignment (0x%s) > section alignment (0x%s)"),
|
||
|
||
file_alignment, section_alignment);
|
||
}
|
||
}
|
||
|
||
if (isympp)
|
||
free (isympp);
|
||
|
||
if (osympp != isympp)
|
||
free (osympp);
|
||
|
||
isympp = NULL;
|
||
osympp = NULL;
|
||
|
||
symsize = bfd_get_symtab_upper_bound (ibfd);
|
||
if (symsize < 0)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
osympp = isympp = (asymbol **) xmalloc (symsize);
|
||
symcount = bfd_canonicalize_symtab (ibfd, isympp);
|
||
if (symcount < 0)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
/* BFD mandates that all output sections be created and sizes set before
|
||
any output is done. Thus, we traverse all sections multiple times. */
|
||
bfd_map_over_sections (ibfd, setup_section, obfd);
|
||
|
||
if (!extract_symbol)
|
||
setup_bfd_headers (ibfd, obfd);
|
||
|
||
if (add_sections != NULL)
|
||
{
|
||
struct section_add *padd;
|
||
struct section_list *pset;
|
||
|
||
for (padd = add_sections; padd != NULL; padd = padd->next)
|
||
{
|
||
flagword flags;
|
||
|
||
pset = find_section_list (padd->name, FALSE,
|
||
SECTION_CONTEXT_SET_FLAGS);
|
||
if (pset != NULL)
|
||
flags = pset->flags | SEC_HAS_CONTENTS;
|
||
else
|
||
flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DATA;
|
||
|
||
/* bfd_make_section_with_flags() does not return very helpful
|
||
error codes, so check for the most likely user error first. */
|
||
if (bfd_get_section_by_name (obfd, padd->name))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("can't add section '%s'"), padd->name);
|
||
return FALSE;
|
||
}
|
||
else
|
||
{
|
||
/* We use LINKER_CREATED here so that the backend hooks
|
||
will create any special section type information,
|
||
instead of presuming we know what we're doing merely
|
||
because we set the flags. */
|
||
padd->section = bfd_make_section_with_flags
|
||
(obfd, padd->name, flags | SEC_LINKER_CREATED);
|
||
if (padd->section == NULL)
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("can't create section `%s'"),
|
||
padd->name);
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
if (! bfd_set_section_size (obfd, padd->section, padd->size))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
pset = find_section_list (padd->name, FALSE,
|
||
SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA);
|
||
if (pset != NULL
|
||
&& ! bfd_set_section_vma (obfd, padd->section, pset->vma_val))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
pset = find_section_list (padd->name, FALSE,
|
||
SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA);
|
||
if (pset != NULL)
|
||
{
|
||
padd->section->lma = pset->lma_val;
|
||
|
||
if (! bfd_set_section_alignment
|
||
(obfd, padd->section,
|
||
bfd_section_alignment (obfd, padd->section)))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
if (dump_sections != NULL)
|
||
{
|
||
struct section_add * pdump;
|
||
|
||
for (pdump = dump_sections; pdump != NULL; pdump = pdump->next)
|
||
{
|
||
asection * sec;
|
||
|
||
sec = bfd_get_section_by_name (ibfd, pdump->name);
|
||
if (sec == NULL)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, NULL,
|
||
_("can't dump section '%s' - it does not exist"),
|
||
pdump->name);
|
||
continue;
|
||
}
|
||
|
||
if ((bfd_get_section_flags (ibfd, sec) & SEC_HAS_CONTENTS) == 0)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, sec,
|
||
_("can't dump section - it has no contents"));
|
||
continue;
|
||
}
|
||
|
||
bfd_size_type size = bfd_get_section_size (sec);
|
||
if (size == 0)
|
||
{
|
||
bfd_nonfatal_message (NULL, ibfd, sec,
|
||
_("can't dump section - it is empty"));
|
||
continue;
|
||
}
|
||
|
||
FILE * f;
|
||
f = fopen (pdump->filename, FOPEN_WB);
|
||
if (f == NULL)
|
||
{
|
||
bfd_nonfatal_message (pdump->filename, NULL, NULL,
|
||
_("could not open section dump file"));
|
||
continue;
|
||
}
|
||
|
||
bfd_byte * contents = xmalloc (size);
|
||
if (bfd_get_section_contents (ibfd, sec, contents, 0, size))
|
||
fwrite (contents, 1, size, f);
|
||
else
|
||
bfd_nonfatal_message (NULL, ibfd, sec,
|
||
_("could not retrieve section contents"));
|
||
|
||
fclose (f);
|
||
free (contents);
|
||
}
|
||
}
|
||
|
||
if (gnu_debuglink_filename != NULL)
|
||
{
|
||
/* PR 15125: Give a helpful warning message if
|
||
the debuglink section already exists, and
|
||
allow the rest of the copy to complete. */
|
||
if (bfd_get_section_by_name (obfd, ".gnu_debuglink"))
|
||
{
|
||
non_fatal (_("%s: debuglink section already exists"),
|
||
bfd_get_filename (obfd));
|
||
gnu_debuglink_filename = NULL;
|
||
}
|
||
else
|
||
{
|
||
gnu_debuglink_section = bfd_create_gnu_debuglink_section
|
||
(obfd, gnu_debuglink_filename);
|
||
|
||
if (gnu_debuglink_section == NULL)
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("cannot create debug link section `%s'"),
|
||
gnu_debuglink_filename);
|
||
return FALSE;
|
||
}
|
||
|
||
/* Special processing for PE format files. We
|
||
have no way to distinguish PE from COFF here. */
|
||
if (bfd_get_flavour (obfd) == bfd_target_coff_flavour)
|
||
{
|
||
bfd_vma debuglink_vma;
|
||
asection * highest_section;
|
||
asection * sec;
|
||
|
||
/* The PE spec requires that all sections be adjacent and sorted
|
||
in ascending order of VMA. It also specifies that debug
|
||
sections should be last. This is despite the fact that debug
|
||
sections are not loaded into memory and so in theory have no
|
||
use for a VMA.
|
||
|
||
This means that the debuglink section must be given a non-zero
|
||
VMA which makes it contiguous with other debug sections. So
|
||
walk the current section list, find the section with the
|
||
highest VMA and start the debuglink section after that one. */
|
||
for (sec = obfd->sections, highest_section = NULL;
|
||
sec != NULL;
|
||
sec = sec->next)
|
||
if (sec->vma > 0
|
||
&& (highest_section == NULL
|
||
|| sec->vma > highest_section->vma))
|
||
highest_section = sec;
|
||
|
||
if (highest_section)
|
||
debuglink_vma = BFD_ALIGN (highest_section->vma
|
||
+ highest_section->size,
|
||
/* FIXME: We ought to be using
|
||
COFF_PAGE_SIZE here or maybe
|
||
bfd_get_section_alignment() (if it
|
||
was set) but since this is for PE
|
||
and we know the required alignment
|
||
it is easier just to hard code it. */
|
||
0x1000);
|
||
else
|
||
/* Umm, not sure what to do in this case. */
|
||
debuglink_vma = 0x1000;
|
||
|
||
bfd_set_section_vma (obfd, gnu_debuglink_section, debuglink_vma);
|
||
}
|
||
}
|
||
}
|
||
|
||
if (bfd_count_sections (obfd) != 0
|
||
&& (gap_fill_set || pad_to_set))
|
||
{
|
||
asection **set;
|
||
unsigned int c, i;
|
||
|
||
/* We must fill in gaps between the sections and/or we must pad
|
||
the last section to a specified address. We do this by
|
||
grabbing a list of the sections, sorting them by VMA, and
|
||
increasing the section sizes as required to fill the gaps.
|
||
We write out the gap contents below. */
|
||
|
||
c = bfd_count_sections (obfd);
|
||
osections = (asection **) xmalloc (c * sizeof (asection *));
|
||
set = osections;
|
||
bfd_map_over_sections (obfd, get_sections, &set);
|
||
|
||
qsort (osections, c, sizeof (asection *), compare_section_lma);
|
||
|
||
gaps = (bfd_size_type *) xmalloc (c * sizeof (bfd_size_type));
|
||
memset (gaps, 0, c * sizeof (bfd_size_type));
|
||
|
||
if (gap_fill_set)
|
||
{
|
||
for (i = 0; i < c - 1; i++)
|
||
{
|
||
flagword flags;
|
||
bfd_size_type size;
|
||
bfd_vma gap_start, gap_stop;
|
||
|
||
flags = bfd_get_section_flags (obfd, osections[i]);
|
||
if ((flags & SEC_HAS_CONTENTS) == 0
|
||
|| (flags & SEC_LOAD) == 0)
|
||
continue;
|
||
|
||
size = bfd_section_size (obfd, osections[i]);
|
||
gap_start = bfd_section_lma (obfd, osections[i]) + size;
|
||
gap_stop = bfd_section_lma (obfd, osections[i + 1]);
|
||
if (gap_start < gap_stop)
|
||
{
|
||
if (! bfd_set_section_size (obfd, osections[i],
|
||
size + (gap_stop - gap_start)))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, osections[i],
|
||
_("Can't fill gap after section"));
|
||
status = 1;
|
||
break;
|
||
}
|
||
gaps[i] = gap_stop - gap_start;
|
||
if (max_gap < gap_stop - gap_start)
|
||
max_gap = gap_stop - gap_start;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (pad_to_set)
|
||
{
|
||
bfd_vma lma;
|
||
bfd_size_type size;
|
||
|
||
lma = bfd_section_lma (obfd, osections[c - 1]);
|
||
size = bfd_section_size (obfd, osections[c - 1]);
|
||
if (lma + size < pad_to)
|
||
{
|
||
if (! bfd_set_section_size (obfd, osections[c - 1],
|
||
pad_to - lma))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, osections[c - 1],
|
||
_("can't add padding"));
|
||
status = 1;
|
||
}
|
||
else
|
||
{
|
||
gaps[c - 1] = pad_to - (lma + size);
|
||
if (max_gap < pad_to - (lma + size))
|
||
max_gap = pad_to - (lma + size);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Symbol filtering must happen after the output sections
|
||
have been created, but before their contents are set. */
|
||
dhandle = NULL;
|
||
if (convert_debugging)
|
||
dhandle = read_debugging_info (ibfd, isympp, symcount, FALSE);
|
||
|
||
if (strip_symbols == STRIP_DEBUG
|
||
|| strip_symbols == STRIP_ALL
|
||
|| strip_symbols == STRIP_UNNEEDED
|
||
|| strip_symbols == STRIP_NONDEBUG
|
||
|| strip_symbols == STRIP_DWO
|
||
|| strip_symbols == STRIP_NONDWO
|
||
|| discard_locals != LOCALS_UNDEF
|
||
|| localize_hidden
|
||
|| htab_elements (strip_specific_htab) != 0
|
||
|| htab_elements (keep_specific_htab) != 0
|
||
|| htab_elements (localize_specific_htab) != 0
|
||
|| htab_elements (globalize_specific_htab) != 0
|
||
|| htab_elements (keepglobal_specific_htab) != 0
|
||
|| htab_elements (weaken_specific_htab) != 0
|
||
|| prefix_symbols_string
|
||
|| sections_removed
|
||
|| sections_copied
|
||
|| convert_debugging
|
||
|| change_leading_char
|
||
|| remove_leading_char
|
||
|| redefine_sym_list
|
||
|| weaken)
|
||
{
|
||
/* Mark symbols used in output relocations so that they
|
||
are kept, even if they are local labels or static symbols.
|
||
|
||
Note we iterate over the input sections examining their
|
||
relocations since the relocations for the output sections
|
||
haven't been set yet. mark_symbols_used_in_relocations will
|
||
ignore input sections which have no corresponding output
|
||
section. */
|
||
if (strip_symbols != STRIP_ALL)
|
||
bfd_map_over_sections (ibfd,
|
||
mark_symbols_used_in_relocations,
|
||
isympp);
|
||
osympp = (asymbol **) xmalloc ((symcount + 1) * sizeof (asymbol *));
|
||
symcount = filter_symbols (ibfd, obfd, osympp, isympp, symcount);
|
||
}
|
||
|
||
if (convert_debugging && dhandle != NULL)
|
||
{
|
||
if (! write_debugging_info (obfd, dhandle, &symcount, &osympp))
|
||
{
|
||
status = 1;
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
bfd_set_symtab (obfd, osympp, symcount);
|
||
|
||
/* This has to happen before section positions are set. */
|
||
bfd_map_over_sections (ibfd, copy_relocations_in_section, obfd);
|
||
|
||
/* This has to happen after the symbol table has been set. */
|
||
bfd_map_over_sections (ibfd, copy_section, obfd);
|
||
|
||
if (add_sections != NULL)
|
||
{
|
||
struct section_add *padd;
|
||
|
||
for (padd = add_sections; padd != NULL; padd = padd->next)
|
||
{
|
||
if (! bfd_set_section_contents (obfd, padd->section, padd->contents,
|
||
0, padd->size))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, padd->section, NULL);
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (gnu_debuglink_filename != NULL)
|
||
{
|
||
if (! bfd_fill_in_gnu_debuglink_section
|
||
(obfd, gnu_debuglink_section, gnu_debuglink_filename))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("cannot fill debug link section `%s'"),
|
||
gnu_debuglink_filename);
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
if (gap_fill_set || pad_to_set)
|
||
{
|
||
bfd_byte *buf;
|
||
int c, i;
|
||
|
||
/* Fill in the gaps. */
|
||
if (max_gap > 8192)
|
||
max_gap = 8192;
|
||
buf = (bfd_byte *) xmalloc (max_gap);
|
||
memset (buf, gap_fill, max_gap);
|
||
|
||
c = bfd_count_sections (obfd);
|
||
for (i = 0; i < c; i++)
|
||
{
|
||
if (gaps[i] != 0)
|
||
{
|
||
bfd_size_type left;
|
||
file_ptr off;
|
||
|
||
left = gaps[i];
|
||
off = bfd_section_size (obfd, osections[i]) - left;
|
||
|
||
while (left > 0)
|
||
{
|
||
bfd_size_type now;
|
||
|
||
if (left > 8192)
|
||
now = 8192;
|
||
else
|
||
now = left;
|
||
|
||
if (! bfd_set_section_contents (obfd, osections[i], buf,
|
||
off, now))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, osections[i], NULL);
|
||
return FALSE;
|
||
}
|
||
|
||
left -= now;
|
||
off += now;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Do not copy backend data if --extract-symbol is passed; anything
|
||
that needs to look at the section contents will fail. */
|
||
if (extract_symbol)
|
||
return TRUE;
|
||
|
||
/* Allow the BFD backend to copy any private data it understands
|
||
from the input BFD to the output BFD. This is done last to
|
||
permit the routine to look at the filtered symbol table, which is
|
||
important for the ECOFF code at least. */
|
||
if (! bfd_copy_private_bfd_data (ibfd, obfd))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("error copying private BFD data"));
|
||
return FALSE;
|
||
}
|
||
|
||
/* Switch to the alternate machine code. We have to do this at the
|
||
very end, because we only initialize the header when we create
|
||
the first section. */
|
||
if (use_alt_mach_code != 0)
|
||
{
|
||
if (! bfd_alt_mach_code (obfd, use_alt_mach_code))
|
||
{
|
||
non_fatal (_("this target does not support %lu alternative machine codes"),
|
||
use_alt_mach_code);
|
||
if (bfd_get_flavour (obfd) == bfd_target_elf_flavour)
|
||
{
|
||
non_fatal (_("treating that number as an absolute e_machine value instead"));
|
||
elf_elfheader (obfd)->e_machine = use_alt_mach_code;
|
||
}
|
||
else
|
||
non_fatal (_("ignoring the alternative value"));
|
||
}
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
/* Read each archive element in turn from IBFD, copy the
|
||
contents to temp file, and keep the temp file handle.
|
||
If 'force_output_target' is TRUE then make sure that
|
||
all elements in the new archive are of the type
|
||
'output_target'. */
|
||
|
||
static void
|
||
copy_archive (bfd *ibfd, bfd *obfd, const char *output_target,
|
||
bfd_boolean force_output_target,
|
||
const bfd_arch_info_type *input_arch)
|
||
{
|
||
struct name_list
|
||
{
|
||
struct name_list *next;
|
||
const char *name;
|
||
bfd *obfd;
|
||
} *list, *l;
|
||
bfd **ptr = &obfd->archive_head;
|
||
bfd *this_element;
|
||
char *dir;
|
||
const char *filename;
|
||
|
||
/* Make a temp directory to hold the contents. */
|
||
dir = make_tempdir (bfd_get_filename (obfd));
|
||
if (dir == NULL)
|
||
fatal (_("cannot create tempdir for archive copying (error: %s)"),
|
||
strerror (errno));
|
||
|
||
if (strip_symbols == STRIP_ALL)
|
||
obfd->has_armap = FALSE;
|
||
else
|
||
obfd->has_armap = ibfd->has_armap;
|
||
obfd->is_thin_archive = ibfd->is_thin_archive;
|
||
|
||
if (deterministic)
|
||
obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
|
||
|
||
list = NULL;
|
||
|
||
this_element = bfd_openr_next_archived_file (ibfd, NULL);
|
||
|
||
if (!bfd_set_format (obfd, bfd_get_format (ibfd)))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, obfd, NULL, NULL);
|
||
return;
|
||
}
|
||
|
||
while (!status && this_element != NULL)
|
||
{
|
||
char *output_name;
|
||
bfd *output_bfd;
|
||
bfd *last_element;
|
||
struct stat buf;
|
||
int stat_status = 0;
|
||
bfd_boolean del = TRUE;
|
||
bfd_boolean ok_object;
|
||
|
||
/* Create an output file for this member. */
|
||
output_name = concat (dir, "/",
|
||
bfd_get_filename (this_element), (char *) 0);
|
||
|
||
/* If the file already exists, make another temp dir. */
|
||
if (stat (output_name, &buf) >= 0)
|
||
{
|
||
output_name = make_tempdir (output_name);
|
||
if (output_name == NULL)
|
||
fatal (_("cannot create tempdir for archive copying (error: %s)"),
|
||
strerror (errno));
|
||
|
||
l = (struct name_list *) xmalloc (sizeof (struct name_list));
|
||
l->name = output_name;
|
||
l->next = list;
|
||
l->obfd = NULL;
|
||
list = l;
|
||
output_name = concat (output_name, "/",
|
||
bfd_get_filename (this_element), (char *) 0);
|
||
}
|
||
|
||
if (preserve_dates)
|
||
{
|
||
stat_status = bfd_stat_arch_elt (this_element, &buf);
|
||
|
||
if (stat_status != 0)
|
||
non_fatal (_("internal stat error on %s"),
|
||
bfd_get_filename (this_element));
|
||
}
|
||
|
||
l = (struct name_list *) xmalloc (sizeof (struct name_list));
|
||
l->name = output_name;
|
||
l->next = list;
|
||
l->obfd = NULL;
|
||
list = l;
|
||
|
||
ok_object = bfd_check_format (this_element, bfd_object);
|
||
if (!ok_object)
|
||
bfd_nonfatal_message (NULL, this_element, NULL,
|
||
_("Unable to recognise the format of file"));
|
||
|
||
/* PR binutils/3110: Cope with archives
|
||
containing multiple target types. */
|
||
if (force_output_target || !ok_object)
|
||
output_bfd = bfd_openw (output_name, output_target);
|
||
else
|
||
output_bfd = bfd_openw (output_name, bfd_get_target (this_element));
|
||
|
||
if (output_bfd == NULL)
|
||
{
|
||
bfd_nonfatal_message (output_name, NULL, NULL, NULL);
|
||
status = 1;
|
||
return;
|
||
}
|
||
|
||
if (ok_object)
|
||
{
|
||
del = !copy_object (this_element, output_bfd, input_arch);
|
||
|
||
if (del && bfd_get_arch (this_element) == bfd_arch_unknown)
|
||
/* Try again as an unknown object file. */
|
||
ok_object = FALSE;
|
||
else if (!bfd_close (output_bfd))
|
||
{
|
||
bfd_nonfatal_message (output_name, NULL, NULL, NULL);
|
||
/* Error in new object file. Don't change archive. */
|
||
status = 1;
|
||
}
|
||
}
|
||
|
||
if (!ok_object)
|
||
{
|
||
del = !copy_unknown_object (this_element, output_bfd);
|
||
if (!bfd_close_all_done (output_bfd))
|
||
{
|
||
bfd_nonfatal_message (output_name, NULL, NULL, NULL);
|
||
/* Error in new object file. Don't change archive. */
|
||
status = 1;
|
||
}
|
||
}
|
||
|
||
if (del)
|
||
{
|
||
unlink (output_name);
|
||
status = 1;
|
||
}
|
||
else
|
||
{
|
||
if (preserve_dates && stat_status == 0)
|
||
set_times (output_name, &buf);
|
||
|
||
/* Open the newly output file and attach to our list. */
|
||
output_bfd = bfd_openr (output_name, output_target);
|
||
|
||
l->obfd = output_bfd;
|
||
|
||
*ptr = output_bfd;
|
||
ptr = &output_bfd->archive_next;
|
||
|
||
last_element = this_element;
|
||
|
||
this_element = bfd_openr_next_archived_file (ibfd, last_element);
|
||
|
||
bfd_close (last_element);
|
||
}
|
||
}
|
||
*ptr = NULL;
|
||
|
||
filename = bfd_get_filename (obfd);
|
||
if (!bfd_close (obfd))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (filename, NULL, NULL, NULL);
|
||
return;
|
||
}
|
||
|
||
filename = bfd_get_filename (ibfd);
|
||
if (!bfd_close (ibfd))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (filename, NULL, NULL, NULL);
|
||
return;
|
||
}
|
||
|
||
/* Delete all the files that we opened. */
|
||
for (l = list; l != NULL; l = l->next)
|
||
{
|
||
if (l->obfd == NULL)
|
||
rmdir (l->name);
|
||
else
|
||
{
|
||
bfd_close (l->obfd);
|
||
unlink (l->name);
|
||
}
|
||
}
|
||
rmdir (dir);
|
||
}
|
||
|
||
static void
|
||
set_long_section_mode (bfd *output_bfd, bfd *input_bfd, enum long_section_name_handling style)
|
||
{
|
||
/* This is only relevant to Coff targets. */
|
||
if (bfd_get_flavour (output_bfd) == bfd_target_coff_flavour)
|
||
{
|
||
if (style == KEEP
|
||
&& bfd_get_flavour (input_bfd) == bfd_target_coff_flavour)
|
||
style = bfd_coff_long_section_names (input_bfd) ? ENABLE : DISABLE;
|
||
bfd_coff_set_long_section_names (output_bfd, style != DISABLE);
|
||
}
|
||
}
|
||
|
||
/* The top-level control. */
|
||
|
||
static void
|
||
copy_file (const char *input_filename, const char *output_filename,
|
||
const char *input_target, const char *output_target,
|
||
const bfd_arch_info_type *input_arch)
|
||
{
|
||
bfd *ibfd;
|
||
char **obj_matching;
|
||
char **core_matching;
|
||
off_t size = get_file_size (input_filename);
|
||
|
||
if (size < 1)
|
||
{
|
||
if (size == 0)
|
||
non_fatal (_("error: the input file '%s' is empty"),
|
||
input_filename);
|
||
status = 1;
|
||
return;
|
||
}
|
||
|
||
/* To allow us to do "strip *" without dying on the first
|
||
non-object file, failures are nonfatal. */
|
||
ibfd = bfd_openr (input_filename, input_target);
|
||
if (ibfd == NULL)
|
||
{
|
||
bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
|
||
status = 1;
|
||
return;
|
||
}
|
||
|
||
switch (do_debug_sections)
|
||
{
|
||
case compress:
|
||
ibfd->flags |= BFD_COMPRESS;
|
||
break;
|
||
case decompress:
|
||
ibfd->flags |= BFD_DECOMPRESS;
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
|
||
if (bfd_check_format (ibfd, bfd_archive))
|
||
{
|
||
bfd_boolean force_output_target;
|
||
bfd *obfd;
|
||
|
||
/* bfd_get_target does not return the correct value until
|
||
bfd_check_format succeeds. */
|
||
if (output_target == NULL)
|
||
{
|
||
output_target = bfd_get_target (ibfd);
|
||
force_output_target = FALSE;
|
||
}
|
||
else
|
||
force_output_target = TRUE;
|
||
|
||
obfd = bfd_openw (output_filename, output_target);
|
||
if (obfd == NULL)
|
||
{
|
||
bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
|
||
status = 1;
|
||
return;
|
||
}
|
||
/* This is a no-op on non-Coff targets. */
|
||
set_long_section_mode (obfd, ibfd, long_section_names);
|
||
|
||
copy_archive (ibfd, obfd, output_target, force_output_target, input_arch);
|
||
}
|
||
else if (bfd_check_format_matches (ibfd, bfd_object, &obj_matching))
|
||
{
|
||
bfd *obfd;
|
||
do_copy:
|
||
|
||
/* bfd_get_target does not return the correct value until
|
||
bfd_check_format succeeds. */
|
||
if (output_target == NULL)
|
||
output_target = bfd_get_target (ibfd);
|
||
|
||
obfd = bfd_openw (output_filename, output_target);
|
||
if (obfd == NULL)
|
||
{
|
||
bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
|
||
status = 1;
|
||
return;
|
||
}
|
||
/* This is a no-op on non-Coff targets. */
|
||
set_long_section_mode (obfd, ibfd, long_section_names);
|
||
|
||
if (! copy_object (ibfd, obfd, input_arch))
|
||
status = 1;
|
||
|
||
if (!bfd_close (obfd))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (output_filename, NULL, NULL, NULL);
|
||
return;
|
||
}
|
||
|
||
if (!bfd_close (ibfd))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
|
||
return;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
bfd_error_type obj_error = bfd_get_error ();
|
||
bfd_error_type core_error;
|
||
|
||
if (bfd_check_format_matches (ibfd, bfd_core, &core_matching))
|
||
{
|
||
/* This probably can't happen.. */
|
||
if (obj_error == bfd_error_file_ambiguously_recognized)
|
||
free (obj_matching);
|
||
goto do_copy;
|
||
}
|
||
|
||
core_error = bfd_get_error ();
|
||
/* Report the object error in preference to the core error. */
|
||
if (obj_error != core_error)
|
||
bfd_set_error (obj_error);
|
||
|
||
bfd_nonfatal_message (input_filename, NULL, NULL, NULL);
|
||
|
||
if (obj_error == bfd_error_file_ambiguously_recognized)
|
||
{
|
||
list_matching_formats (obj_matching);
|
||
free (obj_matching);
|
||
}
|
||
if (core_error == bfd_error_file_ambiguously_recognized)
|
||
{
|
||
list_matching_formats (core_matching);
|
||
free (core_matching);
|
||
}
|
||
|
||
status = 1;
|
||
}
|
||
}
|
||
|
||
/* Add a name to the section renaming list. */
|
||
|
||
static void
|
||
add_section_rename (const char * old_name, const char * new_name,
|
||
flagword flags)
|
||
{
|
||
section_rename * srename;
|
||
|
||
/* Check for conflicts first. */
|
||
for (srename = section_rename_list; srename != NULL; srename = srename->next)
|
||
if (strcmp (srename->old_name, old_name) == 0)
|
||
{
|
||
/* Silently ignore duplicate definitions. */
|
||
if (strcmp (srename->new_name, new_name) == 0
|
||
&& srename->flags == flags)
|
||
return;
|
||
|
||
fatal (_("Multiple renames of section %s"), old_name);
|
||
}
|
||
|
||
srename = (section_rename *) xmalloc (sizeof (* srename));
|
||
|
||
srename->old_name = old_name;
|
||
srename->new_name = new_name;
|
||
srename->flags = flags;
|
||
srename->next = section_rename_list;
|
||
|
||
section_rename_list = srename;
|
||
}
|
||
|
||
/* Check the section rename list for a new name of the input section
|
||
ISECTION. Return the new name if one is found.
|
||
Also set RETURNED_FLAGS to the flags to be used for this section. */
|
||
|
||
static const char *
|
||
find_section_rename (bfd * ibfd ATTRIBUTE_UNUSED, sec_ptr isection,
|
||
flagword * returned_flags)
|
||
{
|
||
const char * old_name = bfd_section_name (ibfd, isection);
|
||
section_rename * srename;
|
||
|
||
/* Default to using the flags of the input section. */
|
||
* returned_flags = bfd_get_section_flags (ibfd, isection);
|
||
|
||
for (srename = section_rename_list; srename != NULL; srename = srename->next)
|
||
if (strcmp (srename->old_name, old_name) == 0)
|
||
{
|
||
if (srename->flags != (flagword) -1)
|
||
* returned_flags = srename->flags;
|
||
|
||
return srename->new_name;
|
||
}
|
||
|
||
return old_name;
|
||
}
|
||
|
||
/* Once each of the sections is copied, we may still need to do some
|
||
finalization work for private section headers. Do that here. */
|
||
|
||
static void
|
||
setup_bfd_headers (bfd *ibfd, bfd *obfd)
|
||
{
|
||
/* Allow the BFD backend to copy any private data it understands
|
||
from the input section to the output section. */
|
||
if (! bfd_copy_private_header_data (ibfd, obfd))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, ibfd, NULL,
|
||
_("error in private header data"));
|
||
return;
|
||
}
|
||
|
||
/* All went well. */
|
||
return;
|
||
}
|
||
|
||
/* Create a section in OBFD with the same
|
||
name and attributes as ISECTION in IBFD. */
|
||
|
||
static void
|
||
setup_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
|
||
{
|
||
bfd *obfd = (bfd *) obfdarg;
|
||
struct section_list *p;
|
||
sec_ptr osection;
|
||
bfd_size_type size;
|
||
bfd_vma vma;
|
||
bfd_vma lma;
|
||
flagword flags;
|
||
const char *err;
|
||
const char * name;
|
||
char *prefix = NULL;
|
||
bfd_boolean make_nobits;
|
||
|
||
if (is_strip_section (ibfd, isection))
|
||
return;
|
||
|
||
/* Get the, possibly new, name of the output section. */
|
||
name = find_section_rename (ibfd, isection, & flags);
|
||
|
||
/* Prefix sections. */
|
||
if ((prefix_alloc_sections_string)
|
||
&& (bfd_get_section_flags (ibfd, isection) & SEC_ALLOC))
|
||
prefix = prefix_alloc_sections_string;
|
||
else if (prefix_sections_string)
|
||
prefix = prefix_sections_string;
|
||
|
||
if (prefix)
|
||
{
|
||
char *n;
|
||
|
||
n = (char *) xmalloc (strlen (prefix) + strlen (name) + 1);
|
||
strcpy (n, prefix);
|
||
strcat (n, name);
|
||
name = n;
|
||
}
|
||
|
||
make_nobits = FALSE;
|
||
|
||
p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
|
||
SECTION_CONTEXT_SET_FLAGS);
|
||
if (p != NULL)
|
||
flags = p->flags | (flags & (SEC_HAS_CONTENTS | SEC_RELOC));
|
||
else if (strip_symbols == STRIP_NONDEBUG
|
||
&& (flags & (SEC_ALLOC | SEC_GROUP)) != 0
|
||
&& !(ibfd->xvec->flavour == bfd_target_elf_flavour
|
||
&& elf_section_type (isection) == SHT_NOTE))
|
||
{
|
||
flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
|
||
if (obfd->xvec->flavour == bfd_target_elf_flavour)
|
||
{
|
||
make_nobits = TRUE;
|
||
|
||
/* Twiddle the input section flags so that it seems to
|
||
elf.c:copy_private_bfd_data that section flags have not
|
||
changed between input and output sections. This hack
|
||
prevents wholesale rewriting of the program headers. */
|
||
isection->flags &= ~(SEC_HAS_CONTENTS | SEC_LOAD | SEC_GROUP);
|
||
}
|
||
}
|
||
|
||
osection = bfd_make_section_anyway_with_flags (obfd, name, flags);
|
||
|
||
if (osection == NULL)
|
||
{
|
||
err = _("failed to create output section");
|
||
goto loser;
|
||
}
|
||
|
||
if (make_nobits)
|
||
elf_section_type (osection) = SHT_NOBITS;
|
||
|
||
size = bfd_section_size (ibfd, isection);
|
||
if (copy_byte >= 0)
|
||
size = (size + interleave - 1) / interleave * copy_width;
|
||
else if (extract_symbol)
|
||
size = 0;
|
||
if (! bfd_set_section_size (obfd, osection, size))
|
||
{
|
||
err = _("failed to set size");
|
||
goto loser;
|
||
}
|
||
|
||
vma = bfd_section_vma (ibfd, isection);
|
||
p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
|
||
SECTION_CONTEXT_ALTER_VMA | SECTION_CONTEXT_SET_VMA);
|
||
if (p != NULL)
|
||
{
|
||
if (p->context & SECTION_CONTEXT_SET_VMA)
|
||
vma = p->vma_val;
|
||
else
|
||
vma += p->vma_val;
|
||
}
|
||
else
|
||
vma += change_section_address;
|
||
|
||
if (! bfd_set_section_vma (obfd, osection, vma))
|
||
{
|
||
err = _("failed to set vma");
|
||
goto loser;
|
||
}
|
||
|
||
lma = isection->lma;
|
||
p = find_section_list (bfd_section_name (ibfd, isection), FALSE,
|
||
SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_SET_LMA);
|
||
if (p != NULL)
|
||
{
|
||
if (p->context & SECTION_CONTEXT_ALTER_LMA)
|
||
lma += p->lma_val;
|
||
else
|
||
lma = p->lma_val;
|
||
}
|
||
else
|
||
lma += change_section_address;
|
||
|
||
osection->lma = lma;
|
||
|
||
/* FIXME: This is probably not enough. If we change the LMA we
|
||
may have to recompute the header for the file as well. */
|
||
if (!bfd_set_section_alignment (obfd,
|
||
osection,
|
||
bfd_section_alignment (ibfd, isection)))
|
||
{
|
||
err = _("failed to set alignment");
|
||
goto loser;
|
||
}
|
||
|
||
/* Copy merge entity size. */
|
||
osection->entsize = isection->entsize;
|
||
|
||
/* This used to be mangle_section; we do here to avoid using
|
||
bfd_get_section_by_name since some formats allow multiple
|
||
sections with the same name. */
|
||
isection->output_section = osection;
|
||
isection->output_offset = 0;
|
||
|
||
/* Do not copy backend data if --extract-symbol is passed; anything
|
||
that needs to look at the section contents will fail. */
|
||
if (extract_symbol)
|
||
return;
|
||
|
||
if ((isection->flags & SEC_GROUP) != 0)
|
||
{
|
||
asymbol *gsym = group_signature (isection);
|
||
|
||
if (gsym != NULL)
|
||
{
|
||
gsym->flags |= BSF_KEEP;
|
||
if (ibfd->xvec->flavour == bfd_target_elf_flavour)
|
||
elf_group_id (isection) = gsym;
|
||
}
|
||
}
|
||
|
||
/* Allow the BFD backend to copy any private data it understands
|
||
from the input section to the output section. */
|
||
if (!bfd_copy_private_section_data (ibfd, isection, obfd, osection))
|
||
{
|
||
err = _("failed to copy private data");
|
||
goto loser;
|
||
}
|
||
|
||
/* All went well. */
|
||
return;
|
||
|
||
loser:
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, obfd, osection, err);
|
||
}
|
||
|
||
/* Return TRUE if input section ISECTION should be skipped. */
|
||
|
||
static bfd_boolean
|
||
skip_section (bfd *ibfd, sec_ptr isection)
|
||
{
|
||
sec_ptr osection;
|
||
bfd_size_type size;
|
||
flagword flags;
|
||
|
||
/* If we have already failed earlier on,
|
||
do not keep on generating complaints now. */
|
||
if (status != 0)
|
||
return TRUE;
|
||
|
||
if (extract_symbol)
|
||
return TRUE;
|
||
|
||
if (is_strip_section (ibfd, isection))
|
||
return TRUE;
|
||
|
||
flags = bfd_get_section_flags (ibfd, isection);
|
||
if ((flags & SEC_GROUP) != 0)
|
||
return TRUE;
|
||
|
||
osection = isection->output_section;
|
||
size = bfd_get_section_size (isection);
|
||
|
||
if (size == 0 || osection == 0)
|
||
return TRUE;
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
/* Copy relocations in input section ISECTION of IBFD to an output
|
||
section with the same name in OBFDARG. If stripping then don't
|
||
copy any relocation info. */
|
||
|
||
static void
|
||
copy_relocations_in_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
|
||
{
|
||
bfd *obfd = (bfd *) obfdarg;
|
||
long relsize;
|
||
arelent **relpp;
|
||
long relcount;
|
||
sec_ptr osection;
|
||
|
||
if (skip_section (ibfd, isection))
|
||
return;
|
||
|
||
osection = isection->output_section;
|
||
|
||
/* Core files and DWO files do not need to be relocated. */
|
||
if (bfd_get_format (obfd) == bfd_core || strip_symbols == STRIP_NONDWO)
|
||
relsize = 0;
|
||
else
|
||
{
|
||
relsize = bfd_get_reloc_upper_bound (ibfd, isection);
|
||
|
||
if (relsize < 0)
|
||
{
|
||
/* Do not complain if the target does not support relocations. */
|
||
if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
|
||
relsize = 0;
|
||
else
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, ibfd, isection, NULL);
|
||
return;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (relsize == 0)
|
||
{
|
||
bfd_set_reloc (obfd, osection, NULL, 0);
|
||
osection->flags &= ~SEC_RELOC;
|
||
}
|
||
else
|
||
{
|
||
relpp = (arelent **) xmalloc (relsize);
|
||
relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, isympp);
|
||
if (relcount < 0)
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, ibfd, isection,
|
||
_("relocation count is negative"));
|
||
return;
|
||
}
|
||
|
||
if (strip_symbols == STRIP_ALL)
|
||
{
|
||
/* Remove relocations which are not in
|
||
keep_strip_specific_list. */
|
||
arelent **temp_relpp;
|
||
long temp_relcount = 0;
|
||
long i;
|
||
|
||
temp_relpp = (arelent **) xmalloc (relsize);
|
||
for (i = 0; i < relcount; i++)
|
||
if (is_specified_symbol (bfd_asymbol_name (*relpp[i]->sym_ptr_ptr),
|
||
keep_specific_htab))
|
||
temp_relpp [temp_relcount++] = relpp [i];
|
||
relcount = temp_relcount;
|
||
free (relpp);
|
||
relpp = temp_relpp;
|
||
}
|
||
|
||
bfd_set_reloc (obfd, osection, relcount == 0 ? NULL : relpp, relcount);
|
||
if (relcount == 0)
|
||
{
|
||
osection->flags &= ~SEC_RELOC;
|
||
free (relpp);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Copy the data of input section ISECTION of IBFD
|
||
to an output section with the same name in OBFD. */
|
||
|
||
static void
|
||
copy_section (bfd *ibfd, sec_ptr isection, void *obfdarg)
|
||
{
|
||
bfd *obfd = (bfd *) obfdarg;
|
||
struct section_list *p;
|
||
sec_ptr osection;
|
||
bfd_size_type size;
|
||
|
||
if (skip_section (ibfd, isection))
|
||
return;
|
||
|
||
osection = isection->output_section;
|
||
size = bfd_get_section_size (isection);
|
||
|
||
if (bfd_get_section_flags (ibfd, isection) & SEC_HAS_CONTENTS
|
||
&& bfd_get_section_flags (obfd, osection) & SEC_HAS_CONTENTS)
|
||
{
|
||
bfd_byte *memhunk = NULL;
|
||
|
||
if (!bfd_get_full_section_contents (ibfd, isection, &memhunk))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, ibfd, isection, NULL);
|
||
return;
|
||
}
|
||
|
||
if (reverse_bytes)
|
||
{
|
||
/* We don't handle leftover bytes (too many possible behaviors,
|
||
and we don't know what the user wants). The section length
|
||
must be a multiple of the number of bytes to swap. */
|
||
if ((size % reverse_bytes) == 0)
|
||
{
|
||
unsigned long i, j;
|
||
bfd_byte b;
|
||
|
||
for (i = 0; i < size; i += reverse_bytes)
|
||
for (j = 0; j < (unsigned long)(reverse_bytes / 2); j++)
|
||
{
|
||
bfd_byte *m = (bfd_byte *) memhunk;
|
||
|
||
b = m[i + j];
|
||
m[i + j] = m[(i + reverse_bytes) - (j + 1)];
|
||
m[(i + reverse_bytes) - (j + 1)] = b;
|
||
}
|
||
}
|
||
else
|
||
/* User must pad the section up in order to do this. */
|
||
fatal (_("cannot reverse bytes: length of section %s must be evenly divisible by %d"),
|
||
bfd_section_name (ibfd, isection), reverse_bytes);
|
||
}
|
||
|
||
if (copy_byte >= 0)
|
||
{
|
||
/* Keep only every `copy_byte'th byte in MEMHUNK. */
|
||
char *from = (char *) memhunk + copy_byte;
|
||
char *to = (char *) memhunk;
|
||
char *end = (char *) memhunk + size;
|
||
int i;
|
||
|
||
for (; from < end; from += interleave)
|
||
for (i = 0; i < copy_width; i++)
|
||
{
|
||
if (&from[i] >= end)
|
||
break;
|
||
*to++ = from[i];
|
||
}
|
||
|
||
size = (size + interleave - 1 - copy_byte) / interleave * copy_width;
|
||
osection->lma /= interleave;
|
||
}
|
||
|
||
if (!bfd_set_section_contents (obfd, osection, memhunk, 0, size))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, obfd, osection, NULL);
|
||
return;
|
||
}
|
||
free (memhunk);
|
||
}
|
||
else if ((p = find_section_list (bfd_get_section_name (ibfd, isection),
|
||
FALSE, SECTION_CONTEXT_SET_FLAGS)) != NULL
|
||
&& (p->flags & SEC_HAS_CONTENTS) != 0)
|
||
{
|
||
void *memhunk = xmalloc (size);
|
||
|
||
/* We don't permit the user to turn off the SEC_HAS_CONTENTS
|
||
flag--they can just remove the section entirely and add it
|
||
back again. However, we do permit them to turn on the
|
||
SEC_HAS_CONTENTS flag, and take it to mean that the section
|
||
contents should be zeroed out. */
|
||
|
||
memset (memhunk, 0, size);
|
||
if (! bfd_set_section_contents (obfd, osection, memhunk, 0, size))
|
||
{
|
||
status = 1;
|
||
bfd_nonfatal_message (NULL, obfd, osection, NULL);
|
||
return;
|
||
}
|
||
free (memhunk);
|
||
}
|
||
}
|
||
|
||
/* Get all the sections. This is used when --gap-fill or --pad-to is
|
||
used. */
|
||
|
||
static void
|
||
get_sections (bfd *obfd ATTRIBUTE_UNUSED, asection *osection, void *secppparg)
|
||
{
|
||
asection ***secppp = (asection ***) secppparg;
|
||
|
||
**secppp = osection;
|
||
++(*secppp);
|
||
}
|
||
|
||
/* Sort sections by VMA. This is called via qsort, and is used when
|
||
--gap-fill or --pad-to is used. We force non loadable or empty
|
||
sections to the front, where they are easier to ignore. */
|
||
|
||
static int
|
||
compare_section_lma (const void *arg1, const void *arg2)
|
||
{
|
||
const asection *const *sec1 = (const asection * const *) arg1;
|
||
const asection *const *sec2 = (const asection * const *) arg2;
|
||
flagword flags1, flags2;
|
||
|
||
/* Sort non loadable sections to the front. */
|
||
flags1 = (*sec1)->flags;
|
||
flags2 = (*sec2)->flags;
|
||
if ((flags1 & SEC_HAS_CONTENTS) == 0
|
||
|| (flags1 & SEC_LOAD) == 0)
|
||
{
|
||
if ((flags2 & SEC_HAS_CONTENTS) != 0
|
||
&& (flags2 & SEC_LOAD) != 0)
|
||
return -1;
|
||
}
|
||
else
|
||
{
|
||
if ((flags2 & SEC_HAS_CONTENTS) == 0
|
||
|| (flags2 & SEC_LOAD) == 0)
|
||
return 1;
|
||
}
|
||
|
||
/* Sort sections by LMA. */
|
||
if ((*sec1)->lma > (*sec2)->lma)
|
||
return 1;
|
||
else if ((*sec1)->lma < (*sec2)->lma)
|
||
return -1;
|
||
|
||
/* Sort sections with the same LMA by size. */
|
||
if (bfd_get_section_size (*sec1) > bfd_get_section_size (*sec2))
|
||
return 1;
|
||
else if (bfd_get_section_size (*sec1) < bfd_get_section_size (*sec2))
|
||
return -1;
|
||
|
||
return 0;
|
||
}
|
||
|
||
/* Mark all the symbols which will be used in output relocations with
|
||
the BSF_KEEP flag so that those symbols will not be stripped.
|
||
|
||
Ignore relocations which will not appear in the output file. */
|
||
|
||
static void
|
||
mark_symbols_used_in_relocations (bfd *ibfd, sec_ptr isection, void *symbolsarg)
|
||
{
|
||
asymbol **symbols = (asymbol **) symbolsarg;
|
||
long relsize;
|
||
arelent **relpp;
|
||
long relcount, i;
|
||
|
||
/* Ignore an input section with no corresponding output section. */
|
||
if (isection->output_section == NULL)
|
||
return;
|
||
|
||
relsize = bfd_get_reloc_upper_bound (ibfd, isection);
|
||
if (relsize < 0)
|
||
{
|
||
/* Do not complain if the target does not support relocations. */
|
||
if (relsize == -1 && bfd_get_error () == bfd_error_invalid_operation)
|
||
return;
|
||
bfd_fatal (bfd_get_filename (ibfd));
|
||
}
|
||
|
||
if (relsize == 0)
|
||
return;
|
||
|
||
relpp = (arelent **) xmalloc (relsize);
|
||
relcount = bfd_canonicalize_reloc (ibfd, isection, relpp, symbols);
|
||
if (relcount < 0)
|
||
bfd_fatal (bfd_get_filename (ibfd));
|
||
|
||
/* Examine each symbol used in a relocation. If it's not one of the
|
||
special bfd section symbols, then mark it with BSF_KEEP. */
|
||
for (i = 0; i < relcount; i++)
|
||
{
|
||
if (*relpp[i]->sym_ptr_ptr != bfd_com_section_ptr->symbol
|
||
&& *relpp[i]->sym_ptr_ptr != bfd_abs_section_ptr->symbol
|
||
&& *relpp[i]->sym_ptr_ptr != bfd_und_section_ptr->symbol)
|
||
(*relpp[i]->sym_ptr_ptr)->flags |= BSF_KEEP;
|
||
}
|
||
|
||
if (relpp != NULL)
|
||
free (relpp);
|
||
}
|
||
|
||
/* Write out debugging information. */
|
||
|
||
static bfd_boolean
|
||
write_debugging_info (bfd *obfd, void *dhandle,
|
||
long *symcountp ATTRIBUTE_UNUSED,
|
||
asymbol ***symppp ATTRIBUTE_UNUSED)
|
||
{
|
||
if (bfd_get_flavour (obfd) == bfd_target_ieee_flavour)
|
||
return write_ieee_debugging_info (obfd, dhandle);
|
||
|
||
if (bfd_get_flavour (obfd) == bfd_target_coff_flavour
|
||
|| bfd_get_flavour (obfd) == bfd_target_elf_flavour)
|
||
{
|
||
bfd_byte *syms, *strings;
|
||
bfd_size_type symsize, stringsize;
|
||
asection *stabsec, *stabstrsec;
|
||
flagword flags;
|
||
|
||
if (! write_stabs_in_sections_debugging_info (obfd, dhandle, &syms,
|
||
&symsize, &strings,
|
||
&stringsize))
|
||
return FALSE;
|
||
|
||
flags = SEC_HAS_CONTENTS | SEC_READONLY | SEC_DEBUGGING;
|
||
stabsec = bfd_make_section_with_flags (obfd, ".stab", flags);
|
||
stabstrsec = bfd_make_section_with_flags (obfd, ".stabstr", flags);
|
||
if (stabsec == NULL
|
||
|| stabstrsec == NULL
|
||
|| ! bfd_set_section_size (obfd, stabsec, symsize)
|
||
|| ! bfd_set_section_size (obfd, stabstrsec, stringsize)
|
||
|| ! bfd_set_section_alignment (obfd, stabsec, 2)
|
||
|| ! bfd_set_section_alignment (obfd, stabstrsec, 0))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("can't create debugging section"));
|
||
return FALSE;
|
||
}
|
||
|
||
/* We can get away with setting the section contents now because
|
||
the next thing the caller is going to do is copy over the
|
||
real sections. We may someday have to split the contents
|
||
setting out of this function. */
|
||
if (! bfd_set_section_contents (obfd, stabsec, syms, 0, symsize)
|
||
|| ! bfd_set_section_contents (obfd, stabstrsec, strings, 0,
|
||
stringsize))
|
||
{
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("can't set debugging section contents"));
|
||
return FALSE;
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
bfd_nonfatal_message (NULL, obfd, NULL,
|
||
_("don't know how to write debugging information for %s"),
|
||
bfd_get_target (obfd));
|
||
return FALSE;
|
||
}
|
||
|
||
/* If neither -D nor -U was specified explicitly,
|
||
then use the configured default. */
|
||
static void
|
||
default_deterministic (void)
|
||
{
|
||
if (deterministic < 0)
|
||
deterministic = DEFAULT_AR_DETERMINISTIC;
|
||
}
|
||
|
||
static int
|
||
strip_main (int argc, char *argv[])
|
||
{
|
||
char *input_target = NULL;
|
||
char *output_target = NULL;
|
||
bfd_boolean show_version = FALSE;
|
||
bfd_boolean formats_info = FALSE;
|
||
int c;
|
||
int i;
|
||
char *output_file = NULL;
|
||
|
||
while ((c = getopt_long (argc, argv, "I:O:F:K:N:R:o:sSpdgxXHhVvw",
|
||
strip_options, (int *) 0)) != EOF)
|
||
{
|
||
switch (c)
|
||
{
|
||
case 'I':
|
||
input_target = optarg;
|
||
break;
|
||
case 'O':
|
||
output_target = optarg;
|
||
break;
|
||
case 'F':
|
||
input_target = output_target = optarg;
|
||
break;
|
||
case 'R':
|
||
find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
|
||
sections_removed = TRUE;
|
||
break;
|
||
case 's':
|
||
strip_symbols = STRIP_ALL;
|
||
break;
|
||
case 'S':
|
||
case 'g':
|
||
case 'd': /* Historic BSD alias for -g. Used by early NetBSD. */
|
||
strip_symbols = STRIP_DEBUG;
|
||
break;
|
||
case OPTION_STRIP_DWO:
|
||
strip_symbols = STRIP_DWO;
|
||
break;
|
||
case OPTION_STRIP_UNNEEDED:
|
||
strip_symbols = STRIP_UNNEEDED;
|
||
break;
|
||
case 'K':
|
||
add_specific_symbol (optarg, keep_specific_htab);
|
||
break;
|
||
case 'N':
|
||
add_specific_symbol (optarg, strip_specific_htab);
|
||
break;
|
||
case 'o':
|
||
output_file = optarg;
|
||
break;
|
||
case 'p':
|
||
preserve_dates = TRUE;
|
||
break;
|
||
case 'D':
|
||
deterministic = TRUE;
|
||
break;
|
||
case 'U':
|
||
deterministic = FALSE;
|
||
break;
|
||
case 'x':
|
||
discard_locals = LOCALS_ALL;
|
||
break;
|
||
case 'X':
|
||
discard_locals = LOCALS_START_L;
|
||
break;
|
||
case 'v':
|
||
verbose = TRUE;
|
||
break;
|
||
case 'V':
|
||
show_version = TRUE;
|
||
break;
|
||
case OPTION_FORMATS_INFO:
|
||
formats_info = TRUE;
|
||
break;
|
||
case OPTION_ONLY_KEEP_DEBUG:
|
||
strip_symbols = STRIP_NONDEBUG;
|
||
break;
|
||
case OPTION_KEEP_FILE_SYMBOLS:
|
||
keep_file_symbols = 1;
|
||
break;
|
||
case 0:
|
||
/* We've been given a long option. */
|
||
break;
|
||
case 'w':
|
||
wildcard = TRUE;
|
||
break;
|
||
case 'H':
|
||
case 'h':
|
||
strip_usage (stdout, 0);
|
||
default:
|
||
strip_usage (stderr, 1);
|
||
}
|
||
}
|
||
|
||
if (formats_info)
|
||
{
|
||
display_info ();
|
||
return 0;
|
||
}
|
||
|
||
if (show_version)
|
||
print_version ("strip");
|
||
|
||
default_deterministic ();
|
||
|
||
/* Default is to strip all symbols. */
|
||
if (strip_symbols == STRIP_UNDEF
|
||
&& discard_locals == LOCALS_UNDEF
|
||
&& htab_elements (strip_specific_htab) == 0)
|
||
strip_symbols = STRIP_ALL;
|
||
|
||
if (output_target == NULL)
|
||
output_target = input_target;
|
||
|
||
i = optind;
|
||
if (i == argc
|
||
|| (output_file != NULL && (i + 1) < argc))
|
||
strip_usage (stderr, 1);
|
||
|
||
for (; i < argc; i++)
|
||
{
|
||
int hold_status = status;
|
||
struct stat statbuf;
|
||
char *tmpname;
|
||
|
||
if (get_file_size (argv[i]) < 1)
|
||
{
|
||
status = 1;
|
||
continue;
|
||
}
|
||
|
||
if (preserve_dates)
|
||
/* No need to check the return value of stat().
|
||
It has already been checked in get_file_size(). */
|
||
stat (argv[i], &statbuf);
|
||
|
||
if (output_file == NULL
|
||
|| filename_cmp (argv[i], output_file) == 0)
|
||
tmpname = make_tempname (argv[i]);
|
||
else
|
||
tmpname = output_file;
|
||
|
||
if (tmpname == NULL)
|
||
{
|
||
bfd_nonfatal_message (argv[i], NULL, NULL,
|
||
_("could not create temporary file to hold stripped copy"));
|
||
status = 1;
|
||
continue;
|
||
}
|
||
|
||
status = 0;
|
||
copy_file (argv[i], tmpname, input_target, output_target, NULL);
|
||
if (status == 0)
|
||
{
|
||
if (preserve_dates)
|
||
set_times (tmpname, &statbuf);
|
||
if (output_file != tmpname)
|
||
status = (smart_rename (tmpname,
|
||
output_file ? output_file : argv[i],
|
||
preserve_dates) != 0);
|
||
if (status == 0)
|
||
status = hold_status;
|
||
}
|
||
else
|
||
unlink_if_ordinary (tmpname);
|
||
if (output_file != tmpname)
|
||
free (tmpname);
|
||
}
|
||
|
||
return status;
|
||
}
|
||
|
||
/* Set up PE subsystem. */
|
||
|
||
static void
|
||
set_pe_subsystem (const char *s)
|
||
{
|
||
const char *version, *subsystem;
|
||
size_t i;
|
||
static const struct
|
||
{
|
||
const char *name;
|
||
const char set_def;
|
||
const short value;
|
||
}
|
||
v[] =
|
||
{
|
||
{ "native", 0, IMAGE_SUBSYSTEM_NATIVE },
|
||
{ "windows", 0, IMAGE_SUBSYSTEM_WINDOWS_GUI },
|
||
{ "console", 0, IMAGE_SUBSYSTEM_WINDOWS_CUI },
|
||
{ "posix", 0, IMAGE_SUBSYSTEM_POSIX_CUI },
|
||
{ "wince", 0, IMAGE_SUBSYSTEM_WINDOWS_CE_GUI },
|
||
{ "efi-app", 1, IMAGE_SUBSYSTEM_EFI_APPLICATION },
|
||
{ "efi-bsd", 1, IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER },
|
||
{ "efi-rtd", 1, IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER },
|
||
{ "sal-rtd", 1, IMAGE_SUBSYSTEM_SAL_RUNTIME_DRIVER },
|
||
{ "xbox", 0, IMAGE_SUBSYSTEM_XBOX }
|
||
};
|
||
short value;
|
||
char *copy;
|
||
int set_def = -1;
|
||
|
||
/* Check for the presence of a version number. */
|
||
version = strchr (s, ':');
|
||
if (version == NULL)
|
||
subsystem = s;
|
||
else
|
||
{
|
||
int len = version - s;
|
||
copy = xstrdup (s);
|
||
subsystem = copy;
|
||
copy[len] = '\0';
|
||
version = copy + 1 + len;
|
||
pe_major_subsystem_version = strtoul (version, ©, 0);
|
||
if (*copy == '.')
|
||
pe_minor_subsystem_version = strtoul (copy + 1, ©, 0);
|
||
if (*copy != '\0')
|
||
non_fatal (_("%s: bad version in PE subsystem"), s);
|
||
}
|
||
|
||
/* Check for numeric subsystem. */
|
||
value = (short) strtol (subsystem, ©, 0);
|
||
if (*copy == '\0')
|
||
{
|
||
for (i = 0; i < ARRAY_SIZE (v); i++)
|
||
if (v[i].value == value)
|
||
{
|
||
pe_subsystem = value;
|
||
set_def = v[i].set_def;
|
||
break;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* Search for subsystem by name. */
|
||
for (i = 0; i < ARRAY_SIZE (v); i++)
|
||
if (strcmp (subsystem, v[i].name) == 0)
|
||
{
|
||
pe_subsystem = v[i].value;
|
||
set_def = v[i].set_def;
|
||
break;
|
||
}
|
||
}
|
||
|
||
switch (set_def)
|
||
{
|
||
case -1:
|
||
fatal (_("unknown PE subsystem: %s"), s);
|
||
break;
|
||
case 0:
|
||
break;
|
||
default:
|
||
if (pe_file_alignment == (bfd_vma) -1)
|
||
pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
|
||
if (pe_section_alignment == (bfd_vma) -1)
|
||
pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
|
||
break;
|
||
}
|
||
if (s != subsystem)
|
||
free ((char *) subsystem);
|
||
}
|
||
|
||
/* Convert EFI target to PEI target. */
|
||
|
||
static void
|
||
convert_efi_target (char *efi)
|
||
{
|
||
efi[0] = 'p';
|
||
efi[1] = 'e';
|
||
efi[2] = 'i';
|
||
|
||
if (strcmp (efi + 4, "ia32") == 0)
|
||
{
|
||
/* Change ia32 to i386. */
|
||
efi[5]= '3';
|
||
efi[6]= '8';
|
||
efi[7]= '6';
|
||
}
|
||
else if (strcmp (efi + 4, "x86_64") == 0)
|
||
{
|
||
/* Change x86_64 to x86-64. */
|
||
efi[7] = '-';
|
||
}
|
||
}
|
||
|
||
static int
|
||
copy_main (int argc, char *argv[])
|
||
{
|
||
char *input_filename = NULL;
|
||
char *output_filename = NULL;
|
||
char *tmpname;
|
||
char *input_target = NULL;
|
||
char *output_target = NULL;
|
||
bfd_boolean show_version = FALSE;
|
||
bfd_boolean change_warn = TRUE;
|
||
bfd_boolean formats_info = FALSE;
|
||
int c;
|
||
struct stat statbuf;
|
||
const bfd_arch_info_type *input_arch = NULL;
|
||
|
||
while ((c = getopt_long (argc, argv, "b:B:i:I:j:K:N:s:O:d:F:L:G:R:SpgxXHhVvW:w",
|
||
copy_options, (int *) 0)) != EOF)
|
||
{
|
||
switch (c)
|
||
{
|
||
case 'b':
|
||
copy_byte = atoi (optarg);
|
||
if (copy_byte < 0)
|
||
fatal (_("byte number must be non-negative"));
|
||
break;
|
||
|
||
case 'B':
|
||
input_arch = bfd_scan_arch (optarg);
|
||
if (input_arch == NULL)
|
||
fatal (_("architecture %s unknown"), optarg);
|
||
break;
|
||
|
||
case 'i':
|
||
if (optarg)
|
||
{
|
||
interleave = atoi (optarg);
|
||
if (interleave < 1)
|
||
fatal (_("interleave must be positive"));
|
||
}
|
||
else
|
||
interleave = 4;
|
||
break;
|
||
|
||
case OPTION_INTERLEAVE_WIDTH:
|
||
copy_width = atoi (optarg);
|
||
if (copy_width < 1)
|
||
fatal(_("interleave width must be positive"));
|
||
break;
|
||
|
||
case 'I':
|
||
case 's': /* "source" - 'I' is preferred */
|
||
input_target = optarg;
|
||
break;
|
||
|
||
case 'O':
|
||
case 'd': /* "destination" - 'O' is preferred */
|
||
output_target = optarg;
|
||
break;
|
||
|
||
case 'F':
|
||
input_target = output_target = optarg;
|
||
break;
|
||
|
||
case 'j':
|
||
find_section_list (optarg, TRUE, SECTION_CONTEXT_COPY);
|
||
sections_copied = TRUE;
|
||
break;
|
||
|
||
case 'R':
|
||
find_section_list (optarg, TRUE, SECTION_CONTEXT_REMOVE);
|
||
sections_removed = TRUE;
|
||
break;
|
||
|
||
case 'S':
|
||
strip_symbols = STRIP_ALL;
|
||
break;
|
||
|
||
case 'g':
|
||
strip_symbols = STRIP_DEBUG;
|
||
break;
|
||
|
||
case OPTION_STRIP_DWO:
|
||
strip_symbols = STRIP_DWO;
|
||
break;
|
||
|
||
case OPTION_STRIP_UNNEEDED:
|
||
strip_symbols = STRIP_UNNEEDED;
|
||
break;
|
||
|
||
case OPTION_ONLY_KEEP_DEBUG:
|
||
strip_symbols = STRIP_NONDEBUG;
|
||
break;
|
||
|
||
case OPTION_KEEP_FILE_SYMBOLS:
|
||
keep_file_symbols = 1;
|
||
break;
|
||
|
||
case OPTION_ADD_GNU_DEBUGLINK:
|
||
long_section_names = ENABLE ;
|
||
gnu_debuglink_filename = optarg;
|
||
break;
|
||
|
||
case 'K':
|
||
add_specific_symbol (optarg, keep_specific_htab);
|
||
break;
|
||
|
||
case 'N':
|
||
add_specific_symbol (optarg, strip_specific_htab);
|
||
break;
|
||
|
||
case OPTION_STRIP_UNNEEDED_SYMBOL:
|
||
add_specific_symbol (optarg, strip_unneeded_htab);
|
||
break;
|
||
|
||
case 'L':
|
||
add_specific_symbol (optarg, localize_specific_htab);
|
||
break;
|
||
|
||
case OPTION_GLOBALIZE_SYMBOL:
|
||
add_specific_symbol (optarg, globalize_specific_htab);
|
||
break;
|
||
|
||
case 'G':
|
||
add_specific_symbol (optarg, keepglobal_specific_htab);
|
||
break;
|
||
|
||
case 'W':
|
||
add_specific_symbol (optarg, weaken_specific_htab);
|
||
break;
|
||
|
||
case 'p':
|
||
preserve_dates = TRUE;
|
||
break;
|
||
|
||
case 'D':
|
||
deterministic = TRUE;
|
||
break;
|
||
|
||
case 'U':
|
||
deterministic = FALSE;
|
||
break;
|
||
|
||
case 'w':
|
||
wildcard = TRUE;
|
||
break;
|
||
|
||
case 'x':
|
||
discard_locals = LOCALS_ALL;
|
||
break;
|
||
|
||
case 'X':
|
||
discard_locals = LOCALS_START_L;
|
||
break;
|
||
|
||
case 'v':
|
||
verbose = TRUE;
|
||
break;
|
||
|
||
case 'V':
|
||
show_version = TRUE;
|
||
break;
|
||
|
||
case OPTION_FORMATS_INFO:
|
||
formats_info = TRUE;
|
||
break;
|
||
|
||
case OPTION_WEAKEN:
|
||
weaken = TRUE;
|
||
break;
|
||
|
||
case OPTION_ADD_SECTION:
|
||
{
|
||
const char *s;
|
||
size_t off, alloc;
|
||
struct section_add *pa;
|
||
FILE *f;
|
||
|
||
s = strchr (optarg, '=');
|
||
|
||
if (s == NULL)
|
||
fatal (_("bad format for %s"), "--add-section");
|
||
|
||
pa = (struct section_add *) xmalloc (sizeof (struct section_add));
|
||
pa->name = xstrndup (optarg, s - optarg);
|
||
pa->filename = s + 1;
|
||
|
||
/* We don't use get_file_size so that we can do
|
||
--add-section .note.GNU_stack=/dev/null
|
||
get_file_size doesn't work on /dev/null. */
|
||
|
||
f = fopen (pa->filename, FOPEN_RB);
|
||
if (f == NULL)
|
||
fatal (_("cannot open: %s: %s"),
|
||
pa->filename, strerror (errno));
|
||
|
||
off = 0;
|
||
alloc = 4096;
|
||
pa->contents = (bfd_byte *) xmalloc (alloc);
|
||
while (!feof (f))
|
||
{
|
||
off_t got;
|
||
|
||
if (off == alloc)
|
||
{
|
||
alloc <<= 1;
|
||
pa->contents = (bfd_byte *) xrealloc (pa->contents, alloc);
|
||
}
|
||
|
||
got = fread (pa->contents + off, 1, alloc - off, f);
|
||
if (ferror (f))
|
||
fatal (_("%s: fread failed"), pa->filename);
|
||
|
||
off += got;
|
||
}
|
||
|
||
pa->size = off;
|
||
|
||
fclose (f);
|
||
|
||
pa->next = add_sections;
|
||
add_sections = pa;
|
||
}
|
||
break;
|
||
|
||
case OPTION_DUMP_SECTION:
|
||
{
|
||
const char *s;
|
||
struct section_add *pa;
|
||
|
||
s = strchr (optarg, '=');
|
||
|
||
if (s == NULL)
|
||
fatal (_("bad format for %s"), "--dump-section");
|
||
|
||
pa = (struct section_add *) xmalloc (sizeof * pa);
|
||
pa->name = xstrndup (optarg, s - optarg);
|
||
pa->filename = s + 1;
|
||
pa->next = dump_sections;
|
||
pa->contents = NULL;
|
||
dump_sections = pa;
|
||
}
|
||
break;
|
||
|
||
case OPTION_CHANGE_START:
|
||
change_start = parse_vma (optarg, "--change-start");
|
||
break;
|
||
|
||
case OPTION_CHANGE_SECTION_ADDRESS:
|
||
case OPTION_CHANGE_SECTION_LMA:
|
||
case OPTION_CHANGE_SECTION_VMA:
|
||
{
|
||
struct section_list * p;
|
||
unsigned int context = 0;
|
||
const char *s;
|
||
int len;
|
||
char *name;
|
||
char *option = NULL;
|
||
bfd_vma val;
|
||
|
||
switch (c)
|
||
{
|
||
case OPTION_CHANGE_SECTION_ADDRESS:
|
||
option = "--change-section-address";
|
||
context = SECTION_CONTEXT_ALTER_LMA | SECTION_CONTEXT_ALTER_VMA;
|
||
break;
|
||
case OPTION_CHANGE_SECTION_LMA:
|
||
option = "--change-section-lma";
|
||
context = SECTION_CONTEXT_ALTER_LMA;
|
||
break;
|
||
case OPTION_CHANGE_SECTION_VMA:
|
||
option = "--change-section-vma";
|
||
context = SECTION_CONTEXT_ALTER_VMA;
|
||
break;
|
||
}
|
||
|
||
s = strchr (optarg, '=');
|
||
if (s == NULL)
|
||
{
|
||
s = strchr (optarg, '+');
|
||
if (s == NULL)
|
||
{
|
||
s = strchr (optarg, '-');
|
||
if (s == NULL)
|
||
fatal (_("bad format for %s"), option);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* Correct the context. */
|
||
switch (c)
|
||
{
|
||
case OPTION_CHANGE_SECTION_ADDRESS:
|
||
context = SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_SET_VMA;
|
||
break;
|
||
case OPTION_CHANGE_SECTION_LMA:
|
||
context = SECTION_CONTEXT_SET_LMA;
|
||
break;
|
||
case OPTION_CHANGE_SECTION_VMA:
|
||
context = SECTION_CONTEXT_SET_VMA;
|
||
break;
|
||
}
|
||
}
|
||
|
||
len = s - optarg;
|
||
name = (char *) xmalloc (len + 1);
|
||
strncpy (name, optarg, len);
|
||
name[len] = '\0';
|
||
|
||
p = find_section_list (name, TRUE, context);
|
||
|
||
val = parse_vma (s + 1, option);
|
||
if (*s == '-')
|
||
val = - val;
|
||
|
||
switch (c)
|
||
{
|
||
case OPTION_CHANGE_SECTION_ADDRESS:
|
||
p->vma_val = val;
|
||
/* Drop through. */
|
||
|
||
case OPTION_CHANGE_SECTION_LMA:
|
||
p->lma_val = val;
|
||
break;
|
||
|
||
case OPTION_CHANGE_SECTION_VMA:
|
||
p->vma_val = val;
|
||
break;
|
||
}
|
||
}
|
||
break;
|
||
|
||
case OPTION_CHANGE_ADDRESSES:
|
||
change_section_address = parse_vma (optarg, "--change-addresses");
|
||
change_start = change_section_address;
|
||
break;
|
||
|
||
case OPTION_CHANGE_WARNINGS:
|
||
change_warn = TRUE;
|
||
break;
|
||
|
||
case OPTION_CHANGE_LEADING_CHAR:
|
||
change_leading_char = TRUE;
|
||
break;
|
||
|
||
case OPTION_COMPRESS_DEBUG_SECTIONS:
|
||
do_debug_sections = compress;
|
||
break;
|
||
|
||
case OPTION_DEBUGGING:
|
||
convert_debugging = TRUE;
|
||
break;
|
||
|
||
case OPTION_DECOMPRESS_DEBUG_SECTIONS:
|
||
do_debug_sections = decompress;
|
||
break;
|
||
|
||
case OPTION_GAP_FILL:
|
||
{
|
||
bfd_vma gap_fill_vma;
|
||
|
||
gap_fill_vma = parse_vma (optarg, "--gap-fill");
|
||
gap_fill = (bfd_byte) gap_fill_vma;
|
||
if ((bfd_vma) gap_fill != gap_fill_vma)
|
||
{
|
||
char buff[20];
|
||
|
||
sprintf_vma (buff, gap_fill_vma);
|
||
|
||
non_fatal (_("Warning: truncating gap-fill from 0x%s to 0x%x"),
|
||
buff, gap_fill);
|
||
}
|
||
gap_fill_set = TRUE;
|
||
}
|
||
break;
|
||
|
||
case OPTION_NO_CHANGE_WARNINGS:
|
||
change_warn = FALSE;
|
||
break;
|
||
|
||
case OPTION_PAD_TO:
|
||
pad_to = parse_vma (optarg, "--pad-to");
|
||
pad_to_set = TRUE;
|
||
break;
|
||
|
||
case OPTION_REMOVE_LEADING_CHAR:
|
||
remove_leading_char = TRUE;
|
||
break;
|
||
|
||
case OPTION_REDEFINE_SYM:
|
||
{
|
||
/* Push this redefinition onto redefine_symbol_list. */
|
||
|
||
int len;
|
||
const char *s;
|
||
const char *nextarg;
|
||
char *source, *target;
|
||
|
||
s = strchr (optarg, '=');
|
||
if (s == NULL)
|
||
fatal (_("bad format for %s"), "--redefine-sym");
|
||
|
||
len = s - optarg;
|
||
source = (char *) xmalloc (len + 1);
|
||
strncpy (source, optarg, len);
|
||
source[len] = '\0';
|
||
|
||
nextarg = s + 1;
|
||
len = strlen (nextarg);
|
||
target = (char *) xmalloc (len + 1);
|
||
strcpy (target, nextarg);
|
||
|
||
redefine_list_append ("--redefine-sym", source, target);
|
||
|
||
free (source);
|
||
free (target);
|
||
}
|
||
break;
|
||
|
||
case OPTION_REDEFINE_SYMS:
|
||
add_redefine_syms_file (optarg);
|
||
break;
|
||
|
||
case OPTION_SET_SECTION_FLAGS:
|
||
{
|
||
struct section_list *p;
|
||
const char *s;
|
||
int len;
|
||
char *name;
|
||
|
||
s = strchr (optarg, '=');
|
||
if (s == NULL)
|
||
fatal (_("bad format for %s"), "--set-section-flags");
|
||
|
||
len = s - optarg;
|
||
name = (char *) xmalloc (len + 1);
|
||
strncpy (name, optarg, len);
|
||
name[len] = '\0';
|
||
|
||
p = find_section_list (name, TRUE, SECTION_CONTEXT_SET_FLAGS);
|
||
|
||
p->flags = parse_flags (s + 1);
|
||
}
|
||
break;
|
||
|
||
case OPTION_RENAME_SECTION:
|
||
{
|
||
flagword flags;
|
||
const char *eq, *fl;
|
||
char *old_name;
|
||
char *new_name;
|
||
unsigned int len;
|
||
|
||
eq = strchr (optarg, '=');
|
||
if (eq == NULL)
|
||
fatal (_("bad format for %s"), "--rename-section");
|
||
|
||
len = eq - optarg;
|
||
if (len == 0)
|
||
fatal (_("bad format for %s"), "--rename-section");
|
||
|
||
old_name = (char *) xmalloc (len + 1);
|
||
strncpy (old_name, optarg, len);
|
||
old_name[len] = 0;
|
||
|
||
eq++;
|
||
fl = strchr (eq, ',');
|
||
if (fl)
|
||
{
|
||
flags = parse_flags (fl + 1);
|
||
len = fl - eq;
|
||
}
|
||
else
|
||
{
|
||
flags = -1;
|
||
len = strlen (eq);
|
||
}
|
||
|
||
if (len == 0)
|
||
fatal (_("bad format for %s"), "--rename-section");
|
||
|
||
new_name = (char *) xmalloc (len + 1);
|
||
strncpy (new_name, eq, len);
|
||
new_name[len] = 0;
|
||
|
||
add_section_rename (old_name, new_name, flags);
|
||
}
|
||
break;
|
||
|
||
case OPTION_SET_START:
|
||
set_start = parse_vma (optarg, "--set-start");
|
||
set_start_set = TRUE;
|
||
break;
|
||
|
||
case OPTION_SREC_LEN:
|
||
Chunk = parse_vma (optarg, "--srec-len");
|
||
break;
|
||
|
||
case OPTION_SREC_FORCES3:
|
||
S3Forced = TRUE;
|
||
break;
|
||
|
||
case OPTION_STRIP_SYMBOLS:
|
||
add_specific_symbols (optarg, strip_specific_htab);
|
||
break;
|
||
|
||
case OPTION_STRIP_UNNEEDED_SYMBOLS:
|
||
add_specific_symbols (optarg, strip_unneeded_htab);
|
||
break;
|
||
|
||
case OPTION_KEEP_SYMBOLS:
|
||
add_specific_symbols (optarg, keep_specific_htab);
|
||
break;
|
||
|
||
case OPTION_LOCALIZE_HIDDEN:
|
||
localize_hidden = TRUE;
|
||
break;
|
||
|
||
case OPTION_LOCALIZE_SYMBOLS:
|
||
add_specific_symbols (optarg, localize_specific_htab);
|
||
break;
|
||
|
||
case OPTION_LONG_SECTION_NAMES:
|
||
if (!strcmp ("enable", optarg))
|
||
long_section_names = ENABLE;
|
||
else if (!strcmp ("disable", optarg))
|
||
long_section_names = DISABLE;
|
||
else if (!strcmp ("keep", optarg))
|
||
long_section_names = KEEP;
|
||
else
|
||
fatal (_("unknown long section names option '%s'"), optarg);
|
||
break;
|
||
|
||
case OPTION_GLOBALIZE_SYMBOLS:
|
||
add_specific_symbols (optarg, globalize_specific_htab);
|
||
break;
|
||
|
||
case OPTION_KEEPGLOBAL_SYMBOLS:
|
||
add_specific_symbols (optarg, keepglobal_specific_htab);
|
||
break;
|
||
|
||
case OPTION_WEAKEN_SYMBOLS:
|
||
add_specific_symbols (optarg, weaken_specific_htab);
|
||
break;
|
||
|
||
case OPTION_ALT_MACH_CODE:
|
||
use_alt_mach_code = strtoul (optarg, NULL, 0);
|
||
if (use_alt_mach_code == 0)
|
||
fatal (_("unable to parse alternative machine code"));
|
||
break;
|
||
|
||
case OPTION_PREFIX_SYMBOLS:
|
||
prefix_symbols_string = optarg;
|
||
break;
|
||
|
||
case OPTION_PREFIX_SECTIONS:
|
||
prefix_sections_string = optarg;
|
||
break;
|
||
|
||
case OPTION_PREFIX_ALLOC_SECTIONS:
|
||
prefix_alloc_sections_string = optarg;
|
||
break;
|
||
|
||
case OPTION_READONLY_TEXT:
|
||
bfd_flags_to_set |= WP_TEXT;
|
||
bfd_flags_to_clear &= ~WP_TEXT;
|
||
break;
|
||
|
||
case OPTION_WRITABLE_TEXT:
|
||
bfd_flags_to_clear |= WP_TEXT;
|
||
bfd_flags_to_set &= ~WP_TEXT;
|
||
break;
|
||
|
||
case OPTION_PURE:
|
||
bfd_flags_to_set |= D_PAGED;
|
||
bfd_flags_to_clear &= ~D_PAGED;
|
||
break;
|
||
|
||
case OPTION_IMPURE:
|
||
bfd_flags_to_clear |= D_PAGED;
|
||
bfd_flags_to_set &= ~D_PAGED;
|
||
break;
|
||
|
||
case OPTION_EXTRACT_DWO:
|
||
strip_symbols = STRIP_NONDWO;
|
||
break;
|
||
|
||
case OPTION_EXTRACT_SYMBOL:
|
||
extract_symbol = TRUE;
|
||
break;
|
||
|
||
case OPTION_REVERSE_BYTES:
|
||
{
|
||
int prev = reverse_bytes;
|
||
|
||
reverse_bytes = atoi (optarg);
|
||
if ((reverse_bytes <= 0) || ((reverse_bytes % 2) != 0))
|
||
fatal (_("number of bytes to reverse must be positive and even"));
|
||
|
||
if (prev && prev != reverse_bytes)
|
||
non_fatal (_("Warning: ignoring previous --reverse-bytes value of %d"),
|
||
prev);
|
||
break;
|
||
}
|
||
|
||
case OPTION_FILE_ALIGNMENT:
|
||
pe_file_alignment = parse_vma (optarg, "--file-alignment");
|
||
break;
|
||
|
||
case OPTION_HEAP:
|
||
{
|
||
char *end;
|
||
pe_heap_reserve = strtoul (optarg, &end, 0);
|
||
if (end == optarg
|
||
|| (*end != '.' && *end != '\0'))
|
||
non_fatal (_("%s: invalid reserve value for --heap"),
|
||
optarg);
|
||
else if (*end != '\0')
|
||
{
|
||
pe_heap_commit = strtoul (end + 1, &end, 0);
|
||
if (*end != '\0')
|
||
non_fatal (_("%s: invalid commit value for --heap"),
|
||
optarg);
|
||
}
|
||
}
|
||
break;
|
||
|
||
case OPTION_IMAGE_BASE:
|
||
pe_image_base = parse_vma (optarg, "--image-base");
|
||
break;
|
||
|
||
case OPTION_SECTION_ALIGNMENT:
|
||
pe_section_alignment = parse_vma (optarg,
|
||
"--section-alignment");
|
||
break;
|
||
|
||
case OPTION_SUBSYSTEM:
|
||
set_pe_subsystem (optarg);
|
||
break;
|
||
|
||
case OPTION_STACK:
|
||
{
|
||
char *end;
|
||
pe_stack_reserve = strtoul (optarg, &end, 0);
|
||
if (end == optarg
|
||
|| (*end != '.' && *end != '\0'))
|
||
non_fatal (_("%s: invalid reserve value for --stack"),
|
||
optarg);
|
||
else if (*end != '\0')
|
||
{
|
||
pe_stack_commit = strtoul (end + 1, &end, 0);
|
||
if (*end != '\0')
|
||
non_fatal (_("%s: invalid commit value for --stack"),
|
||
optarg);
|
||
}
|
||
}
|
||
break;
|
||
|
||
case 0:
|
||
/* We've been given a long option. */
|
||
break;
|
||
|
||
case 'H':
|
||
case 'h':
|
||
copy_usage (stdout, 0);
|
||
|
||
default:
|
||
copy_usage (stderr, 1);
|
||
}
|
||
}
|
||
|
||
if (formats_info)
|
||
{
|
||
display_info ();
|
||
return 0;
|
||
}
|
||
|
||
if (show_version)
|
||
print_version ("objcopy");
|
||
|
||
if (interleave && copy_byte == -1)
|
||
fatal (_("interleave start byte must be set with --byte"));
|
||
|
||
if (copy_byte >= interleave)
|
||
fatal (_("byte number must be less than interleave"));
|
||
|
||
if (copy_width > interleave - copy_byte)
|
||
fatal (_("interleave width must be less than or equal to interleave - byte`"));
|
||
|
||
if (optind == argc || optind + 2 < argc)
|
||
copy_usage (stderr, 1);
|
||
|
||
input_filename = argv[optind];
|
||
if (optind + 1 < argc)
|
||
output_filename = argv[optind + 1];
|
||
|
||
default_deterministic ();
|
||
|
||
/* Default is to strip no symbols. */
|
||
if (strip_symbols == STRIP_UNDEF && discard_locals == LOCALS_UNDEF)
|
||
strip_symbols = STRIP_NONE;
|
||
|
||
if (output_target == NULL)
|
||
output_target = input_target;
|
||
|
||
/* Convert input EFI target to PEI target. */
|
||
if (input_target != NULL
|
||
&& strncmp (input_target, "efi-", 4) == 0)
|
||
{
|
||
char *efi;
|
||
|
||
efi = xstrdup (output_target + 4);
|
||
if (strncmp (efi, "bsdrv-", 6) == 0
|
||
|| strncmp (efi, "rtdrv-", 6) == 0)
|
||
efi += 2;
|
||
else if (strncmp (efi, "app-", 4) != 0)
|
||
fatal (_("unknown input EFI target: %s"), input_target);
|
||
|
||
input_target = efi;
|
||
convert_efi_target (efi);
|
||
}
|
||
|
||
/* Convert output EFI target to PEI target. */
|
||
if (output_target != NULL
|
||
&& strncmp (output_target, "efi-", 4) == 0)
|
||
{
|
||
char *efi;
|
||
|
||
efi = xstrdup (output_target + 4);
|
||
if (strncmp (efi, "app-", 4) == 0)
|
||
{
|
||
if (pe_subsystem == -1)
|
||
pe_subsystem = IMAGE_SUBSYSTEM_EFI_APPLICATION;
|
||
}
|
||
else if (strncmp (efi, "bsdrv-", 6) == 0)
|
||
{
|
||
if (pe_subsystem == -1)
|
||
pe_subsystem = IMAGE_SUBSYSTEM_EFI_BOOT_SERVICE_DRIVER;
|
||
efi += 2;
|
||
}
|
||
else if (strncmp (efi, "rtdrv-", 6) == 0)
|
||
{
|
||
if (pe_subsystem == -1)
|
||
pe_subsystem = IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER;
|
||
efi += 2;
|
||
}
|
||
else
|
||
fatal (_("unknown output EFI target: %s"), output_target);
|
||
|
||
if (pe_file_alignment == (bfd_vma) -1)
|
||
pe_file_alignment = PE_DEF_FILE_ALIGNMENT;
|
||
if (pe_section_alignment == (bfd_vma) -1)
|
||
pe_section_alignment = PE_DEF_SECTION_ALIGNMENT;
|
||
|
||
output_target = efi;
|
||
convert_efi_target (efi);
|
||
}
|
||
|
||
if (preserve_dates)
|
||
if (stat (input_filename, & statbuf) < 0)
|
||
fatal (_("warning: could not locate '%s'. System error message: %s"),
|
||
input_filename, strerror (errno));
|
||
|
||
/* If there is no destination file, or the source and destination files
|
||
are the same, then create a temp and rename the result into the input. */
|
||
if (output_filename == NULL
|
||
|| filename_cmp (input_filename, output_filename) == 0)
|
||
tmpname = make_tempname (input_filename);
|
||
else
|
||
tmpname = output_filename;
|
||
|
||
if (tmpname == NULL)
|
||
fatal (_("warning: could not create temporary file whilst copying '%s', (error: %s)"),
|
||
input_filename, strerror (errno));
|
||
|
||
copy_file (input_filename, tmpname, input_target, output_target, input_arch);
|
||
if (status == 0)
|
||
{
|
||
if (preserve_dates)
|
||
set_times (tmpname, &statbuf);
|
||
if (tmpname != output_filename)
|
||
status = (smart_rename (tmpname, input_filename,
|
||
preserve_dates) != 0);
|
||
}
|
||
else
|
||
unlink_if_ordinary (tmpname);
|
||
|
||
if (change_warn)
|
||
{
|
||
struct section_list *p;
|
||
|
||
for (p = change_sections; p != NULL; p = p->next)
|
||
{
|
||
if (! p->used)
|
||
{
|
||
if (p->context & (SECTION_CONTEXT_SET_VMA | SECTION_CONTEXT_ALTER_VMA))
|
||
{
|
||
char buff [20];
|
||
|
||
sprintf_vma (buff, p->vma_val);
|
||
|
||
/* xgettext:c-format */
|
||
non_fatal (_("%s %s%c0x%s never used"),
|
||
"--change-section-vma",
|
||
p->pattern,
|
||
p->context & SECTION_CONTEXT_SET_VMA ? '=' : '+',
|
||
buff);
|
||
}
|
||
|
||
if (p->context & (SECTION_CONTEXT_SET_LMA | SECTION_CONTEXT_ALTER_LMA))
|
||
{
|
||
char buff [20];
|
||
|
||
sprintf_vma (buff, p->lma_val);
|
||
|
||
/* xgettext:c-format */
|
||
non_fatal (_("%s %s%c0x%s never used"),
|
||
"--change-section-lma",
|
||
p->pattern,
|
||
p->context & SECTION_CONTEXT_SET_LMA ? '=' : '+',
|
||
buff);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
int
|
||
main (int argc, char *argv[])
|
||
{
|
||
#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
|
||
setlocale (LC_MESSAGES, "");
|
||
#endif
|
||
#if defined (HAVE_SETLOCALE)
|
||
setlocale (LC_CTYPE, "");
|
||
#endif
|
||
bindtextdomain (PACKAGE, LOCALEDIR);
|
||
textdomain (PACKAGE);
|
||
|
||
program_name = argv[0];
|
||
xmalloc_set_program_name (program_name);
|
||
|
||
START_PROGRESS (program_name, 0);
|
||
|
||
expandargv (&argc, &argv);
|
||
|
||
strip_symbols = STRIP_UNDEF;
|
||
discard_locals = LOCALS_UNDEF;
|
||
|
||
bfd_init ();
|
||
set_default_bfd_target ();
|
||
|
||
if (is_strip < 0)
|
||
{
|
||
int i = strlen (program_name);
|
||
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
|
||
/* Drop the .exe suffix, if any. */
|
||
if (i > 4 && FILENAME_CMP (program_name + i - 4, ".exe") == 0)
|
||
{
|
||
i -= 4;
|
||
program_name[i] = '\0';
|
||
}
|
||
#endif
|
||
is_strip = (i >= 5 && FILENAME_CMP (program_name + i - 5, "strip") == 0);
|
||
}
|
||
|
||
create_symbol_htabs ();
|
||
|
||
if (is_strip)
|
||
strip_main (argc, argv);
|
||
else
|
||
copy_main (argc, argv);
|
||
|
||
END_PROGRESS (program_name);
|
||
|
||
return status;
|
||
}
|