tools/collect-aros/backend-bfd.c

   1 #define PACKAGE
   2 #define PACKAGE_VERSION
   3 #include <bfd.h>
   4 #include <string.h>
   5 #include <stdlib.h>
   6 #include <errno.h>
   7
   8 #include <sys/param.h>
   9
  10 #include "misc.h"
  11 #include "backend.h"
  12
  13 static void bfd_fatal(const char *msg)
  14 {
  15     fatal(msg, bfd_errmsg(bfd_get_error()));
  16 }
  17
  18 int check_and_print_undefined_symbols(const char *file)
  19 {
  20     bfd_byte *cur, *minisyms;
  21     asymbol *store;
  22     long symcount;
  23     unsigned int size;
  24     int there_are_undefined_syms = 0;
  25     bfd *abfd;
  26
  27     bfd_init();
  28
  29     if
  30     (
  31         (abfd = bfd_openr(file, "default")) == NULL ||
  32         !bfd_check_format(abfd, bfd_object)
  33     )
  34     {
  35         bfd_fatal(file);
  36     }
  37
  38     symcount = bfd_read_minisymbols(abfd, FALSE, (void **)&minisyms, &size);
  39     if (symcount < 0)
  40         bfd_fatal (bfd_get_filename (abfd));
  41
  42     if (symcount == 0)
  43         return 0;
  44
  45     store = bfd_make_empty_symbol(abfd);
  46     if (store == NULL)
  47         bfd_fatal(bfd_get_filename(abfd));
  48
  49     for (cur = minisyms; cur < (minisyms + (symcount * size)); cur += size)
  50     {
  51         asymbol *sym;
  52
  53         sym = bfd_minisymbol_to_symbol(abfd, FALSE, (const void *)cur, store);
  54         if (sym == NULL)
  55             bfd_fatal(bfd_get_filename (abfd));
  56
  57         if (bfd_is_und_section (sym->section))
  58         {
  59             if (!there_are_undefined_syms)
  60             {
  61                 there_are_undefined_syms = 1;
  62
  63                 fprintf(stderr, "There are undefined symbols in '%s':\n", bfd_get_filename(abfd));
  64             }
  65
  66             fprintf(stderr, "%s\n", sym->name);
  67         }
  68     }
  69
  70     bfd_close(abfd);
  71     /* We should free() minisyms, but since we're called only once, we let the system
  72        do it for us.  */
  73
  74     return there_are_undefined_syms;
  75 }
  76
  77 static void setfunc(bfd *exe, asection *sect, PTR setlist_ptr)
  78 {
  79     parse_secname(sect->name, (setnode **)setlist_ptr);
  80 }
  81
  82 void collect_sets(const char *file, setnode **setlist_ptr)
  83 {
  84     bfd_init();
  85
  86     bfd *abfd;
  87
  88     if
  89     (
  90         (abfd = bfd_openr(file, "default")) == NULL ||
  91         !bfd_check_format(abfd, bfd_object)
  92     )
  93     {
  94         bfd_fatal(file);
  95     }
  96
  97     parse_format(abfd->xvec->name);
  98     bfd_map_over_sections(abfd, setfunc, setlist_ptr);
  99
 100     bfd_close(abfd);
 101 }
 102
 103 static void collect_lib(asymbol *sym, setnode **liblist_ptr)
 104 {
 105     setnode *node;
 106     char *cp, *name;
 107     int pri;
 108
 109     if (strncmp(sym->name, "__aros_libreq_", 14) != 0)
 110             return;
 111
 112     node = xmalloc(sizeof(*node)+strlen(sym->name)+1);
 113     name = (char *)(&node[1]);
 114     strcpy(name, sym->name);
 115
 116     cp = strchr(name + 14, '.');
 117     if (cp != NULL) {
 118         char *tmp;
 119         pri = strtoul(cp+1, &tmp, 0);
 120
 121         if ((cp+1) == tmp) {
 122             free(node);
 123             return;
 124         }
 125
 126         *(cp++) = 0;
 127
 128     } else {
 129         pri = 0;
 130     }
 131
 132     node->secname = name;
 133     node->off_setname = 14;
 134     node->pri = pri;
 135     node->next = *liblist_ptr;
 136     *liblist_ptr = node;
 137 }
 138
 139 void collect_libs(const char *file, setnode **liblist_ptr)
 140 {
 141     long symtab_size;
 142     bfd *abfd;
 143
 144     /* We assume bfd_init() has already been colled by
 145      * collect_sets
 146      */
 147
 148     if
 149     (
 150         (abfd = bfd_openr(file, "default")) == NULL ||
 151         !bfd_check_format(abfd, bfd_object)
 152     )
 153     {
 154         bfd_fatal(file);
 155     }
 156
 157     symtab_size = bfd_get_symtab_upper_bound(abfd);
 158     if (symtab_size > 0) {
 159         asymbol **symtab;
 160         long symbols;
 161
 162         symtab = (asymbol **)xmalloc(symtab_size);
 163         symbols = bfd_canonicalize_symtab(abfd, symtab);
 164         if (symbols > 0) {
 165             long i;
 166
 167             for (i = 0; i < symbols; i++)
 168                 collect_lib(symtab[i], liblist_ptr);
 169         }
 170
 171         free(symtab);
 172     }
 173
 174     bfd_close(abfd);
 175 }
 176
 177