tools/collect-aros/backend-bfd.c

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