ld/ldcref.c

   1 /* ldcref.c -- output a cross reference table
   2    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
   3    Free Software Foundation, Inc.
   4    Written by Ian Lance Taylor <ian@cygnus.com>
   5
   6 This file is part of GLD, the Gnu Linker.
   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 2 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, MA 02110-1301, USA.  */
  21
  22 /* This file holds routines that manage the cross reference table.
  23    The table is used to generate cross reference reports.  It is also
  24    used to implement the NOCROSSREFS command in the linker script.  */
  25
  26 #include "bfd.h"
  27 #include "sysdep.h"
  28 #include "bfdlink.h"
  29 #include "libiberty.h"
  30
  31 #include "ld.h"
  32 #include "ldmain.h"
  33 #include "ldmisc.h"
  34 #include "ldexp.h"
  35 #include "ldlang.h"
  36
  37 /* We keep an instance of this structure for each reference to a
  38    symbol from a given object.  */
  39
  40 struct cref_ref {
  41   /* The next reference.  */
  42   struct cref_ref *next;
  43   /* The object.  */
  44   bfd *abfd;
  45   /* True if the symbol is defined.  */
  46   unsigned int def : 1;
  47   /* True if the symbol is common.  */
  48   unsigned int common : 1;
  49   /* True if the symbol is undefined.  */
  50   unsigned int undef : 1;
  51 };
  52
  53 /* We keep a hash table of symbols.  Each entry looks like this.  */
  54
  55 struct cref_hash_entry {
  56   struct bfd_hash_entry root;
  57   /* The demangled name.  */
  58   char *demangled;
  59   /* References to and definitions of this symbol.  */
  60   struct cref_ref *refs;
  61 };
  62
  63 /* This is what the hash table looks like.  */
  64
  65 struct cref_hash_table {
  66   struct bfd_hash_table root;
  67 };
  68
  69 /* Forward declarations.  */
  70
  71 static void output_one_cref (FILE *, struct cref_hash_entry *);
  72 static void check_local_sym_xref (lang_input_statement_type *);
  73 static bfd_boolean check_nocrossref (struct cref_hash_entry *, void *);
  74 static void check_refs (const char *, asection *, bfd *,
  75                         struct lang_nocrossrefs *);
  76 static void check_reloc_refs (bfd *, asection *, void *);
  77
  78 /* Look up an entry in the cref hash table.  */
  79
  80 #define cref_hash_lookup(table, string, create, copy)           \
  81   ((struct cref_hash_entry *)                                   \
  82    bfd_hash_lookup (&(table)->root, (string), (create), (copy)))
  83
  84 /* Traverse the cref hash table.  */
  85
  86 #define cref_hash_traverse(table, func, info)                           \
  87   (bfd_hash_traverse                                                    \
  88    (&(table)->root,                                                     \
  89     (bfd_boolean (*) (struct bfd_hash_entry *, void *)) (func),         \
  90     (info)))
  91
  92 /* The cref hash table.  */
  93
  94 static struct cref_hash_table cref_table;
  95
  96 /* Whether the cref hash table has been initialized.  */
  97
  98 static bfd_boolean cref_initialized;
  99
 100 /* The number of symbols seen so far.  */
 101
 102 static size_t cref_symcount;
 103
 104 /* Create an entry in a cref hash table.  */
 105
 106 static struct bfd_hash_entry *
 107 cref_hash_newfunc (struct bfd_hash_entry *entry,
 108                    struct bfd_hash_table *table,
 109                    const char *string)
 110 {
 111   struct cref_hash_entry *ret = (struct cref_hash_entry *) entry;
 112
 113   /* Allocate the structure if it has not already been allocated by a
 114      subclass.  */
 115   if (ret == NULL)
 116     ret = ((struct cref_hash_entry *)
 117            bfd_hash_allocate (table, sizeof (struct cref_hash_entry)));
 118   if (ret == NULL)
 119     return NULL;
 120
 121   /* Call the allocation method of the superclass.  */
 122   ret = ((struct cref_hash_entry *)
 123          bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
 124   if (ret != NULL)
 125     {
 126       /* Set local fields.  */
 127       ret->demangled = NULL;
 128       ret->refs = NULL;
 129
 130       /* Keep a count of the number of entries created in the hash
 131          table.  */
 132       ++cref_symcount;
 133     }
 134
 135   return &ret->root;
 136 }
 137
 138 /* Add a symbol to the cref hash table.  This is called for every
 139    global symbol that is seen during the link.  */
 140
 141 void
 142 add_cref (const char *name,
 143           bfd *abfd,
 144           asection *section,
 145           bfd_vma value ATTRIBUTE_UNUSED)
 146 {
 147   struct cref_hash_entry *h;
 148   struct cref_ref *r;
 149
 150   if (! cref_initialized)
 151     {
 152       if (! bfd_hash_table_init (&cref_table.root, cref_hash_newfunc))
 153         einfo (_("%X%P: bfd_hash_table_init of cref table failed: %E\n"));
 154       cref_initialized = TRUE;
 155     }
 156
 157   h = cref_hash_lookup (&cref_table, name, TRUE, FALSE);
 158   if (h == NULL)
 159     einfo (_("%X%P: cref_hash_lookup failed: %E\n"));
 160
 161   for (r = h->refs; r != NULL; r = r->next)
 162     if (r->abfd == abfd)
 163       break;
 164
 165   if (r == NULL)
 166     {
 167       r = xmalloc (sizeof *r);
 168       r->next = h->refs;
 169       h->refs = r;
 170       r->abfd = abfd;
 171       r->def = FALSE;
 172       r->common = FALSE;
 173       r->undef = FALSE;
 174     }
 175
 176   if (bfd_is_und_section (section))
 177     r->undef = TRUE;
 178   else if (bfd_is_com_section (section))
 179     r->common = TRUE;
 180   else
 181     r->def = TRUE;
 182 }
 183
 184 /* Copy the addresses of the hash table entries into an array.  This
 185    is called via cref_hash_traverse.  We also fill in the demangled
 186    name.  */
 187
 188 static bfd_boolean
 189 cref_fill_array (struct cref_hash_entry *h, void *data)
 190 {
 191   struct cref_hash_entry ***pph = data;
 192
 193   ASSERT (h->demangled == NULL);
 194   h->demangled = demangle (h->root.string);
 195
 196   **pph = h;
 197
 198   ++*pph;
 199
 200   return TRUE;
 201 }
 202
 203 /* Sort an array of cref hash table entries by name.  */
 204
 205 static int
 206 cref_sort_array (const void *a1, const void *a2)
 207 {
 208   const struct cref_hash_entry * const *p1 = a1;
 209   const struct cref_hash_entry * const *p2 = a2;
 210
 211   return strcmp ((*p1)->demangled, (*p2)->demangled);
 212 }
 213
 214 /* Write out the cref table.  */
 215
 216 #define FILECOL (50)
 217
 218 void
 219 output_cref (FILE *fp)
 220 {
 221   int len;
 222   struct cref_hash_entry **csyms, **csym_fill, **csym, **csym_end;
 223   const char *msg;
 224
 225   fprintf (fp, _("\nCross Reference Table\n\n"));
 226   msg = _("Symbol");
 227   fprintf (fp, "%s", msg);
 228   len = strlen (msg);
 229   while (len < FILECOL)
 230     {
 231       putc (' ', fp);
 232       ++len;
 233     }
 234   fprintf (fp, _("File\n"));
 235
 236   if (! cref_initialized)
 237     {
 238       fprintf (fp, _("No symbols\n"));
 239       return;
 240     }
 241
 242   csyms = xmalloc (cref_symcount * sizeof (*csyms));
 243
 244   csym_fill = csyms;
 245   cref_hash_traverse (&cref_table, cref_fill_array, &csym_fill);
 246   ASSERT ((size_t) (csym_fill - csyms) == cref_symcount);
 247
 248   qsort (csyms, cref_symcount, sizeof (*csyms), cref_sort_array);
 249
 250   csym_end = csyms + cref_symcount;
 251   for (csym = csyms; csym < csym_end; csym++)
 252     output_one_cref (fp, *csym);
 253 }
 254
 255 /* Output one entry in the cross reference table.  */
 256
 257 static void
 258 output_one_cref (FILE *fp, struct cref_hash_entry *h)
 259 {
 260   int len;
 261   struct bfd_link_hash_entry *hl;
 262   struct cref_ref *r;
 263
 264   hl = bfd_link_hash_lookup (link_info.hash, h->root.string, FALSE,
 265                              FALSE, TRUE);
 266   if (hl == NULL)
 267     einfo ("%P: symbol `%T' missing from main hash table\n",
 268            h->root.string);
 269   else
 270     {
 271       /* If this symbol is defined in a dynamic object but never
 272          referenced by a normal object, then don't print it.  */
 273       if (hl->type == bfd_link_hash_defined)
 274         {
 275           if (hl->u.def.section->output_section == NULL)
 276             return;
 277           if (hl->u.def.section->owner != NULL
 278               && (hl->u.def.section->owner->flags & DYNAMIC) != 0)
 279             {
 280               for (r = h->refs; r != NULL; r = r->next)
 281                 if ((r->abfd->flags & DYNAMIC) == 0)
 282                   break;
 283               if (r == NULL)
 284                 return;
 285             }
 286         }
 287     }
 288
 289   fprintf (fp, "%s ", h->demangled);
 290   len = strlen (h->demangled) + 1;
 291
 292   for (r = h->refs; r != NULL; r = r->next)
 293     {
 294       if (r->def)
 295         {
 296           while (len < FILECOL)
 297             {
 298               putc (' ', fp);
 299               ++len;
 300             }
 301           lfinfo (fp, "%B\n", r->abfd);
 302           len = 0;
 303         }
 304     }
 305
 306   for (r = h->refs; r != NULL; r = r->next)
 307     {
 308       if (! r->def)
 309         {
 310           while (len < FILECOL)
 311             {
 312               putc (' ', fp);
 313               ++len;
 314             }
 315           lfinfo (fp, "%B\n", r->abfd);
 316           len = 0;
 317         }
 318     }
 319
 320   ASSERT (len == 0);
 321 }
 322
 323 /* Check for prohibited cross references.  */
 324
 325 void
 326 check_nocrossrefs (void)
 327 {
 328   if (! cref_initialized)
 329     return;
 330
 331   cref_hash_traverse (&cref_table, check_nocrossref, NULL);
 332
 333   lang_for_each_file (check_local_sym_xref);
 334 }
 335
 336 /* Check for prohibited cross references to local and section symbols.  */
 337
 338 static void
 339 check_local_sym_xref (lang_input_statement_type *statement)
 340 {
 341   bfd *abfd;
 342   lang_input_statement_type *li;
 343   asymbol **asymbols, **syms;
 344
 345   abfd = statement->the_bfd;
 346   if (abfd == NULL)
 347     return;
 348
 349   li = abfd->usrdata;
 350   if (li != NULL && li->asymbols != NULL)
 351     asymbols = li->asymbols;
 352   else
 353     {
 354       long symsize;
 355       long symbol_count;
 356
 357       symsize = bfd_get_symtab_upper_bound (abfd);
 358       if (symsize < 0)
 359         einfo (_("%B%F: could not read symbols; %E\n"), abfd);
 360       asymbols = xmalloc (symsize);
 361       symbol_count = bfd_canonicalize_symtab (abfd, asymbols);
 362       if (symbol_count < 0)
 363         einfo (_("%B%F: could not read symbols: %E\n"), abfd);
 364       if (li != NULL)
 365         {
 366           li->asymbols = asymbols;
 367           li->symbol_count = symbol_count;
 368         }
 369     }
 370
 371   for (syms = asymbols; *syms; ++syms)
 372     {
 373       asymbol *sym = *syms;
 374       if (sym->flags & (BSF_GLOBAL | BSF_WARNING | BSF_INDIRECT | BSF_FILE))
 375         continue;
 376       if ((sym->flags & (BSF_LOCAL | BSF_SECTION_SYM)) != 0
 377           && sym->section->output_section != NULL)
 378         {
 379           const char *outsecname, *symname;
 380           struct lang_nocrossrefs *ncrs;
 381           struct lang_nocrossref *ncr;
 382
 383           outsecname = sym->section->output_section->name;
 384           symname = NULL;
 385           if ((sym->flags & BSF_SECTION_SYM) == 0)
 386             symname = sym->name;
 387           for (ncrs = nocrossref_list; ncrs != NULL; ncrs = ncrs->next)
 388             for (ncr = ncrs->list; ncr != NULL; ncr = ncr->next)
 389               if (strcmp (ncr->name, outsecname) == 0)
 390                 check_refs (symname, sym->section, abfd, ncrs);
 391         }
 392     }
 393
 394   if (li == NULL)
 395     free (asymbols);
 396 }
 397
 398 /* Check one symbol to see if it is a prohibited cross reference.  */
 399
 400 static bfd_boolean
 401 check_nocrossref (struct cref_hash_entry *h, void *ignore ATTRIBUTE_UNUSED)
 402 {
 403   struct bfd_link_hash_entry *hl;
 404   asection *defsec;
 405   const char *defsecname;
 406   struct lang_nocrossrefs *ncrs;
 407   struct lang_nocrossref *ncr;
 408   struct cref_ref *ref;
 409
 410   hl = bfd_link_hash_lookup (link_info.hash, h->root.string, FALSE,
 411                              FALSE, TRUE);
 412   if (hl == NULL)
 413     {
 414       einfo (_("%P: symbol `%T' missing from main hash table\n"),
 415              h->root.string);
 416       return TRUE;
 417     }
 418
 419   if (hl->type != bfd_link_hash_defined
 420       && hl->type != bfd_link_hash_defweak)
 421     return TRUE;
 422
 423   defsec = hl->u.def.section->output_section;
 424   if (defsec == NULL)
 425     return TRUE;
 426   defsecname = bfd_get_section_name (defsec->owner, defsec);
 427
 428   for (ncrs = nocrossref_list; ncrs != NULL; ncrs = ncrs->next)
 429     for (ncr = ncrs->list; ncr != NULL; ncr = ncr->next)
 430       if (strcmp (ncr->name, defsecname) == 0)
 431         for (ref = h->refs; ref != NULL; ref = ref->next)
 432           check_refs (hl->root.string, hl->u.def.section, ref->abfd, ncrs);
 433
 434   return TRUE;
 435 }
 436
 437 /* The struct is used to pass information from check_refs to
 438    check_reloc_refs through bfd_map_over_sections.  */
 439
 440 struct check_refs_info {
 441   const char *sym_name;
 442   asection *defsec;
 443   struct lang_nocrossrefs *ncrs;
 444   asymbol **asymbols;
 445 };
 446
 447 /* This function is called for each symbol defined in a section which
 448    prohibits cross references.  We need to look through all references
 449    to this symbol, and ensure that the references are not from
 450    prohibited sections.  */
 451
 452 static void
 453 check_refs (const char *name,
 454             asection *sec,
 455             bfd *abfd,
 456             struct lang_nocrossrefs *ncrs)
 457 {
 458   lang_input_statement_type *li;
 459   asymbol **asymbols;
 460   struct check_refs_info info;
 461
 462   /* We need to look through the relocations for this BFD, to see
 463      if any of the relocations which refer to this symbol are from
 464      a prohibited section.  Note that we need to do this even for
 465      the BFD in which the symbol is defined, since even a single
 466      BFD might contain a prohibited cross reference.  */
 467
 468   li = abfd->usrdata;
 469   if (li != NULL && li->asymbols != NULL)
 470     asymbols = li->asymbols;
 471   else
 472     {
 473       long symsize;
 474       long symbol_count;
 475
 476       symsize = bfd_get_symtab_upper_bound (abfd);
 477       if (symsize < 0)
 478         einfo (_("%B%F: could not read symbols; %E\n"), abfd);
 479       asymbols = xmalloc (symsize);
 480       symbol_count = bfd_canonicalize_symtab (abfd, asymbols);
 481       if (symbol_count < 0)
 482         einfo (_("%B%F: could not read symbols: %E\n"), abfd);
 483       if (li != NULL)
 484         {
 485           li->asymbols = asymbols;
 486           li->symbol_count = symbol_count;
 487         }
 488     }
 489
 490   info.sym_name = name;
 491   info.defsec = sec;
 492   info.ncrs = ncrs;
 493   info.asymbols = asymbols;
 494   bfd_map_over_sections (abfd, check_reloc_refs, &info);
 495
 496   if (li == NULL)
 497     free (asymbols);
 498 }
 499
 500 /* This is called via bfd_map_over_sections.  INFO->SYM_NAME is a symbol
 501    defined in INFO->DEFSECNAME.  If this section maps into any of the
 502    sections listed in INFO->NCRS, other than INFO->DEFSECNAME, then we
 503    look through the relocations.  If any of the relocations are to
 504    INFO->SYM_NAME, then we report a prohibited cross reference error.  */
 505
 506 static void
 507 check_reloc_refs (bfd *abfd, asection *sec, void *iarg)
 508 {
 509   struct check_refs_info *info = iarg;
 510   asection *outsec;
 511   const char *outsecname;
 512   asection *outdefsec;
 513   const char *outdefsecname;
 514   struct lang_nocrossref *ncr;
 515   const char *symname;
 516   long relsize;
 517   arelent **relpp;
 518   long relcount;
 519   arelent **p, **pend;
 520
 521   outsec = sec->output_section;
 522   outsecname = bfd_get_section_name (outsec->owner, outsec);
 523
 524   outdefsec = info->defsec->output_section;
 525   outdefsecname = bfd_get_section_name (outdefsec->owner, outdefsec);
 526
 527   /* The section where the symbol is defined is permitted.  */
 528   if (strcmp (outsecname, outdefsecname) == 0)
 529     return;
 530
 531   for (ncr = info->ncrs->list; ncr != NULL; ncr = ncr->next)
 532     if (strcmp (outsecname, ncr->name) == 0)
 533       break;
 534
 535   if (ncr == NULL)
 536     return;
 537
 538   /* This section is one for which cross references are prohibited.
 539      Look through the relocations, and see if any of them are to
 540      INFO->SYM_NAME.  If INFO->SYMNAME is NULL, check for relocations
 541      against the section symbol.  */
 542
 543   symname = info->sym_name;
 544
 545   relsize = bfd_get_reloc_upper_bound (abfd, sec);
 546   if (relsize < 0)
 547     einfo (_("%B%F: could not read relocs: %E\n"), abfd);
 548   if (relsize == 0)
 549     return;
 550
 551   relpp = xmalloc (relsize);
 552   relcount = bfd_canonicalize_reloc (abfd, sec, relpp, info->asymbols);
 553   if (relcount < 0)
 554     einfo (_("%B%F: could not read relocs: %E\n"), abfd);
 555
 556   p = relpp;
 557   pend = p + relcount;
 558   for (; p < pend && *p != NULL; p++)
 559     {
 560       arelent *q = *p;
 561
 562       if (q->sym_ptr_ptr != NULL
 563           && *q->sym_ptr_ptr != NULL
 564           && (symname != NULL
 565               ? strcmp (bfd_asymbol_name (*q->sym_ptr_ptr), symname) == 0
 566               : (((*q->sym_ptr_ptr)->flags & BSF_SECTION_SYM) != 0
 567                  && bfd_get_section (*q->sym_ptr_ptr) == info->defsec)))
 568         {
 569           /* We found a reloc for the symbol.  The symbol is defined
 570              in OUTSECNAME.  This reloc is from a section which is
 571              mapped into a section from which references to OUTSECNAME
 572              are prohibited.  We must report an error.  */
 573           einfo (_("%X%C: prohibited cross reference from %s to `%T' in %s\n"),
 574                  abfd, sec, q->address, outsecname,
 575                  bfd_asymbol_name (*q->sym_ptr_ptr), outdefsecname);
 576         }
 577     }
 578
 579   free (relpp);
 580 }