contrib/binutils/bfd/coffgen.c

   1 /* Support for the generic parts of COFF, for BFD.
   2    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
   3    2000, 2001, 2002, 2003, 2004, 2005, 2007
   4    Free Software Foundation, Inc.
   5    Written by Cygnus Support.
   6
   7    This file is part of BFD, the Binary File Descriptor library.
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 2 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program; if not, write to the Free Software
  21    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
  22
  23 /* Most of this hacked by  Steve Chamberlain, sac@cygnus.com.
  24    Split out of coffcode.h by Ian Taylor, ian@cygnus.com.  */
  25
  26 /* This file contains COFF code that is not dependent on any
  27    particular COFF target.  There is only one version of this file in
  28    libbfd.a, so no target specific code may be put in here.  Or, to
  29    put it another way,
  30
  31    ********** DO NOT PUT TARGET SPECIFIC CODE IN THIS FILE **********
  32
  33    If you need to add some target specific behaviour, add a new hook
  34    function to bfd_coff_backend_data.
  35
  36    Some of these functions are also called by the ECOFF routines.
  37    Those functions may not use any COFF specific information, such as
  38    coff_data (abfd).  */
  39
  40 #include "sysdep.h"
  41 #include "bfd.h"
  42 #include "libbfd.h"
  43 #include "coff/internal.h"
  44 #include "libcoff.h"
  45
  46 /* Take a section header read from a coff file (in HOST byte order),
  47    and make a BFD "section" out of it.  This is used by ECOFF.  */
  48
  49 static bfd_boolean
  50 make_a_section_from_file (bfd *abfd,
  51                           struct internal_scnhdr *hdr,
  52                           unsigned int target_index)
  53 {
  54   asection *return_section;
  55   char *name;
  56   bfd_boolean result = TRUE;
  57   flagword flags;
  58
  59   name = NULL;
  60
  61   /* Handle long section names as in PE.  */
  62   if (bfd_coff_long_section_names (abfd)
  63       && hdr->s_name[0] == '/')
  64     {
  65       char buf[SCNNMLEN];
  66       long strindex;
  67       char *p;
  68       const char *strings;
  69
  70       memcpy (buf, hdr->s_name + 1, SCNNMLEN - 1);
  71       buf[SCNNMLEN - 1] = '\0';
  72       strindex = strtol (buf, &p, 10);
  73       if (*p == '\0' && strindex >= 0)
  74         {
  75           strings = _bfd_coff_read_string_table (abfd);
  76           if (strings == NULL)
  77             return FALSE;
  78           /* FIXME: For extra safety, we should make sure that
  79              strindex does not run us past the end, but right now we
  80              don't know the length of the string table.  */
  81           strings += strindex;
  82           name = bfd_alloc (abfd, (bfd_size_type) strlen (strings) + 1);
  83           if (name == NULL)
  84             return FALSE;
  85           strcpy (name, strings);
  86         }
  87     }
  88
  89   if (name == NULL)
  90     {
  91       /* Assorted wastage to null-terminate the name, thanks AT&T! */
  92       name = bfd_alloc (abfd, (bfd_size_type) sizeof (hdr->s_name) + 1);
  93       if (name == NULL)
  94         return FALSE;
  95       strncpy (name, (char *) &hdr->s_name[0], sizeof (hdr->s_name));
  96       name[sizeof (hdr->s_name)] = 0;
  97     }
  98
  99   return_section = bfd_make_section_anyway (abfd, name);
 100   if (return_section == NULL)
 101     return FALSE;
 102
 103   return_section->vma = hdr->s_vaddr;
 104   return_section->lma = hdr->s_paddr;
 105   return_section->size = hdr->s_size;
 106   return_section->filepos = hdr->s_scnptr;
 107   return_section->rel_filepos = hdr->s_relptr;
 108   return_section->reloc_count = hdr->s_nreloc;
 109
 110   bfd_coff_set_alignment_hook (abfd, return_section, hdr);
 111
 112   return_section->line_filepos = hdr->s_lnnoptr;
 113
 114   return_section->lineno_count = hdr->s_nlnno;
 115   return_section->userdata = NULL;
 116   return_section->next = NULL;
 117   return_section->target_index = target_index;
 118
 119   if (! bfd_coff_styp_to_sec_flags_hook (abfd, hdr, name, return_section,
 120                                          & flags))
 121     result = FALSE;
 122
 123   return_section->flags = flags;
 124
 125   /* At least on i386-coff, the line number count for a shared library
 126      section must be ignored.  */
 127   if ((return_section->flags & SEC_COFF_SHARED_LIBRARY) != 0)
 128     return_section->lineno_count = 0;
 129
 130   if (hdr->s_nreloc != 0)
 131     return_section->flags |= SEC_RELOC;
 132   /* FIXME: should this check 'hdr->s_size > 0'.  */
 133   if (hdr->s_scnptr != 0)
 134     return_section->flags |= SEC_HAS_CONTENTS;
 135
 136   return result;
 137 }
 138
 139 /* Read in a COFF object and make it into a BFD.  This is used by
 140    ECOFF as well.  */
 141
 142 static const bfd_target *
 143 coff_real_object_p (bfd *abfd,
 144                     unsigned nscns,
 145                     struct internal_filehdr *internal_f,
 146                     struct internal_aouthdr *internal_a)
 147 {
 148   flagword oflags = abfd->flags;
 149   bfd_vma ostart = bfd_get_start_address (abfd);
 150   void * tdata;
 151   void * tdata_save;
 152   bfd_size_type readsize;       /* Length of file_info.  */
 153   unsigned int scnhsz;
 154   char *external_sections;
 155
 156   if (!(internal_f->f_flags & F_RELFLG))
 157     abfd->flags |= HAS_RELOC;
 158   if ((internal_f->f_flags & F_EXEC))
 159     abfd->flags |= EXEC_P;
 160   if (!(internal_f->f_flags & F_LNNO))
 161     abfd->flags |= HAS_LINENO;
 162   if (!(internal_f->f_flags & F_LSYMS))
 163     abfd->flags |= HAS_LOCALS;
 164
 165   /* FIXME: How can we set D_PAGED correctly?  */
 166   if ((internal_f->f_flags & F_EXEC) != 0)
 167     abfd->flags |= D_PAGED;
 168
 169   bfd_get_symcount (abfd) = internal_f->f_nsyms;
 170   if (internal_f->f_nsyms)
 171     abfd->flags |= HAS_SYMS;
 172
 173   if (internal_a != (struct internal_aouthdr *) NULL)
 174     bfd_get_start_address (abfd) = internal_a->entry;
 175   else
 176     bfd_get_start_address (abfd) = 0;
 177
 178   /* Set up the tdata area.  ECOFF uses its own routine, and overrides
 179      abfd->flags.  */
 180   tdata_save = abfd->tdata.any;
 181   tdata = bfd_coff_mkobject_hook (abfd, (void *) internal_f, (void *) internal_a);
 182   if (tdata == NULL)
 183     goto fail2;
 184
 185   scnhsz = bfd_coff_scnhsz (abfd);
 186   readsize = (bfd_size_type) nscns * scnhsz;
 187   external_sections = bfd_alloc (abfd, readsize);
 188   if (!external_sections)
 189     goto fail;
 190
 191   if (bfd_bread ((void *) external_sections, readsize, abfd) != readsize)
 192     goto fail;
 193
 194   /* Set the arch/mach *before* swapping in sections; section header swapping
 195      may depend on arch/mach info.  */
 196   if (! bfd_coff_set_arch_mach_hook (abfd, (void *) internal_f))
 197     goto fail;
 198
 199   /* Now copy data as required; construct all asections etc.  */
 200   if (nscns != 0)
 201     {
 202       unsigned int i;
 203       for (i = 0; i < nscns; i++)
 204         {
 205           struct internal_scnhdr tmp;
 206           bfd_coff_swap_scnhdr_in (abfd,
 207                                    (void *) (external_sections + i * scnhsz),
 208                                    (void *) & tmp);
 209           if (! make_a_section_from_file (abfd, &tmp, i + 1))
 210             goto fail;
 211         }
 212     }
 213
 214   return abfd->xvec;
 215
 216  fail:
 217   bfd_release (abfd, tdata);
 218  fail2:
 219   abfd->tdata.any = tdata_save;
 220   abfd->flags = oflags;
 221   bfd_get_start_address (abfd) = ostart;
 222   return (const bfd_target *) NULL;
 223 }
 224
 225 /* Turn a COFF file into a BFD, but fail with bfd_error_wrong_format if it is
 226    not a COFF file.  This is also used by ECOFF.  */
 227
 228 const bfd_target *
 229 coff_object_p (bfd *abfd)
 230 {
 231   bfd_size_type filhsz;
 232   bfd_size_type aoutsz;
 233   unsigned int nscns;
 234   void * filehdr;
 235   struct internal_filehdr internal_f;
 236   struct internal_aouthdr internal_a;
 237
 238   /* Figure out how much to read.  */
 239   filhsz = bfd_coff_filhsz (abfd);
 240   aoutsz = bfd_coff_aoutsz (abfd);
 241
 242   filehdr = bfd_alloc (abfd, filhsz);
 243   if (filehdr == NULL)
 244     return NULL;
 245   if (bfd_bread (filehdr, filhsz, abfd) != filhsz)
 246     {
 247       if (bfd_get_error () != bfd_error_system_call)
 248         bfd_set_error (bfd_error_wrong_format);
 249       bfd_release (abfd, filehdr);
 250       return NULL;
 251     }
 252   bfd_coff_swap_filehdr_in (abfd, filehdr, &internal_f);
 253   bfd_release (abfd, filehdr);
 254
 255   /* The XCOFF format has two sizes for the f_opthdr.  SMALL_AOUTSZ
 256      (less than aoutsz) used in object files and AOUTSZ (equal to
 257      aoutsz) in executables.  The bfd_coff_swap_aouthdr_in function
 258      expects this header to be aoutsz bytes in length, so we use that
 259      value in the call to bfd_alloc below.  But we must be careful to
 260      only read in f_opthdr bytes in the call to bfd_bread.  We should
 261      also attempt to catch corrupt or non-COFF binaries with a strange
 262      value for f_opthdr.  */
 263   if (! bfd_coff_bad_format_hook (abfd, &internal_f)
 264       || internal_f.f_opthdr > aoutsz)
 265     {
 266       bfd_set_error (bfd_error_wrong_format);
 267       return NULL;
 268     }
 269   nscns = internal_f.f_nscns;
 270
 271   if (internal_f.f_opthdr)
 272     {
 273       void * opthdr;
 274
 275       opthdr = bfd_alloc (abfd, aoutsz);
 276       if (opthdr == NULL)
 277         return NULL;
 278       if (bfd_bread (opthdr, (bfd_size_type) internal_f.f_opthdr, abfd)
 279           != internal_f.f_opthdr)
 280         {
 281           bfd_release (abfd, opthdr);
 282           return NULL;
 283         }
 284       bfd_coff_swap_aouthdr_in (abfd, opthdr, (void *) &internal_a);
 285       bfd_release (abfd, opthdr);
 286     }
 287
 288   return coff_real_object_p (abfd, nscns, &internal_f,
 289                              (internal_f.f_opthdr != 0
 290                               ? &internal_a
 291                               : (struct internal_aouthdr *) NULL));
 292 }
 293
 294 /* Get the BFD section from a COFF symbol section number.  */
 295
 296 asection *
 297 coff_section_from_bfd_index (bfd *abfd, int index)
 298 {
 299   struct bfd_section *answer = abfd->sections;
 300
 301   if (index == N_ABS)
 302     return bfd_abs_section_ptr;
 303   if (index == N_UNDEF)
 304     return bfd_und_section_ptr;
 305   if (index == N_DEBUG)
 306     return bfd_abs_section_ptr;
 307
 308   while (answer)
 309     {
 310       if (answer->target_index == index)
 311         return answer;
 312       answer = answer->next;
 313     }
 314
 315   /* We should not reach this point, but the SCO 3.2v4 /lib/libc_s.a
 316      has a bad symbol table in biglitpow.o.  */
 317   return bfd_und_section_ptr;
 318 }
 319
 320 /* Get the upper bound of a COFF symbol table.  */
 321
 322 long
 323 coff_get_symtab_upper_bound (bfd *abfd)
 324 {
 325   if (!bfd_coff_slurp_symbol_table (abfd))
 326     return -1;
 327
 328   return (bfd_get_symcount (abfd) + 1) * (sizeof (coff_symbol_type *));
 329 }
 330
 331 /* Canonicalize a COFF symbol table.  */
 332
 333 long
 334 coff_canonicalize_symtab (bfd *abfd, asymbol **alocation)
 335 {
 336   unsigned int counter;
 337   coff_symbol_type *symbase;
 338   coff_symbol_type **location = (coff_symbol_type **) alocation;
 339
 340   if (!bfd_coff_slurp_symbol_table (abfd))
 341     return -1;
 342
 343   symbase = obj_symbols (abfd);
 344   counter = bfd_get_symcount (abfd);
 345   while (counter-- > 0)
 346     *location++ = symbase++;
 347
 348   *location = NULL;
 349
 350   return bfd_get_symcount (abfd);
 351 }
 352
 353 /* Get the name of a symbol.  The caller must pass in a buffer of size
 354    >= SYMNMLEN + 1.  */
 355
 356 const char *
 357 _bfd_coff_internal_syment_name (bfd *abfd,
 358                                 const struct internal_syment *sym,
 359                                 char *buf)
 360 {
 361   /* FIXME: It's not clear this will work correctly if sizeof
 362      (_n_zeroes) != 4.  */
 363   if (sym->_n._n_n._n_zeroes != 0
 364       || sym->_n._n_n._n_offset == 0)
 365     {
 366       memcpy (buf, sym->_n._n_name, SYMNMLEN);
 367       buf[SYMNMLEN] = '\0';
 368       return buf;
 369     }
 370   else
 371     {
 372       const char *strings;
 373
 374       BFD_ASSERT (sym->_n._n_n._n_offset >= STRING_SIZE_SIZE);
 375       strings = obj_coff_strings (abfd);
 376       if (strings == NULL)
 377         {
 378           strings = _bfd_coff_read_string_table (abfd);
 379           if (strings == NULL)
 380             return NULL;
 381         }
 382       return strings + sym->_n._n_n._n_offset;
 383     }
 384 }
 385
 386 /* Read in and swap the relocs.  This returns a buffer holding the
 387    relocs for section SEC in file ABFD.  If CACHE is TRUE and
 388    INTERNAL_RELOCS is NULL, the relocs read in will be saved in case
 389    the function is called again.  If EXTERNAL_RELOCS is not NULL, it
 390    is a buffer large enough to hold the unswapped relocs.  If
 391    INTERNAL_RELOCS is not NULL, it is a buffer large enough to hold
 392    the swapped relocs.  If REQUIRE_INTERNAL is TRUE, then the return
 393    value must be INTERNAL_RELOCS.  The function returns NULL on error.  */
 394
 395 struct internal_reloc *
 396 _bfd_coff_read_internal_relocs (bfd *abfd,
 397                                 asection *sec,
 398                                 bfd_boolean cache,
 399                                 bfd_byte *external_relocs,
 400                                 bfd_boolean require_internal,
 401                                 struct internal_reloc *internal_relocs)
 402 {
 403   bfd_size_type relsz;
 404   bfd_byte *free_external = NULL;
 405   struct internal_reloc *free_internal = NULL;
 406   bfd_byte *erel;
 407   bfd_byte *erel_end;
 408   struct internal_reloc *irel;
 409   bfd_size_type amt;
 410
 411   if (coff_section_data (abfd, sec) != NULL
 412       && coff_section_data (abfd, sec)->relocs != NULL)
 413     {
 414       if (! require_internal)
 415         return coff_section_data (abfd, sec)->relocs;
 416       memcpy (internal_relocs, coff_section_data (abfd, sec)->relocs,
 417               sec->reloc_count * sizeof (struct internal_reloc));
 418       return internal_relocs;
 419     }
 420
 421   relsz = bfd_coff_relsz (abfd);
 422
 423   amt = sec->reloc_count * relsz;
 424   if (external_relocs == NULL)
 425     {
 426       free_external = bfd_malloc (amt);
 427       if (free_external == NULL && sec->reloc_count > 0)
 428         goto error_return;
 429       external_relocs = free_external;
 430     }
 431
 432   if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET) != 0
 433       || bfd_bread (external_relocs, amt, abfd) != amt)
 434     goto error_return;
 435
 436   if (internal_relocs == NULL)
 437     {
 438       amt = sec->reloc_count;
 439       amt *= sizeof (struct internal_reloc);
 440       free_internal = bfd_malloc (amt);
 441       if (free_internal == NULL && sec->reloc_count > 0)
 442         goto error_return;
 443       internal_relocs = free_internal;
 444     }
 445
 446   /* Swap in the relocs.  */
 447   erel = external_relocs;
 448   erel_end = erel + relsz * sec->reloc_count;
 449   irel = internal_relocs;
 450   for (; erel < erel_end; erel += relsz, irel++)
 451     bfd_coff_swap_reloc_in (abfd, (void *) erel, (void *) irel);
 452
 453   if (free_external != NULL)
 454     {
 455       free (free_external);
 456       free_external = NULL;
 457     }
 458
 459   if (cache && free_internal != NULL)
 460     {
 461       if (coff_section_data (abfd, sec) == NULL)
 462         {
 463           amt = sizeof (struct coff_section_tdata);
 464           sec->used_by_bfd = bfd_zalloc (abfd, amt);
 465           if (sec->used_by_bfd == NULL)
 466             goto error_return;
 467           coff_section_data (abfd, sec)->contents = NULL;
 468         }
 469       coff_section_data (abfd, sec)->relocs = free_internal;
 470     }
 471
 472   return internal_relocs;
 473
 474  error_return:
 475   if (free_external != NULL)
 476     free (free_external);
 477   if (free_internal != NULL)
 478     free (free_internal);
 479   return NULL;
 480 }
 481
 482 /* Set lineno_count for the output sections of a COFF file.  */
 483
 484 int
 485 coff_count_linenumbers (bfd *abfd)
 486 {
 487   unsigned int limit = bfd_get_symcount (abfd);
 488   unsigned int i;
 489   int total = 0;
 490   asymbol **p;
 491   asection *s;
 492
 493   if (limit == 0)
 494     {
 495       /* This may be from the backend linker, in which case the
 496          lineno_count in the sections is correct.  */
 497       for (s = abfd->sections; s != NULL; s = s->next)
 498         total += s->lineno_count;
 499       return total;
 500     }
 501
 502   for (s = abfd->sections; s != NULL; s = s->next)
 503     BFD_ASSERT (s->lineno_count == 0);
 504
 505   for (p = abfd->outsymbols, i = 0; i < limit; i++, p++)
 506     {
 507       asymbol *q_maybe = *p;
 508
 509       if (bfd_family_coff (bfd_asymbol_bfd (q_maybe)))
 510         {
 511           coff_symbol_type *q = coffsymbol (q_maybe);
 512
 513           /* The AIX 4.1 compiler can sometimes generate line numbers
 514              attached to debugging symbols.  We try to simply ignore
 515              those here.  */
 516           if (q->lineno != NULL
 517               && q->symbol.section->owner != NULL)
 518             {
 519               /* This symbol has line numbers.  Increment the owning
 520                  section's linenumber count.  */
 521               alent *l = q->lineno;
 522
 523               do
 524                 {
 525                   asection * sec = q->symbol.section->output_section;
 526
 527                   /* Do not try to update fields in read-only sections.  */
 528                   if (! bfd_is_const_section (sec))
 529                     sec->lineno_count ++;
 530
 531                   ++total;
 532                   ++l;
 533                 }
 534               while (l->line_number != 0);
 535             }
 536         }
 537     }
 538
 539   return total;
 540 }
 541
 542 /* Takes a bfd and a symbol, returns a pointer to the coff specific
 543    area of the symbol if there is one.  */
 544
 545 coff_symbol_type *
 546 coff_symbol_from (bfd *ignore_abfd ATTRIBUTE_UNUSED,
 547                   asymbol *symbol)
 548 {
 549   if (!bfd_family_coff (bfd_asymbol_bfd (symbol)))
 550     return (coff_symbol_type *) NULL;
 551
 552   if (bfd_asymbol_bfd (symbol)->tdata.coff_obj_data == (coff_data_type *) NULL)
 553     return (coff_symbol_type *) NULL;
 554
 555   return (coff_symbol_type *) symbol;
 556 }
 557
 558 static void
 559 fixup_symbol_value (bfd *abfd,
 560                     coff_symbol_type *coff_symbol_ptr,
 561                     struct internal_syment *syment)
 562 {
 563   /* Normalize the symbol flags.  */
 564   if (bfd_is_com_section (coff_symbol_ptr->symbol.section))
 565     {
 566       /* A common symbol is undefined with a value.  */
 567       syment->n_scnum = N_UNDEF;
 568       syment->n_value = coff_symbol_ptr->symbol.value;
 569     }
 570   else if ((coff_symbol_ptr->symbol.flags & BSF_DEBUGGING) != 0
 571            && (coff_symbol_ptr->symbol.flags & BSF_DEBUGGING_RELOC) == 0)
 572     {
 573       syment->n_value = coff_symbol_ptr->symbol.value;
 574     }
 575   else if (bfd_is_und_section (coff_symbol_ptr->symbol.section))
 576     {
 577       syment->n_scnum = N_UNDEF;
 578       syment->n_value = 0;
 579     }
 580   /* FIXME: Do we need to handle the absolute section here?  */
 581   else
 582     {
 583       if (coff_symbol_ptr->symbol.section)
 584         {
 585           syment->n_scnum =
 586             coff_symbol_ptr->symbol.section->output_section->target_index;
 587
 588           syment->n_value = (coff_symbol_ptr->symbol.value
 589                              + coff_symbol_ptr->symbol.section->output_offset);
 590           if (! obj_pe (abfd))
 591             {
 592               syment->n_value += (syment->n_sclass == C_STATLAB)
 593                 ? coff_symbol_ptr->symbol.section->output_section->lma
 594                 : coff_symbol_ptr->symbol.section->output_section->vma;
 595             }
 596         }
 597       else
 598         {
 599           BFD_ASSERT (0);
 600           /* This can happen, but I don't know why yet (steve@cygnus.com) */
 601           syment->n_scnum = N_ABS;
 602           syment->n_value = coff_symbol_ptr->symbol.value;
 603         }
 604     }
 605 }
 606
 607 /* Run through all the symbols in the symbol table and work out what
 608    their indexes into the symbol table will be when output.
 609
 610    Coff requires that each C_FILE symbol points to the next one in the
 611    chain, and that the last one points to the first external symbol. We
 612    do that here too.  */
 613
 614 bfd_boolean
 615 coff_renumber_symbols (bfd *bfd_ptr, int *first_undef)
 616 {
 617   unsigned int symbol_count = bfd_get_symcount (bfd_ptr);
 618   asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols;
 619   unsigned int native_index = 0;
 620   struct internal_syment *last_file = NULL;
 621   unsigned int symbol_index;
 622
 623   /* COFF demands that undefined symbols come after all other symbols.
 624      Since we don't need to impose this extra knowledge on all our
 625      client programs, deal with that here.  Sort the symbol table;
 626      just move the undefined symbols to the end, leaving the rest
 627      alone.  The O'Reilly book says that defined global symbols come
 628      at the end before the undefined symbols, so we do that here as
 629      well.  */
 630   /* @@ Do we have some condition we could test for, so we don't always
 631      have to do this?  I don't think relocatability is quite right, but
 632      I'm not certain.  [raeburn:19920508.1711EST]  */
 633   {
 634     asymbol **newsyms;
 635     unsigned int i;
 636     bfd_size_type amt;
 637
 638     amt = sizeof (asymbol *) * ((bfd_size_type) symbol_count + 1);
 639     newsyms = bfd_alloc (bfd_ptr, amt);
 640     if (!newsyms)
 641       return FALSE;
 642     bfd_ptr->outsymbols = newsyms;
 643     for (i = 0; i < symbol_count; i++)
 644       if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END) != 0
 645           || (!bfd_is_und_section (symbol_ptr_ptr[i]->section)
 646               && !bfd_is_com_section (symbol_ptr_ptr[i]->section)
 647               && ((symbol_ptr_ptr[i]->flags & BSF_FUNCTION) != 0
 648                   || ((symbol_ptr_ptr[i]->flags & (BSF_GLOBAL | BSF_WEAK))
 649                       == 0))))
 650         *newsyms++ = symbol_ptr_ptr[i];
 651
 652     for (i = 0; i < symbol_count; i++)
 653       if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END) == 0
 654           && !bfd_is_und_section (symbol_ptr_ptr[i]->section)
 655           && (bfd_is_com_section (symbol_ptr_ptr[i]->section)
 656               || ((symbol_ptr_ptr[i]->flags & BSF_FUNCTION) == 0
 657                   && ((symbol_ptr_ptr[i]->flags & (BSF_GLOBAL | BSF_WEAK))
 658                       != 0))))
 659         *newsyms++ = symbol_ptr_ptr[i];
 660
 661     *first_undef = newsyms - bfd_ptr->outsymbols;
 662
 663     for (i = 0; i < symbol_count; i++)
 664       if ((symbol_ptr_ptr[i]->flags & BSF_NOT_AT_END) == 0
 665           && bfd_is_und_section (symbol_ptr_ptr[i]->section))
 666         *newsyms++ = symbol_ptr_ptr[i];
 667     *newsyms = (asymbol *) NULL;
 668     symbol_ptr_ptr = bfd_ptr->outsymbols;
 669   }
 670
 671   for (symbol_index = 0; symbol_index < symbol_count; symbol_index++)
 672     {
 673       coff_symbol_type *coff_symbol_ptr = coff_symbol_from (bfd_ptr, symbol_ptr_ptr[symbol_index]);
 674       symbol_ptr_ptr[symbol_index]->udata.i = symbol_index;
 675       if (coff_symbol_ptr && coff_symbol_ptr->native)
 676         {
 677           combined_entry_type *s = coff_symbol_ptr->native;
 678           int i;
 679
 680           if (s->u.syment.n_sclass == C_FILE)
 681             {
 682               if (last_file != NULL)
 683                 last_file->n_value = native_index;
 684               last_file = &(s->u.syment);
 685             }
 686           else
 687             /* Modify the symbol values according to their section and
 688                type.  */
 689             fixup_symbol_value (bfd_ptr, coff_symbol_ptr, &(s->u.syment));
 690
 691           for (i = 0; i < s->u.syment.n_numaux + 1; i++)
 692             s[i].offset = native_index++;
 693         }
 694       else
 695         native_index++;
 696     }
 697
 698   obj_conv_table_size (bfd_ptr) = native_index;
 699
 700   return TRUE;
 701 }
 702
 703 /* Run thorough the symbol table again, and fix it so that all
 704    pointers to entries are changed to the entries' index in the output
 705    symbol table.  */
 706
 707 void
 708 coff_mangle_symbols (bfd *bfd_ptr)
 709 {
 710   unsigned int symbol_count = bfd_get_symcount (bfd_ptr);
 711   asymbol **symbol_ptr_ptr = bfd_ptr->outsymbols;
 712   unsigned int symbol_index;
 713
 714   for (symbol_index = 0; symbol_index < symbol_count; symbol_index++)
 715     {
 716       coff_symbol_type *coff_symbol_ptr =
 717       coff_symbol_from (bfd_ptr, symbol_ptr_ptr[symbol_index]);
 718
 719       if (coff_symbol_ptr && coff_symbol_ptr->native)
 720         {
 721           int i;
 722           combined_entry_type *s = coff_symbol_ptr->native;
 723
 724           if (s->fix_value)
 725             {
 726               /* FIXME: We should use a union here.  */
 727               s->u.syment.n_value =
 728                 (bfd_vma)((combined_entry_type *)
 729                           ((unsigned long) s->u.syment.n_value))->offset;
 730               s->fix_value = 0;
 731             }
 732           if (s->fix_line)
 733             {
 734               /* The value is the offset into the line number entries
 735                  for the symbol's section.  On output, the symbol's
 736                  section should be N_DEBUG.  */
 737               s->u.syment.n_value =
 738                 (coff_symbol_ptr->symbol.section->output_section->line_filepos
 739                  + s->u.syment.n_value * bfd_coff_linesz (bfd_ptr));
 740               coff_symbol_ptr->symbol.section =
 741                 coff_section_from_bfd_index (bfd_ptr, N_DEBUG);
 742               BFD_ASSERT (coff_symbol_ptr->symbol.flags & BSF_DEBUGGING);
 743             }
 744           for (i = 0; i < s->u.syment.n_numaux; i++)
 745             {
 746               combined_entry_type *a = s + i + 1;
 747               if (a->fix_tag)
 748                 {
 749                   a->u.auxent.x_sym.x_tagndx.l =
 750                     a->u.auxent.x_sym.x_tagndx.p->offset;
 751                   a->fix_tag = 0;
 752                 }
 753               if (a->fix_end)
 754                 {
 755                   a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l =
 756                     a->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p->offset;
 757                   a->fix_end = 0;
 758                 }
 759               if (a->fix_scnlen)
 760                 {
 761                   a->u.auxent.x_csect.x_scnlen.l =
 762                     a->u.auxent.x_csect.x_scnlen.p->offset;
 763                   a->fix_scnlen = 0;
 764                 }
 765             }
 766         }
 767     }
 768 }
 769
 770 static void
 771 coff_fix_symbol_name (bfd *abfd,
 772                       asymbol *symbol,
 773                       combined_entry_type *native,
 774                       bfd_size_type *string_size_p,
 775                       asection **debug_string_section_p,
 776                       bfd_size_type *debug_string_size_p)
 777 {
 778   unsigned int name_length;
 779   union internal_auxent *auxent;
 780   char *name = (char *) (symbol->name);
 781
 782   if (name == NULL)
 783     {
 784       /* COFF symbols always have names, so we'll make one up.  */
 785       symbol->name = "strange";
 786       name = (char *) symbol->name;
 787     }
 788   name_length = strlen (name);
 789
 790   if (native->u.syment.n_sclass == C_FILE
 791       && native->u.syment.n_numaux > 0)
 792     {
 793       unsigned int filnmlen;
 794
 795       if (bfd_coff_force_symnames_in_strings (abfd))
 796         {
 797           native->u.syment._n._n_n._n_offset =
 798               (*string_size_p + STRING_SIZE_SIZE);
 799           native->u.syment._n._n_n._n_zeroes = 0;
 800           *string_size_p += 6;  /* strlen(".file") + 1 */
 801         }
 802       else
 803         strncpy (native->u.syment._n._n_name, ".file", SYMNMLEN);
 804
 805       auxent = &(native + 1)->u.auxent;
 806
 807       filnmlen = bfd_coff_filnmlen (abfd);
 808
 809       if (bfd_coff_long_filenames (abfd))
 810         {
 811           if (name_length <= filnmlen)
 812             strncpy (auxent->x_file.x_fname, name, filnmlen);
 813           else
 814             {
 815               auxent->x_file.x_n.x_offset = *string_size_p + STRING_SIZE_SIZE;
 816               auxent->x_file.x_n.x_zeroes = 0;
 817               *string_size_p += name_length + 1;
 818             }
 819         }
 820       else
 821         {
 822           strncpy (auxent->x_file.x_fname, name, filnmlen);
 823           if (name_length > filnmlen)
 824             name[filnmlen] = '\0';
 825         }
 826     }
 827   else
 828     {
 829       if (name_length <= SYMNMLEN && !bfd_coff_force_symnames_in_strings (abfd))
 830         /* This name will fit into the symbol neatly.  */
 831         strncpy (native->u.syment._n._n_name, symbol->name, SYMNMLEN);
 832
 833       else if (!bfd_coff_symname_in_debug (abfd, &native->u.syment))
 834         {
 835           native->u.syment._n._n_n._n_offset = (*string_size_p
 836                                                 + STRING_SIZE_SIZE);
 837           native->u.syment._n._n_n._n_zeroes = 0;
 838           *string_size_p += name_length + 1;
 839         }
 840       else
 841         {
 842           file_ptr filepos;
 843           bfd_byte buf[4];
 844           int prefix_len = bfd_coff_debug_string_prefix_length (abfd);
 845
 846           /* This name should be written into the .debug section.  For
 847              some reason each name is preceded by a two byte length
 848              and also followed by a null byte.  FIXME: We assume that
 849              the .debug section has already been created, and that it
 850              is large enough.  */
 851           if (*debug_string_section_p == (asection *) NULL)
 852             *debug_string_section_p = bfd_get_section_by_name (abfd, ".debug");
 853           filepos = bfd_tell (abfd);
 854           if (prefix_len == 4)
 855             bfd_put_32 (abfd, (bfd_vma) (name_length + 1), buf);
 856           else
 857             bfd_put_16 (abfd, (bfd_vma) (name_length + 1), buf);
 858
 859           if (!bfd_set_section_contents (abfd,
 860                                          *debug_string_section_p,
 861                                          (void *) buf,
 862                                          (file_ptr) *debug_string_size_p,
 863                                          (bfd_size_type) prefix_len)
 864               || !bfd_set_section_contents (abfd,
 865                                             *debug_string_section_p,
 866                                             (void *) symbol->name,
 867                                             (file_ptr) (*debug_string_size_p
 868                                                         + prefix_len),
 869                                             (bfd_size_type) name_length + 1))
 870             abort ();
 871           if (bfd_seek (abfd, filepos, SEEK_SET) != 0)
 872             abort ();
 873           native->u.syment._n._n_n._n_offset =
 874               *debug_string_size_p + prefix_len;
 875           native->u.syment._n._n_n._n_zeroes = 0;
 876           *debug_string_size_p += name_length + 1 + prefix_len;
 877         }
 878     }
 879 }
 880
 881 /* We need to keep track of the symbol index so that when we write out
 882    the relocs we can get the index for a symbol.  This method is a
 883    hack.  FIXME.  */
 884
 885 #define set_index(symbol, idx)  ((symbol)->udata.i = (idx))
 886
 887 /* Write a symbol out to a COFF file.  */
 888
 889 static bfd_boolean
 890 coff_write_symbol (bfd *abfd,
 891                    asymbol *symbol,
 892                    combined_entry_type *native,
 893                    bfd_vma *written,
 894                    bfd_size_type *string_size_p,
 895                    asection **debug_string_section_p,
 896                    bfd_size_type *debug_string_size_p)
 897 {
 898   unsigned int numaux = native->u.syment.n_numaux;
 899   int type = native->u.syment.n_type;
 900   int class = native->u.syment.n_sclass;
 901   void * buf;
 902   bfd_size_type symesz;
 903
 904   if (native->u.syment.n_sclass == C_FILE)
 905     symbol->flags |= BSF_DEBUGGING;
 906
 907   if (symbol->flags & BSF_DEBUGGING
 908       && bfd_is_abs_section (symbol->section))
 909     native->u.syment.n_scnum = N_DEBUG;
 910
 911   else if (bfd_is_abs_section (symbol->section))
 912     native->u.syment.n_scnum = N_ABS;
 913
 914   else if (bfd_is_und_section (symbol->section))
 915     native->u.syment.n_scnum = N_UNDEF;
 916
 917   else
 918     native->u.syment.n_scnum =
 919       symbol->section->output_section->target_index;
 920
 921   coff_fix_symbol_name (abfd, symbol, native, string_size_p,
 922                         debug_string_section_p, debug_string_size_p);
 923
 924   symesz = bfd_coff_symesz (abfd);
 925   buf = bfd_alloc (abfd, symesz);
 926   if (!buf)
 927     return FALSE;
 928   bfd_coff_swap_sym_out (abfd, &native->u.syment, buf);
 929   if (bfd_bwrite (buf, symesz, abfd) != symesz)
 930     return FALSE;
 931   bfd_release (abfd, buf);
 932
 933   if (native->u.syment.n_numaux > 0)
 934     {
 935       bfd_size_type auxesz;
 936       unsigned int j;
 937
 938       auxesz = bfd_coff_auxesz (abfd);
 939       buf = bfd_alloc (abfd, auxesz);
 940       if (!buf)
 941         return FALSE;
 942       for (j = 0; j < native->u.syment.n_numaux; j++)
 943         {
 944           bfd_coff_swap_aux_out (abfd,
 945                                  &((native + j + 1)->u.auxent),
 946                                  type, class, (int) j,
 947                                  native->u.syment.n_numaux,
 948                                  buf);
 949           if (bfd_bwrite (buf, auxesz, abfd) != auxesz)
 950             return FALSE;
 951         }
 952       bfd_release (abfd, buf);
 953     }
 954
 955   /* Store the index for use when we write out the relocs.  */
 956   set_index (symbol, *written);
 957
 958   *written += numaux + 1;
 959   return TRUE;
 960 }
 961
 962 /* Write out a symbol to a COFF file that does not come from a COFF
 963    file originally.  This symbol may have been created by the linker,
 964    or we may be linking a non COFF file to a COFF file.  */
 965
 966 static bfd_boolean
 967 coff_write_alien_symbol (bfd *abfd,
 968                          asymbol *symbol,
 969                          bfd_vma *written,
 970                          bfd_size_type *string_size_p,
 971                          asection **debug_string_section_p,
 972                          bfd_size_type *debug_string_size_p)
 973 {
 974   combined_entry_type *native;
 975   combined_entry_type dummy;
 976
 977   native = &dummy;
 978   native->u.syment.n_type = T_NULL;
 979   native->u.syment.n_flags = 0;
 980   if (bfd_is_und_section (symbol->section))
 981     {
 982       native->u.syment.n_scnum = N_UNDEF;
 983       native->u.syment.n_value = symbol->value;
 984     }
 985   else if (bfd_is_com_section (symbol->section))
 986     {
 987       native->u.syment.n_scnum = N_UNDEF;
 988       native->u.syment.n_value = symbol->value;
 989     }
 990   else if (symbol->flags & BSF_DEBUGGING)
 991     {
 992       /* There isn't much point to writing out a debugging symbol
 993          unless we are prepared to convert it into COFF debugging
 994          format.  So, we just ignore them.  We must clobber the symbol
 995          name to keep it from being put in the string table.  */
 996       symbol->name = "";
 997       return TRUE;
 998     }
 999   else
1000     {
1001       native->u.syment.n_scnum =
1002         symbol->section->output_section->target_index;
1003       native->u.syment.n_value = (symbol->value
1004                                   + symbol->section->output_offset);
1005       if (! obj_pe (abfd))
1006         native->u.syment.n_value += symbol->section->output_section->vma;
1007
1008       /* Copy the any flags from the file header into the symbol.
1009          FIXME: Why?  */
1010       {
1011         coff_symbol_type *c = coff_symbol_from (abfd, symbol);
1012         if (c != (coff_symbol_type *) NULL)
1013           native->u.syment.n_flags = bfd_asymbol_bfd (&c->symbol)->flags;
1014       }
1015     }
1016
1017   native->u.syment.n_type = 0;
1018   if (symbol->flags & BSF_LOCAL)
1019     native->u.syment.n_sclass = C_STAT;
1020   else if (symbol->flags & BSF_WEAK)
1021     native->u.syment.n_sclass = obj_pe (abfd) ? C_NT_WEAK : C_WEAKEXT;
1022   else
1023     native->u.syment.n_sclass = C_EXT;
1024   native->u.syment.n_numaux = 0;
1025
1026   return coff_write_symbol (abfd, symbol, native, written, string_size_p,
1027                             debug_string_section_p, debug_string_size_p);
1028 }
1029
1030 /* Write a native symbol to a COFF file.  */
1031
1032 static bfd_boolean
1033 coff_write_native_symbol (bfd *abfd,
1034                           coff_symbol_type *symbol,
1035                           bfd_vma *written,
1036                           bfd_size_type *string_size_p,
1037                           asection **debug_string_section_p,
1038                           bfd_size_type *debug_string_size_p)
1039 {
1040   combined_entry_type *native = symbol->native;
1041   alent *lineno = symbol->lineno;
1042
1043   /* If this symbol has an associated line number, we must store the
1044      symbol index in the line number field.  We also tag the auxent to
1045      point to the right place in the lineno table.  */
1046   if (lineno && !symbol->done_lineno && symbol->symbol.section->owner != NULL)
1047     {
1048       unsigned int count = 0;
1049
1050       lineno[count].u.offset = *written;
1051       if (native->u.syment.n_numaux)
1052         {
1053           union internal_auxent *a = &((native + 1)->u.auxent);
1054
1055           a->x_sym.x_fcnary.x_fcn.x_lnnoptr =
1056             symbol->symbol.section->output_section->moving_line_filepos;
1057         }
1058
1059       /* Count and relocate all other linenumbers.  */
1060       count++;
1061       while (lineno[count].line_number != 0)
1062         {
1063           lineno[count].u.offset +=
1064             (symbol->symbol.section->output_section->vma
1065              + symbol->symbol.section->output_offset);
1066           count++;
1067         }
1068       symbol->done_lineno = TRUE;
1069
1070       if (! bfd_is_const_section (symbol->symbol.section->output_section))
1071         symbol->symbol.section->output_section->moving_line_filepos +=
1072           count * bfd_coff_linesz (abfd);
1073     }
1074
1075   return coff_write_symbol (abfd, &(symbol->symbol), native, written,
1076                             string_size_p, debug_string_section_p,
1077                             debug_string_size_p);
1078 }
1079
1080 /* Write out the COFF symbols.  */
1081
1082 bfd_boolean
1083 coff_write_symbols (bfd *abfd)
1084 {
1085   bfd_size_type string_size;
1086   asection *debug_string_section;
1087   bfd_size_type debug_string_size;
1088   unsigned int i;
1089   unsigned int limit = bfd_get_symcount (abfd);
1090   bfd_vma written = 0;
1091   asymbol **p;
1092
1093   string_size = 0;
1094   debug_string_section = NULL;
1095   debug_string_size = 0;
1096
1097   /* If this target supports long section names, they must be put into
1098      the string table.  This is supported by PE.  This code must
1099      handle section names just as they are handled in
1100      coff_write_object_contents.  */
1101   if (bfd_coff_long_section_names (abfd))
1102     {
1103       asection *o;
1104
1105       for (o = abfd->sections; o != NULL; o = o->next)
1106         {
1107           size_t len;
1108
1109           len = strlen (o->name);
1110           if (len > SCNNMLEN)
1111             string_size += len + 1;
1112         }
1113     }
1114
1115   /* Seek to the right place.  */
1116   if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0)
1117     return FALSE;
1118
1119   /* Output all the symbols we have.  */
1120   written = 0;
1121   for (p = abfd->outsymbols, i = 0; i < limit; i++, p++)
1122     {
1123       asymbol *symbol = *p;
1124       coff_symbol_type *c_symbol = coff_symbol_from (abfd, symbol);
1125
1126       if (c_symbol == (coff_symbol_type *) NULL
1127           || c_symbol->native == (combined_entry_type *) NULL)
1128         {
1129           if (!coff_write_alien_symbol (abfd, symbol, &written, &string_size,
1130                                         &debug_string_section,
1131                                         &debug_string_size))
1132             return FALSE;
1133         }
1134       else
1135         {
1136           if (!coff_write_native_symbol (abfd, c_symbol, &written,
1137                                          &string_size, &debug_string_section,
1138                                          &debug_string_size))
1139             return FALSE;
1140         }
1141     }
1142
1143   obj_raw_syment_count (abfd) = written;
1144
1145   /* Now write out strings.  */
1146   if (string_size != 0)
1147     {
1148       unsigned int size = string_size + STRING_SIZE_SIZE;
1149       bfd_byte buffer[STRING_SIZE_SIZE];
1150
1151 #if STRING_SIZE_SIZE == 4
1152       H_PUT_32 (abfd, size, buffer);
1153 #else
1154  #error Change H_PUT_32
1155 #endif
1156       if (bfd_bwrite ((void *) buffer, (bfd_size_type) sizeof (buffer), abfd)
1157           != sizeof (buffer))
1158         return FALSE;
1159
1160       /* Handle long section names.  This code must handle section
1161          names just as they are handled in coff_write_object_contents.  */
1162       if (bfd_coff_long_section_names (abfd))
1163         {
1164           asection *o;
1165
1166           for (o = abfd->sections; o != NULL; o = o->next)
1167             {
1168               size_t len;
1169
1170               len = strlen (o->name);
1171               if (len > SCNNMLEN)
1172                 {
1173                   if (bfd_bwrite (o->name, (bfd_size_type) (len + 1), abfd)
1174                       != len + 1)
1175                     return FALSE;
1176                 }
1177             }
1178         }
1179
1180       for (p = abfd->outsymbols, i = 0;
1181            i < limit;
1182            i++, p++)
1183         {
1184           asymbol *q = *p;
1185           size_t name_length = strlen (q->name);
1186           coff_symbol_type *c_symbol = coff_symbol_from (abfd, q);
1187           size_t maxlen;
1188
1189           /* Figure out whether the symbol name should go in the string
1190              table.  Symbol names that are short enough are stored
1191              directly in the syment structure.  File names permit a
1192              different, longer, length in the syment structure.  On
1193              XCOFF, some symbol names are stored in the .debug section
1194              rather than in the string table.  */
1195
1196           if (c_symbol == NULL
1197               || c_symbol->native == NULL)
1198             /* This is not a COFF symbol, so it certainly is not a
1199                file name, nor does it go in the .debug section.  */
1200             maxlen = bfd_coff_force_symnames_in_strings (abfd) ? 0 : SYMNMLEN;
1201
1202           else if (bfd_coff_symname_in_debug (abfd,
1203                                               &c_symbol->native->u.syment))
1204             /* This symbol name is in the XCOFF .debug section.
1205                Don't write it into the string table.  */
1206             maxlen = name_length;
1207
1208           else if (c_symbol->native->u.syment.n_sclass == C_FILE
1209                    && c_symbol->native->u.syment.n_numaux > 0)
1210             {
1211               if (bfd_coff_force_symnames_in_strings (abfd))
1212                 {
1213                   if (bfd_bwrite (".file", (bfd_size_type) 6, abfd) != 6)
1214                     return FALSE;
1215                 }
1216               maxlen = bfd_coff_filnmlen (abfd);
1217             }
1218           else
1219             maxlen = bfd_coff_force_symnames_in_strings (abfd) ? 0 : SYMNMLEN;
1220
1221           if (name_length > maxlen)
1222             {
1223               if (bfd_bwrite ((void *) (q->name), (bfd_size_type) name_length + 1,
1224                              abfd) != name_length + 1)
1225                 return FALSE;
1226             }
1227         }
1228     }
1229   else
1230     {
1231       /* We would normally not write anything here, but we'll write
1232          out 4 so that any stupid coff reader which tries to read the
1233          string table even when there isn't one won't croak.  */
1234       unsigned int size = STRING_SIZE_SIZE;
1235       bfd_byte buffer[STRING_SIZE_SIZE];
1236
1237 #if STRING_SIZE_SIZE == 4
1238       H_PUT_32 (abfd, size, buffer);
1239 #else
1240  #error Change H_PUT_32
1241 #endif
1242       if (bfd_bwrite ((void *) buffer, (bfd_size_type) STRING_SIZE_SIZE, abfd)
1243           != STRING_SIZE_SIZE)
1244         return FALSE;
1245     }
1246
1247   /* Make sure the .debug section was created to be the correct size.
1248      We should create it ourselves on the fly, but we don't because
1249      BFD won't let us write to any section until we know how large all
1250      the sections are.  We could still do it by making another pass
1251      over the symbols.  FIXME.  */
1252   BFD_ASSERT (debug_string_size == 0
1253               || (debug_string_section != (asection *) NULL
1254                   && (BFD_ALIGN (debug_string_size,
1255                                  1 << debug_string_section->alignment_power)
1256                       == debug_string_section->size)));
1257
1258   return TRUE;
1259 }
1260
1261 bfd_boolean
1262 coff_write_linenumbers (bfd *abfd)
1263 {
1264   asection *s;
1265   bfd_size_type linesz;
1266   void * buff;
1267
1268   linesz = bfd_coff_linesz (abfd);
1269   buff = bfd_alloc (abfd, linesz);
1270   if (!buff)
1271     return FALSE;
1272   for (s = abfd->sections; s != (asection *) NULL; s = s->next)
1273     {
1274       if (s->lineno_count)
1275         {
1276           asymbol **q = abfd->outsymbols;
1277           if (bfd_seek (abfd, s->line_filepos, SEEK_SET) != 0)
1278             return FALSE;
1279           /* Find all the linenumbers in this section.  */
1280           while (*q)
1281             {
1282               asymbol *p = *q;
1283               if (p->section->output_section == s)
1284                 {
1285                   alent *l =
1286                   BFD_SEND (bfd_asymbol_bfd (p), _get_lineno,
1287                             (bfd_asymbol_bfd (p), p));
1288                   if (l)
1289                     {
1290                       /* Found a linenumber entry, output.  */
1291                       struct internal_lineno out;
1292                       memset ((void *) & out, 0, sizeof (out));
1293                       out.l_lnno = 0;
1294                       out.l_addr.l_symndx = l->u.offset;
1295                       bfd_coff_swap_lineno_out (abfd, &out, buff);
1296                       if (bfd_bwrite (buff, (bfd_size_type) linesz, abfd)
1297                           != linesz)
1298                         return FALSE;
1299                       l++;
1300                       while (l->line_number)
1301                         {
1302                           out.l_lnno = l->line_number;
1303                           out.l_addr.l_symndx = l->u.offset;
1304                           bfd_coff_swap_lineno_out (abfd, &out, buff);
1305                           if (bfd_bwrite (buff, (bfd_size_type) linesz, abfd)
1306                               != linesz)
1307                             return FALSE;
1308                           l++;
1309                         }
1310                     }
1311                 }
1312               q++;
1313             }
1314         }
1315     }
1316   bfd_release (abfd, buff);
1317   return TRUE;
1318 }
1319
1320 alent *
1321 coff_get_lineno (bfd *ignore_abfd ATTRIBUTE_UNUSED, asymbol *symbol)
1322 {
1323   return coffsymbol (symbol)->lineno;
1324 }
1325
1326 /* This function transforms the offsets into the symbol table into
1327    pointers to syments.  */
1328
1329 static void
1330 coff_pointerize_aux (bfd *abfd,
1331                      combined_entry_type *table_base,
1332                      combined_entry_type *symbol,
1333                      unsigned int indaux,
1334                      combined_entry_type *auxent)
1335 {
1336   unsigned int type = symbol->u.syment.n_type;
1337   unsigned int class = symbol->u.syment.n_sclass;
1338
1339   if (coff_backend_info (abfd)->_bfd_coff_pointerize_aux_hook)
1340     {
1341       if ((*coff_backend_info (abfd)->_bfd_coff_pointerize_aux_hook)
1342           (abfd, table_base, symbol, indaux, auxent))
1343         return;
1344     }
1345
1346   /* Don't bother if this is a file or a section.  */
1347   if (class == C_STAT && type == T_NULL)
1348     return;
1349   if (class == C_FILE)
1350     return;
1351
1352   /* Otherwise patch up.  */
1353 #define N_TMASK coff_data  (abfd)->local_n_tmask
1354 #define N_BTSHFT coff_data (abfd)->local_n_btshft
1355
1356   if ((ISFCN (type) || ISTAG (class) || class == C_BLOCK || class == C_FCN)
1357       && auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l > 0)
1358     {
1359       auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p =
1360         table_base + auxent->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l;
1361       auxent->fix_end = 1;
1362     }
1363   /* A negative tagndx is meaningless, but the SCO 3.2v4 cc can
1364      generate one, so we must be careful to ignore it.  */
1365   if (auxent->u.auxent.x_sym.x_tagndx.l > 0)
1366     {
1367       auxent->u.auxent.x_sym.x_tagndx.p =
1368         table_base + auxent->u.auxent.x_sym.x_tagndx.l;
1369       auxent->fix_tag = 1;
1370     }
1371 }
1372
1373 /* Allocate space for the ".debug" section, and read it.
1374    We did not read the debug section until now, because
1375    we didn't want to go to the trouble until someone needed it.  */
1376
1377 static char *
1378 build_debug_section (bfd *abfd)
1379 {
1380   char *debug_section;
1381   file_ptr position;
1382   bfd_size_type sec_size;
1383
1384   asection *sect = bfd_get_section_by_name (abfd, ".debug");
1385
1386   if (!sect)
1387     {
1388       bfd_set_error (bfd_error_no_debug_section);
1389       return NULL;
1390     }
1391
1392   sec_size = sect->size;
1393   debug_section = bfd_alloc (abfd, sec_size);
1394   if (debug_section == NULL)
1395     return NULL;
1396
1397   /* Seek to the beginning of the `.debug' section and read it.
1398      Save the current position first; it is needed by our caller.
1399      Then read debug section and reset the file pointer.  */
1400
1401   position = bfd_tell (abfd);
1402   if (bfd_seek (abfd, sect->filepos, SEEK_SET) != 0
1403       || bfd_bread (debug_section, sec_size, abfd) != sec_size
1404       || bfd_seek (abfd, position, SEEK_SET) != 0)
1405     return NULL;
1406   return debug_section;
1407 }
1408
1409 /* Return a pointer to a malloc'd copy of 'name'.  'name' may not be
1410    \0-terminated, but will not exceed 'maxlen' characters.  The copy *will*
1411    be \0-terminated.  */
1412
1413 static char *
1414 copy_name (bfd *abfd, char *name, size_t maxlen)
1415 {
1416   size_t len;
1417   char *newname;
1418
1419   for (len = 0; len < maxlen; ++len)
1420     if (name[len] == '\0')
1421       break;
1422
1423   if ((newname = bfd_alloc (abfd, (bfd_size_type) len + 1)) == NULL)
1424     return NULL;
1425
1426   strncpy (newname, name, len);
1427   newname[len] = '\0';
1428   return newname;
1429 }
1430
1431 /* Read in the external symbols.  */
1432
1433 bfd_boolean
1434 _bfd_coff_get_external_symbols (bfd *abfd)
1435 {
1436   bfd_size_type symesz;
1437   bfd_size_type size;
1438   void * syms;
1439
1440   if (obj_coff_external_syms (abfd) != NULL)
1441     return TRUE;
1442
1443   symesz = bfd_coff_symesz (abfd);
1444
1445   size = obj_raw_syment_count (abfd) * symesz;
1446
1447   syms = bfd_malloc (size);
1448   if (syms == NULL && size != 0)
1449     return FALSE;
1450
1451   if (bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET) != 0
1452       || bfd_bread (syms, size, abfd) != size)
1453     {
1454       if (syms != NULL)
1455         free (syms);
1456       return FALSE;
1457     }
1458
1459   obj_coff_external_syms (abfd) = syms;
1460
1461   return TRUE;
1462 }
1463
1464 /* Read in the external strings.  The strings are not loaded until
1465    they are needed.  This is because we have no simple way of
1466    detecting a missing string table in an archive.  */
1467
1468 const char *
1469 _bfd_coff_read_string_table (bfd *abfd)
1470 {
1471   char extstrsize[STRING_SIZE_SIZE];
1472   bfd_size_type strsize;
1473   char *strings;
1474   file_ptr pos;
1475
1476   if (obj_coff_strings (abfd) != NULL)
1477     return obj_coff_strings (abfd);
1478
1479   if (obj_sym_filepos (abfd) == 0)
1480     {
1481       bfd_set_error (bfd_error_no_symbols);
1482       return NULL;
1483     }
1484
1485   pos = obj_sym_filepos (abfd);
1486   pos += obj_raw_syment_count (abfd) * bfd_coff_symesz (abfd);
1487   if (bfd_seek (abfd, pos, SEEK_SET) != 0)
1488     return NULL;
1489
1490   if (bfd_bread (extstrsize, (bfd_size_type) sizeof extstrsize, abfd)
1491       != sizeof extstrsize)
1492     {
1493       if (bfd_get_error () != bfd_error_file_truncated)
1494         return NULL;
1495
1496       /* There is no string table.  */
1497       strsize = STRING_SIZE_SIZE;
1498     }
1499   else
1500     {
1501 #if STRING_SIZE_SIZE == 4
1502       strsize = H_GET_32 (abfd, extstrsize);
1503 #else
1504  #error Change H_GET_32
1505 #endif
1506     }
1507
1508   if (strsize < STRING_SIZE_SIZE)
1509     {
1510       (*_bfd_error_handler)
1511         (_("%B: bad string table size %lu"), abfd, (unsigned long) strsize);
1512       bfd_set_error (bfd_error_bad_value);
1513       return NULL;
1514     }
1515
1516   strings = bfd_malloc (strsize);
1517   if (strings == NULL)
1518     return NULL;
1519
1520   if (bfd_bread (strings + STRING_SIZE_SIZE, strsize - STRING_SIZE_SIZE, abfd)
1521       != strsize - STRING_SIZE_SIZE)
1522     {
1523       free (strings);
1524       return NULL;
1525     }
1526
1527   obj_coff_strings (abfd) = strings;
1528
1529   return strings;
1530 }
1531
1532 /* Free up the external symbols and strings read from a COFF file.  */
1533
1534 bfd_boolean
1535 _bfd_coff_free_symbols (bfd *abfd)
1536 {
1537   if (obj_coff_external_syms (abfd) != NULL
1538       && ! obj_coff_keep_syms (abfd))
1539     {
1540       free (obj_coff_external_syms (abfd));
1541       obj_coff_external_syms (abfd) = NULL;
1542     }
1543   if (obj_coff_strings (abfd) != NULL
1544       && ! obj_coff_keep_strings (abfd))
1545     {
1546       free (obj_coff_strings (abfd));
1547       obj_coff_strings (abfd) = NULL;
1548     }
1549   return TRUE;
1550 }
1551
1552 /* Read a symbol table into freshly bfd_allocated memory, swap it, and
1553    knit the symbol names into a normalized form.  By normalized here I
1554    mean that all symbols have an n_offset pointer that points to a null-
1555    terminated string.  */
1556
1557 combined_entry_type *
1558 coff_get_normalized_symtab (bfd *abfd)
1559 {
1560   combined_entry_type *internal;
1561   combined_entry_type *internal_ptr;
1562   combined_entry_type *symbol_ptr;
1563   combined_entry_type *internal_end;
1564   size_t symesz;
1565   char *raw_src;
1566   char *raw_end;
1567   const char *string_table = NULL;
1568   char *debug_section = NULL;
1569   bfd_size_type size;
1570
1571   if (obj_raw_syments (abfd) != NULL)
1572     return obj_raw_syments (abfd);
1573
1574   size = obj_raw_syment_count (abfd) * sizeof (combined_entry_type);
1575   internal = bfd_zalloc (abfd, size);
1576   if (internal == NULL && size != 0)
1577     return NULL;
1578   internal_end = internal + obj_raw_syment_count (abfd);
1579
1580   if (! _bfd_coff_get_external_symbols (abfd))
1581     return NULL;
1582
1583   raw_src = (char *) obj_coff_external_syms (abfd);
1584
1585   /* Mark the end of the symbols.  */
1586   symesz = bfd_coff_symesz (abfd);
1587   raw_end = (char *) raw_src + obj_raw_syment_count (abfd) * symesz;
1588
1589   /* FIXME SOMEDAY.  A string table size of zero is very weird, but
1590      probably possible.  If one shows up, it will probably kill us.  */
1591
1592   /* Swap all the raw entries.  */
1593   for (internal_ptr = internal;
1594        raw_src < raw_end;
1595        raw_src += symesz, internal_ptr++)
1596     {
1597
1598       unsigned int i;
1599       bfd_coff_swap_sym_in (abfd, (void *) raw_src,
1600                             (void *) & internal_ptr->u.syment);
1601       symbol_ptr = internal_ptr;
1602
1603       for (i = 0;
1604            i < symbol_ptr->u.syment.n_numaux;
1605            i++)
1606         {
1607           internal_ptr++;
1608           raw_src += symesz;
1609           bfd_coff_swap_aux_in (abfd, (void *) raw_src,
1610                                 symbol_ptr->u.syment.n_type,
1611                                 symbol_ptr->u.syment.n_sclass,
1612                                 (int) i, symbol_ptr->u.syment.n_numaux,
1613                                 &(internal_ptr->u.auxent));
1614           coff_pointerize_aux (abfd, internal, symbol_ptr, i,
1615                                internal_ptr);
1616         }
1617     }
1618
1619   /* Free the raw symbols, but not the strings (if we have them).  */
1620   obj_coff_keep_strings (abfd) = TRUE;
1621   if (! _bfd_coff_free_symbols (abfd))
1622     return NULL;
1623
1624   for (internal_ptr = internal; internal_ptr < internal_end;
1625        internal_ptr++)
1626     {
1627       if (internal_ptr->u.syment.n_sclass == C_FILE
1628           && internal_ptr->u.syment.n_numaux > 0)
1629         {
1630           /* Make a file symbol point to the name in the auxent, since
1631              the text ".file" is redundant.  */
1632           if ((internal_ptr + 1)->u.auxent.x_file.x_n.x_zeroes == 0)
1633             {
1634               /* The filename is a long one, point into the string table.  */
1635               if (string_table == NULL)
1636                 {
1637                   string_table = _bfd_coff_read_string_table (abfd);
1638                   if (string_table == NULL)
1639                     return NULL;
1640                 }
1641
1642               internal_ptr->u.syment._n._n_n._n_offset =
1643                 ((long)
1644                  (string_table
1645                   + (internal_ptr + 1)->u.auxent.x_file.x_n.x_offset));
1646             }
1647           else
1648             {
1649               /* Ordinary short filename, put into memory anyway.  The
1650                  Microsoft PE tools sometimes store a filename in
1651                  multiple AUX entries.  */
1652               if (internal_ptr->u.syment.n_numaux > 1
1653                   && coff_data (abfd)->pe)
1654                 internal_ptr->u.syment._n._n_n._n_offset =
1655                   ((long)
1656                    copy_name (abfd,
1657                               (internal_ptr + 1)->u.auxent.x_file.x_fname,
1658                               internal_ptr->u.syment.n_numaux * symesz));
1659               else
1660                 internal_ptr->u.syment._n._n_n._n_offset =
1661                   ((long)
1662                    copy_name (abfd,
1663                               (internal_ptr + 1)->u.auxent.x_file.x_fname,
1664                               (size_t) bfd_coff_filnmlen (abfd)));
1665             }
1666         }
1667       else
1668         {
1669           if (internal_ptr->u.syment._n._n_n._n_zeroes != 0)
1670             {
1671               /* This is a "short" name.  Make it long.  */
1672               size_t i;
1673               char *newstring;
1674
1675               /* Find the length of this string without walking into memory
1676                  that isn't ours.  */
1677               for (i = 0; i < 8; ++i)
1678                 if (internal_ptr->u.syment._n._n_name[i] == '\0')
1679                   break;
1680
1681               newstring = bfd_zalloc (abfd, (bfd_size_type) (i + 1));
1682               if (newstring == NULL)
1683                 return NULL;
1684               strncpy (newstring, internal_ptr->u.syment._n._n_name, i);
1685               internal_ptr->u.syment._n._n_n._n_offset = (long int) newstring;
1686               internal_ptr->u.syment._n._n_n._n_zeroes = 0;
1687             }
1688           else if (internal_ptr->u.syment._n._n_n._n_offset == 0)
1689             internal_ptr->u.syment._n._n_n._n_offset = (long int) "";
1690           else if (!bfd_coff_symname_in_debug (abfd, &internal_ptr->u.syment))
1691             {
1692               /* Long name already.  Point symbol at the string in the
1693                  table.  */
1694               if (string_table == NULL)
1695                 {
1696                   string_table = _bfd_coff_read_string_table (abfd);
1697                   if (string_table == NULL)
1698                     return NULL;
1699                 }
1700               internal_ptr->u.syment._n._n_n._n_offset =
1701                 ((long int)
1702                  (string_table
1703                   + internal_ptr->u.syment._n._n_n._n_offset));
1704             }
1705           else
1706             {
1707               /* Long name in debug section.  Very similar.  */
1708               if (debug_section == NULL)
1709                 debug_section = build_debug_section (abfd);
1710               internal_ptr->u.syment._n._n_n._n_offset = (long int)
1711                 (debug_section + internal_ptr->u.syment._n._n_n._n_offset);
1712             }
1713         }
1714       internal_ptr += internal_ptr->u.syment.n_numaux;
1715     }
1716
1717   obj_raw_syments (abfd) = internal;
1718   BFD_ASSERT (obj_raw_syment_count (abfd)
1719               == (unsigned int) (internal_ptr - internal));
1720
1721   return internal;
1722 }
1723
1724 long
1725 coff_get_reloc_upper_bound (bfd *abfd, sec_ptr asect)
1726 {
1727   if (bfd_get_format (abfd) != bfd_object)
1728     {
1729       bfd_set_error (bfd_error_invalid_operation);
1730       return -1;
1731     }
1732   return (asect->reloc_count + 1) * sizeof (arelent *);
1733 }
1734
1735 asymbol *
1736 coff_make_empty_symbol (bfd *abfd)
1737 {
1738   bfd_size_type amt = sizeof (coff_symbol_type);
1739   coff_symbol_type *new = bfd_zalloc (abfd, amt);
1740
1741   if (new == NULL)
1742     return NULL;
1743   new->symbol.section = 0;
1744   new->native = 0;
1745   new->lineno = NULL;
1746   new->done_lineno = FALSE;
1747   new->symbol.the_bfd = abfd;
1748
1749   return & new->symbol;
1750 }
1751
1752 /* Make a debugging symbol.  */
1753
1754 asymbol *
1755 coff_bfd_make_debug_symbol (bfd *abfd,
1756                             void * ptr ATTRIBUTE_UNUSED,
1757                             unsigned long sz ATTRIBUTE_UNUSED)
1758 {
1759   bfd_size_type amt = sizeof (coff_symbol_type);
1760   coff_symbol_type *new = bfd_alloc (abfd, amt);
1761
1762   if (new == NULL)
1763     return NULL;
1764   /* @@ The 10 is a guess at a plausible maximum number of aux entries
1765      (but shouldn't be a constant).  */
1766   amt = sizeof (combined_entry_type) * 10;
1767   new->native = bfd_zalloc (abfd, amt);
1768   if (!new->native)
1769     return NULL;
1770   new->symbol.section = bfd_abs_section_ptr;
1771   new->symbol.flags = BSF_DEBUGGING;
1772   new->lineno = NULL;
1773   new->done_lineno = FALSE;
1774   new->symbol.the_bfd = abfd;
1775
1776   return & new->symbol;
1777 }
1778
1779 void
1780 coff_get_symbol_info (bfd *abfd, asymbol *symbol, symbol_info *ret)
1781 {
1782   bfd_symbol_info (symbol, ret);
1783
1784   if (coffsymbol (symbol)->native != NULL
1785       && coffsymbol (symbol)->native->fix_value)
1786     ret->value = coffsymbol (symbol)->native->u.syment.n_value -
1787       (unsigned long) obj_raw_syments (abfd);
1788 }
1789
1790 /* Return the COFF syment for a symbol.  */
1791
1792 bfd_boolean
1793 bfd_coff_get_syment (bfd *abfd,
1794                      asymbol *symbol,
1795                      struct internal_syment *psyment)
1796 {
1797   coff_symbol_type *csym;
1798
1799   csym = coff_symbol_from (abfd, symbol);
1800   if (csym == NULL || csym->native == NULL)
1801     {
1802       bfd_set_error (bfd_error_invalid_operation);
1803       return FALSE;
1804     }
1805
1806   *psyment = csym->native->u.syment;
1807
1808   if (csym->native->fix_value)
1809     psyment->n_value = psyment->n_value -
1810       (unsigned long) obj_raw_syments (abfd);
1811
1812   /* FIXME: We should handle fix_line here.  */
1813
1814   return TRUE;
1815 }
1816
1817 /* Return the COFF auxent for a symbol.  */
1818
1819 bfd_boolean
1820 bfd_coff_get_auxent (bfd *abfd,
1821                      asymbol *symbol,
1822                      int indx,
1823                      union internal_auxent *pauxent)
1824 {
1825   coff_symbol_type *csym;
1826   combined_entry_type *ent;
1827
1828   csym = coff_symbol_from (abfd, symbol);
1829
1830   if (csym == NULL
1831       || csym->native == NULL
1832       || indx >= csym->native->u.syment.n_numaux)
1833     {
1834       bfd_set_error (bfd_error_invalid_operation);
1835       return FALSE;
1836     }
1837
1838   ent = csym->native + indx + 1;
1839
1840   *pauxent = ent->u.auxent;
1841
1842   if (ent->fix_tag)
1843     pauxent->x_sym.x_tagndx.l =
1844       ((combined_entry_type *) pauxent->x_sym.x_tagndx.p
1845        - obj_raw_syments (abfd));
1846
1847   if (ent->fix_end)
1848     pauxent->x_sym.x_fcnary.x_fcn.x_endndx.l =
1849       ((combined_entry_type *) pauxent->x_sym.x_fcnary.x_fcn.x_endndx.p
1850        - obj_raw_syments (abfd));
1851
1852   if (ent->fix_scnlen)
1853     pauxent->x_csect.x_scnlen.l =
1854       ((combined_entry_type *) pauxent->x_csect.x_scnlen.p
1855        - obj_raw_syments (abfd));
1856
1857   return TRUE;
1858 }
1859
1860 /* Print out information about COFF symbol.  */
1861
1862 void
1863 coff_print_symbol (bfd *abfd,
1864                    void * filep,
1865                    asymbol *symbol,
1866                    bfd_print_symbol_type how)
1867 {
1868   FILE * file = (FILE *) filep;
1869
1870   switch (how)
1871     {
1872     case bfd_print_symbol_name:
1873       fprintf (file, "%s", symbol->name);
1874       break;
1875
1876     case bfd_print_symbol_more:
1877       fprintf (file, "coff %s %s",
1878                coffsymbol (symbol)->native ? "n" : "g",
1879                coffsymbol (symbol)->lineno ? "l" : " ");
1880       break;
1881
1882     case bfd_print_symbol_all:
1883       if (coffsymbol (symbol)->native)
1884         {
1885           bfd_vma val;
1886           unsigned int aux;
1887           combined_entry_type *combined = coffsymbol (symbol)->native;
1888           combined_entry_type *root = obj_raw_syments (abfd);
1889           struct lineno_cache_entry *l = coffsymbol (symbol)->lineno;
1890
1891           fprintf (file, "[%3ld]", (long) (combined - root));
1892
1893           if (! combined->fix_value)
1894             val = (bfd_vma) combined->u.syment.n_value;
1895           else
1896             val = combined->u.syment.n_value - (unsigned long) root;
1897
1898           fprintf (file, "(sec %2d)(fl 0x%02x)(ty %3x)(scl %3d) (nx %d) 0x",
1899                    combined->u.syment.n_scnum,
1900                    combined->u.syment.n_flags,
1901                    combined->u.syment.n_type,
1902                    combined->u.syment.n_sclass,
1903                    combined->u.syment.n_numaux);
1904 #ifdef BFD64
1905           /* fprintf_vma() on a 64-bit enabled host will always print a 64-bit
1906              value, but really we want to display the address in the target's
1907              address size.  Since we do not have a field in the bfd structure
1908              to tell us this, we take a guess, based on the target's name.  */
1909           if (strstr (bfd_get_target (abfd), "64") == NULL)
1910             fprintf (file, "%08lx", (unsigned long) (val & 0xffffffff));
1911           else
1912 #endif
1913             fprintf_vma (file, val);
1914           fprintf (file, " %s", symbol->name);
1915
1916           for (aux = 0; aux < combined->u.syment.n_numaux; aux++)
1917             {
1918               combined_entry_type *auxp = combined + aux + 1;
1919               long tagndx;
1920
1921               if (auxp->fix_tag)
1922                 tagndx = auxp->u.auxent.x_sym.x_tagndx.p - root;
1923               else
1924                 tagndx = auxp->u.auxent.x_sym.x_tagndx.l;
1925
1926               fprintf (file, "\n");
1927
1928               if (bfd_coff_print_aux (abfd, file, root, combined, auxp, aux))
1929                 continue;
1930
1931               switch (combined->u.syment.n_sclass)
1932                 {
1933                 case C_FILE:
1934                   fprintf (file, "File ");
1935                   break;
1936
1937                 case C_STAT:
1938                   if (combined->u.syment.n_type == T_NULL)
1939                     /* Probably a section symbol ?  */
1940                     {
1941                       fprintf (file, "AUX scnlen 0x%lx nreloc %d nlnno %d",
1942                                (long) auxp->u.auxent.x_scn.x_scnlen,
1943                                auxp->u.auxent.x_scn.x_nreloc,
1944                                auxp->u.auxent.x_scn.x_nlinno);
1945                       if (auxp->u.auxent.x_scn.x_checksum != 0
1946                           || auxp->u.auxent.x_scn.x_associated != 0
1947                           || auxp->u.auxent.x_scn.x_comdat != 0)
1948                         fprintf (file, " checksum 0x%lx assoc %d comdat %d",
1949                                  auxp->u.auxent.x_scn.x_checksum,
1950                                  auxp->u.auxent.x_scn.x_associated,
1951                                  auxp->u.auxent.x_scn.x_comdat);
1952                       break;
1953                     }
1954                     /* Otherwise fall through.  */
1955                 case C_EXT:
1956                   if (ISFCN (combined->u.syment.n_type))
1957                     {
1958                       long next, llnos;
1959
1960                       if (auxp->fix_end)
1961                         next = (auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p
1962                                - root);
1963                       else
1964                         next = auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.l;
1965                       llnos = auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_lnnoptr;
1966                       fprintf (file,
1967                                "AUX tagndx %ld ttlsiz 0x%lx lnnos %ld next %ld",
1968                                tagndx, auxp->u.auxent.x_sym.x_misc.x_fsize,
1969                                llnos, next);
1970                       break;
1971                     }
1972                   /* Otherwise fall through.  */
1973                 default:
1974                   fprintf (file, "AUX lnno %d size 0x%x tagndx %ld",
1975                            auxp->u.auxent.x_sym.x_misc.x_lnsz.x_lnno,
1976                            auxp->u.auxent.x_sym.x_misc.x_lnsz.x_size,
1977                            tagndx);
1978                   if (auxp->fix_end)
1979                     fprintf (file, " endndx %ld",
1980                              ((long)
1981                               (auxp->u.auxent.x_sym.x_fcnary.x_fcn.x_endndx.p
1982                                - root)));
1983                   break;
1984                 }
1985             }
1986
1987           if (l)
1988             {
1989               fprintf (file, "\n%s :", l->u.sym->name);
1990               l++;
1991               while (l->line_number)
1992                 {
1993                   fprintf (file, "\n%4d : ", l->line_number);
1994                   fprintf_vma (file, l->u.offset + symbol->section->vma);
1995                   l++;
1996                 }
1997             }
1998         }
1999       else
2000         {
2001           bfd_print_symbol_vandf (abfd, (void *) file, symbol);
2002           fprintf (file, " %-5s %s %s %s",
2003                    symbol->section->name,
2004                    coffsymbol (symbol)->native ? "n" : "g",
2005                    coffsymbol (symbol)->lineno ? "l" : " ",
2006                    symbol->name);
2007         }
2008     }
2009 }
2010
2011 /* Return whether a symbol name implies a local symbol.  In COFF,
2012    local symbols generally start with ``.L''.  Most targets use this
2013    function for the is_local_label_name entry point, but some may
2014    override it.  */
2015
2016 bfd_boolean
2017 _bfd_coff_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
2018                                const char *name)
2019 {
2020   return name[0] == '.' && name[1] == 'L';
2021 }
2022
2023 /* Provided a BFD, a section and an offset (in bytes, not octets) into the
2024    section, calculate and return the name of the source file and the line
2025    nearest to the wanted location.  */
2026
2027 bfd_boolean
2028 coff_find_nearest_line (bfd *abfd,
2029                         asection *section,
2030                         asymbol **symbols,
2031                         bfd_vma offset,
2032                         const char **filename_ptr,
2033                         const char **functionname_ptr,
2034                         unsigned int *line_ptr)
2035 {
2036   bfd_boolean found;
2037   unsigned int i;
2038   unsigned int line_base;
2039   coff_data_type *cof = coff_data (abfd);
2040   /* Run through the raw syments if available.  */
2041   combined_entry_type *p;
2042   combined_entry_type *pend;
2043   alent *l;
2044   struct coff_section_tdata *sec_data;
2045   bfd_size_type amt;
2046
2047   /* Before looking through the symbol table, try to use a .stab
2048      section to find the information.  */
2049   if (! _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset,
2050                                              &found, filename_ptr,
2051                                              functionname_ptr, line_ptr,
2052                                              &coff_data(abfd)->line_info))
2053     return FALSE;
2054
2055   if (found)
2056     return TRUE;
2057
2058   /* Also try examining DWARF2 debugging information.  */
2059   if (_bfd_dwarf2_find_nearest_line (abfd, section, symbols, offset,
2060                                      filename_ptr, functionname_ptr,
2061                                      line_ptr, 0,
2062                                      &coff_data(abfd)->dwarf2_find_line_info))
2063     return TRUE;
2064
2065   *filename_ptr = 0;
2066   *functionname_ptr = 0;
2067   *line_ptr = 0;
2068
2069   /* Don't try and find line numbers in a non coff file.  */
2070   if (!bfd_family_coff (abfd))
2071     return FALSE;
2072
2073   if (cof == NULL)
2074     return FALSE;
2075
2076   /* Find the first C_FILE symbol.  */
2077   p = cof->raw_syments;
2078   if (!p)
2079     return FALSE;
2080
2081   pend = p + cof->raw_syment_count;
2082   while (p < pend)
2083     {
2084       if (p->u.syment.n_sclass == C_FILE)
2085         break;
2086       p += 1 + p->u.syment.n_numaux;
2087     }
2088
2089   if (p < pend)
2090     {
2091       bfd_vma sec_vma;
2092       bfd_vma maxdiff;
2093
2094       /* Look through the C_FILE symbols to find the best one.  */
2095       sec_vma = bfd_get_section_vma (abfd, section);
2096       *filename_ptr = (char *) p->u.syment._n._n_n._n_offset;
2097       maxdiff = (bfd_vma) 0 - (bfd_vma) 1;
2098       while (1)
2099         {
2100           combined_entry_type *p2;
2101
2102           for (p2 = p + 1 + p->u.syment.n_numaux;
2103                p2 < pend;
2104                p2 += 1 + p2->u.syment.n_numaux)
2105             {
2106               if (p2->u.syment.n_scnum > 0
2107                   && (section
2108                       == coff_section_from_bfd_index (abfd,
2109                                                       p2->u.syment.n_scnum)))
2110                 break;
2111               if (p2->u.syment.n_sclass == C_FILE)
2112                 {
2113                   p2 = pend;
2114                   break;
2115                 }
2116             }
2117
2118           /* We use <= MAXDIFF here so that if we get a zero length
2119              file, we actually use the next file entry.  */
2120           if (p2 < pend
2121               && offset + sec_vma >= (bfd_vma) p2->u.syment.n_value
2122               && offset + sec_vma - (bfd_vma) p2->u.syment.n_value <= maxdiff)
2123             {
2124               *filename_ptr = (char *) p->u.syment._n._n_n._n_offset;
2125               maxdiff = offset + sec_vma - p2->u.syment.n_value;
2126             }
2127
2128           /* Avoid endless loops on erroneous files by ensuring that
2129              we always move forward in the file.  */
2130           if (p >= cof->raw_syments + p->u.syment.n_value)
2131             break;
2132
2133           p = cof->raw_syments + p->u.syment.n_value;
2134           if (p > pend || p->u.syment.n_sclass != C_FILE)
2135             break;
2136         }
2137     }
2138
2139   /* Now wander though the raw linenumbers of the section.  */
2140   /* If we have been called on this section before, and th. e offset we
2141      want is further down then we can prime the lookup loop.  */
2142   sec_data = coff_section_data (abfd, section);
2143   if (sec_data != NULL
2144       && sec_data->i > 0
2145       && offset >= sec_data->offset)
2146     {
2147       i = sec_data->i;
2148       *functionname_ptr = sec_data->function;
2149       line_base = sec_data->line_base;
2150     }
2151   else
2152     {
2153       i = 0;
2154       line_base = 0;
2155     }
2156
2157   if (section->lineno != NULL)
2158     {
2159       bfd_vma last_value = 0;
2160
2161       l = &section->lineno[i];
2162
2163       for (; i < section->lineno_count; i++)
2164         {
2165           if (l->line_number == 0)
2166             {
2167               /* Get the symbol this line number points at.  */
2168               coff_symbol_type *coff = (coff_symbol_type *) (l->u.sym);
2169               if (coff->symbol.value > offset)
2170                 break;
2171               *functionname_ptr = coff->symbol.name;
2172               last_value = coff->symbol.value;
2173               if (coff->native)
2174                 {
2175                   combined_entry_type *s = coff->native;
2176                   s = s + 1 + s->u.syment.n_numaux;
2177
2178                   /* In XCOFF a debugging symbol can follow the
2179                      function symbol.  */
2180                   if (s->u.syment.n_scnum == N_DEBUG)
2181                     s = s + 1 + s->u.syment.n_numaux;
2182
2183                   /* S should now point to the .bf of the function.  */
2184                   if (s->u.syment.n_numaux)
2185                     {
2186                       /* The linenumber is stored in the auxent.  */
2187                       union internal_auxent *a = &((s + 1)->u.auxent);
2188                       line_base = a->x_sym.x_misc.x_lnsz.x_lnno;
2189                       *line_ptr = line_base;
2190                     }
2191                 }
2192             }
2193           else
2194             {
2195               if (l->u.offset > offset)
2196                 break;
2197               *line_ptr = l->line_number + line_base - 1;
2198             }
2199           l++;
2200         }
2201
2202       /* If we fell off the end of the loop, then assume that this
2203          symbol has no line number info.  Otherwise, symbols with no
2204          line number info get reported with the line number of the
2205          last line of the last symbol which does have line number
2206          info.  We use 0x100 as a slop to account for cases where the
2207          last line has executable code.  */
2208       if (i >= section->lineno_count
2209           && last_value != 0
2210           && offset - last_value > 0x100)
2211         {
2212           *functionname_ptr = NULL;
2213           *line_ptr = 0;
2214         }
2215     }
2216
2217   /* Cache the results for the next call.  */
2218   if (sec_data == NULL && section->owner == abfd)
2219     {
2220       amt = sizeof (struct coff_section_tdata);
2221       section->used_by_bfd = bfd_zalloc (abfd, amt);
2222       sec_data = (struct coff_section_tdata *) section->used_by_bfd;
2223     }
2224   if (sec_data != NULL)
2225     {
2226       sec_data->offset = offset;
2227       sec_data->i = i;
2228       sec_data->function = *functionname_ptr;
2229       sec_data->line_base = line_base;
2230     }
2231
2232   return TRUE;
2233 }
2234
2235 bfd_boolean
2236 coff_find_inliner_info (bfd *abfd,
2237                         const char **filename_ptr,
2238                         const char **functionname_ptr,
2239                         unsigned int *line_ptr)
2240 {
2241   bfd_boolean found;
2242
2243   found = _bfd_dwarf2_find_inliner_info (abfd, filename_ptr,
2244                                          functionname_ptr, line_ptr,
2245                                          &coff_data(abfd)->dwarf2_find_line_info);
2246   return (found);
2247 }
2248
2249 int
2250 coff_sizeof_headers (bfd *abfd, struct bfd_link_info *info)
2251 {
2252   size_t size;
2253
2254   if (!info->relocatable)
2255     size = bfd_coff_filhsz (abfd) + bfd_coff_aoutsz (abfd);
2256   else
2257     size = bfd_coff_filhsz (abfd);
2258
2259   size += abfd->section_count * bfd_coff_scnhsz (abfd);
2260   return size;
2261 }
2262
2263 /* Change the class of a coff symbol held by BFD.  */
2264
2265 bfd_boolean
2266 bfd_coff_set_symbol_class (bfd *         abfd,
2267                            asymbol *     symbol,
2268                            unsigned int  class)
2269 {
2270   coff_symbol_type * csym;
2271
2272   csym = coff_symbol_from (abfd, symbol);
2273   if (csym == NULL)
2274     {
2275       bfd_set_error (bfd_error_invalid_operation);
2276       return FALSE;
2277     }
2278   else if (csym->native == NULL)
2279     {
2280       /* This is an alien symbol which no native coff backend data.
2281          We cheat here by creating a fake native entry for it and
2282          then filling in the class.  This code is based on that in
2283          coff_write_alien_symbol().  */
2284
2285       combined_entry_type * native;
2286       bfd_size_type amt = sizeof (* native);
2287
2288       native = bfd_zalloc (abfd, amt);
2289       if (native == NULL)
2290         return FALSE;
2291
2292       native->u.syment.n_type   = T_NULL;
2293       native->u.syment.n_sclass = class;
2294
2295       if (bfd_is_und_section (symbol->section))
2296         {
2297           native->u.syment.n_scnum = N_UNDEF;
2298           native->u.syment.n_value = symbol->value;
2299         }
2300       else if (bfd_is_com_section (symbol->section))
2301         {
2302           native->u.syment.n_scnum = N_UNDEF;
2303           native->u.syment.n_value = symbol->value;
2304         }
2305       else
2306         {
2307           native->u.syment.n_scnum =
2308             symbol->section->output_section->target_index;
2309           native->u.syment.n_value = (symbol->value
2310                                       + symbol->section->output_offset);
2311           if (! obj_pe (abfd))
2312             native->u.syment.n_value += symbol->section->output_section->vma;
2313
2314           /* Copy the any flags from the file header into the symbol.
2315              FIXME: Why?  */
2316           native->u.syment.n_flags = bfd_asymbol_bfd (& csym->symbol)->flags;
2317         }
2318
2319       csym->native = native;
2320     }
2321   else
2322     csym->native->u.syment.n_sclass = class;
2323
2324   return TRUE;
2325 }
2326
2327 struct coff_comdat_info *
2328 bfd_coff_get_comdat_section (bfd *abfd, struct bfd_section *sec)
2329 {
2330   if (bfd_get_flavour (abfd) == bfd_target_coff_flavour
2331       && coff_section_data (abfd, sec) != NULL)
2332     return coff_section_data (abfd, sec)->comdat;
2333   else
2334     return NULL;
2335 }