contrib/binutils-2.22/bfd/binary.c

   1 /* BFD back-end for binary objects.
   2    Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
   3    2004, 2005, 2006, 2007, 2009, 2011 Free Software Foundation, Inc.
   4    Written by Ian Lance Taylor, Cygnus Support, <ian@cygnus.com>
   5
   6    This file is part of BFD, the Binary File Descriptor library.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  21    MA 02110-1301, USA.  */
  22
  23 /* This is a BFD backend which may be used to write binary objects.
  24    It may only be used for output, not input.  The intention is that
  25    this may be used as an output format for objcopy in order to
  26    generate raw binary data.
  27
  28    This is very simple.  The only complication is that the real data
  29    will start at some address X, and in some cases we will not want to
  30    include X zeroes just to get to that point.  Since the start
  31    address is not meaningful for this object file format, we use it
  32    instead to indicate the number of zeroes to skip at the start of
  33    the file.  objcopy cooperates by specially setting the start
  34    address to zero by default.  */
  35
  36 #include "sysdep.h"
  37 #include "bfd.h"
  38 #include "safe-ctype.h"
  39 #include "libbfd.h"
  40
  41 /* Any bfd we create by reading a binary file has three symbols:
  42    a start symbol, an end symbol, and an absolute length symbol.  */
  43 #define BIN_SYMS 3
  44
  45 /* Create a binary object.  Invoked via bfd_set_format.  */
  46
  47 static bfd_boolean
  48 binary_mkobject (bfd *abfd ATTRIBUTE_UNUSED)
  49 {
  50   return TRUE;
  51 }
  52
  53 /* Any file may be considered to be a binary file, provided the target
  54    was not defaulted.  That is, it must be explicitly specified as
  55    being binary.  */
  56
  57 static const bfd_target *
  58 binary_object_p (bfd *abfd)
  59 {
  60   struct stat statbuf;
  61   asection *sec;
  62   flagword flags;
  63
  64   if (abfd->target_defaulted)
  65     {
  66       bfd_set_error (bfd_error_wrong_format);
  67       return NULL;
  68     }
  69
  70   abfd->symcount = BIN_SYMS;
  71
  72   /* Find the file size.  */
  73   if (bfd_stat (abfd, &statbuf) < 0)
  74     {
  75       bfd_set_error (bfd_error_system_call);
  76       return NULL;
  77     }
  78
  79   /* One data section.  */
  80   flags = SEC_ALLOC | SEC_LOAD | SEC_DATA | SEC_HAS_CONTENTS;
  81   sec = bfd_make_section_with_flags (abfd, ".data", flags);
  82   if (sec == NULL)
  83     return NULL;
  84   sec->vma = 0;
  85   sec->size = statbuf.st_size;
  86   sec->filepos = 0;
  87
  88   abfd->tdata.any = (void *) sec;
  89
  90   return abfd->xvec;
  91 }
  92
  93 #define binary_close_and_cleanup     _bfd_generic_close_and_cleanup
  94 #define binary_bfd_free_cached_info  _bfd_generic_bfd_free_cached_info
  95 #define binary_new_section_hook      _bfd_generic_new_section_hook
  96
  97 /* Get contents of the only section.  */
  98
  99 static bfd_boolean
 100 binary_get_section_contents (bfd *abfd,
 101                              asection *section ATTRIBUTE_UNUSED,
 102                              void * location,
 103                              file_ptr offset,
 104                              bfd_size_type count)
 105 {
 106   if (bfd_seek (abfd, offset, SEEK_SET) != 0
 107       || bfd_bread (location, count, abfd) != count)
 108     return FALSE;
 109   return TRUE;
 110 }
 111
 112 /* Return the amount of memory needed to read the symbol table.  */
 113
 114 static long
 115 binary_get_symtab_upper_bound (bfd *abfd ATTRIBUTE_UNUSED)
 116 {
 117   return (BIN_SYMS + 1) * sizeof (asymbol *);
 118 }
 119
 120 /* Create a symbol name based on the bfd's filename.  */
 121
 122 static char *
 123 mangle_name (bfd *abfd, char *suffix)
 124 {
 125   bfd_size_type size;
 126   char *buf;
 127   char *p;
 128
 129   size = (strlen (bfd_get_filename (abfd))
 130           + strlen (suffix)
 131           + sizeof "_binary__");
 132
 133   buf = (char *) bfd_alloc (abfd, size);
 134   if (buf == NULL)
 135     return "";
 136
 137   sprintf (buf, "_binary_%s_%s", bfd_get_filename (abfd), suffix);
 138
 139   /* Change any non-alphanumeric characters to underscores.  */
 140   for (p = buf; *p; p++)
 141     if (! ISALNUM (*p))
 142       *p = '_';
 143
 144   return buf;
 145 }
 146
 147 /* Return the symbol table.  */
 148
 149 static long
 150 binary_canonicalize_symtab (bfd *abfd, asymbol **alocation)
 151 {
 152   asection *sec = (asection *) abfd->tdata.any;
 153   asymbol *syms;
 154   unsigned int i;
 155   bfd_size_type amt = BIN_SYMS * sizeof (asymbol);
 156
 157   syms = (asymbol *) bfd_alloc (abfd, amt);
 158   if (syms == NULL)
 159     return -1;
 160
 161   /* Start symbol.  */
 162   syms[0].the_bfd = abfd;
 163   syms[0].name = mangle_name (abfd, "start");
 164   syms[0].value = 0;
 165   syms[0].flags = BSF_GLOBAL;
 166   syms[0].section = sec;
 167   syms[0].udata.p = NULL;
 168
 169   /* End symbol.  */
 170   syms[1].the_bfd = abfd;
 171   syms[1].name = mangle_name (abfd, "end");
 172   syms[1].value = sec->size;
 173   syms[1].flags = BSF_GLOBAL;
 174   syms[1].section = sec;
 175   syms[1].udata.p = NULL;
 176
 177   /* Size symbol.  */
 178   syms[2].the_bfd = abfd;
 179   syms[2].name = mangle_name (abfd, "size");
 180   syms[2].value = sec->size;
 181   syms[2].flags = BSF_GLOBAL;
 182   syms[2].section = bfd_abs_section_ptr;
 183   syms[2].udata.p = NULL;
 184
 185   for (i = 0; i < BIN_SYMS; i++)
 186     *alocation++ = syms++;
 187   *alocation = NULL;
 188
 189   return BIN_SYMS;
 190 }
 191
 192 #define binary_make_empty_symbol  _bfd_generic_make_empty_symbol
 193 #define binary_print_symbol       _bfd_nosymbols_print_symbol
 194
 195 /* Get information about a symbol.  */
 196
 197 static void
 198 binary_get_symbol_info (bfd *ignore_abfd ATTRIBUTE_UNUSED,
 199                         asymbol *symbol,
 200                         symbol_info *ret)
 201 {
 202   bfd_symbol_info (symbol, ret);
 203 }
 204
 205 #define binary_bfd_is_local_label_name      bfd_generic_is_local_label_name
 206 #define binary_get_lineno                  _bfd_nosymbols_get_lineno
 207 #define binary_find_nearest_line           _bfd_nosymbols_find_nearest_line
 208 #define binary_find_inliner_info           _bfd_nosymbols_find_inliner_info
 209 #define binary_bfd_make_debug_symbol       _bfd_nosymbols_bfd_make_debug_symbol
 210 #define binary_read_minisymbols            _bfd_generic_read_minisymbols
 211 #define binary_minisymbol_to_symbol        _bfd_generic_minisymbol_to_symbol
 212 #define binary_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
 213
 214 /* Set the architecture of a binary file.  */
 215 #define binary_set_arch_mach _bfd_generic_set_arch_mach
 216
 217 /* Write section contents of a binary file.  */
 218
 219 static bfd_boolean
 220 binary_set_section_contents (bfd *abfd,
 221                              asection *sec,
 222                              const void * data,
 223                              file_ptr offset,
 224                              bfd_size_type size)
 225 {
 226   if (size == 0)
 227     return TRUE;
 228
 229   if (! abfd->output_has_begun)
 230     {
 231       bfd_boolean found_low;
 232       bfd_vma low;
 233       asection *s;
 234
 235       /* The lowest section LMA sets the virtual address of the start
 236          of the file.  We use this to set the file position of all the
 237          sections.  */
 238       found_low = FALSE;
 239       low = 0;
 240       for (s = abfd->sections; s != NULL; s = s->next)
 241         if (((s->flags
 242               & (SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_NEVER_LOAD))
 243              == (SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC))
 244             && (s->size > 0)
 245             && (! found_low || s->lma < low))
 246           {
 247             low = s->lma;
 248             found_low = TRUE;
 249           }
 250
 251       for (s = abfd->sections; s != NULL; s = s->next)
 252         {
 253           s->filepos = s->lma - low;
 254
 255           /* Skip following warning check for sections that will not
 256              occupy file space.  */
 257           if ((s->flags
 258                & (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_NEVER_LOAD))
 259               != (SEC_HAS_CONTENTS | SEC_ALLOC)
 260               || (s->size == 0))
 261             continue;
 262
 263           /* If attempting to generate a binary file from a bfd with
 264              LMA's all over the place, huge (sparse?) binary files may
 265              result.  This condition attempts to detect this situation
 266              and print a warning.  Better heuristics would be nice to
 267              have.  */
 268
 269           if (s->filepos < 0)
 270             (*_bfd_error_handler)
 271               (_("Warning: Writing section `%s' to huge (ie negative) file offset 0x%lx."),
 272                bfd_get_section_name (abfd, s),
 273                (unsigned long) s->filepos);
 274         }
 275
 276       abfd->output_has_begun = TRUE;
 277     }
 278
 279   /* We don't want to output anything for a section that is neither
 280      loaded nor allocated.  The contents of such a section are not
 281      meaningful in the binary format.  */
 282   if ((sec->flags & (SEC_LOAD | SEC_ALLOC)) == 0)
 283     return TRUE;
 284   if ((sec->flags & SEC_NEVER_LOAD) != 0)
 285     return TRUE;
 286
 287   return _bfd_generic_set_section_contents (abfd, sec, data, offset, size);
 288 }
 289
 290 /* No space is required for header information.  */
 291
 292 static int
 293 binary_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
 294                        struct bfd_link_info *info ATTRIBUTE_UNUSED)
 295 {
 296   return 0;
 297 }
 298
 299 #define binary_bfd_get_relocated_section_contents  bfd_generic_get_relocated_section_contents
 300 #define binary_bfd_relax_section                   bfd_generic_relax_section
 301 #define binary_bfd_gc_sections                     bfd_generic_gc_sections
 302 #define binary_bfd_lookup_section_flags            bfd_generic_lookup_section_flags
 303 #define binary_bfd_merge_sections                  bfd_generic_merge_sections
 304 #define binary_bfd_is_group_section                bfd_generic_is_group_section
 305 #define binary_bfd_discard_group                   bfd_generic_discard_group
 306 #define binary_section_already_linked             _bfd_generic_section_already_linked
 307 #define binary_bfd_define_common_symbol            bfd_generic_define_common_symbol
 308 #define binary_bfd_link_hash_table_create         _bfd_generic_link_hash_table_create
 309 #define binary_bfd_link_hash_table_free           _bfd_generic_link_hash_table_free
 310 #define binary_bfd_link_just_syms                 _bfd_generic_link_just_syms
 311 #define binary_bfd_copy_link_hash_symbol_type \
 312   _bfd_generic_copy_link_hash_symbol_type
 313 #define binary_bfd_link_add_symbols               _bfd_generic_link_add_symbols
 314 #define binary_bfd_final_link                     _bfd_generic_final_link
 315 #define binary_bfd_link_split_section             _bfd_generic_link_split_section
 316 #define binary_get_section_contents_in_window     _bfd_generic_get_section_contents_in_window
 317
 318 const bfd_target binary_vec =
 319 {
 320   "binary",                     /* name */
 321   bfd_target_unknown_flavour,   /* flavour */
 322   BFD_ENDIAN_UNKNOWN,           /* byteorder */
 323   BFD_ENDIAN_UNKNOWN,           /* header_byteorder */
 324   EXEC_P,                       /* object_flags */
 325   (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
 326    | SEC_ROM | SEC_HAS_CONTENTS), /* section_flags */
 327   0,                            /* symbol_leading_char */
 328   ' ',                          /* ar_pad_char */
 329   16,                           /* ar_max_namelen */
 330   255,                          /* match priority.  */
 331   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 332   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 333   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* data */
 334   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 335   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 336   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* hdrs */
 337   {                             /* bfd_check_format */
 338     _bfd_dummy_target,
 339     binary_object_p,
 340     _bfd_dummy_target,
 341     _bfd_dummy_target,
 342   },
 343   {                             /* bfd_set_format */
 344     bfd_false,
 345     binary_mkobject,
 346     bfd_false,
 347     bfd_false,
 348   },
 349   {                             /* bfd_write_contents */
 350     bfd_false,
 351     bfd_true,
 352     bfd_false,
 353     bfd_false,
 354   },
 355
 356   BFD_JUMP_TABLE_GENERIC (binary),
 357   BFD_JUMP_TABLE_COPY (_bfd_generic),
 358   BFD_JUMP_TABLE_CORE (_bfd_nocore),
 359   BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
 360   BFD_JUMP_TABLE_SYMBOLS (binary),
 361   BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
 362   BFD_JUMP_TABLE_WRITE (binary),
 363   BFD_JUMP_TABLE_LINK (binary),
 364   BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
 365
 366   NULL,
 367
 368   NULL
 369 };